From 9ce5d722b307bfcf76c892823d63328c4fd68590 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 14 Oct 2019 21:24:35 +0200
Subject: add script 'hotspot-to-wpa'

---
 hotspot-to-wpa | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 hotspot-to-wpa

(limited to 'hotspot-to-wpa')

diff --git a/hotspot-to-wpa b/hotspot-to-wpa
new file mode 100644
index 0000000..d1e7cee
--- /dev/null
+++ b/hotspot-to-wpa
@@ -0,0 +1,20 @@
+#!rsc
+# RouterOS script: hotspot-to-wpa
+# Copyright (c) 2019 Christian Hesse <mail@eworm.de>
+#
+# add private WPA passphrase after hotspot login
+
+:local MacAddress $"mac-address";
+:local UserName $username;
+: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.";
+}
+
+/ caps-man access-list remove [ find where mac-address=$MacAddress comment~"^hotspot-to-wpa: " ];
+/ caps-man access-list add comment=("hotspot-to-wpa: " . $UserName . ", " . $MacAddress . ", " . $Date) \
+  mac-address=$MacAddress private-passphrase=$PassWord ssid-regexp="-wpa\$" place-before=$PlaceBefore;
-- 
cgit v1.2.3-70-g09d2