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

1 files changed, 4 insertions, 4 deletions

diff --git a/collect-wireless-mac.template b/collect-wireless-mac.template
index 03bd532..6ad55a2 100644
--- a/collect-wireless-mac.template
+++ b/collect-wireless-mac.template
@@ -15,11 +15,11 @@
 
 $ScriptLock "collect-wireless-mac%TEMPL%";
 
-:local PlaceBefore [ / %PATH% 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 ([ / %PATH% access-list print count-only where comment="--- collected above ---" disabled ] = 0) do={
+  / %PATH% access-list add comment="--- collected above ---" disabled=yes;
+  :log warn "Added disabled access-list entry with comment '--- collected above ---'.";
 }
+:local PlaceBefore [ / %PATH% access-list find where comment="--- collected above ---" disabled ];
 
 :foreach RegTbl in=[ / %PATH% registration-table find ] do={
   :local Mac [ / %PATH% registration-table get $RegTbl mac-address ];