eleksir/aleesa-telegram-bot
1
Fork 0
Code Activity

Extend MOTD intro phrase list

Browse Source
This commit is contained in:
eleksir
2021-01-05 00:22:39 +03:00
parent 94f37408d7
commit d32a25f93b
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/telegrambot.pm
View File

@@ -34,13 +34,19 @@ has token => $c->{telegrambot}->{token};
sub __cron { sub __cron {
my $self = shift; my $self = shift;
# fortune mod # fortune mod
my @intro = (
'Сегодняшний день пройдёт под эгидой фразы:',
'Крылатая фраза на сегодня:',
'Сегодняшняя фраза дня:',
);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
if ($hour == 8 && ($min >= 0 && $min <= 14)) { if ($hour == 8 && ($min >= 0 && $min <= 14)) {
foreach my $enabledfortunechat (fortune_toggle_list ()) { foreach my $enabledfortunechat (fortune_toggle_list ()) {
my $send_args; my $send_args;
$send_args->{text} = sprintf "Сегодняшний день пройдёт под эгидой фразы:\n%s", fortune (); $send_args->{text} = sprintf "%s\n%s", $intro[int (rand ($#intro + 1))], fortune ();
$send_args->{chat_id} = $enabledfortunechat; $send_args->{chat_id} = $enabledfortunechat;
Teapot::Bot::Brain::sendMessage ($self, $send_args); Teapot::Bot::Brain::sendMessage ($self, $send_args);
} }