26 |
|
|
27 |
print $q->header; |
print $q->header; |
28 |
|
|
29 |
print qq{ |
my $head = ''; |
30 |
<html> |
my $html = join('', qq{ |
|
<title>Read GPS - NMEA sentence and display it on GoogleMaps</title> |
|
|
<body> |
|
31 |
<h1>Select GPS NMEA dump</h1> |
<h1>Select GPS NMEA dump</h1> |
32 |
}, |
}, |
33 |
$q->start_form, |
$q->start_form, |
43 |
], |
], |
44 |
), |
), |
45 |
$q->submit( -value => 'Show trace' ), |
$q->submit( -value => 'Show trace' ), |
46 |
$q->end_form; |
$q->end_form, |
47 |
|
); |
48 |
|
|
49 |
if ( my $trace = $q->param('trace') ) { |
if ( my $trace = $q->param('trace') ) { |
50 |
$trace =~ s/\s.+$//; |
$trace =~ s/\s.+$//; |
79 |
$map->controls("large_map_control", "map_type_control"); |
$map->controls("large_map_control", "map_type_control"); |
80 |
$map->map_type('hybrid'); |
$map->map_type('hybrid'); |
81 |
|
|
82 |
my ($head, $map_div, $map_script) = $map->render; |
my ( $map_div, $map_script ); |
83 |
|
( $head, $map_div, $map_script ) = $map->render; |
84 |
|
|
85 |
print qq{ |
$html .= join('', qq{ |
86 |
<h1>Plotting $points points from }, $q->param('trace'), qq{</h1> |
<h1>Plotting $points points from }, $q->param('trace'), qq{</h1> |
87 |
$map_div |
$map_div |
88 |
$map_script |
$map_script |
89 |
<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a> |
<a href="http://aprs.gids.nl/nmea/">GPS - NMEA sentence information</a> |
90 |
}; |
}); |
91 |
|
|
92 |
} |
} |
93 |
|
|
94 |
print qq{ |
print qq{ |
95 |
|
<html> |
96 |
|
<head> |
97 |
|
<title>Read GPS - NMEA sentence and display it on GoogleMaps</title> |
98 |
|
$head |
99 |
|
</head> |
100 |
|
<body> |
101 |
|
$html |
102 |
</body> |
</body> |
103 |
</html> |
</html> |
104 |
}; |
}; |