summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/ethernet.pm4
-rw-r--r--perl-install/network/netconnect.pm18
2 files changed, 14 insertions, 8 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 9776924e6..4edb584b6 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -75,8 +75,7 @@ sub configure_lan {
$netcnx->{type}='lan';
$netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = '';
$netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE};
- }
- write_cnx_script($netc, "local network",
+ write_cnx_script($netc, "local network",
qq(
#!/bin/bash
/etc/rc.d/init.d/network restart
@@ -86,6 +85,7 @@ qq(
/etc/rc.d/init.d/network stop
/sbin/ifup lo
));
+ }
$::isStandalone and modules::write_conf($prefix);
1;
}
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index bb136e64b..4a4e7dbad 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -169,11 +169,17 @@ ifdown eth0
# load_conf ($netcnx, $netc, $intf);
- $conf{modem} and do { require network::modem; network::modem::configure($netcnx, $mouse, $netc) or goto step_2 };
- $conf{isdn} and do { require network::isdn; network::isdn::configure($netcnx, $netc) or goto step_2 };
- $conf{adsl} and do { require network::adsl; network::adsl::configure($netcnx, $netc, $intf, $first_time) or goto step_2 };
- $conf{cable} and do { require network::ethernet; network::ethernet::configure_cable($netcnx, $netc, $intf, $first_time) or goto step_2 };
- $conf{lan} and do { require network::ethernet; network::ethernet::configure_lan($netcnx, $netc, $intf, $first_time) or goto step_2 };
+ my $pre_func = sub {
+ $::Wizard_no_previous=1;
+ #$_[0] is the type of connection of the list: (modem, isdn, adsl, cable, local network);
+ $in->ask_okcancel(_("Network Configuration"), _("\n\n\nWe are now going to configure the %s connection.\n\n\nPress next to begin.",_($_[0])), 1);
+ undef $::Wizard_no_previous;
+ };
+ $conf{modem} and do { &$pre_func("modem"); require network::modem; network::modem::configure($netcnx, $mouse, $netc) or goto step_2 };
+ $conf{isdn} and do { &$pre_func("isdn"); require network::isdn; network::isdn::configure($netcnx, $netc) or goto step_2 };
+ $conf{adsl} and do { &$pre_func("adsl"); require network::adsl; network::adsl::configure($netcnx, $netc, $intf, $first_time) or goto step_2};
+ $conf{cable} and do { &$pre_func("cable"); require network::ethernet; network::ethernet::configure_cable($netcnx, $netc, $intf, $first_time) or goto step_2 };
+ $conf{lan} and do { &$pre_func("local network"); require network::ethernet; network::ethernet::configure_lan($netcnx, $netc, $intf, $first_time) or goto step_2 };
step_2_1:
my $nb = keys %{$netc->{internet_cnx}};
@@ -190,7 +196,7 @@ ifdown eth0
}
$netc->{internet_cnx_choice} and write_cnx_script($netc);
- $::isStandalone and ask_connect_now() or goto step_2_1;
+ $::isStandalone and ask_connect_now();
step_3: