webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Hinzugefügt:

Browse Source 
* IPTables ins Webinterface - Muss der Benne nochmal drüberkucken!
Geändert:
  * Blinde Datei oh323 gelöscht.
  * Kein sudo-Paket mehr, da bereits in ISO.
  * makegraphs gefixt wegen hddtemp
  * Menü im Webinterface wieder einmal bearbeitet.


git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@171 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
ms
2006-06-12 15:00:19 +00:00
parent a6753b551e
commit a68fedca8f
14 changed files with 180 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files

104
html/cgi-bin/iptables.cgi Normal file
View File

@@ -0,0 +1,104 @@
#!/usr/bin/perl
#
# IPFire CGIs
#
# This code is distributed under the terms of the GPL
#
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
my @iplines;
my $lines = 0;
my @ipmanlines;
my $manlines = 0;
my @ipnatlines;
my $natlines = 0;
system('/usr/local/bin/getipstat');
&Header::showhttpheaders();
&Header::openpage($Lang::tr{'ipts'}, 1, '');
&Header::openbigbox('100%', 'LEFT');
&Header::openbox('100%', 'LEFT', $Lang::tr{'ipts'}.':');
print <<END
<DIV align='left'>
<PRE>
END
;
open (FILE, '/home/httpd/html/iptables.txt');
while (<FILE>)
{
$iplines[$lines] = $_;
$lines++;
}
close (FILE);
foreach $_ (@iplines) {
print "$_"; }
print <<END
</PRE>
</DIV>
<BR>
END
;
&Header::closebox();
## MANGLE
&Header::openbox('100%', 'LEFT', $Lang::tr{'iptmangles'}.':');
print <<END
<DIV align='left'>
<PRE>
END
;
open (FILEMAN, '/home/httpd/html/iptablesmangle.txt');
while (<FILEMAN>)
{
$ipmanlines[$manlines] = $_;
$manlines++;
}
close (FILEMAN);
foreach $_ (@ipmanlines) {
print "$_"; }
print <<END
</PRE>
</DIV>
<BR>
END
;
&Header::closebox();
## NAT
&Header::openbox('100%', 'LEFT', $Lang::tr{'iptnats'}.':');
print <<END
<DIV align='left'>
<PRE>
END
;
open (FILENAT, '/home/httpd/html/iptablesnat.txt');
while (<FILENAT>)
{
$ipnatlines[$natlines] = $_;
$natlines++;
}
close (FILENAT);
foreach $_ (@ipnatlines) {
print "$_"; }
print <<END
</PRE>
</DIV>
<BR>
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();