From 958bfa7ce8d57089b3d66b76eca1c7382f8b4119 Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Fri, 17 Jan 2020 10:36:03 +0100 Subject: collect-wireless-mac: automatically add missing access-list entry --- collect-wireless-mac.capsman | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'collect-wireless-mac.capsman') 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 ]; -- cgit v1.2.3-70-g09d2