From 813b0c57380e5a9d40bfa2d9b915721a1012326d Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Wed, 25 Sep 2019 23:37:39 +0300
Subject: [PATCH] Added sample jabber bot
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* Добавлен черновой вариант jabber бота
---
 .gitignore       |   1 +
 lib/jabberbot.pm | 139 +++++++++++++++++++++++++++++++++++++++++++++++
 myapi.psgi       |   2 +
 3 files changed, 142 insertions(+)
 create mode 100644 lib/jabberbot.pm

diff --git a/.gitignore b/.gitignore
index 43baa2f..adeb2fa 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 vendor_perl/**
 data/myapi.json
 data/image_dl.fifo
+data/*.sqlite
diff --git a/lib/jabberbot.pm b/lib/jabberbot.pm
new file mode 100644
index 0000000..0f45d26
--- /dev/null
+++ b/lib/jabberbot.pm
@@ -0,0 +1,139 @@
+# note http://www.gentoo.ru/node/21449
+# необходимо закомменировать строку $response{authzid} = $authzid;
+# в vendor_perl/5.24.3/Authen/SASL/Perl/DIGEST_MD5.pm
+package jabberbot;
+
+use strict;
+use warnings "all";
+
+use conf;
+use utf8;
+use Encode;
+use Net::Jabber::Bot;
+use v5.10;
+use Hailo;
+
+use Exporter qw(import);
+use vars qw/$VERSION/;
+$VERSION = "1.0";
+our @EXPORT = qw(run_jabberbot);
+
+my $c = loadConf();
+my $hailo;
+
+sub __background_checks {
+	my $bot = shift;
+	$bot->ChangeStatus('Chat', 'I\'m here');
+	return;
+}
+
+sub __new_bot_message {
+	my %hash = @_;
+	my $bot = $hash{bot_object};
+	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($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 ($text eq "$c->{jabberbot}->{aleesa}->{csign}rum") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me притаскивает на подносе стопку рома для ". (split(/\//,$hash{from_full}))[1] . ", края стопки искрятся кристаллами соли."
+				);
+			};
+		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}vodka") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me подаёт водку с маринованным огрчиком для " . (split(/\//,$hash{from_full}))[1]
+				);
+			};
+		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}beer") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me бахает об стол перед " . (split(/\//,$hash{from_full}))[1] . " кружкой холодного пива, часть пенной шапки сползает по запотевшей спенке кружки."
+				);
+			};
+		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}tequila") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me ставит рядом с " . (split(/\//,$hash{from_full}))[1] . " шот текилы, аккуратно на ребро стопки насаживает дольку лайма и ставит кофейное блюдце с горочкой соли."
+				);
+			};
+		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}whisky") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me демонстративно достаёт из морозилки пару кубических камушков, бросает их в толстодонный стакан и аккуратно наливает Jack Daniels. Запускает стакан вдоль барной стойки, он останавливается около " . (split(/\//,$hash{from_full}))[1] . "."
+				);
+			};
+		} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}absinthe") {
+			eval {
+				$bot->SendGroupMessage(
+					$hash{'reply_to'},
+					"/me наливает абсент в стопку. Смачив кубик сахара в абсенте кладёт его на дырявую ложечку и пожигает. Как только пламя потухнет, $c->{jabberbot}->{aleesa}->{mucname} размешивает оплавившийся кубик в абсенте и подносит стопку " .(split(/\//,$hash{from_full}))[1] . "."
+				);
+			};
+		} 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,
+	);
+
+	$bot->Start();
+}
+
+1;
diff --git a/myapi.psgi b/myapi.psgi
index 9389ca5..529dbde 100644
--- a/myapi.psgi
+++ b/myapi.psgi
@@ -11,6 +11,7 @@ use utils;
 use easter_egg;
 use upload;
 use image_dl;
+use jabberbot;
 use threads;
 
 my $CONF = loadConf();
@@ -19,6 +20,7 @@ if ($CONF->{api}->{prefix} eq '/') { $CONF->{api}->{prefix} = ''; }
 my $prefix = $CONF->{api}->{prefix};
 
 threads->create('image_dl_thread')->detach;
+threads->create('run_jabberbot')->detach;
 
 my $app = sub {
 	my $env = shift;