From bfc8b19fb5eb79fcb4ceaea01b08e07148e112d1 Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Tue, 21 Nov 2000 18:27:07 +0000 Subject: [PATCH] added code to default $WWW_TITLE_SIZE if not defined --- src/www-spong.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 "