mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-28 11:43:25 +02:00
kleiner Zwischenfix
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@464 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
@@ -1285,7 +1285,6 @@ srv/web/ipfire/cgi-bin/index.cgi
|
||||
srv/web/ipfire/cgi-bin/ipinfo.cgi
|
||||
srv/web/ipfire/cgi-bin/iptables.cgi
|
||||
srv/web/ipfire/cgi-bin/logs.cgi
|
||||
#srv/web/ipfire/cgi-bin/logs.cgi/colours.txt
|
||||
#srv/web/ipfire/cgi-bin/logs.cgi/config.dat
|
||||
#srv/web/ipfire/cgi-bin/logs.cgi/firewalllog.dat
|
||||
#srv/web/ipfire/cgi-bin/logs.cgi/firewalllogip.dat
|
||||
@@ -1664,6 +1663,7 @@ srv/web/ipfire/html
|
||||
#srv/web/ipfire/html/themes/ipfire/images/n6.gif
|
||||
#srv/web/ipfire/html/themes/ipfire/images/spacer.gif
|
||||
#srv/web/ipfire/html/themes/ipfire/include
|
||||
#srv/web/ipfire/html/themes/ipfire/include/colours.txt
|
||||
#srv/web/ipfire/html/themes/ipfire/include/functions.pl
|
||||
#srv/web/ipfire/html/themes/ipfire/include/style.css
|
||||
#srv/web/ipfire/html/updatecache
|
||||
|
||||
@@ -1,12 +0,0 @@
|
||||
!"R" "G" "B" "Colour Name"
|
||||
57 44 187 colour1
|
||||
79 125 255 colour2
|
||||
79 185 255 colour3
|
||||
79 225 255 colour4
|
||||
189 225 255 colour5
|
||||
195 183 255 colour6
|
||||
195 125 255 colour7
|
||||
195 241 197 colour8
|
||||
195 241 140 colour9
|
||||
86 202 145 colour10
|
||||
|
||||
@@ -7,7 +7,8 @@
|
||||
# JC HERITIER
|
||||
# page inspired from the initial firewalllog.dat
|
||||
#
|
||||
# modified for ipcop by Markus Hoffmann und Michael Winkler and for ipfire by Christian Schmidt
|
||||
# Modified for IPFire by Christian Schmidt
|
||||
# and Michael Tremer (www.ipfire.org)
|
||||
|
||||
use strict;
|
||||
use Geo::IP::PurePerl;
|
||||
@@ -373,7 +374,7 @@ else{
|
||||
|
||||
my @data = (\@ips,\@numb);
|
||||
use GD::Graph::colour qw( :files );
|
||||
GD::Graph::colour::read_rgb( "/srv/web/ipfire/cgi-bin/logs.cgi/colours.txt" );
|
||||
GD::Graph::colour::read_rgb( "/srv/web/ipfire/html/themes/ipfie/include/colours.txt" );
|
||||
|
||||
if ($showpie != 2 && $pienumber <= 50 && $pienumber != 0) {
|
||||
my $mygraph = GD::Graph::pie->new(500, 350);
|
||||
@@ -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>";
|
||||
}
|
||||
|
||||
|
||||
@@ -7,7 +7,8 @@
|
||||
# JC HERITIER
|
||||
# page inspired from the initial firewalllog.dat
|
||||
#
|
||||
# modified for ipcop by Markus Hoffmann und Michael Winkler and for ipfire by Christian Schmidt
|
||||
# Modified for IPFire by Christian Schmidt
|
||||
# and Michael Tremer (www.ipfire.org)
|
||||
|
||||
use strict;
|
||||
|
||||
@@ -373,7 +374,7 @@ else{
|
||||
|
||||
my @data = (\@ports,\@numb);
|
||||
use GD::Graph::colour qw( :files );
|
||||
GD::Graph::colour::read_rgb( "/srv/web/ipfire/cgi-bin/logs.cgi/colours.txt" );
|
||||
GD::Graph::colour::read_rgb( "/srv/web/ipfire/html/themes/ipfie/include/colours.txt" );
|
||||
|
||||
if ($showpie != 2 && $pienumber <= 50 && $pienumber != 0) {
|
||||
my $mygraph = GD::Graph::pie->new(500, 350);
|
||||
@@ -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/port*.png");
|
||||
my @filenames = glob("/srv/web/ipfire/html/graphs/fwlog-port*.png");
|
||||
unlink(@filenames);
|
||||
my $imagerandom = rand(1000000);
|
||||
my $imagename = "/srv/web/ipfire/html/fwlogs/port$imagerandom.png";
|
||||
my $imagename = "/srv/web/ipfire/html/graphs/fwlog-port$imagerandom.png";
|
||||
open(FILE,">$imagename");
|
||||
print FILE $myimage->png;
|
||||
close(FILE);
|
||||
#####################################################
|
||||
print "<table align='center'><tr><td>";
|
||||
print "<img src='/fwlogs/port$imagerandom.png'>";
|
||||
print "<img src='/graphs/fwlog-port$imagerandom.png'>";
|
||||
print "</td></tr></table>";
|
||||
}
|
||||
|
||||
@@ -523,3 +524,4 @@ sub checkversion {
|
||||
#Automatic Updates is disabled
|
||||
return "0","0";
|
||||
}
|
||||
|
||||
|
||||
11
html/html/themes/ipfire/include/colours.txt
Normal file
11
html/html/themes/ipfire/include/colours.txt
Normal file
@@ -0,0 +1,11 @@
|
||||
!"R" "G" "B" "Colour Name"
|
||||
205 91 69 colour1
|
||||
238 106 80 colour2
|
||||
255 114 86 colour3
|
||||
238 149 114 colour4
|
||||
255 160 122 colour5
|
||||
255 160 122 colour6
|
||||
205 175 149 colour7
|
||||
238 203 173 colour8
|
||||
255 218 185 colour9
|
||||
255 228 196 colour10
|
||||
Reference in New Issue
Block a user