scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-02 11:48:03 +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 ## M A I N
## ##
@@ -72,13 +74,13 @@ my @radios = ();
my @destroy_me = (); my @destroy_me = ();
for my $rh_alias_link (@$ra_alias_links) { for my $rh_alias_link (@$ra_alias_links) {
for my $rh_link (@$rh_alias_link) { 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})) { && ($rh_link->{'device'} =~m{^sta})) {
push(@destroy_me, $rh_link); push(@destroy_me, $rh_link);
} }
push(@radios, $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})); && ($rh_link->{'device'} =~m{^wiphy}));
} }
} }
@@ -100,13 +102,13 @@ for my $rh_target (@destroy_me) {
usleep (15000); usleep (15000);
} }
my $rh_update = { my $rh_update = {
'shelf'=>1, 'resource'=>3, 'port'=>'all', 'probe_flags'=>'0x1' 'shelf'=>1, 'resource'=>$des_resource, 'port'=>'all', 'probe_flags'=>'0x1'
}; };
logg("\nRefreshing: "); logg("\nRefreshing: ");
my $rh_response = json_post("/cli-json/nc_show_ports", $rh_update); my $rh_response = json_post("/cli-json/nc_show_ports", $rh_update);
my $remaining = 1; my $remaining = 1;
while ($remaining > 0) { while ($remaining > 0) {
$rh = json_request("/port/1/3/list"); $rh = json_request("/port/1/$des_resource/list");
flatten_list($rh, 'interfaces'); flatten_list($rh, 'interfaces');
$remaining = 0; $remaining = 0;
for my $name (keys %{$rh->{'flat_list'}}) { for my $name (keys %{$rh->{'flat_list'}}) {
@@ -129,7 +131,6 @@ my $rh_radio;
my $radio_name; my $radio_name;
my $resource; my $resource;
my $range; my $range;
my $num_sta = 160;
my $radio_num; my $radio_num;
my $radio_counter = 0; my $radio_counter = 0;
$rh_response = json_post("/cli-json/nc_show_ports", $rh_update); $rh_response = json_post("/cli-json/nc_show_ports", $rh_update);