【しばらく編集不可モードで運営します】 編集(管理者用) | 差分 | 新規作成 | 一覧 | RSS | FrontPage | 検索 | 更新履歴

plugin/searchbox.pl - 箱形式の検索プラグイン

箱形式の検索プラグイン

use strict;

package searchbox;

sub plugin_block {
    my ($escaped_argument, $context) = @_;
    my $url_cgi = $context->{url_cgi};
    my $html = <<"EOD";
<table border="0" summary="for layout" class="minitable">
    <tr><th>Search</th></tr>
    <tr><td>
        <form action="$url_cgi" method="get">
            <input type="hidden" name="mycmd" value="search">
            <input type="text" name="mymsg" value="$escaped_argument" size="20">
            <input type="submit" value="Go">
        </form>
    </td></tr>
</table>
EOD
    return $html;
}

sub plugin_usage {
    return {
        name => 'searchbox',
        version => '1.0',
        author => 'Hiroshi Yuki <hyuki@hyuki.com>',
        syntax => '#searchbox(defaulttext)',
        description => 'Show search form in minilist.',
        example => '#searchbox()',
    };
}

1;