3 files changed, 12 insertions, 12 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 ];
diff --git a/collect-wireless-mac.local b/collect-wireless-mac.local
index c38c2c1..3241c27 100644
--- a/collect-wireless-mac.local
+++ b/collect-wireless-mac.local
@@ -14,11 +14,11 @@
 
 $ScriptLock "collect-wireless-mac.local";
 
-:local PlaceBefore [ / interface wireless 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 ([ / interface wireless access-list print count-only where comment="--- collected above ---" disabled ] = 0) do={
+  / interface wireless access-list add comment="--- collected above ---" disabled=yes;
+  :log warn "Added disabled access-list entry with comment '--- collected above ---'.";
 }
+:local PlaceBefore [ / interface wireless access-list find where comment="--- collected above ---" disabled ];
 
 :foreach RegTbl in=[ / interface wireless registration-table find ] do={
   :local Mac [ / interface wireless registration-table get $RegTbl mac-address ];
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 ];