From ea3f7f40f973df8fc8a2ddc75a0e5ae43efd1ff8 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 1 Jul 2005 09:47:45 +0000 Subject: don't write loc to fw ACCEPT rules, we always reset the policy to accept --- perl-install/network/shorewall.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/network/shorewall.pm') diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 11ee3c70f..aeb951d78 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -133,9 +133,7 @@ sub write { set_config_file('rules', if_($use_pptp, [ 'ACCEPT', 'fw', 'loc:10.0.0.138', 'tcp', '1723' ]), if_($use_pptp, [ 'ACCEPT', 'fw', 'loc:10.0.0.138', 'gre' ]), - (map { - map_each { [ 'ACCEPT', $_, 'fw', $::a, join(',', @$::b), '-' ] } %ports_by_proto; - } ('net', if_($conf->{loc_interface}[0], 'loc'))), + (map_each { [ 'ACCEPT', 'net', 'fw', $::a, join(',', @$::b), '-' ] } %ports_by_proto), (map { map_each { [ 'REDIRECT', 'loc', $::a, $_, $::b, '-' ] } %{$conf->{redirects}{$_}}; } keys %{$conf->{redirects}}), -- cgit v1.2.1