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: