diff options
author | Christian Hesse <mail@eworm.de> | 2020-02-24 20:19:12 +0100 |
---|---|---|
committer | Christian Hesse <mail@eworm.de> | 2020-02-26 11:51:49 +0100 |
commit | 6ef764c7d7dc855dc40313fbe79702d6949b7abb (patch) | |
tree | 756f52f4de81aa293531ce3c15df2290e485a5fb | |
parent | 0e6438eaff6aa36d93b6cbb48eeb6c5510856d02 (diff) |
hotspot-to-wpa: automatically add missing access-list entry
-rw-r--r-- | hotspot-to-wpa | 8 |
1 files 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: " ]; |