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

lf_associate_ap: adds --bssid option for associating a station with specific AP

Browse Source
This commit is contained in:
Jed Reynolds
2018-01-25 14:12:00 -08:00
parent a2526aeb5a
commit 62f80b0aae
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lf_associate_ap.pl
View File

@@ -140,6 +140,7 @@ our %wifi_modes = (
"an" => "10", "an" => "10",
); );
our $wifi_mode =""; our $wifi_mode ="";
our $bssid = "";
my $mode_list = join("|", sort keys %wifi_modes); my $mode_list = join("|", sort keys %wifi_modes);
my $usage = qq($0 [--mgr {host-name | IP}] my $usage = qq($0 [--mgr {host-name | IP}]
[--mgr_port {ip port}] # use if on non-default management port [--mgr_port {ip port}] # use if on non-default management port
@@ -150,6 +151,7 @@ my $usage = qq($0 [--mgr {host-name | IP}]
## AP selection ## AP selection
[--radio {name}] # e.g. wiphy2 [--radio {name}] # e.g. wiphy2
[--ssid {ssid}] # e.g. jedtest [--ssid {ssid}] # e.g. jedtest
[--bssid {aa:bb:cc:00:11:22} # AP BSSID to connect to
[--security {open|wep|wpa|wpa2}] # station authentication type, Default is open [--security {open|wep|wpa|wpa2}] # station authentication type, Default is open
[--xsec {comma,separated,list} ] # dot1x, 11u, other features, read script [--xsec {comma,separated,list} ] # dot1x, 11u, other features, read script
[--passphrase {...}] # implies wpa2 if --security not set [--passphrase {...}] # implies wpa2 if --security not set
@@ -407,14 +409,14 @@ sub get_radio_bssid {
die ("::get_radio_bssid: failed to find radio bssid, no MAC lines") die ("::get_radio_bssid: failed to find radio bssid, no MAC lines")
if (@mac_lines < 1); if (@mac_lines < 1);
my ($bssid) = $mac_lines[0] =~ / MAC: ([^ ]+)/; my ($parent_bssid) = $mac_lines[0] =~ / MAC: ([^ ]+)/;
die ("::get_radio_bssid: failed to find radio bssid, MAC was empty") die ("::get_radio_bssid: failed to find radio bssid, MAC was empty")
if ($bssid eq ""); if ($parent_bssid eq "");
$::wiphy_bssids{ $radio_name } = $bssid; $::wiphy_bssids{ $radio_name } = $parent_bssid;
#print $bssid."\n"; #print $parent_bssid."\n";
return $bssid; return $parent_bssid;
} }
sub new_mac_from_pattern { sub new_mac_from_pattern {
@@ -488,10 +490,13 @@ sub get_port_id {
} }
sub fmt_vsta_cmd { sub fmt_vsta_cmd {
my ($resource, $sta_wiphy, $sta_name, $flags, $ssid, $passphrase, $mac, $flags_mask, $wifi_m ) = @_; my ($resource, $sta_wiphy, $sta_name, $flags, $ssid, $passphrase, $mac, $flags_mask, $wifi_m, $bssid ) = @_;
die("fmt_vsta_cmd wants sta_wiphy name, bye.") unless($sta_wiphy); die("fmt_vsta_cmd wants sta_wiphy name, bye.") unless($sta_wiphy);
my $key = "[BLANK]"; my $key = "[BLANK]";
my $ap = "AUTO"; my $ap = "AUTO";
if ((defined $bssid) && ($bssid ne "")) {
$ap = $bssid;
}
my $cfg_file = "NA"; my $cfg_file = "NA";
my $mode = 8; # default to a/b/g/n/AC my $mode = 8; # default to a/b/g/n/AC
my $rate = "NA"; my $rate = "NA";
@@ -739,7 +744,7 @@ sub new_wifi_station {
# perform the station create first, then assign IP as necessary # perform the station create first, then assign IP as necessary
my $sta1_cmd = fmt_vsta_cmd($::resource, $::sta_wiphy, $sta_name, my $sta1_cmd = fmt_vsta_cmd($::resource, $::sta_wiphy, $sta_name,
"$flags", "$::ssid", "$::passphrase", "$flags", "$::ssid", "$::passphrase",
$mac_addr, "$flagsmask", $wifi_m); $mac_addr, "$flagsmask", $wifi_m, $::bssid);
doCmd($sta1_cmd); doCmd($sta1_cmd);
$sta1_cmd = fmt_port_cmd($resource, $sta_name, $ip_addr, $mac_addr); $sta1_cmd = fmt_port_cmd($resource, $sta_name, $ip_addr, $mac_addr);
doCmd($sta1_cmd); doCmd($sta1_cmd);
@@ -1508,6 +1513,7 @@ GetOptions
'db_postload=s' => \$::db_postload, 'db_postload=s' => \$::db_postload,
'poll_time|poll-time=i' => \$::poll_time, 'poll_time|poll-time=i' => \$::poll_time,
'wifi_mode|mode=s' => \$::wifi_mode, 'wifi_mode|mode=s' => \$::wifi_mode,
'bssid=s' => \$::bssid,
'traffic_type=s' => \$::traffic_type, 'traffic_type=s' => \$::traffic_type,
'vrad_chan=i' => \$::vrad_chan, 'vrad_chan=i' => \$::vrad_chan,
'port_del=s' => \$::port_del, 'port_del=s' => \$::port_del,