X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=inline;f=spider-web%2Fspider.cgi;h=09ca06532ebaff61e64c7c621960e9786e2fdfc1;hb=9e8b70da52136e061fee9f8a219c713cc1d7df4d;hp=8f104ce97d57e1117e1ab839c816a38b94d5e1c3;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi index 8f104ce9..09ca0653 100755 --- a/spider-web/spider.cgi +++ b/spider-web/spider.cgi @@ -4,25 +4,34 @@ # @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. +# Please note that the HOSTNAME MUST be resolvable from the user end. Otherwise the +# web interface will NOT work. +# Uncomment and set the hostname manually here if the above fails. # $HOSTNAME = "gb7mbc.spoo.org" ; $PORT = "8000" ; +$NODECALL = "XX0XX" ; # Send text/html header to the browser. 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'; @@ -33,7 +42,7 @@ print <<'EOF'; - +