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

Более корректно работаем с substr() и задаём misc->answer явно

Browse Source
This commit is contained in:
eleksir
2022-03-27 20:08:57 +03:00
parent 3bbe325fc0
commit 8ce226f755
2 changed files with 34 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/BotLib.pm
View File

@@ -40,9 +40,11 @@ sub Command {
my $reply;
my ($userid, $username, $fullname, $highlight, $visavi) = Highlight ($msg);
my $rmsg = clone ($redismsg);
$rmsg->{userid} = 0 + $userid;
$rmsg->{chatid} = 0 + $chatid;
my $rmsg = clone ($redismsg);
$rmsg->{userid} = 0 + $userid;
$rmsg->{chatid} = 0 + $chatid;
$rmsg->{misc}->{answer} = 1;
if ($chatid >= 0) {
$rmsg->{mode} = 'private';
@@ -50,7 +52,7 @@ sub Command {
$rmsg->{mode} = 'public';
}
my $cmd = substr $text, 1;
my $cmd = substr $text, length ($csign);
# Проверка #1 на админское разрешение некоторых команд
my @cmds = qw (tits boobs tities boobies сиси сисечки);