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

1 files changed, 4 insertions, 4 deletions

diff --git a/collect-wireless-mac.capsman b/collect-wireless-mac.capsman
index 2b93e09..2b9b23f 100644
--- a/collect-wireless-mac.capsman
+++ b/collect-wireless-mac.capsman
@@ -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 ];