ipblocklist-functions.pl: Add function to get all enabled blocklists

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

diff --git a/config/cfgroot/ipblocklist-functions.pl b/config/cfgroot/ipblocklist-functions.pl
index a53018f11d85ecef81a336451b45b274270102cd..943d3fd345c319544eaebbc08ef3c706fcba2168 100644 (file)
--- a/config/cfgroot/ipblocklist-functions.pl
+++ b/config/cfgroot/ipblocklist-functions.pl
@@ -69,6 +69,32 @@ sub get_blocklists () {
        return sort(@blocklists);
 }
 
+#
+## Function to get all enabled blocklists.
+#
+sub get_enabled_blocklists () {
+       my @enabled_blocklists;
+       my %settings;
+
+       # Get all available blocklists.
+       my @blocklists = &get_blocklists();
+
+       # Read-in blocklist settings.
+       &General::readhash($settings_file, \%settings) if (-e $settings_file);
+
+       # Loop through the array of available blocklists.
+       foreach my $blocklist (@blocklists) {
+               # Check if the blocklist is enabled.
+               if ((exists($settings{$blocklist})) && ($settings{$blocklist} eq "on")) {
+                       # Add the blocklist to the array of enabled blocklists.
+                       push(@enabled_blocklists, $blocklist);
+               }
+       }
+
+       # Return the array of enabled blocklists.
+       return @enabled_blocklists;
+}
+
 #
 ## Function to get the full path and name of the cached blocklist.
 #