--- web/googlemap.cgi 2007/12/03 14:25:40 14
+++ web/googlemap.cgi 2007/12/03 14:47:08 15
@@ -26,10 +26,8 @@
print $q->header;
-print qq{
-
-
Read GPS - NMEA sentence and display it on GoogleMaps
-
+my $head = '';
+my $html = join('', qq{
Select GPS NMEA dump
},
$q->start_form,
@@ -45,7 +43,8 @@
],
),
$q->submit( -value => 'Show trace' ),
- $q->end_form;
+ $q->end_form,
+);
if ( my $trace = $q->param('trace') ) {
$trace =~ s/\s.+$//;
@@ -80,18 +79,26 @@
$map->controls("large_map_control", "map_type_control");
$map->map_type('hybrid');
- my ($head, $map_div, $map_script) = $map->render;
+ my ( $map_div, $map_script );
+ ( $head, $map_div, $map_script ) = $map->render;
- print qq{
+ $html .= join('', qq{
Plotting $points points from }, $q->param('trace'), qq{
$map_div
$map_script
GPS - NMEA sentence information
- };
+ });
}
print qq{
+
+
+Read GPS - NMEA sentence and display it on GoogleMaps
+$head
+
+
+$html
};