aboutsummaryrefslogtreecommitdiffstats
path: root/cloud-backup
diff options
context:
space:
mode:
Diffstat (limited to 'cloud-backup')
-rw-r--r--cloud-backup54
1 files changed, 0 insertions, 54 deletions
diff --git a/cloud-backup b/cloud-backup
deleted file mode 100644
index aa29faa..0000000
--- a/cloud-backup
+++ /dev/null
@@ -1,54 +0,0 @@
-#!rsc by RouterOS
-# RouterOS script: cloud-backup
-# Copyright (c) 2013-2021 Christian Hesse <mail@eworm.de>
-# https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md
-#
-# upload backup to MikroTik cloud
-# https://git.eworm.de/cgit/routeros-scripts/about/doc/cloud-backup.md
-
-:local 0 "cloud-backup";
-:global GlobalFunctionsReady;
-:while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
-
-:global BackupPassword;
-:global BackupRandomDelay;
-:global Identity;
-
-:global DeviceInfo;
-:global LogPrintExit2;
-:global RandomDelay;
-:global ScriptFromTerminal;
-:global SendNotification;
-:global SymbolForNotification;
-:global WaitFullyConnected;
-
-$WaitFullyConnected;
-
-:if ([ $ScriptFromTerminal $0 ] = false && $BackupRandomDelay > 0) do={
- $RandomDelay $BackupRandomDelay;
-}
-
-:do {
- # we are not interested in output, but print is
- # required to fetch information from cloud
- / system backup cloud print as-value;
- :if ([ :len [ / system backup cloud find ] ] > 0) do={
- / 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;
- }
- :local Cloud [ / system backup cloud get ([ find ]->0) ];
-
- $SendNotification ([ $SymbolForNotification "floppy-disk" ] . "Cloud backup") \
- ("Uploaded backup for " . $Identity . " to cloud.\n\n" . \
- [ $DeviceInfo ] . "\n\n" . \
- "Name: " . $Cloud->"name" . "\n" . \
- "Size: " . $Cloud->"size" . " B (" . ($Cloud->"size" / 1024) . " KiB)\n" . \
- "Download key: " . $Cloud->"secret-download-key") "" "true";
-} on-error={
- $SendNotification ([ $SymbolForNotification "warning-sign" ] . "Cloud backup failed") \
- ("Failed uploading backup for " . $Identity . " to cloud!\n\n" . [ $DeviceInfo ]);
- $LogPrintExit2 error $0 ("Failed uploading backup for " . $Identity . " to cloud!") true;
-}