From 2a59a8666bb3889c9dd09efe6994ac131f2b9c30 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 1 Sep 2004 07:34:02 +0000 Subject: When adding a networked supplementary media, configure the network if needed. Install basesystem for this purpose. --- perl-install/install_any.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2260e894c..4ed5e344d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -413,6 +413,17 @@ sub selectSupplMedia { ? (max(map { $_->{medium} =~ /^(\d+)s$/ ? $1 : 0 } values %{$o->{packages}{mediums}}) + 1) . "s" : int(keys %{$o->{packages}{mediums}}) + 1; local $::isWizard = 0; + #- configure network if needed + if (!our $asked && !scalar keys %{$o->{intf}}) { + $asked = 1; + #- install basesystem now + $::o->do_pkgs->ensure_is_installed('basesystem', undef, 1); + #- from install_steps_interactive: + local $::expert = $::expert; + require network::netconnect; + network::netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o, $o->{modules_conf}, $o->{netc}, $o->{mouse}, $o->{intf}, 0, 1); + install_interactive::upNetwork($o); + } local $o->{method} = $suppl_method; if ($suppl_method eq 'cdrom') { (my $cdromdev) = detect_devices::cdroms(); -- cgit v1.2.1