- $f->field(name => "sid", type => "hidden", value => $session->id,
- force => 1);
- $f->field(name => "do", type => "hidden", value => "revert", force => 1);
-
- return $f, ["Revert", "Cancel"];
-}
-
-sub sessioncgi ($$) {
- my ($q, $session) = @_;
- my $do = $q->param('do');
- my $rev = $q->param('rev');
-
- return unless $do eq 'revert' && $rev;
-
- # FIXME rcs_preprevert ??
- IkiWiki::check_canedit('FIXME', $q, $session);
-
- my ($form, $buttons) = confirmation_form($q, $session);
- IkiWiki::decode_form_utf8($form);
-
- if($form->submitted eq 'Revert' && $form->validate) {
- IkiWiki::checksessionexpiry($q, $session, $q->param('sid'));
-
- IkiWiki::disable_commit_hook();
- my $r = IkiWiki::rcs_revert(
- session => $session,
- rev => $rev);
- IkiWiki::enable_commit_hook();
-
- if($r) {
- die "FIXME revert '$rev' failed.";
- } else {
- require IkiWiki::Render;
- IkiWiki::refresh();
- IkiWiki::saveindex();
- # FIXME indicate success.
- }
- } else {
- $form->title(sprintf(gettext("confirm reversion of %s"), $rev));
- my $patch_contents = IkiWiki::rcs_showpatch($rev);
- $form->tmpl_param(patch_contents => encode_entities($patch_contents));
- $form->field(name => "rev", type => "hidden", value => $rev, force => 1);
- IkiWiki::showform($form, $buttons, $session, $q);
- exit 0;
- }
-
- IkiWiki::redirect($q, urlto($config{recentchangespage}, ''));
- exit 0;