From 9d5d78498d14c2b473767c583be3378400a9724e Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jreynolds@candelatech.com>
Date: Thu, 13 Sep 2018 18:52:46 -0700
Subject: [PATCH] JsonUtils: adds some error and warning checks

---
 LANforge/JsonUtils.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/LANforge/JsonUtils.pm b/LANforge/JsonUtils.pm
index 400b912b..6b94c7b5 100644
--- a/LANforge/JsonUtils.pm
+++ b/LANforge/JsonUtils.pm
@@ -15,6 +15,7 @@ use HTTP::Request;
 use LWP;
 use LWP::UserAgent;
 use JSON;
+use Data::Dumper;
 
 if (defined $ENV{'DEBUG'}) {
    use Data::Dumper;
@@ -88,7 +89,15 @@ sub json_post {
       }
       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 {