From c3044b5d13cdb70b203ed1557c4d5fd811709ac2 Mon Sep 17 00:00:00 2001
From: Jose Gonzalez <jose.gonzalez@artica.es>
Date: Thu, 12 Nov 2020 17:15:33 +0100
Subject: [PATCH] WIP: Backup upload

---
 pandora_server/lib/PandoraFMS/DiscoveryServer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pandora_server/lib/PandoraFMS/DiscoveryServer.pm b/pandora_server/lib/PandoraFMS/DiscoveryServer.pm
index f49e9bffb4..88e7f37e62 100644
--- a/pandora_server/lib/PandoraFMS/DiscoveryServer.pm
+++ b/pandora_server/lib/PandoraFMS/DiscoveryServer.pm
@@ -32,7 +32,7 @@ use MIME::Base64;
 
 # Default lib dir for RPM and DEB packages
 use lib '/usr/lib/perl5';
-
+use Data::Dumper;
 use PandoraFMS::Tools;
 use PandoraFMS::DB;
 use PandoraFMS::Core;
@@ -1769,7 +1769,7 @@ sub PandoraFMS::Recon::Base::update_progress ($$) {
 
   my $stats = {};
   eval {
-    logger($self->{'pa_config'}, 'Summary es '.$self->{'summary'}, 3);
+    logger($self->{'pa_config'}, 'Summary es '.Dumper($self->{'summary'}), 3);
     local $SIG{__DIE__};
     if (defined($self->{'summary'}) && $self->{'summary'} ne '') {
       $stats->{'summary'} = $self->{'summary'};