# wiki_file_regexp.
my ($page)=$form->field('page')=~/$config{wiki_file_regexp}/;
$page=possibly_foolish_untaint($page);
- my $absolute=($page =~ s#^/+##);
+ my $absolute=($page =~ s#^/+##); # absolute name used to force location
if (! defined $page || ! length $page ||
file_pruned($page)) {
error(gettext("bad page name"));
if (! defined $from || ! length $from ||
$from ne $form->field('from') ||
file_pruned($from) ||
- $from=~/^\// ||
$absolute ||
$form->submitted) {
@page_locs=$best_loc=$page;