2 package IkiWiki::Plugin::remove;
9 hook(type => "formbuilder_setup", id => "remove", call => \&formbuilder_setup);
10 hook(type => "formbuilder", id => "remove", call => \&formbuilder);
11 hook(type => "sessioncgi", id => "remove", call => \&sessioncgi);
15 sub formbuilder_setup (@) { #{{{
17 my $form=$params{form};
20 if (defined $form->field("do") && $form->field("do") eq "edit") {
21 push @{$params{buttons}}, "Remove";
22 # TODO button for attachments
26 sub confirmation_form ($$) { #{{{
30 eval q{use CGI::FormBuilder};
32 my @fields=qw(do page);
33 my $f = CGI::FormBuilder->new(
34 title => "confirm removal",
41 action => $config{cgiurl},
42 stylesheet => IkiWiki::baseurl()."style.css",
46 $f->field(name => "do", type => "hidden", value => "remove", force => 1);
47 $f->field(name => "page", label => "Will remove:", validate => sub {
49 if (! exists $pagesources{$page}) {
50 $f->field(name => "page", message => gettext("page does not exist"));
54 IkiWiki::check_canedit($page, $q, $session);
59 return $f, ["Remove", "Cancel"];
62 sub formbuilder (@) { #{{{
64 my $form=$params{form};
66 if (defined $form->field("do") && $form->field("do") eq "edit" &&
67 $form->submitted eq "Remove") {
68 # When the remove button is pressed on the edit form,
69 # save the rest of the form state and generate a small
70 # remove confirmation form.
76 my $session=$params{session};
77 my ($f, $buttons)=confirmation_form($q, $session);
78 $f->field(name => "page", value => $form->field("page"),
80 IkiWiki::showform($f, $buttons, $session, $q);
85 sub sessioncgi ($$) { #{{{
88 if ($q->param("do") eq 'remove') {
90 my ($form, $buttons)=confirmation_form($q, $session);
91 IkiWiki::decode_form_utf8($form);
92 if ($form->submitted eq 'Cancel') {
93 error("canceled"); # TODO load state
95 elsif ($form->submitted eq 'Remove' && $form->validate) {
96 error("removal not yet implemented"); # TODO
99 IkiWiki::showform($form, $buttons, $session, $q);