From ffc7521a350e613c23507a1cdbc5a9b028beced1 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 24 Aug 2023 19:38:56 +0200
Subject: backup-email: support indication of failure

---
 backup-email.rsc | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/backup-email.rsc b/backup-email.rsc
index 4dd9fcc..8567a65 100644
--- a/backup-email.rsc
+++ b/backup-email.rsc
@@ -23,6 +23,7 @@
 :global CharacterReplace;
 :global DeviceInfo;
 :global FormatLine;
+:global IfThenElse;
 :global LogPrintExit2;
 :global MkDir;
 :global RandomDelay;
@@ -57,6 +58,7 @@ $WaitFullyConnected;
 :local ExportFile "none";
 :local ConfigFile "none";
 :local Attach ({});
+:local Failed 0;
 
 :if ([ $MkDir $DirName ] = false) do={
   $LogPrintExit2 error $0 ("Failed creating directory!") true;
@@ -89,8 +91,9 @@ $WaitFullyConnected;
 
 # send email with status and files
 $SendEMail2 ({ origin=$0; \
-  subject=([ $SymbolForNotification "floppy-disk,incoming-envelope" ] . \
-    "Backup & Config"); \
+  subject=[ $IfThenElse ($Failed > 0) \
+    ([ $SymbolForNotification "floppy-disk,warning-sign" ] . "Backup & Config with failure") \
+    ([ $SymbolForNotification "floppy-disk,incoming-envelope" ] . "Backup & Config") ]; \
   message=("See attached files for backup and config export for " . \
     $Identity . ".\n\n" . \
     [ $DeviceInfo ] . "\n\n" . \
@@ -108,3 +111,7 @@ $SendEMail2 ({ origin=$0; \
   :delay 1s;
   :set I ($I + 1);
 }
+
+:if ($Failed = 1) do={
+  :error "An error occured!";
+}
-- 
cgit v1.2.3-70-g09d2