Crash_Override/routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts synced 2024-05-14 08:04:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

backup-upload: give more info on files

Browse source
This commit is contained in:
Christian Hesse 2023-11-15 14:06:40 +01:00
parent 180d6b8733
commit 4d70b7fea4
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
backup-upload.rsc
View file

@ -26,6 +26,7 @@
:global CharacterReplace; :global CharacterReplace;
:global DeviceInfo; :global DeviceInfo;
:global FormatLine; :global FormatLine;
:global HumanReadableNum;
:global IfThenElse; :global IfThenElse;
:global LogPrintExit2; :global LogPrintExit2;
:global MkDir; :global MkDir;
@ -70,7 +71,8 @@ $WaitFullyConnected;
:do { :do {
/tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".backup") \ /tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".backup") \
user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".backup"); user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".backup");
:set BackupFile ($FileName . ".backup"); :set BackupFile [ /file/get ($FilePath . ".backup") ];
:set ($BackupFile->"name") ($FileName . ".backup");
} on-error={ } on-error={
$LogPrintExit2 error $0 ("Uploading backup file failed!") false; $LogPrintExit2 error $0 ("Uploading backup file failed!") false;
:set BackupFile "failed"; :set BackupFile "failed";
@ -88,7 +90,8 @@ $WaitFullyConnected;
:do { :do {
/tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".rsc") \ /tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".rsc") \
user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".rsc"); user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".rsc");
:set ExportFile ($FileName . ".rsc"); :set ExportFile [ /file/get ($FilePath . ".rsc") ];
:set ($ExportFile->"name") ($FileName . ".rsc");
} on-error={ } on-error={
$LogPrintExit2 error $0 ("Uploading configuration export failed!") false; $LogPrintExit2 error $0 ("Uploading configuration export failed!") false;
:set ExportFile "failed"; :set ExportFile "failed";
@ -108,7 +111,8 @@ $WaitFullyConnected;
:do { :do {
/tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".conf") \ /tool/fetch upload=yes url=($BackupUploadUrl . "/" . $FileName . ".conf") \
user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".conf.txt"); user=$BackupUploadUser password=$BackupUploadPass src-path=($FilePath . ".conf.txt");
:set ConfigFile ($FileName . ".conf"); :set ConfigFile [ /file/get ($FilePath . ".conf") ];
:set ($ConfigFile->"name") ($FileName . ".conf");
} on-error={ } on-error={
$LogPrintExit2 error $0 ("Uploading global-config-overlay failed!") false; $LogPrintExit2 error $0 ("Uploading global-config-overlay failed!") false;
:set ConfigFile "failed"; :set ConfigFile "failed";
@ -124,9 +128,18 @@ $SendNotification2 ({ origin=$0; \
([ $SymbolForNotification "floppy-disk,up-arrow" ] . "Backup & Config upload") ]; \ ([ $SymbolForNotification "floppy-disk,up-arrow" ] . "Backup & Config upload") ]; \
message=("Backup and config export upload for " . $Identity . ".\n\n" . \ message=("Backup and config export upload for " . $Identity . ".\n\n" . \
[ $DeviceInfo ] . "\n\n" . \ [ $DeviceInfo ] . "\n\n" . \
[ $FormatLine "Backup file" $BackupFile ] . "\n" . \ [ $IfThenElse ([ :typeof $BackupFile ] = "array") \
[ $FormatLine "Export file" $ExportFile ] . "\n" . \ ("Backup file:\n" . [ $FormatLine " name" ($BackupFile->"name") ] . "\n" . \
[ $FormatLine "Config file" $ConfigFile ]); silent=true }); [ $FormatLine " size" [ $HumanReadableNum ($BackupFile->"size") 1024 ] ]) \
[ $FormatLine "Backup file" $BackupFile ] ] . "\n" . \
[ $IfThenElse ([ :typeof $ExportFile ] = "array") \
("Export file:\n" . [ $FormatLine " name" ($ExportFile->"name") ] . "\n" . \
[ $FormatLine " size" [ $HumanReadableNum ($ExportFile->"size") 1024 ] ]) \
[ $FormatLine "Export file" $ExportFile ] ] . "\n" . \
[ $IfThenElse ([ :typeof $ConfigFile ] = "array") \
("Config file:\n" . [ $FormatLine " name" ($ConfigFile->"name") ] . "\n" . \
[ $FormatLine " size" [ $HumanReadableNum ($ConfigFile->"size") 1024 ] ]) \
[ $FormatLine "Config file" $ConfigFile ] ]); silent=true });
:if ($Failed = 1) do={ :if ($Failed = 1) do={
:error "An error occured!"; :error "An error occured!";