package IkiWiki;
use warnings;
use strict;
-use File::Spec;
-use HTML::Template;
+use encoding "utf8"; # force use of utf8 for io layer
+use Encode;
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime
%renderedfiles %pagesources %depends %hooks};
"\">?</a>$linktext</span>"
}
+ require File::Spec;
$bestlink=File::Spec->abs2rel($bestlink, dirname($page));
if (! $noimageinline && isinlinableimage($bestlink)) {
} #}}}
sub loadindex () { #{{{
- open (IN, "$config{wikistatedir}/index") || return;
+ open (IN, "<:utf8", "$config{wikistatedir}/index") || return;
while (<IN>) {
$_=possibly_foolish_untaint($_);
chomp;
if (! -d $config{wikistatedir}) {
mkdir($config{wikistatedir});
}
- open (OUT, ">$config{wikistatedir}/index") ||
+ open (OUT, ">:utf8", "$config{wikistatedir}/index") ||
error("cannot write to $config{wikistatedir}/index: $!");
foreach my $page (keys %oldpagemtime) {
next unless $oldpagemtime{$page};
close OUT;
} #}}}
+sub template_params (@) { #{{{
+ my $filename=shift;
+
+ require HTML::Template;
+ return filter => sub {
+ my $text_ref = shift;
+ $$text_ref=&Encode::decode_utf8($$text_ref);
+ },
+ filename => "$config{templatedir}/$filename", @_;
+} #}}}
+
+sub template ($;@) { #{{{
+ HTML::Template->new(template_params(@_));
+} #}}}
+
sub misctemplate ($$) { #{{{
my $title=shift;
my $pagebody=shift;
- my $template=HTML::Template->new(
- filename => "$config{templatedir}/misc.tmpl"
- );
+ my $template=template("misc.tmpl");
$template->param(
title => $title,
indexlink => indexlink(),