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

use CGI;

my $q = new CGI;

my $log = "/var/www/blog/gps/query.html";

my $zurl =
"<a href=\"http://walk.eznavi.jp/map/?datum=%s&unit=%s&lat=%s&lon=%s&fm=%s\">zmap</a> ";

my $gurl =
 "<a href=\"http://maps.google.com/?ie=UTF8&om=1&z=15&ll=%s,%s\">gmap</a> ";

my $logformat =
"time=%s lat=%s lon=%s alt=%s datum=%s unit=%s smaj=%s smin=%s vert=%s majaa=%s fm=%s %s %s <br>\n";

open( LOG, ">>$log" ) || die "can not open file LOG\n";

print $q->header( -type => 'text/html', -charset => 'euc-JP' );
print $q->start_html( -encoding => 'euc-JP' );
print $q->h1('あなたの位置');

if ( $q->param('unit') eq '0' ) {
    printf( $zurl,
        $q->param('datum'), $q->param('unit'), $q->param('lat'),
        $q->param('lon'),   $q->param('fm') );
    printf( LOG $zurl,
        $q->param('datum'), $q->param('unit'), $q->param('lat'),
        $q->param('lon'),   $q->param('fm')
    );
}
else {
    my $lat = $q->param('lat');
    $lat =~ s/\+//;
    my $lon = $q->param('lon');
    $lon =~ s/\+//;
    printf( $gurl, $lat, $lon );
    printf( LOG $gurl, $lat, $lon );
}
printf( $logformat,
    $q->param('time'),  $q->param('lat'),   $q->param('lon'),
    $q->param('alt'),   $q->param('datum'), $q->param('unit'),
    $q->param('smaj'),  $q->param('smin'),  $q->param('vert'),
    $q->param('majaa'), $q->param('fm'),    $ENV{HTTP_USER_AGENT},
    $ENV{REMOTE_ADDR} );

printf( LOG $logformat,
    $q->param('time'),  $q->param('lat'),   $q->param('lon'),
    $q->param('alt'),   $q->param('datum'), $q->param('unit'),
    $q->param('smaj'),  $q->param('smin'),  $q->param('vert'),
    $q->param('majaa'), $q->param('fm'),    $ENV{HTTP_USER_AGENT},
    $ENV{REMOTE_ADDR}
);

close LOG;

#print `tac < $log`;
print "<a href=\"http://hoop.euqset.org/blog/gps/index.cgi\">戻る</a>";
print $q->end_html;