email-backup: make sure to act on first cloud backup

This commit is contained in:
Christian Hesse 2019-05-09 21:20:44 +02:00
parent b7592f6b18
commit a1bad3c0aa

View file

@ -52,10 +52,10 @@
# required to fetch information from cloud # required to fetch information from cloud
/ system backup cloud print as-value; / system backup cloud print as-value;
:if ([ / system backup cloud print count-only ] > 0) do={ :if ([ / system backup cloud print count-only ] > 0) do={
/ system backup cloud remove-file [ find ]; / system backup cloud remove-file ([ find ]->0);
} }
/ system backup cloud upload-file action=upload src-file=($FileName . ".backup"); / system backup cloud upload-file action=upload src-file=($FileName . ".backup");
:set CloudStatus [ / system backup cloud get [ find ] secret-download-key ]; :set CloudStatus [ / system backup cloud get ([ find ]->0) secret-download-key ];
} on-error={ } on-error={
:set CloudStatus "failed"; :set CloudStatus "failed";
} }