summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm39
1 files changed, 24 insertions, 15 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index e2634dcbc..c2142f20a 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -124,18 +124,6 @@ sub real_main {
$netc->{autodetect} = {};
-
- my $handle_multiple_cnx = sub {
- $need_restart_network = 1 if $netcnx->{type} =~ /lan|cable/;
- my $nb = keys %{$netc->{internet_cnx}};
- if (1 < $nb) {
- return "multiple_internet_cnx";
- } else {
- $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0] if $nb == 1;
- return "network_on_boot";
- }
- };
-
my $lan_detect = sub {
detect($netc->{autodetect}, 'lan');
modules::interactive::load_category($in, 'network/main|gigabit|pcmcia|usb|wireless', !$::expert, 0);
@@ -192,6 +180,28 @@ sub real_main {
return "end";
};
+ my $after_start_on_boot_step = sub {
+ return "restart" if $need_restart_network && $::isStandalone && !$::expert;
+ return $offer_to_connect->();
+ };
+
+ my $goto_start_on_boot_ifneeded = sub {
+ return $after_start_on_boot_step->() if $netcnx->{type} =~ /lan|cable/;
+ return "network_on_boot";
+ };
+
+ my $handle_multiple_cnx = sub {
+ $need_restart_network = 1 if $netcnx->{type} =~ /lan|cable/;
+ my $nb = keys %{$netc->{internet_cnx}};
+ if (1 < $nb) {
+ return "multiple_internet_cnx";
+ } else {
+ $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0] if $nb == 1;
+ return $goto_start_on_boot_ifneeded->()
+ }
+ };
+
+
# main wizard:
my $wiz;
$wiz =
@@ -1104,7 +1114,7 @@ N("Last but not least you can also type in your DNS server IP addresses."),
require Data::Dumper;
output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ]));
}
- return "network_on_boot";
+ return $goto_start_on_boot_ifneeded->();
},
},
@@ -1136,8 +1146,7 @@ N("Last but not least you can also type in your DNS server IP addresses."),
network::network::configureNetwork2($in, $::prefix, $netc, $intf);
$network_configured = 1;
- return "restart" if $need_restart_network && $::isStandalone && !$::expert;
- return $offer_to_connect->();
+ return $after_start_on_boot_step->();
},
},