From f93a644e3d4d9cd81f6e377dc57fa46c906929ae Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 26 Jul 2005 11:10:26 +0000 Subject: don't write alias interfaces in shorewall interfaces file --- perl-install/network/shorewall.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 2775f2e08..7e5d97363 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -79,7 +79,8 @@ sub read_default_interfaces { sub set_net_interface { my ($conf, $interface) = @_; $conf->{net_interface} = $interface; - $conf->{loc_interface} = [ grep { $_ ne $interface } detect_devices::getNet() ]; + #- keep all other interfaces (but alias interfaces) in local zone + $conf->{loc_interface} = [ grep { !/:/ && $_ ne $interface } detect_devices::getNet() ]; } sub read { -- cgit v1.2.1