Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
web commit from 217.16.16.218: poll vote (Accept only password logins)
[git.ikiwiki.info.git]
/
IkiWiki
/
Plugin
/
ddate.pm
diff --git
a/IkiWiki/Plugin/ddate.pm
b/IkiWiki/Plugin/ddate.pm
index b677026558f457f8da0e48c605006771361eb905..f4921fdfd70bc04ccf87bc0b5650c80d13d9c6f6 100644
(file)
--- a/
IkiWiki/Plugin/ddate.pm
+++ b/
IkiWiki/Plugin/ddate.pm
@@
-1,7
+1,8
@@
#!/usr/bin/perl
# Discordian date support fnord ikiwiki.
package IkiWiki::Plugin::ddate;
#!/usr/bin/perl
# Discordian date support fnord ikiwiki.
package IkiWiki::Plugin::ddate;
-use IkiWiki;
+
+use IkiWiki 2.00;
no warnings;
sub import { #{{{
no warnings;
sub import { #{{{
@@
-11,20
+12,22
@@
sub import { #{{{
sub checkconfig () { #{{{
if (! defined $config{timeformat} ||
$config{timeformat} eq '%c') {
sub checkconfig () { #{{{
if (! defined $config{timeformat} ||
$config{timeformat} eq '%c') {
- $config{timeformat}='on %
{%A, the %e of %B%}
, %Y. %N%nCelebrate %H';
+ $config{timeformat}='on %
A, the %e of %B
, %Y. %N%nCelebrate %H';
}
} #}}}
sub IkiWiki::displaytime ($) { #{{{
my $time=shift;
}
} #}}}
sub IkiWiki::displaytime ($) { #{{{
my $time=shift;
- eval q{use POSIX};
-
my $gregorian=POSIX::strftime("%d %m %Y", localtime($time))
;
-
my $date=`ddate +'$config{timeformat}' $gregorian`
;
-
chomp $date
;
- if ($
? || ! length $date
) {
-
return "some time or other (
hail Eris!)";
+ eval q{
+
use DateTime
;
+
use DateTime::Calendar::Discordian
;
+
}
;
+ if ($
@
) {
+
return "some time or other ($@ --
hail Eris!)";
}
}
- return $date;
+ my $dt = DateTime->from_epoch(epoch => $time);
+ my $dd = DateTime::Calendar::Discordian->from_object(object => $dt);
+ return $dd->strftime($IkiWiki::config{timeformat});
} #}}}
5
} #}}}
5