Remove desktop notifications, move assist-stuff to separate dir
This commit is contained in:
eleksir
168
lib/BotLib/Chan/Assist.pm
Normal file
168
lib/BotLib/Chan/Assist.pm
Normal file
@@ -0,0 +1,168 @@
|
||||
package BotLib::Chan::Assist;
|
||||
# Парсит команды
|
||||
|
||||
use 5.030; ## no critic (ProhibitImplicitImport)
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
use open qw (:std :utf8);
|
||||
use English qw ( -no_match_vars );
|
||||
|
||||
use JSON::XS qw (encode_json);
|
||||
use Log::Any qw ($log);
|
||||
|
||||
use BotLib::Conf qw (LoadConf);
|
||||
use BotLib::Util qw (storedata rakedata deletedata timems utf2md5hex utf2sha1hex utf2sha224hex utf2sha256hex
|
||||
utf2sha384hex utf2sha512hex utf2crc32hex utf2murmurhash utf2b64 urlencode irandom PrintMsg);
|
||||
|
||||
use version; our $VERSION = qw (1.0);
|
||||
use Exporter qw (import);
|
||||
our @EXPORT_OK = qw (Help PrintMsg Todo B64Str Md5Str Sha1Str Sha224Str Sha256Str Sha384Str
|
||||
Sha512Str Crc32Str MurmurhashStr UrlencodeStr IrandNum);
|
||||
|
||||
local $OUTPUT_AUTOFLUSH = 1;
|
||||
|
||||
my $c = LoadConf();
|
||||
|
||||
# Возвращает список возможных команд
|
||||
# $text Help()
|
||||
sub Help {
|
||||
my $text = '';
|
||||
my $csign = $c->{csign};
|
||||
$text .= "${csign}help - это сообщение\n";
|
||||
$text .= "${csign}ping - попинговать бота\n";
|
||||
$text .= "${csign}ver - написать что-то про версию ПО\n";
|
||||
$text .= "${csign}cal - календарик\n";
|
||||
$text .= "${csign}exit - завершить работу бота\n";
|
||||
$text .= "${csign}quit - завершить работу бота\n";
|
||||
$text .= "${csign}notify me after N [s|m|h] - одноразовая напоминалка через desktop notification\n";
|
||||
$text .= "${csign}n N[s|m|h] message - одноразовая напоминалка через desktop notification\n";
|
||||
$text .= "${csign}todo - выводит списк запланированных дел\n";
|
||||
$text .= "${csign}todo -d N - удаляет из списка запланированных дел дело N\n";
|
||||
$text .= "${csign}todo ДЕЛО - добавляет в списк запланированных дел ДЕЛО\n";
|
||||
$text .= "${csign}sha1 STR - выводит sha1sum для STR\n";
|
||||
$text .= "${csign}sha224 STR - выводит sha224sum для STR\n";
|
||||
$text .= "${csign}sha256 STR - выводит sha256sum для STR\n";
|
||||
$text .= "${csign}sha384 STR - выводит sha384sum для STR\n";
|
||||
$text .= "${csign}sha512 STR - выводит sha512sum для STR\n";
|
||||
$text .= "${csign}crc32 STR - выводит crc32 для STR\n";
|
||||
$text .= "${csign}md5 STR - выводит md5sum для STR\n";
|
||||
$text .= "${csign}murmurhash STR - выводит murmur hash для STR\n";
|
||||
$text .= "${csign}b64 STR - выводит base64 для STR\n";
|
||||
$text .= "${csign}urlencode STR - кодирует STR по urlencode\n";
|
||||
$text .= "${csign}rand N - выдаёт рандомное целое число от 0 до указанного\n";
|
||||
$text .= "${csign}unixtime - выдаёт текущее время в формате unix timestamp (секунды с 1 янв 1970)\n";
|
||||
|
||||
return $text;
|
||||
}
|
||||
|
||||
|
||||
# Выгребает список todo-шек из базы
|
||||
# $msg = _todoPrint()
|
||||
sub _todoPrint {
|
||||
$log->debug ('[DEBUG] raking data from todo db');
|
||||
my $todo = rakedata ('todo');
|
||||
my $msg = '';
|
||||
|
||||
foreach (sort keys (%{$todo})) {
|
||||
$msg .= sprintf "%d. %s\n", $_, $todo->{$_};
|
||||
}
|
||||
|
||||
return $msg;
|
||||
}
|
||||
|
||||
# Парсит запрос команды .todo
|
||||
# $reply Todo($message)
|
||||
sub Todo {
|
||||
my $message = shift;
|
||||
|
||||
$log->debug ("$message");
|
||||
my $reply;
|
||||
|
||||
if (($message eq 'todo') || ($message =~ /^todo\s+$/)) {
|
||||
$log->debug ('[DEBUG] got todo command without arguments');
|
||||
$reply = _todoPrint ();
|
||||
} elsif ($message =~ /^todo\s+\-d\s+(\d+)\s*$/) {
|
||||
$log->debug ('[DEBUG] got todo command with -d argument');
|
||||
deletedata('todo', $1);
|
||||
$reply = _todoPrint ();
|
||||
} else {
|
||||
if ($message =~ /^todo\s+(.*)/) {
|
||||
my $data = $1;
|
||||
$log->debug("[DEBUG] got todo command message: $message");
|
||||
my $todo = rakedata ('todo');
|
||||
my $num = int (keys %{$todo}) + 1;
|
||||
storedata ('todo', $num, $data, 'never');
|
||||
$reply = _todoPrint ();
|
||||
} else {
|
||||
$log->debug ('[DEBUG] got todo command with garbage');
|
||||
}
|
||||
}
|
||||
|
||||
return $reply;
|
||||
}
|
||||
|
||||
sub B64Str {
|
||||
my $str = shift;
|
||||
return utf2b64 ($str);
|
||||
}
|
||||
|
||||
sub Md5Str {
|
||||
my $str = shift;
|
||||
return utf2md5hex ($str);
|
||||
}
|
||||
|
||||
sub Sha1Str {
|
||||
my $str = shift;
|
||||
return utf2sha1hex($str);
|
||||
}
|
||||
|
||||
sub Sha224Str {
|
||||
my $str = shift;
|
||||
return utf2sha224hex($str);
|
||||
}
|
||||
|
||||
sub Sha256Str {
|
||||
my $str = shift;
|
||||
return utf2sha256hex($str);
|
||||
}
|
||||
|
||||
sub Sha384Str {
|
||||
my $str = shift;
|
||||
return utf2sha384hex($str);
|
||||
}
|
||||
|
||||
sub Sha512Str {
|
||||
my $str = shift;
|
||||
return utf2sha512hex($str);
|
||||
}
|
||||
|
||||
sub Crc32Str {
|
||||
my $str = shift;
|
||||
return utf2crc32hex($str);
|
||||
}
|
||||
|
||||
sub MurmurhashStr {
|
||||
my $str = shift;
|
||||
return utf2murmurhash($str);
|
||||
}
|
||||
|
||||
sub UrlencodeStr {
|
||||
my $str = shift;
|
||||
return urlencode ($str);
|
||||
}
|
||||
|
||||
sub IrandNum {
|
||||
my $num = shift;
|
||||
$num = eval {$num + 0};
|
||||
|
||||
if (defined $num) {
|
||||
return irandom($num);
|
||||
} else {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|
||||
Reference in New Issue
Block a user