# 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;
$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>";
}