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 ...

README.md

@@ -294,7 +294,7 @@ Available scripts
 * [Manage IP addresses with bridge status](doc/ip-addr-bridge.md) (`ip-addr-bridge`)
 * [Manage LEDs dark mode](doc/leds-mode.md) (`leds-day-mode`, `leds-night-mode` & `leds-toggle-mode`)
 * [Forward log messages via notification](doc/log-forward.md) (`log-forward`)
-* [Mode button with multiple presses](doc/mode-button.md) (`mode-button`)
+* [Mode button with multiple presses](doc/mode-button.md) (`mode-button` & `mode-button-scheduler`)
 * [Manage DNS and DoH servers from netwatch](doc/netwatch-dns.md) (`netwatch-dns`)
 * [Notify on host up and down](doc/netwatch-notify.md) (`netwatch-notify`)
 * [Visualize OSPF state via LEDs](doc/ospf-to-leds.md) (`ospf-to-leds`)

global-functions.rsc

@@ -1377,25 +1377,22 @@
       :continue;
     }
 
-    :local RequirePolicy [ $ParseKeyValueStore [ $Grep $SourceNew ("\23 requires policy, ") ] ];
-    :if ([ :len ($RequirePolicy->"policy") ] > 0) do={
-      :set ($ScriptVal->"policy") [ :toarray delimiter=";" \
-          ($RequirePolicy->"policy") ];
-      $LogPrintOnce debug $0 ("New policy for script '" . $ScriptVal->"name" . \
-          "': " . ($RequirePolicy->"policy"));
+    :local ReqPolicy [ $ParseKeyValueStore [ $Grep $SourceNew ("\23 requires policy, ") ] ];
+    :if ([ :len ($ReqPolicy->"policy") ] > 0) do={
+      :set ($ScriptVal->"policy") [ :toarray delimiter=";" ($ReqPolicy->"policy") ];
+      $LogPrint debug $0 ("New policy for script '" . $ScriptVal->"name" . \
+          "': " . ($ReqPolicy->"policy"));
     }
-    :if ([ :len ($RequirePolicy->"dont-require-permissions") ] > 0) do={
-      :set ($ScriptVal->"dont-require-permissions") ($RequirePolicy->"dont-require-permissions");
-      $LogPrintOnce debug $0 ("Setting dont-require-permissions for script '" . $ScriptVal->"name" . "'.");
+    :if ([ :len ($ReqPolicy->"dont-require-permissions") ] > 0) do={
+      :set ($ScriptVal->"dont-require-permissions") ($ReqPolicy->"dont-require-permissions");
+      $LogPrint debug $0 ("Setting dont-require-permissions for script '" . $ScriptVal->"name" . "'.");
     }
 
     $LogPrint info $0 ("Updating script: " . $ScriptVal->"name");
     /system/script/set owner=($ScriptVal->"name") policy=($ScriptVal->"policy") \
         dont-require-permissions=($ScriptVal->"dont-require-permissions") \
         source=[ $IfThenElse ($ScriptUpdatesCRLF = true) $SourceCRLF $SourceNew ] $Script;
-    :if ($ScriptVal->"name" = "global-config" || \
-         $ScriptVal->"name" = "global-functions" || \
-         $ScriptVal->"name" ~ ("^(global-functions\\.d|mod)/.")) do={
+    :if ($ScriptVal->"name" ~ ("^(global-config|global-functions(\\.d/.+)?|mod/.+)\$")) do={
       :set ReloadGlobal true;
     }
   }