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 down test

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-12 16:41:02 -07:00
parent c1e1460d57
commit 60229d1c90
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
json/l4_test.pl
View File

@@ -36,7 +36,7 @@ my $usage = qq("$0 --host {ip or hostname} # connect to this
--port {port number} # defaults to 8080
);
my $des_resource = 3;
my $des_resource = 6;
#my $pat_port_type = '^eth\d[#]\d+';
my $pat_port_type = '^sta\d+';
##
@@ -65,7 +65,8 @@ $uri = "/port/1/${des_resource}/list?fields=alias,device,down,phantom,port";
$rh = json_request($uri);
flatten_list($rh, 'interfaces');
for my $rh_p (keys %{$rh->{'flat_list'}}) {
if (!$rh->{'flat_list'}->{$rh_p}->{'down'}) {
print " down? $rh->{'flat_list'}->{$rh_p}->{'down'} ";
if ($rh->{'flat_list'}->{$rh_p}->{'down'} eq "false") {
push(@ports_up, $rh_p);
}
}