mirror of
https://github.com/laspavel/mikrotik-scripts.git
synced 2025-06-22 14:13:31 +02:00
Update BackupScripts
This commit is contained in:
parent
f261bde503
commit
20a28a9849
1 changed files with 48 additions and 45 deletions
|
@ -1,3 +1,4 @@
|
||||||
|
:do {
|
||||||
:local toemail "laspavel@gmail.com"
|
:local toemail "laspavel@gmail.com"
|
||||||
|
|
||||||
:local sysname [/system identity get name]
|
:local sysname [/system identity get name]
|
||||||
|
@ -6,12 +7,12 @@
|
||||||
:local time [/system clock get time]
|
:local time [/system clock get time]
|
||||||
:local date [/system clock get date]
|
:local date [/system clock get date]
|
||||||
:local uptime [/system resource get uptime]
|
:local uptime [/system resource get uptime]
|
||||||
:local logMessages
|
|
||||||
:local newdate "";
|
:local newdate "";
|
||||||
:for i from=0 to=([:len $date]-1) do={ :local tmp [:pick $date $i];
|
:for i from=0 to=([:len $date]-1) do={ :local tmp [:pick $date $i];
|
||||||
:if ($tmp !="/") do={ :set newdate "$newdate$tmp" }
|
:if ($tmp !="/") do={ :set newdate "$newdate$tmp" }
|
||||||
:if ($tmp ="/") do={}
|
:if ($tmp ="/") do={}
|
||||||
}
|
}
|
||||||
|
|
||||||
#check for spaces in system identity to replace with underscores
|
#check for spaces in system identity to replace with underscores
|
||||||
:if ([:find $sysname " "] !=0) do={
|
:if ([:find $sysname " "] !=0) do={
|
||||||
:local name $sysname;
|
:local name $sysname;
|
||||||
|
@ -22,27 +23,29 @@
|
||||||
}
|
}
|
||||||
:set sysname $newname;
|
:set sysname $newname;
|
||||||
}
|
}
|
||||||
:set logMessages ""
|
|
||||||
:foreach i in=[/log find ] do={
|
|
||||||
:set logMessages ($logMessages. [/log get $i time ]. " ");
|
|
||||||
:set logMessages ($logMessages. [/log get $i message ]);
|
|
||||||
:set logMessages ($logMessages. "\n")
|
|
||||||
}
|
|
||||||
:set textfilename ($"newdate" . "-" . $"sysname" . ".rsc")
|
:set textfilename ($"newdate" . "-" . $"sysname" . ".rsc")
|
||||||
:set backupfilename ($"newdate" . "-" . $"sysname" . ".backup")
|
:set backupfilename ($"newdate" . "-" . $"sysname" . ".backup")
|
||||||
:execute [/export file=$"textfilename"]
|
:execute [/export file=$"textfilename"]
|
||||||
:execute [/system backup save name=$"backupfilename"]
|
:execute [/system backup save name=$"backupfilename"]
|
||||||
|
|
||||||
#Allow time for export to complete
|
#Allow time for export to complete
|
||||||
:delay 2s
|
:delay 2s
|
||||||
|
|
||||||
#email copies
|
#email copies
|
||||||
:log info "Emailing backups"
|
:log info "Emailing backups"
|
||||||
/tool e-mail send to=$"toemail" subject="[HomeMikrotik Config Backup RSC] $sysname $time $date" file=$"textfilename" body="[Config Backup LOG] $logMessages"
|
|
||||||
:local time [/system clock get time]
|
:local time [/system clock get time]
|
||||||
/tool e-mail send to=$"toemail" subject="[HomeMikrotik Config Backup BAK] $sysname $time $date" file=$"backupfilename" body="[Config Backup Uptime:] $uptime"
|
/tool e-mail send to=$"toemail" subject="[$sysname Config Backup] $time $date" file=($"backupfilename",$"textfilename") body="Uptime: $uptime"
|
||||||
|
|
||||||
#Allow time to send
|
#Allow time to send
|
||||||
:delay 10s
|
:delay 10s
|
||||||
|
|
||||||
# delete copies
|
# delete copies
|
||||||
/file remove $textfilename
|
/file remove $textfilename
|
||||||
/file remove $backupfilename
|
/file remove $backupfilename
|
||||||
|
|
||||||
|
} on-error={
|
||||||
|
/log error "***** AUTOBACKUP script finished with error ******"
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue