use warnings;
use strict;
use IkiWiki;
-use HTML::Entities q{encode_entities_numeric};
+use URI;
sub import { #{{{
IkiWiki::hook(type => "preprocess", id => "inline",
$link=abs2rel($link, dirname($params{page}));
$template->param(pageurl => $link);
$template->param(title => pagetitle(basename($page)));
- $template->param(content => get_inline_content($page, $params{page}))
- if $params{archive} eq "no";
+ # TODO: if $params{archive} eq "no", the only reason to do this
+ # is to let the meta plugin get page title info; so stop
+ # calling this next line then once the meta plugin can
+ # store that accross runs.
+ $template->param(content => get_inline_content($page, $params{page}));
$template->param(ctime => displaytime($pagectime{$page}));
run_hooks(pagetemplate => sub {
my $time=shift;
eval q{use POSIX};
- return POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
+ my $lc_time= POSIX::setlocale(&POSIX::LC_TIME);
+ POSIX::setlocale(&POSIX::LC_TIME, "C");
+ my $ret=POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
+ POSIX::setlocale(&POSIX::LC_TIME, $lc_time);
+ return $ret;
} #}}}
sub absolute_urls ($$) { #{{{
my $page=shift;
my @pages=@_;
- my $url=encode_entities_numeric("$config{url}/".htmlpage($page));
+ my $url=URI->new(encode_utf8("$config{url}/".htmlpage($page)));
- my $itemtemplate=template("rssitem.tmpl", blind_cache => 1,
- die_on_bad_params => 0);
+ my $itemtemplate=template("rssitem.tmpl", blind_cache => 1);
my $content="";
foreach my $p (@pages) {
next unless exists $renderedfiles{$p};
- my $u=encode_entities_numeric("$config{url}/$renderedfiles{$p}");
+ my $u=URI->new(encode_utf8("$config{url}/$renderedfiles{$p}"));
$itemtemplate->param(
title => pagetitle(basename($p)),