global-functions: $ScriptLock: allow to return...

... with true instead of breaking with error.
This commit is contained in:
Christian Hesse 2021-06-27 20:40:22 +02:00
parent 89f8dc7120
commit 301ad4b3e5

View file

@ -904,13 +904,18 @@
# lock script against multiple invocation
:set ScriptLock do={
:local Script [ :tostr $1 ];
:local DoReturn $2;
:global IfThenElse;
:global LogPrintExit2;
:local Script [ :tostr $1 ];
:if ([ :len [ / system script job find where script=$Script ] ] > 1) do={
$LogPrintExit2 info $0 ("Script " . $Script . " started more than once... Aborting.") true;
$LogPrintExit2 info $0 ("Script " . $Script . " started more than once... Aborting.") \
[ $IfThenElse ($DoReturn = true) false true ];
:return true;
}
:return false;
}
# send notification via e-mail - expects at lease two string arguments