145 lines
5.0 KiB
Perl
145 lines
5.0 KiB
Perl
# 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,
|
|
);
|
|
|
|
while (sleep 3) {
|
|
eval {
|
|
$bot->Start();
|
|
|
|
};
|
|
}
|
|
}
|
|
|
|
1;
|