Display ignored addresses when running in debug mode.
authorStefan Schantl <stefan.schantl@ipfire.org>
Wed, 20 Jul 2016 11:15:21 +0000 (13:15 +0200)
committerStefan Schantl <stefan.schantl@ipfire.org>
Wed, 20 Jul 2016 11:15:21 +0000 (13:15 +0200)
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
modules/Events.pm

index 30fdd96..c451914 100644 (file)
@@ -484,7 +484,19 @@ sub GenerateIgnoreList($) {
        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;
 }
 
 #