/[maps]/web/googlemap.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /web/googlemap.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 13 - (show annotations)
Sun Dec 2 19:05:29 2007 UTC (11 years, 5 months ago) by dpavlin
File size: 1897 byte(s)
A quick hack to display NMEA GPS data dump on GoogleMaps
1 #!/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 };

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26