Events: Allow unblocking of addresses if the are part of the ignore list.

[people/stevee/guardian.git] / modules / Events.pm

diff --git a/modules/Events.pm b/modules/Events.pm
index c451914da5b34aa63a9d877887cede3e829ccdd5..2892786ace0e2513d6d04a7c2d405ed4963ca888 100644 (file)
--- a/modules/Events.pm
+++ b/modules/Events.pm
@@ -137,8 +137,8 @@ sub CheckAction ($$) {
                        return;
                }
 
-               # Check if address should be ignored.
-               if(&_IsOnIgnoreList($bin_address)) {
+               # Check if the given command is not "unblock" and the address should be ignored.
+               if(($command ne "unblock") && (&_IsOnIgnoreList($bin_address))) {
                        # Log message.
                        $logger->Log("info", "Ignoring event for $address, because it is part of the ignore list.");
                        return;
@@ -341,7 +341,7 @@ sub CallFlush ($) {
        my $self = shift;
 
        # Log the call for flushing.
-       $logger->Log("info", "Flush has been called...");
+       $logger->Log("debug", "Flush has been called...");
 
        # Call flush.
        my $error = &DoFlush();