FortuneToggleList() was misspelled in periodic job so fortune message was not shown

This commit is contained in:
eleksir
2021-04-26 11:06:16 +03:00
parent 0befdf6327
commit 8d5b5df194

View File

@@ -47,7 +47,7 @@ sub __cron {
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 (fortuneToggleList ()) { foreach my $enabledfortunechat (FortuneToggleList ()) {
my $send_args; my $send_args;
$send_args->{text} = sprintf "%s\n```\n%s\n```\n", $intro[irand ($#intro + 1)], trim (Fortune ()); $send_args->{text} = sprintf "%s\n```\n%s\n```\n", $intro[irand ($#intro + 1)], trim (Fortune ());
$send_args->{chat_id} = $enabledfortunechat; $send_args->{chat_id} = $enabledfortunechat;