scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-30 18:27:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

port_test.pl can now use JsonUtils.pm

Browse Source
This commit is contained in:
Jed Reynolds
2018-08-08 18:13:49 -07:00
parent a3a98cda0e
commit 694adc4071
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
json/port_test.pl
View File

@@ -16,7 +16,7 @@ use LWP::UserAgent;
use Data::Dumper; use Data::Dumper;
use JSON; use JSON;
use lib '/home/lanforge/scripts'; use lib '/home/lanforge/scripts';
use LANforge::JsonUtils; use LANforge::JsonUtils qw(logg err json_request get_links_from);
package main; package main;
# Default values for ye ole cmd-line args. # Default values for ye ole cmd-line args.
@@ -28,6 +28,9 @@ our $HostUri = "http://$Host:$Port";
our $Web = LWP::UserAgent->new; our $Web = LWP::UserAgent->new;
our $Decoder = JSON->new->utf8; our $Decoder = JSON->new->utf8;
my $usage = qq("$0 --host {ip or hostname} # connect to this
--port {port number} # defaults to 8080
);
## ##
@@ -37,9 +40,10 @@ our $Decoder = JSON->new->utf8;
GetOptions GetOptions
( (
'host=s' => \$::Host, 'host=s' => \$::Host,
'port=i' => \$::Port,
) || (print($usage) && exit(1)); ) || (print($usage) && exit(1));
"http://$Host:$Port"; $::HostUri = "http://$Host:$Port";
my $uri = "/shelf/1"; my $uri = "/shelf/1";
my $rh = json_request($uri); my $rh = json_request($uri);
@@ -59,4 +63,4 @@ for $uri (@$ra_links) {
} }
} }
# #