/[pub]/suikawiki/script/misc/plugins/link/map.pm
Suika

Contents of /suikawiki/script/misc/plugins/link/map.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Sun May 16 23:05:49 2010 UTC (15 years, 1 month ago) by wakaba
Branch: MAIN
CVS Tags: suikawiki3-redirect, HEAD
Branch point for: helowiki-2005
added latest .pm files

1 wakaba 1.1 use strict;
2     package SuikaWiki::Plugin::Registry;
3    
4    
5     our %Info;
6     $Info{q#Map#}->{Name} = q#Map#;
7     $Info{q#Map#}->{q#Version#} = q#2004.0921.0308#;
8     $Info{q#Map#}->{q#InterfaceVersion#} = q#2.9.1#;
9     $Info{q#Map#}->{q#mkpluginVersion#} = q#2.1.19#;
10     $Info{q#Map#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Map10408210308494g2v#;
11     $Info{q#Map#}->{q#Date.RCS#} = q#$Date: 2004/08/06 03:38:11 $#;
12     $Info{q#Map#}->{RequiredPlugin} = [q#Search#, q#WikiLinking#, q#WikiNamespace#];
13     $Info{q#Map#}->{Description} = [[q#Visualization of page to page relatinships#, q#en#, q##]];
14     $Info{q#Map#}->{License} = [[q#%%Perl%%#, q##, q##]];
15     $Info{q#Map#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
16     package SuikaWiki::Plugin::plugin::Map10408210308494g2v;
17    
18    
19     #line 1 "(WikiPlugin module source map.wp2, block Plugin/Use)"
20     use Message::Util::Error;
21     my $WIKILINKING;
22     my $WIKIRESOURCE;
23     #line 1 "(WikiPlugin module Map, chunk 1)"
24    
25     $SuikaWiki::Plugin::Rule{view}->{m__wikipage_obsolete} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(current)#, q#Description#, [[q#The WikiPage that might be obsoleted.#, q#en#, q##]]}, q#desc_before#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#The description should be located before WikiPage names if any.#, q#en#, q##]]}, q#desc_after#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#The description should be located after WikiPage names if any.#, q#en#, q##]]}}, q#Description#, [[q#The navigation notify that this WikiPage is obsolete and
26     should refer the other WikiPages.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
27    
28     #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#view#]/m__wikipage_obsolete']/Formatting)"
29     my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
30     my $content_prop;
31     try {
32     $content_prop = $o->{wiki}->{db}->get (content_prop => $page);
33     } catch SuikaWiki::DB::Util::Error with {
34     my $err = shift;
35     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
36     } catch SuikaWiki::Format::Definition::error with {
37     };
38     if ($content_prop) {
39     my $obs = $content_prop->get_attribute_value
40     (q#http://suika.fam.cx/~wakaba/archive/2004/7/20/sw\#obsolete#, as_array => 1,
41     default => []);
42     if (@$obs) {
43     my $pp = $p->{-parent}->append_new_node
44     (type => '#element',
45     namespace_uri => q#http://www.w3.org/1999/xhtml#,
46     local_name => 'p');
47     $pp->set_attribute (class => 'm--wikipage-obsolete');
48     $f->parse_attr ($p=>q#desc_before#, $o, -parent => $pp, -non_parsed_to_node => 1, %opt);
49     my $i = 0;
50     for (@$obs) {
51     $pp->append_text (', ') if $i++;
52     ($SuikaWiki::Plugin::Registry::Info{q#WikiLinking#}->{module_name} || SuikaWiki::Plugin->module_package (q#WikiLinking#))->to_wikipage_in_html (
53     {
54     } => {
55     base => $page,
56     page_name_relative => $o->{wiki}->name ($_),
57     }, {
58     o => $o,
59     parent => $pp,
60     });
61     }
62     $f->parse_attr ($p=>q#desc_after#, $o, -parent => $pp, -non_parsed_to_node => 1, %opt);
63     }
64     }}}
65     #line 1 "(WikiPlugin module Map, chunk 2)"
66     ;
67    
68     $SuikaWiki::Plugin::Rule{view}->{m__html_link_navigation} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(current)#, q#Description#, [[q#Target WikiPage#, q#en#, q##]]}}, q#Description#, [[q#Navigation links (HTML link elements) made from content properties#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
69    
70     #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#view#]/m__html_link_navigation']/Formatting)"
71     my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
72     my $content_prop;
73     try {
74     $content_prop = $o->{wiki}->{db}->get (content_prop => $page);
75     } catch SuikaWiki::DB::Util::Error with {
76     my $err = shift;
77     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
78     } catch SuikaWiki::Format::Definition::error with {
79     };
80     if ($content_prop) {
81     for my $rel (
82     {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#prev#, html => 'prev'},
83     {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#next#, html => 'next'},
84     {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#contents#, html => 'contents'},
85     {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#index#, html => 'index'},
86     {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#up#, html => 'up'},
87     ) {
88     if (my $val = $content_prop->get_attribute ($rel->{uri})) {
89     $val = $val->value;
90     for (ref $val eq 'ARRAY' ? @$val : $val) {
91     ($SuikaWiki::Plugin::Registry::Info{q#WikiLinking#}->{module_name} || SuikaWiki::Plugin->module_package (q#WikiLinking#))->to_wikipage_in_html (
92     {
93     label => qq(%html-link (
94     description => {%res (name => {Map:LinkNav:$rel->{html}:Description});: %page-name;: %page-headline;}p,
95     );\n),
96     } => {
97     base => $page,
98     page_name_relative => $o->{wiki}->name ($_),
99     }, {
100     o => $o,
101     parent => $p->{-parent},
102     -rel => $rel->{html},
103     });
104     }
105     }
106     }
107     }}}
108     #line 1 "(WikiPlugin module Map, chunk 4)"
109     ;
110    
111     {my $def = {q#Parameter#, {q#ns#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiNamespace name to which listed WikiPages belong#, q#en#, q##]]}}, q#Description#, [[q#Recently changed WikiPage list#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
112    
113     #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/recent_change_list']/Formatting)"
114     my $list = $p->{-parent}->append_new_node
115     (type => '#element',
116     namespace_uri => q#http://www.w3.org/1999/xhtml#,
117     local_name => 'ol');
118     $list->set_attribute (class => 'm--recent-changes');
119     $p->{q#ns#} = do { my $r = $f->parse_attr ($p=>q#ns#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#recursive#} = do { my $r = $f->parse_attr ($p=>q#recursive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
120     $p->{recursive} = 1 unless length $p->{recursive};
121     my $ns = $o->{wiki}->name ($p->{ns});
122     my @target = map { try { [$_, $o->{wiki}->{db}->get (lastmodified => $_)] }
123     catch SuikaWiki::DB::Util::Error with {
124     my $err = shift;
125     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
126     [$_, undef]} }
127     $o->{wiki}->{db}->keys ('lastmodified',
128     -ns => $ns,
129     -type => 'key',
130     -recursive => $p->{recursive});
131     try {
132     my $nsmodified = $o->{wiki}->{db}->get (lastmodified => $ns);
133     push @target, [$ns, $nsmodified] if $nsmodified;
134     } catch SuikaWiki::DB::Util::Error with {
135     my $err = shift;
136     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
137     };
138     @target = sort {$b->[1] <=> $a->[1]} @target;
139     $p->{q#start#} = do { my $r = $f->parse_attr ($p=>q#start#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
140     $p->{q#n#} = do { my $r = $f->parse_attr ($p=>q#n#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
141     my $start = length $p->{start} ? $p->{start} :
142     $o->{wiki}->{input}->parameter ('m--change--range-start') || 0;
143     $p->{n} = $o->{wiki}->{input}->parameter ('m--change--range-number')
144     unless length $p->{n};
145     my $end = $p->{n} ? $start + $p->{n} - 1 : $start + 29;
146     $start = 0 if $start > $#target or $start < 0;
147     $end = $#target if $end < $start or $end > $#target;
148     $end = $start + 255 if $end > $start + 255;
149     local $o->{var}->{search__result} = {
150     min => 0,
151     max => $#target,
152     start => $start,
153     end => $end,
154     number => $p->{n} || 30,
155     query => $p->{query},
156     param_prefix => 'm--change',
157     };
158     $p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
159     $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
160     (name => 'Link:toWikiPage:SourceLabelLong:RecentChangeItem',
161     wiki => $o->{wiki}, o => $o);
162     $p->{q#mode#} = do { my $r = $f->parse_attr ($p=>q#mode#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
163     for my $target (@target[$start..$end]) {
164     ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
165     label => $p->{template},
166     } => {
167     base => $o->{wiki}->{var}->{page},
168     page_name_relative => $o->{wiki}->name ($target->[0]),
169     wiki_mode => $p->{mode},
170     _with_lm => 1,
171     page_lastmodified => $target->[1],
172     }, {
173     o => $o,
174     parent => $list->append_new_node
175     (type => '#element',
176     namespace_uri => q#http://www.w3.org/1999/xhtml#,
177     local_name => 'li'),
178     });
179     }
180     if ($list->count) {
181     $list->set_attribute (start => $start + 1);
182     $f->parse_attr ($p=>q#post_list#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
183     } else {
184     $p->{-parent}->remove_child_node ($list);
185     }}}
186     #line 1 "(WikiPlugin module Map, chunk 6)"
187     ;
188     $SuikaWiki::Plugin::Rule{form_input}->{recent_change_list} = $def;
189     $SuikaWiki::Plugin::Rule{view}->{recent_change_list} = $def;
190     $SuikaWiki::Plugin::Rule{view_resource}->{recent_change_list} = $def;
191     };
192    
193     push @SuikaWiki::View::Implementation::CommonViewDefs, {
194     condition => {q#mode#, q#m__change#, q#http_method#, [q#GET#, q#HEAD#, q#POST#]},
195     object_class => q#SuikaWiki::Plugin::plugin::Map10408210308494g2v::m__change10408210308496E6R#,
196     };
197     package SuikaWiki::Plugin::plugin::Map10408210308494g2v::m__change10408210308496E6R;
198    
199    
200     our @ISA = q#SuikaWiki::View::template#;
201    
202     sub main ($$$) {
203     my ($self, $opt, $opt2) = @_;
204     require SuikaWiki::Output::HTTP;
205     $opt2->{output} = SuikaWiki::Output::HTTP->new
206     (wiki => $self->{view}->{wiki},
207     view => $self->{view}, viewobj => $self);
208     for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
209     'Accept-Language') {
210     $opt2->{output}->add_negotiate_header_field ($_);
211     }
212    
213     $opt2->{template} = q#%html-document (
214     title => {%res (name => {Map:Change:WebPageTitle});}p,
215     link-meta => {%template (name => links);}p,
216     content => {
217     %block (
218     id => tools1, class => tools,
219     content => {%template (name => navbar);}p,
220     );
221     %section (
222     title => {%res (name => {Map:Change:Title});}p,
223     heading,
224     id => WEBPAGE--M--CHANGE,
225     content => {%recent-change-list (
226     n => 50,
227     ns => {%page-name;}p,
228     post-list => {%search--result-navigation (
229     fragment => WEBPAGE--M--CHANGE,
230     );}p,
231     );}p,
232     );
233     %block (
234     id => footer,
235     content => {%template (name => ws--footer);}p,
236     );
237     }p,
238     );#;
239     $opt2->{o} = bless {
240     ## SuikaWiki 3 WikiPlugin interface
241     wiki => $self->{view}->{wiki},
242     plugin => $self->{view}->{wiki}->{plugin},
243     var => {},
244     }, 'SuikaWiki::Plugin';
245     $opt2->{output}->{status_code} = 200;
246    
247     $opt2->{output}->{entity}->{media_type} = q#text/html#;
248    
249     $opt2->{output}->{entity}->{charset} = $self->{view}->{wiki}->{config}->{charset}->{output};
250     $opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#list#}});
251     $opt2->{output}->{entity}->{body_is_octet_stream} = 0;
252    
253     $self->{view}->{wiki}->init_db;
254     $self->main_pre ($opt, $opt2);
255    
256     require Message::Markup::XML::Serialize::HTML;
257     use Message::Util::Error;
258     try {
259     $opt2->{output}->{entity}->{body}
260     = Message::Markup::XML::Serialize::HTML::html_simple
261     (SuikaWiki::Plugin->formatter ('view')
262     ->replace ($opt2->{template}, param => $opt2->{o}));
263     } $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
264     $opt2->{output}->output (output => 'http-cgi');
265    
266     $self->main_post ($opt, $opt2);
267     }
268    
269     package SuikaWiki::Plugin::plugin::Map10408210308494g2v;
270    
271     {my $def = {q#Parameter#, {q#ns#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiNamespace name to which listed WikiPages belong#, q#en#, q##]]}}, q#Description#, [[q#WikiPage list#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
272    
273     #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/page_list']/Formatting)"
274     my $list = $p->{-parent}->append_new_node
275     (type => '#element',
276     namespace_uri => q#http://www.w3.org/1999/xhtml#,
277     local_name => 'ul');
278     $p->{q#ns#} = do { my $r = $f->parse_attr ($p=>q#ns#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#recursive#} = do { my $r = $f->parse_attr ($p=>q#recursive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
279     $p->{recursive} = 1 unless length $p->{recursive};
280     my $ns = $o->{wiki}->name ($p->{ns});
281     my @target = sort {$a->[1] cmp $b->[1]}
282     map {[$_, join "\t", @{$_}]} # make sort key
283     $o->{wiki}->{db}->keys ('content',
284     -ns => $ns,
285     -type => 'key',
286     -recursive => $p->{recursive});
287     $p->{q#start#} = do { my $r = $f->parse_attr ($p=>q#start#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
288     $p->{q#n#} = do { my $r = $f->parse_attr ($p=>q#n#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
289     my $start = length $p->{start} ? $p->{start} :
290     $o->{wiki}->{input}->parameter ('m--list--range-start') || 0;
291     $p->{n} = $o->{wiki}->{input}->parameter ('m--list--range-number')
292     unless length $p->{n};
293     my $end = $p->{n} ? $start + $p->{n} - 1 : $start + 29;
294     $start = 0 if $start > $#target or $start < 0;
295     $end = $#target if $end < $start or $end > $#target;
296     $end = $start + 255 if $end > $start + 255;
297     local $o->{var}->{search__result} = {
298     min => 0,
299     max => $#target,
300     start => $start,
301     end => $end,
302     number => $p->{n} || 30,
303     query => $p->{query},
304     param_prefix => 'm--list',
305     };
306     $p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
307     $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
308     (name => 'Link:toWikiPage:SourceLabelLong:PageList',
309     wiki => $o->{wiki}, o => $o);
310     $p->{q#mode#} = do { my $r = $f->parse_attr ($p=>q#mode#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
311     try {
312     for (@target[$start..$end]) {
313     ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
314     label => $p->{template},
315     } => {
316     base => $o->{wiki}->{var}->{page},
317     page_name_relative => $o->{wiki}->name ($_->[0]),
318     wiki_mode => $p->{mode},
319     }, {
320     o => $o,
321     parent => $list->append_new_node
322     (type => '#element',
323     namespace_uri => q#http://www.w3.org/1999/xhtml#,
324     local_name => 'li'),
325     });
326     }
327     } catch SuikaWiki::DB::Util::Error with {
328     my $err = shift;
329     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
330     };
331     if ($list->count) {
332     $list->set_attribute (start => $start + 1);
333     $f->parse_attr ($p=>q#post_list#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
334     } else {
335     $p->{-parent}->remove_child_node ($list);
336     }}}
337     #line 1 "(WikiPlugin module Map, chunk 8)"
338     ;
339     $SuikaWiki::Plugin::Rule{form_input}->{page_list} = $def;
340     $SuikaWiki::Plugin::Rule{view}->{page_list} = $def;
341     $SuikaWiki::Plugin::Rule{view_resource}->{page_list} = $def;
342     };
343    
344     $SuikaWiki::Plugin::Rule{page_link}->{m__link_weight} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
345    
346     #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#page-link#]/m__link_weight']/Formatting)"
347     $p->{-parent}->append_text ($o->{link}->{option}->{-m__weight}+0);}}
348     #line 1 "(WikiPlugin module Map, chunk 10)"
349     ;
350    
351     push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}}, {
352     Main => q#%section (
353     id => children,
354     title => {%res(name=>{Children:Title});}p, heading,
355     content => {%page-list (
356     ns => {%page-name;}p, recursive => 0,
357     type => both,
358     template => {%resource-as-plain-text (name => {Children:Item});}p,
359     post-list => {%search--result-navigation (
360     fragment => children,
361     );}p,
362     );}p,
363     );#,
364     Order => 100,
365     Description => [[q#After content body -- children and backward links#, q#en#, q##]],
366     };
367    
368     push @{$SuikaWiki::View::Implementation::TemplateFragment{q#navbar#}}, {
369     Main => q#%link-to-wikipage (
370     page => {%ns--root-wikiname;}p,
371     mode => m--change,
372     label => {%link-to-it (
373     label => {%res (name => GoToRecentChanges);}p,
374     description => {%res (name => GoToRecentChangesLong);}p,
375     );},
376     rel => news,
377     ); #,
378     Order => 21,
379     Description => [],
380     };
381    
382     push @{$SuikaWiki::View::Implementation::TemplateFragment{q#links#}}, {
383     Main => q#%m--html-link-navigation;
384     %link-to-wikipage (
385     page => {%ns--root-wikiname;}p,
386     rel => news,
387     mode => m--change,
388     label => {%html-link (
389     description => {%res(name=>GoToRecentChangesLink);}p,
390     );},
391     );
392     %link-to-wikipage (
393     page => {%ns-page-path-name;}p,
394     rel => news,
395     mode => m--change,
396     label => {%html-link (
397     description => {%res(name=> {Map:Change:Link:Parent:Description});}p,
398     );},
399     );
400     %link-to-wikipage (
401     rel => news,
402     mode => m--change,
403     label => {%html-link (
404     description => {%res(name=> {Map:Change:Link:Local:Description});}p,
405     );},
406     ); #,
407     Order => 0,
408     Description => [],
409     };
410    
411     package SuikaWiki::Plugin::Resource;
412    
413     our $BaseResource;
414     $BaseResource->{q#und#}->{q##}->{q#Children:Title#} = q#%link-to-it(label=>{%ns-short-page-name;}p, description=>{%page-name(absolute);}p, ); %span(class=>headline, content=>{%page-headline;}p);#;
415     $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:PageList#} = q#%link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
416     $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:RecentChangeItem#} = q#%last-modified; %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
417     $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:SearchResult#} = q#{%m--link-weight;} %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
418     $BaseResource->{q#en#}->{q##}->{q#GoToRecentChanges#} = q#Recent#;
419     $BaseResource->{q#en#}->{q##}->{q#GoToRecentChangesLink#} = q#Recently modified WikiPages list#;
420     $BaseResource->{q#en#}->{q##}->{q#GoToRecentChangesLong#} = q#Review recently modified WikiPages list#;
421     $BaseResource->{q#en#}->{q##}->{q#Map:Change:Link:Local:Description#} = q#List of recently modified WikiPages in this namespace (%page-name;)#;
422     $BaseResource->{q#en#}->{q##}->{q#Map:Change:Link:Parent:Description#} = q#List of recently modified WikiPages in parent namespace (%ns-page-path-name;)#;
423     $BaseResource->{q#en#}->{q##}->{q#Map:Change:Title#} = q#Recent Changes#;
424     $BaseResource->{q#en#}->{q##}->{q#Map:Change:WebPageTitle#} = q#Recent Changes (%page-name;)#;
425     $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:prev:Description#} = q#Previous WikiPage#;
426     $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:next:Description#} = q#Next WikiPage#;
427     $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:contents:Description#} = q#Table of Contents#;
428     $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:index:Description#} = q#Index#;
429     $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:up:Description#} = q#Up#;
430     package SuikaWiki::Plugin::Registry;
431    
432     $Info{q#Map#}->{provide} = {q#rule#, {q#form_input#, [q#recent_change_list#, q#page_list#], q#view#, [q#m__wikipage_obsolete#, q#m__html_link_navigation#, q#recent_change_list#, q#page_list#], q#view_resource#, [q#recent_change_list#, q#page_list#], q#page_link#, [q#m__link_weight#]}, q#viewfragment#, [{q#Name#, q#ws__post_content#}, {q#Name#, q#navbar#}, {q#Name#, q#links#}], q#viewdef#, [{q#Description#, [q#Show recently changed WikiPages list#, q#en#, q##], q#Name#, q#m__change#}]};
433    
434     1;

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24