urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Support pages with utf8 filenames. Patch by Faidon Liambotis.

master
joey 2006-07-03 20:12:27 +00:00
parent 117e71ec9b
commit fa9517e5bb
4 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
IkiWiki.pm
View File

@ -3,6 +3,7 @@
package IkiWiki;
use warnings;
use strict;
use encoding "utf8";
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime
%renderedfiles %pagesources %depends %hooks};
@ -340,7 +341,7 @@ sub unlockwiki () { #{{{
} #}}}
sub loadindex () { #{{{
open (IN, "$config{wikistatedir}/index") || return;
open (IN, "<:utf8", "$config{wikistatedir}/index") || return;
while (<IN>) {
$_=possibly_foolish_untaint($_);
chomp;
@ -372,7 +373,7 @@ sub saveindex () { #{{{
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};

8
IkiWiki/CGI.pm
View File

@ -308,7 +308,8 @@ sub cgi_editpage ($$) { #{{{
# This untaint is safe because titlepage removes any problimatic
# characters.
my ($page)=titlepage(possibly_foolish_untaint(lc($form->param('page'))));
my ($page)=Encode::decode_utf8($form->param('page'));
$page=titlepage(possibly_foolish_untaint(lc($page)));
if (! defined $page || ! length $page ||
$page=~/$config{wiki_file_prune_regexp}/ || $page=~/^\//) {
error("bad page name");
@ -353,10 +354,11 @@ sub cgi_editpage ($$) { #{{{
# 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",
value => $content, force => 1);
$form->field(name => "comments",
value => Encode::decode_utf8($form->field('comments')), force => 1);
value => $comments, force => 1);
$form->tmpl_param("page_preview",
htmlize($config{default_pageext},
linkify($page, $page, $content)));
@ -457,7 +459,7 @@ sub cgi_editpage ($$) { #{{{
}
if (defined $form->field('comments') &&
length $form->field('comments')) {
$message.=Encode::decode_utf8(": ".$form->field('comments'));
$message.=": ".Encode::decode_utf8($form->field('comments'));
}
if ($config{rcs}) {

5
IkiWiki/Render.pm
View File

@ -324,9 +324,11 @@ sub refresh () { #{{{
my %exists;
my @files;
eval q{use File::Find};
require Encode;
find({
no_chdir => 1,
wanted => sub {
$_ = Encode::decode_utf8($_);
if (/$config{wiki_file_prune_regexp}/) {
$File::Find::prune=1;
}
@ -346,6 +348,7 @@ sub refresh () { #{{{
find({
no_chdir => 1,
wanted => sub {
$_ = Encode::decode_utf8($_);
if (/$config{wiki_file_prune_regexp}/) {
$File::Find::prune=1;
}
@ -405,7 +408,7 @@ sub refresh () { #{{{
if (! exists $oldpagemtime{$page} ||
mtime(srcfile($file)) > $oldpagemtime{$page}) {
debug("rendering changed file $file");
debug("rendering $file");
render($file);
$rendered{$file}=1;
}

3
debian/changelog vendored
View File

@ -22,8 +22,9 @@ ikiwiki (1.8) UNRELEASED; urgency=low
getting in the way of the preview.
* Centralised all calls to HTML::Template and force all the templates
to be read as utf8.
* Support pages with utf8 filenames. Patch by Faidon Liambotis.
-- Joey Hess <joeyh@debian.org> Sun, 2 Jul 2006 14:55:40 -0400
-- Joey Hess <joeyh@debian.org> Mon, 3 Jul 2006 16:09:16 -0400
ikiwiki (1.7) unstable; urgency=low