Nochmal korrigiert und fwhits auf eine Graphenart eingestellt

git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@574 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
maniacikarus
2007-05-22 19:14:06 +00:00
parent b05768be3b
commit d55341424f
3 changed files with 5 additions and 69 deletions

View File

@@ -34,50 +34,8 @@ my @LOCALCHECK=();
my $errormessage="";
&Header::openpage($Lang::tr{'firewall graphs'}, 1, '');
&Header::openbigbox('100%', 'left', '', $errormessage);
print <<END;
<table width="100%" align="center">
<tr>
<td align="left">
<a href=/cgi-bin/fwhits.cgi?graph=line>$Lang::tr{'show lines'}</a>
&nbsp;
<a href=/cgi-bin/fwhits.cgi?graph=area>$Lang::tr{'show areas'}</a>
</td>
</tr>
</table>
END
if ($cgigraphs[1] eq "line") {
&Header::openbox('100%', 'center', $Lang::tr{"daily firewallhits"});
my $ftime = localtime((stat("$graphdir/firewallhits-day-line.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<img alt='' src='/graphs/firewallhits-day-line.png' border='0' />";
print "<br />\n";
&Header::closebox();
&Header::openbox('100%', 'center', $Lang::tr{"weekly firewallhits"});
my $ftime = localtime((stat("$graphdir/firewallhits-week-line.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<img alt='' src='/graphs/firewallhits-week-line.png' border='0' />";
print "<br />\n";
&Header::closebox();
&Header::openbox('100%', 'center', $Lang::tr{"monthly firewallhits"});
my $ftime = localtime((stat("$graphdir/firewallhits-month-line.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<img alt='' src='/graphs/firewallhits-month-line.png' border='0' />";
print "<br />\n";
&Header::closebox();
&Header::openbox('100%', 'center', $Lang::tr{"yearly firewallhits"});
my $ftime = localtime((stat("$graphdir/firewallhits-year-line.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
print "<img alt='' src='/graphs/firewallhits-year-line.png' border='0' />";
print "<br />\n";
&Header::closebox();
}
else
{
&Header::openbox('100%', 'center', $Lang::tr{"daily firewallhits"});
my $ftime = localtime((stat("$graphdir/firewallhits-day-area.png"))[9]);
print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
@@ -105,8 +63,6 @@ else
print "<img alt='' src='/graphs/firewallhits-year-area.png' border='0' />";
print "<br />\n";
&Header::closebox();
}
&Header::closebigbox();
&Header::closepage();

View File

@@ -10,8 +10,8 @@
use strict;
# enable only the following on debugging purpose
# use warnings;
# use CGI::Carp 'fatalsToBrowser';
use warnings;
use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
@@ -156,9 +156,9 @@ if ($cgigraphs[1] =~ /hddtemp/){
foreach (@devices) {
my $device = $_;
chomp($device);
&Graphs::updatehddgraph ($disk,"week");
&Graphs::updatehddgraph ($disk,"month");
&Graphs::updatehddgraph ($disk,"year");}}
&Graphs::updatehddgraph ($device,"week");
&Graphs::updatehddgraph ($device,"month");
&Graphs::updatehddgraph ($device,"year");}}
my $graph = $cgigraphs[1];
my $graphname = $Lang::tr{"mbmon $cgigraphs[1]"};