From b794d98cbb513f7ef49ffd4e19101e4580e96949 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 2 Feb 2023 09:48:43 +0100
Subject: telegram-chat: reply with a hint when untrusted...

... but only when activating via identity.
---
 telegram-chat | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/telegram-chat b/telegram-chat
index f5b0f63..93d4294 100644
--- a/telegram-chat
+++ b/telegram-chat
@@ -79,6 +79,7 @@ $WaitFullyConnected;
     :local FromID [ $JsonGetKey $From "id" ];
     :local FromUserName [ $JsonGetKey $From "username" ];
     :local ChatID [ $JsonGetKey [ $JsonGetKey $Message "chat" ] "id" ];
+    :local Text [ $JsonGetKey $Message "text" ];
     :foreach IdsTrusted in=($TelegramChatId, $TelegramChatIdsTrusted) do={
       :if ($FromID = $IdsTrusted || $FromUserName = $IdsTrusted) do={
         :set Trusted true;
@@ -86,7 +87,6 @@ $WaitFullyConnected;
     }
 
     :if ($Trusted = true) do={
-      :local Text [ $JsonGetKey $Message "text" ];
       :if ([ :pick $Text 0 1 ] = "!") do={
         :if ($Text ~ ("^! *(" . [ $EscapeForRegEx $Identity ] . "|@" . $TelegramChatGroups . ")\$")) do={
           :set TelegramChatActive true;
@@ -124,6 +124,11 @@ $WaitFullyConnected;
       }
     } else={
       $LogPrintExit2 warning $0 ("Received a message from untrusted contact '" . $FromUserName . "' (ID " . $FromID . ")!") false;
+      :if ($Text ~ ("^! *" . [ $EscapeForRegEx $Identity ] . "\$")) do={
+        $SendTelegram2 ({ origin=$0; chatid=$ChatID; silent=false; \
+          subject=([ $SymbolForNotification "speech-balloon" ] . "Telegram Chat"); \
+          message=("You are not trusted.") });
+      }
     }
   }
 }
-- 
cgit v1.2.3-70-g09d2