0459b04b1d
+ Добавлен бот для IRC, в черновом виде + Добавлен бот для Telegram, в черновом виде * Отсортированы по алфавиту зависимости в cpanfile * Список зависимостей в cpanfile приведён в актуальный вид * Актуализирован список TODO * Добавлены примеры для ботов в конфиг
66 lines
1.1 KiB
Perl
66 lines
1.1 KiB
Perl
package telegrambot;
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
use diagnostics;
|
|
use vars qw/$VERSION/;
|
|
use v5.10.0;
|
|
use Hailo;
|
|
use Encode;
|
|
use Data::Dumper;
|
|
use Mojo::Base 'Telegram::Bot::Brain';
|
|
|
|
use conf;
|
|
|
|
use Exporter qw(import);
|
|
our @EXPORT = qw(run_telegrambot);
|
|
|
|
$VERSION = "1.0";
|
|
|
|
my $c = loadConf();
|
|
my $hailo;
|
|
|
|
has token => $c->{telegrambot}->{token};
|
|
|
|
sub __on_msg {
|
|
my ($self, $msg) = @_;
|
|
my $text = encode('utf-8', $msg->text);
|
|
|
|
# is this a 1-on-1 ?
|
|
if ($msg->chat->is_user) {
|
|
$msg->reply("Я вас не знаю, идите лесом.");
|
|
|
|
# group chat
|
|
} else {
|
|
my $qname = quotemeta($c->{telegrambot}->{name});
|
|
return unless $text =~ /^$qname[\,|\:]? (.+)/;
|
|
my $reply = $hailo->learn_reply(decode('utf-8', $1));
|
|
|
|
if (defined($reply) && $reply ne '') {
|
|
$msg->reply($reply);
|
|
}
|
|
}
|
|
}
|
|
|
|
# setup our bot
|
|
sub init {
|
|
$hailo = Hailo->new(
|
|
brain => $c->{telegrambot}->{brain},
|
|
order => 3
|
|
);
|
|
my $self = shift;
|
|
$self->add_listener(\&__on_msg);
|
|
}
|
|
|
|
sub run_telegrambot {
|
|
while (sleep 3) {
|
|
eval {
|
|
telegrambot->new->think;
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: ft=perl noet ai ts=4 sw=4 sts=4:
|