#!/usr/bin/perl

print <<EOF;
<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<TrainingCenterDatabase xmlns="http://www.garmin.com/xmlschemas/TrainingCenterDatabase/v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.garmin.com/xmlschemas/TrainingCenterDatabase/v1 http://www.garmin.com/xmlschemas/TrainingCenterDatabasev1.xsd">

  <Courses>
    <CourseFolder Name="Courses">
      <Course>
        <Name>Migniers 1</Name>
        <Track>
EOF
    
$min = 0;
$sec = 0;

while (<>) {
    if (/trkpt lat=\"(.*)\" lon=\"(.*)\"/) {
# 	printf "<Trackpoint>\n <Time>2006-01-01T00:%02d:%02dZ</Time>\n<Position>\n<LatitudeDegrees>%f</LatitudeDegrees> <LongitudeDegrees>%f</LongitudeDegrees>\n</Position>\n<AltitudeMeters>0.0</AltitudeMeters><DistanceMeters>0.0</DistanceMeters><SensorState>Absent</SensorState>\n </Trackpoint>\n", $min, $sec, $1, $2;

	printf "<Trackpoint> <Time>2006-01-01T00:%02d:%02dZ</Time> <Position> <LatitudeDegrees>%f</LatitudeDegrees> <LongitudeDegrees>%f</LongitudeDegrees> </Position> <AltitudeMeters>0.0</AltitudeMeters><DistanceMeters>0.0</DistanceMeters><SensorState>Absent</SensorState> </Trackpoint>", $min, $sec, $1, $2;
       
	$sec++;
	if ($sec == 61) {
	    $min++;
	    $sec=0;
	}
    }
}

print <<EOF;
        </Track>
      </Course>
    </CourseFolder>
  </Courses>
</TrainingCenterDatabase>

EOF