diff options
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' }, ) : (), |