ikiwiki/IkiWiki/Plugin/date.pm

34 lines
520 B
Perl
Raw Normal View History

#!/usr/bin/perl
package IkiWiki::Plugin::date;
use warnings;
use strict;
use IkiWiki 3.00;
sub import {
2009-11-25 12:49:26 +01:00
hook(type => "getsetup", id => "date", call => \&getsetup);
hook(type => "preprocess", id => "date", call => \&preprocess);
}
sub getsetup () {
return
plugin => {
safe => 1,
rebuild => undef,
},
}
sub preprocess (@) {
my $str=shift;
eval q{use Date::Parse};
error $@ if $@;
my $time = str2time($str);
if (! defined $time) {
error("unable to parse $str");
}
return displaytime($time);
}
1