# -*-perl-*-
# keitairc/lib/plugins/30prefectures
# 
# ̾ϤޤʸGoogle Map˥
# $Id: 30prefectures,v 1.2 2008/02/25 18:09:22 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/30prefectures,v $

$plugin = {
	name => 'prefectures',

	message_replace_regexp => '((?:̳ƻ||||Ŀ|긩|ܾ븩|ĸ||ʡ縩|븩|ڸ|ϸ|̸|ո||㸩|ٻ||ʡ温||Ĺ|츩|Ų|θ|Ÿ|츩|ʼ˸|ɸ|²λ|Ļ踩|纬||縩||縩||ɲ|θ|ʡ|츩|Ĺ긩|ܸ|ʬ|ܺ긩|縩|츩)(?:.+)(?:||Į||¼)(.*))',
	message_replace_imprementation => sub {
		my ($session_id, $str) = @_;
		my $tmp = $str;
		Encode::from_to($tmp, 'euc-jp', 'shiftjis');
		my $tmp = ::uri_escape($tmp);
		return sprintf('<a href="%s%s/address/%s">%s</a>',
			       $::cf->web_root(), $session_id, $tmp, $str);
	},
};

1;


