maps/web/googlemap.cgi

#!/usr/bin/perl

use warnings;
use strict;

use HTML::GoogleMaps;
use CGI::Carp qw/fatalsToBrowser/;
use Data::Dump qw/dump/;

# http://localhost/
my $map_key = 'ABQIAAAAVQ5szt9Jd8ws6vgfVQOEmhT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQ1cKf0DwFJcwtpESJEI0hL8QgtYg';

my $trace = '/home/dpavlin/x/openmoko/gps/foo.loc';

my $map = HTML::GoogleMaps->new(key => $map_key);
#$map->center(point => "Zagreb, Hrvatska");

sub deg {
        my $a = shift;
        if ( $a =~ m/^(\d+)(\d\d\.\d\d+)$/ ) {
                return sprintf("%1.6f", $1 + ( $2 / 60 ));
        } else {
                warn "## skipped $a\n";
                return;
        }
}

my $got_it;

sub recalc {
        my ( $lat, $lat_ns, $lon, $lon_ew ) = @_;

        $lat = -$lat if $lat_ns eq 'S';
        $lon = -$lon if $lon_ew eq 'W';

        return if ( $got_it->{ $lat . $lon }++ );

        $lat = deg( $lat ) || return;
        $lon = deg( $lon ) || return;

        warn "## $lon $lat\n";

        return [ $lon, $lat ];
}

open(my $fh, '<', $trace) || die "can't open $trace: $!";
while( <$fh> ) {
        if ( m/\$GPRMC/ ) {
                chomp;
                my @a = split(/,/,$_);

                next unless $#a = 12;

                warn "## [$#a] $_\n";

                my ( undef, $time, $validity, $lat, $lat_ns, $lon, $lon_ew, $speed, $course, $date, $var, $var_ew ) = @a;

                next unless $validity eq 'A';

                my $point = recalc( $lat, $lat_ns, $lon, $lon_ew ) || next;

                $map->add_marker(
                        point => $point,
                        html => "Time: $time<br/>Validity: $validity</br>Lat: $lat $lat_ns<br/>Lon: $lon $lon_ew<br/>Speed: $speed<br/>Course: $course",
                ) if $validity eq 'A';
        }
}
close($fh);

#$map->zoom(10);
#$map->v2_zoom(0);
$map->controls("large_map_control", "map_type_control");
$map->map_type('hybrid');

my ($head, $map_div, $map_script) = $map->render;

print "Content-type: text/html\n\r\n\r";
print qq{
<html>
<title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
<head>$head</head>
<body>
$map_div

$map_script
<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
</body>
</html>
};
1	dpavlin	13	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use HTML::GoogleMaps;
7			use CGI::Carp qw/fatalsToBrowser/;
8			use Data::Dump qw/dump/;
9
10			# http://localhost/
11			my $map_key = 'ABQIAAAAVQ5szt9Jd8ws6vgfVQOEmhT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQ1cKf0DwFJcwtpESJEI0hL8QgtYg';
12
13			my $trace = '/home/dpavlin/x/openmoko/gps/foo.loc';
14
15			my $map = HTML::GoogleMaps->new(key => $map_key);
16			#$map->center(point => "Zagreb, Hrvatska");
17
18			sub deg {
19			my $a = shift;
20			if ( $a =~ m/^(\d+)(\d\d\.\d\d+)$/ ) {
21			return sprintf("%1.6f", $1 + ( $2 / 60 ));
22			} else {
23			warn "## skipped $a\n";
24			return;
25			}
26			}
27
28			my $got_it;
29
30			sub recalc {
31			my ( $lat, $lat_ns, $lon, $lon_ew ) = @_;
32
33			$lat = -$lat if $lat_ns eq 'S';
34			$lon = -$lon if $lon_ew eq 'W';
35
36			return if ( $got_it->{ $lat . $lon }++ );
37
38			$lat = deg( $lat ) \|\| return;
39			$lon = deg( $lon ) \|\| return;
40
41			warn "## $lon $lat\n";
42
43			return [ $lon, $lat ];
44			}
45
46			open(my $fh, '<', $trace) \|\| die "can't open $trace: $!";
47			while( <$fh> ) {
48			if ( m/\$GPRMC/ ) {
49			chomp;
50			my @a = split(/,/,$_);
51
52			next unless $#a = 12;
53
54			warn "## [$#a] $_\n";
55
56			my ( undef, $time, $validity, $lat, $lat_ns, $lon, $lon_ew, $speed, $course, $date, $var, $var_ew ) = @a;
57
58			next unless $validity eq 'A';
59
60			my $point = recalc( $lat, $lat_ns, $lon, $lon_ew ) \|\| next;
61
62			$map->add_marker(
63			point => $point,
64			html => "Time: $time<br/>Validity: $validity</br>Lat: $lat $lat_ns<br/>Lon: $lon $lon_ew<br/>Speed: $speed<br/>Course: $course",
65			) if $validity eq 'A';
66			}
67			}
68			close($fh);
69
70			#$map->zoom(10);
71			#$map->v2_zoom(0);
72			$map->controls("large_map_control", "map_type_control");
73			$map->map_type('hybrid');
74
75			my ($head, $map_div, $map_script) = $map->render;
76
77			print "Content-type: text/html\n\r\n\r";
78			print qq{
79			<html>
80			<title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
81			<head>$head</head>
82			<body>
83			$map_div
84
85			$map_script
86			<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
87			</body>
88			</html>
89			};