From e87ebc0a0e5e83964d7e266d50c73321484eed2e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Dec 1999 00:49:14 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(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 a32b3bd76..8f7603dce 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -406,7 +406,16 @@ _("Second DNS Server") => \$m->{dns2},
 sub installCrypto {
     my ($o) = @_;
     my $u = $o->{crypto} ||= {};
-    $::expert && $o->{intf} && $o->{netc}{NETWORKING} ne 'false' or return;
+    
+    $::expert or return;
+    if ($o->{intf} && $o->{netc}{NETWORKING} ne 'false') {
+	my $w = $o->wait_message('', _("Bringing up the network"));
+	network::up_it($o->{prefix}, $o->{intf});
+    } elsif ($o->{modem}) {
+	run_program::rooted($o->{prefix}, "ifup", "ppp0");
+    } else {
+	return;
+    }
     
     is_empty_hash_ref($u) and $o->ask_yesorno('', 
 "Do you want to download cryptographic packages?
@@ -744,7 +753,7 @@ sub miscellaneous {
 _("Use hard drive optimisations?") => { val => \$u->{HDPARM}, type => 'bool', text => _("(may cause data corruption)") },
 _("Choose security level") => { val => \$s, list => [ map { $l{$_} } ikeys %l ], not_edit => 1 },
 _("Precise RAM size if needed (found %d MB)", availableRam / 1024 + 3) => \$u->{memsize}, #- add three for correction.
-_("Removable media automounting") => { val => $o->{useSupermount}, type => 'bool', text => 'supermount' },
+_("Removable media automounting") => { val => \$o->{useSupermount}, type => 'bool', text => 'supermount' },
      $u->{numlock} ? (
 _("Enable num lock at startup") => { val => \$u->{numlock}, type => 'bool' },
      ) : (),
-- 
cgit v1.2.1