# -*- mode: perl; coding: utf-8 -*-
# keitairc/lib/plugins/31distinct
# 区名から始まる文字列を携帯版Google Mapにリンク
# TODO: 東京都しかはいってないよ
# $Id: 31distinct,v 1.4 2008-06-29 09:20:49 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/31distinct,v $

# The line number (1 incremented) and filename below must be
# actual. see perlsyn.
# line 11 "keitairc/lib/plugins/31distinct"

my $tokyo_special_wards = '千代田区|中央区|港区|新宿区|文京区|台東区|墨田区|江東区|品川区|目黒区|大田区|世田谷区|渋谷区|中野区|杉並区|豊島区|北区|荒川区|板橋区|練馬区|足立区|葛飾区|江戸川区';
my $tokyo_cities = '昭島市|あきる野市|稲城市|青梅市|清瀬市|国立市|小金井市|国分寺市|小平市|狛江市|立川市|多摩市|調布市|西東京市|八王子市|羽村市|東久留米市|東村山市|東大和市|日野市|府中市|福生市|町田市|三鷹市|武蔵野市|武蔵村山市';

$plugin = {
	name => 'distinct',

	message_replace_regexp => '((?:' . $tokyo_special_wards . '|' . $tokyo_cities . ')(?:.+)(?:[1-9]|一|二|三|四|五|六|七|八|九|〇|号|町|字|番地))',
	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;
