# -*-perl-*-
# keitairc/lib/plugins/30prefectures
# 
# ̾ϤޤʸGoogle Map˥
# $Id: 30prefectures,v 1.1 2008/01/14 05:22:44 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/30prefectures,v $

$plugin = {
	name => 'prefectures',

	message_replace_regexp => '(̳ƻ||||Ŀ|긩|ܾ븩|ĸ||ʡ縩|븩|ڸ|ϸ|̸|ո||㸩|ٻ||ʡ温||Ĺ|츩|Ų|θ|Ÿ|츩|ʼ˸|ɸ|²λ|Ļ踩|纬||縩||縩||ɲ|θ|ʡ|츩|Ĺ긩|ܸ|ʬ|ܺ긩|縩|츩)(.*)',
	message_replace_imprementation => sub {
		my ($session_id, $p1, $p2) = @_;
		my $str = $p1 . $p2;
		my $tmp = $str;
		Encode::from_to($tmp, 'euc-jp', 'shiftjis');
		my $tmp = ::uri_escape($tmp);
		sprintf('<a href="http://www.google.co.jp/m/lcb?mp=1&uipref=3&source=m&ie=Shift_JIS&action=chgloc&loc=%s">%s</a>', $tmp, $str);
	},
};

1;


