misc/plugins/WikiPageRemove.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiPageRemove
  @Description:
    @@@: WikiPage removing
    @@lang:en
  @License: %%Perl%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: w@suika.fam.cx
  @Date.RCS:
    $Date: 2004/02/18 07:22:11 $
  @RequiredPlugin[list]:
    Error
    WikiEdit
    WikiFormCore
    WikiResource
  @Use:
    use Message::Util::Error;

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml

ViewDefinition:
  @Mode: wpr--remove
  @Condition:
    @@http-method[list]:
      POST
  @Description:
    @@@: Removing a WikiPage
    @@lang: en
  @method:
    @@Name: main
    @@@:
      $self->{view}->{wiki}->{var}->{db}->{read_only}->{'content'} = 0;
      $self->{view}->{wiki}->{var}->{db}->{read_only}->{'content_prop'} = 0;
      $self->{view}->{wiki}->{var}->{db}->{read_only}->{'lastmodified'} = 0;
      $self->{view}->init_db;
      my $page = $self->{view}->{wiki}->{var}->{page};

      ## Check confliction
      my $current_content;
      try {
        $current_content = $self->{view}->{wiki}->{db}->get (content => $page);
      } catch SuikaWiki::DB::Util::Error with {
        my $err = shift;
        $err->throw if $err->{-type} eq 'ERROR_REPORTED';
        $self->{view}->{wiki}->view_in_mode (mode => '-wdb--fatal-error');
        throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
      };
      if (length $current_content) {
        my $current_digest = SuikaWiki::Plugin->module_package ('WikiEdit')
                                              ->digest ($current_content,
                                                        normalize => 1);
        my $prev_digest
             = $self->{view}->{wiki}->{input}->parameter ('we--digest');
        if ($current_digest ne $prev_digest) {
          SuikaWiki::Plugin->module_package ('Error')
                           ->report_error_simple
                               ($self->{view}->{wiki},
                                WikiPageRemove => SuikaWiki::Plugin
                                                    ->module_package
                                                        ('WikiResource')
                                                    ->get_text
                                                        (name =>
                                                       'WikiPageRemove:Modified',
                                                         param => {wiki => $self->{view}->{wiki}},
                                                         wiki => $self->{view}->{wiki}));
          $self->{view}->{wiki}->view_in_mode (mode => '-general-error');
          throw SuikaWiki::View::Implementation::error -type => 'ERROR_REPORTED';
        }
      }

        try {
          $self->{view}->{wiki}->{db}->delete (content => $page);
          $self->{view}->{wiki}->{db}->delete (content_prop => $page);
          $self->{view}->{wiki}->{db}->delete (lastmodified => $page);
        } catch SuikaWiki::DB::Util::Error with {
          my $err = shift;
          $err->throw if $err->{-type} eq 'ERROR_REPORTED';
          $self->{view}->{wiki}->view_in_mode (mode => '-wdb--fatal-error');
          throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
        };
      $self->{view}->{wiki}->view_in_mode (mode => '-deleted');

FormattingRule:
  @Category[list]: view
  @Name: wpr--remove-button
  @Description:
    @@@: Removing button
    @@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@: WikiPage that is editing
      @@@lang:en
  @Formatting:
    __ATTRTEXT:%page__;
    
    my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
    local $o->{var} = {
      #content
      is_admin_mode => 0,
      is_conflict_mode => 0,
      #is_new_page_template
    };
    $o->{var}->{content} = SuikaWiki::Plugin->module_package ('WikiEdit')
                                            ->get_content ($o, $page)->{content};
    SuikaWiki::Plugin->module_package ('WikiFormCore')
                     ->make_form_in_html
                         ($p->{-parent}, ' ',
                          wiki => $o->{wiki},
                          o => $o,
                          index => -1,
                          output => {
                            mode => 'wpr--remove',
                            page => $page,
                            hidden => sub {
    my ($hidden, $o) = @_;
    for ($hidden->append_new_node (type => '#element',
                                   namespace_uri => $NS_XHTML1,
                                   local_name => 'input')) {
      $_->set_attribute (type => 'hidden');
      $_->set_attribute (name => 'we--digest');
      $_->set_attribute (value => ($o->{var}->{is_new_page_template}?'':
                                   SuikaWiki::Plugin->module_package ('WikiEdit')
                                               ->digest ($o->{var}->{content},
                                                         normalize => 1)));
      $_->option (use_EmptyElemTag => 1);
    }
    for ($hidden->append_new_node (type => '#element',
                                   namespace_uri => $NS_XHTML1,
                                   local_name => 'input')) {
      $_->set_attribute (type => 'submit');
      $_->set_attribute (value => SuikaWiki::Plugin
                                    ->module_package ('WikiResource')
                                    ->append_node 
                                        (name => 'WikiPageRemove:Remove:Label',
                                         param => $o,
                                         wiki => $o->{wiki})->inner_text);
      $_->set_attribute (title => SuikaWiki::Plugin
                                    ->module_package ('WikiResource')
                                    ->append_node
                                        (name =>
                                           'WikiPageRemove:Remove:Description',
                                         param => $o,
                                         wiki => $o->{wiki})->inner_text);
      $_->option (use_EmptyElemTag => 1);
    }
                            },
                          });


