aboutsummaryrefslogtreecommitdiffstats
path: root/mode-button
diff options
context:
space:
mode:
Diffstat (limited to 'mode-button')
-rw-r--r--mode-button76
1 files changed, 0 insertions, 76 deletions
diff --git a/mode-button b/mode-button
deleted file mode 100644
index e2da374..0000000
--- a/mode-button
+++ /dev/null
@@ -1,76 +0,0 @@
-#!rsc by RouterOS
-# RouterOS script: mode-button
-# Copyright (c) 2018-2021 Christian Hesse <mail@eworm.de>
-# 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
-
-:local 0 "mode-button";
-:global GlobalFunctionsReady;
-:while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
-
-:global ModeButton;
-
-:global LogPrintExit2;
-
-:set ($ModeButton->"count") ($ModeButton->"count" + 1);
-
-:local Scheduler [ / system scheduler find where name="ModeButtonScheduler" ];
-
-:if ([ :len $Scheduler ] = 0) do={
- $LogPrintExit2 info $0 ("Creating scheduler ModeButtonScheduler, counting presses...") false;
- :global ModeButtonScheduler do={
- :global ModeButton;
-
- :global LogPrintExit2;
- :global ModeButtonScheduler;
- :global ValidateSyntax;
-
- :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={
- :if ([ $ValidateSyntax $Code ] = true) do={
- $LogPrintExit2 info $0 ("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={
- $LogPrintExit2 warning $0 ("The code for " . $Count . " mode-button presses failed syntax validation!") false;
- }
- } else={
- $LogPrintExit2 info $0 ("No action defined for " . $Count . " mode-button presses.") false;
- }
- }
- / system scheduler add name="ModeButtonScheduler" \
- on-event=":global ModeButtonScheduler; \$ModeButtonScheduler;" interval=3s;
-} else={
- $LogPrintExit2 debug $0 ("Updating scheduler ModeButtonScheduler...") false;
- / system scheduler set $Scheduler start-time=[ /system clock get time ];
-}