summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-08 00:49:14 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-08 00:49:14 +0000
commite87ebc0a0e5e83964d7e266d50c73321484eed2e (patch)
treeebf0db8cfa6eb885238d9f487483d0ff7898c67d /perl-install/install_steps_interactive.pm
parenta3d1d777b3ec42680658523e265c0538c121b594 (diff)
downloaddrakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar
drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.gz
drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.bz2
drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.xz
drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm13
1 files changed, 11 insertions, 2 deletions
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' },
) : (),