]> git.etc.gen.nz Git - spong.git/commitdiff
renamed 'overview' functions and parameters to 'grp' to reflect group view name
authorStephen L Johnson <sjohnson@monsters.org>
Wed, 5 Apr 2000 03:50:57 +0000 (03:50 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Wed, 5 Apr 2000 03:50:57 +0000 (03:50 +0000)
src/www-spong.pl

index 0efcb40a3959450ce13dc694a581d082a8f413f9..3c63d0010df6aecf76e43ad052bdae6909f54932 100755 (executable)
@@ -50,7 +50,7 @@ if( $ENV{'SCRIPT_NAME'} eq "" ) {
    my %opt;
    my @options = ( "help", "summary:s", "problems:s", "history:s", "host=s", 
                   "services=s", "stats=s", "config=s", "info=s", "service=s",
-                   "histservice=s", "overview:s", "ovproblems",
+                   "histservice=s", "grp-summary:s", "grp-problems",
                   "brief", "standard", "full" );
 
    $actionbar = 0;
@@ -85,8 +85,8 @@ if( $ENV{'SCRIPT_NAME'} eq "" ) {
       $opt=1;
    }
 
-   if ( defined $opt{'overview'} ) { &overview( $opt{'overview'} ); $opt= 1; } 
-   if ( defined $opt{'ovproblems'} ) { &ovproblems( $opt{'ovproblems'} ); $opt= 1; } 
+   if ( defined $opt{'grp-summary'} ) { &grp_summary( $opt{'grp-summary'} ); $opt= 1; } 
+   if ( defined $opt{'grp-problems'} ) { &grp_problems( $opt{'grp-problems'} ); $opt= 1; } 
 
    if( ! $opt ) { &summary( "all" ); }
 
@@ -120,8 +120,8 @@ if( $cmd =~ m!^/bygroup/(.*)$! )    { &ovinteractive( $1 );    exit; }
 if( $cmd =~ m!^/commands/(.*)$! ) { &commands( $1 );       exit; }
 
 if( $cmd =~ m!^/ovcommands/(.*)$! ) { &ovcommands( $1 );   exit; }
-if( $cmd =~ m!^/ioverview/(.*)$! ) { &ioverview( $1 );   exit; }
-if( $cmd =~ m!^/iovsummary/(.*)$! ) { &iovsummary( $1 );   exit; }
+if( $cmd =~ m!^/igrp-summary/(.*)$! ) { &igrp_summary( $1 );   exit; }
+if( $cmd =~ m!^/igrp-overview/(.*)$! ) { &igrp_overview( $1 );   exit; }
 
 if( $cmd =~ m!^/isummary/(.*)$! ) { &isummary( $1 );       exit; }
 if( $cmd =~ m!^/ihistory/(.*)$! ) { &ihistory( $1 );       exit; }
@@ -153,8 +153,8 @@ if( $cmd =~ m!^/service/(.*)/(.*)$! ) { &service( $1, $2 ); exit; }
 
 if( $cmd =~ m!^/histservice/(.*)/(.*)/(.*)$! ) { &histservice( $1, "$2 $3" ); exit; }
 
-if( $cmd =~ m!^/overview/(.*)$! ) { &overview( $1 ); exit;}
-if( $cmd =~ m!^/ovproblems/(.*)$! ) { &ovproblems( $1 ); exit;}
+if( $cmd =~ m!^/grp-summary/(.*)$! ) { &grp_summary( $1 ); exit;}
+if( $cmd =~ m!^/grp-problems/(.*)$! ) { &grp_problems( $1 ); exit;}
 
 # Need to do something when an invalid request comes through...
 exit(0);
@@ -217,7 +217,7 @@ sub ovinteractive {
    print "<frameset cols=\"240,*\" border=5 frameboard=no>";
    print "<frame src=\"$main::WWWSPONG/ovcommands/\" marginwidth=5 ";
    print "marginheight=5 noshade>\n";
-   print "<frame src=\"$main::WWWSPONG/ioverview/\" marginwidth=10 ";
+   print "<frame src=\"$main::WWWSPONG/igrp-summary/\" marginwidth=10 ";
    print "marginheight=5 noshade name=\"right\" border=1>\n";
    print "</frameset>\n";
    print "<noframe>\n";
@@ -306,8 +306,8 @@ sub ovcommands {
    }
    print "<hr>\n";
 
-   print "<a href=\"$me/ioverview/\">Groups</a> || \n"; 
-   print "<a href=\"$me/iovsummary/\">Group Summary</a>\n"; 
+   print "<a href=\"$me/igrp-summary/\">Groups</a> || \n"; 
+   print "<a href=\"$me/igrp-overview/\">Group Summary</a>\n"; 
    print "<hr>\n";
 
    print "<a href=\"$main::WWWACK\">Ack</a> || \n"; 
@@ -316,7 +316,7 @@ sub ovcommands {
    print "<a href=\"$me/help\">Help</a>\n";
    print "<hr>\n<p>\n";
 
-   &ovproblems( $group );
+   &grp_problems( $group );
 
    print "<p><hr>";
 #   print "<a href=\"$me/groups\">Group</a>: <b>$gname</b>\n<hr>\n";
@@ -352,7 +352,7 @@ sub ihistory {
    &footer();
 }
 
-sub ioverview {
+sub igrp_summary {
    my $group = shift;
 #   my $gname = $main::GROUPS{$group}->{'name'} if $main::GROUPS{$group};
 #   $gname = "Selected Hosts" unless $gname;
@@ -360,11 +360,11 @@ sub ioverview {
    &header( 1 );
    print "<font size=+2><b>Host Groups</b></font>\n<hr>\n";
    $main::view = "full";
-   &overview($group);
+   &grp_summary($group);
    &footer();
 }
 
-sub iovsummary {
+sub igrp_overview {
    my $group = shift;
 #   my $gname = $main::GROUPS{$group}->{'name'} if $main::GROUPS{$group};
 #   $gname = "Selected Hosts" unless $gname;
@@ -372,7 +372,7 @@ sub iovsummary {
    &header( 1 );
    print "<font size=+2><b>Host Groups Summary</b></font>\n<hr>\n";
    $view = "standard";
-   &overview($group);
+   &grp_summary($group);
    &footer();
 }
 
@@ -537,22 +537,22 @@ sub histservice {
    &footer();
 }
 
-sub overview {
+sub grp_summary {
    my( $other ) = @_;
    my $view = $main::view || 'full';
 
    &header(0);
-   print &query( $SPONGSERVER, "overview", '', "html", $view, $other);
+   print &query( $SPONGSERVER, "grp-summary", '', "html", $view, $other);
    &footer();
 
 }
 
-sub ovproblems {
+sub grp-problems {
    my( $other ) = @_;
    my $view = $main::view || 'full';
 
    &header(0);
-   print &query( $SPONGSERVER, "ovproblems", $other, "html", $view );
+   print &query( $SPONGSERVER, "grp-problems", $other, "html", $view );
    &footer();
 }