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

trim-аем фразу после проверки её на undef, а не до

Browse Source
This commit is contained in:
eleksir
2022-03-27 19:15:58 +03:00
parent 61ad8278d5
commit 4d9cde38be
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Karma.pm
View File

@@ -1,4 +1,5 @@
package Karma; package Karma;
# Хранит и выдаёт карму фразы
use 5.018; ## no critic (ProhibitImplicitImport) use 5.018; ## no critic (ProhibitImplicitImport)
use strict; use strict;
@@ -22,18 +23,17 @@ my $c = LoadConf ();
my $cachedir = $c->{cachedir}; my $cachedir = $c->{cachedir};
my $max = 5; my $max = 5;
# swallow phrase and return answer
sub KarmaSet (@) { sub KarmaSet (@) {
my $chatid = shift; my $chatid = shift;
my $phrase = shift; my $phrase = shift;
my $action = shift; my $action = shift;
$phrase = trim ($phrase);
if ((! defined $phrase) || $phrase eq '') { if ((! defined $phrase) || $phrase eq '') {
$phrase = ' '; $phrase = ' ';
} }
$phrase = trim ($phrase);
my $cache = CHI->new ( my $cache = CHI->new (
driver => 'BerkeleyDB', driver => 'BerkeleyDB',
root_dir => $cachedir, root_dir => $cachedir,
@@ -80,12 +80,12 @@ sub KarmaGet (@) {
my $chatid = shift; my $chatid = shift;
my $phrase = shift; my $phrase = shift;
$phrase = trim ($phrase);
if ((! defined $phrase) || $phrase eq '') { if ((! defined $phrase) || $phrase eq '') {
$phrase = ' '; $phrase = ' ';
} }
$phrase = trim ($phrase);
my $cache = CHI->new ( my $cache = CHI->new (
driver => 'BerkeleyDB', driver => 'BerkeleyDB',
root_dir => $cachedir, root_dir => $cachedir,