From 320f2230f6514b5467d36416f42fa702035f0c98 Mon Sep 17 00:00:00 2001
From: Massimo Melina <a@rejetto.com>
Date: Sun, 24 May 2020 14:46:52 +0200
Subject: [PATCH] fix: ipv6 range ban rules malfunctioning on ipv4 connections

---
 utillib.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utillib.pas b/utillib.pas
index 23bc7ea..d25b089 100644
--- a/utillib.pas
+++ b/utillib.pas
@@ -1472,7 +1472,7 @@ for mask in split(';',mask) do
     if addr6 > '' then
       result:=ipv6range()
     else
-      result:=(addr4 >= ipToInt(a[0])) and (addr4 <= ipToInt(a[1]));
+      result:=(pos(':',a[0]) = 0) and (addr4 >= ipToInt(a[0])) and (addr4 <= ipToInt(a[1]));
     continue;
     end;