#!/usr/bin/perl
# Output the Garmin Training Center v2 Schema (for 3.2.0 version of software)
# from an input GPX file
#

my $file = getOpenFile("GPX File", ".gpx");
if ( $file eq "" ) { exit; }


my $outfile = $file;
$outfile =~ s/\.[^\.]*$/.tcx/i;

open (IN, $file ) or windie("Unable to open $file");
if ( -e $outfile ) 
{ 
   my $rsp = Win32::MsgBox("Output file \"$outfile\" already exists.  Overwrite?", 32 + 4, "File Exists");
      if ( $rsp != 6 ) { exit; }
}
open (OUT, ">$outfile");

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

  <Folders>
    <Courses>
      <CourseFolder Name="Courses">
        <CourseNameRef>
          <Id>New Course</Id>
        </CourseNameRef>
      </CourseFolder>
    </Courses>
  </Folders>

  <Courses>
    <Course>
      <Name>New Course</Name>
      <Track>

EOF
    
$min = 0;
$sec = 0;

while (<IN>) {
   #if (/trkpt lat=\"(.*)\" lon=\"(.*)\"/) {
    if (/(trkpt|rtept) lat=\"(.*)\" lon=\"(.*)\"/) {
	printf OUT "<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 OUT <<EOF;
        </Track>
      </Course>
  </Courses>
</TrainingCenterDatabase>

EOF


close (OUT);
close (IN);


sub getOpenFile
{
   use Tk;
   my ($defExtType, $defExt, $startDir) = @_;
   # Set up the display window
   $mw = MainWindow->new();
   $mw->title("");
   $mw->iconify();


   my $types = [
      [$defExtType,  [$defExt]  ],
      ['All Files',         ['*']]
   ];

   my $filename = $mw->getOpenFile(-defaultextension=>"*",
                                   -filetypes=> $types,
                                   -initialdir => $startDir,
                                   -title => "Select Input File");
   $mw->destroy();
   return $filename;                               
}