put dx.pl into an explicit handle sub

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

index 248ccd5e02c9c6707dddbd9b0b3eebe41de9ca1a..09ca06532ebaff61e64c7c621960e9786e2fdfc1 100755 (executable)
--- 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';
          <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") ;
      }
@@ -86,6 +90,7 @@ else
          <INPUT name="password" size=10 TYPE=PASSWORD><BR>
          <INPUT type=submit value="Click here to Login">
      </FORM>
+    <BR>If you do not have a password set - don't enter one :)
      </CENTER>
  EOF
      }