backup-cloud: clean up and simplify code

1 files changed, 4 insertions, 6 deletions

diff --git a/backup-cloud.rsc b/backup-cloud.rsc
index 1085f05..bdc6c34 100644
--- a/backup-cloud.rsc
+++ b/backup-cloud.rsc
@@ -49,13 +49,11 @@
 
   :execute {
     :global BackupPassword;
-    # we are not interested in output, but print is
-    # required to fetch information from cloud
-    /system/backup/cloud/print as-value;
-    :delay 20ms;
-    :if ([ :len [ /system/backup/cloud/find ] ] > 0) do={
+
+    :local Backup ([ /system/backup/cloud/find ]->0);
+    :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;