';
return
} else {
opendir (GROUPDIR, $groupdir) ||
die "Fatal: can't open groupdir $groupdir: $!";
my @groups = sort (grep { -f "$groupdir/$_" && /^\w+/ } readdir (GROUPDIR));
closedir GROUPDIR;
print header (
-type => "text/html",
-expires => "+10m"
);
print '
';
print "$title ";
print '
';
print '
systory Click on a host name from the table on the right to view all statistics for all time spans or
';
#### here goes the form elements
print '
';
return
};
}; ## END print_page_top
###############################################################################
sub determine_hosts {
if (param('group') =~ /^all$/i) {
param(-name => 'host', -value => 'all');
};
unless (param('host') || param('group')) {
param(-name => 'host', -value => 'all');
param(-name => 'group', -value => 'all');
$group = "all";
};
if (param('host')) {
foreach (param('host')) {
if ($_ =~ /^all$/i) {
opendir (DATADIR, $datadir) ||
die "Can't open datadir $datadir: $!";
@hosts = sort (grep { -d "$datadir/$_" && /^\w+/ } readdir (DATADIR));
closedir DATADIR;
} elsif (-d "$datadir/$_" && $_ =~ /(^\w.+$)/) {
push (@hosts, $1)
} else {
note ("Invalid host $_ specified.");
};
};
} elsif (param('group') && param('group') =~ /(^\w+.*)/) {
$group = "$1";
if (-f "$groupdir/$group") {
open (GROUPFILE, "$groupdir/$group") ||
die "Can't read group file $groupdir/$group: $!";
while () {
next if /^$/;
chomp;
if (-d "$datadir/$_") {
push (@hosts, $_);
} else {
note ("No data available for host $_ in group $group.");
};
};
close GROUPFILE;
} else {
note ("Invalid group $group specified.");
};
my @hosts_sorted = sort {$::a cmp $::b} @hosts;
@hosts = @hosts_sorted;
};
}; ## END determine_hosts
###############################################################################
sub generate_index {
print <
Host OS Model CPUs RAM (MB) Uptime Last Update
END
my $hostindex = "0";
my $rowcolor;
foreach (@hosts) {
open(SUMMARY, "$datadir/$_/summary") ||
do { note "no summary found for host $_" ; next };
my $age = sprintf ("%d", time() - (sub { $_[9] } -> (stat SUMMARY)));
$age = ($age > 86399) ? "" . sprintf ("%d", $age / 86400) . " d " :
($age > 3549) ? "" . sprintf ("%d", $age / 3600) . " h " :
($age > 601) ? "" . sprintf ("%d", $age / 600) . " m " :
($age > 300) ? "" . sprintf ("%d", $age ) . " s " :
$age . " s";
my ($host, $os, $model, $proc_info, $ram, $uptime) = split (/\|/, ());
$hostindex++;
if ($hostindex % 2) {
$rowcolor = "#FFFFFF"
} else {
$rowcolor = "#EFEEED"
};
print "\n";
print '" . $host . " $os
$model
$proc_info
$ram
$uptime
$age \n";
close SUMMARY;
};
print "
\n";
} ## END generate_index
###############################################################################
sub determine_stats {
unless (param('stat')) {
param(-name => 'stat', -value => 'all')
};
foreach (param('stat')) {
if ($_ =~ /^all$/i) {
foreach (keys (%stats)) {
push (@stats, $stats{$_});
};
} elsif (exists ($stats{"\L$_"}) && $_ =~ /^(\w+)$/) {
push (@stats, $stats{"\L$1"})
} else {
note ("Invalid stat $_ specified.");
};
};
} ## END determine_stats
###############################################################################
sub determine_spans {
unless (param('span')) {
param(-name => 'span', -value => 'all')
};
foreach (param('span')) {
if ($_ =~ /^all$/i) {
foreach (keys (%spans)) {
push (@spans, $spans{$_});
};
} elsif (exists ($spans{"\L$_"}) && $_ =~ /^(\w+)$/) {
push (@spans, $spans{"\L$_"})
} else {
note ("Invalid span $_ specified.");
};
};
my @spans_sorted = sort {$::a <=> $::b} @spans;
@spans = @spans_sorted;
} ## END determine_spans
###############################################################################
sub generate_graphs {
print '';
my @graph_common_args = (
"--lazy",
"--no-minor",
"--lower-limit", "0",
"--color", "BACK#FFFFFF",
"--color", "CANVAS#FFFFFF",
"--color", "MGRID#666666",
"--color", "SHADEA#FFFFFF",
"--color", "SHADEB#FFFFFF"
);
my $gsize;
if (param('gsize') =~ /^sm/i) {
push (@graph_common_args, "--width", "400", "--height", "100");
$gsize = "small";
} elsif (param('gsize') =~ /^la/i) {
push (@graph_common_args, "--width", "800", "--height", "200");
$gsize = "large";
} else {
push (@graph_common_args, "--width", "600", "--height", "150");
$gsize = "medium";
};
my @graph_args;
foreach my $host (@hosts) {
print " \n";
print "$host top ";
print "$spans_pretty{$span} \n";
print "\n";
foreach my $stat (@stats) {
print "\n";
@graph_args = @graph_common_args;
if ($stat eq 'CPU') {
push (@graph_args,
"--upper-limit", "100",
"--end", "now-5min",
"--start", "now-$span",
"--title", "$host: CPU Usage ($spans_pretty{$span})",
"--vertical-label", "% Busy",
"--imginfo",
"RRD Error: $rrderror
\n";
} else {
printf (" %s ';
print "\n";
};
print "
";
}; ## END generate_graphs
###############################################################################
sub print_page_bottom {
print '
