projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix USDB.pm so it uncompresses to a file
[spider.git]
/
spider-web
/
spider.cgi
diff --git
a/spider-web/spider.cgi
b/spider-web/spider.cgi
index 8b8763b28159dd393a0f818a2cb3391e9395cbd1..47a61ef32a2386a5368388cfe120ed4ce965f6a2 100755
(executable)
--- a/
spider-web/spider.cgi
+++ b/
spider-web/spider.cgi
@@
-10,9
+10,12
@@
use Sys::Hostname;
my $HOSTNAME = hostname();
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" ;
# 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";
# Send text/html header to the browser.
print "Content-type: text/html\n\n";
@@
-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>