X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=09ca06532ebaff61e64c7c621960e9786e2fdfc1;hb=refs%2Fheads%2Fspider;hp=248ccd5e02c9c6707dddbd9b0b3eebe41de9ca1a;hpb=330c78b266bf16b87b01c3fa9e73dd9494f44a40;p=spider.git
diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi
index 248ccd5e..09ca0653 100755
--- a/spider-web/spider.cgi
+++ b/spider-web/spider.cgi
@@ -4,15 +4,18 @@
# @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";
@@ -39,7 +42,7 @@ print <<'EOF';
-
+
@@ -48,7 +51,7 @@ print <<'EOF';
Cluster Web - DX Cluster Web Interface.
EOF
- print("Welcome to $HOSTNAME ") ;
+ print("Welcome to $NODECALL ") ;
print <<'EOF';
@@ -71,6 +74,7 @@ if($ENV{CONTENT_LENGTH} > 0)
print(" \n") ;
print(" \n") ;
print(" \n") ;
+ print(" \n") ;
print(" \n") ;
print("\n") ;
}
@@ -86,6 +90,7 @@ else
+ If you do not have a password set - don't enter one :)
EOF
}