summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-09-19 17:50:01 +0000
committerOlivier Blin <oblin@mandriva.org>2005-09-19 17:50:01 +0000
commit4dd83a6702936c11becfbea813251fdfb4bb3fc6 (patch)
tree7894f617cddf7ce94e8f9c4131287fc18eddc921 /perl-install
parentb2a0c11f01b1a4b7545d1d8f72afefca1e457db2 (diff)
downloaddrakx-backup-do-not-use-4dd83a6702936c11becfbea813251fdfb4bb3fc6.tar
drakx-backup-do-not-use-4dd83a6702936c11becfbea813251fdfb4bb3fc6.tar.gz
drakx-backup-do-not-use-4dd83a6702936c11becfbea813251fdfb4bb3fc6.tar.bz2
drakx-backup-do-not-use-4dd83a6702936c11becfbea813251fdfb4bb3fc6.tar.xz
drakx-backup-do-not-use-4dd83a6702936c11becfbea813251fdfb4bb3fc6.zip
add some reminders, fix indentation
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm30
1 files changed, 19 insertions, 11 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index d20d190db..91bf05bce 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -150,19 +150,26 @@ sub real_main {
);
my $offer_to_connect = sub {
- if ($net->{type} eq 'adsl' && !member($net->{adsl}{method}, qw(static dhcp)) ||
- member($net->{type}, qw(modem isdn isdn_external))) {
- return "ask_connect_now";
- } elsif ($need_network_restart) {
+ #- FIXME: create $try_to_connect sub out of this code
+ #- merge with "ask_connect_now" post code
+ if ($net->{type} eq 'adsl' && !member($net->{adsl}{method}, qw(static dhcp)) ||
+ member($net->{type}, qw(modem isdn isdn_external))) {
+ return "ask_connect_now";
+ } elsif ($need_network_restart) {
services::restart("network");
} else {
- network::tools::stop_net_interface($net, 0);
- if (exists $net->{adsl}{ethernet_device}) {
- network::tools::stop_interface($net->{adsl}{ethernet_device}, 0);
- network::tools::start_interface($net->{adsl}{ethernet_device}, 0);
- }
- network::tools::start_net_interface($net, 0);
- }
+ #- FIXME: move this in network::tools::restart_net_interface
+ network::tools::stop_net_interface($net, 0);
+ if (exists $net->{adsl}{ethernet_device}) {
+ network::tools::stop_interface($net->{adsl}{ethernet_device}, 0);
+ network::tools::start_interface($net->{adsl}{ethernet_device}, 0);
+ }
+ network::tools::start_net_interface($net, 0);
+ }
+ #- FIXME: check for connection here
+ #- check for real interface in connection test
+ #- don't block when checking connection
+ #- return "after_connect" (old "disconnect" step)
return "end";
};
@@ -174,6 +181,7 @@ sub real_main {
$net->{type} eq 'adsl' and network::adsl::adsl_conf_backend($in, $modules_conf, $net);
network::network::configure_network($net, $in, $modules_conf);
+ #- FIXME: always run "ask_connect_now"
return $offer_to_connect->();
};