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;
$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" ); }
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; }
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);
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";
}
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";
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";
&footer();
}
-sub ioverview {
+sub igrp_summary {
my $group = shift;
# my $gname = $main::GROUPS{$group}->{'name'} if $main::GROUPS{$group};
# $gname = "Selected Hosts" unless $gname;
&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;
&header( 1 );
print "<font size=+2><b>Host Groups Summary</b></font>\n<hr>\n";
$view = "standard";
- &overview($group);
+ &grp_summary($group);
&footer();
}
&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();
}