From 5b1a34d66b9f48c2b4eaf0f9e957f807f09bfb2c Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 23 Apr 2024 13:53:04 +0200
Subject: backup-cloud: clean up and simplify code

---
 backup-cloud.rsc | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/backup-cloud.rsc b/backup-cloud.rsc
index 859ddc7..003c702 100644
--- a/backup-cloud.rsc
+++ b/backup-cloud.rsc
@@ -49,14 +49,13 @@
 
   :execute {
     :global BackupPassword;
-    # we are not interested in output, but print is
-    # required to fetch information from cloud
-    /system/backup/cloud/print as-value;
+
+    :local Backup ([ /system/backup/cloud/find ]->0);
     /file/add name="tmpfs/backup-cloud/status";
-    :delay 20ms;
-    :if ([ :len [ /system/backup/cloud/find ] ] > 0) do={
+
+    :if ([ :typeof $Backup ] = "id") do={
       /system/backup/cloud/upload-file action=create-and-upload \
-          password=$BackupPassword replace=[ get ([ find ]->0) name ];
+          password=$BackupPassword replace=$Backup;
     } else={
       /system/backup/cloud/upload-file action=create-and-upload \
           password=$BackupPassword;
-- 
cgit v1.2.3-54-g00ecf