sub cgi_recentchanges ($) { #{{{
my $q=shift;
+ unlockwiki();
+
my $template=HTML::Template->new(
filename => "$config{templatedir}/recentchanges.tmpl"
);
my ($from)=$form->param('from')=~/$config{wiki_file_regexp}/;
if (! defined $from || ! length $from ||
$from ne $form->param('from') ||
- $from=~/$config{wiki_file_prune_regexp}/ || $from=~/^\//) {
+ $from=~/$config{wiki_file_prune_regexp}/ ||
+ $from=~/^\// ||
+ $form->submitted eq "Preview") {
@page_locs=$best_loc=$page;
}
else {
return;
}
- CGI::Session->name("ikiwiki_session");
-
+ CGI::Session->name("ikiwiki_session_$config{wikiname}");
+
my $oldmask=umask(077);
my $session = CGI::Session->new("driver:db_file", $q,
{ FileName => "$config{wikistatedir}/sessions.db" });
# is entered
my $page=lc($q->param('title'));
$page=~y/ /_/;
- $page=~s/([^-A-Za-z0-9_:+/])/"__".ord($1)."__"/eg;
+ $page=~s/([^-A-Za-z0-9_:+\/])/"__".ord($1)."__"/eg;
# if the page already exist, munge it to be unique
my $from=$q->param('from');
my $add="";