#!/usr/local/bin/perl -w
use strict;
#------------------------------------------------------------------------------
# make_summary: Function that creates a summary page for all graphs of type in directory
sub make_summary {
my $summary_type = $_[0];
open HTML, ">", "../summary_$summary_type.html" or die "Cannot open summary_$summary_type.html for writing: $!";
print HTML << " EOF";
Summary of $summary_type ping_test graphs
Summary of $summary_type ping_test graphs
EOF
my $first = 0;
while (glob "*.$summary_type.png") {
$_ =~ s/\.$summary_type\.png//;
if ($first == 0) {
$first = 1;
print HTML << " EOF";
|
EOF
}
else {
$first = 0;
print HTML << " EOF";
|
EOF
}
}
if ($first == 0) {
print HTML << " EOF";
EOF
}
else {
print HTML << " EOF";
