summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-24 14:02:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-24 14:02:03 +0000
commit9f332be09e4b313e74a135a847b82f7a1ccfc64a (patch)
tree8418b2fab777ada9d19a33b269fa11af8d9e6060 /perl-install/install_steps_interactive.pm
parenteb000ca3993b37dee7192ed1db993ef10bb45b12 (diff)
downloaddrakx-backup-do-not-use-9f332be09e4b313e74a135a847b82f7a1ccfc64a.tar
drakx-backup-do-not-use-9f332be09e4b313e74a135a847b82f7a1ccfc64a.tar.gz
drakx-backup-do-not-use-9f332be09e4b313e74a135a847b82f7a1ccfc64a.tar.bz2
drakx-backup-do-not-use-9f332be09e4b313e74a135a847b82f7a1ccfc64a.tar.xz
drakx-backup-do-not-use-9f332be09e4b313e74a135a847b82f7a1ccfc64a.zip
- configure a firewall by default in secure level >= 3
- allow auto_install parameter {firewall_ports}
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 3 insertions, 1 deletions
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();