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

port_test.pl operates faster; toggles ports

Browse Source
This commit is contained in:
Jed Reynolds
2018-08-10 17:44:53 -07:00
parent 0420987952
commit 31fd775bad
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
json/port_test.pl
View File

@@ -76,7 +76,7 @@ for my $rh_alias_link (@$ra_alias_links) {
&& ($rh_alias_link->{'alias'} =~m{^wiphy}));
}
logg("\nDestroying these: ");
print Dumper(@destroy_me);
#print Dumper(@destroy_me);
for my $rh_target (@destroy_me) {
my $alias = $rh_target->{'alias'};
my @hunks = split(/[\/]/, $rh_target->{'uri'});
@@ -125,7 +125,7 @@ for $rh_radio (@radios) {
#print Dumper($rh_data);
logg(" $radio_name/sta$i ");
json_post("/cli-json/add_sta", $rh_data);
sleep 0.051;
sleep 0.021;
}
}
sleep 1;
@@ -145,7 +145,7 @@ for $rh_radio (@radios) {
};
# TODO: create JsonUtils::set_dhcp($eid, $alias, $on_off)
json_post("/cli-json/set_port", $rh_data);
sleep 0.051;
sleep 0.021;
}
}
sleep 1;
@@ -157,7 +157,6 @@ for $uri (@$ra_links) {
push( @$ra_alias_links, @{get_port_names($rh, 'interfaces')});
push(@links2, @{get_links_from($rh, 'interfaces')});
}
exit;
# ports down
my $set_port = "/cli-json/set_port";