misc/plugins/WikiPageRename.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiPageRename
  @Description:
    @@@: WikiPage renaming
    @@lang:en
  @License: %%Perl%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: w@suika.fam.cx
  @Date.RCS:
    $Date: 2004/04/25 07:06:50 $
  @RequiredPlugin[list]:
    Error
    InterWikiCore
    InterWikiText
    WikiFormCore
    WikiResource
  @Use:
    use Message::Util::Error;

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

ViewDefinition:
  @Mode: pi-wp--rename-
  @Condition:
    @@http-method[list]:
      POST
  @Description:
    @@@: Renaming a WikiPage
    @@lang: en
  @Use:
    use Message::Util::Error;
  @method:
    @@Name: main
    @@@:
      my $wiki = $self->{view}->{wiki};
      $wiki->{var}->{db}->{read_only}->{'content'} = 0;
      $wiki->{var}->{db}->{read_only}->{'content_prop'} = 0;
      $wiki->{var}->{db}->{read_only}->{'lastmodified'} = 0;
      $self->{view}->init_db;
      my $from_page = $wiki->{var}->{page};
      my $to_page = $wiki->name ($wiki->{input}->parameter ('wprn--rename-as')
                                 or $from_page);
      
      ## Check confliction
      if ($from_page eq $to_page) {
        $wiki->view_in_mode (mode => '-wprn--same-name');
        throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
      }
      my $check = 1;
      try {
        for (qw/content content_prop lastmodified/) {
          $check = 0, last if $wiki->{db}->exist ($_ => $to_page);
        }
      } catch SuikaWiki::DB::Util::Error with {
        my $err = shift;
        $err->throw if $err->{-type} eq 'ERROR_REPORTED';
        $wiki->view_in_mode (mode => '-wdb--fatal-error');
        throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
      };
      unless ($check) {
        $self->{view}->{wiki}->view_in_mode (mode => '-wprn--new-name-exists');
        throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
      }
      
      try {
        for (qw/content content_prop lastmodified/) {
          $wiki->{db}->set ($_ => $to_page
                               => $wiki->{db}->get ($_ => $from_page));
        }
        for (qw/content content_prop lastmodified/) {
          $wiki->{db}->delete ($_ => $from_page);
        }
      } catch SuikaWiki::DB::Util::Error with {
        my $err = shift;
        $err->throw if $err->{-type} eq 'ERROR_REPORTED';
        $wiki->view_in_mode (mode => '-wdb--fatal-error');
        throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
      };
      $wiki->view_in_mode (mode => '-wprn--renamed');

FormattingRule:
  @Category[list]: view
  @Name: wp-rename-form
  @Description:
    @@@: Renaming form
    @@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@: WikiPage name to be renamed from
      @@@lang:en
  @Formatting:
    __ATTRTEXT:%page__;
    
    my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
    SuikaWiki::Plugin->module_package ('WikiFormCore')
                     ->make_form_in_html
                         ($p->{-parent}, $p->{content},
                          wiki => $o->{wiki}, o => $o,
                          index => -1,
                          output => {
                            mode => 'pi-wp--rename-',
                            page => $page,
                          });

FormattingRule:
  @Category[list]:
    view
    view-resource
  @Name: wp-new-page-name
  @Formatting:
    $p->{-parent}->append_text (scalar $o->{wiki}->{input}->parameter
                                         ('wprn--rename-as'));

ViewFragment:
  @Template[list]: we--adminedit-body
  @Order:100
  @Description:
    @@@: Renaming WikiName section in adminedit mode
    @@lang:en
  @Formatting:
                %section (
                  title   => {%res(name=>{Edit:Rename:Title});}p, heading,
                  content => {
                    %wp-rename-form (
                      content => {
                        %text (
                          id      => wprn--rename-as,
                          label   => {%res(name=>{Edit:Rename:To=});}p,
                          size    => 10,
                          default => {%page-name;}p,
                        );
                        %submit;
                      }p,
                    );
                  }p,
                );

## See RFC 2518 8.9.4 for HTTP status code use.
## 
## 201 Created        - Success
## 204 No Content     - Success
## 403 Forbidden      - Source and destination are same
## 409 Conflict       - Can't create destination
## 412 Precondition Failed
## 423 Locked         - Source or destination was locked
## 502 Bad Gateway    - Destination server refused

