Add support for Bot API 6.3

2022-11-06 22:08:02 +03:00
parent f9658ac5e8
commit b4e6685213
51 changed files with 344 additions and 106 deletions
--- a/lib/RedisLib.pm
+++ b/lib/RedisLib.pm
@@ -51,6 +51,9 @@ sub redis_parse_message {
 	}

 	$message->{text} = "$m->{message}";
+	if (defined ($m->{threadid}) && $m->{threadid} ne '') {
+		$message->{message_thread_id} = 0 + $m->{threadid};
+	}

 	my $can_talk = Teapot::Bot::Object::ChatPermissions->canTalk ($main::TGM, 0 + $m->{chatid});