From ae5570325b8509ad8c637e8e6ebc81f1d8528cd0 Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Fri, 23 Oct 2020 14:13:40 +0200 Subject: ospf-to-leds: introduce script to visualize ospf state via leds --- ospf-to-leds | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 ospf-to-leds (limited to 'ospf-to-leds') diff --git a/ospf-to-leds b/ospf-to-leds new file mode 100644 index 0000000..61b90ce --- /dev/null +++ b/ospf-to-leds @@ -0,0 +1,24 @@ +#!rsc by RouterOS +# RouterOS script: ospf-to-leds +# Copyright (c) 2020 Christian Hesse +# https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md +# +# visualize ospf instance state via leds +# https://git.eworm.de/cgit/routeros-scripts/about/doc/ospf-to-leds.md + +:global LogPrintExit; +:global ParseKeyValueStore; + +:foreach Instance in=[ / routing ospf instance find where comment~"^ospf-to-leds," ] do={ + :local InstanceVal [ / routing ospf instance get $Instance ]; + :local LED ([ $ParseKeyValueStore ($InstanceVal->"comment") ]->"leds"); + :local LEDType [ / system leds get [ find where leds=$LED ] type ]; + + $LogPrintExit debug ("OSPF instance " . $InstanceVal->"name" . " is " . $InstanceVal->"state" . ".") false; + :if ($InstanceVal->"state" = "running" && $LEDType = "off") do={ + / system leds set type=on [ find where leds=$LED ]; + } + :if ($InstanceVal->"state" = "down" && $LEDType = "on") do={ + / system leds set type=off [ find where leds=$LED ]; + } +} -- cgit v1.2.3-54-g00ecf