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

Use all types of greet phrases to omit answer if newcommer respond to our greet with quotation

Browse Source
This commit is contained in:
eleksir
2022-01-29 17:21:04 +03:00
parent b992698b9b
commit e784a78979
1 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
lib/TelegramBot.pm
View File

@@ -269,20 +269,31 @@ sub __on_msg {
$log->debug (sprintf ('[DEBUG] In public chat %s (%s) %s quote us!', $chatname, $chatid, $vis_a_vi)); $log->debug (sprintf ('[DEBUG] In public chat %s (%s) %s quote us!', $chatname, $chatid, $vis_a_vi));
# do not answer back if someone quote our new member greet # do not answer back if someone quote our new member greet
if ((substr ($msg->reply_to_message->text, 0, 9) eq 'Дратути, ') && if (substr ($msg->reply_to_message->text, -61) eq 'Представьтес, пожалуйста, и расскажите, что вас сюда привело.') {
(substr ($msg->reply_to_message->text, -61) eq 'Представьтес, пожалуйста, и расскажите, что вас сюда привело.')) { my @hello = (
return; 'Дратути, ',
} else { 'Дарована, ',
# remove our name from users reply, just in case 'Доброе утро, день или вечер, ',
my $pat1 = quotemeta ('@' . $myusername); 'Добро пожаловать в наше скромное коммунити, ',
my $pat2 = quotemeta $myfullname; 'Наше вам с кисточкой тут, на канальчике, ',
$phrase = $text; );
$phrase =~ s/$pat1//g;
$phrase =~ s/$pat2//g; foreach my $hi (@hello) {
if (substr ($msg->reply_to_message->text, 0, length $hi) eq $hi) {
return;
}
}
}
# remove our name from users reply, just in case
my $pat1 = quotemeta ('@' . $myusername);
my $pat2 = quotemeta $myfullname;
$phrase = $text;
$phrase =~ s/$pat1//g;
$phrase =~ s/$pat2//g;
# figure out reply :) # figure out reply :)
$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase) if (length ($phrase) > 3); $reply = $hailo->{$msg->chat->id}->learn_reply ($phrase) if (length ($phrase) > 3);
}
# simple commands # simple commands
} elsif (substr ($text, 0, 1) eq $csign) { } elsif (substr ($text, 0, 1) eq $csign) {
$reply = Command ($self, $msg, $text, $chatid); $reply = Command ($self, $msg, $text, $chatid);