projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
force repo to use on git -C $root describe
[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
# @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();
# 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" ;
# $HOSTNAME = "gb7mbc.spoo.org" ;
$PORT = "8000" ;
+$NODECALL = "XX0XX" ;
# Send text/html header to the browser.
print "Content-type: text/html\n\n";
# 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>
<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>
<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
<B><BR>Cluster Web - DX Cluster Web Interface.</B><BR>
EOF
- print("Welcome to $
HOSTNAME
<BR>") ;
+ print("Welcome to $
NODECALL
<BR>") ;
print <<'EOF';
</FONT>
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=\"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") ;
}
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>
<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
}
</CENTER>
EOF
}