# note http://www.gentoo.ru/node/21449
# необходимо закомменировать строку $response{authzid} = $authzid;
# в vendor_perl/5.24.3/Authen/SASL/Perl/DIGEST_MD5.pm
package jabberbot;

use 5.018;
use strict;
use warnings "all";
use utf8;
use open qw(:std :utf8);

use Net::Jabber::Bot;
use Hailo;

use conf;
use botlib;

use Exporter qw(import);
use vars qw/$VERSION/;
$VERSION = "1.0";
our @EXPORT = qw(run_jabberbot);

my $c = loadConf();
my $hailo;
my $imonline = 0;

sub __background_checks {
	my $bot = shift;

	unless ($imonline) {
		$bot->ChangeStatus('Chat', 'I\'m here');
		$imonline = 1;
	}

	return;
}

sub __new_bot_message {
	my %hash = @_;
	my $bot = $hash{bot_object};
#	my $text = encode('utf-8', $hash{body});
	my $text = $hash{body};

	if ($hash{'type'} eq "groupchat") {
		# ignore self messages
		return if ($hash{'from_full'} eq $bot->{'from_full'});
		# parse messages
		my $qname = quotemeta($c->{jabberbot}->{aleesa}->{mucname});
		if ($text =~ /^$qname$/) {
			$bot->SendGroupMessage($hash{'reply_to'}, "Чего тебе?");
		} elsif ($text =~ /^$qname[\,|\:]? (.+)/) {
#			$bot->SendGroupMessage($hash{'reply_to'}, $hailo->learn_reply(decode('utf-8', $1)));
			$bot->SendGroupMessage($hash{'reply_to'}, $hailo->learn_reply($1));
		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}пинг") {
			$bot->SendGroupMessage($hash{'reply_to'}, "Понг.");
		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}ping") {
			$bot->SendGroupMessage($hash{'reply_to'}, "Pong.");
		} elsif (substr($text, 0, 1) eq $c->{jabberbot}->{aleesa}->{csign}) {
#			$text = decode('utf-8', $text);

			if (substr($text, 1, 3) eq "rum") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me притаскивает на подносе стопку рома для ". (split(/\//,$hash{from_full}))[1] . ", края стопки искрятся кристаллами соли."
					);
				};
			} elsif (substr($text, 1, 5) eq "vodka") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me подаёт водку с маринованным огурчиком для " . (split(/\//,$hash{from_full}))[1]
					);
				};
			} elsif (substr($text, 1, 4) eq "beer") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me бахает об стол перед " . (split(/\//,$hash{from_full}))[1] . " кружкой холодного пива, часть пенной шапки сползает по запотевшей спенке кружки."
					);
				};
			} elsif (substr($text, 1, 7) eq "tequila") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me ставит рядом с " . (split(/\//,$hash{from_full}))[1] . " шот текилы, аккуратно на ребро стопки насаживает дольку лайма и ставит кофейное блюдце с горочкой соли."
					);
				};
			} elsif (substr($text, 1, 6) eq "whisky") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me демонстративно достаёт из морозилки пару кубических камушков, бросает их в толстодонный стакан и аккуратно наливает Jack Daniels. Запускает стакан вдоль барной стойки, он останавливается около " . (split(/\//,$hash{from_full}))[1] . "."
					);
				};
			} elsif (substr($text, 1, 8) eq "absinthe") {
				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						"/me наливает абсент в стопку. Смочив кубик сахара в абсенте кладёт его на дырявую ложечку и пожигает. Как только пламя потухнет, $c->{jabberbot}->{aleesa}->{mucname} размешивает оплавившийся кубик в абсенте и подносит стопку " .(split(/\//,$hash{from_full}))[1] . "."
					);
				};
			} elsif ((substr($text, 1, 2) eq "w ") || (substr($text, 1, 2) eq "п ")) {
				my $city = substr($text, 2);

				eval {
					$bot->SendGroupMessage(
						$hash{'reply_to'},
						weather($city) =~ tr/\n/ /r
					);
				};
			} else {
				#$hailo->learn($text);
				return;
			}
		} else {
			#$hailo->learn($text);
			return;
		}
	} elsif ($hash{'type'} eq "chat") {
		$bot->SendPersonalMessage($hash{'reply_to'}, "Я вас не знаю, идите нахуй.");
		return;
	}

	return;
}


sub run_jabberbot {
	$hailo = Hailo->new(
		brain => $c->{jabberbot}->{aleesa}->{brain},
		order => 3
	);

	my %conflist = ();
	$conflist{$c->{jabberbot}->{aleesa}->{room}} = [];
	my $qname = quotemeta($c->{jabberbot}->{aleesa}->{mucname});

	my $bot = Net::Jabber::Bot->new(
		server => $c->{jabberbot}->{aleesa}->{host},
		server_host => $c->{jabberbot}->{aleesa}->{host},
		conference_server => $c->{jabberbot}->{aleesa}->{confsrv},
		tls => 0,
		username => $c->{jabberbot}->{aleesa}->{authname},
# threre is some nasty bug in module, so we have to set from_full explicitly
		from_full => sprintf(
			"%s@%s/%s",
			$c->{jabberbot}->{aleesa}->{room},
			$c->{jabberbot}->{aleesa}->{confsrv},
			$c->{jabberbot}->{aleesa}->{authname}
		),
		password => $c->{jabberbot}->{aleesa}->{password},
		alias => $c->{jabberbot}->{aleesa}->{mucname}, # name on confs
		resource => 'bot',
		safety_mode => 1,
		message_function => \&__new_bot_message,
		background_function => \&__background_checks,
		loop_sleep_time => 60,
		forums_and_responses => \%conflist,
	);

	while (sleep 3) {
		eval {
			$imonline = 0;
			$bot->Start();
		};
	}
}

1;

# vim: set ft=perl noet ai ts=4 sw=4 sts=4: