From 792eba8465291b2ae1f372c41b9c833bf5d7a340 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 5 Mar 2020 08:06:43 +0100
Subject: [PATCH] global-functions: $LogPrintExit: add debugging option

---
 global-functions | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/global-functions b/global-functions
index 8acc351..23283f1 100644
--- a/global-functions
+++ b/global-functions
@@ -274,17 +274,22 @@
   :local Message  [ :tostr $2 ];
   :local Exit     [ :tostr $3 ];
 
-  :if ($Severity ~ "^(error|info)\$") do={
-    :if ($Severity = "error" ) do={ :log error $Message; }
-    :if ($Severity = "info"  ) do={ :log info  $Message; }
+  :global PrintDebug;
+
+  :if ($Severity ~ "^(debug|error|info)\$") do={
+    :if ($Severity = "debug") do={ :log debug $Message; }
+    :if ($Severity = "error") do={ :log error $Message; }
+    :if ($Severity = "info" ) do={ :log info  $Message; }
   } else={
     :log warning $Message;
   }
 
-  :if ($Exit = "true") do={
-    :error ($Severity . ": " . $Message);
-  } else={
-    :put ($Severity . ": " . $Message);
+  :if ($Severity != "debug" || $PrintDebug = true) do={
+    :if ($Exit = "true") do={
+      :error ($Severity . ": " . $Message);
+    } else={
+      :put ($Severity . ": " . $Message);
+    }
   }
 }