aboutsummaryrefslogtreecommitdiffstats
path: root/backup-partition.rsc
diff options
context:
space:
mode:
authorGravatar Christian Hesse <mail@eworm.de>2024-05-23 12:52:33 +0200
committerGravatar Christian Hesse <mail@eworm.de>2024-05-23 12:52:33 +0200
commit96ea39b7cdb48fe183f05530933099d2691ec228 (patch)
treea99058aed178757146a0691080e665f7b7fd63d3 /backup-partition.rsc
parent0a46fb536f929f3248085072979b7acfe119dbd5 (diff)
parent33a495beb76f438ba79e56ab8e4872d2df5c4da8 (diff)
Merge branch 'backup-partition' into next
Diffstat (limited to 'backup-partition.rsc')
-rw-r--r--backup-partition.rsc42
1 files changed, 42 insertions, 0 deletions
diff --git a/backup-partition.rsc b/backup-partition.rsc
index fc186c0..3c883f7 100644
--- a/backup-partition.rsc
+++ b/backup-partition.rsc
@@ -15,10 +15,29 @@
:do {
:local ScriptName [ :jobname ];
+ :global BackupPartitionCopyBeforeFeatureUpdate;
:global PackagesUpdateBackupFailure;
:global LogPrint;
+ :global ScriptFromTerminal;
:global ScriptLock;
+ :global VersionToNum;
+
+ :local CopyTo do={
+ :local ScriptName [ :tostr $1 ];
+ :local FallbackTo [ :tostr $2 ];
+
+ :global LogPrint;
+
+ :do {
+ /partitions/copy-to $FallbackTo;
+ $LogPrint info $ScriptName ("Copied RouterOS to partition '" . $FallbackTo . "'.");
+ :return true;
+ } on-error={
+ $LogPrint error $ScriptName ("Failed copying RouterOS to partition '" . $FallbackTo . "'!");
+ :return false;
+ }
+ }
:if ([ $ScriptLock $ScriptName ] = false) do={
:set PackagesUpdateBackupFailure true;
@@ -41,6 +60,29 @@
:local FallbackTo [ /partitions/get $ActiveRunning fallback-to ];
+ :if ([ /partitions/get $ActiveRunning version ] != [ /partitions/get $FallbackTo version]) do={
+ :if ([ $ScriptFromTerminal $ScriptName ] = true) do={
+ :put ("The partitions have different RouterOS versions. Copy over to '" . $FallbackTo . "'? [y/N]");
+ :if (([ /terminal/inkey timeout=60 ] % 32) = 25) do={
+ :if ([ $CopyTo $ScriptName $FallbackTo ] = false) do={
+ :set PackagesUpdateBackupFailure true;
+ :error false;
+ }
+ }
+ } else={
+ :local Update [ /system/package/update/get ];
+ :local NumInstalled [ $VersionToNum ($Update->"installed-version") ];
+ :local NumLatest [ $VersionToNum ($Update->"latest-version") ];
+ :if ($BackupPartitionCopyBeforeFeatureUpdate = true && $NumLatest > 0 && \
+ ($NumInstalled & 0xffff0000) != ($NumLatest & 0xffff0000)) do={
+ :if ([ $CopyTo $ScriptName $FallbackTo ] = false) do={
+ :set PackagesUpdateBackupFailure true;
+ :error false;
+ }
+ }
+ }
+ }
+
:do {
/system/scheduler/add start-time=startup name="running-from-backup-partition" \
on-event=(":log warning (\"Running from partition '\" . " . \