summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/editpage.pm
blob: 1a04a72b5568f2980d8a7e00d0eaaa06a62e0e0d (plain)
  1. #!/usr/bin/perl
  2. package IkiWiki::Plugin::editpage;
  3. use warnings;
  4. use strict;
  5. use IkiWiki;
  6. use open qw{:utf8 :std};
  7. sub import {
  8. hook(type => "getsetup", id => "editpage", call => \&getsetup);
  9. hook(type => "refresh", id => "editpage", call => \&refresh);
  10. hook(type => "sessioncgi", id => "editpage", call => \&IkiWiki::cgi_editpage);
  11. }
  12. sub getsetup () {
  13. return
  14. plugin => {
  15. safe => 1,
  16. rebuild => 1,
  17. section => "core",
  18. },
  19. }
  20. sub refresh () {
  21. if (exists $wikistate{editpage} && exists $wikistate{editpage}{previews}) {
  22. # Expire old preview files after one hour.
  23. my $expire=time - (60 * 60);
  24. my @previews;
  25. foreach my $file (@{$wikistate{editpage}{previews}}) {
  26. my $mtime=(stat("$config{destdir}/$file"))[9];
  27. if (defined $mtime && $mtime <= $expire) {
  28. # Avoid deleting a preview that was later saved.
  29. my $delete=1;
  30. foreach my $page (keys %renderedfiles) {
  31. if (grep { $_ eq $file } @{$renderedfiles{$page}}) {
  32. $delete=0;
  33. }
  34. }
  35. if ($delete) {
  36. debug(sprintf(gettext("removing old preview %s"), $file));
  37. IkiWiki::prune("$config{destdir}/$file");
  38. }
  39. }
  40. elsif (defined $mtime) {
  41. push @previews, $file;
  42. }
  43. }
  44. $wikistate{editpage}{previews}=\@previews;
  45. }
  46. }
  47. # Back to ikiwiki namespace for the rest, this code is very much
  48. # internal to ikiwiki even though it's separated into a plugin,
  49. # and other plugins use the function below.
  50. package IkiWiki;
  51. sub cgi_editpage ($$) {
  52. my $q=shift;
  53. my $session=shift;
  54. my $do=$q->param('do');
  55. return unless $do eq 'create' || $do eq 'edit';
  56. decode_cgi_utf8($q);
  57. my @fields=qw(do rcsinfo subpage from page type editcontent editmessage);
  58. my @buttons=("Save Page", "Preview", "Cancel");
  59. eval q{use CGI::FormBuilder};
  60. error($@) if $@;
  61. my $form = CGI::FormBuilder->new(
  62. fields => \@fields,
  63. charset => "utf-8",
  64. method => 'POST',
  65. required => [qw{editcontent}],
  66. javascript => 0,
  67. params => $q,
  68. action => $config{cgiurl},
  69. header => 0,
  70. table => 0,
  71. template => { template("editpage.tmpl") },
  72. );
  73. decode_form_utf8($form);
  74. run_hooks(formbuilder_setup => sub {
  75. shift->(form => $form, cgi => $q, session => $session,
  76. buttons => \@buttons);
  77. });
  78. decode_form_utf8($form);
  79. # This untaint is safe because we check file_pruned and
  80. # wiki_file_regexp.
  81. my ($page)=$form->field('page')=~/$config{wiki_file_regexp}/;
  82. $page=possibly_foolish_untaint($page);
  83. my $absolute=($page =~ s#^/+##); # absolute name used to force location
  84. if (! defined $page || ! length $page ||
  85. file_pruned($page)) {
  86. error(gettext("bad page name"));
  87. }
  88. my $baseurl = urlto($page, undef, 1);
  89. my $from;
  90. if (defined $form->field('from')) {
  91. ($from)=$form->field('from')=~/$config{wiki_file_regexp}/;
  92. }
  93. my $file;
  94. my $type;
  95. if (exists $pagesources{$page} && $form->field("do") ne "create") {
  96. $file=$pagesources{$page};
  97. $type=pagetype($file);
  98. if (! defined $type || $type=~/^_/) {
  99. error(sprintf(gettext("%s is not an editable page"), $page));
  100. }
  101. if (! $form->submitted) {
  102. $form->field(name => "rcsinfo",
  103. value => rcs_prepedit($file), force => 1);
  104. }
  105. $form->field(name => "editcontent", validate => '/.*/');
  106. }
  107. else {
  108. $type=$form->param('type');
  109. if (defined $type && length $type && $hooks{htmlize}{$type}) {
  110. $type=possibly_foolish_untaint($type);
  111. }
  112. elsif (defined $from && exists $pagesources{$from}) {
  113. # favor the type of linking page
  114. $type=pagetype($pagesources{$from});
  115. }
  116. $type=$config{default_pageext} unless defined $type;
  117. $file=newpagefile($page, $type);
  118. if (! $form->submitted) {
  119. $form->field(name => "rcsinfo", value => "", force => 1);
  120. }
  121. $form->field(name => "editcontent", validate => '/.+/');
  122. }
  123. $form->field(name => "do", type => 'hidden');
  124. $form->field(name => "sid", type => "hidden", value => $session->id,
  125. force => 1);
  126. $form->field(name => "from", type => 'hidden');
  127. $form->field(name => "rcsinfo", type => 'hidden');
  128. $form->field(name => "subpage", type => 'hidden');
  129. $form->field(name => "page", value => $page, force => 1);
  130. $form->field(name => "type", value => $type, force => 1);
  131. $form->field(name => "editmessage", type => "text", size => 80);
  132. $form->field(name => "editcontent", type => "textarea", rows => 20,
  133. cols => 80);
  134. $form->tmpl_param("can_commit", $config{rcs});
  135. $form->tmpl_param("helponformattinglink",
  136. htmllink($page, $page, "ikiwiki/formatting",
  137. noimageinline => 1,
  138. linktext => "FormattingHelp"));
  139. my $previewing=0;
  140. if ($form->submitted eq "Cancel") {
  141. if ($form->field("do") eq "create" && defined $from) {
  142. redirect($q, urlto($from, undef, 1));
  143. }
  144. elsif ($form->field("do") eq "create") {
  145. redirect($q, $config{url});
  146. }
  147. else {
  148. redirect($q, urlto($page, undef, 1));
  149. }
  150. exit;
  151. }
  152. elsif ($form->submitted eq "Preview") {
  153. $previewing=1;
  154. my $new=not exists $pagesources{$page};
  155. # temporarily record its type
  156. $pagesources{$page}=$page.".".$type if $new;
  157. my %wasrendered=map { $_ => 1 } @{$renderedfiles{$page}};
  158. my $content=$form->field('editcontent');
  159. run_hooks(editcontent => sub {
  160. $content=shift->(
  161. content => $content,
  162. page => $page,
  163. cgi => $q,
  164. session => $session,
  165. );
  166. });
  167. my $preview=htmlize($page, $page, $type,
  168. linkify($page, $page,
  169. preprocess($page, $page,
  170. filter($page, $page, $content), 0, 1)));
  171. run_hooks(format => sub {
  172. $preview=shift->(
  173. page => $page,
  174. content => $preview,
  175. );
  176. });
  177. $form->tmpl_param("page_preview", $preview);
  178. # Previewing may have created files on disk.
  179. # Keep a list of these to be deleted later.
  180. my %previews = map { $_ => 1 } @{$wikistate{editpage}{previews}};
  181. foreach my $f (@{$renderedfiles{$page}}) {
  182. $previews{$f}=1 unless $wasrendered{$f};
  183. }
  184. # Throw out any other state changes made during previewing,
  185. # and save the previews list.
  186. loadindex();
  187. @{$wikistate{editpage}{previews}} = keys %previews;
  188. saveindex();
  189. }
  190. elsif ($form->submitted eq "Save Page") {
  191. $form->tmpl_param("page_preview", "");
  192. }
  193. if ($form->submitted ne "Save Page" || ! $form->validate) {
  194. if ($form->field("do") eq "create") {
  195. my @page_locs;
  196. my $best_loc;
  197. if (! defined $from || ! length $from ||
  198. $from ne $form->field('from') ||
  199. file_pruned($from) ||
  200. $absolute ||
  201. $form->submitted) {
  202. @page_locs=$best_loc=$page;
  203. }
  204. else {
  205. my $dir=$from."/";
  206. $dir=~s![^/]+/+$!!;
  207. if ((defined $form->field('subpage') &&
  208. length $form->field('subpage')) ||
  209. $page eq lc($config{discussionpage})) {
  210. $best_loc="$from/$page";
  211. }
  212. else {
  213. $best_loc=$dir.$page;
  214. }
  215. push @page_locs, $dir.$page;
  216. push @page_locs, "$from/$page";
  217. while (length $dir) {
  218. $dir=~s![^/]+/+$!!;
  219. push @page_locs, $dir.$page;
  220. }
  221. my $userpage=IkiWiki::userpage($page);
  222. push @page_locs, $userpage
  223. if ! grep { $_ eq $userpage } @page_locs;
  224. }
  225. @page_locs = grep {
  226. ! exists $pagecase{lc $_}
  227. } @page_locs;
  228. if (! @page_locs) {
  229. # hmm, someone else made the page in the
  230. # meantime?
  231. if ($previewing) {
  232. # let them go ahead with the edit
  233. # and resolve the conflict at save
  234. # time
  235. @page_locs=$page;
  236. }
  237. else {
  238. redirect($q, urlto($page, undef, 1));
  239. exit;
  240. }
  241. }
  242. my @editable_locs = grep {
  243. check_canedit($_, $q, $session, 1)
  244. } @page_locs;
  245. if (! @editable_locs) {
  246. # now let it throw an error, or prompt for
  247. # login
  248. map { check_canedit($_, $q, $session) }
  249. ($best_loc, @page_locs);
  250. }
  251. my @page_types;
  252. if (exists $hooks{htmlize}) {
  253. foreach my $key (grep { !/^_/ } keys %{$hooks{htmlize}}) {
  254. push @page_types, [$key, $hooks{htmlize}{$key}{longname} || $key];
  255. }
  256. }
  257. @page_types=sort @page_types;
  258. $form->tmpl_param("page_select", 1);
  259. $form->field(name => "page", type => 'select',
  260. options => [ map { [ $_, pagetitle($_, 1) ] } @editable_locs ],
  261. value => $best_loc);
  262. $form->field(name => "type", type => 'select',
  263. options => \@page_types);
  264. $form->title(sprintf(gettext("creating %s"), pagetitle($page)));
  265. }
  266. elsif ($form->field("do") eq "edit") {
  267. check_canedit($page, $q, $session);
  268. if (! defined $form->field('editcontent') ||
  269. ! length $form->field('editcontent')) {
  270. my $content="";
  271. if (exists $pagesources{$page}) {
  272. $content=readfile(srcfile($pagesources{$page}));
  273. $content=~s/\n/\r\n/g;
  274. }
  275. $form->field(name => "editcontent", value => $content,
  276. force => 1);
  277. }
  278. $form->tmpl_param("page_select", 0);
  279. $form->field(name => "page", type => 'hidden');
  280. $form->field(name => "type", type => 'hidden');
  281. $form->title(sprintf(gettext("editing %s"), pagetitle($page)));
  282. }
  283. showform($form, \@buttons, $session, $q,
  284. forcebaseurl => $baseurl, page => $page);
  285. }
  286. else {
  287. # save page
  288. check_canedit($page, $q, $session);
  289. checksessionexpiry($q, $session, $q->param('sid'));
  290. my $exists=-e "$config{srcdir}/$file";
  291. if ($form->field("do") ne "create" && ! $exists &&
  292. ! defined srcfile($file, 1)) {
  293. $form->tmpl_param("message", template("editpagegone.tmpl")->output);
  294. $form->field(name => "do", value => "create", force => 1);
  295. $form->tmpl_param("page_select", 0);
  296. $form->field(name => "page", type => 'hidden');
  297. $form->field(name => "type", type => 'hidden');
  298. $form->title(sprintf(gettext("editing %s"), $page));
  299. showform($form, \@buttons, $session, $q,
  300. forcebaseurl => $baseurl, page => $page);
  301. exit;
  302. }
  303. elsif ($form->field("do") eq "create" && $exists) {
  304. $form->tmpl_param("message", template("editcreationconflict.tmpl")->output);
  305. $form->field(name => "do", value => "edit", force => 1);
  306. $form->tmpl_param("page_select", 0);
  307. $form->field(name => "page", type => 'hidden');
  308. $form->field(name => "type", type => 'hidden');
  309. $form->title(sprintf(gettext("editing %s"), $page));
  310. $form->field("editcontent",
  311. value => readfile("$config{srcdir}/$file").
  312. "\n\n\n".$form->field("editcontent"),
  313. force => 1);
  314. showform($form, \@buttons, $session, $q,
  315. forcebaseurl => $baseurl, page => $page);
  316. exit;
  317. }
  318. my $message="";
  319. if (defined $form->field('editmessage') &&
  320. length $form->field('editmessage')) {
  321. $message=$form->field('editmessage');
  322. }
  323. my $content=$form->field('editcontent');
  324. check_content(content => $content, page => $page,
  325. cgi => $q, session => $session,
  326. subject => $message);
  327. run_hooks(editcontent => sub {
  328. $content=shift->(
  329. content => $content,
  330. page => $page,
  331. cgi => $q,
  332. session => $session,
  333. );
  334. });
  335. $content=~s/\r\n/\n/g;
  336. $content=~s/\r/\n/g;
  337. $content.="\n" if $content !~ /\n$/;
  338. $config{cgi}=0; # avoid cgi error message
  339. eval { writefile($file, $config{srcdir}, $content) };
  340. $config{cgi}=1;
  341. if ($@) {
  342. $form->field(name => "rcsinfo", value => rcs_prepedit($file),
  343. force => 1);
  344. my $mtemplate=template("editfailedsave.tmpl");
  345. $mtemplate->param(error_message => $@);
  346. $form->tmpl_param("message", $mtemplate->output);
  347. $form->field("editcontent", value => $content, force => 1);
  348. $form->tmpl_param("page_select", 0);
  349. $form->field(name => "page", type => 'hidden');
  350. $form->field(name => "type", type => 'hidden');
  351. $form->title(sprintf(gettext("editing %s"), $page));
  352. showform($form, \@buttons, $session, $q,
  353. forcebaseurl => $baseurl, page => $page);
  354. exit;
  355. }
  356. my $conflict;
  357. if ($config{rcs}) {
  358. if (! $exists) {
  359. rcs_add($file);
  360. }
  361. # Prevent deadlock with post-commit hook by
  362. # signaling to it that it should not try to
  363. # do anything.
  364. disable_commit_hook();
  365. $conflict=rcs_commit(
  366. file => $file,
  367. message => $message,
  368. token => $form->field("rcsinfo"),
  369. session => $session,
  370. );
  371. enable_commit_hook();
  372. rcs_update();
  373. }
  374. # Refresh even if there was a conflict, since other changes
  375. # may have been committed while the post-commit hook was
  376. # disabled.
  377. require IkiWiki::Render;
  378. refresh();
  379. saveindex();
  380. if (defined $conflict) {
  381. $form->field(name => "rcsinfo", value => rcs_prepedit($file),
  382. force => 1);
  383. $form->tmpl_param("message", template("editconflict.tmpl")->output);
  384. $form->field("editcontent", value => $conflict, force => 1);
  385. $form->field("do", "edit", force => 1);
  386. $form->tmpl_param("page_select", 0);
  387. $form->field(name => "page", type => 'hidden');
  388. $form->field(name => "type", type => 'hidden');
  389. $form->title(sprintf(gettext("editing %s"), $page));
  390. showform($form, \@buttons, $session, $q,
  391. forcebaseurl => $baseurl, page => $page);
  392. }
  393. else {
  394. # The trailing question mark tries to avoid broken
  395. # caches and get the most recent version of the page.
  396. redirect($q, urlto($page, undef, 1)."?updated");
  397. }
  398. }
  399. exit;
  400. }
  401. 1