diff options
| -rw-r--r-- | perl-install/standalone/net_applet | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index e73ab49fe..8d78aba41 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -207,7 +207,6 @@ sub checkWireless() { $wireless_networks{$_}{menuitem}->visible(exists $networks->{$_}) foreach keys %wireless_networks; } sub checkNetwork() { - checkWireless(); my ($gw_intf, $_is_up, $gw_address) = $watched_interface ? ($watched_interface, network::tools::get_interface_status($watched_interface)) : network::tools::get_internet_connection($net); @@ -217,13 +216,16 @@ sub checkNetworkForce() { $net = {}; network::network::read_net_conf($net); undef $current_state; + checkWireless(); checkNetwork(); } sub cronNetwork() { + my $i; $timeout = Glib::Timeout->add(2000, sub { - checkNetwork(); - 1; - }); + checkWireless() if !($i++%10); + checkNetwork(); + 1; + }); } sub cronUpdate() { my $current_md5 = common::md5file($0); |