diff options
| author | damien <damien@mandriva.com> | 2001-04-14 18:22:38 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-14 18:22:38 +0000 |
| commit | 55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f (patch) | |
| tree | bd01e59f58810d5115bf278b73a025094f1296cc /perl-install | |
| parent | 8c2d11a405922f712021f97e3b1f7e9dbdaaea0d (diff) | |
| download | drakx-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-x | perl-install/standalone/draknet | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/net_monitor | 2 |
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) ? |