extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-15 10:08:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix IPP2P matching

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6168 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-05-01 01:02:55 +00:00
parent 3c15fdabdd
commit f64e8128ed
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall-perl/Shorewall/Chains.pm
View File

@ -775,9 +775,9 @@ sub do_proto( $$$ )
$sports = '' if $sports eq '-';
if ( $proto ) {
if ( $proto =~ /^((tcp|6)((:syn)?))|(udp|17)$/ ) {
if ( $proto =~ /^(((tcp|6)((:syn)?))|(udp|17))$/ ) {
if ( $3 ) {
if ( $4 ) {
$output = '-p 6 --syn ';
} else {
$proto = $protocols{$proto} if defined $protocols{$proto};
@ -817,7 +817,7 @@ sub do_proto( $$$ )
}
fatal_error 'SOURCE PORT(S) not permitted with ICMP' if $sports ne '';
} elsif ( $proto =~ /^(ipp2p(:(tcp|udp|all)))?$/i ) {
} elsif ( $proto =~ /^(ipp2p(:(tcp|udp|all))?)$/i ) {
require_capability( 'IPP2P_MATCH' , 'PROTO = ipp2p' );
$proto = $2 ? $3 : 'tcp';
$ports = 'ipp2p' unless $ports;

2
Shorewall-perl/Shorewall/Config.pm
View File

@ -499,7 +499,7 @@ my %validlevels = ( debug => 7,
ULOG => 'ULOG' );
#
# Validate a log level
# Validate a log level -- Drop the trailing '!' that some fools think is important.
#
sub validate_level( $ ) {
my $level = $_[0];