aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--email-daily-psk27
1 files changed, 19 insertions, 8 deletions
diff --git a/email-daily-psk b/email-daily-psk
index 62c50c0..5bbf7eb 100644
--- a/email-daily-psk
+++ b/email-daily-psk
@@ -8,20 +8,31 @@
:global "email-general-cc";
:global "daily-psk-match-comment";
-:local "seen-ssids" { "" };
+:local seen { "" };
: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 skip 0;
+ :local intname [ / interface wireless access-list get $acclist interface ];
:local psk [ / interface wireless access-list get $acclist private-pre-shared-key ];
+ :local interface [ / interface wireless find where name=$intname disabled=no ];
+ :local ssid;
+
+ :if ([ :len $interface ] = 1) do={
+ :set ssid [ / interface wireless get $interface ssid ];
+ } else={
+ :log debug "Missing active interface for access list entry, skipping.";
+ :set skip 1;
+ }
- :local seen 0;
- :foreach "seen-ssid" in=$"seen-ssids" do={
- :if ($"seen-ssid" = $ssid) do={ :set seen 1; }
+ :foreach "seen-ssid" in=$seen do={
+ :if ($"seen-ssid" = $ssid) do={
+ :log debug ("Already sent a mail for SSID " . $ssid . ", skipping.");
+ :set skip 1;
+ }
}
- :if ($seen = 0) do={
- :set $"seen-ssids" { $"seen-ssids"; $ssid };
+ :if ($skip = 0) do={
+ :set $seen { $seen; $ssid };
:local host "www.eworm.de"
:local srcpath ("/cgi-bin/cqrlogo-wifi.cgi" . \