From 59b3c09f140c70004a6f76ee80b40faf1088a553 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 14 May 2008 13:19:52 +0000 Subject: rewrite for next commit --- lib/network/monitor.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/network/monitor.pm') diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm index 40ebd12..6350cab 100644 --- a/lib/network/monitor.pm +++ b/lib/network/monitor.pm @@ -84,11 +84,15 @@ sub list_wireless { /Mode:(\S*)/ and $net->{mode} = $1; $net->{mode} = 'Managed' if $net->{mode} eq 'Master'; $_ =~ $quality_match and $net->{signal_strength} = $eval_quality->($1); - m|Signal level[:=]([0-9]+/[0-9]+)| && !$net->{signal_strength} and $net->{signal_strength} = $eval_quality->($1); + m|Signal level[:=]([0-9]+/[0-9]+)| and $net->{signal_level} = $eval_quality->($1); /key:(\S*)\s/ && $1 eq 'on' and $has_key = 1; /Extra:wpa_ie=|IE:.*WPA/ and $has_wpa = 1; /Authentication Suites \(\d+\) :.*\b802\.1x\b/ and $has_eap = 1; } + foreach (values %networks) { + my $level = delete $_->{signal_level}; + $_->{signal_strength} ||= $level; + } if ($current_ap && exists $networks{$current_ap}) { foreach (`/sbin/iwconfig $o_intf 2>/dev/null`) { my $quality = $_ =~ $quality_match && $eval_quality->($1); -- cgit v1.2.1