aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

Deejay incomming phrase munging code

Browse Source
This commit is contained in:
eleksir
2020-09-10 10:48:30 +03:00
parent 7218c7d510
commit 7cce6a9413
1 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/telegrambot.pm
View File

@@ -33,6 +33,7 @@ sub __cron {
sub __on_msg { sub __on_msg {
my ($self, $msg) = @_; my ($self, $msg) = @_;
my $phrase;
if ($msg->{'new_chat_members'}) { if ($msg->{'new_chat_members'}) {
# we have newcommers here # we have newcommers here
@@ -123,13 +124,16 @@ sub __on_msg {
} else { } else {
# phrase directed to bot # phrase directed to bot
if ((lc($text) =~ /^${qname}[\,|\:]? (.+)/) or (lc($text) =~ /^${qtname}[\,|\:]? (.+)/)){ if ((lc($text) =~ /^${qname}[\,|\:]? (.+)/) or (lc($text) =~ /^${qtname}[\,|\:]? (.+)/)){
$reply = $hailo->{$msg->chat->id}->learn_reply($1); $phrase = $1;
$reply = $hailo->{$msg->chat->id}->learn_reply($phrase);
# bot mention by name # bot mention by name
} elsif ((lc($text) =~ /.+ ${qname}[\,|\!|\?|\.| ]/) or (lc($text) =~ / $qname$/)) { } elsif ((lc($text) =~ /.+ ${qname}[\,|\!|\?|\.| ]/) or (lc($text) =~ / $qname$/)) {
$reply = $hailo->{$msg->chat->id}->reply($text); $phrase = $text;
$reply = $hailo->{$msg->chat->id}->reply($phrase);
# bot mention by telegram name # bot mention by telegram name
} elsif ((lc($text) =~ /.+ ${qtname}[\,|\!|\?|\.| ]/) or (lc($text) =~ / $qtname$/)) { } elsif ((lc($text) =~ /.+ ${qtname}[\,|\!|\?|\.| ]/) or (lc($text) =~ / $qtname$/)) {
$reply = $hailo->{$msg->chat->id}->reply($text); $phrase = $text;
$reply = $hailo->{$msg->chat->id}->reply($phrase);
# just message in chat # just message in chat
} else { } else {
$hailo->{$msg->chat->id}->learn($text); $hailo->{$msg->chat->id}->learn($text);
@@ -137,12 +141,21 @@ sub __on_msg {
} }
if (defined($reply) && $reply ne '') { if (defined($reply) && $reply ne '') {
if (lc($reply) eq lc(trim($text))) { # work a bit more on input phrase
$reply = randomCommonPhrase(); $phrase = trim($phrase);
while ($phrase =~ /[\.|\,|\?|\!]$/) {
chop $phrase;
} }
# in case of trailing dot $phrase = lc($phrase);
if (lc($reply) eq substr(lc(trim($text)), 0, -1)) {
if (lc($reply) eq $phrase) {
$reply = randomCommonPhrase();
} elsif (lc($reply) eq substr($phrase, 0, -1)) {
# in case of trailing dot
$reply = randomCommonPhrase();
} elsif (substr(lc($reply), 0, -1) eq $phrase) {
$reply = randomCommonPhrase(); $reply = randomCommonPhrase();
} }
@@ -151,6 +164,7 @@ sub __on_msg {
} else { } else {
logger ("no reply"); logger ("no reply");
} }
# should be channel, so we can't talk # should be channel, so we can't talk
} else { } else {
return; return;