aboutsummaryrefslogtreecommitdiffstats
path: root/unattended-lte-firmware-upgrade
blob: 3570c574514b6e1543cd633f9ec0d5695e63cdff (plain) (blame)
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
#!rsc
# RouterOS script: unattended-lte-firmware-upgrade
# Copyright (c) 2018-2019 Christian Hesse <mail@eworm.de>
#
# schedule unattended lte firmware upgrade

:foreach interface in=[ / interface lte find ] do={
  :local firmware;
  :local intname [ / interface lte get $interface name ];
  do {
    :set firmware [ / interface lte firmware-upgrade $interface once as-value ];
    # strip the extra line break (TODO: remove when fixed upstream)
    :set ($firmware->"latest") [ :pick ($firmware->"latest") 0 [ :find ($firmware->"latest") "\n" ] ];
  } on-error={
    :log debug ("Could not get latest LTE firmware version for interface " . $intname . ".");
  }

  :if (($firmware->"installed") != ($firmware->"latest")) do={
    :log info ("Scheduling LTE firmware upgrade for interface " . $intname . ".");
    / system script add name=($intname . "-firmware-upgrade") source=("# unattended-lte-firmware-upgrade\n" . \
       "/ system scheduler remove " . $intname . "-firmware-upgrade;\n" . \
       "/ system script remove " . $intname . "-firmware-upgrade;\n" . \
       "/ interface lte firmware-upgrade " . $intname . " upgrade=yes;\n" . \
       ":log info (\"LTE firmware upgrade finished, waiting for installation before reset.\");\n" . \
       ":delay 150s;\n" . \
       "/ interface lte at-chat " . $intname . " input=\"AT+RESET\";");
    / system scheduler add name=($intname . "-firmware-upgrade") on-event=($intname . "-firmware-upgrade") interval=1m;
  }
}