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

port_test now points at resource 6, variable introduced

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-05 15:03:10 -07:00
parent ad2dd72b13
commit b7677c580a
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
json/port_test.pl
View File

@@ -34,6 +34,8 @@ my $usage = qq("$0 --host {ip or hostname} # connect to this
);
my $num_sta = 30;
my $des_resource = 6;
##
## M A I N
##
@@ -72,13 +74,13 @@ my @radios = ();
my @destroy_me = ();
for my $rh_alias_link (@$ra_alias_links) {
for my $rh_link (@$rh_alias_link) {
if ( ($rh_link->{'uri'} =~m{^/port/1/[3]/})
if ( ($rh_link->{'uri'} =~m{^/port/1/$des_resource/})
&& ($rh_link->{'device'} =~m{^sta})) {
push(@destroy_me, $rh_link);
}
push(@radios, $rh_link)
if (($rh_link->{'uri'} =~m{^/port/1/[3]/})
if (($rh_link->{'uri'} =~m{^/port/1/$des_resource/})
&& ($rh_link->{'device'} =~m{^wiphy}));
}
}
@@ -100,13 +102,13 @@ for my $rh_target (@destroy_me) {
usleep (15000);
}
my $rh_update = {
'shelf'=>1, 'resource'=>3, 'port'=>'all', 'probe_flags'=>'0x1'
'shelf'=>1, 'resource'=>$des_resource, 'port'=>'all', 'probe_flags'=>'0x1'
};
logg("\nRefreshing: ");
my $rh_response = json_post("/cli-json/nc_show_ports", $rh_update);
my $remaining = 1;
while ($remaining > 0) {
$rh = json_request("/port/1/3/list");
$rh = json_request("/port/1/$des_resource/list");
flatten_list($rh, 'interfaces');
$remaining = 0;
for my $name (keys %{$rh->{'flat_list'}}) {
@@ -129,7 +131,6 @@ my $rh_radio;
my $radio_name;
my $resource;
my $range;
my $num_sta = 160;
my $radio_num;
my $radio_counter = 0;
$rh_response = json_post("/cli-json/nc_show_ports", $rh_update);