From 461aab48e89e65090ce3090ffe477badf21c345c Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 23 Jul 2026 09:33:57 +0200
Subject: [PATCH] global-functions: $ScriptInstallUpdate: support setting
 policy

---
 global-functions.rsc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index 85744878..35e4de7f 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1434,8 +1434,15 @@
         :error false;
       }
 
+      :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"));
+      }
+
       $LogPrint info $0 ("Updating script: " . $ScriptVal->"name");
-      /system/script/set owner=($ScriptVal->"name") \
+      /system/script/set owner=($ScriptVal->"name") policy=($ScriptVal->"policy") \
           source=[ $IfThenElse ($ScriptUpdatesCRLF = true) $SourceCRLF $SourceNew ] $Script;
       :if ($ScriptVal->"name" = "global-config" || \
            $ScriptVal->"name" = "global-functions" || \