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

JsonUtils: adds some error and warning checks

Browse Source
This commit is contained in:
Jed Reynolds
2018-09-13 18:52:46 -07:00
parent e774089dfc
commit 9d5d78498d
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LANforge/JsonUtils.pm
View File

@@ -15,6 +15,7 @@ use HTTP::Request;
use LWP; use LWP;
use LWP::UserAgent; use LWP::UserAgent;
use JSON; use JSON;
use Data::Dumper;
if (defined $ENV{'DEBUG'}) { if (defined $ENV{'DEBUG'}) {
use Data::Dumper; use Data::Dumper;
@@ -88,7 +89,15 @@ sub json_post {
} }
return {}; return {};
} }
return $::Decoder->decode($response->content); my $rh_response = $::Decoder->decode($response->content);
print Dumper($rh_response)
if ( defined $rh_response->{"Resource"}
&& defined $rh_response->{"Resource"}->{"warnings"});
print Dumper($rh_response)
if ( defined $rh_response->{"errors"}
|| defined $rh_response->{"error_list"});
return $rh_response;
} }
sub get_port_names { sub get_port_names {