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

Исправлены синтаксические ошибки и обработка кармы пустоты

Browse Source
This commit is contained in:
eleksir
2022-03-27 20:38:15 +03:00
parent 4d9cde38be
commit fb579e48e1
2 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/Karma.pm
View File

@@ -28,12 +28,17 @@ sub KarmaSet (@) {
my $phrase = shift; my $phrase = shift;
my $action = shift; my $action = shift;
if ((! defined $phrase) || $phrase eq '') { unless (defined $phrase) {
$phrase = ' '; $phrase = '';
} }
$phrase = trim ($phrase); $phrase = trim ($phrase);
# Костылёк для кармы пустоты
if ($phrase eq '') {
$phrase = ' ';
}
my $cache = CHI->new ( my $cache = CHI->new (
driver => 'BerkeleyDB', driver => 'BerkeleyDB',
root_dir => $cachedir, root_dir => $cachedir,
@@ -80,12 +85,17 @@ sub KarmaGet (@) {
my $chatid = shift; my $chatid = shift;
my $phrase = shift; my $phrase = shift;
if ((! defined $phrase) || $phrase eq '') { unless (defined $phrase) {
$phrase = ' '; $phrase = '';
} }
$phrase = trim ($phrase); $phrase = trim ($phrase);
# Костылёк для кармы пустоты
if ($phrase eq '') {
$phrase = ' ';
}
my $cache = CHI->new ( my $cache = CHI->new (
driver => 'BerkeleyDB', driver => 'BerkeleyDB',
root_dir => $cachedir, root_dir => $cachedir,

6
lib/Phrases.pm
View File

@@ -97,7 +97,7 @@ my $parse_message = sub {
} else { } else {
$reply = trim (Fortune ()); $reply = trim (Fortune ());
} }
} elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ') eq 'karma ')) { } elsif (length ($cmd) >= length ('karma ') && substr ($cmd, 0, length ('karma ')) eq 'karma ') {
# По-умолчанию достаём карму пустоты # По-умолчанию достаём карму пустоты
my $text = undef; my $text = undef;
@@ -106,7 +106,7 @@ my $parse_message = sub {
} }
$reply = KarmaGet ($m->{chatid}, $text); $reply = KarmaGet ($m->{chatid}, $text);
} elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ') eq 'карма ')) { } elsif (length ($cmd) >= length ('карма ') && substr ($cmd, 0, length ('карма ')) eq 'карма ') {
# По-умолчанию достаём карму пустоты # По-умолчанию достаём карму пустоты
my $text = undef; my $text = undef;
@@ -123,7 +123,7 @@ my $parse_message = sub {
$reply = KarmaGet ($m->{chatid}, undef); $reply = KarmaGet ($m->{chatid}, undef);
} }
# Скорее всего изменение кармы, но это не точно # Скорее всего изменение кармы, но это не точно
} elsif ($m->{message} > length ('++')) { } elsif (length ($m->{message}) > length ('++')) {
if (substr ($m->{message}, 0 - length ('++')) eq '++' || substr ($m->{message}, 0 - length ('--')) eq '--') { 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};