Fix redis message processing, duh
This commit is contained in:
@@ -98,17 +98,17 @@ my $parse_message = sub {
|
|||||||
$answer->{misc}->{username} = 'user';
|
$answer->{misc}->{username} = 'user';
|
||||||
}
|
}
|
||||||
|
|
||||||
if (length $m->{message} <= length $answer->{csign}) {
|
if (length $m->{message} <= length $answer->{misc}->{csign}) {
|
||||||
$log->info (sprintf 'Unable to process unknown message: %s', $m->{message});
|
$log->info (sprintf 'Unable to process unknown message: %s', $m->{message});
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (substr ($m->{message}, 0, length ($answer->{csign})) ne $answer->{csign}) {
|
if (substr ($m->{message}, 0, length ($answer->{misc}->{csign})) ne $answer->{misc}->{csign}) {
|
||||||
$log->info (sprintf 'Unable to process unknown message: %s', $m->{message});
|
$log->info (sprintf 'Unable to process unknown message: %s', $m->{message});
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $cmd = substr $m->{message}, length ($answer->{csign});
|
my $cmd = substr $m->{message}, length ($answer->{misc}->{csign});
|
||||||
|
|
||||||
if ($cmd eq 'buni') {
|
if ($cmd eq 'buni') {
|
||||||
if (($m->{plugin} eq 'telegram') && $answer->{misc}->{msg_format}) {
|
if (($m->{plugin} eq 'telegram') && $answer->{misc}->{msg_format}) {
|
||||||
|
|||||||
Reference in New Issue
Block a user