diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-04-21 17:53:18 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-04-21 17:53:18 +0000 |
| commit | 92e8dd248fc64a6f80bf3f49444d5ded338bdda7 (patch) | |
| tree | 3ea8cc7810f1aa24851de05fb9ae3d0d20a3e934 /perl-install/standalone/drakroam | |
| parent | 19bf9b1233659a287639f0c98f1db92eed80c6c2 (diff) | |
| download | drakx-backup-do-not-use-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar drakx-backup-do-not-use-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.gz drakx-backup-do-not-use-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.bz2 drakx-backup-do-not-use-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.tar.xz drakx-backup-do-not-use-92e8dd248fc64a6f80bf3f49444d5ded338bdda7.zip | |
fix Signal Quality parsing (and re-indent)
Diffstat (limited to 'perl-install/standalone/drakroam')
| -rwxr-xr-x | perl-install/standalone/drakroam | 6 |
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; |