diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 05:17:37 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 05:17:37 +0000 |
| commit | 000fe3446838902ebad4f5c972434b8ce4340eac (patch) | |
| tree | 24ed73ad6e7a770609ba8ec1975347ac9dbbfa99 /perl-install | |
| parent | 7e8109ce421a9280640998d379c7ba748f8dd91b (diff) | |
| download | drakx-backup-do-not-use-000fe3446838902ebad4f5c972434b8ce4340eac.tar drakx-backup-do-not-use-000fe3446838902ebad4f5c972434b8ce4340eac.tar.gz drakx-backup-do-not-use-000fe3446838902ebad4f5c972434b8ce4340eac.tar.bz2 drakx-backup-do-not-use-000fe3446838902ebad4f5c972434b8ce4340eac.tar.xz drakx-backup-do-not-use-000fe3446838902ebad4f5c972434b8ce4340eac.zip | |
(UpdateAvailable) probably better
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 6707bf001..9cb2641c4 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -190,12 +190,11 @@ sub UpdateAvailable() { print("Running iwlist\n"); open(my $LIST, "$IWList scan 2>/dev/null |") or die("Can't run iwlist"); @{$AvailableList->{data}} = (); - my ($mode, $wep, $signal); + my ($mode, $wep, $signal, $essid); local $_; while (<$LIST>) { if (/([^ ]+)([ \t]+)Scan completed :/) { $device = $1 } elsif (/([^ ]+)([ \t]+)No scan results/) { $device = $1 } - my $essid; if (/ESSID:"(\S*)"/) { $essid = $1; print("Found $essid.\n"); |