mirror.MikroTik/eworm.routeros-scripts
1
0
Fork 0
mirror of https://git.eworm.de/cgit/routeros-scripts synced 2025-07-25 21:34:30 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

backup: split off cloud-backup

Browse source 
Currently backup to MikroTik cloud is pretty unreliable and script can
not catch errors at runtime. Looks like this does not change any time
soon (Ticket#2019052022003204).

So let's just split off the cloud backup to make sure email backup works
as expected.
This commit is contained in:
Christian Hesse 2019-06-14 14:59:49 +02:00
parent 2252058202
commit 5101d57d52
5 changed files with 61 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

42
cloud-backup Normal file
View file

@ -0,0 +1,42 @@
#!rsc
# RouterOS script: cloud-backup
# Copyright (c) 2013-2019 Christian Hesse <mail@eworm.de>
#
# upload backup to MikroTik cloud
:global Identity;
:global BackupPassword;
:global SendNotification;
# get some system information
:local BoardName [ / system resource get board-name ];
:local Model [ / system routerboard get model ];
:local SerialNumber [ / system routerboard get serial-number ];
:local Channel [ / system package update get channel ];
:local InstalledVersion [ / system package update get installed-version ];
:do {
# we are not interested in output, but print without count-only is
# 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;
:local Cloud [ / system backup cloud get ([ find ]->0) ];
$SendNotification "Cloud backup" \
("Uploaded backup for " . $Identity . " to cloud.\n\n" . \
"Board name: " . $BoardName . "\n" . \
"Model: " . $Model . "\n" . \
"Serial number: " . $SerialNumber . "\n" . \
"Hostname: " . $Identity . "\n" . \
"Channel: " . $Channel . "\n" . \
"RouterOS: " . $InstalledVersion . "\n\n" . \
"Name: " . $Cloud->"name" . "\n" . \
"Size: " . $Cloud->"size" . "\n" . \
"Download key: " . $Cloud->"secret-download-key");
} on-error={
:log error ("Failed uploading backup for " . $Identity . " to cloud.");
}

45
email-backup
View file

@ -10,21 +10,18 @@
:global EmailBackupCc;
:global BackupSendBinary;
:global BackupSendExport;
:global BackupCloud;
:global BackupPassword;
:if ($BackupSendBinary != true && \
$BackupSendExport != true && \
$BackupCloud != true) do={
$BackupSendExport != true) do={
:log error ("Configured to send neither backup nor config export.");
:error "Error: See log for details.";
}
# filename based on identity
:local FileName ($Identity . "." . $Domain);
:local CloudStatus $BackupCloud;
:local BackupStatus $BackupSendBinary;
:local ConfigStatus $BackupSendExport;
:local BackupFile "none";
:local ConfigFile "none";
:local Attach [ :toarray "" ];
# get some system information
@ -35,38 +32,17 @@
:local InstalledVersion [ / system package update get installed-version ];
# binary backup
:if ($BackupSendBinary = true || \
$BackupCloud = true) do={
/ system backup save encryption=aes-sha256 name=$FileName password=$BackupPassword;
# attach to mail
:if ($BackupSendBinary = true) do={
:set BackupStatus ($FileName . ".backup");
:set Attach ($Attach, $BackupStatus);
}
# upload to cloud
:if ($BackupCloud = true) do={
:do {
# we are not interested in output, but print without count-only is
# 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=upload src-file=($FileName . ".backup");
:set CloudStatus [ / system backup cloud get ([ find ]->0) secret-download-key ];
} on-error={
:set CloudStatus "failed";
}
}
/ system backup save encryption=aes-sha256 name=$FileName password=$BackupPassword;
:set BackupFile ($FileName . ".backup");
:set Attach ($Attach, $BackupFile);
}
# create configuration export
:if ($BackupSendExport = true) do={
/ export terse file=$FileName;
:set ConfigStatus ($FileName . ".rsc");
:set Attach ($Attach, $ConfigStatus);
:set ConfigFile ($FileName . ".rsc");
:set Attach ($Attach, $ConfigFile);
}
# send email with status and files
@ -79,8 +55,7 @@
"Hostname: " . $Identity . "\n" . \
"Channel: " . $Channel . "\n" . \
"RouterOS: " . $InstalledVersion . "\n\n" . \
"Backup attached: " . $BackupStatus . "\n" . \
"Config attached: " . $ConfigStatus . "\n" . \
"Cloud backup: " . $CloudStatus) \
"Backup file: " . $BackupFile . "\n" . \
"Config file: " . $ConfigFile) \
file=$Attach;
}

3
global-config
View file

@ -6,7 +6,7 @@
# Make sure all configuration properties are up to date and this
# value is in sync with value in script 'global-functions'!
:global GlobalConfigVersion 4;
:global GlobalConfigVersion 5;
# This is used for DNS and backup file.
:global Domain "example.com";
@ -30,7 +30,6 @@
# This defines what backups to generate and what password to use.
:global BackupSendBinary false;
:global BackupSendExport true;
:global BackupCloud false;
:global BackupPassword "v3ry-s3cr3t";
# Specify an address to enable auto update to version assumed safe.

1
global-config.changes
View file

@ -7,4 +7,5 @@
2="variable names became CamelCase to work around scripting issues";
3="variable for certificate renew passphrase became an array to support multiple passphrases";
4="added option to ignore global-config changes";
5="split off new script cloud-backup from email-backup";
};

2
global-functions
View file

@ -5,7 +5,7 @@
# global functions
# expected configuration version
:global ExpectedConfigVersion 4;
:global ExpectedConfigVersion 5;
# global variables not to be changed by user
:global SentConfigChangesNotification "-";