From f1396b83aa7f506fe653184016cd970728eb9407 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 13 May 2025 09:52:12 +0200
Subject: [PATCH] telegram-chat: support debug output for updates in JSON

---
 telegram-chat.rsc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/telegram-chat.rsc b/telegram-chat.rsc
index 50fc0cc..277c40f 100644
--- a/telegram-chat.rsc
+++ b/telegram-chat.rsc
@@ -33,6 +33,7 @@
   :global GetRandom20CharAlNum;
   :global IfThenElse;
   :global LogPrint;
+  :global LogPrintVerbose;
   :global MAX;
   :global MIN;
   :global MkDir;
@@ -96,6 +97,8 @@
   :local Uptime [ /system/resource/get uptime ];
   :foreach Update in=($JSON->"result") do={
     :set UpdateID ($Update->"update_id");
+    $LogPrintVerbose debug $ScriptName ("Update " . $UpdateID . ": " . [ :serialize to=json $Update ]);
+
     :local Message ($Update->"message");
     :local IsReply ([ :typeof ($Message->"reply_to_message") ] = "string");
     :local IsMyReply ($TelegramMessageIDs->[ :tostr ($Message->"reply_to_message"->"message_id") ]);