groove/routeros-scripts-main
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2026-03-03 04:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fw-addr-lists: normalize the addresses

Browse source
This commit is contained in:
Christian Hesse 2025-10-15 10:47:56 +02:00
parent 434bf82ddf
commit d587281513
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
fw-addr-lists.rsc
View file

@ -22,10 +22,12 @@
:global EitherOr;
:global FetchHuge;
:global HumanReadableNum;
:global IfThenElse;
:global LogPrint;
:global LogPrintOnce;
:global LogPrintVerbose;
:global MIN;
:global NetMask4;
:global NetMask6;
:global ScriptLock;
:global WaitFullyConnected;
@ -114,8 +116,13 @@
: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) ];
:local Net $Address;
:local CIDR "32";
:local Slash [ :find $Address "/" ];
:if ([ :typeof $Slash ] = "num") do={
:set Net [ :toip [ :pick $Address 0 $Slash ] ]
:set CIDR [ :pick $Address ($Slash + 1) [ :len $Address ] ];
:set Address [ :tostr (([ :toip $Net ] & [ $NetMask4 $CIDR ]) . [ $IfThenElse ($CIDR < 32) ("/" . $CIDR) ]) ];
}
:set Branch [ $GetBranch $Address ];
:set ($IPv4Addresses->$Branch->$Address) $TimeOut;
@ -123,13 +130,13 @@
}
:if ($Address ~ "^[0-9a-zA-Z]*:[0-9a-zA-Z:\\.]+(/[0-9]{1,3})?\$") do={
:local Net $Address;
:local Cidr 64;
:local CIDR "128";
: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 CIDR [ :pick $Address ($Slash + 1) [ :len $Address ] ];
}
:set Address (([ :toip6 $Net ] & ffff:ffff:ffff:ffff::) . "/" . $Cidr);
:set Address (([ :toip6 $Net ] & [ $NetMask6 $CIDR ]) . "/" . $CIDR);
:set Branch [ $GetBranch $Address ];
:set ($IPv6Addresses->$Branch->$Address) $TimeOut;
:error true;