summaryrefslogtreecommitdiffstats
path: root/lib/network/netconnect.pm
diff options
context:
space:
mode:
authorEugeni Dodonov <eugeni@mandriva.org>2009-03-31 13:35:02 +0000
committerEugeni Dodonov <eugeni@mandriva.org>2009-03-31 13:35:02 +0000
commitdd3a02e69cae446586aa33c299c64b1f5a92cd37 (patch)
tree8343229bfaf7ea5ae82b6bfca39ffe89a2208b30 /lib/network/netconnect.pm
parent0469582dd658a8f7f69a4476e506b54f20cd95a7 (diff)
downloaddrakx-net-dd3a02e69cae446586aa33c299c64b1f5a92cd37.tar
drakx-net-dd3a02e69cae446586aa33c299c64b1f5a92cd37.tar.gz
drakx-net-dd3a02e69cae446586aa33c299c64b1f5a92cd37.tar.bz2
drakx-net-dd3a02e69cae446586aa33c299c64b1f5a92cd37.tar.xz
drakx-net-dd3a02e69cae446586aa33c299c64b1f5a92cd37.zip
Verify possible causes of network connection failures (#20684).
Diffstat (limited to 'lib/network/netconnect.pm')
-rw-r--r--lib/network/netconnect.pm22
1 files changed, 14 insertions, 8 deletions
diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm
index 74ca21d..25ab100 100644
--- a/lib/network/netconnect.pm
+++ b/lib/network/netconnect.pm
@@ -59,6 +59,7 @@ sub real_main {
my ($isdn, $isdn_name, $isdn_type, %isdn_cards, @isdn_dial_methods);
my $my_isdn = join('', N("Manual choice"), " (", N("Internal ISDN card"), ")");
my $success = 1;
+ my $has_internet = 1;
my $db_path = "/usr/share/apps/kppp/Provider";
my (%countries, @isp, $country, $provider, $old_provider);
@@ -311,8 +312,8 @@ If you do not know it, keep the preselected protocol.") },
#- FIXME: should use network::test for ppp (after future merge with network::connection)
#- or start interface synchronously
services::start('network-up') unless $::isInstall;
- my $up = network::tools::connected();
- $success = $up;
+ $success = $connection->get_status();
+ $has_internet = network::tools::connected();
}
"end"; #- handle disconnection in install?
},
@@ -749,12 +750,17 @@ Try to reconfigure your connection.");
end =>
{
name => sub {
- return $success ? join('', N("Congratulations, the network and Internet configuration is finished.
-
-"), if_($::isStandalone && $in->isa('interactive::gtk'),
- N("After this is done, we recommend that you restart your X environment to avoid any hostname-related problems."))) :
- N("Problems occurred during configuration.
-Test your connection via net_monitor or mcc. If your connection does not work, you might want to relaunch the configuration.");
+ if (!$success) {
+ return join("\n\n", N("Problems occured during the network connectivity test."),
+ N("This can be caused by invalid network configuration, or problems with your modem or router."),
+ N("You might want to relaunch the configuration to verify the connection settings."));
+ }
+ if (!$has_internet) {
+ return join("\n\n", N("Congratulations, the network configuration is finished."), N("However, the Internet connectivity test failed. You should test your connection manually, and verify your Internet modem or router."),
+ N("If your connection does not work, you might want to relaunch the configuration."));
+ }
+ return join("\n\n", N("Congratulations, the network and Internet configuration is finished."), if_($::isStandalone && $in->isa('interactive::gtk'),
+ N("After this is done, we recommend that you restart your X environment to avoid any hostname-related problems.")));
},
end => 1,
},