force => 1);
}
+ if (! defined $session->param('name')) {
+ # Make signinurl work and return here.
+ $form->tmpl_param(signinurl => IkiWiki::cgiurl(do => 'signin'));
+ $session->param(postsignin => $ENV{QUERY_STRING});
+ IkiWiki::cgi_savesession($session);
+ }
+
# The untaint is OK (as in editpage) because we're about to pass
# it to file_pruned anyway
my $page = $form->field('page');
# comment.
my $page=shift;
- # It needs to start with a letter.
- $page="comment_".$page;
-
- # Encode any illegal characters.
- $page=~s/([^A-Za-z0-9-_:.])/"__".ord($1)."__"/eg;
+ eval q{use Digest::MD5 'md5_hex'};
+ error($@) if $@;
- return $page;
+ return "comment-".md5_hex($page);
}
package IkiWiki::PageSpec;