scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 10:48:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

lf_associate_ap: removes debugging exit; fixes setting channel that was overridden by setting any frequency mode

Browse Source
This commit is contained in:
Jed Reynolds
2019-05-08 15:06:04 -07:00
parent 1ad7972071
commit 0f0cdae695
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lf_associate_ap.pl
View File

@@ -1475,6 +1475,7 @@ sub set_channel {
$mode, $mode,
$chan); $chan);
$::utils->doAsyncCmd($cmd); $::utils->doAsyncCmd($cmd);
sleep 1;
} }
sub set_antenna { sub set_antenna {
@@ -1486,13 +1487,14 @@ sub set_antenna {
die("Antenna mode [$ant] does not exist.") die("Antenna mode [$ant] does not exist.")
if (! exists $::antenna_table{$ant}); if (! exists $::antenna_table{$ant});
my $mode = 'NA'; my $mode = 'NA';
my $chan = 'NA'; my $chan = ((defined $::phy_channel) && ($::phy_channel > 0))
? $::phy_channel : 'NA';
my $country = 'NA'; my $country = 'NA';
my $freq = '0xFFFF'; my $freq = 'NA'; #'0xFFFF' will override channel
my $frag = 'NA'; my $frag = 'NA';
my $rate = 'NA'; my $rate = 'NA';
my $rts = 'NA'; my $rts = 'NA';
my $txpower = 'DEFAULT'; my $txpower = 'NA';
my $mac = 'NA'; my $mac = 'NA';
my $antenna = $::antenna_table{$ant}; my $antenna = $::antenna_table{$ant};
@@ -1510,8 +1512,7 @@ sub set_antenna {
$mac, $mac,
$antenna); $antenna);
$::utils->doAsyncCmd($cmd); $::utils->doAsyncCmd($cmd);
sleep 2; sleep 1;
exit 1;
} }