Display ignored addresses when running in debug mode.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/modules/Events.pm b/modules/Events.pm
index 30fdd968ee5acacd3fe5ab4f40e0423d89b5d6a2..c451914da5b34aa63a9d877887cede3e829ccdd5 100644 (file)
--- a/modules/Events.pm
+++ b/modules/Events.pm
@@ -484,7 +484,19 @@ sub GenerateIgnoreList($) {
        my $amount = scalar(keys(%ignorehash));
 
        # Write out log message.
        my $amount = scalar(keys(%ignorehash));
 
        # Write out log message.

-       $logger->Log("debug", "Ignore list currently contains $amount entries.");
+       $logger->Log("debug", "Ignore list currently contains $amount entries:");
+
+       # Sort the ignore hash.
+       my @sorted_addresses = &Guardian::Base::SortAddressHash(\%ignorehash);
+
+       # Loop through the entire array.
+       foreach my $address (@sorted_addresses) {
+               # Log the ignored address.
+               $logger->Log("debug", "\- $address");
+       }
+
+       # Finished return nothing.
+       return;

 }
 
 #
 }
 
 #