From 3fcdd395fe93a501de297f7678d57b5c1064b05d Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 8 Mar 2024 09:19:43 +0100
Subject: packages-update: support passing backup failure

---
 packages-update.rsc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages-update.rsc b/packages-update.rsc
index e0e1f6d..634b7bb 100644
--- a/packages-update.rsc
+++ b/packages-update.rsc
@@ -23,6 +23,7 @@
   :global VersionToNum;
 
   :global PackagesUpdateDeferReboot;
+  :global PackagesUpdateBackupFailure;
 
   :local Schedule do={
     :local ScriptName [ :tostr $1 ];
@@ -96,10 +97,15 @@
   }
 
   :foreach Order,Script in=$RunOrder do={
+    :set PackagesUpdateBackupFailure false;
     :do {
       $LogPrintExit2 info $ScriptName ("Running backup script " . $Script . " before update.") false;
       /system/script/run $Script;
     } on-error={
+      :set PackagesUpdateBackupFailure true;
+    }
+
+    :if ($PackagesUpdateBackupFailure = true) do={
       $LogPrintExit2 warning $ScriptName ("Running backup script " . $Script . " before update failed!") false;
       :if ([ $ScriptFromTerminal $ScriptName ] = true) do={
         :put "Do you want to continue anyway? [y/N]";
-- 
cgit v1.2.3-54-g00ecf