Added ircbot, telegrambot in draft condition

+ Добавлен бот для IRC, в черновом виде
+ Добавлен бот для Telegram, в черновом виде
* Отсортированы по алфавиту зависимости в cpanfile
* Список зависимостей в cpanfile приведён в актуальный вид
* Актуализирован список TODO
* Добавлены примеры для ботов в конфиг

lib/ircbot.pm

@@ -0,0 +1,88 @@
+package ircbot;
+
+use strict;
+use warnings "all";
+use diagnostics;
+use vars qw/$VERSION/;
+use Net::IRC;
+use v5.10.0;
+use Moose;
+use Hailo;
+use Encode;
+use Data::Dumper;
+
+#use lib qw(./lib ./vendor_perl);
+use conf;
+
+use Exporter qw(import);
+our @EXPORT = qw(run_ircbot);
+
+$VERSION = "1.0";
+
+my $c = loadConf();
+my @hailo;
+my $hailo;
+
+sub on_connect {
+	my $conn = shift;
+	$conn->join($conn->{channel});
+	sleep 1;
+#	$conn->privmsg($conn->{channel}, 'Hello everyone!');
+	$conn->{connected} = 1;
+}
+
+sub on_msg {
+	my ($conn, $event) = @_;
+	$conn->privmsg($event->{nick}, "Get lost.");
+}
+
+sub on_public {
+	my ($conn, $event) = @_;
+	my $text = decode('utf-8', $event->{args}[0]);
+	my $instance = 'bot1';
+	say Dumper($conn);
+	say Dumper($event);
+
+	if ($text =~ /^\!$conn->{_nick} (.+)/) {
+		# if so, pass the text and the nick off to the weather method
+		my $answer = $hailo->learn_reply($1);
+		$answer = encode('utf-8', $answer);
+		my @texts = split("\n", $answer);
+
+		foreach (@texts) {
+			$conn->privmsg($event->{to}[0], $_);
+		}
+	} else {
+		$hailo->learn($text);
+	}
+}
+
+
+sub __run_ircbot_istance($) {
+	my $instance = shift;
+
+	$hailo = Hailo->new(
+		brain => $c->{ircbot}->{$instance}->{brain},
+		order => 3
+	);
+
+	my $irc = new Net::IRC;
+	my $conn = $irc->newconn(
+		Nick    => $c->{ircbot}->{$instance}->{name},
+		Server  => $c->{ircbot}->{$instance}->{host},
+		Port    => $c->{ircbot}->{$instance}->{port},
+		Ircname => 'myapi irc module'
+	);
+
+	$conn->{channel} = $c->{ircbot}->{$instance}->{channel};
+	$conn->add_handler('376', \&on_connect);
+	$conn->add_handler('msg', \&on_msg);
+	$conn->add_handler('public', \&on_public);
+	$irc->start();
+}
+
+sub run_ircbot {
+	__run_ircbot_istance('bot1');
+}
+
+1;

lib/telegrambot.pm

@@ -0,0 +1,65 @@
+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: