memo.xight.org

### MapFanへのリンク
# usage: {{mapfan('東京都○○区○町00-0')}}
sub mapfan {
	my ($str) = @_;
	my $prefix = q(http://www.mapfan.com/index.cgi);
	my $enc    = $str;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?ADDR=$enc" title="Map Fan - $str">Map Fan - $str</a>);
}

### MapFanへのスポット名検索リンク
# usage: {{mapfan_search('スポット名')}}
sub mapfan_search {
	my ($str) = @_;
	my $prefix = q(http://www.mapfan.com/keywordsrch.cgi);
	my $enc    = $str;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?SRCHKIND=SRCH_NAME&PARAM=$enc" title="Map Fan - スポット名検索 - $str">Map Fan - $str</a>);
}

### MapionBBへのリンク
# usage: {{mapion('東京都○○区○町00-0')}}
sub mapion {
	my ($str) = @_;
	my $prefix = q(http://www.mapion.co.jp/c/f);
	my $enc    = $str;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?uc=7&grp=MapionBB&find=$enc" title="Mapion BB - $str">Mapion BB - $str</a>);
}

### MapionBBへのランドマーク検索リンク
# usage: {{mapion_search('ランドマーク')}}
sub mapion_search {
	my ($str) = @_;
	my $prefix = q(http://www.mapion.co.jp/c/f);
	my $enc    = $str;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?uc=12&grp=MapionBB&find=$enc" title="Mapion BB - ランドマーク検索 - $str">Mapion BB - $str</a>);
}