#!/usr/bin/perl

use Data::Dumper;

$inBiking = 0;
$inLap = 0;
$inTrack = 0;
$inTrackpoint = 0;

while (<>) {
    chomp();

    if ($inBiking) {
	if ($inLap) {
	    if (/<\/Lap>/) {
		$inLap = 0;
		$lapName = "unknown";

		print(FD "</trkseg></trk></gpx>\n");
		close FD;
		next;
	    }

	    if ($inTrack) {
		if ($inTrackpoint) {
		    if (/<\/Trackpoint>/) {
			$inTrackpoint = 0;

			printf(FD "<trkpt lat=\"%f\" lon=\"%f\"> ", $lat, $lon);
			printf(FD "<ele>%f</ele> ", $alt);
			printf(FD "</trkpt>\n");
			next;
		    }

		    if (/<LatitudeDegrees>(.*)<\/LatitudeDegrees>/) {
			$lat = $1;
			next;
		    }

		    if (/<LongitudeDegrees>(.*)<\/LongitudeDegrees>/) {
			$lon = $1;
			next;
		    }

		    if (/<AltitudeMeters>(.*)<\/AltitudeMeters>/) {
			$alt = $1;
			next;
		    }
		} else {
		    if (/<\/Track/) {
			$inTrack = 0;
			next;
		    }

		    if (/<Trackpoint>/) {
			$inTrackpoint = 1;
			$lat = 0;
			$lon = 0;
			$alt = 0;
			next;
		    }
		}
	    } else {
		if (/<Track/) {
		    $inTrack = 1;
		    next;
		}
	    }
	} else {
	    if (/<Lap StartTime="(.*)"/) {
		$inLap = 1;
		$lapName = $1;

		$lapName =~ s/:/-/g;
		printf("lap = %s\n", $lapName);

		open FD, "> export-GPX-$lapName.gpx" or die "create export-GPX-$lapName";

		print FD <<EOF;
<?xml version="1.0" encoding="ISO-8859-1" ?>
<gpx version="1.1" creator="Star GIS 7.0 - http://www.star.be/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.topografix.com/GPX/1/1" xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd">
<trk>
EOF

;
		print FD "<name>history for $lapName</name>\n";
		print FD "<trkseg>\n";

		next;
	    }
	}
    } else {
	if (/<Biking Name=/) {
	    $inBiking = 1;
	}
    }
}