From c1fa0f3579573b75cadba585c1aeb7e68313645c Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 7 Mar 2022 22:26:41 +0100
Subject: hotspot-to-wpa: support ignoring specific hotspot

---
 doc/hotspot-to-wpa.md | 1 +
 hotspot-to-wpa        | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/doc/hotspot-to-wpa.md b/doc/hotspot-to-wpa.md
index b410979..8733a7c 100644
--- a/doc/hotspot-to-wpa.md
+++ b/doc/hotspot-to-wpa.md
@@ -56,6 +56,7 @@ Create hotspot login credentials:
 
 Additionally templates can be created to give more options for access list:
 
+* `action`: set to `reject` to ignore logins on that hotspot
 * `private-passphrase`: do **not** use passphrase from hotspot's user
   credentials, but given one - or unset (use default passphrase) with
   special word `ignore`
diff --git a/hotspot-to-wpa b/hotspot-to-wpa
index b307a10..6290eda 100644
--- a/hotspot-to-wpa
+++ b/hotspot-to-wpa
@@ -23,6 +23,10 @@
 :local Template [ / caps-man access-list get ([ find where disabled \
     comment=("hotspot-to-wpa template " . $Hotspot) ]->0) ];
 
+:if ($Template->"action" = "reject") do={
+  $LogPrintExit2 info $0 ("Ignoring login for hotspot '" . $Hotspot . "'.") true;
+}
+
 :if ([ :len [ / caps-man access-list find where comment="--- hotspot-to-wpa above ---" disabled ] ] = 0) do={
   / caps-man access-list add comment="--- hotspot-to-wpa above ---" disabled=yes;
   $LogPrintExit2 warning $0 ("Added disabled access-list entry with comment '--- hotspot-to-wpa above ---'.") false;
-- 
cgit v1.2.3-70-g09d2