diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-07-21 21:57:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-07-21 21:57:58 -0400 |
commit | 6e243a45e5df8ec2e24d47b3466882ad6b8e0f62 (patch) | |
tree | 87d7514bd2f7d01e8889f5a4bbe7b0f7b340a1b1 /IkiWiki | |
parent | 9d5c9ce258299c4b495dfa11e652ee06df02053a (diff) | |
download | ikiwiki-6e243a45e5df8ec2e24d47b3466882ad6b8e0f62.tar ikiwiki-6e243a45e5df8ec2e24d47b3466882ad6b8e0f62.tar.gz |
probably redundant symlink check
Diffstat (limited to 'IkiWiki')
-rw-r--r-- | IkiWiki/Plugin/remove.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/IkiWiki/Plugin/remove.pm b/IkiWiki/Plugin/remove.pm index 91f133ab6..7cc1d615e 100644 --- a/IkiWiki/Plugin/remove.pm +++ b/IkiWiki/Plugin/remove.pm @@ -121,24 +121,24 @@ sub sessioncgi ($$) { #{{{ # and that the user is allowed to edit(/remove) it. my @files; foreach my $page (@pages) { + # Must be a known source file. if (! exists $pagesources{$page}) { error(sprintf(gettext("%s does not exist"), htmllink("", "", $page, noimageinline => 1))); } + + # Must be editiable. IkiWiki::check_canedit($page, $q, $session); + # Must exist on disk, and be a regular file. my $file=$pagesources{$page}; if (! -e "$config{srcdir}/$file") { error(sprintf(gettext("%s is not in the srcdir, so it cannot be deleted"), $file)); } - elsif (! -f "$config{srcdir}/$file") { + elsif (-l "$config{srcdir}/$file" && ! -f _) { error(sprintf(gettext("%s is not a file"), $file)); } - # This untaint is safe because we've - # verified the file is a known source file, - # and is in the srcdir, and is a regular - # file. push @files, IkiWiki::possibly_foolish_untaint($file); } |