From 6ef764c7d7dc855dc40313fbe79702d6949b7abb Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Mon, 24 Feb 2020 20:19:12 +0100 Subject: hotspot-to-wpa: automatically add missing access-list entry --- hotspot-to-wpa | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hotspot-to-wpa b/hotspot-to-wpa index a072d86..5f21878 100644 --- a/hotspot-to-wpa +++ b/hotspot-to-wpa @@ -9,11 +9,11 @@ :local Date [ / system clock get date ]; :local PassWord [ / ip hotspot user get [ find where name=$UserName ] password ]; -:local PlaceBefore [ / caps-man access-list find where comment="--- hotspot-to-wpa above ---" disabled ]; -:if ([ :len $PlaceBefore ] = 0) do={ - :log error "Missing disabled access-list entry with comment '--- hotspot-to-wpa above ---'"; - :error "Error: See log for details."; +:if ([ / caps-man access-list print count-only where comment="--- hotspot-to-wpa above ---" disabled ] = 0) do={ + / caps-man access-list add comment="--- hotspot-to-wpa above ---" disabled; + log warn "Added disabled access-list entry with comment '--- hotspot-to-wpa above ---'."; } +:local PlaceBefore [ / caps-man access-list find where comment="--- hotspot-to-wpa above ---" disabled ]; / caps-man access-list remove [ find where mac-address=$MacAddress comment~"^hotspot-to-wpa: " ]; -- cgit v1.2.3-54-g00ecf