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

Check text length while detecting command

Browse Source
This commit is contained in:
eleksir
2022-04-03 16:49:35 +03:00
parent 3c8f79a19a
commit e140176c99
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/TelegramBot.pm
View File

@@ -243,7 +243,7 @@ sub __on_msg {
# Ответ по-умолчанию # Ответ по-умолчанию
my $reply = 'Давайте ещё пообщаемся, а то я ещё не научилась от вас плохому.'; my $reply = 'Давайте ещё пообщаемся, а то я ещё не научилась от вас плохому.';
if (substr ($text, 0, length ($csign)) eq $csign) { if ((length $text > length $csign) && substr ($text, 0, length ($csign)) eq $csign) {
# Если текст похож на команду, усылаем его в BotLib.pm # Если текст похож на команду, усылаем его в BotLib.pm
$reply = Command ($self, $msg, $text, $userid); $reply = Command ($self, $msg, $text, $userid);
} else { } else {
@@ -348,7 +348,7 @@ sub __on_msg {
return; return;
# Если текст похож на команду, усылаем его в BotLib.pm # Если текст похож на команду, усылаем его в BotLib.pm
} elsif (substr ($text, 0, length ($csign)) eq $csign) { } elsif ((length $text > length $csign) && substr ($text, 0, length ($csign)) eq $csign) {
$reply = Command ($self, $msg, $text, $chatid); $reply = Command ($self, $msg, $text, $chatid);
# Похоже кто-то написал наше имя в чятике, но ничего не захотел дописывать к нему # Похоже кто-то написал наше имя в чятике, но ничего не захотел дописывать к нему
} elsif ( } elsif (