extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-27 05:01:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

I keep tweaking this thing...

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5994 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-18 03:39:25 +00:00
parent 78803f7c3c
commit 051d78a8cc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -634,9 +634,11 @@ sub clearrule() {
sub do_proto( $$$ )
{
my ($proto, $ports, $sports ) = @_;
#
# Return the number of ports represented by the passed list
#
sub port_count( $ ) {
$_[0] =~ tr/,:/,:/;
( $_[0] =~ tr/,:/,:/ ) + 1;
}
my $output = '';
@ -652,7 +654,7 @@ sub do_proto( $$$ )
if ( $ports ) {
if ( $ports =~ tr/,/,/ > 0 ) {
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 port_count( $ports ) > 14;
fatal_error "Too many entries in port list: $ports" if port_count( $ports ) > 15;
$output .= "-m multiport --dports $ports ";
} else {
$output .= "--dport $ports ";
@ -662,7 +664,7 @@ sub do_proto( $$$ )
if ( $sports ) {
if ( $sports =~ tr/,/,/ > 0 ) {
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 port_count( $sports ) > 14;
fatal_error "Too many entries in port list: $sports" if port_count( $sports ) > 15;
$output .= "-m multiport --sports $sports ";
} else {
$output .= "--sport $sports ";