From e1f134ead584c7b2e9ed406f5520d7f1a23294aa Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 5 Jul 2018 15:29:26 +0200
Subject: add scripts

---
 daily-psk | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 daily-psk

(limited to 'daily-psk')

diff --git a/daily-psk b/daily-psk
new file mode 100644
index 0000000..abb1f91
--- /dev/null
+++ b/daily-psk
@@ -0,0 +1,41 @@
+# RouterOS script: daily-psk
+# Copyright (c) 2013-2018 Christian Hesse <mail@eworm.de>
+#
+# update daily PSK (pre shared key)
+
+:global "daily-psk-match-comment";
+
+# check mail server
+:if ([ / tool netwatch get [ find where comment=[ / tool e-mail get address ] ] status ] != "up" ) do={
+  :error "Mail server is not up.";
+}
+
+# check time
+:if ([ / system ntp client get status ] != "synchronized") do={
+  :error "Time is not yet synchronized from ntp.";
+}
+
+:local GeneratePSK [ :parse [ / system script get GeneratePSK source ] ];
+
+:local newpsk [ $GeneratePSK ];
+
+:local sendmail 0;
+
+:foreach acclist in=[ / interface wireless access-list find where comment~$"daily-psk-match-comment" ] do={
+  :local interface [ / interface wireless access-list get $acclist interface ];
+  :local ssid [ / interface wireless get $interface ssid ];
+  :local oldpsk [ / interface wireless access-list get $acclist private-pre-shared-key ];
+
+  :if ($newpsk != $oldpsk) do={
+    :log info ("Updating daily PSK for " . $interface . " to " . $newpsk . " (was " . $oldpsk . ")");
+    / interface wireless access-list set $acclist private-pre-shared-key=$newpsk;
+
+    :set sendmail 1;
+  }
+}
+
+:if ($sendmail = 1) do={
+  / system script run email-daily-psk;
+}
+
+/ system scheduler set disabled=yes [ find where name=daily-psk disabled=no ];
-- 
cgit v1.2.3-70-g09d2