From a1951cc86a206abd0b6d46d579a8247af42904f8 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 3 Sep 2018 17:30:47 +0200
Subject: remove-packages: remove outdated packages only

---
 remove-packages | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/remove-packages b/remove-packages
index 1d7a595..cf449a0 100644
--- a/remove-packages
+++ b/remove-packages
@@ -2,6 +2,16 @@
 # RouterOS script: remove-packages
 # Copyright (c) 2013-2018 Christian Hesse <mail@eworm.de>
 #
-# remove packages (*.npk) from storage
+# remove packages (*.npk) not matching installed version
 
-/ file remove [ / file find type="package" ];
+:local version [ / system package update get installed-version ];
+
+:foreach package in=[ / file find type="package" ] do={
+  :local filename [ / file get $package name ];
+  :if ($filename~$version) do={
+    :log debug ("Package file " . $filename . " is up-to-date.");
+  } else={
+    :log debug ("Removing old packge file: " . $filename);
+    / file remove $package;
+  }
+}
-- 
cgit v1.2.3-54-g00ecf