diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-08 00:49:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-08 00:49:14 +0000 |
| commit | e87ebc0a0e5e83964d7e266d50c73321484eed2e (patch) | |
| tree | ebf0db8cfa6eb885238d9f487483d0ff7898c67d /perl-install/install_steps_interactive.pm | |
| parent | a3d1d777b3ec42680658523e265c0538c121b594 (diff) | |
| download | drakx-backup-do-not-use-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar drakx-backup-do-not-use-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.gz drakx-backup-do-not-use-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.bz2 drakx-backup-do-not-use-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.xz drakx-backup-do-not-use-e87ebc0a0e5e83964d7e266d50c73321484eed2e.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 13 |
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' }, ) : (), |