mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-31 02:38:03 +00:00
d824eb2e66
The 'use lib' logic happens in the pre-compile stage, so one cannot use normal 'if' logic to use a particular INC. Instead, just make sure that best dir is added to 'use lib' last since it prepends to INC.
63 lines
1.3 KiB
Perl
Executable File
63 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use diagnostics;
|
|
use Carp;
|
|
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
|
|
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
|
|
|
|
# Un-buffer output
|
|
$| = 1;
|
|
use Getopt::Long;
|
|
use JSON::XS;
|
|
use HTTP::Request;
|
|
use LWP;
|
|
use LWP::UserAgent;
|
|
use Data::Dumper;
|
|
use JSON;
|
|
use lib '/home/lanforge/scripts';
|
|
use lib "../";
|
|
use lib "./";
|
|
use LANforge::JsonUtils qw(err logg xpand json_request);
|
|
|
|
|
|
package main;
|
|
# Default values for ye ole cmd-line args.
|
|
our $Resource = 1;
|
|
our $quiet = "yes";
|
|
our $Host = "localhost";
|
|
our $Port = 8080;
|
|
our $HostUri = "http://$Host:$Port";
|
|
our $Web = LWP::UserAgent->new;
|
|
our $Decoder = JSON->new->utf8;
|
|
|
|
my $usage = qq($0: --host [hostname] # hostname or IP to query
|
|
--port [port] # port like 8080
|
|
);
|
|
|
|
##
|
|
## M A I N
|
|
##
|
|
GetOptions
|
|
(
|
|
'port=i' => \$::Port,
|
|
'host=s' => \$::Host,
|
|
) || (print($usage) && exit(1));
|
|
|
|
$HostUri = "http://$Host:$Port";
|
|
|
|
my $uri = "/port/1/1/list";
|
|
my $rh = json_request($uri);
|
|
#print Dumper($rh->{interfaces});
|
|
for my $rh_e (@{$rh->{interfaces}}) {
|
|
my @keys = keys(%$rh_e);
|
|
my $rh_val = $rh_e->{$keys[0]};
|
|
next if ($keys[0] !~ /sta/);
|
|
my $resp = json_request($rh_val->{_links}."?fields=alias,port,mode");
|
|
print Dumper($resp->{interface});
|
|
sleep 0.1;
|
|
}
|
|
|
|
#
|