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

Fixes renamed flag, changes default resource

Browse Source
This commit is contained in:
Jed Reynolds
2019-10-14 10:02:47 -07:00
parent a4041a11c9
commit 3fac8cce0b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
json/check_ports.pl
View File

@@ -46,7 +46,7 @@ GetOptions
$::HostUri = "http://$Host:$Port";
my $rh_update = {
'shelf'=>1, 'resource'=>3, 'port'=>'all', 'flags'=>'0x1'
'shelf'=>1, 'resource'=>1, 'port'=>'all', 'probe_flags'=>'0x9'
};
my $uri = "/shelf/1";
my $rh = json_request($uri);
@@ -59,7 +59,7 @@ my $rh_response = json_post("/cli-json/nc_show_ports", $rh_update);
# wait on ports up
my $ports_still_down = 1;
while ($ports_still_down > 0) {
$rh = json_request("/port/1/3/list?fields=_links,port,device,down");
$rh = json_request("/port/1/1/list?fields=_links,port,device,down");
flatten_list($rh, 'interfaces');
$ports_still_down=0;
for my $rh_p (values %{$rh->{'flat_list'}}) {
@@ -73,4 +73,4 @@ while ($ports_still_down > 0) {
sleep 1;
}
#
#