ABWiki
差分表示
- 最後の更新で追加された行はこのように表示します。
- 最後の更新で削除された行は
このように表示します。
検索結果表示プラグインのソース
---(
use strict;
package searchresult;
sub plugin_block {
my ($escaped_argument, $context) = @_;
my $result = "";
my $counter = 0;
my $RChanges = "RecentChanges";
$result .= qq(<div class="SearchResult">\n);
foreach my $page (sort keys %{$context->{database}}) {
next if $page =~ /^$RChanges$/ or $page =~ /^$context->{form}->{mypage}$/;
if ($context->{database}{$page} =~ /\Q$escaped_argument\E/ or $page =~ /\Q$escaped_argument\E/) {
if ($counter == 0) {
$result .= qq(<ul class="SearchResult">\n);
}
$result .= qq(<li><a href="$context->{url_cgi}?@{[&main::encode($page)]}">@{[&main::escape($page)]}</a>@{[&main::escape(&main::get_subjectline($page))]}</li>\n);
$counter++;
}
}
if ($counter == 0) {
$result .= qq(<p>Not found.</p>\n);
} else {
$result .= qq(</ul>\n);
}
$result .= qq(</div>\n);
return $result;
}
sub plugin_usage {
return {
name => 'searchresult',
version => '1.0',
author => 'ABYSS <abwiki@mac.com>',
syntax => '#searchresult(word)',
description => 'Show search result.',
example => '#searchresult(word)',
};
}
1;
---)