Caps-Man auto access-list
Written by: BrasDeutscher,PA,Brazil
Works on RouterOS v6.37rc27
{
set min signal range here - options= -80..80 -70..70 -60..60 , only copy and paste
:global rg “-80..80”
!!-- DO NOT CHANGE ANY MORE BELOW --!!
:global sv0 “dhcp0”
:global sv1 “dhcp1”
:global del “100ms”
:global dl1
:global dl2
:global dl3
:global dl4
:global mac0
:global mac1
:global stat
:global statx
:global txt0 “$sv0”
:global txt1 “$sv1”
:global cap1
:global cap2
:global cap3
:global cap4
:global cap5
:global all
:foreach d in=[/ip dhcp-server lease find where server=“$sv0” ! dynamic ! disabled ] do={
:set stat [/ip dhcp-server lease get $d status ];
:set statx [:len $stat ];
:if (“$statx” = “5” ) do={
:set mac0 [/ip dhcp-server lease get $d mac-address ];
:if ([/caps-man access-list find where mac-address=“$mac0” comment=“$txt0” ] = “” ) do={
:set all [/caps-man access-list add mac-address=“$mac0” interface=“all” signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt0” ];
:log warning (“ACL->Server:$sv0 Comment:$txt0 Mac:$mac0 for all Caps”);
}}}
:foreach e in=[/ip dhcp-server lease find where server=“$sv1” ! dynamic ! disabled ] do={
:set stat [/ip dhcp-server lease get $e status ];
:set statx [:len $stat ];
:if (“$statx” = “5” ) do={
:set mac1 [/ip dhcp-server lease get $e mac-address ];
:if ([/caps-man access-list find where mac-address=“$mac1” comment=“$txt1” ] = “” ) do={
:set cap1 [/caps-man access-list add mac-address=“$mac1” interface=cap1 signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt1” ];
:set dl1 [:delay $del
:set cap2 [/caps-man access-list add mac-address=“$mac1” interface=cap2 signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt1” ]];
:set dl2 [:delay $del
:set cap3 [/caps-man access-list add mac-address=“$mac1” interface=cap3 signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt1” ]];
:set dl3 [:delay $del
:set cap4 [/caps-man access-list add mac-address=“$mac1” interface=cap4 signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt1” ]];
:set dl4 [:delay $del
:set cap5 [/caps-man access-list add mac-address=“$mac1” interface=cap5 signal-range=“$rg” ssid-regexp=“”
action=accept comment=“$txt1” ]];
:log warning (“ACL->Server:$sv1 Comment:$txt1 Mac:$mac1 for Cap 1,2,3,4,5”);
}}}}
\
Caps-Man auto access-list Schedule Version with 2m Interval
Written by: BrasDeutscher,PA,Brazil
Works on RouterOS v6.37rc27
/system scheduler
add comment=“## Caps-Man auto access-list ##” interval=2m name=
“## Caps-Man auto access-list ##” on-event=“{\r\r
\n# set min signal range here - options= -80..80 -70..70 -60..60 , only
copy and paste # \r\r
\n:global rg "-80..80"\r\r
\n\r\r
\n## !!-- DO NOT CHANGE ANY MORE BELOW --!! ##\r\r
\n:global sv0 dhcp0\r\r
\n:global sv1 dhcp1\r\r
\n:global del 100ms\r\r
\n:global dl1\r\r
\n:global dl2\r\r
\n:global dl3\r\r
\n:global dl4\r\r
\n:global mac0\r\r
\n:global mac1\r\r
\n:global stat\r\r
\n:global statx\r\r
\n:global txt0 "$sv0"\r\r
\n:global txt1 "$sv1"\r\r
\n:global cap1\r\r
\n:global cap2\r\r
\n:global cap3\r\r
\n:global cap4\r\r
\n:global cap5\r\r
\n:global all\r\r
\n:foreach d in=[/ip dhcp-server lease find where server="$sv0" dynamic
=no disabled=no ] do={\r\r
\n:set stat [/ip dhcp-server lease get $d status ];\r\r
\n:set statx [:len $stat ];\r\r
\n:if ("$statx" = 5 ) do={\r\r
\n:set mac0 [/ip dhcp-server lease get $d mac-address ];\r\r
\n:if ([/caps-man access-list find where mac-address=$mac0 comment="$tx
t0" ] = "" ) do={\r\r
\n:set all [/caps-man access-list add mac-address=$mac0 interface=all sig
nal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt0" ]; \r\r
\n:log warning ("ACL->Server:$sv0 Comment:$txt0 Mac:$mac0 for all Caps
");\r\r
\n}}}\r\r
\n:foreach e in=[/ip dhcp-server lease find where server="$sv1" dynamic
=no disabled=no ] do={\r\r
\n:set stat [/ip dhcp-server lease get $e status ];\r\r
\n:set statx [:len $stat ];\r\r
\n:if ("$statx" = 5 ) do={\r\r
\n:set mac1 [/ip dhcp-server lease get $e mac-address ];\r\r
\n:if ([/caps-man access-list find where mac-address=$mac1 comment="$tx
t1" ] = "" ) do={\r\r
\n:set cap1 [/caps-man access-list add mac-address=$mac1 interface=cap1 s
ignal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt1" ];\r\r
\n:set dl1 [:delay $del \r\r
\n:set cap2 [/caps-man access-list add mac-address=$mac1 interface=cap2 s
ignal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt1" ]];\r\r
\n:set dl2 [:delay $del \r\r
\n:set cap3 [/caps-man access-list add mac-address=$mac1 interface=cap3 s
ignal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt1" ]]; \r\r
\n:set dl3 [:delay $del \r\r
\n:set cap4 [/caps-man access-list add mac-address=$mac1 interface=cap4 s
ignal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt1" ]]; \r\r
\n:set dl4 [:delay $del \r\r
\n:set cap5 [/caps-man access-list add mac-address=$mac1 interface=cap5 s
ignal-range="$rg" ssid-regexp="" \\r\r
\n action=accept comment="$txt1" ]]; \r\r
\n:log warning ("ACL->Server:$sv1 Comment:$txt1 Mac:$mac1 for Cap 1,2,
3,4,5");\r\r
\n}}}}” policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive
start-time=startup
