316 lines
11 KiB
Perl
316 lines
11 KiB
Perl
package Teapot::Bot::Object::Message;
|
|
# ABSTRACT: The base class for the Telegram type "Message".
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.018; ## no critic (ProhibitImplicitImport)
|
|
use utf8;
|
|
|
|
use Mojo::Base 'Teapot::Bot::Object::Base';
|
|
|
|
use Teapot::Bot::Object::User ();
|
|
use Teapot::Bot::Object::Chat ();
|
|
use Teapot::Bot::Object::ChatMember ();
|
|
use Teapot::Bot::Object::ChatPermissions ();
|
|
use Teapot::Bot::Object::MessageEntity ();
|
|
use Teapot::Bot::Object::Audio ();
|
|
use Teapot::Bot::Object::Document ();
|
|
use Teapot::Bot::Object::Animation ();
|
|
use Teapot::Bot::Object::Game ();
|
|
use Teapot::Bot::Object::PhotoSize ();
|
|
use Teapot::Bot::Object::Sticker ();
|
|
use Teapot::Bot::Object::Video ();
|
|
use Teapot::Bot::Object::Voice ();
|
|
use Teapot::Bot::Object::VideoNote ();
|
|
use Teapot::Bot::Object::Contact ();
|
|
use Teapot::Bot::Object::Location ();
|
|
use Teapot::Bot::Object::Poll ();
|
|
use Teapot::Bot::Object::Location ();
|
|
use Teapot::Bot::Object::PhotoSize ();
|
|
use Teapot::Bot::Object::Invoice ();
|
|
use Teapot::Bot::Object::Venue ();
|
|
use Teapot::Bot::Object::SuccessfulPayment ();
|
|
use Teapot::Bot::Object::WriteAccessAllowed ();
|
|
use Teapot::Bot::Object::PassportData ();
|
|
use Teapot::Bot::Object::ForumTopicCreated ();
|
|
use Teapot::Bot::Object::ForumTopicEdited ();
|
|
use Teapot::Bot::Object::ForumTopicClosed ();
|
|
use Teapot::Bot::Object::ForumTopicReopened ();
|
|
use Teapot::Bot::Object::GeneralForumTopicHidden ();
|
|
use Teapot::Bot::Object::GeneralForumTopicUnhidden ();
|
|
use Teapot::Bot::Object::InlineKeyboardMarkup ();
|
|
use Teapot::Bot::Object::ProximityAlertTriggered ();
|
|
use Teapot::Bot::Object::Dice ();
|
|
use Teapot::Bot::Object::MessageAutoDeleteTimerChanged ();
|
|
use Teapot::Bot::Object::VideoChatScheduled ();
|
|
use Teapot::Bot::Object::VideoChatStarted ();
|
|
use Teapot::Bot::Object::VideoChatEnded ();
|
|
use Teapot::Bot::Object::VideoChatParticipantsInvited ();
|
|
|
|
$Teapot::Bot::Object::Message::VERSION = '0.025';
|
|
|
|
# basic message stuff
|
|
has 'message_id';
|
|
has 'message_thread_id'; # Optional. Unique identifier of a message thread to which the message belongs;
|
|
# for supergroups only
|
|
has 'from'; # User
|
|
has 'sender_chat'; # Chat
|
|
has 'date';
|
|
has 'chat'; # Chat
|
|
has 'forward_from'; # User
|
|
has 'forward_from_chat'; # Chat
|
|
has 'forward_from_message_id';
|
|
has 'forward_signature';
|
|
has 'forward_sender_name';
|
|
has 'forward_date';
|
|
has 'is_topic_message'; # Optional. True, if the message is sent to a forum topic
|
|
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';
|
|
has 'entities'; # Array of MessageEntity
|
|
has 'animation'; # Animation
|
|
has 'audio'; # Audio
|
|
has 'document'; # Document
|
|
has 'photo'; # Array of PhotoSize
|
|
has 'sticker'; # Sticker
|
|
has 'video'; # Video
|
|
has 'video_note'; # VideoNote
|
|
has 'voice'; # Voice
|
|
has 'caption';
|
|
has 'caption_entities'; # Array of MessageEntity
|
|
has 'has_media_spoiler';
|
|
has 'contact'; # Contact
|
|
has 'dice';
|
|
has 'game';
|
|
has 'poll'; # Poll
|
|
has 'venue'; # Venue
|
|
has 'location'; # Location
|
|
has 'new_chat_members'; # Array of User
|
|
has 'left_chat_member'; # User
|
|
has 'new_chat_title';
|
|
has 'new_chat_photo'; # Array of PhotoSize
|
|
has 'delete_chat_photo';
|
|
has 'group_chat_created';
|
|
has 'supergroup_chat_created';
|
|
has 'channel_chat_created';
|
|
has 'message_auto_delete_timer_changed'; # Optional. Service message: auto-delete timer settings changed in the chat
|
|
has 'migrate_to_chat_id';
|
|
has 'migrate_from_chat_id';
|
|
has 'pinned_message'; # Message
|
|
has 'invoice'; # Invoice
|
|
has 'successful_payment'; # SuccessfulPayment
|
|
has 'connected_website';
|
|
has 'write_access_allowed'; # WriteAccessAllowed
|
|
has 'passport_data'; # PassportData
|
|
has 'proximity_alert_triggered';
|
|
has 'forum_topic_created'; # ForumTopicCreated
|
|
has 'forum_topic_edited'; # ForumTopicEdited
|
|
has 'forum_topic_closed'; # ForumTopicClosed
|
|
has 'forum_topic_reopened'; # ForumTopicReopened
|
|
has 'general_forum_topic_hidden'; # GeneralForumTopicHidden
|
|
has 'general_forum_topic_unhidden'; # GeneralForumTopicUnhidden
|
|
has 'video_chat_scheduled';
|
|
has 'video_chat_started';
|
|
has 'video_chat_ended';
|
|
has 'video_chat_participants_invited';
|
|
has 'web_app_data';
|
|
has 'reply_markup'; # Array of InlineKeyboardMarkup
|
|
|
|
sub fields {
|
|
return {
|
|
'scalar' => [qw/message_id message_thread_id date forward_from_message_id
|
|
forward_signature forward_sender_name forward_date
|
|
is_topic_message is_automatic_forward edit_date
|
|
has_protected_content media_group_id author_signature text
|
|
caption has_media_spoiler new_chat_title delete_chat_photo
|
|
group_chat_created supergroup_chat_created
|
|
channel_chat_created migrate_to_chat_id
|
|
migrate_from_chat_id connected_website/],
|
|
'Teapot::Bot::Object::User' => [qw/from forward_from via_bot new_chat_members left_chat_member /],
|
|
|
|
'Teapot::Bot::Object::Chat' => [qw/sender_chat chat forward_from_chat/],
|
|
'Teapot::Bot::Object::Message' => [qw/reply_to_message pinned_message/],
|
|
'Teapot::Bot::Object::MessageEntity' => [qw/entities caption_entities /],
|
|
|
|
'Teapot::Bot::Object::Audio' => [qw/audio/],
|
|
'Teapot::Bot::Object::Document' => [qw/document/],
|
|
'Teapot::Bot::Object::Animation' => [qw/animation/],
|
|
'Teapot::Bot::Object::Game' => [qw/game/],
|
|
'Teapot::Bot::Object::PhotoSize' => [qw/photo new_chat_photo/],
|
|
'Teapot::Bot::Object::Sticker' => [qw/sticker/],
|
|
'Teapot::Bot::Object::Video' => [qw/video/],
|
|
'Teapot::Bot::Object::Voice' => [qw/voice/],
|
|
'Teapot::Bot::Object::VideoNote' => [qw/video_note/],
|
|
|
|
'Teapot::Bot::Object::Contact' => [qw/contact/],
|
|
'Teapot::Bot::Object::Location' => [qw/location/],
|
|
'Teapot::Bot::Object::Venue' => [qw/venue/],
|
|
|
|
'Teapot::Bot::Object::Poll' => [qw/poll/],
|
|
|
|
'Teapot::Bot::Object::Invoice' => [qw/invoice/],
|
|
'Teapot::Bot::Object::SuccessfulPayment' => [qw/successful_payment/],
|
|
'Teapot::Bot::Object::WriteAccessAllowed' => [qw/write_access_allowed/],
|
|
'Teapot::Bot::Object::PassportData' => [qw/passport_data/],
|
|
'Teapot::Bot::Object::ForumTopicCreated' => [qw/forum_topic_created/],
|
|
'Teapot::Bot::Object::ForumTopicEdited' => [qw/forum_topic_edited/],
|
|
'Teapot::Bot::Object::ForumTopicClosed' => [qw/forum_topic_closed/],
|
|
'Teapot::Bot::Object::ForumTopicReopened' => [qw/forum_topic_reopened/],
|
|
'Teapot::Bot::Object::GeneralForumTopicHidden' => [qw/general_forum_topic_unhidden/],
|
|
'Teapot::Bot::Object::GeneralForumTopicUnhidden' => [qw/general_forum_topic_unhidden/],
|
|
'Teapot::Bot::Object::InlineKeyboardMarkup' => [qw/reply_markup/],
|
|
'Teapot::Bot::Object::ProximityAlertTriggered' => [qw/proximity_alert_triggered/],
|
|
'Teapot::Bot::Object::Dice' => [qw/dice/],
|
|
'Teapot::Bot::Object::MessageAutoDeleteTimerChanged' => [qw/message_auto_delete_timer_changed/],
|
|
'Teapot::Bot::Object::VideoChatScheduled' => [qw/video_chat_scheduled/],
|
|
'Teapot::Bot::Object::VideoChatStarted' => [qw/video_chat_started/],
|
|
'Teapot::Bot::Object::VideoChatEnded' => [qw/video_chat_ended/],
|
|
'Teapot::Bot::Object::VideoChatParticipantsInvited' => [qw/video_chat_participants_invited/],
|
|
'Teapot::Bot::Object::WebAppData' => [qw/web_app_data/],
|
|
};
|
|
}
|
|
|
|
sub arrays {
|
|
return qw/photo entities caption_entities new_chat_members new_chat_photo/;
|
|
}
|
|
|
|
sub reply {
|
|
my $self = shift;
|
|
my $text = shift;
|
|
|
|
my $ret = '';
|
|
|
|
my $send_args->{chat_id} = $self->chat->id;
|
|
my $message_thread_id = eval {$self->message_thread_id};
|
|
|
|
my $can_talk = $self->_brain->can_talk($send_args);
|
|
|
|
if ($can_talk->{error}) {
|
|
$ret = $can_talk;
|
|
} else {
|
|
if ($can_talk->{can_talk}) {
|
|
$send_args->{text} = $text;
|
|
|
|
if (defined $message_thread_id && $message_thread_id ne '') {
|
|
$send_args->{$message_thread_id} = $message_thread_id;
|
|
}
|
|
|
|
$ret = $self->_brain->sendMessage($send_args);
|
|
}
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
sub replyMd {
|
|
my $self = shift;
|
|
my $text = shift;
|
|
|
|
my $ret = '';
|
|
|
|
my $send_args->{chat_id} = $self->chat->id;
|
|
my $message_thread_id = eval {$self->message_thread_id};
|
|
|
|
my $can_talk = $self->_brain->can_talk($send_args);
|
|
|
|
if ($can_talk->{error}) {
|
|
$ret = $can_talk;
|
|
} else {
|
|
if ($can_talk->{can_talk}) {
|
|
$send_args->{text} = $text;
|
|
$send_args->{parse_mode} = 'Markdown';
|
|
$send_args->{message_thread_id} = $message_thread_id if (defined $message_thread_id);
|
|
|
|
$ret = $self->_brain->sendMessage($send_args);
|
|
}
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
sub typing {
|
|
my $self = shift;
|
|
|
|
my $ret = '';
|
|
my $send_args->{chat_id} = $self->chat->id;
|
|
my $can_talk = $self->_brain->can_talk($send_args);
|
|
|
|
if ($can_talk->{error}) {
|
|
$ret = $can_talk;
|
|
} else {
|
|
if ($can_talk->{can_talk}) {
|
|
$ret = $self->_brain->sendChatAction($send_args);
|
|
}
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
Teapot::Bot::Object::Message - The base class for the Telegram type "Message"
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.025
|
|
|
|
=head1 DESCRIPTION
|
|
The base class for the Telegram type "Message".
|
|
|
|
See L<https://core.telegram.org/bots/api#message> for details of the
|
|
attributes available for C<Teapot::Bot::Object::Message> objects.
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 reply
|
|
|
|
A convenience method to reply to a message with text.
|
|
|
|
Will return the C<Teapot::Bot::Object::Message> object representing the message
|
|
sent.
|
|
On error returns hash reference with error field set to 1, also set fields
|
|
param, url and debug (which is result of Mojo::UserAgent->post->result->json)
|
|
|
|
|
|
=head2 replyMd
|
|
|
|
A convenience method to reply to a message with markdown formatted text.
|
|
|
|
Will return the C<Teapot::Bot::Object::Message> object representing the message
|
|
sent.
|
|
On error returns hash reference with error field set to 1, also set fields
|
|
param, url and debug (which is result of Mojo::UserAgent->post->result->json)
|
|
|
|
=head2 typing
|
|
|
|
Sends notification to chat that bot is "typing" something.
|
|
|
|
On error returns hash reference with error field set to 1, also set fields
|
|
param, url and debug (which is result of Mojo::UserAgent->post->result->json)
|
|
|
|
=head1 AUTHOR
|
|
|
|
Justin Hawkins <justin@eatmorecode.com>
|
|
|
|
=head1 LICENSE AND COPYRIGHT
|
|
|
|
This software is copyright (c) 2019 by Justin Hawkins.
|
|
|
|
This is free software; you can redistribute it and/or modify it under
|
|
the same terms as the Perl 5 programming language system itself.
|
|
|
|
=cut
|