capsman-download-packages: get info from log

Relying on older packages in local storage may be problematic due to
size constraints. Let's check the log for required packages.

2 files changed, 22 insertions, 10 deletions

diff --git a/capsman-download-packages b/capsman-download-packages
index 6f4642c..ac5ec0e 100644
--- a/capsman-download-packages
+++ b/capsman-download-packages
@@ -50,6 +50,25 @@ $WaitFullyConnected;
   }
 }
 
+:if ($Updated = false && [ / system resource get uptime ] < 2m) do={
+  $LogPrintExit2 info $0 ("No packages downloaded, yet. Delaying for logs.") false;
+  :delay 2m;
+}
+
+:foreach Log in=[ / log find where topics=({"caps", "error"}) \
+    message~("upgrade status: failed, failed to download file '.*-" . $InstalledVersion . "-.*\\.npk', no such file") ] do={
+  :local Message [ / log get $Log message ];
+  :local Package [ :pick $Message \
+    ([ :find $Message "'" ] + 1) \
+    [ :find $Message ("-" . $InstalledVersion . "-") ] ];
+  :local Arch [ :pick $Message \
+    ([ :find $Message ("-" . $InstalledVersion . "-") ] + 2 + [ :len $InstalledVersion ]) \
+    [ :find $Message ".npk" ] ];
+  :if ([ $DownloadPackage $Package $InstalledVersion $Arch $PackagePath ] = true) do={
+    :set Updated true;
+  }
+}
+
 :if ($Updated = true) do={
   :if ([ :len [ / system script find where name="capsman-rolling-upgrade" ] ] > 0) do={
     / system script run capsman-rolling-upgrade;
diff --git a/doc/capsman-download-packages.md b/doc/capsman-download-packages.md
index d3e08ad..bac8a3c 100644
--- a/doc/capsman-download-packages.md
+++ b/doc/capsman-download-packages.md
@@ -26,16 +26,9 @@ Optionally add a scheduler to run after startup:
 
     / system scheduler add name=capsman-download-packages on-event="/ system script run capsman-download-packages;" start-time=startup;
 
-Only packages available in older version are downloaded. For initial setup
-place the required packages to CAPsMAN package path (see
-`/ caps-man manager`). The packages can be downloaded from device with
-function `$DownloadPackage`, use something like this to download latest
-packages to directory `routeros`:
-
-    $DownloadPackage routeros "" arm routeros;
-    $DownloadPackage routeros "" arm64 routeros;
-    $DownloadPackage routeros "" mipsbe routeros;
-    [...]
+Packages available in local storage in older version are downloaded
+unconditionally. The script tries to download missing packages by guessing
+from system log.
 
 Usage and invocation
 --------------------