From a18b4d6ae99e85806c41600c8e61ed2bfe06ac0e Mon Sep 17 00:00:00 2001
From: Emmanuel Lacour <elacour@easter-eggs.com>
Date: Mon, 7 Oct 2024 11:45:36 +0200
Subject: [PATCH] check_backuppc: improve debug output

---
 check_backuppc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/check_backuppc b/check_backuppc
index 1b1dc27..27969ec 100755
--- a/check_backuppc
+++ b/check_backuppc
@@ -174,6 +174,9 @@ foreach my $host (sort(keys(%Status)))
     # Debug
     if ($verbose == 2)
     {
+        while (my ($key, $value) = each %{$Status{$host}}) {
+            print "$key:\t$value\n";
+        }
         print "Host $host state " . $Status{$host}{'state'} . "\n";
         print "  with reason: " . $Status{$host}{'reason'} . "\n";
         print "  with error: " . $Status{$host}{'error'} . "\n";