use strict;
use IkiWiki;
use IkiWiki::UserInfo;
-use encoding 'utf8'; # force use of utf8 for io layer
+use open qw{:utf8 :std};
+use Encode;
package IkiWiki;
}
$page=lc($page);
- my $file=$page.$config{default_pageext};
+ my $file;
if (exists $pagesources{lc($page)}) {
$file=$pagesources{lc($page)};
}
+ else {
+ $file=$page.".".$config{default_pageext};
+ }
my $newfile=0;
if (! -e "$config{srcdir}/$file") {
$newfile=1;
require IkiWiki::Render;
# Apparently FormBuilder doesn't not treat input as
# utf-8, so decode from it.
- require Encode;
my $content = Encode::decode_utf8($form->field('editcontent'));
my $comments = Encode::decode_utf8($form->field('comments'));
$form->field(name => "editcontent",
$form->field(name => "comments",
value => $comments, force => 1);
$form->tmpl_param("page_preview",
- htmlize($config{default_pageext},
+ htmlize(pagetype($file),
linkify($page, $page, $content)));
}
else {
page_locked($page, $session);
# Decode utf-8 since FormBuilder does not
- require Encode;
my $content=Encode::decode_utf8($form->field('editcontent'));
$content=~s/\r\n/\n/g;