# -*- mode: perl; coding: utf-8 -*-
# keitairc/lib/plugins/30prefectures
# 県名から始まる文字列を携帯版Google Mapにリンク
# $Id: 30prefectures,v 1.4 2008-06-29 09:20:49 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/30prefectures,v $

# The line number (1 incremented) and filename below must be
# actual. see perlsyn.
# line 10 "keitairc/lib/plugins/30prefectures"

$plugin = {
	name => 'prefectures',

	message_replace_regexp => '((?:北海道|京都府|大阪府|東京都|青森県|岩手県|宮城県|秋田県|山形県|福島県|茨城県|栃木県|群馬県|埼玉県|千葉県|神奈川県|新潟県|富山県|石川県|福井県|山梨県|長野県|岐阜県|静岡県|愛知県|三重県|滋賀県|兵庫県|奈良県|和歌山県|鳥取県|島根県|岡山県|広島県|山口県|徳島県|香川県|愛媛県|高知県|福岡県|佐賀県|長崎県|熊本県|大分県|宮崎県|鹿児島県|沖縄県)(?:.+)(?:市|区|町|郡|村)(.*))',
	message_replace_imprementation => sub {
		my ($session_id, $str) = @_;
		my $tmp = Encode::decode($::cf->web_charset(), $str);
		$tmp = ::uri_escape($tmp);
		return sprintf('<a href="%s%s/address/%s">%s</a>',
			       $::cf->web_root(), $session_id, $tmp, $str);
	},
};

1;
