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";
<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>
<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(" <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") ;
}