summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-10 04:19:49 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-10 04:19:49 +0000
commit67376ed2a30600ffde62df3c5342da9ba0f8ecff (patch)
tree99ac2809abfe5353fba90e5b40ba3a5119182a9e /perl-install
parent2e57852e59cc525876554f69855bdaf6624b5e81 (diff)
downloaddrakx-67376ed2a30600ffde62df3c5342da9ba0f8ecff.tar
drakx-67376ed2a30600ffde62df3c5342da9ba0f8ecff.tar.gz
drakx-67376ed2a30600ffde62df3c5342da9ba0f8ecff.tar.bz2
drakx-67376ed2a30600ffde62df3c5342da9ba0f8ecff.tar.xz
drakx-67376ed2a30600ffde62df3c5342da9ba0f8ecff.zip
(configure_net) use network::test to test internet connection
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect19
1 files changed, 18 insertions, 1 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 3d5099f2a..cf6fc22bc 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -39,6 +39,7 @@ use modules;
use network::isdn;
use network::adsl;
use network::tools;
+use network::test;
use MDK::Common::Globals "network", qw($in);
use POSIX ":sys_wait_h";
@@ -799,6 +800,21 @@ sub update2() {
1;
}
+
+my $net_test;
+sub update_network_status() {
+ unless ($net_test) {
+ $net_test = network::test->new;
+ $net_test->start;
+ }
+ if ($net_test->is_done) {
+ $isconnected = $net_test->is_connected;
+ update_intbutt();
+ $net_test->start;
+ }
+ 1;
+}
+
sub quit_global() {
ugtk2->exit(0);
}
@@ -1021,7 +1037,8 @@ Run the \"Add Connection\" assistant from the Mandrakelinux Control Center"));
);
$dialog->{rwindow}->show_all;
- Glib::Timeout->add(200, \&update_intbutt);
+ update_network_status();
+ Glib::Timeout->add(2000, \&update_network_status);
$dialog->main;
ugtk2->exit(0);
}