Allow export of the GenerateIgnoreList() function.

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

diff --git a/modules/Events.pm b/modules/Events.pm
index fa3be24dabe7d58f0f202267dcbbf669696ecd57..8f04f3d6cab3ef580242f895d6c57aea1242a9b6 100644 (file)
--- a/modules/Events.pm
+++ b/modules/Events.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use Exporter qw(import);
 
 
 use Exporter qw(import);
 

-our @EXPORT_OK = qw(Init CheckAction Update);
+our @EXPORT_OK = qw(Init CheckAction GenerateIgnoreList Update);

 
 # Hash which stores all supported commands from the queue.
 my %commands = (
 
 # Hash which stores all supported commands from the queue.
 my %commands = (


@@ -339,7 +339,8 @@ sub GenerateIgnoreList($) {
 #
 ## Private function to check if an address is part of the Ignore Hash.
 #
 #
 ## Private function to check if an address is part of the Ignore Hash.
 #

-## This function requires 
+## This function checks if a passed IP address in binary format (!),
+## directly or as part of an ignored network is stored in the ignore hash.

 #
 sub _IsOnIgnoreList ($) {
        my $bin_address = shift;
 #
 sub _IsOnIgnoreList ($) {
        my $bin_address = shift;