Validate IP addresses before passing to the firewall module.

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

diff --git a/modules/Events.pm b/modules/Events.pm
index 2f4b561a15d5bfd914620ddb8dcdcf63b015f868..b60a572b6a0431868d5ef3ff0676a05eab804427 100644 (file)
--- a/modules/Events.pm
+++ b/modules/Events.pm
@@ -77,8 +77,12 @@ sub CheckAction ($$) {
                 return;
         }
 
-       # XXX
        # Check if the given address is valid.
+       unless(&Guardian::Base::IsValidAddressOrNetwork($address)) {
+               # Log error message.
+               $logger->Log("err", "Invalid IP address: $address");
+               return;
+       }
 
        # Call required handler.
        my $error = $commands{$command}->($self, $address, $module, $message);