X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=8b8763b28159dd393a0f818a2cb3391e9395cbd1;hb=b1d2bac29bfd88be5ba6d4b59df4574b15e402b6;hp=8f104ce97d57e1117e1ab839c816a38b94d5e1c3;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi index 8f104ce9..8b8763b2 100755 --- a/spider-web/spider.cgi +++ b/spider-web/spider.cgi @@ -4,13 +4,13 @@ # @author Ian Norton # - Based on clx-web by DL6DBH (ftp://clx.muc.de/pub/clx/clx-java_10130001.tgz) # - Modified by PA4AB -# @version 0.1 beta. 20010610. +# @version 0.2 beta. 20020519. # Work out the hostname of this server. use Sys::Hostname; my $HOSTNAME = hostname(); -# Set the hostname manually here if the above fails. +# Uncomment and set the hostname manually here if the above fails. # $HOSTNAME = "gb7mbc.spoo.org" ; $PORT = "8000" ; @@ -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,8 +82,11 @@ else
Please enter your callsign:

+ Please enter your password:
+
+
If you do not have a password set - don't enter one :)
EOF }