#!/usr/local/bin/perl $questions="questions.txt"; $datafile = "adnt-patch.tgz"; $qstring = $ENV{'QUERY_STRING'}; $method = $ENV{'REQUEST_METHOD'}; $clen = $ENV{'CONTENT_LENGTH'}; if ($method ne 'POST') { fatal(400, "You naughty thing, you tried to bypass the form!!!"); } $formdata = ''; $n = read(STDIN, $formdata, $clen); if ($n < $clen) { fatal(400, "Error trying to read formdata: $!") } foreach $arg (split(/&/, $formdata)) { ($name, $value) = split(/=/, $arg, 2); ($name, $value) = decode($name, $value); $fields{$name} = $value; } @names = (); open(IN, "<$questions") or fatal(400, "Can't open control file: $!"); while () { chomp; next unless $_; if (/^NAME=(.*)$/) { push(@names, $1); } } close IN; $fail = 0; foreach $name (@names) { ($fail = 1) if ($fields{$name} ne 'YES') } if ($fail) { print < Download Denied!!

Download denied!

You failed to answer yes to all of the questions on the previous form.

If you made a mistake, hit the "back" button on your browser, or click here.

If you would like to return to the Self-Help page, click here EOF exit(0); } if (!-r $datafile) { fatal(400, "Can't read data file!") } $len = -s $datafile; open(IN, "<$datafile") or fatal(400, "Can't open datafile: $!"); print < 0) { print $buf; } exit(0); sub decode { my(@new, $x); foreach $x (@_) { $x =~ s/\+/ /g; # restore spaces $x =~ s/%([0-9A-F]{2})/chr(hex $1)/eig; # unhexify push(@new, $x); } @new; } sub fatal { my($code, $text) = @_; print <Error

$code - Error

$text EOF exit(0); } __END__ if ( (defined $ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ "c=") ) { print '

'; ($_ = $ENV{'QUERY_STRING'}) =~ s/\+/ /g; # restore spaces s/%([0-9A-F]{2})/chr(hex $1)/eig; # unhexify if (/^c=([- A-Za-z0-9\']{20,40})$/) { my $challenge = $1; my $response = get_response $challenge; if (defined $response and length $response) { print "For challenge string $challenge
\nthe response is $response"; } else { print "Server failure while computing the response. Try again later."; } } else { print "Syntax error in challenge string."; } print "\n\n"; } print << 'EOF';

"EXPERT" mode was implemented primarily for (Alcatel) experts to perform low level troubleshooting.

Use of this mode can cause loss of service, or damage or destruction of the Speed Touch device.

For the "EXPERT", it is very powerful and can be extremely useful in debugging line problems.

More details coming soon... EOF print "

[ return to Alcatel self-help guide ]\n\n\n";