webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 03:07:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

colours.txt ins Theme Verzeichnis geschoben,

Browse Source 
daher auch Anpassungen an den Firewall*.cgi
kleinere Fixes an der samba.cgi
default Config Dateien für Samba ins SVN gestellt


git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@463 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
maniacikarus
2007-03-26 18:38:15 +00:00
parent 9c16cd927f
commit 32f77a0b3b
9 changed files with 806 additions and 469 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
html/cgi-bin/logs.cgi/firewalllogip.dat
View File

@@ -7,8 +7,7 @@
# JC HERITIER
# page inspired from the initial firewalllog.dat
#
# Modified for IPFire by Christian Schmidt
# and Michael Tremer (www.ipfire.org)
# modified for ipcop by Markus Hoffmann und Michael Winkler and for ipfire by Christian Schmidt
use strict;
use Geo::IP::PurePerl;
@@ -388,16 +387,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/graphs/fwlog-ip*.png");
my @filenames = glob("/srv/web/ipfire/html/fwlogs/ip*.png");
unlink(@filenames);
my $imagerandom = rand(1000000);
my $imagename = "/srv/web/ipfire/html/graphs/fwlog-ip$imagerandom.png";
my $imagename = "/srv/web/ipfire/html/fwlogs/ip$imagerandom.png";
open(FILE,">$imagename");
print FILE $myimage->png;
close(FILE);
#####################################################
print "<table align='center'><tr><td>";
print "<img src='/graphs/fwlog-ip$imagerandom.png'>";
print "<img src='/fwlogs/ip$imagerandom.png'>";
print "</td></tr></table>";
}

9
html/cgi-bin/logs.cgi/firewalllogport.dat
View File

@@ -7,8 +7,7 @@
# JC HERITIER
# page inspired from the initial firewalllog.dat
#
# Modified for IPFire by Christian Schmidt
# and Michael Tremer (www.ipfire.org)
# modified for ipcop by Markus Hoffmann und Michael Winkler and for ipfire by Christian Schmidt
use strict;
@@ -388,16 +387,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/graphs/fwlog-port*.png");
my @filenames = glob("/srv/web/ipfire/html/fwlogs/port*.png");
unlink(@filenames);
my $imagerandom = rand(1000000);
my $imagename = "/srv/web/ipfire/html/graphs/fwlog-port$imagerandom.png";
my $imagename = "/srv/web/ipfire/html/fwlogs/port$imagerandom.png";
open(FILE,">$imagename");
print FILE $myimage->png;
close(FILE);
#####################################################
print "<table align='center'><tr><td>";
print "<img src='/graphs/fwlog-port$imagerandom.png'>";
print "<img src='/fwlogs/port$imagerandom.png'>";
print "</td></tr></table>";
}

1133
html/cgi-bin/samba.cgi
View File

File diff suppressed because it is too large Load Diff