Firewallhitgraphs gefixt.
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / logs.cgi / firewalllogip.dat
index 8175d5b..38cce25 100644 (file)
@@ -7,7 +7,8 @@
 # JC HERITIER 
 # page inspired from the initial firewalllog.dat
 #
-# Modified for IPFire by Christian Schmidt (www.ipfire.org)
+# Modified for IPFire by Christian Schmidt
+#                           and Michael Tremer (www.ipfire.org)
 
 use strict;
 use Geo::IP::PurePerl;
@@ -387,16 +388,16 @@ if ($showpie != 2 && $pienumber <= 50 && $pienumber != 0) {
        $mygraph->set( dclrs => [ "colour1" , "colour2" , "colour3" , "colour4" , "colour5" , "colour6" , "colour7" , "colour8" , "colour9" , "colour10" ] );
        my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
 
-       my @filenames = glob("/srv/web/ipfire/html/fwlogs/ip*.png");
+       my @filenames = glob("/srv/web/ipfire/html/graphs/fwlog-ip*.png");
        unlink(@filenames);
        my $imagerandom = rand(1000000);
-       my $imagename = "/srv/web/ipfire/html/fwlogs/ip$imagerandom.png";
+       my $imagename = "/srv/web/ipfire/html/graphs/fwlog-ip$imagerandom.png";
        open(FILE,">$imagename");
        print FILE $myimage->png;
        close(FILE);
        #####################################################
        print "<table align='center'><tr><td>";
-       print "<img src='/fwlogs/ip$imagerandom.png'>";
+       print "<img src='/graphs/fwlog-ip$imagerandom.png'>";
        print "</td></tr></table>";
 }