backup-email: support indication of failure

This commit is contained in:
Christian Hesse 2023-08-24 19:38:56 +02:00
parent 3c96db5824
commit ffc7521a35

View file

@ -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!";
}