diff --git a/lib/Teapot/Bot/Brain.pm b/lib/Teapot/Bot/Brain.pm index bfb0feb..717b5ee 100644 --- a/lib/Teapot/Bot/Brain.pm +++ b/lib/Teapot/Bot/Brain.pm @@ -458,6 +458,9 @@ sub sendChatAction { elsif ($args->{action} eq 'upload_video_note') { $send_args->{action} = 'upload_video_note'; } + elsif ($args->{action} eq 'choose_sticker') { + $send_args->{action} = 'choose_sticker'; + } else { $send_args->{action} = 'typing'; } diff --git a/lib/Teapot/Bot/Object/Chat.pm b/lib/Teapot/Bot/Object/Chat.pm index d312f36..c63ad77 100644 --- a/lib/Teapot/Bot/Object/Chat.pm +++ b/lib/Teapot/Bot/Object/Chat.pm @@ -17,6 +17,9 @@ has 'first_name'; # Optional. has 'last_name'; # Optional. has 'photo'; # Teapot::Bot::Object::ChatPhoto. Optional. Returned only in getChat. has 'bio'; # Optional. Bio of the other party in a private chat. Returned only in getChat. +has 'has_private_forwards'; # Optional. True, if privacy settings of the other party in the private chat allows to + # use tg://user?id= links only in chats with the user. + # Returned only in getChat. has 'description'; # Optional. Returned only in getChat. has 'invite_link'; # Optional. Returned only in getChat. has 'pinned_message'; # Teapot::Bot::Object::Message @@ -25,6 +28,8 @@ has 'permissions'; # Teapot::Bot::Object::ChatPermissions. Optional has 'slow_mode_delay'; # Optional. Returned only in getChat. has 'message_auto_delete_time'; # Optional. The time after which all messages sent to the chat will be automatically # deleted; in seconds. Returned only in getChat. +has 'has_protected_content'; # Optional. True, if messages from the chat can't be forwarded to other chats. + # Returned only in getChat. has 'sticker_set_name'; # Optional. Returned only in getChat. has 'can_set_sticker_set'; # Optional. Returned only in getChat. has 'linked_chat_id'; # Optional. greater than 32 bits, smaller than 52 bits @@ -32,8 +37,9 @@ has 'location'; # Optional. Returned only in getChat. sub fields { return { - 'scalar' => [qw/id type title username first_name last_name bio description - invite_link slow_mode_delay message_auto_delete_time + 'scalar' => [qw/id type title username first_name last_name bio + has_private_forwards description invite_link slow_mode_delay + message_auto_delete_time has_protected_content sticker_set_name can_set_sticker_set linked_chat_id/], 'Teapot::Bot::Object::ChatPhoto' => [qw/photo/], 'Teapot::Bot::Object::Message' => [qw/pinned_message/], diff --git a/lib/Teapot/Bot/Object/ChatInviteLink.pm b/lib/Teapot/Bot/Object/ChatInviteLink.pm index a7842bb..7618e96 100644 --- a/lib/Teapot/Bot/Object/ChatInviteLink.pm +++ b/lib/Teapot/Bot/Object/ChatInviteLink.pm @@ -8,15 +8,19 @@ $Teapot::Bot::Object::ChatInviteLink::VERSION = '0.022'; has 'invite_link'; has 'creator'; +has 'creates_join_request'; has 'is_primary'; has 'is_revoked'; +has 'name'; has 'expire_date'; # Optional. Point in time (Unix timestamp) when the link will expire or has been expired has 'member_limit'; # Optional. Maximum number of users that can be members of the chat simultaneously after joining # the chat via this invite link; 1-99999 +has 'pending_join_request_count'; sub fields { return { - 'scalar' => [qw/invite_link is_primary is_revoked expire_date expire_date member_limit/], + 'scalar' => [qw/invite_link creates_join_request is_primary is_revoked name expire_date + member_limit pending_join_request_count/], 'Teapot::Bot::Object::User' => [qw/creator/], }; } diff --git a/lib/Teapot/Bot/Object/Message.pm b/lib/Teapot/Bot/Object/Message.pm index 6861c86..b5bf6ae 100644 --- a/lib/Teapot/Bot/Object/Message.pm +++ b/lib/Teapot/Bot/Object/Message.pm @@ -52,9 +52,11 @@ has 'forward_from_message_id'; has 'forward_signature'; has 'forward_sender_name'; has 'forward_date'; +has 'is_automatic_forward'; has 'reply_to_message'; # Message has 'via_bot'; # User has 'edit_date'; +has 'has_protected_content'; has 'media_group_id'; has 'author_signature'; has 'text'; @@ -102,8 +104,8 @@ sub fields { return { 'scalar' => [qw/message_id date forward_from_message_id forward_signature forward_sender_name - forward_date edit_date media_group_id - author_signature text caption + forward_date is_automatic_forward edit_date has_protected_content + media_group_id author_signature text caption new_chat_title delete_chat_photo group_chat_created supergroup_chat_created channel_chat_created migrate_to_chat_id