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

clarity

master
joey 2006-03-10 09:21:14 +00:00
parent d5566303d6
commit eeb4e694d3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ikiwiki
View File

@ -37,6 +37,12 @@ sub mtime ($) {
return (stat($page))[9]; return (stat($page))[9];
} }
sub possibly_foolish_untaint ($) {
my $tainted=shift;
my ($untainted)=$tainted=~/(.*)/;
return $untainted;
}
sub basename { sub basename {
my $file=shift; my $file=shift;
@ -281,7 +287,7 @@ sub render ($) {
sub loadindex () { sub loadindex () {
open (IN, "$srcdir/.index") || return; open (IN, "$srcdir/.index") || return;
while (<IN>) { while (<IN>) {
($_)=/(.*)/; # untaint $_=possibly_foolish_untaint($_);
chomp; chomp;
my ($mtime, $file, $rendered, @links)=split(' ', $_); my ($mtime, $file, $rendered, @links)=split(' ', $_);
my $page=pagename($file); my $page=pagename($file);
@ -500,8 +506,8 @@ if (grep /^-/, @ARGV) {
) || usage(); ) || usage();
} }
usage() unless @ARGV == 2; usage() unless @ARGV == 2;
($srcdir) = shift =~ /(.*)/; # untaint ($srcdir) = possibly_foolish_untaint(shift);
($destdir) = shift =~ /(.*)/; # untaint ($destdir) = possibly_foolish_untaint(shift);
gen_wrapper($offline, $rebuild) if $gen_wrapper; gen_wrapper($offline, $rebuild) if $gen_wrapper;
memoize('pagename'); memoize('pagename');