From 16d600d0009a680ee936c749cbbe155bb1c17dc8 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 10 Aug 2005 09:00:49 +0000
Subject: compute approx_level in network::monitor::list_wireless

---
 perl-install/network/monitor.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/network')

diff --git a/perl-install/network/monitor.pm b/perl-install/network/monitor.pm
index 08fc4c971..eea814bc8 100644
--- a/perl-install/network/monitor.pm
+++ b/perl-install/network/monitor.pm
@@ -22,6 +22,7 @@ sub list_wireless {
     #- bssid / frequency / signal level / flags / ssid
     while ($results =~ /^((?:[0-9a-f]{2}:){5}[0-9a-f]{2})\t(\d+)\t(\d+)\t(.*?)\t(.*)$/mg) {
         $networks{$1} = { frequency => $2, signal_level => $3, flags => $4, ssid => $5 };
+        $networks{$1}{approx_level} = 20 + min(80, int($3/20)*20);
     }
     my $list;
     eval { $list = $o->call_method('ListNetworks') };
-- 
cgit v1.2.1