\n";
$html .= "| \n";
$html .= " 
\n";
foreach my $key (sort keys %{$minmaxavg{HOUR}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "| $item | ";
$html .= "Min:".sprintf("%.2f",$minmaxavg{HOUR}{$key}{MIN})." | ";
$html .= "Max:".sprintf("%.2f",$minmaxavg{HOUR}{$key}{MAX})." | ";
$html .= "Avg:".sprintf("%.2f",$minmaxavg{HOUR}{$key}{AVG})." | \n";
}
$html .= " Note: This graph displays per minute statistics unless otherwise stated |
| \n";
$html .= " 
\n";
foreach my $key (sort keys %{$minmaxavg{DAY}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "| $item | ";
$html .= "Min:".sprintf("%.2f",$minmaxavg{DAY}{$key}{MIN})." | ";
$html .= "Max:".sprintf("%.2f",$minmaxavg{DAY}{$key}{MAX})." | ";
$html .= "Avg:".sprintf("%.2f",$minmaxavg{DAY}{$key}{AVG})." | \n";
}
$html .= " Note: This graph displays per minute statistics unless otherwise stated |
| \n";
$html .= " 
\n";
foreach my $key (sort keys %{$minmaxavg{WEEK}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "| $item | ";
$html .= "Min:".sprintf("%.2f",$minmaxavg{WEEK}{$key}{MIN})." | ";
$html .= "Max:".sprintf("%.2f",$minmaxavg{WEEK}{$key}{MAX})." | ";
$html .= "Avg:".sprintf("%.2f",$minmaxavg{WEEK}{$key}{AVG})." | \n";
}
$html .= " Note: This graph displays an hourly average of the per minute statistics, so you will not see the peak minute values |
| \n";
$html .= " 
\n";
foreach my $key (sort keys %{$minmaxavg{MONTH}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "| $item | ";
$html .= "Min:".sprintf("%.2f",$minmaxavg{MONTH}{$key}{MIN})." | ";
$html .= "Max:".sprintf("%.2f",$minmaxavg{MONTH}{$key}{MAX})." | ";
$html .= "Avg:".sprintf("%.2f",$minmaxavg{MONTH}{$key}{AVG})." | \n";
}
$html .= " Note: This graph displays an hourly average of the per minute statistics, so you will not see the peak minute values |
\n
\n";
return $html;
}
# end graphs_html
###############################################################################
# start charts_html
sub charts_html {
my $cc_lookups = shift;
my $imgdir = shift;
my $html;
$html .= "