ViewDefinition:
  @Mode: -wprn--new-name-exists
  @Condition:
    @@http-method[list]:
      GET
      HEAD
      POST
  @Description:
    @@@: WikiPage with new WikiName already exists
    @@lang: en
  @template:
    @@http-status-code: 409
    @@http-status-phrase: Destination WikiName Already Used
    @@media-type: text/html
    @@use-media-type-charset: 1
    @@expires: %%error%%
    @@body:
      %template (
        name => err--general-error,
        -web-page-title => {%res (name => {WikiPageRename:DestinationExists:WebPageTitle});}p,
        -section-title => {%res (name => {WikiPageRename:DestinationExists:Title});}p,
        -content => {%res (name => {WikiPageRename:DestinationExists:Descriptions});}p,
      );

ViewDefinition:
  @Mode: -wprn--same-name
  @Condition:
    @@http-method[list]:
      GET
      HEAD
      POST
  @Description:
    @@@: New WikiName is same as current WikiName
    @@lang: en
  @template:
    @@http-status-code: 403
    @@http-status-phrase: Same Source and Destination WikiNames
    @@media-type: text/html
    @@use-media-type-charset: 1
    @@expires: %%error%%
    @@body:
      %template (
        name => err--general-error,
        -web-page-title => {%res (name => {WikiPageRename:SameName:WebPageTitle});}p,
        -section-title => {%res (name => {WikiPageRename:SameName:Title});}p,
        -content => {%res (name => {WikiPageRename:SameName:Descriptions});}p,
      );

ViewDefinition:
  @Mode: -wprn--renamed
  @Condition:
    @@http-method[list]:
      GET
      HEAD
      POST
  @Description:
    @@@: Successfully renamed
    @@lang: en
  @template:
    @@http-status-code: 201
    @@http-status-phrase: WikiPage Renamed
    @@media-type: text/html
    @@use-media-type-charset: 1
    @@expires: %%error%%
    @@body:
      %template (
        name => err--general-error,
        -web-page-title => {%res (name => {WikiPageRename:Renamed:WebPageTitle});}p,
        -section-title => {%res (name => {WikiPageRename:Renamed:Title});}p,
        -content => {%res (name => {WikiPageRename:Renamed:Descriptions});}p,
      );

Resource:
  @Edit:Rename:Title:
    @@@: Change WikiName
    @@lang: en
  @Edit:Rename:To=:
    @@@: New name
    @@lang: en
  @WikiPageRename:DestinationExists:Descriptions:
    @@@:  
      %paragraph (content => {Specified new WikiName 
      %link-to-wikipage (page => {%wp-new-page-name;}p,
                         label => {%link-to-it (label => {%page-name;}p);});
      is already used for another WikiPage.}p);
    @@lang: en
  @WikiPageRename:DestinationExists:Title:
    @@@: Destination WikiName Already Used
    @@lang: en
  @WikiPageRename:DestinationExists:WebPageTitle:
    @@@: 409 Destination WikiName Already Used (%page-name; => %wp-new-page-name;)
    @@lang: en
  @WikiPageRename:Renamed:Descriptions:
    @@@:
      %paragraph (content => {WikiPage %page-name; successfully renamed
      as new WikiName
      %link-to-wikipage (page => {%wp-new-page-name;}p,
                         label => {%link-to-it (label => {%page-name;}p);});.}p);
    @@lang: en
  @WikiPageRename:Renamed:Title:
    @@@: WikiPage Renamed
    @@lang: en
  @WikiPageRename:Renamed:WebPageTitle:
    @@@: 201 WikiPage Renamed
    @@lang: en
  @WikiPageRename:SameName:Descriptions:
    @@@:
      %paragraph (content => {Specified new WikiName is exact same as
      current WikiName.});
    @@lang: en
  @WikiPageRename:SameName:Title:
    @@@: Same Source and Destination WikiNames
    @@lang: en
  @WikiPageRename:SameName:WebPageTitle:
    @@@: 403 Same Source and Destination WikiNames (%page-name;)
    @@lang: en


