global-functions: introduce $LogAndPut

1 files changed, 10 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index 0e3b5f1..7e70d01 100644
--- a/global-functions
+++ b/global-functions
@@ -38,6 +38,7 @@
 :global TimeIsSync;
 :global WaitTimeSync;
 :global LogAndError;
+:global LogAndPut;
 
 # url encoding
 :set UrlEncode do={
@@ -498,3 +499,12 @@
   [ :parse (":log " . $Severity . " \$Message") ];
   :error ($Severity . ": " . $Message);
 }
+
+# log and put (print on terminal) same text
+:set LogAndPut do={
+  :local Severity [ :tostr $1 ];
+  :local Message [ :tostr $2 ];
+
+  [ :parse (":log " . $Severity . " \$Message") ];
+  :put ($Severity . ": " . $Message);
+}