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

Contents of /suikawiki/script/misc/plugins/link/search.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#Search#}->{Name} = q#Search#;
7     $Info{q#Search#}->{q#Version#} = q#2004.0831.0328#;
8     $Info{q#Search#}->{q#InterfaceVersion#} = q#2.9.1#;
9     $Info{q#Search#}->{q#mkpluginVersion#} = q#2.1.19#;
10     $Info{q#Search#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z#;
11     $Info{q#Search#}->{q#Date.RCS#} = q#$Date: 2004/04/01 04:39:58 $#;
12     $Info{q#Search#}->{RequiredPlugin} = [q#WikiLinking#];
13     $Info{q#Search#}->{Description} = [[q#Wiki internal full-text search#, q#en#, q##]];
14     $Info{q#Search#}->{License} = [[q#%%Perl%%#, q##, q##]];
15     $Info{q#Search#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
16     package SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z;
17    
18    
19     #line 1 "(WikiPlugin module source search.wp2, block Plugin/Use)"
20     use Message::Util::Error;
21     my $WIKILINKING;
22     my $WIKIRESOURCE;
23     #line 1 "(WikiPlugin module Search, chunk 1)"
24    
25     {my $def = {q#Parameter#, {q#number#, {q#Type#, q#<<1*DIGIT>>#, q#Default#, q#(auto)#, q#Description#, [[q#(Reserved)#, q#en#, q##]]}, q#query#, {q#Type#, q#string#, q#Default#, q#""#, q#Description#, [[q#Query.#, q#en#, q##]]}, q#case_sensitive#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#Case sensitivility of search.#, q#en#, q##]]}, q#start#, {q#Type#, q#<<1*DIGIT>>#, q#Default#, q#"0"#, q#Description#, []}}, q#Description#, [[q#Full-text search in wiki with given query string.
26    
27     This rule seek all (*1) wiki page contents whenever cache is not
28     available. This rule should not be used within wiki that has
29     lots of wiki pages. (*1 Number of wiki pages that is to be target
30     of search is limited to C<$max_target> defined in this rule for
31     safety.)
32    
33     This rule does not support multiple wiki page content formats.
34     It handles contents as a plain text whatever its actual media type is.
35    
36     This rule requires C<m__search_result> WikiDB property to be enabled
37     for caching. (See C<suikawiki-config.ph>.)
38    
39     Namazu WikiPlugin module provides more clever search engine.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
40    
41     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/search_result']/Formatting)"
42     $p->{q#query#} = do { my $r = $f->parse_attr ($p=>q#query#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
43     $p->{query} ||= ($o->{wiki}->{input} ?
44     $o->{wiki}->{input}->parameter ('search__query') : undef)
45     || $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
46     $p->{q#case_sensitive#} = do { my $r = $f->parse_attr ($p=>q#case_sensitive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
47     my $word = $p->{case_sensitive} ? $p->{query} : lc $p->{query};
48     my $max_target = 1023;
49     my @r;
50     my $sr = $o->{wiki}->{db}->get (m__search_result => [$word]);
51     unless ($sr) {
52     my $n = 0;
53     for my $page ($o->{wiki}->{db}->keys ('content')) {
54     last if $n++ == $max_target;
55     my $content;
56     try {
57     $content = $o->{wiki}->{db}->get (content => $page);
58     } catch SuikaWiki::DB::Util::Error with {
59     my $err = shift;
60     $err->throw if $err->{-type} eq 'ERROR_REPORTED';
61     $content = undef;
62     };
63     $content = $p->{case_sensitive} ? $content : lc $content;
64     $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;
65     $page = $o->{wiki}->name ($page);
66     my $n_page = $page->stringify (wiki => $o->{wiki});
67     $n_page = lc $n_page unless $p->{case_sensible};
68     if (index ($n_page, $word) > -1) {
69     my $c = $content =~ s/\Q$word\E//g;
70     push @r, [$page, $c+20];
71     } elsif (index ($word, $n_page) > -1) {
72     my $c = $content =~ s/\Q$word\E//g;
73     push @r, [$page, $c+10];
74     } elsif (my $c = $content =~ s/\Q$word\E//g) {
75     push @r, [$page, $c];
76     }
77     }
78     @r = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @r;
79     $sr = join "\x1E",
80     map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D")
81     ."\x1F".$_->[1]} @r;
82     $o->{wiki}->{db}->set (m__search_result => [$word] => $sr);
83     } else {
84     @r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]}
85     map {[split /\x1F/, $_, 2]} split /\x1E/, $sr;
86     }
87     return unless @r;
88     my $list = $p->{-parent}->append_new_node
89     (type => '#element',
90     namespace_uri => q#http://www.w3.org/1999/xhtml#,
91     local_name => 'ol');
92     $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};
93     $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
94     (name => 'Link:toWikiPage:SourceLabelLong:SearchResult',
95     wiki => $o->{wiki}, o => $o);
96     for (@r) {
97     ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
98     label => $p->{template},
99     } => {
100     base => $o->{wiki}->{var}->{page},
101     page_name_relative => $_->[0],
102     wiki_mode => $p->{mode},
103     }, {
104     o => $o,
105     parent => $list->append_new_node
106     (type => '#element',
107     namespace_uri => q#http://www.w3.org/1999/xhtml#,
108     local_name => 'li'),
109     -m__weight => $_->[1],
110     });
111     }}}
112     #line 1 "(WikiPlugin module Search, chunk 2)"
113     ;
114     $SuikaWiki::Plugin::Rule{form_input}->{search_result} = $def;
115     $SuikaWiki::Plugin::Rule{view}->{search_result} = $def;
116     $SuikaWiki::Plugin::Rule{view_resource}->{search_result} = $def;
117     };
118    
119     {my $def = {q#Parameter#, {q#fragment#, {q#Type#, q#URI:fragment#, q#Default#, q#(none)#, q#Description#, [[q#Fragment identifier of destination resource#, q#en#, q##]]}}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
120    
121     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#]/search__result_navigation']/Formatting)"
122     my $result = $o->{var}->{search__result};
123     return if $result->{min} == $result->{start} and
124     $result->{max} == $result->{end};
125     my $number = $result->{number}; # $result->{end} - $result->{start} + 1;
126     my @range;
127     my $first = ($result->{start} - $result->{min}) % $number;
128     if ($first) {
129     push @range, {start => $result->{min}, end => $first - 1,
130     number => $first,
131     dir => 'prev', seq => 0};
132     }
133     my $dir;
134     use integer;
135     for my $i (0..(($result->{max} - $result->{min} + 1 - $first) / $number - 1)) {
136     my $start = $result->{min} + $first + $number * $i;
137     push @range, {start => $start,
138     end => $start + $number - 1,
139     number => $number,
140     dir => $dir || (($result->{start} == $start) ?
141     ($dir = 'next' and 'current') : 'prev'),
142     seq => scalar @range};
143     }
144     if ($range[-1]->{end} < $result->{max}) {
145     push @range, {start => $range[-1]->{end} + 1,
146     end => $result->{max},
147     dir => $dir || 'current',
148     number => $number,
149     seq => scalar @range};
150     }
151     my %template;
152     for (@range) {
153     $template{$_->{dir}} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get_text
154     (name => 'Search:Navigation:'.$_->{dir},
155     o => $o, wiki => $o->{wiki});
156     ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
157     label => $template{$_->{dir}},
158     } => {
159     base => $o->{wiki}->{var}->{page},
160     page_name_relative => $o->{wiki}->{var}->{page},
161     param => {
162     $result->{param_prefix}.'__query' => $result->{query},
163     $result->{param_prefix}.'__range_start' => $_->{start},
164     $result->{param_prefix}.'__range_number' => $_->{number},
165     },
166     search__range => $_,
167     page_anchor_name => $p->{fragment},
168     wiki_mode => $o->{wiki}->{var}->{mode},
169     }, {
170     o => $o,
171     parent => $p->{-parent},
172     });
173     }}}
174     #line 1 "(WikiPlugin module Search, chunk 4)"
175     ;
176     $SuikaWiki::Plugin::Rule{view}->{search__result_navigation} = $def;
177     $SuikaWiki::Plugin::Rule{view_resource}->{search__result_navigation} = $def;
178     $SuikaWiki::Plugin::Rule{form_input}->{search__result_navigation} = $def;
179     };
180    
181     $SuikaWiki::Plugin::Rule{page_link}->{search__result_navigation_seq} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
182    
183     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_navigation_seq']/Formatting)"
184     $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{seq} + 1);}}
185     #line 1 "(WikiPlugin module Search, chunk 6)"
186     ;
187    
188     $SuikaWiki::Plugin::Rule{page_link}->{search__result_query} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
189    
190     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_query']/Formatting)"
191     $p->{-parent}->append_text ($o->{link}->{dest}->{param}->{search__query});}}
192     #line 1 "(WikiPlugin module Search, chunk 8)"
193     ;
194    
195     $SuikaWiki::Plugin::Rule{page_link}->{search__result_start} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
196    
197     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_start']/Formatting)"
198     $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{start} + 1);}}
199     #line 1 "(WikiPlugin module Search, chunk 10)"
200     ;
201    
202     $SuikaWiki::Plugin::Rule{page_link}->{search__result_end} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
203    
204     #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_end']/Formatting)"
205     $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{end} + 1);}}
206     #line 1 "(WikiPlugin module Search, chunk 12)"
207     ;
208    
209     push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}}, {
210     Main => q#%section (
211     id => see-also,
212     title => {%res(name=>SeeAlso);}p, heading,
213     content => {%search-result (
214     post-list => {
215     %search--result-navigation (
216     fragment => see-also,
217     );
218     }p,
219     );}p,
220     );#,
221     Order => 101,
222     Description => [[q#After content body -- Backward links#, q#en#, q##]],
223     };
224    
225     package SuikaWiki::Plugin::Resource;
226    
227     our $BaseResource;
228     $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);#;
229     $BaseResource->{q#und#}->{q##}->{q#Search:Navigation:prev#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
230     $BaseResource->{q#und#}->{q##}->{q#Search:Navigation:current#} = q#[%search--result-navigation-seq;] #;
231     $BaseResource->{q#und#}->{q##}->{q#Search:Navigation:next#} = q#[%link-to-it ( label => {%search--result-navigation-seq;}p, description => {%search--result-query; [%search--result-start;-%search--result-end;]}p, );] #;
232     package SuikaWiki::Plugin::Registry;
233    
234     $Info{q#Search#}->{provide} = {q#rule#, {q#form_input#, [q#search_result#, q#search__result_navigation#], q#view#, [q#search_result#, q#search__result_navigation#], q#view_resource#, [q#search_result#, q#search__result_navigation#], q#page_link#, [q#search__result_navigation_seq#, q#search__result_query#, q#search__result_start#, q#search__result_end#]}, q#viewfragment#, [{q#Name#, q#ws__post_content#}]};
235    
236     1;

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24