collect-wireless-mac: automatically add missing access-list entry

This commit is contained in:
Christian Hesse 2020-01-17 10:36:03 +01:00
parent 12da4de305
commit 958bfa7ce8
3 changed files with 12 additions and 12 deletions

View file

@ -14,11 +14,11 @@
$ScriptLock "collect-wireless-mac.capsman";
:local PlaceBefore [ / caps-man access-list find where comment="--- collected above ---" disabled ];
:if ([ :len $PlaceBefore ] = 0) do={
:log error "Missing disabled access-list entry with comment '--- collected above ---'";
:error "Error: See log for details.";
:if ([ / caps-man access-list print count-only where comment="--- collected above ---" disabled ] = 0) do={
/ caps-man access-list add comment="--- collected above ---" disabled=yes;
:log warn "Added disabled access-list entry with comment '--- collected above ---'.";
}
:local PlaceBefore [ / caps-man access-list find where comment="--- collected above ---" disabled ];
:foreach RegTbl in=[ / caps-man registration-table find ] do={
:local Mac [ / caps-man registration-table get $RegTbl mac-address ];