use strict; package SuikaWiki::Plugin::Registry; our %Info; $Info{q#Search#}->{Name} = q#Search#; $Info{q#Search#}->{q#Version#} = q#2004.0831.0328#; $Info{q#Search#}->{q#InterfaceVersion#} = q#2.9.1#; $Info{q#Search#}->{q#mkpluginVersion#} = q#2.1.19#; $Info{q#Search#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z#; $Info{q#Search#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:05:49 $#; $Info{q#Search#}->{RequiredPlugin} = [q#WikiLinking#]; $Info{q#Search#}->{Description} = [[q#Wiki internal full-text search#, q#en#, q##]]; $Info{q#Search#}->{License} = [[q#%%Perl%%#, q##, q##]]; $Info{q#Search#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; package SuikaWiki::Plugin::plugin::Search1040731032809Rm7Z; #line 1 "(WikiPlugin module source search.wp2, block Plugin/Use)" use Message::Util::Error; my $WIKILINKING; my $WIKIRESOURCE; #line 1 "(WikiPlugin module Search, chunk 1)" {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. This rule seek all (*1) wiki page contents whenever cache is not available. This rule should not be used within wiki that has lots of wiki pages. (*1 Number of wiki pages that is to be target of search is limited to C<$max_target> defined in this rule for safety.) This rule does not support multiple wiki page content formats. It handles contents as a plain text whatever its actual media type is. This rule requires C WikiDB property to be enabled for caching. (See C.) Namazu WikiPlugin module provides more clever search engine.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/search_result']/Formatting)" $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}; $p->{query} ||= ($o->{wiki}->{input} ? $o->{wiki}->{input}->parameter ('search__query') : undef) || $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki}); $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}; my $word = $p->{case_sensitive} ? $p->{query} : lc $p->{query}; my $max_target = 1023; my @r; my $sr = $o->{wiki}->{db}->get (m__search_result => [$word]); unless ($sr) { my $n = 0; for my $page ($o->{wiki}->{db}->keys ('content')) { last if $n++ == $max_target; my $content; try { $content = $o->{wiki}->{db}->get (content => $page); } catch SuikaWiki::DB::Util::Error with { my $err = shift; $err->throw if $err->{-type} eq 'ERROR_REPORTED'; $content = undef; }; $content = $p->{case_sensitive} ? $content : lc $content; $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s; $page = $o->{wiki}->name ($page); my $n_page = $page->stringify (wiki => $o->{wiki}); $n_page = lc $n_page unless $p->{case_sensible}; if (index ($n_page, $word) > -1) { my $c = $content =~ s/\Q$word\E//g; push @r, [$page, $c+20]; } elsif (index ($word, $n_page) > -1) { my $c = $content =~ s/\Q$word\E//g; push @r, [$page, $c+10]; } elsif (my $c = $content =~ s/\Q$word\E//g) { push @r, [$page, $c]; } } @r = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @r; $sr = join "\x1E", map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D") ."\x1F".$_->[1]} @r; $o->{wiki}->{db}->set (m__search_result => [$word] => $sr); } else { @r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]} map {[split /\x1F/, $_, 2]} split /\x1E/, $sr; } return unless @r; my $list = $p->{-parent}->append_new_node (type => '#element', namespace_uri => q#http://www.w3.org/1999/xhtml#, local_name => 'ol'); $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}; $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get (name => 'Link:toWikiPage:SourceLabelLong:SearchResult', wiki => $o->{wiki}, o => $o); for (@r) { ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({ label => $p->{template}, } => { base => $o->{wiki}->{var}->{page}, page_name_relative => $_->[0], wiki_mode => $p->{mode}, }, { o => $o, parent => $list->append_new_node (type => '#element', namespace_uri => q#http://www.w3.org/1999/xhtml#, local_name => 'li'), -m__weight => $_->[1], }); }}} #line 1 "(WikiPlugin module Search, chunk 2)" ; $SuikaWiki::Plugin::Rule{form_input}->{search_result} = $def; $SuikaWiki::Plugin::Rule{view}->{search_result} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{search_result} = $def; }; {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) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#]/search__result_navigation']/Formatting)" my $result = $o->{var}->{search__result}; return if $result->{min} == $result->{start} and $result->{max} == $result->{end}; my $number = $result->{number}; # $result->{end} - $result->{start} + 1; my @range; my $first = ($result->{start} - $result->{min}) % $number; if ($first) { push @range, {start => $result->{min}, end => $first - 1, number => $first, dir => 'prev', seq => 0}; } my $dir; use integer; for my $i (0..(($result->{max} - $result->{min} + 1 - $first) / $number - 1)) { my $start = $result->{min} + $first + $number * $i; push @range, {start => $start, end => $start + $number - 1, number => $number, dir => $dir || (($result->{start} == $start) ? ($dir = 'next' and 'current') : 'prev'), seq => scalar @range}; } if ($range[-1]->{end} < $result->{max}) { push @range, {start => $range[-1]->{end} + 1, end => $result->{max}, dir => $dir || 'current', number => $number, seq => scalar @range}; } my %template; for (@range) { $template{$_->{dir}} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get_text (name => 'Search:Navigation:'.$_->{dir}, o => $o, wiki => $o->{wiki}); ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({ label => $template{$_->{dir}}, } => { base => $o->{wiki}->{var}->{page}, page_name_relative => $o->{wiki}->{var}->{page}, param => { $result->{param_prefix}.'__query' => $result->{query}, $result->{param_prefix}.'__range_start' => $_->{start}, $result->{param_prefix}.'__range_number' => $_->{number}, }, search__range => $_, page_anchor_name => $p->{fragment}, wiki_mode => $o->{wiki}->{var}->{mode}, }, { o => $o, parent => $p->{-parent}, }); }}} #line 1 "(WikiPlugin module Search, chunk 4)" ; $SuikaWiki::Plugin::Rule{view}->{search__result_navigation} = $def; $SuikaWiki::Plugin::Rule{view_resource}->{search__result_navigation} = $def; $SuikaWiki::Plugin::Rule{form_input}->{search__result_navigation} = $def; }; $SuikaWiki::Plugin::Rule{page_link}->{search__result_navigation_seq} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_navigation_seq']/Formatting)" $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{seq} + 1);}} #line 1 "(WikiPlugin module Search, chunk 6)" ; $SuikaWiki::Plugin::Rule{page_link}->{search__result_query} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_query']/Formatting)" $p->{-parent}->append_text ($o->{link}->{dest}->{param}->{search__query});}} #line 1 "(WikiPlugin module Search, chunk 8)" ; $SuikaWiki::Plugin::Rule{page_link}->{search__result_start} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_start']/Formatting)" $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{start} + 1);}} #line 1 "(WikiPlugin module Search, chunk 10)" ; $SuikaWiki::Plugin::Rule{page_link}->{search__result_end} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source search.wp2, block FormattingRule[name()='[q#page-link#]/search__result_end']/Formatting)" $p->{-parent}->append_text ($o->{link}->{dest}->{search__range}->{end} + 1);}} #line 1 "(WikiPlugin module Search, chunk 12)" ; push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}}, { Main => q#%section ( id => see-also, title => {%res(name=>SeeAlso);}p, heading, content => {%search-result ( post-list => { %search--result-navigation ( fragment => see-also, ); }p, );}p, );#, Order => 101, Description => [[q#After content body -- Backward links#, q#en#, q##]], }; package SuikaWiki::Plugin::Resource; our $BaseResource; $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);#; $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, );] #; $BaseResource->{q#und#}->{q##}->{q#Search:Navigation:current#} = q#[%search--result-navigation-seq;] #; $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, );] #; package SuikaWiki::Plugin::Registry; $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#}]}; 1;