eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Compare commits

base: eleksir:d6d0b2a93d7a83f9b54eab39640af53b16611eff
Branches Tags
eleksir:master
..
compare: eleksir:80f93e2bf64852f0cad736a96667e3041e65a8cf
Branches Tags
eleksir:master

3 Commits
d6d0b2a93d ... 80f93e2bf6

Author SHA1 Message Date
eleksir
80f93e2bf6 Use multiline message in help instead of sending multiple messages 2020-11-14 19:34:41 +03:00
eleksir
623bf8ef01 Add multiline support for outgoing messages in Net::Jabber::Bot 2020-11-14 19:32:56 +03:00
eleksir
bb9c0cd20c Vendor Net::Jabber::Bot 2020-11-14 19:28:15 +03:00
3 changed files with 1243 additions and 7 deletions
Expand all files Collapse all files

10
cpanfile
View File

@@ -8,7 +8,15 @@ requires 'Hailo';
requires 'JSON'; requires 'JSON';
requires 'JSON::XS'; requires 'JSON::XS';
requires 'JSON::PP'; requires 'JSON::PP';
requires 'Net::Jabber::Bot';
requires 'POSIX'; requires 'POSIX';
requires 'URI::URL'; requires 'URI::URL';
requires 'local::lib'; requires 'local::lib';
# Bundled Net::Jabber::Bot deps
# requires 'Net::Jabber::Bot';
requires 'Moose';
requires 'MooseX::Types';
requires 'Net::Jabber';
requires 'Time::HiRes';
requires 'Sys::Hostname';
requires 'Log::Log4perl';
requires 'Mozilla::CA';

1226
lib/Net/Jabber/Bot.pm Normal file
View File

File diff suppressed because it is too large Load Diff

14
lib/jabberbot.pm
View File

@@ -112,12 +112,14 @@ sub __new_bot_message {
my $rate = $bot->message_delay(); my $rate = $bot->message_delay();
# rate limit this :) specially for jabber.ru # rate limit this :) specially for jabber.ru
$bot->message_delay($rate * 5); $bot->message_delay($rate * 5);
$bot->SendGroupMessage($hash{'reply_to'}, "!help | !помощь - это сообщение"); $bot->SendGroupMessage($hash{'reply_to'}, <<"EOL" );
$bot->SendGroupMessage($hash{'reply_to'}, "!w город | !п город - погода в городе"); !help | !помощь - это сообщение
$bot->SendGroupMessage($hash{'reply_to'}, "!ping | !пинг - попинговать бота"); !w город | !п город - погода в городе
$bot->SendGroupMessage($hash{'reply_to'}, "!some_brew - выдать соответсвующий напиток, на донный момент бармен умеет выдать rum, vodka, beer, tequila, whisky, absinthe"); !ping | !пинг - попинговать бота
$bot->SendGroupMessage($hash{'reply_to'}, "!ver|version - написать что-то про версию ПО"); !some_brew - выдать соответсвующий напиток, бармен может налить rum, vodka, beer, tequila, whisky, absinthe
$bot->message_delay($rate); !ver|version - написать что-то про версию ПО
EOL
} else { } else {
$hailo->learn($text); $hailo->learn($text);
return; return;