#!/usr/bin/perl
##
##  gps.cgi -- demo CGI program which just prints GPS query variables
##  2007-10-22 Hisaaki SHIBATA <shibata@luky.org>
##

use CGI qw/:standard/;

my $q = new CGI;

print $q->header(-type=>'text/html',-charset=>'euc-JP');
print $q->start_html(-encoding=>'euc-JP');

print '<p>ここで測定した場所はログとして残り、公開されます。御承知の上で御利用下さい。</p>';
print '<p>GPS機用</p>';
print '<p><a href="device:gpsone?url=http://hoop.euqset.org/blog/gps/gps.cgi&amp;ver=1&amp;datum=0&amp;unit=0&amp;acry=0&amp;number=0">wgs84測地系(EZnavi)</a></p>';
print '<p><a href="device:gpsone?url=http://hoop.euqset.org/blog/gps/gps.cgi&amp;ver=1&amp;datum=0&amp;unit=1&amp;acry=0&amp;number=0">wgs84測地系(gmap)</a></p>';
#print '<p><a href="device:gpsone?url=http://hoop.euqset.org/blog/gps/gps.cgi&amp;ver=1&amp;datum=1&amp;unit=1&amp;acry=0&amp;number=0">日本測地系</a></p>';
#print '<p>GPS非搭載機用</p>';
#print '<p>■<a href="device:location?url=http://hoop.euqset.org/blog/gps/gps.cgi">簡易計測</a></p>';
print 'au EZweb 専用<br>';
print '<a href="http://hoop.euqset.org/blog/gps/"><img src="http://hoop.euqset.org/blog/gps/gps.jpg"></a><br>';
print '<a href="http://hoop.euqset.org/blog/gps/query.html">測地ログ</a>';
print $q->end_html;