]> git.etc.gen.nz Git - spong.git/commitdiff
Fix default value of $WWW_DEFAULT_VIEW. Add SPONGSLEEP check code from
authorStephen L Johnson <sjohnson@monsters.org>
Wed, 27 Sep 2000 04:08:33 +0000 (04:08 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Wed, 27 Sep 2000 04:08:33 +0000 (04:08 +0000)
other programs (was still depending on the old $SPONGSLEEP).  Fix missing
</b> in left frame view.

src/www-spong.pl

index 075202347801fb67dafd513455e4e25b57a53650..a0b8bdc1f8b2f625ff9c44d7c7765f49332c5b06 100755 (executable)
@@ -37,7 +37,11 @@ $interactive = 0;
  
 &load_config_files();  # Loads the user specified configuration information
 
-$main::WWW_DEFAULT_VIEW = "HOST" unless $main::WWW_DEFAULT_VIEW;
+$main::WWW_DEFAULT_VIEW = "HOSTS" unless $main::WWW_DEFAULT_VIEW;
+
+# Find our SPONGSLEEP value
+$SPONGSLEEP = $SPONGSLEEP{'www-spong'} || $SPONGSLEEP{'DEFAULT'} ||
+              $SPONGSLEEP || 300;
 
 # Check to see if I am being run as a command line program (in which case I
 # just generate static HTML documents), or a CGI program (in which case I 
@@ -267,8 +271,8 @@ sub commands {
    print "<font size=+2><b>Hosts View</b></font>\n";
    unless ($WWWFRAMES == 3) {
       print "<hr>\n";
-      print "<b>Views: <a href=\"$me/bygroup/\" target=_top>Groups</a> || \n"; 
-      print "<a href=\"$me/group/all\" target=_top>Hosts</a> \n"; 
+      print "<b>Views:</b> <a href=\"$me/bygroup/\" target=_top>Groups</a>";
+      print " || \n<a href=\"$me/group/all\" target=_top>Hosts</a> \n"; 
    }
    print "<hr>\n";