holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Correct port list capture with --multiport.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-11-25 16:22:23 -08:00
parent 613e41c25a
commit 5cdb74168f
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -2853,7 +2853,13 @@ sub get_dports( $ ) {
if ( my $multiref = $ruleref->{multiport} ) {
if ( reftype $multiref ) {
for ( @$multiref ) {
$ports .= ",$1" if /^--dports (.*)/;
if ( /^--dports (.*)/ ) {
if ( $ports ) {
$ports .= ",$1";
} else {
$ports = $1;
}
}
}
} else {
$ports = $1 if $multiref =~ /^--dports (.*)/;
@ -2873,7 +2879,13 @@ sub get_multi_sports( $ ) {
if ( my $multiref = $_[0]->{multiport} ) {
if ( reftype $multiref ) {
for ( @$multiref ) {
$ports .= ",$1" if /^--sports (.*)/;
if ( /^--sports (.*)/ ) {
if ( $ports ) {
$ports .= ",$1";
} else {
$ports = $1;
}
}
}
} else {
$ports = $1 if $multiref =~ /^--sports (.*)/;