netwatch-dns: check with a HTTP/2 request

We need RouterOS 7.24 for this to catch runtime errors for bad
command parameters.

Actually this would work with RouterOS 7.23 on architectures that
support http-version=http2 ...

doc/mode-button.md

@@ -16,7 +16,7 @@ Mode button with multiple presses
 Description
 -----------
 
-These scripts extend the functionality of mode button. Instead of just one
+This script extend the functionality of mode button. Instead of just one
 you can trigger several actions by pressing the mode button several times.
 
 The hardware needs to have a mode button, see
@@ -39,9 +39,9 @@ Copy this code to terminal to check:
 Requirements and installation
 -----------------------------
 
-Just install the scripts:
+Just install the script:
 
-    $ScriptInstallUpdate mode-button,mode-button-scheduler;
+    $ScriptInstallUpdate mode-button;
 
 Then configure the mode button to run `mode-button`:
 

global-functions.rsc

@@ -15,7 +15,7 @@
 # Git commit id & info, expected configuration version
 :global CommitId "unknown";
 :global CommitInfo "unknown";
-:global ExpectedConfigVersion 144;
+:global ExpectedConfigVersion 143;
 
 # global variables not to be changed by user
 :global GlobalFunctionsReady false;

mode-button-scheduler.rsc

@@ -1,80 +0,0 @@
-#!rsc by RouterOS
-# RouterOS script: mode-button-scheduler
-# Copyright (c) 2018-2026 Christian Hesse <mail@eworm.de>
-# https://rsc.eworm.de/COPYING.md
-#
-# requires RouterOS, version=7.22
-# requires device-mode, scheduler
-#
-# act on multiple mode and reset button presses
-# https://rsc.eworm.de/doc/mode-button.md
-
-:onerror Err {
-  :global GlobalConfigReady; :global GlobalFunctionsReady;
-  :retry { :if ($GlobalConfigReady != true || $GlobalFunctionsReady != true) \
-      do={ :error ("Global config and/or functions not ready."); }; } delay=500ms max=50;
-  :local ScriptName [ :jobname ];
-
-  :global ModeButton;
-
-  :global LogPrint;
-  :global ModeButtonScheduler;
-  :global ValidateSyntax;
-
-  :local LEDInvert do={
-    :global ModeButtonLED;
-
-    :global IfThenElse;
-
-    :local LED [ /system/leds/find where leds=$ModeButtonLED \
-        !disabled type~"^(on|off)\$" interface=[] ];
-    :if ([ :len $LED ] = 0) do={
-      :return false;
-    }
-    /system/leds/set type=[ $IfThenElse ([ get $LED type ] = "on") "off" "on" ] $LED;
-  }
-
-  :local Scheduler [ /system/scheduler/find where name="mode-button-scheduler" ];
-
-  :if ([ :len $Scheduler ] = 0) do={
-    $LogPrint error $ScriptName ("Scheduler does not exist.");
-    :exit;
-  }
-  
-  :local Count ([ :deserialize from=json [ /system/scheduler/get $Scheduler comment ] ]->"count");
-  :local Code ($ModeButton->[ :tostr $Count ]);
-
-  /system/scheduler/remove $Scheduler;
-
-  :if ([ :len $Code ] = 0) do={
-    $LogPrint info $ScriptName ("No action defined for " . $Count . " mode-button presses.");
-    :exit;
-  }
-
-  :if ([ $ValidateSyntax $Code ] = false) do={
-    $LogPrint warning $ScriptName \
-        ("The code for " . $Count . " mode-button presses failed syntax validation!");
-    :exit;
-  }
-
-  $LogPrint info $ScriptName ("Acting on " . $Count . " mode-button presses: " . $Code);
-
-  :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;
-  }
-
-  :onerror Err {
-    [ :parse $Code ];
-  } do={
-    $LogPrint warning $ScriptName \
-        ("The code for " . $Count . " mode-button presses failed with runtime error: " . $Err);
-  }
-} do={
-  :global ExitOnError; $ExitOnError [ :jobname ] $Err;
-}

mode-button.rsc

