ipblocklist-functions.pl: Initial commit.

This library file will contain a collection of functions, which are
required to deal with the ipblocklist feature.

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

diff --git a/config/cfgroot/ipblocklist-functions.pl b/config/cfgroot/ipblocklist-functions.pl
new file mode 100644 (file)
index 0000000..2072f3f
--- /dev/null
+++ b/config/cfgroot/ipblocklist-functions.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl -w
+###############################################################################
+#                                                                             #
+# IPFire.org - A linux based firewall                                         #
+# Copyright (C) 2007-2022  IPFire Team  <info@ipfire.org>                     #
+#                                                                             #
+# This program is free software: you can redistribute it and/or modify        #
+# it under the terms of the GNU General Public License as published by        #
+# the Free Software Foundation, either version 2 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# This program is distributed in the hope that it will be useful,             #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU General Public License           #
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
+#                                                                             #
+###############################################################################
+
+package IPblocklist;
+
+require '/var/ipfire/ipblocklist/sources';
+
+#
+## Function to get all available blocklists.
+#
+sub get_blocklists () {
+       my @blocklists;
+
+       # Loop through the hash of blocklists.
+       foreach my $blocklist ( keys %IPblocklist::List::sources ) {
+               # Add the list to the array.
+               push(@blocklists, $blocklist);
+       }
+
+       # Sort and return the array.
+       return sort(@blocklists);
+}
+
+1;