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

Enough of this

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5988 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-17 23:14:42 +00:00
parent e7ba2aa3c1
commit 43750a70c9
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -644,9 +644,9 @@ sub do_proto( $$$ )
if ( $proto ) {
if ( $proto =~ /^(tcp|udp|6|17)$/i ) {
$output = "-p $proto ";
my @ports = split /,/, $ports;
if ( @ports ) {
if ( @ports > 1 ) {
if ( $ports ) {
if ( $ports =~ tr/,/,/ > 1 ) {
fatal_error "Port list requires Multiport support in your kernel/iptables: $ports" unless $capabilities{MULTIPORT};
fatal_error "Too many entries in port list: $ports" if $ports =~ tr/,:/,:/ > 14;
@ -657,9 +657,8 @@ sub do_proto( $$$ )
}
}
@ports = split /,/, $sports;
if ( @ports ) {
if ( @ports > 1 ) {
if ( $sports ) {
if ( $sports =~ tr/,/,/ > 1 ) {
fatal_error "Port list requires Multiport support in your kernel/iptables: $sports" unless $capabilities{MULTIPORT};
fatal_error "Too many entries in port list: $sports" if $sports =~ tr/,:/,:/ > 14;