diff options
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); |