X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=09ca06532ebaff61e64c7c621960e9786e2fdfc1;hb=refs%2Fheads%2Fmaster;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'; - +

@@ -42,7 +51,7 @@ print <<'EOF';
Cluster Web - DX Cluster Web Interface.

EOF - print("Welcome to $HOSTNAME
") ; + print("Welcome to $NODECALL
") ; print <<'EOF'; @@ -57,13 +66,15 @@ 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") ; print(" \n") ; print("
\n") ; } @@ -75,8 +86,11 @@ else
Please enter your callsign:

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