From e1f134ead584c7b2e9ed406f5520d7f1a23294aa Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Thu, 5 Jul 2018 15:29:26 +0200 Subject: add scripts --- email-daily-psk | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 email-daily-psk (limited to 'email-daily-psk') diff --git a/email-daily-psk b/email-daily-psk new file mode 100644 index 0000000..af991ca --- /dev/null +++ b/email-daily-psk @@ -0,0 +1,47 @@ +# RouterOS script: email-daily-psk +# Copyright (c) 2013-2018 Christian Hesse +# +# email daily PSK (pre shared key) + +:global "identity"; +:global "email-general-to"; +:global "email-general-cc"; +:global "daily-psk-match-comment"; + +:local "seen-ssids" { "" }; + +: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 psk [ / interface wireless access-list get $acclist private-pre-shared-key ]; + + :local seen 0; + :foreach "seen-ssid" in=$"seen-ssids" do={ + :if ($"seen-ssid" = $ssid) do={ + :set seen 1; + } + } + + :if ($seen = 0) do={ + :set $"seen-ssids" { $"seen-ssids"; $ssid }; + + :local host "www.eworm.de" + :local srcpath ("/cgi-bin/cqrlogo-wifi.cgi" . \ + "?scale=8" . \ + "&level=1" . \ + "&ssid=" . $ssid . \ + "&pass=" . $psk); + + / tool fetch mode=https check-certificate=yes-without-crl address=$host host=$host \ + src-path=$srcpath dst-path=qrcode-daily.png; + + / tool e-mail send to=$"email-general-to" cc=$"email-general-cc" \ + subject=("[" . $identity . "] daily PSK " . $ssid) \ + body=("This is the daily PSK on " . $identity . ":\n\n" . \ + "SSID: " . $ssid . "\n" . \ + "PSK: " . $psk . "\n" . \ + "Date: " . [ / system clock get date ] . "\n\n" . \ + "https://" . $host . $srcpath) \ + file=qrcode-daily.png; + } +} -- cgit v1.2.3-54-g00ecf