From 364ae96afa04d894cb820d1e7376d61ce0d5e3e3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 30 Aug 2005 09:33:47 +0000
Subject: check wireless every 20 seconds only

---
 perl-install/standalone/net_applet | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/net_applet')

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);
-- 
cgit v1.2.1