Merge branch 'master' into cvs
[ikiwiki] / IkiWiki / Plugin / ddate.pm
1 #!/usr/bin/perl
2 # Discordian date support fnord ikiwiki.
3 package IkiWiki::Plugin::ddate;
4
5 use IkiWiki 3.00;
6 no warnings;
7
8 sub import {
9         hook(type => "getsetup", id => "ddate", call => \&getsetup);
10 }
11
12 sub getsetup {
13         return
14                 plugin => {
15                         safe => 1,
16                         rebuild => 1,
17                 },
18 }
19
20 sub IkiWiki::formattime ($;$) {
21         my $time=shift;
22         my $format=shift;
23         if (! defined $format) {
24                 $format=$config{timeformat};
25                 if ($format eq '%c') {
26                         $format='on %A, the %e of %B, %Y. %N%nCelebrate %H';
27                 }
28         }
29         eval q{
30                 use DateTime;
31                 use DateTime::Calendar::Discordian;
32         };
33         if ($@) {
34                  return "some time or other ($@ -- hail Eris!)";
35         }
36         my $dt = DateTime->from_epoch(epoch => $time);
37         my $dd = DateTime::Calendar::Discordian->from_object(object => $dt);
38         return $dd->strftime($format);
39 }
40
41 5