summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-14 18:22:38 +0000
committerdamien <damien@mandriva.com>2001-04-14 18:22:38 +0000
commit55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f (patch)
treebd01e59f58810d5115bf278b73a025094f1296cc /perl-install
parent8c2d11a405922f712021f97e3b1f7e9dbdaaea0d (diff)
downloaddrakx-backup-do-not-use-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar
drakx-backup-do-not-use-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.gz
drakx-backup-do-not-use-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.bz2
drakx-backup-do-not-use-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.xz
drakx-backup-do-not-use-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.zip
wait 10 sec, instead of 7
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet4
-rwxr-xr-xperl-install/standalone/net_monitor2
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 823edf584..99a2a8f9a 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -191,7 +191,7 @@ $button2->signal_connect (clicked => sub {
$l->set(_("Starting your connection..."));
Gtk->main_iteration while Gtk->events_pending;
netconnect::connect_backend($prefix);
- sleep 5;
+ foreach (1..10) { Gtk->main_iteration while Gtk->events_pending; sleep 1; }
my $up=netconnect::connected($prefix, $netc);
$l->set($up ? _("The system is now connected to Internet.") : _("The system doesn't seem to be connected to internet.
Try to reconfigure your connection."));
@@ -199,7 +199,7 @@ Try to reconfigure your connection."));
$l->set(_("Closing your connection..."));
Gtk->main_iteration while Gtk->events_pending;
netconnect::disconnect_backend($prefix);
- sleep 5;
+ foreach (1..10) { Gtk->main_iteration while Gtk->events_pending; sleep 1; }
my $up=netconnect::connected($prefix, $netc);
$l->set($up ? _("The connection is not closed.
Try to do it manually by running
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index e04bf4bc5..2aebf3855 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -107,7 +107,7 @@ sub connection {
1;
});
my $netc = {};
- my $tag2 = Gtk->timeout_add(7000, sub {
+ my $tag2 = Gtk->timeout_add(10000, sub {
Gtk->timeout_remove($tag);
$statusbar->pop(1);
$statusbar->push(1, $isconnected2 ? ( netconnect::connected('', $netc) ?