duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for issue #95

master
Arun S 2012-06-12 11:51:30 +05:30 committed by Dylan Lloyd
parent 7d17ccd0e2
commit a0d1a1ffbd
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/DDG/Goodie/ParseCron.pm
View File

@ -28,11 +28,13 @@ handle remainder => sub {
$crontab =~ s/$day[$_]/$newday/;
}
my $cron = Schedule::Cron::Events->new($crontab) or return;
my ($sec, $min, $hour, $day, $month, $year) = $cron->nextEvent;
$year = $year+1900;
my $text = sprintf qq(Cron will start this event next at %02d:%02d:%02d on %d %s, %d), $hour, $min, $sec, $day, $mon[$month], $year;
$text .= '.';
return $text if $_;
my $text;
# Fix for issue #95: Show the next 3 events instead of just one.
for (my $count=1;$count<=3;$count++) {
my ($sec, $min, $hour, $day, $month, $year) = $cron->nextEvent;
$text .= sprintf("%2d:%02d:%02d on %d %s, %d\n", $hour, $min, $sec, $day, $mon[$month], ($year+1900));
}
return "Cron will schedule the job at this frequency: \n$text" if $_;
return;
};
1;

4
t/ParseCron.t
View File

@ -12,8 +12,8 @@ ddg_goodie_test(
[qw(
DDG::Goodie::ParseCron
)],
'crontab * */3 * * *' => test_zci(qr/^Cron will start this event next at \d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\.$/),
'crontab 42 12 3 Feb Sat' => test_zci(qr/^Cron will start this event next at \d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\.$/),
'crontab * */3 * * *' => test_zci(qr/^Cron will schedule the job at this frequency: \n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}$/),
'crontab 42 12 3 Feb Sat' => test_zci(qr/^Cron will schedule the job at this frequency: \n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}\n\d{2}:\d{2}:\d{2} on \d{1,2} [a-zA-Z]{3}, \d{4}$/),
);
done_testing;