summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakroam
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-21 17:53:18 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-21 17:53:18 +0000
commit92e8dd248fc64a6f80bf3f49444d5ded338bdda7 (patch)
tree3ea8cc7810f1aa24851de05fb9ae3d0d20a3e934 /perl-install/standalone/drakroam
parent19bf9b1233659a287639f0c98f1db92eed80c6c2 (diff)
downloaddrakx-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar
drakx-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.gz
drakx-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.bz2
drakx-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.xz
drakx-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.zip
fix Signal Quality parsing (and re-indent)
Diffstat (limited to 'perl-install/standalone/drakroam')
-rwxr-xr-xperl-install/standalone/drakroam6
1 files changed, 3 insertions, 3 deletions
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;