* doc/manual.html: refits -> finds (#18875)\r * lib/Keitairc/Config.pm: refits -...

diff --git a/ChangeLog b/ChangeLog
index 882fb08..1df7016 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,9 @@
        docomo_imodeid softbank_serial_key emobile_userid\e$B$r=i4|2=\e(B (ticket:
        #17917)
        * doc/manual.html: web_schema\e$B5-=RDI2C\e(B (ticket: #18872)
+       * doc/manual.html: refits -> finds (#18875)
+       * lib/Keitairc/Config.pm: refits -> finds (#18875)
+       * lib/plugins/00location_receiver: refits -> finds (#18875)
 
 2009-09-24  ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
 

diff --git a/doc/manual.html b/doc/manual.html
index acfdbd3..f705196 100644 (file)
--- a/doc/manual.html
+++ b/doc/manual.html
@@ -447,12 +447,17 @@
        携帯端末の位置情報取得機能をもとに、
        現在位置の住所文字列を取得する際、
        どの逆ジオコードサーバを利用するか指定します。<br>
-       refits を指定すると
-       http://refits.cgk.affrc.go.jp/tsrv/jp/rgeocode.html
+       finds を指定すると
+       http://www.finds.jp/wsdocs/rgeocode/
        で提供されているサービスを使用します。<br>
        google を指定すると http://maps.google.com
        で提供されているサービスを使用します。<br>
-       デフォルトは refits です。
+       デフォルトは finds です。<br>
+       (なお、
+       http://www.finds.jp/wsdocs/rgeocode/ は以前は
+       http://refits.cgk.affrc.go.jp/tsrv/jp/rgeocode.html
+       で提供されておりました。当時の設定との互換性のため、
+       refits と指定した場合は finds と同じ意味になります)
       </dd>
       <dt>reverse_message</dt>
       <dd>

diff --git a/lib/Keitairc/Config.pm b/lib/Keitairc/Config.pm
index 080bc3e..44f1955 100644 (file)
--- a/lib/Keitairc/Config.pm
+++ b/lib/Keitairc/Config.pm
@@ -1,6 +1,6 @@
 # -*- mode: perl; coding: utf-8 -*-
 # Keitairc::Config
-# $Id: Config.pm,v 1.34 2009-09-24 14:48:21 ishikawa Exp $
+# $Id: Config.pm,v 1.35 2009-09-24 16:17:00 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/Config.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -83,7 +83,7 @@ sub new{
        $me->mobile_fontsize(-1);
        $me->url_target('_self');
        $me->follow_nick(1);
-       $me->rgeocode_server('refits');
+       $me->rgeocode_server('finds');
        $me->common_header('
 <meta name="Robots" content="noindex,nofollow" />
 <meta name="Keywords" content="norobot" />

diff --git a/lib/plugins/00location_receiver b/lib/plugins/00location_receiver
index eaaec5b..089ebbd 100644 (file)
--- a/lib/plugins/00location_receiver
+++ b/lib/plugins/00location_receiver
@@ -1,7 +1,7 @@
 # -*- mode: perl; coding: utf-8 -*-
 # keitairc/lib/plugins/00location_receiver
 # 位置情報送信、のコールバック
-# $Id: 00location_receiver,v 1.14 2008-12-28 15:26:03 morimoto Exp $
+# $Id: 00location_receiver,v 1.15 2009-09-24 16:17:00 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00location_receiver,v $
 #
 # The line number (1 incremented) and filename below must be
@@ -13,11 +13,14 @@ use XML::Simple;
 use Encode;
 
 # refits.cgk.affrc.go.jp を使ってgeocode逆変換
+# ただし 2009 年から www.finds.jp に移転した
+# see http://www.finds.jp/wsdocs/rgeocode/
 # WGS84系を渡すこと
-sub get_rgeocode_refits {
+# と思っていたら「測地系は世界測地系(JGD2000)に基づいています」らしい
+sub get_rgeocode_finds {
        my ($lat, $lon) = @_;
-       my $s = Net::HTTP->new(Host => 'refits.cgk.affrc.go.jp') || return;
-       $s->write_request(GET => "/tsrv/jp/rgeocode.php?lat=$lat&lon=$lon");
+       my $s = Net::HTTP->new(Host => 'www.finds.jp') || return;
+       $s->write_request(GET => "/ws/rgeocode.php?lat=$lat&lon=$lon");
        $s->read_response_headers();
        my $xml_code;
        for(;;){
@@ -69,8 +72,9 @@ sub get_rgeocode_google{
 
 sub get_rgeocode{
        my $s;
-       if($::cf->rgeocode_server() eq 'refits'){
-               $s = get_rgeocode_refits(@_);
+       if($::cf->rgeocode_server() eq 'refits' ||
+          $::cf->rgeocode_server() eq 'finds'){
+               $s = get_rgeocode_finds(@_);
        }elsif($::cf->rgeocode_server() eq 'google'){
                $s = get_rgeocode_google(@_);
        }else{