diff options
| author | damien <damien@mandriva.com> | 2001-08-21 15:28:04 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-21 15:28:04 +0000 |
| commit | dc9c46496970ddfea3105adbcdb2e9918b5b77d4 (patch) | |
| tree | 3749528842bbd2190da518e071b12557e159524d /perl-install | |
| parent | d3476c9ec59cb54edbb74f5103212443db7e3ed2 (diff) | |
| download | drakx-backup-do-not-use-dc9c46496970ddfea3105adbcdb2e9918b5b77d4.tar drakx-backup-do-not-use-dc9c46496970ddfea3105adbcdb2e9918b5b77d4.tar.gz drakx-backup-do-not-use-dc9c46496970ddfea3105adbcdb2e9918b5b77d4.tar.bz2 drakx-backup-do-not-use-dc9c46496970ddfea3105adbcdb2e9918b5b77d4.tar.xz drakx-backup-do-not-use-dc9c46496970ddfea3105adbcdb2e9918b5b77d4.zip | |
time connection label
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 9d0985c35..51749dd38 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -76,6 +76,7 @@ my $netcnx = {}; my $netc = {}; my $intf = {}; my $c_time = 0; +my $ct_tag; network::netconnect::load_conf($netcnx, $netc, $intf); network::netconnect::read_net_conf('', $netcnx, $netc); my $combo1 = new Gtk::Combo; @@ -164,6 +165,14 @@ sub connection { $button_close->set_sensitive(0); $statusbar->pop(1); $statusbar->push(1, $isconnected2 ? _("Disconnecting from Internet ") : _("Connecting to Internet ")); + if(!$isconnected2) { + $c_time = time(); + gmtime($_[0]); + $ct_tag = Gtk->timeout_add(1000, sub { + my ($sec,$min,$hour) = gmtime(time() - $c_time); + my $e = sprintf ("%02d:%02d:%02d", $hour, $min, $sec); + $label_ct->set($e); 1; }); + } else { Gtk->timeout_remove($ct_tag) } my $nb_point=1; my $tag = Gtk->timeout_add(100, sub { $statusbar->pop(1); |