#!/usr/local/bin/perl
# written in SJIS
#------------------------------------------#
#------------------------------------------#
# J-Phone 位置情報テスト #
# Powered by Perl #
# Ver.1.0g(GIPC) #
# Copyright 1999-2002,boo(MS-TS) #
#------------------------------------------#
#------------------------------------------#
# 個人または教育利用での使用は自由です。 #
# 著作権はboo(MS-TS)にあります。 #
# 業務目的、営利目的での利用は別途相談 #
# ください。 #
# このソフトウェアを利用して起きたいか #
# なる責任も追いません。 #
#------------------------------------------#
#--- 各種設定 -----------------------------#
#scriptname
$scriptname = "ichi.cgi";
#時刻表の名前
$title = "J-Phone位置情報";
#ヘッダ・フッタ情報
$head = "\n";
$foot = "メニューへ\n";
#GETした情報を取得します->arg{}へ格納
$temp=$ENV{'QUERY_STRING'};
@group=split(/&/,$temp);
foreach $ans(@group){
($name,$value)=split(/=/,$ans);
$value=~tr/+/ /;
$value=~s/%(..)/pack("c",hex($1))/ge;
$arg{$name}=$value;
}
#CGIスクリプトにするにはこれが必要
print "Content-type: text/html\n\n";
#Main
print $head;
print "只今作成中です。もうすこしまってね。
\n";
# x-jphone-geocode = “x-jphone-geocode” “:”
# geocode “%1A” address
# geocode = latitude “%1A” longitude
# address = <住所>
# latitude = ladegree minute second
# longitude = lodegree minute second
# ladegree = 2DIGIT | 3DIGIT
# lodegree = 3DIGIT
# minute = 2DIGIT
# 0000000%1A0000000%1A%88%CA%92%75%8F%EE%95%F1%82%C8%82%B5
#フッタ表示
print $foot;
end;