END
;
open (FILE, '/srv/web/ipfire/html/iptables.txt');
while ()
{
$iplines[$lines] = $_;
$lines++;
}
close (FILE);
foreach $_ (@iplines) {
print "$_"; }
print <
END
;
&Header::closebox();
## MANGLE
&Header::openbox('100%', 'LEFT', $Lang::tr{'iptmangles'}.':');
print <
END
;
open (FILEMAN, '/srv/web/ipfire/html/iptablesmangle.txt');
while ()
{
$ipmanlines[$manlines] = $_;
$manlines++;
}
close (FILEMAN);
foreach $_ (@ipmanlines) {
print "$_"; }
print <
END
;
&Header::closebox();
## NAT
&Header::openbox('100%', 'LEFT', $Lang::tr{'iptnats'}.':');
print <
END
;
open (FILENAT, '/srv/web/ipfire/html/iptablesnat.txt');
while ()
{
$ipnatlines[$natlines] = $_;
$natlines++;
}
close (FILENAT);
foreach $_ (@ipnatlines) {
print "$_"; }
print <
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
system(rm -f "/srv/web/ipfire/html/iptables.txt");
system(rm -f "/srv/web/ipfire/html/iptablesmangle.txt");
system(rm -f "/srv/web/ipfire/html/iptablesnat.txt");