42 lines
776 B
Perl
42 lines
776 B
Perl
package RedisLib;
|
|
|
|
use 5.018;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use open qw (:std :utf8);
|
|
use Log::Any qw ($log);
|
|
use Data::Dumper;
|
|
|
|
use version; our $VERSION = qw (1.0);
|
|
use Exporter qw (import);
|
|
our @EXPORT_OK = qw (redis_parse_message);
|
|
|
|
sub redis_parse_message {
|
|
my $self = shift;
|
|
my $m = shift;
|
|
my $message;
|
|
|
|
# We cannot send message if we're not connected to telegram
|
|
# TODO: Queue messages properly.
|
|
|
|
until (defined $main::TGM) {
|
|
sleep 1;
|
|
}
|
|
|
|
# TODO: add some checks, at least that the bot is not muted in chat
|
|
if ($m->{misc}->{msg_format}) {
|
|
$message->{parse_mode} = 'Markdown';
|
|
}
|
|
|
|
$message->{chat_id} = $m->{chatid};
|
|
$message->{text} = $m->{message};
|
|
$main::TGM->sendMessage ($message);
|
|
|
|
return;
|
|
};
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|