]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/iptables.cgi
90bdf6e92ca28d6e2d040ebf60f7aff479e8bf70
5 # This code is distributed under the terms of the GPL
8 require '/var/ipfire/general-functions.pl';
9 require "${General::swroot}/lang.pl";
10 require "${General::swroot}/header.pl";
19 system('/usr/local/bin/getipstat');
21 &Header
::showhttpheaders
();
22 &Header
::openpage
($Lang::tr
{'ipts'}, 1, '');
23 &Header
::openbigbox
('100%', 'LEFT');
24 &Header
::openbox
('100%', 'LEFT', $Lang::tr
{'ipts'}.':');
31 open (FILE
, '/srv/web/ipfire/html/iptables.txt');
34 $iplines[$lines] = $_;
38 foreach $_ (@iplines) {
51 &Header
::openbox
('100%', 'LEFT', $Lang::tr
{'iptmangles'}.':');
58 open (FILEMAN
, '/srv/web/ipfire/html/iptablesmangle.txt');
61 $ipmanlines[$manlines] = $_;
65 foreach $_ (@ipmanlines) {
78 &Header
::openbox
('100%', 'LEFT', $Lang::tr
{'iptnats'}.':');
85 open (FILENAT
, '/srv/web/ipfire/html/iptablesnat.txt');
88 $ipnatlines[$natlines] = $_;
92 foreach $_ (@ipnatlines) {
103 &Header
::closebigbox
();
104 &Header
::closepage
();
106 system(rm
-f
"/srv/web/ipfire/html/iptables.txt");
107 system(rm
-f
"/srv/web/ipfire/html/iptablesmangle.txt");
108 system(rm
-f
"/srv/web/ipfire/html/iptablesnat.txt");