From a7ac9ef0db96bc0ff786dc006189dc657ea2d2d9 Mon Sep 17 00:00:00 2001
From: Tim FitzGeorge <ipfr@tfitzgeorge.me.uk>
Date: Fri, 4 Mar 2022 22:08:16 +0100
Subject: [PATCH] ipblocklist-functions.pl: Add parser to obtain IP or Net
 addresses from a blocklist.

Signed-off-by: Tim FitzGeorge <ipfr@tfitzgeorge.me.uk>
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---
 config/cfgroot/ipblocklist-functions.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/config/cfgroot/ipblocklist-functions.pl b/config/cfgroot/ipblocklist-functions.pl
index f312e349a6..9e862bb0ec 100644
--- a/config/cfgroot/ipblocklist-functions.pl
+++ b/config/cfgroot/ipblocklist-functions.pl
@@ -257,4 +257,25 @@ sub download_and_create_blocklist($) {
 	return;
 }
 
+#
+## sub parse_ip_or_net_list( line )
+##
+## Parses an input line, looking for lines starting with an IP Address or
+### Network specification.
+##
+## Parameters:
+##   line  The line to parse
+##
+## Returns:
+##   Either an IP Address or a null string
+#
+sub parse_ip_or_net_list( $ ) {
+	my ($line) = @_;
+
+	# Grab the IP address or network.
+	$line =~ m|^(\d+\.\d+\.\d+\.\d+(?:/\d+)?)|;
+
+	# Return the grabbed address.
+	return $1;
+}
 1;
-- 
2.39.5