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

plugin/searchform.pl - 検索フォームプラグイン

検索フォームプラグイン

use strict;

package searchform;

sub plugin_block {
    my ($escaped_argument, $context) = @_;
    my $url_cgi = $context->{url_cgi};
    my $caption = $context->{resource}->{searchbutton};
    my $html = <<"EOD";
<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="$caption">
</form>
EOD
    return $html;
}

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

1;