From 92e8dd248fc64a6f80bf3f49444d5ded338bdda7 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 21 Apr 2005 17:53:18 +0000 Subject: fix Signal Quality parsing (and re-indent) --- perl-install/standalone/drakroam | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index eed78b96d..a748a0c5c 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -271,7 +271,7 @@ sub UpdateStatus() { /ESSID:"(.*?)"/ and $CurrentNet = $1; /Mode:(\S*)\s/ and $CurrentMode = $1; /key:(\S*)\s/ and $CurrentWEP = $1; - m!Quality:(\S*)/! and $CurrentSignal = $1; + m!Quality[:=](\S*)/! and $CurrentSignal = $1; } foreach (run_program::get_stdout($IFConfig, $device)) { if (/inet addr:(\S*)\s/) { $CurrentIP = $1 } @@ -282,7 +282,7 @@ sub UpdateStatus() { else { $CurrentGW = "---.---.---.---" } } $net_field->set_text($CurrentNet); - $mode_field->set_text($CurrentMode); + $mode_field->set_text($CurrentMode); $ip_field->set_text($CurrentIP); $wep_field->set_text($CurrentWEP); $gw_field->set_text($CurrentGW); @@ -298,7 +298,7 @@ sub UpdateAvailable() { /([^ ]+)([ \t]+)No scan results/ and $device = $1; /ESSID:"(.*?)"/ and $essid = $1; /Mode:(\S*)/ and $mode = $1; - m!Quality:(\S*)/! and $signal = $1; + m!Quality[:=](\S*)/! and $signal = $1; if (/key:(\S*)\s/) { $wep = $1; print "ESSID: $essid, Mode: $mode, WEP: $wep, Signal: $signal\n" if $::testing; -- cgit v1.2.1