1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: WikiPageRename
5			@Description:
6			@@@: WikiPage renaming
7			@@lang:en
8			@License: %%Perl%%
9			@Author:
10			@@Name:
11			@@@@: Wakaba
12			@@@lang:ja
13			@@@script:Latn
14			@@Mail[list]: w@suika.fam.cx
15			@Date.RCS:
16	wakaba	1.2	$Date: 2004/04/25 07:06:50 $
17	wakaba	1.1	@RequiredPlugin[list]:
18			Error
19			InterWikiCore
20			InterWikiText
21			WikiFormCore
22			WikiResource
23			@Use:
24			use Message::Util::Error;
25
26			PluginConst:
27			@NS_XHTML1:
28			http://www.w3.org/1999/xhtml
29
30			ViewDefinition:
31			@Mode: pi-wp--rename-
32			@Condition:
33			@@http-method[list]:
34			POST
35			@Description:
36			@@@: Renaming a WikiPage
37			@@lang: en
38			@Use:
39			use Message::Util::Error;
40			@method:
41			@@Name: main
42			@@@:
43			my $wiki = $self->{view}->{wiki};
44			$wiki->{var}->{db}->{read_only}->{'content'} = 0;
45	wakaba	1.2	$wiki->{var}->{db}->{read_only}->{'content_prop'} = 0;
46	wakaba	1.1	$wiki->{var}->{db}->{read_only}->{'lastmodified'} = 0;
47			$self->{view}->init_db;
48			my $from_page = $wiki->{var}->{page};
49			my $to_page = $wiki->name ($wiki->{input}->parameter ('wprn--rename-as')
50			or $from_page);
51
52			## Check confliction
53			if ($from_page eq $to_page) {
54			$wiki->view_in_mode (mode => '-wprn--same-name');
55			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
56			}
57			my $check = 1;
58			try {
59	wakaba	1.2	for (qw/content content_prop lastmodified/) {
60	wakaba	1.1	$check = 0, last if $wiki->{db}->exist ($_ => $to_page);
61			}
62			} catch SuikaWiki::DB::Util::Error with {
63			my $err = shift;
64			$err->throw if $err->{-type} eq 'ERROR_REPORTED';
65			$wiki->view_in_mode (mode => '-wdb--fatal-error');
66			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
67			};
68			unless ($check) {
69			$self->{view}->{wiki}->view_in_mode (mode => '-wprn--new-name-exists');
70			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
71			}
72
73			try {
74	wakaba	1.2	for (qw/content content_prop lastmodified/) {
75	wakaba	1.1	$wiki->{db}->set ($_ => $to_page
76			=> $wiki->{db}->get ($_ => $from_page));
77			}
78	wakaba	1.2	for (qw/content content_prop lastmodified/) {
79	wakaba	1.1	$wiki->{db}->delete ($_ => $from_page);
80			}
81			} catch SuikaWiki::DB::Util::Error with {
82			my $err = shift;
83			$err->throw if $err->{-type} eq 'ERROR_REPORTED';
84			$wiki->view_in_mode (mode => '-wdb--fatal-error');
85			throw SuikaWiki::DB::Util::Error -type => 'ERROR_REPORTED';
86			};
87			$wiki->view_in_mode (mode => '-wprn--renamed');
88
89			FormattingRule:
90			@Category[list]: view
91			@Name: wp-rename-form
92			@Description:
93			@@@: Renaming form
94			@@lang: en
95			@Parameter:
96			@@Name: page
97			@@Type: WikiName
98			@@Default: (auto)
99			@@Description:
100			@@@@: WikiPage name to be renamed from
101			@@@lang:en
102			@Formatting:
103			__ATTRTEXT:%page__;
104
105			my $page = $o->{wiki}->name ($p->{page} \|\| $o->{wiki}->{var}->{page});
106			SuikaWiki::Plugin->module_package ('WikiFormCore')
107			->make_form_in_html
108			($p->{-parent}, $p->{content},
109			wiki => $o->{wiki}, o => $o,
110			index => -1,
111			output => {
112			mode => 'pi-wp--rename-',
113			page => $page,
114			});
115
116			FormattingRule:
117			@Category[list]:
118			view
119			view-resource
120			@Name: wp-new-page-name
121			@Formatting:
122			$p->{-parent}->append_text (scalar $o->{wiki}->{input}->parameter
123			('wprn--rename-as'));
124
125			ViewFragment:
126			@Template[list]: we--adminedit-body
127			@Order:100
128			@Description:
129			@@@: Renaming WikiName section in adminedit mode
130			@@lang:en
131			@Formatting:
132			%section (
133			title => {%res(name=>{Edit:Rename:Title});}p, heading,
134			content => {
135			%wp-rename-form (
136			content => {
137			%text (
138			id => wprn--rename-as,
139			label => {%res(name=>{Edit:Rename:To=});}p,
140			size => 10,
141			default => {%page-name;}p,
142			);
143			%submit;
144			}p,
145			);
146			}p,
147			);
148
149			## See RFC 2518 8.9.4 for HTTP status code use.
150			##
151			## 201 Created - Success
152			## 204 No Content - Success
153			## 403 Forbidden - Source and destination are same
154			## 409 Conflict - Can't create destination
155			## 412 Precondition Failed
156			## 423 Locked - Source or destination was locked
157			## 502 Bad Gateway - Destination server refused
158
159			ViewDefinition:
160			@Mode: -wprn--new-name-exists
161			@Condition:
162			@@http-method[list]:
163			GET
164			HEAD
165			POST
166			@Description:
167			@@@: WikiPage with new WikiName already exists
168			@@lang: en
169			@template:
170			@@http-status-code: 409
171			@@http-status-phrase: Destination WikiName Already Used
172			@@media-type: text/html
173			@@use-media-type-charset: 1
174			@@expires: %%error%%
175			@@body:
176			%template (
177			name => err--general-error,
178			-web-page-title => {%res (name => {WikiPageRename:DestinationExists:WebPageTitle});}p,
179			-section-title => {%res (name => {WikiPageRename:DestinationExists:Title});}p,
180			-content => {%res (name => {WikiPageRename:DestinationExists:Descriptions});}p,
181			);
182
183			ViewDefinition:
184			@Mode: -wprn--same-name
185			@Condition:
186			@@http-method[list]:
187			GET
188			HEAD
189			POST
190			@Description:
191			@@@: New WikiName is same as current WikiName
192			@@lang: en
193			@template:
194			@@http-status-code: 403
195			@@http-status-phrase: Same Source and Destination WikiNames
196			@@media-type: text/html
197			@@use-media-type-charset: 1
198			@@expires: %%error%%
199			@@body:
200			%template (
201			name => err--general-error,
202			-web-page-title => {%res (name => {WikiPageRename:SameName:WebPageTitle});}p,
203			-section-title => {%res (name => {WikiPageRename:SameName:Title});}p,
204			-content => {%res (name => {WikiPageRename:SameName:Descriptions});}p,
205			);
206
207			ViewDefinition:
208			@Mode: -wprn--renamed
209			@Condition:
210			@@http-method[list]:
211			GET
212			HEAD
213			POST
214			@Description:
215			@@@: Successfully renamed
216			@@lang: en
217			@template:
218			@@http-status-code: 201
219			@@http-status-phrase: WikiPage Renamed
220			@@media-type: text/html
221			@@use-media-type-charset: 1
222			@@expires: %%error%%
223			@@body:
224			%template (
225			name => err--general-error,
226			-web-page-title => {%res (name => {WikiPageRename:Renamed:WebPageTitle});}p,
227			-section-title => {%res (name => {WikiPageRename:Renamed:Title});}p,
228			-content => {%res (name => {WikiPageRename:Renamed:Descriptions});}p,
229			);
230
231			Resource:
232			@Edit:Rename:Title:
233			@@@: Change WikiName
234			@@lang: en
235			@Edit:Rename:To=:
236			@@@: New name
237			@@lang: en
238			@WikiPageRename:DestinationExists:Descriptions:
239			@@@:
240			%paragraph (content => {Specified new WikiName
241			%link-to-wikipage (page => {%wp-new-page-name;}p,
242			label => {%link-to-it (label => {%page-name;}p);});
243			is already used for another WikiPage.}p);
244			@@lang: en
245			@WikiPageRename:DestinationExists:Title:
246			@@@: Destination WikiName Already Used
247			@@lang: en
248			@WikiPageRename:DestinationExists:WebPageTitle:
249			@@@: 409 Destination WikiName Already Used (%page-name; => %wp-new-page-name;)
250			@@lang: en
251			@WikiPageRename:Renamed:Descriptions:
252			@@@:
253			%paragraph (content => {WikiPage %page-name; successfully renamed
254			as new WikiName
255			%link-to-wikipage (page => {%wp-new-page-name;}p,
256			label => {%link-to-it (label => {%page-name;}p);});.}p);
257			@@lang: en
258			@WikiPageRename:Renamed:Title:
259			@@@: WikiPage Renamed
260			@@lang: en
261			@WikiPageRename:Renamed:WebPageTitle:
262			@@@: 201 WikiPage Renamed
263			@@lang: en
264			@WikiPageRename:SameName:Descriptions:
265			@@@:
266			%paragraph (content => {Specified new WikiName is exact same as
267			current WikiName.});
268			@@lang: en
269			@WikiPageRename:SameName:Title:
270			@@@: Same Source and Destination WikiNames
271			@@lang: en
272			@WikiPageRename:SameName:WebPageTitle:
273			@@@: 403 Same Source and Destination WikiNames (%page-name;)
274			@@lang: en
275
276
277