From 8c2c738ec5ae7c6e1266319763f16559d6360d0e Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 17 Aug 2018 09:01:52 +0200
Subject: email-daily-psk: send for active interfaces only

... and handle missing interface for accesslist entry.
---
 email-daily-psk | 27 +++++++++++++++++++--------
 1 file 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" . \
-- 
cgit v1.2.3-54-g00ecf