aleesa-bot/aleesa-phrases
Archived
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Переработан вызов модуля karma, не используем хардкод длины под-строк

Browse Source
This commit is contained in:
eleksir
2022-03-27 18:46:42 +03:00
parent 1577012a70
commit 5f31a10832
1 changed files with 41 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
lib/Phrases.pm
View File

@@ -70,8 +70,8 @@ my $parse_message = sub {
$log->debug ('[DEBUG] Incoming message ' . Dumper ($m)); $log->debug ('[DEBUG] Incoming message ' . Dumper ($m));
# Нормальная команда # Нормальная команда
if (substr ($m->{message}, 0, 1) eq $answer->{misc}->{csign}) { if (substr ($m->{message}, 0, length ($answer->{misc}->{csign})) eq $answer->{misc}->{csign}) {
my $cmd = substr ($m->{message}, 1); my $cmd = substr $m->{message}, length ($answer->{misc}->{csign});
if ($cmd eq 'friday' || $cmd eq 'пятница') { if ($cmd eq 'friday' || $cmd eq 'пятница') {
$reply = Friday (); $reply = Friday ();
@@ -94,20 +94,42 @@ my $parse_message = sub {
} else { } else {
$reply = trim (Fortune ()); $reply = trim (Fortune ());
} }
} elsif ($cmd =~ /^(karma|карма)\s(.+)/su) { } elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ') eq 'karma ') {
# TODO: избавиться от регулярки в пользу манипуляци со строкой через substr # По-умолчанию достаём карму пустоты
$reply = KarmaGet ($m->{chatid}, $2); my $text = undef;
if (length ($cmd) > length ('karma ')) {
$text = substr $cmd, length ('karma ');
}
$reply = KarmaGet ($m->{chatid}, $text);
} elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ') eq 'карма ') {
# По-умолчанию достаём карму пустоты
my $text = undef;
if (length ($cmd) > length ('карма ')) {
$text = substr $cmd, length ('карма ');
}
$reply = KarmaGet ($m->{chatid}, $text);
# Достаём карму пустоты :)
} elsif ($cmd eq 'karma') {
$reply = KarmaGet ($m->{chatid}, undef);
# Достаём карму пустоты :)
}elsif ($cmd eq 'карма') {
$reply = KarmaGet ($m->{chatid}, undef);
} }
# Скорее всего изменение кармы, но это не точно # Скорее всего изменение кармы, но это не точно
} elsif (substr ($m->{message}, -2) eq '++' || substr ($m->{message}, -2) eq '--') { } elsif ($m->{message} > length ('++')) {
if (substr ($m->{message}, 0 - length ('++')) eq '++' || substr ($m->{message}, 0 - length ('--')) eq '--') {
my @arr = split /\n/s, $m->{message}; my @arr = split /\n/s, $m->{message};
# Предполагается, что фраза - это только одна строка # Предполагается, что фраза - это только одна строка
if ($#arr < 1) { if ($#arr < 1) {
$reply = KarmaSet ( $reply = KarmaSet (
$m->{chatid}, $m->{chatid},
trim (substr $m->{message}, 0, -2), trim (substr $m->{message}, 0, 0 - length ('++')),
substr $m->{message}, -2, substr $m->{message}, 0 - length ('++'),
); );
# Если у нас более одной строки - пусть с этим разбирается craniac, у него есть *мозги* # Если у нас более одной строки - пусть с этим разбирается craniac, у него есть *мозги*
} else { } else {
@@ -115,6 +137,7 @@ my $parse_message = sub {
$reply = $m->{message}; $reply = $m->{message};
} }
} }
}
$log->debug ("[DEBUG] Sending message to channel $send_to " . Dumper ($answer)); $log->debug ("[DEBUG] Sending message to channel $send_to " . Dumper ($answer));