ikiwiki/IkiWiki/Plugin/remove.pm

255 lines
6.4 KiB
Perl
Raw Normal View History

2008-07-21 18:54:23 +02:00
#!/usr/bin/perl
package IkiWiki::Plugin::remove;
use warnings;
use strict;
use IkiWiki 3.00;
2008-07-21 18:54:23 +02:00
sub import {
hook(type => "getsetup", id => "remove", call => \&getsetup);
2008-07-21 18:54:23 +02:00
hook(type => "formbuilder_setup", id => "remove", call => \&formbuilder_setup);
hook(type => "formbuilder", id => "remove", call => \&formbuilder);
hook(type => "sessioncgi", id => "remove", call => \&sessioncgi);
}
2008-07-21 18:54:23 +02:00
sub getsetup () {
return
plugin => {
safe => 1,
rebuild => 0,
2010-02-12 10:22:15 +01:00
section => "web",
},
}
sub check_canremove ($$$) {
my $page=shift;
my $q=shift;
my $session=shift;
# Must be a known source file.
if (! exists $pagesources{$page}) {
error(sprintf(gettext("%s does not exist"),
2008-07-22 20:00:23 +02:00
htmllink("", "", $page, noimageinline => 1)));
}
# Must exist on disk, and be a regular file.
my $file=$pagesources{$page};
if (! -e "$config{srcdir}/$file") {
error(sprintf(gettext("%s is not in the srcdir, so it cannot be deleted"), $file));
}
elsif (-l "$config{srcdir}/$file" && ! -f _) {
error(sprintf(gettext("%s is not a file"), $file));
}
# If a user can't upload an attachment, don't let them delete it.
# This is sorta overkill, but better safe than sorry.
2008-09-27 19:34:46 +02:00
if (! defined pagetype($pagesources{$page})) {
if (IkiWiki::Plugin::attachment->can("check_canattach")) {
IkiWiki::Plugin::attachment::check_canattach($session, $page, "$config{srcdir}/$file");
}
else {
2010-01-18 18:09:54 +01:00
error("removal of attachments is not allowed");
}
}
my $canremove;
IkiWiki::run_hooks(canremove => sub {
return if defined $canremove;
my $ret=shift->(page => $page, cgi => $q, session => $session);
if (defined $ret) {
if ($ret eq "") {
$canremove=1;
}
elsif (ref $ret eq 'CODE') {
$ret->();
$canremove=0;
}
elsif (defined $ret) {
error($ret);
$canremove=0;
}
}
});
return defined $canremove ? $canremove : 1;
}
sub formbuilder_setup (@) {
2008-07-21 18:54:23 +02:00
my %params=@_;
my $form=$params{form};
my $q=$params{cgi};
if (defined $form->field("do") && ($form->field("do") eq "edit" ||
$form->field("do") eq "create")) {
# Removal button for the page, and also for attachments.
push @{$params{buttons}}, "Remove" if $form->field("do") eq "edit";
$form->tmpl_param("field-remove" => '<input name="_submit" type="submit" value="Remove Attachments" />');
2008-07-21 18:54:23 +02:00
}
}
2008-07-21 18:54:23 +02:00
sub confirmation_form ($$) {
2008-07-21 18:54:23 +02:00
my $q=shift;
my $session=shift;
eval q{use CGI::FormBuilder};
error($@) if $@;
my $f = CGI::FormBuilder->new(
name => "remove",
header => 0,
charset => "utf-8",
method => 'POST',
javascript => 0,
params => $q,
2010-11-23 01:12:17 +01:00
action => IkiWiki::cgiurl(),
stylesheet => 1,
2008-07-22 04:11:24 +02:00
fields => [qw{do page}],
2008-07-21 18:54:23 +02:00
);
2008-07-21 19:31:58 +02:00
$f->field(name => "sid", type => "hidden", value => $session->id,
force => 1);
2008-07-21 18:54:23 +02:00
$f->field(name => "do", type => "hidden", value => "remove", force => 1);
return $f, ["Remove", "Cancel"];
}
2008-07-21 18:54:23 +02:00
sub removal_confirm ($$@) {
2008-07-21 21:02:29 +02:00
my $q=shift;
my $session=shift;
my $attachment=shift;
my @pages=@_;
foreach my $page (@pages) {
IkiWiki::check_canedit($page, $q, $session);
check_canremove($page, $q, $session);
}
2008-07-21 21:02:29 +02:00
# Save current form state to allow returning to it later
# without losing any edits.
# (But don't save what button was submitted, to avoid
# looping back to here.)
# Note: "_submit" is CGI::FormBuilder internals.
$q->param(-name => "_submit", -value => "");
$session->param(postremove => scalar $q->Vars);
IkiWiki::cgi_savesession($session);
my ($f, $buttons)=confirmation_form($q, $session);
$f->title(sprintf(gettext("confirm removal of %s"),
2008-09-27 20:14:36 +02:00
join(", ", map { pagetitle($_) } @pages)));
2008-07-21 21:02:29 +02:00
$f->field(name => "page", type => "hidden", value => \@pages, force => 1);
if (defined $attachment) {
$f->field(name => "attachment", type => "hidden",
value => $attachment, force => 1);
}
IkiWiki::showform($f, $buttons, $session, $q);
exit 0;
}
2008-07-21 21:02:29 +02:00
sub postremove ($) {
2008-07-21 21:02:29 +02:00
my $session=shift;
# Load saved form state and return to edit form.
my $postremove=CGI->new($session->param("postremove"));
$session->clear("postremove");
IkiWiki::cgi_savesession($session);
IkiWiki::cgi($postremove, $session);
}
2008-07-21 21:02:29 +02:00
sub formbuilder (@) {
2008-07-21 18:54:23 +02:00
my %params=@_;
my $form=$params{form};
if (defined $form->field("do") && ($form->field("do") eq "edit" ||
$form->field("do") eq "create")) {
2008-07-21 21:02:29 +02:00
my $q=$params{cgi};
my $session=$params{session};
if ($form->submitted eq "Remove" && $form->field("do") eq "edit") {
2008-07-21 21:02:29 +02:00
removal_confirm($q, $session, 0, $form->field("page"));
}
elsif ($form->submitted eq "Remove Attachments") {
my @selected=map { Encode::decode_utf8($_) } $q->param("attachment_select");
2008-07-22 04:30:43 +02:00
if (! @selected) {
2008-07-22 04:11:24 +02:00
error(gettext("Please select the attachments to remove."));
}
2008-07-22 04:30:43 +02:00
removal_confirm($q, $session, 1, @selected);
}
2008-07-21 18:54:23 +02:00
}
}
2008-07-21 18:54:23 +02:00
sub sessioncgi ($$) {
2008-07-21 18:54:23 +02:00
my $q=shift;
if ($q->param("do") eq 'remove') {
my $session=shift;
2008-07-21 21:02:29 +02:00
my ($form, $buttons)=confirmation_form($q, $session);
2008-07-21 18:54:23 +02:00
IkiWiki::decode_form_utf8($form);
2008-07-21 20:03:39 +02:00
2008-07-21 18:54:23 +02:00
if ($form->submitted eq 'Cancel') {
2008-07-21 21:02:29 +02:00
postremove($session);
2008-07-21 18:54:23 +02:00
}
elsif ($form->submitted eq 'Remove' && $form->validate) {
IkiWiki::checksessionexpiry($q, $session, $q->param('sid'));
my @pages=$form->field("page");
# Validate removal by checking that the page exists,
# and that the user is allowed to edit(/remove) it.
my @files;
2008-07-21 21:02:29 +02:00
foreach my $page (@pages) {
IkiWiki::check_canedit($page, $q, $session);
check_canremove($page, $q, $session);
2008-07-22 20:00:23 +02:00
# This untaint is safe because of the
# checks performed above, which verify the
# page is a normal file, etc.
push @files, IkiWiki::possibly_foolish_untaint($pagesources{$page});
}
# Do removal, and update the wiki.
require IkiWiki::Render;
if ($config{rcs}) {
IkiWiki::disable_commit_hook();
2008-07-21 21:02:29 +02:00
foreach my $file (@files) {
IkiWiki::rcs_remove($file);
}
IkiWiki::rcs_commit_staged(
message => gettext("removed"),
session => $session,
);
IkiWiki::enable_commit_hook();
IkiWiki::rcs_update();
}
else {
foreach my $file (@files) {
IkiWiki::prune("$config{srcdir}/$file");
}
}
IkiWiki::refresh();
IkiWiki::saveindex();
2008-07-21 19:53:34 +02:00
2008-07-21 21:02:29 +02:00
if ($q->param("attachment")) {
# Attachments were deleted, so redirect
# back to the edit form.
2008-07-21 21:02:29 +02:00
postremove($session);
}
else {
# The page is gone, so redirect to parent
# of the page.
my $parent=IkiWiki::dirname($pages[0]);
if (! exists $pagesources{$parent}) {
$parent="index";
}
2010-11-29 20:07:26 +01:00
IkiWiki::redirect($q, urlto($parent));
2008-07-21 19:53:34 +02:00
}
2008-07-21 18:54:23 +02:00
}
else {
removal_confirm($q, $session, 0, $form->field("page"));
2008-07-21 18:54:23 +02:00
}
2008-07-21 20:03:39 +02:00
exit 0;
2008-07-21 18:54:23 +02:00
}
}
1