mirror.MikroTik/laspavel.mikrotik-scripts
1
0
Fork 0
mirror of https://github.com/laspavel/mikrotik-scripts.git synced 2025-06-22 06:03:32 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update BackupScripts

Browse source
This commit is contained in:
laspavel 2021-12-26 11:31:08 +02:00
parent f261bde503
commit 20a28a9849
1 changed files with 48 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

93
AutoBackup.rsc
View file

@ -1,48 +1,51 @@
:local toemail "laspavel@gmail.com" :do {
:local toemail "laspavel@gmail.com"
:local sysname [/system identity get name] :local sysname [/system identity get name]
:local textfilename :local textfilename
:local backupfilename :local backupfilename
: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;
:local newname ""; :local newname "";
:for i from=0 to=([:len $name]-1) do={ :local tmp [:pick $name $i]; :for i from=0 to=([:len $name]-1) do={ :local tmp [:pick $name $i];
:if ($tmp !=" ") do={ :set newname "$newname$tmp" } :if ($tmp !=" ") do={ :set newname "$newname$tmp" }
:if ($tmp =" ") do={ :set newname "$newname_" } :if ($tmp =" ") do={ :set newname "$newname_" }
} }
:set sysname $newname; :set sysname $newname;
} }
:set logMessages "" :set textfilename ($"newdate" . "-" . $"sysname" . ".rsc")
:foreach i in=[/log find ] do={ :set backupfilename ($"newdate" . "-" . $"sysname" . ".backup")
:set logMessages ($logMessages. [/log get $i time ]. " "); :execute [/export file=$"textfilename"]
:set logMessages ($logMessages. [/log get $i message ]); :execute [/system backup save name=$"backupfilename"]
:set logMessages ($logMessages. "\n")
} #Allow time for export to complete
:set textfilename ($"newdate" . "-" . $"sysname" . ".rsc") :delay 2s
:set backupfilename ($"newdate" . "-" . $"sysname" . ".backup")
:execute [/export file=$"textfilename"]
:execute [/system backup save name=$"backupfilename"]
#Allow time for export to complete
: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="[$sysname Config Backup] $time $date" file=($"backupfilename",$"textfilename") body="Uptime: $uptime"
/tool e-mail send to=$"toemail" subject="[HomeMikrotik Config Backup BAK] $sysname $time $date" file=$"backupfilename" body="[Config Backup 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 ******"
}