Resource:
  @WikiPageRemove:Modified:
    @@@:
      WikiPage you are attempting to remove ("%page-name;") has been modified. 
      Please review latest version of the page before removal.
    @@lang:en
  @WikiPageRemove:Remove:Description:
    @@@:Removing WikiPage "%page-name;", w/o any caution nor backup.
    @@lang:en
  @WikiPageRemove:Remove:Label:
    @@@:Remove WikiPage
    @@lang:en
1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: WikiPageRemove
5			@Description:
6			@@@: WikiPage removing
7			@@lang:en
8	wakaba	1.4	@License: %%Perl%%
9	wakaba	1.1	@Author:
10			@@Name:
11			@@@@: Wakaba
12			@@@lang:ja
13			@@@script:Latn
14			@@Mail[list]: w@suika.fam.cx
15	wakaba	1.4	@Date.RCS:
16	wakaba	1.6	$Date: 2004/02/18 07:22:11 $
17	wakaba	1.1	@RequiredPlugin[list]:
18			Error
19			WikiEdit
20			WikiFormCore
21			WikiResource
22	wakaba	1.2	@Use:
23			use Message::Util::Error;
24	wakaba	1.1
25			PluginConst:
26			@NS_XHTML1:
27			http://www.w3.org/1999/xhtml
28
29			ViewDefinition:
30			@Mode: wpr--remove
31			@Condition:
32			@@http-method[list]:
33			POST
34			@Description:
35			@@@: Removing a WikiPage
36			@@lang: en
37			@method:
38			@@Name: main
39			@@@:
40			$self->{view}->{wiki}->{var}->{db}->{read_only}->{'content'} = 0;
41	wakaba	1.6	$self->{view}->{wiki}->{var}->{db}->{read_only}->{'content_prop'} = 0;
42	wakaba	1.1	$self->{view}->{wiki}->{var}->{db}->{read_only}->{'lastmodified'} = 0;
43			$self->{view}->init_db;
44			my $page = $self->{view}->{wiki}->{var}->{page};
45
46			## Check confliction
47	wakaba	1.2	my $current_content;
48			try {
49			$current_content = $self->{view}->{wiki}->{db}->get (content => $page);
50			} catch SuikaWiki::DB::Util::Error with {
51	wakaba	1.5	my $err = shift;
52			$err->throw if $err->{-type} eq 'ERROR_REPORTED';
53	wakaba	1.2	$self->{view}->{wiki}->view_in_mode (mode => '-wdb--fatal-error');
54			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
55			};
56	wakaba	1.1	if (length $current_content) {
57			my $current_digest = SuikaWiki::Plugin->module_package ('WikiEdit')
58			->digest ($current_content,
59			normalize => 1);
60			my $prev_digest
61			= $self->{view}->{wiki}->{input}->parameter ('we--digest');
62			if ($current_digest ne $prev_digest) {
63			SuikaWiki::Plugin->module_package ('Error')
64			->report_error_simple
65			($self->{view}->{wiki},
66	wakaba	1.3	WikiPageRemove => SuikaWiki::Plugin
67	wakaba	1.1	->module_package
68			('WikiResource')
69			->get_text
70			(name =>
71	wakaba	1.3	'WikiPageRemove:Modified',
72	wakaba	1.1	param => {wiki => $self->{view}->{wiki}},
73			wiki => $self->{view}->{wiki}));
74			$self->{view}->{wiki}->view_in_mode (mode => '-general-error');
75			throw SuikaWiki::View::Implementation::error -type => 'ERROR_REPORTED';
76			}
77			}
78
79	wakaba	1.2	try {
80			$self->{view}->{wiki}->{db}->delete (content => $page);
81	wakaba	1.6	$self->{view}->{wiki}->{db}->delete (content_prop => $page);
82	wakaba	1.2	$self->{view}->{wiki}->{db}->delete (lastmodified => $page);
83			} catch SuikaWiki::DB::Util::Error with {
84	wakaba	1.5	my $err = shift;
85			$err->throw if $err->{-type} eq 'ERROR_REPORTED';
86	wakaba	1.2	$self->{view}->{wiki}->view_in_mode (mode => '-wdb--fatal-error');
87			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
88			};
89	wakaba	1.1	$self->{view}->{wiki}->view_in_mode (mode => '-deleted');
90
91			FormattingRule:
92			@Category[list]: view
93			@Name: wpr--remove-button
94			@Description:
95			@@@: Removing button
96			@@lang: en
97			@Parameter:
98			@@Name: page
99			@@Type: WikiName
100			@@Default: (auto)
101			@@Description:
102			@@@@: WikiPage that is editing
103			@@@lang:en
104			@Formatting:
105			__ATTRTEXT:%page__;
106
107	wakaba	1.4	my $page = $o->{wiki}->name ($p->{page} \|\| $o->{wiki}->{var}->{page});
108	wakaba	1.1	local $o->{var} = {
109			#content
110			is_admin_mode => 0,
111			is_conflict_mode => 0,
112			#is_new_page_template
113			};
114			$o->{var}->{content} = SuikaWiki::Plugin->module_package ('WikiEdit')
115	wakaba	1.6	->get_content ($o, $page)->{content};
116	wakaba	1.1	SuikaWiki::Plugin->module_package ('WikiFormCore')
117			->make_form_in_html
118			($p->{-parent}, ' ',
119			wiki => $o->{wiki},
120			o => $o,
121			index => -1,
122			output => {
123			mode => 'wpr--remove',
124			page => $page,
125			hidden => sub {
126			my ($hidden, $o) = @_;
127			for ($hidden->append_new_node (type => '#element',
128			namespace_uri => $NS_XHTML1,
129			local_name => 'input')) {
130			$_->set_attribute (type => 'hidden');
131			$_->set_attribute (name => 'we--digest');
132			$_->set_attribute (value => ($o->{var}->{is_new_page_template}?'':
133			SuikaWiki::Plugin->module_package ('WikiEdit')
134			->digest ($o->{var}->{content},
135			normalize => 1)));
136			$_->option (use_EmptyElemTag => 1);
137			}
138			for ($hidden->append_new_node (type => '#element',
139			namespace_uri => $NS_XHTML1,
140			local_name => 'input')) {
141			$_->set_attribute (type => 'submit');
142			$_->set_attribute (value => SuikaWiki::Plugin
143			->module_package ('WikiResource')
144			->append_node
145			(name => 'WikiPageRemove:Remove:Label',
146			param => $o,
147			wiki => $o->{wiki})->inner_text);
148			$_->set_attribute (title => SuikaWiki::Plugin
149			->module_package ('WikiResource')
150			->append_node
151			(name =>
152			'WikiPageRemove:Remove:Description',
153			param => $o,
154			wiki => $o->{wiki})->inner_text);
155			$_->option (use_EmptyElemTag => 1);
156			}
157			},
158			});
159
160
161			Resource:
162	wakaba	1.3	@WikiPageRemove:Modified:
163	wakaba	1.1	@@@:
164			WikiPage you are attempting to remove ("%page-name;") has been modified.
165			Please review latest version of the page before removal.
166			@@lang:en
167			@WikiPageRemove:Remove:Description:
168			@@@:Removing WikiPage "%page-name;", w/o any caution nor backup.
169			@@lang:en
170			@WikiPageRemove:Remove:Label:
171			@@@:Remove WikiPage
172			@@lang:en