From c132d2840843a5da40f30e5b66cb1495f5c02357 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 26 Apr 2022 14:19:50 +0200
Subject: hotspot-to-wpa: move code for marker up

---
 hotspot-to-wpa | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/hotspot-to-wpa b/hotspot-to-wpa
index a08e3bc..9ffee91 100644
--- a/hotspot-to-wpa
+++ b/hotspot-to-wpa
@@ -20,12 +20,6 @@
 :local UserVal [ / ip hotspot user get [ find where name=$UserName ] ];
 :local UserInfo [ $ParseKeyValueStore ($UserVal->"comment") ];
 :local Hotspot [ / ip hotspot host get [ find where mac-address=$MacAddress authorized ] server ];
-: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;
@@ -33,6 +27,13 @@
 }
 :local PlaceBefore ([ / caps-man access-list find where comment="--- hotspot-to-wpa above ---" disabled ]->0);
 
+: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;
+}
+
 # allow login page to load
 :delay 1s;
 
-- 
cgit v1.2.3-70-g09d2