aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Christian Hesse <mail@eworm.de>2019-10-14 21:24:35 +0200
committerGravatar Christian Hesse <mail@eworm.de>2019-10-14 21:24:35 +0200
commit9ce5d722b307bfcf76c892823d63328c4fd68590 (patch)
tree02d3885dfea9a4d214378fbab5a33eca53e30925
parentf40bb2c8c85adaa1ee84bb693b76a7a7e334f54a (diff)
add script 'hotspot-to-wpa'
-rw-r--r--hotspot-to-wpa20
1 files changed, 20 insertions, 0 deletions
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;