#!rsc by RouterOS # RouterOS script: mode-button # Copyright (c) 2018-2020 Christian Hesse # https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md # # act on multiple mode and reset button presses # https://git.eworm.de/cgit/routeros-scripts/about/doc/mode-button.md :global ModeButton; :global LogPrintExit; :set ($ModeButton->"count") ($ModeButton->"count" + 1); :local Scheduler [ / system scheduler find where name="ModeButtonScheduler" ]; :if ([ :len $Scheduler ] = 0) do={ $LogPrintExit info ("Creating scheduler ModeButtonScheduler, counting presses...") false; :global ModeButtonScheduler do={ :global ModeButton; :global LogPrintExit; :global ModeButtonScheduler; :local LEDInvert do={ :global ModeButtonLED; :global IfThenElse; :local LED [ / system leds find where leds=$ModeButtonLED type~"^(on|off)\$" interface=[] ]; :if ([ :len $LED ] = 0) do={ :return false; } / system leds set type=[ $IfThenElse ([ get $LED type ] = "on") "off" "on" ] $LED; } :local Count ($ModeButton->"count"); :local Code ($ModeButton->[ :tostr $Count ]); :set ($ModeButton->"count") 0; :set ModeButtonScheduler; / system scheduler remove ModeButtonScheduler; :if ([ :len $Code ] > 0) do={ $LogPrintExit info ("Acting on " . $Count . " mode-button presses: " . $Code) false; :for I from=1 to=$Count do={ $LEDInvert; :if ([ / system routerboard settings get silent-boot ] = false) do={ :beep length=200ms; } :delay 200ms; $LEDInvert; :delay 200ms; } [ :parse $Code ]; } else={ $LogPrintExit info ("No action defined for " . $Count . " mode-button presses.") false; } } / system scheduler add name="ModeButtonScheduler" \ on-event=":global ModeButtonScheduler; \$ModeButtonScheduler;" interval=3s; } else={ $LogPrintExit debug ("Updating scheduler ModeButtonScheduler...") false; / system scheduler set $Scheduler start-time=[ /system clock get time ]; }