diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-09-19 17:50:01 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-09-19 17:50:01 +0000 |
| commit | 4dd83a6702936c11becfbea813251fdfb4bb3fc6 (patch) | |
| tree | 7894f617cddf7ce94e8f9c4131287fc18eddc921 /perl-install | |
| parent | b2a0c11f01b1a4b7545d1d8f72afefca1e457db2 (diff) | |
| download | drakx-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.pm | 30 |
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->(); }; |