fw-addr-lists: calc from mask

fw-addr-lists.rsc

@@ -56,6 +56,20 @@
   }
 
   :local ListComment ("managed by " . $ScriptName);
+  :local Maskv4 ({});
+  :for I from=0 to=32 do={
+    :local List ("mask-" . $I);
+    /ip/firewall/address-list/add dynamic=yes timeout=1s list=$List address=("255.255.255.255/" . $I);
+    :local Address [ /ip/firewall/address-list/get [ find where dynamic=yes list=$List ] address ];
+    :set ($Maskv4->$I) [ :toip [ :pick $Address 0 [ :find Address "/" ] ] ];
+  }
+  :local Maskv6 ({});
+  :for I from=0 to=128 do={
+    :local List ("mask-" . $I);
+    /ipv6/firewall/address-list/add dynamic=yes timeout=1s list=$List address=("ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff/" . $I);
+    :local Address [ /ipv6/firewall/address-list/get [ find where dynamic=yes list=$List ] address ];
+    :set ($Maskv4->$I) [ :toip6 [ :pick $Address 0 [ :find Address "/" ] ] ];
+  }
 
   :foreach FwListName,FwList in=$FwAddrLists do={
     :local CntAdd 0;
@@ -114,9 +128,7 @@
         :do {
           :local Branch;
           :if ($Address ~ "^[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,3}(/[0-9]{1,2})?\$") do={
-            :if ($Address ~ "/32\$") do={
-              :set Address [ :pick $Address 0 ([ :len $Address ] - 3) ];
-            }
+            :set Address 
             :set Branch [ $GetBranch $Address ];
             :set ($IPv4Addresses->$Branch->$Address) $TimeOut;
             :error true;
@@ -129,7 +141,7 @@
               :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);
+            :set Address (([ :toip6 $Net ] & ($Maskv6->$Cidr)) . "/" . $Cidr);
             :set Branch [ $GetBranch $Address ];
             :set ($IPv6Addresses->$Branch->$Address) $TimeOut;
             :error true;