package IkiWiki;
use warnings;
use strict;
+use encoding "utf8"; # force use of utf8 for io layer
+use Encode;
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime
%renderedfiles %pagesources %depends %hooks};
} #}}}
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};
sub template_params (@) { #{{{
my $filename=shift;
- require Encode;
require HTML::Template;
return filter => sub {
my $text_ref = shift;