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

Move chat commands to botlib.pm, implement !version, !ver, !версия command

Browse Source
This commit is contained in:
eleksir
2020-11-15 20:44:35 +03:00
parent ba56ea72a2
commit 4bf814c473
5 changed files with 81 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/karma.pm
View File

@@ -8,6 +8,7 @@ use open qw(:std :utf8);
use English qw( -no_match_vars );
use Digest::SHA qw(sha1_base64);
use DB_File;
use Carp qw(cluck);
use vars qw/$VERSION/;
use Exporter qw(import);
@@ -16,7 +17,6 @@ our @EXPORT_OK = qw(karmaSet karmaGet);
$VERSION = '1.0';
use conf qw(loadConf);
use botlib qw(logger);
my $c = loadConf();
my $karmadir = $c->{karma}->{dir};
@@ -41,7 +41,7 @@ sub karmaSet (@) {
# init hash, store phrase and score
tie my %karma, 'DB_File', $karmafile || do {
logger "Something nasty happen when cachedata ties to its data: $OS_ERROR";
cluck "Something nasty happen when cachedata ties to its data: $OS_ERROR";
return sprintf 'Карма %s составляет 0', $phrase;
};
@@ -100,7 +100,7 @@ sub karmaGet (@) {
# init hash, store phrase and score
tie my %karma, 'DB_File', $karmafile || do {
logger "Something nasty happen when karma ties to its data: $OS_ERROR";
cluck "Something nasty happen when karma ties to its data: $OS_ERROR";
return sprintf 'Карма %s составляет 0', $phrase;
};