From: Stephen L Johnson Date: Tue, 21 Nov 2000 18:27:07 +0000 (+0000) Subject: added code to default $WWW_TITLE_SIZE if not defined X-Git-Tag: spong-2_7_1~1 X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bfc8b19fb5eb79fcb4ceaea01b08e07148e112d1;p=spong.git added code to default $WWW_TITLE_SIZE if not defined --- diff --git a/src/www-spong.pl b/src/www-spong.pl index 9cafc25..077b1e5 100755 --- a/src/www-spong.pl +++ b/src/www-spong.pl @@ -12,7 +12,7 @@ # (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; @@ -178,10 +178,13 @@ exit(0); 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 "\n"; print "Spong v$SPONGVER - System Status Monitor\n"; - print ""; + print ""; print "\n"; print "