maps/web/googlemap.cgi

#!/usr/bin/perl

use warnings;
use strict;

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

use lib '../';
use NMEA;

my $trace_path = '/home/dpavlin/x/openmoko/gps/';

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

my @traces;
find({ wanted => sub {
        push @traces, $_ if -f $_;
}}, $trace_path);

my $q = CGI->new;

print $q->header;

my $head = '';
my $html = join('', qq{
<h1>Select GPS NMEA dump</h1>
        },
        $q->start_form( -id => 'trace_frm' ),
        $q->popup_menu(
                -name => 'trace', 
                -values => [
                        map {
                                "$_ (" . (stat("$trace_path/$_"))[7] . " bytes)"
                        }
                        sort {
                                (stat("$trace_path/$a"))[10] <=> (stat("$trace_path/$b"))[10]
                        } @traces
                ],
                -onChange => 'trace_frm.submit()',
        ),
        $q->submit( -value => 'Show trace' ),
        $q->br,
        'Draw as ',
        $q->checkbox(
                -name => 'line',
                -onChange => 'trace_frm.submit()',
        ),
        ' with every ',
        $q->textfield(
                -name => 'nth_placemark',
                -value => 5,
                -size => 2,
                -onChange => 'trace_frm.submit()',
        ),
        '<sup>th</sup> placemark',
        $q->end_form,
);


my @points;
my $center_point;

if ( my $trace = $q->param('trace') ) {
        $trace =~ s/\s.+$//;

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

        $trace = "$trace_path/$trace";

        my $points = 0;
        my $nth_placemark = $q->param('nth_placemark');

        open(my $fh, '<', $trace) || die "can't open $trace: $!";
        while( <$fh> ) {

                my $hash = NMEA->line( $_ ) || next;

                my $point = [ $hash->{lon}, $hash->{lat} ];
                $center_point ||= $point;


                if ( $q->param('line') ) {
                        push @points, $point;
                }

                if ( ! $q->param('line') ||
                        $nth_placemark && $points % $nth_placemark == 0
                ) {

                        $map->add_marker(
                                point => $point,
                                html => join('<br/>',
                                        map {
                                                ucfirst($_) . ': ' . $hash->{$_}
                                        } ( qw/time lat lon speed course/ )
                                ),
                        );

                }

                $points++;

        }
        close($fh);

        if ( $points > 0 ) {

                #$map->zoom(10);
                #$map->v2_zoom(0);
                $map->controls("large_map_control", "map_type_control");
                $map->map_type('hybrid');
                $map->center( $center_point ) if $q->param('line') && $center_point;

                if ( $q->param('line') ) {
                        warn "## points = ",dump( @points );
                        $map->add_polyline( points => [ @points ] );
                }

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

                $html .= join('', qq{
<h1>Plotting $points points from }, $q->param('trace'), qq{</h1>
$map_div
$map_script
<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
                });
        
        } else {
                $html .= '<em>No points found for ' . $q->param('trace') . '</em>';
        }

}

print qq{
<html>
<head>
<title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
$head
</head>
<body>
$html
</body>
</html>
};
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use HTML::GoogleMaps;
7	use CGI;
8	use CGI::Carp qw/fatalsToBrowser/;
9	use File::Find;
10	use Data::Dump qw/dump/;
11
12	use lib '../';
13	use NMEA;
14
15	my $trace_path = '/home/dpavlin/x/openmoko/gps/';
16
17	# http://localhost/
18	my $map_key = 'ABQIAAAAVQ5szt9Jd8ws6vgfVQOEmhT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQ1cKf0DwFJcwtpESJEI0hL8QgtYg';
19
20	my @traces;
21	find({ wanted => sub {
22	push @traces, $_ if -f $_;
23	}}, $trace_path);
24
25	my $q = CGI->new;
26
27	print $q->header;
28
29	my $head = '';
30	my $html = join('', qq{
31	<h1>Select GPS NMEA dump</h1>
32	},
33	$q->start_form( -id => 'trace_frm' ),
34	$q->popup_menu(
35	-name => 'trace',
36	-values => [
37	map {
38	"$_ (" . (stat("$trace_path/$_"))[7] . " bytes)"
39	}
40	sort {
41	(stat("$trace_path/$a"))[10] <=> (stat("$trace_path/$b"))[10]
42	} @traces
43	],
44	-onChange => 'trace_frm.submit()',
45	),
46	$q->submit( -value => 'Show trace' ),
47	$q->br,
48	'Draw as ',
49	$q->checkbox(
50	-name => 'line',
51	-onChange => 'trace_frm.submit()',
52	),
53	' with every ',
54	$q->textfield(
55	-name => 'nth_placemark',
56	-value => 5,
57	-size => 2,
58	-onChange => 'trace_frm.submit()',
59	),
60	'<sup>th</sup> placemark',
61	$q->end_form,
62	);
63
64
65	my @points;
66	my $center_point;
67
68	if ( my $trace = $q->param('trace') ) {
69	$trace =~ s/\s.+$//;
70
71	my $map = HTML::GoogleMaps->new(key => $map_key);
72	#$map->center(point => "Zagreb, Hrvatska");
73
74	$trace = "$trace_path/$trace";
75
76	my $points = 0;
77	my $nth_placemark = $q->param('nth_placemark');
78
79	open(my $fh, '<', $trace) \|\| die "can't open $trace: $!";
80	while( <$fh> ) {
81
82	my $hash = NMEA->line( $_ ) \|\| next;
83
84	my $point = [ $hash->{lon}, $hash->{lat} ];
85	$center_point \|\|= $point;
86
87
88	if ( $q->param('line') ) {
89	push @points, $point;
90	}
91
92	if ( ! $q->param('line') \|\|
93	$nth_placemark && $points % $nth_placemark == 0
94	) {
95
96	$map->add_marker(
97	point => $point,
98	html => join('<br/>',
99	map {
100	ucfirst($_) . ': ' . $hash->{$_}
101	} ( qw/time lat lon speed course/ )
102	),
103	);
104
105	}
106
107	$points++;
108
109	}
110	close($fh);
111
112	if ( $points > 0 ) {
113
114	#$map->zoom(10);
115	#$map->v2_zoom(0);
116	$map->controls("large_map_control", "map_type_control");
117	$map->map_type('hybrid');
118	$map->center( $center_point ) if $q->param('line') && $center_point;
119
120	if ( $q->param('line') ) {
121	warn "## points = ",dump( @points );
122	$map->add_polyline( points => [ @points ] );
123	}
124
125	my ( $map_div, $map_script );
126	( $head, $map_div, $map_script ) = $map->render;
127
128	$html .= join('', qq{
129	<h1>Plotting $points points from }, $q->param('trace'), qq{</h1>
130	$map_div
131	$map_script
132	<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
133	});
134
135	} else {
136	$html .= '<em>No points found for ' . $q->param('trace') . '</em>';
137	}
138
139	}
140
141	print qq{
142	<html>
143	<head>
144	<title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
145	$head
146	</head>
147	<body>
148	$html
149	</body>
150	</html>
151	};