/[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

Annotation of /web/googlemap.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (hide annotations)
Mon Dec 3 14:25:40 2007 UTC (12 years ago) by dpavlin
File size: 1821 byte(s)
- refactored NMEA parsing into own package from web interface
- script which converts NMEA dump to KML for GoogleMaps
1 dpavlin 13 #!/usr/bin/perl
2    
3     use warnings;
4     use strict;
5    
6     use HTML::GoogleMaps;
7 dpavlin 14 use CGI;
8 dpavlin 13 use CGI::Carp qw/fatalsToBrowser/;
9 dpavlin 14 use File::Find;
10 dpavlin 13 use Data::Dump qw/dump/;
11    
12 dpavlin 14 use lib '../';
13     use NMEA;
14    
15     my $trace_path = '/home/dpavlin/x/openmoko/gps/';
16    
17 dpavlin 13 # http://localhost/
18     my $map_key = 'ABQIAAAAVQ5szt9Jd8ws6vgfVQOEmhT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQ1cKf0DwFJcwtpESJEI0hL8QgtYg';
19    
20 dpavlin 14 my @traces;
21     find({ wanted => sub {
22     push @traces, $_ if -f $_;
23     }}, $trace_path);
24 dpavlin 13
25 dpavlin 14 my $q = CGI->new;
26 dpavlin 13
27 dpavlin 14 print $q->header;
28 dpavlin 13
29 dpavlin 14 print qq{
30     <html>
31     <title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
32     <body>
33     <h1>Select GPS NMEA dump</h1>
34     },
35     $q->start_form,
36     $q->popup_menu(
37     -name => 'trace',
38     -values => [
39     map {
40     "$_ (" . (stat("$trace_path/$_"))[7] . " bytes)"
41     }
42     sort {
43     (stat("$trace_path/$a"))[10] <=> (stat("$trace_path/$b"))[10]
44     } @traces
45     ],
46     ),
47     $q->submit( -value => 'Show trace' ),
48     $q->end_form;
49 dpavlin 13
50 dpavlin 14 if ( my $trace = $q->param('trace') ) {
51     $trace =~ s/\s.+$//;
52 dpavlin 13
53 dpavlin 14 my $map = HTML::GoogleMaps->new(key => $map_key);
54     #$map->center(point => "Zagreb, Hrvatska");
55 dpavlin 13
56 dpavlin 14 $trace = "$trace_path/$trace";
57 dpavlin 13
58 dpavlin 14 my $points = 0;
59 dpavlin 13
60 dpavlin 14 open(my $fh, '<', $trace) || die "can't open $trace: $!";
61     while( <$fh> ) {
62 dpavlin 13
63 dpavlin 14 my $hash = NMEA->line( $_ ) || next;
64 dpavlin 13
65 dpavlin 14 $map->add_marker(
66     point => [ $hash->{lon}, $hash->{lat} ],
67     html => join('<br/>',
68     map {
69     ucfirst($_) . ': ' . $hash->{$_}
70     } ( qw/time lat lon speed course/ )
71     ),
72     );
73 dpavlin 13
74 dpavlin 14 $points++;
75     }
76     close($fh);
77 dpavlin 13
78 dpavlin 14 #$map->zoom(10);
79     #$map->v2_zoom(0);
80     $map->controls("large_map_control", "map_type_control");
81     $map->map_type('hybrid');
82 dpavlin 13
83 dpavlin 14 my ($head, $map_div, $map_script) = $map->render;
84 dpavlin 13
85 dpavlin 14 print qq{
86     <h1>Plotting $points points from }, $q->param('trace'), qq{</h1>
87     $map_div
88     $map_script
89     <a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
90     };
91 dpavlin 13
92     }
93    
94     print qq{
95     </body>
96     </html>
97     };

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26