log-forward: cache the result of $LogForwardFilterLogForwarding

Looks like the function is called for every message to match otherwise. 😳

1 files changed, 2 insertions, 1 deletions

diff --git a/log-forward b/log-forward
index 73620e8..96cb257 100644
--- a/log-forward
+++ b/log-forward
@@ -47,8 +47,9 @@ $ScriptLock $0;
 :local MessageVal;
 :local MessageDups ({});
 
+:local LogForwardFilterLogForwardingCached [ $EitherOr [ $LogForwardFilterLogForwarding ] ("\$^") ];
 :foreach Message in=[ /log/find where (!(message="") and \
-    !(message~[ $EitherOr [ $LogForwardFilterLogForwarding ] ("\$^") ]) and \
+    !(message~$LogForwardFilterLogForwardingCached) and \
     !(topics~$LogForwardFilter) and !(message~$LogForwardFilterMessage)) or \
     topics~$LogForwardInclude or message~$LogForwardIncludeMessage ] do={
   :set MessageVal [ /log/get $Message ];