Oleh Vivtash duhast

duhast / cidrs-to-lists.txt

Created September 22, 2023 12:15 — forked from avoidik/cidrs-to-lists.txt

Mikrotik Scripts

	:foreach id in=[/ip addr find] do={
	:local intInterface [/ip addr get $id interface];
	:local intAddrList "$intInterface-addr";
	:local intOldAddr "";
	:local intCidrBlock "";

	:local intCidrAddr [/ip address get [/ip address find interface=$intInterface disabled=no] address];
	:local intNetAddr [/ip address get [/ip address find interface=$intInterface disabled=no] network];
	:set intCidrBlock "$intNetAddr/$[:pick $intCidrAddr ([:find $intCidrAddr "/"]+1) [:len $intCidrAddr]]";
	:log info "Current $intInterface CIDR is $intCidrBlock";