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

prints errors

Browse Source
This commit is contained in:
Jed Reynolds
2018-09-12 17:34:51 -07:00
parent 1408178931
commit e0930f7506
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
json/port_test.pl
View File

@@ -70,10 +70,10 @@ my @radios = ();
my @destroy_me = (); my @destroy_me = ();
for my $rh_alias_link (@$ra_alias_links) { for my $rh_alias_link (@$ra_alias_links) {
push(@destroy_me, $rh_alias_link) push(@destroy_me, $rh_alias_link)
if (($rh_alias_link->{'uri'} =~m{^/port/1/[3678]/}) if (($rh_alias_link->{'uri'} =~m{^/port/1/[3]/})
&& ($rh_alias_link->{'alias'} =~m{^sta})); && ($rh_alias_link->{'alias'} =~m{^sta}));
push(@radios, $rh_alias_link) push(@radios, $rh_alias_link)
if (($rh_alias_link->{'uri'} =~m{^/port/1/[3678]/}) if (($rh_alias_link->{'uri'} =~m{^/port/1/[3]/})
&& ($rh_alias_link->{'alias'} =~m{^wiphy})); && ($rh_alias_link->{'alias'} =~m{^wiphy}));
} }
logg("\nDestroying these: "); logg("\nDestroying these: ");
@@ -118,6 +118,7 @@ for $rh_radio (@radios) {
$radio_name = $rh_radio->{'alias'}; $radio_name = $rh_radio->{'alias'};
my @hunks = split(/[\/]/, $rh_radio->{'uri'}); my @hunks = split(/[\/]/, $rh_radio->{'uri'});
($radio_num) = $radio_name =~ /wiphy(\d+)/; ($radio_num) = $radio_name =~ /wiphy(\d+)/;
next if ($radio_num < 2);
$resource = $hunks[3]; $resource = $hunks[3];
$range = ($resource * 1000) + ($radio_num * 100); $range = ($resource * 1000) + ($radio_num * 100);
logg("\n/cli-json/add_sta = "); logg("\n/cli-json/add_sta = ");
@@ -140,7 +141,14 @@ for $rh_radio (@radios) {
#print Dumper($rh_data); #print Dumper($rh_data);
logg("1/$resource/$radio_name -> sta$radio_counter"); logg("1/$resource/$radio_name -> sta$radio_counter");
my $rh_response = json_post("/cli-json/add_sta", $rh_data); my $rh_response = json_post("/cli-json/add_sta", $rh_data);
print Dumper($rh_response); print Dumper($rh_response)
if ( defined $rh_response->{"Resource"}
&& defined $rh_response->{"Resource"}->{"warnings"});
print Dumper($rh_response)
if ( defined $rh_response->{"errors"}
|| defined $rh_response->{"error_list"});
usleep(10000); usleep(10000);
$radio_counter +=1; $radio_counter +=1;
} }
@@ -151,6 +159,8 @@ sleep 2;
for $rh_radio (@radios) { for $rh_radio (@radios) {
$radio_name = $rh_radio->{'alias'}; $radio_name = $rh_radio->{'alias'};
my @hunks = split(/[\/]/, $rh_radio->{'uri'}); my @hunks = split(/[\/]/, $rh_radio->{'uri'});
($radio_num) = $radio_name =~ /wiphy(\d+)/;
next if ($radio_num < 2);
$resource = $hunks[3]; $resource = $hunks[3];
$range = ($resource * 1000) + ($radio_num * 100); $range = ($resource * 1000) + ($radio_num * 100);
$radio_counter = 0; $radio_counter = 0;
@@ -166,7 +176,7 @@ for $rh_radio (@radios) {
}; };
# TODO: create JsonUtils::set_dhcp($eid, $alias, $on_off) # TODO: create JsonUtils::set_dhcp($eid, $alias, $on_off)
my $rh_response = json_post("/cli-json/set_port", $rh_data); my $rh_response = json_post("/cli-json/set_port", $rh_data);
print Dumper($rh_response); #print Dumper($rh_response);
$radio_counter+=1; $radio_counter+=1;
usleep(21000); usleep(21000);
} }