# (3) Re-did as a client which gets info from the spong-server (07/24/1997)
# (4) Did a whole bunch of stuff (Ed Hill, 06/18/1998)
#
-# $Id: www-spong.pl,v 1.18 2000/11/15 17:25:29 sljohnson Exp $
+# $Id: www-spong.pl,v 1.19 2000/11/21 18:27:07 sljohnson Exp $
use Sys::Hostname;
use Getopt::Long;
sub toplevel {
+ # Default to a reasonable value if not defined.
+ $main::WWW_TITLE_SIZE = 40 if( $main::WWW_TITLE_SIZE <= 0 );
+
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Spong v$SPONGVER - System Status Monitor</title></head>\n";
- print "<frameset rows=\"$main::WWW_FRAME_SIZE,*\" border=5 frameboard=no>";
+ print "<frameset rows=\"$main::WWW_TITLE_SIZE,*\" border=5 frameboard=no>";
print "<frame src=\"$main::WWWSPONG/title\" marginwidth=5 ";
print "marginheight=5 noshade name=\"title\">\n";
print "<frame src=\"";
projects / spong.git / commitdiff