<?xml version="1.0" encoding="UTF-8" ?>
<Module>
<ModulePrefs
  title="Bulkfeeds Search"
  directory_title="Bulkfeeds Search"
  title_url="http://bulkfeeds.net/"
  description="Search on Bulkfeeds"
  author="Tatsuhiko Miyagawa"
  author_email="miyagawa@gmail.com"
  author_location="Tokyo, Japan"
  render_inline="optional"
  height="60"
  scrolling="true"
/>
<Content type="html">
<![CDATA[
<p>
<form action="http://bulkfeeds.net/app/search2" target="_top">
<input type="text" name="q" value="" />
<input type="submit" value="Search" />
</form>
</p>
]]>
</Content>
</Module>

### Google音楽検索へのリンクプラグイン
# usage: {{google_music('キーワード')}}
sub google_music {
	my ($str) = @_;
	my $prefix = q(http://www.google.com/musicsearch?q=);
	return qq(<a href="$prefix$str" title="Google Music - $str">Google 音楽検索 - $str</a>);
}

### Google Local Plug-in
# usage: {{google_local('what','where')}}
sub google_local {
	my ($what,$where) = @_;
	my $prefix = q(http://local.google.co.jp);

	my $what_enc = q();
	$what_enc = Jcode->new($what)->utf8;
	$what_enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$what_enc =~ s/\s/+/g;

	my $where_enc = q();
	$where_enc = Jcode->new($where)->utf8;
	$where_enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$where_enc =~ s/\s/+/g;

	my $ret  = qq(<a href="$prefix/local?q=$what_enc&near=$where_enc" title="Google Local - $where の $what">);
	   $ret .= qq(Google Local - $where の $what);
	   $ret .= qq(</a>);
	return $ret;
}