# -*-perl-*-
# keitairc/lib/plugins/30prefectures
# 
# $Id: 20phone,v 1.3 2008/01/13 12:12:55 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/20phone,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');
		$tmp = ::uri_escape($tmp);
		sprintf('<a href="http://www.google.co.jp/m/lcb?mp=1&loc=%s">%s</a>', $str, $str) . 
		sprintf('<a href="http://www.google.co.jp/m/lcb?mp=1&loc=%s">%s</a>', $tmp, $str);
	},
};

1;


