summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-11 05:17:37 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-11 05:17:37 +0000
commit000fe3446838902ebad4f5c972434b8ce4340eac (patch)
tree24ed73ad6e7a770609ba8ec1975347ac9dbbfa99 /perl-install/standalone
parent7e8109ce421a9280640998d379c7ba748f8dd91b (diff)
downloaddrakx-000fe3446838902ebad4f5c972434b8ce4340eac.tar
drakx-000fe3446838902ebad4f5c972434b8ce4340eac.tar.gz
drakx-000fe3446838902ebad4f5c972434b8ce4340eac.tar.bz2
drakx-000fe3446838902ebad4f5c972434b8ce4340eac.tar.xz
drakx-000fe3446838902ebad4f5c972434b8ce4340eac.zip
(UpdateAvailable) probably better
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakroam3
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");