Do not answer in chat if quoted mention less than 4 chars.

2020-12-02 20:26:16 +03:00
parent 0256f6b45b
commit a9193faf12
1 changed files with 1 additions and 1 deletions
--- a/lib/telegrambot.pm
+++ b/lib/telegrambot.pm
@@ -361,7 +361,7 @@ MYHELP
 			$phrase =~ s/$pat2//g;

 			# figure out reply :)
-			$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase);
+			$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase) if (length ($phrase) > 3);
 		# simple commands
 		# TODO: Log commands and answers
 		} elsif (substr ($text, 0, 1) eq $c->{telegrambot}->{csign}) {