From f72a1ab338129fef1c87bfdf9a4331c953d9ce25 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 21 Jul 2026 12:53:01 +0200
Subject: [PATCH] global-functions: $ScriptInstallUpdate: support setting
 policy

---
 global-functions.rsc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index ad981137..83a69335 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1385,6 +1385,12 @@
          $ScriptVal->"name" ~ ("^(global-functions\\.d|mod)/.")) do={
       :set ReloadGlobal true;
     }
+
+    :local RequirePolicy ([ $ParseKeyValueStore [ $Grep $SourceNew ("\23 requires policy, ") ] ]->"policy");
+    :if ([ :len $RequirePolicy ] > 0 && $RequirePolicy != [ :tostr ($ScriptVal->"policy") ]) do={
+      $LogPrintOnce info $0 ("Updating policy for script: " . $ScriptVal->"name");
+      /system/script/set policy=[ :toarray delimiter=";" $RequirePolicy ] $Script;
+    }
   }
 
   :if ($ReloadGlobal = true) do={