--- bin/nmea2kml.pl	2007/12/03 19:16:55	19
+++ bin/nmea2kml.pl	2007/12/03 20:52:33	20
@@ -10,9 +10,17 @@
 
 my $path = shift @ARGV || die "usage: $0 nmea_dump.gps\n";
 
+my $individual_placemarks = 0;
+
 open(my $fh, '<', $path) || die "can't open $path: $!";
 
-print qq{<?xml version="1.0" encoding="UTF-8"?>
+my $out_path = $path;
+$out_path =~ s!^.*?([^/]+)\.[^/]+$!$1!;	#!
+$out_path .= '.kml';
+
+open(my $out, '>', $out_path) || die "can't open $out_path: $!";
+
+print $out qq{<?xml version="1.0" encoding="UTF-8"?>
 <kml xmlns="http://earth.google.com/kml/2.2">
 <Document>
 	<name>$path</name>
@@ -20,6 +28,14 @@
 		<name>NMEA trace</name>
 };
 
+print $out qq{
+		<Placemark id='linestring1'>
+			<name>$path</name>
+			<LineString>
+			<extrude>1</extrude>
+			<altitudeMode>relativeToGround</altitudeMode>
+			<coordinates>
+} unless $individual_placemarks;
 
 my $point = 0;
 
@@ -28,23 +44,35 @@
 
 	$point++;
 
-	print qq{
-	<Placemark>
-		<name>$point</name>
-		<description>
-	}, join(' ', map { ucfirst($_) . ':' . $hash->{$_} } ( qw/time lat lon speed course date var var_ew/ ) ), qq{
-		</description>
-		<Point>
-			<coordinates>}, $hash->{lon}, ',', $hash->{lat}, qq{,0</coordinates>
-		</Point>
-	</Placemark>
-	};
+	if ( $individual_placemarks ) {
+
+		print $out qq{
+		<Placemark>
+			<name>$point</name>
+			<description>
+		}, join(' ', map { ucfirst($_) . ':' . $hash->{$_} } ( qw/time lat lon speed course date var var_ew/ ) ), qq{
+			</description>
+			<Point>
+				<coordinates>}, $hash->{lon}, ',', $hash->{lat}, qq{,0</coordinates>
+			</Point>
+		</Placemark>
+		};
+
+	} else {
+		print $out $hash->{lon}, ',', $hash->{lat}, 0, "\n";
+	}
 }
 
-print qq{
+print $out qq{
+			</coordinates>
+			</LineString>
+		</Placemark>
+} unless $individual_placemarks;
+
+print $out qq{
 	</Folder>
 </Document>
 </kml>
 };
 
-warn "Produced $point points from $path\n";
+warn "Produced $point points from $path -> $out_path\n";