From 08ecabb27ccce3f61fbfee0698d82b67b57d0621 Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Wed, 15 Oct 2025 10:47:56 +0200 Subject: [PATCH] fw-addr-lists: normalize the address in list --- fw-addr-lists.rsc | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/fw-addr-lists.rsc b/fw-addr-lists.rsc index cd136f95..b653ea0f 100644 --- a/fw-addr-lists.rsc +++ b/fw-addr-lists.rsc @@ -122,14 +122,8 @@ :error true; } :if ($Address ~ "^[0-9a-zA-Z]*:[0-9a-zA-Z:\\.]+(/[0-9]{1,3})?\$") do={ - :local Net $Address; - :local Cidr 64; - :local Slash [ :find $Address "/" ]; - :if ([ :typeof $Slash ] = "num") do={ - :set Net [ :toip6 [ :pick $Address 0 $Slash ] ] - :set Cidr [ $MIN [ :pick $Address ($Slash + 1) [ :len $Address ] ] 64 ]; - } - :set Address (([ :toip6 $Net ] & ffff:ffff:ffff:ffff::) . "/" . $Cidr); + /ipv6/firewall/address-list/add dynamic=yes list=$Address address=$Address timeout=1s; + :set Address [ /ipv6/firewall/address-list/get [ find where dynamic=yes list=$Address ] address ]; :set Branch [ $GetBranch $Address ]; :set ($IPv6Addresses->$Branch->$Address) $TimeOut; :error true;