From b60ecb647026156da5d432f1bc75470ad7da0c67 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 15 Sep 2005 05:36:39 +0000
Subject: drakconnect: update interfaces list in shorewall

---
 perl-install/network/network.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index f9f0bd915..42420c120 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -603,6 +603,11 @@ sub configure_network {
         write_zeroconf($net, $in);
 
         any { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } values %{$net->{ifcfg}} and $in->do_pkgs->install('pump');
+
+        #- update interfaces list in shorewall
+        require network::shorewall;
+        my $shorewall = network::shorewall::read();
+        $shorewall and network::shorewall::write($shorewall);
     }
 
     #- make net_applet reload the configuration
-- 
cgit v1.2.1