use warnings;
use strict;
use IkiWiki 2.00;
+use IkiWiki::Plugin::inline;
use IkiWiki::Plugin::mdwn;
use CGI 'escapeHTML';
my ($authorurl, $author) = linkuser(getcgiuser($session));
- my $body = $form->field('body');
+ my $body = $form->field('body') || '';
$body =~ s/\r\n/\n/g;
$body =~ s/\r/\n/g;
$body .= "\n" if $body !~ /\n$/;
# - this means that if they do, rocks fall and everyone dies
if ($form->submitted eq PREVIEW) {
+ # $fake is a location that has the same number of slashes
+ # as the eventual location of this comment.
my $fake = "$page/_" . PLUGIN . "hypothetical";
my $preview = IkiWiki::htmlize($fake, $page, 'mdwn',
IkiWiki::linkify($page, $page,
my $file;
do {
$i++;
- $file = "$page/comment_${i}._" . PLUGIN;
+ $file = "$page/_comment_${i}._" . PLUGIN;
} while (-e "$config{srcdir}/$file");
# FIXME: could probably do some sort of graceful retry
error($conflict) if defined $conflict;
# Bounce back to where we were, but defeat broken caches
- my $anticache = "?updated=$page/comment_$i";
+ my $anticache = "?updated=$page/_comment_$i";
IkiWiki::redirect($cgi, urlto($page, undef, 1).$anticache);
}
else {