X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=248ccd5e02c9c6707dddbd9b0b3eebe41de9ca1a;hb=330c78b266bf16b87b01c3fa9e73dd9494f44a40;hp=8f104ce97d57e1117e1ab839c816a38b94d5e1c3;hpb=6db883c129fb84bbf067861a1def1fd8120a32c8;p=spider.git diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi index 8f104ce9..248ccd5e 100755 --- a/spider-web/spider.cgi +++ b/spider-web/spider.cgi @@ -19,10 +19,16 @@ print "Content-type: text/html\n\n"; # Get the parameters passed to the script. read (STDIN, $post_data, $ENV{CONTENT_LENGTH}); -@call = split (/=/, $post_data) ; -# Print the page header. +$callstart = index($post_data, "=") + 1 ; +$callend = index($post_data, "&") ; + +$call = substr($post_data, $callstart, $callend - $callstart), +$password = substr($post_data, index($post_data, "=", $callend) + 1, length($post_data)) ; +# Print the page header. +#print("Callsign : $call") ; +#print("Password : $password") ; print <<'EOF'; @@ -57,11 +63,12 @@ EOF if($ENV{CONTENT_LENGTH} > 0) { # Callsign is set - print the whole stuff.... - # print("Callsign is $call[1]
\n") ; + # print("Callsign is $call
\n") ; print("
\n") ; print(" \n") ; - print(" \n") ; + print(" \n") ; + print(" \n") ; print(" \n") ; print(" \n") ; print(" \n") ; @@ -75,6 +82,8 @@ else
Please enter your callsign:

+ Please enter your password:
+