From 73194b92cf2c4c10b7d45945b15f26c965d03dca Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 13 Oct 2023 22:43:19 +0200
Subject: telegram-chat: use $ParseJson for all JSON

---
 telegram-chat.rsc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/telegram-chat.rsc b/telegram-chat.rsc
index 2bd8ccd..59e56b7 100644
--- a/telegram-chat.rsc
+++ b/telegram-chat.rsc
@@ -52,14 +52,13 @@ $WaitFullyConnected;
   :set Data ([ /tool/fetch check-certificate=yes-without-crl output=user \
     ("https://api.telegram.org/bot" . $TelegramTokenId . "/getUpdates?offset=" . \
     $TelegramChatOffset->0 . "&allowed_updates=%5B%22message%22%5D") as-value ]->"data");
-  :set Data [ :pick $Data ([ :find $Data "[" ] + 1) ([ :len $Data ] - 2) ];
 } on-error={
   $LogPrintExit2 debug $0 ("Failed getting updates from Telegram.") true;
 }
 
 :local UpdateID 0;
 :local Uptime [ /system/resource/get uptime ];
-:foreach UpdateArray in=[ :toarray $Data ] do={
+:foreach UpdateArray in=[ :toarray ([ $ParseJson $Data ]->"result") ] do={
   :local Update [ $ParseJson $UpdateArray ];
   :set UpdateID ($Update->"update_id");
   :local Message [ $ParseJson ($Update->"message") ];
-- 
cgit v1.2.3-54-g00ecf