@@ -10,21 +10,86 @@
 # https://rsc.eworm.de/doc/mode-button.md
 
 :onerror Err {
+  :global GlobalConfigReady; :global GlobalFunctionsReady;
+  :retry { :if ($GlobalConfigReady != true || $GlobalFunctionsReady != true) \
+      do={ :error ("Global config and/or functions not ready."); }; } delay=500ms max=50;
   :local ScriptName [ :jobname ];
 
-  :local Scheduler [ /system/scheduler/find where name="mode-button-scheduler" ];
+  :global ModeButton;
+
+  :global LogPrint;
+
+  :set ($ModeButton->"count") ($ModeButton->"count" + 1);
+
+  :local Scheduler [ /system/scheduler/find where name="_ModeButtonScheduler" ];
 
   :if ([ :len $Scheduler ] = 0) do={
-    :log info ($ScriptName . ": Creating scheduler mode-button-scheduler, counting presses...");
-    /system/scheduler/add name="mode-button-scheduler" interval=3s \
-        comment=[ :serialize to=json ({ count=1 }) ] \
-        on-event="/system/script/run mode-button-scheduler;";
+    $LogPrint info $ScriptName ("Creating scheduler _ModeButtonScheduler, counting presses...");
+    :global ModeButtonScheduler do={ :onerror Err {
+      :local FuncName $0;
+
+      :global ModeButton;
+
+      :global LogPrint;
+      :global ModeButtonScheduler;
+      :global ValidateSyntax;
+
+      :local LEDInvert do={
+        :global ModeButtonLED;
+
+        :global IfThenElse;
+
+        :local LED [ /system/leds/find where leds=$ModeButtonLED \
+            !disabled 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 [ find where name="_ModeButtonScheduler" ];
+
+      :if ([ :len $Code ] > 0) do={
+        :if ([ $ValidateSyntax $Code ] = true) do={
+          $LogPrint info $FuncName ("Acting on " . $Count . " mode-button presses: " . $Code);
+
+          :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;
+          }
+
+          :onerror Err {
+            [ :parse $Code ];
+          } do={
+            $LogPrint warning $FuncName \
+                ("The code for " . $Count . " mode-button presses failed with runtime error: " . $Err);
+          }
+        } else={
+          $LogPrint warning $FuncName \
+              ("The code for " . $Count . " mode-button presses failed syntax validation!");
+        }
+      } else={
+        $LogPrint info $FuncName ("No action defined for " . $Count . " mode-button presses.");
+      }
+    } do={
+      :global ExitOnError; $ExitOnError $0 $Err;
+    } }
+    /system/scheduler/add name="_ModeButtonScheduler" \
+        on-event=":global ModeButtonScheduler; \$ModeButtonScheduler;" interval=3s;
   } else={
-    :log debug ($ScriptName . ": Updating scheduler mode-button-scheduler...");
-    :local Presses (([ :deserialize from=json [ /system/scheduler/get $Scheduler comment ] ]->"count") + 1);
-    /system/scheduler/set $Scheduler start-time=[ /system/clock/get time ] \
-        comment=[ :serialize to=json ({ count=$Presses }) ];
+    $LogPrint debug $ScriptName ("Updating scheduler _ModeButtonScheduler...");
+    /system/scheduler/set $Scheduler start-time=[ /system/clock/get time ];
   }
 } do={
-  :log error ([ :jobname ] . ": " . $Err);
+  :global ExitOnError; $ExitOnError [ :jobname ] $Err;
 }

news-and-changes.rsc

@@ -68,7 +68,6 @@
   141="Introduced script 'dhcpv6-client-lease' to run several scripts on IPv6 DHCP client lease.";
   142="Added a setting for 'mod/notification-email' to check availability of certificate chain.";
   143="Made backup scripts 'backup-email' and 'backup-upload' support date & time in filenames.";
-  144="Split and reworked 'mode-button' for compatibility with RouterOS 7.24, configuration was updated automatically.";
 };
 
 # Migration steps to be applied on script updates
@@ -80,5 +79,4 @@
   132=":if ([ :len [ /system/script/find where name=\"check-health\" ] ] > 0) do={ :local Code \":local Install \\\"check-health\\\"; :if ([ :len [ /system/health/find where type=\\\"\\\" name~\\\"-state\\\\\\\$\\\" ] ] > 0) do={ :set Install (\\\$Install . \\\",check-health.d/state\\\"); }; :if ([ :len [ /system/health/find where type=\\\"C\\\" ] ] > 0) do={ :set Install (\\\$Install . \\\",check-health.d/temperature\\\"); }; :if ([ :len [ /system/health/find where type=\\\"V\\\" ] ] > 0) do={ :set Install (\\\$Install . \\\",check-health.d/voltage\\\"); }; :global ScriptInstallUpdate; \\\$ScriptInstallUpdate \\\$Install;\"; :global ValidateSyntax; :if ([ \$ValidateSyntax \$Code ] = true) do={ :do { [ :parse \$Code ]; } on-error={ }; }; };";
   138="/certificate/set trusted=yes [ find where trusted=yes ];";
   140=":if ([ :len [ /system/script/find where name=\"lease-script\" ] ] > 0) do={ /system/script/set name=\"dhcpv4-server-lease\" \"lease-script\"; :global ScriptInstallUpdate; \$ScriptInstallUpdate; /ip/dhcp-server/set lease-script=\"dhcpv4-server-lease\" [ find where lease-script=\"lease-script\" ]; };";
-  144=":if ([ :len [ /system/script/find where name=\"mode-button\" ] ] > 0) do={ :global ScriptInstallUpdate; \$ScriptInstallUpdate mode-button-scheduler; };";
 };