global-functions: $ScriptLock: check if script is running

1 files changed, 4 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index 7b68701..255c30a 100644
--- a/global-functions
+++ b/global-functions
@@ -914,6 +914,10 @@
     $LogPrintExit2 error $0 ("A script named '" . $Script . "' does not exist!") true;
   }
 
+  :if ([ :len [ / system script job find where script=$Script ] ] = 0) do={
+    $LogPrintExit2 error $0 ("No script '" . $Script . "' is running!") true;
+  }
+
   :if ([ :len [ / system script job find where script=$Script ] ] > 1) do={
     $LogPrintExit2 info $0 ("Script " . $Script . " started more than once... Aborting.") \
       [ $IfThenElse ($DoReturn = true) false true ];