capsman-download-packages


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#!rsc
# RouterOS script: capsman-download-packages
# Copyright (c) 2018-2019 Christian Hesse <mail@eworm.de>
#                         Michael Gisbers <michael@gisbers.de>
#
# requires: dont-require-permissions=yes
#
# download and cleanup packages for CAP installation from CAPsMAN

:global DownloadPackage;

:local PackagePath [ / caps-man manager get package-path ];
:if ([ :pick $PackagePath 0 ] = "/") do={
  :set PackagePath [ :pick $PackagePath 1 [ :len $PackagePath ] ];
}
:local InstalledVersion [ / system package update get installed-version ];
:local Updated false;

:foreach Package in=[ / file find where type=package \
      package-version!=$InstalledVersion name~("^" . $PackagePath) ] do={
  :local PackageName [ / file get $Package package-name ];
  :local PackageArchitecture [ / file get $Package package-architecture ];
  :if ($PackageArchitecture = "mips") do={
    :set PackageArchitecture "mipsbe";
  }
  :if ($PackageName = "wireless@") do={
    :set PackageName "wireless";
  }
  :if ([ $DownloadPackage $PackageName $InstalledVersion $PackageArchitecture $PackagePath ] = true) do={
    :set Updated true;
    / file remove $Package;
  }
}

:if ($Updated = true) do={
  / caps-man remote-cap upgrade [ find where version!=$InstalledVersion ];
}