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

P2P block: Add notice that the user will reload the firewall ruleset.

Browse Source
This commit is contained in:
Michael Tremer
2013-10-29 16:22:13 +01:00
parent 85860aff26
commit e9a0562345
12 changed files with 131 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

129
html/cgi-bin/p2p-block.cgi
View File

@@ -32,6 +32,7 @@ require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
my $errormessage = '';
my $notice;
my $p2pfile = "${General::swroot}/firewall/p2protocols";
my @p2ps = ();
@@ -44,8 +45,6 @@ my %mainsettings = ();
&Header::showhttpheaders();
&Header::getcgihash(\%fwdfwsettings);
&Header::openpage($Lang::tr{'p2p block'}, 1, '');
&Header::openbigbox('100%', 'center', $errormessage);
if ($fwdfwsettings{'ACTION'} eq 'togglep2p') {
open( FILE, "<$p2pfile") or die "Unable to read $p2pfile";
@@ -66,77 +65,83 @@ if ($fwdfwsettings{'ACTION'} eq 'togglep2p') {
close FILE;
&General::firewall_config_changed();
&p2pblock();
} else {
&p2pblock();
$notice = $Lang::tr{'p2p block save notice'};
}
sub p2pblock {
my $gif;
&Header::openpage($Lang::tr{'p2p block'}, 1, '');
&Header::openbigbox('100%', 'center', $errormessage);
open(FILE, "<$p2pfile") or die "Unable to read $p2pfile";
@p2ps = <FILE>;
close FILE;
if ($notice) {
&Header::openbox('100%', 'left', $Lang::tr{'notice'});
print "<font class='base'>$notice</font>";
&Header::closebox();
}
&Header::openbox('100%', 'center', $Lang::tr{'p2p block'});
print <<END;
<table width='35%' border='0'>
<tr bgcolor='$color{'color22'}'>
<td align=center colspan='2' >
<b>$Lang::tr{'protocol'}</b>
</td>
<td align='center'>
<b>$Lang::tr{'status'}</b>
</td>
</tr>
my $gif;
open(FILE, "<$p2pfile") or die "Unable to read $p2pfile";
@p2ps = <FILE>;
close FILE;
&Header::openbox('100%', 'center', $Lang::tr{'p2p block'});
print <<END;
<table width='35%' border='0'>
<tr bgcolor='$color{'color22'}'>
<td align=center colspan='2' >
<b>$Lang::tr{'protocol'}</b>
</td>
<td align='center'>
<b>$Lang::tr{'status'}</b>
</td>
</tr>
END
foreach my $p2pentry (sort @p2ps) {
my @p2pline = split( /\;/, $p2pentry);
if ($p2pline[2] eq 'on') {
$gif = "/images/on.gif"
} else {
$gif = "/images/off.gif"
}
print <<END;
<tr bgcolor='$color{'color20'}'>
<td align='center' colspan='2'>
$p2pline[0]:
</td>
<td align='center'>
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
<input type='hidden' name='P2PROT' value='$p2pline[1]'>
<input type='image' img src='$gif' alt='$Lang::tr{'click to disable'}' title='$Lang::tr{'fwdfw toggle'}' style='padding-top: 0px; padding-left: 0px; padding-bottom: 0px ;padding-right: 0px ;display: block;'>
<input type='hidden' name='ACTION' value='togglep2p'>
</form>
</td>
</tr>
END
foreach my $p2pentry (sort @p2ps) {
my @p2pline = split( /\;/, $p2pentry);
if ($p2pline[2] eq 'on') {
$gif = "/images/on.gif"
} else {
$gif = "/images/off.gif"
}
print <<END;
<tr>
<td>
<img src='/images/on.gif'>
</td>
<td>
$Lang::tr{'outgoing firewall p2p allow'}
</td>
</tr>
<tr>
<td>
<img src='/images/off.gif'>
</td>
<td>
$Lang::tr{'outgoing firewall p2p deny'}
</td>
</tr>
</table>
<tr bgcolor='$color{'color20'}'>
<td align='center' colspan='2'>
$p2pline[0]:
</td>
<td align='center'>
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
<input type='hidden' name='P2PROT' value='$p2pline[1]'>
<input type='image' img src='$gif' alt='$Lang::tr{'click to disable'}' title='$Lang::tr{'fwdfw toggle'}' style='padding-top: 0px; padding-left: 0px; padding-bottom: 0px ;padding-right: 0px ;display: block;'>
<input type='hidden' name='ACTION' value='togglep2p'>
</form>
</td>
</tr>
END
}
print <<END;
<tr>
<td>
<img src='/images/on.gif'>
</td>
<td>
$Lang::tr{'outgoing firewall p2p allow'}
</td>
</tr>
<tr>
<td>
<img src='/images/off.gif'>
</td>
<td>
$Lang::tr{'outgoing firewall p2p deny'}
</td>
</tr>
</table>
END
&Header::closebox();
}
&Header::closebox();
&Header::closebigbox();
&Header::closepage();