From be133146ddcc085777fa5014074c56995266abcd Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 14 Jun 2019 15:41:32 +0200
Subject: cloud-backup: do not remove but replace cloud backup

The replace functionality for cloud backup is available
with version 6.45beta42.
---
 cloud-backup | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/cloud-backup b/cloud-backup
index 2d450cb..9bb13ff 100644
--- a/cloud-backup
+++ b/cloud-backup
@@ -19,9 +19,12 @@
   # required to fetch information from cloud
   / system backup cloud print as-value;
   :if ([ / system backup cloud print count-only ] > 0) do={
-    / system backup cloud remove-file ([ find ]->0);
+    / system backup cloud upload-file action=create-and-upload \
+        password=$BackupPassword replace=[ get ([ find ]->0) name ];
+  } else={
+    / system backup cloud upload-file action=create-and-upload \
+        password=$BackupPassword;
   }
-  / system backup cloud upload-file action=create-and-upload password=$BackupPassword;
   :local Cloud [ / system backup cloud get ([ find ]->0) ];
 
   $SendNotification "Cloud backup" \
-- 
cgit v1.2.3-54-g00ecf