summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-08-30 09:33:47 +0000
committerOlivier Blin <oblin@mandriva.org>2005-08-30 09:33:47 +0000
commit364ae96afa04d894cb820d1e7376d61ce0d5e3e3 (patch)
tree226af10fd6fe3c4fbb13be3c782f03301030c77a /perl-install
parent01da8ef85f8ac07fe5f320ce6739c990986fd7a4 (diff)
downloaddrakx-364ae96afa04d894cb820d1e7376d61ce0d5e3e3.tar
drakx-364ae96afa04d894cb820d1e7376d61ce0d5e3e3.tar.gz
drakx-364ae96afa04d894cb820d1e7376d61ce0d5e3e3.tar.bz2
drakx-364ae96afa04d894cb820d1e7376d61ce0d5e3e3.tar.xz
drakx-364ae96afa04d894cb820d1e7376d61ce0d5e3e3.zip
check wireless every 20 seconds only
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);