add DXCIDR, fix version no tracking

[spider.git] / spider-web / spider.cgi
diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi

index 8b8763b28159dd393a0f818a2cb3391e9395cbd1..09ca06532ebaff61e64c7c621960e9786e2fdfc1 100755 (executable)
--- a/spider-web/spider.cgi
+++ b/spider-web/spider.cgi
@@ -10,9 +10,12 @@
  use Sys::Hostname;
  my $HOSTNAME = hostname();
  
+# 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';
          <META NAME="Author" CONTENT="Ian Norton.">
          <META NAME="DESCRIPTION" CONTENT="DX Cluster web interface">
      </HEAD>
- 
+     
  <BODY BGCOLOR="#FFFFFF" LINK="#008080" ALINK="#000099" VLINK="#000099">         
  
      <H1>
@@ -48,7 +51,7 @@ print <<'EOF';
          <B><BR>Cluster Web - DX Cluster Web Interface.</B><BR>
  EOF
  
-        print("Welcome to $HOSTNAME<BR>") ;
+        print("Welcome to $NODECALL<BR>") ;
  
  print <<'EOF';
          </FONT>
@@ -71,6 +74,7 @@ if($ENV{CONTENT_LENGTH} > 0)
      print("        <PARAM NAME=\"PASSWORD\" VALUE=\"$password\">\n") ;
      print("        <PARAM NAME=\"HOSTNAME\" VALUE=\"$HOSTNAME\">\n") ;
      print("        <PARAM NAME=\"PORT\" VALUE=\"$PORT\">\n") ;
+    print("        <PARAM NAME=\"NODECALL\" VALUE=\"$NODECALL\">\n") ;
      print("    </APPLET>\n") ;
      print("</CENTER>\n") ;
      }