X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=47a61ef32a2386a5368388cfe120ed4ce965f6a2;hb=ef3eaa49d2dfc9ce74411ec534d31c46875d28e7;hp=8f104ce97d57e1117e1ab839c816a38b94d5e1c3;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git
diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi
index 8f104ce9..47a61ef3 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';
@@ -42,7 +51,7 @@ print <<'EOF';
Cluster Web - DX Cluster Web Interface.
EOF
- print("Welcome to $HOSTNAME
") ;
+ print("Welcome to $NODECALL
") ;
print <<'EOF';
@@ -57,11 +66,12 @@ EOF
if($ENV{CONTENT_LENGTH} > 0)
{
# Callsign is set - print the whole