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->end_form,
);

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;

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

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

                $map->add_marker(
                        point => [ $hash->{lon}, $hash->{lat} ],
                        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');

                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	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	15	my $head = '';
30			my $html = join('', qq{
31	dpavlin	14	<h1>Select GPS NMEA dump</h1>
32			},
33	dpavlin	19	$q->start_form( -id => 'trace_frm' ),
34	dpavlin	14	$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	dpavlin	19	-onChange => 'trace_frm.submit()',
45	dpavlin	14	),
46			$q->submit( -value => 'Show trace' ),
47	dpavlin	15	$q->end_form,
48			);
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	18	if ( $points > 0 ) {
79	dpavlin	13
80	dpavlin	18	#$map->zoom(10);
81			#$map->v2_zoom(0);
82			$map->controls("large_map_control", "map_type_control");
83			$map->map_type('hybrid');
84	dpavlin	13
85	dpavlin	18	my ( $map_div, $map_script );
86			( $head, $map_div, $map_script ) = $map->render;
87
88			$html .= join('', qq{
89	dpavlin	14	<h1>Plotting $points points from }, $q->param('trace'), qq{</h1>
90			$map_div
91			$map_script
92			<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a>
93	dpavlin	18	});
94
95			} else {
96			$html .= '<em>No points found for ' . $q->param('trace') . '</em>';
97			}
98	dpavlin	13
99			}
100
101			print qq{
102	dpavlin	15	<html>
103			<head>
104			<title>Read GPS - NMEA sentence and display it on GoogleMaps</title>
105			$head
106			</head>
107			<body>
108			$html
109	dpavlin	13	</body>
110			</html>
111			};