From 9f332be09e4b313e74a135a847b82f7a1ccfc64a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Mar 2005 14:02:03 +0000
Subject: - configure a firewall by default in secure level >= 3 - allow
 auto_install parameter {firewall_ports}

---
 perl-install/install_steps_interactive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9b5fb997e..a23c6e060 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1101,7 +1101,9 @@ sub summary {
 	},
 	clicked => sub { 
 	    require network::drakfirewall;
-	    network::drakfirewall::main($o, $o->{security} <= 3);
+	    if (my @rc = network::drakfirewall::main($o, $o->{security} <= 3)) {
+		$o->{firewall_ports} = !$rc[0] && $rc[1];
+	    }
 	},
     } if detect_devices::getNet();
 
-- 
cgit v1.2.1