From 94581741f42d809a1364accda57cdf1d57519ffa Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 12 Sep 2019 13:45:44 +0200
Subject: global-functions: introduce and use $DeviceInfo

---
 global-functions | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'global-functions')

diff --git a/global-functions b/global-functions
index 1b73b0a..87cda40 100644
--- a/global-functions
+++ b/global-functions
@@ -294,3 +294,32 @@
 
   :delay ([ $GetRandom $1 ] . "s");
 }
+
+# get readable device info
+:global DeviceInfo do={
+  :global Identity;
+
+  :local BoardName [ / system resource get board-name ];
+  :local RouterBoard [ / system routerboard get ];
+  :local Update [ / system package update get ];
+
+  :local Info ( \
+    "Hostname:       " . $Identity . "\n" . \
+    "Board name:     " . $BoardName);
+  :if ($RouterBoard->"routerboard" = true) do={
+    :set Info ($Info . "\n" . \
+      "Model:          " . $RouterBoard->"model" . "\n" . \
+      "Serial number:  " . $RouterBoard->"serial-number");
+  }
+  :set Info ($Info . "\n" . \
+    "RouterOS:\n" . \
+    "  Channel:      " . $Update->"channel" . "\n" . \
+    "  Installed:    " . $Update->"installed-version");
+  :if ([ :typeof ($Update->"latest-version") ] != "nothing" && \
+       $Update->"installed-version" != $Update->"latest-version") do={
+    :set Info ($Info . "\n" . \
+      "  Available:    " . $Update->"latest-version");
+  }
+
+  :return $Info;
+}
-- 
cgit v1.2.3-54-g00ecf