From 1f6040178fa14fafb1561c97a7f5aff9449c1ba6 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 19 Oct 2023 21:13:04 +0200
Subject: telegram-chat: rework the retry logic

... with increasing delay.
---
 telegram-chat.rsc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'telegram-chat.rsc')

diff --git a/telegram-chat.rsc b/telegram-chat.rsc
index e0a6295..686becc 100644
--- a/telegram-chat.rsc
+++ b/telegram-chat.rsc
@@ -48,15 +48,17 @@ $WaitFullyConnected;
 }
 
 :local Data false;
-:for I from=2 to=0 do={
+:for I from=1 to=4 do={
   :if ($Data = false) do={
     :do {
       :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");
     } on-error={
-      $LogPrintExit2 debug $0 ("Fetch failed, " . $I . " retries pending.") false;
-      :delay 2s;
+      :if ($I < 4) do={
+        $LogPrintExit2 debug $0 ("Fetch failed, " . $I . ". try.") false;
+        :delay (($I * $I) "s");
+      }
     }
   }
 }
-- 
cgit v1.2.3-54-g00ecf