summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/net_applet10
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);