From 8f4e8c3110f8b5528f8dfd2c2aee590f2d772b93 Mon Sep 17 00:00:00 2001
From: fbsanchez <fborja.sanchez@artica.es>
Date: Mon, 3 Sep 2018 11:26:01 +0200
Subject: [PATCH] Improved LWP ssl ignore certificate added extra debug

---
 pandora_server/lib/PandoraFMS/PluginTools.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/pandora_server/lib/PandoraFMS/PluginTools.pm b/pandora_server/lib/PandoraFMS/PluginTools.pm
index 4cd34547b2..2502d5a3c0 100644
--- a/pandora_server/lib/PandoraFMS/PluginTools.pm
+++ b/pandora_server/lib/PandoraFMS/PluginTools.pm
@@ -936,7 +936,10 @@ sub call_url {
 
 	if ($response->is_success){
 		return $response->decoded_content;
+	} elsif (!empty($response->{'_msg'})) {
+		print_stderror($conf, 'Failed: ' .  $response->{'_msg'});
 	}
+
 	return undef;
 }
 
@@ -958,7 +961,10 @@ sub post_url {
 
 	if ($response->is_success){
 		return $response->decoded_content;
+	} elsif (!empty($response->{'_msg'})) {
+		print_stderror($conf, 'Failed: ' . $response->{'_msg'});
 	}
+
 	return undef;	
 }
 
@@ -987,6 +993,12 @@ sub init {
 				# Disable verify host certificate (only needed for self-signed cert)
 				$conf->{'__system'}->{ua}->ssl_opts( 'verify_hostname' => 0 );
 				$conf->{'__system'}->{ua}->ssl_opts( 'SSL_verify_mode' => 0x00 );
+
+				# Disable library extra checks 
+				BEGIN {
+					$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = "Net::SSL";
+					$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
+				}
 			}
 		}
 	};