parent
c6d1ae33d2
commit
c924c76bd8
|
@ -106,7 +106,23 @@ sub sessioncgi ($$) { #{{{
|
||||||
exit 0;
|
exit 0;
|
||||||
}
|
}
|
||||||
elsif ($form->submitted eq 'Remove' && $form->validate) {
|
elsif ($form->submitted eq 'Remove' && $form->validate) {
|
||||||
error("removal not yet implemented"); # TODO
|
my $page=IkiWiki::titlepage($form->field("page"));
|
||||||
|
my $file=$pagesources{$page};
|
||||||
|
|
||||||
|
# Do removal, and update the wiki.
|
||||||
|
require IkiWiki::Render;
|
||||||
|
if ($config{rcs}) {
|
||||||
|
IkiWiki::rcs_remove($file);
|
||||||
|
IkiWiki::disable_commit_hook();
|
||||||
|
IkiWiki::rcs_commit($file, gettext("removed"),
|
||||||
|
IkiWiki::rcs_prepedit($file),
|
||||||
|
$session->param("name"), $ENV{REMOTE_ADDR});
|
||||||
|
IkiWiki::enable_commit_hook();
|
||||||
|
IkiWiki::rcs_update();
|
||||||
|
}
|
||||||
|
IkiWiki::prune("$config{srcdir}/$file");
|
||||||
|
IkiWiki::refresh();
|
||||||
|
IkiWiki::saveindex();
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
IkiWiki::showform($form, $buttons, $session, $q);
|
IkiWiki::showform($form, $buttons, $session, $q);
|
||||||
|
|
|
@ -3,7 +3,7 @@ ikiwiki (2.55) UNRELEASED; urgency=low
|
||||||
* prefix_directives enabled in doc wiki, all preprocessor directives
|
* prefix_directives enabled in doc wiki, all preprocessor directives
|
||||||
converted. (Simon McVittie)
|
converted. (Simon McVittie)
|
||||||
* editpage: Don't show attachments link when attachments are disabled.
|
* editpage: Don't show attachments link when attachments are disabled.
|
||||||
* All rcs backends need to implement rcs_rm. (Done for svn, git).
|
* All rcs backends need to implement rcs_remove. (Done for svn, git).
|
||||||
|
|
||||||
-- Joey Hess <joeyh@debian.org> Mon, 21 Jul 2008 11:35:46 -0400
|
-- Joey Hess <joeyh@debian.org> Mon, 21 Jul 2008 11:35:46 -0400
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue