#!/usr/bin/perl --

use POSIX qw(strftime);
use Time::Local;

$filename = $ARGV[0];

open FILE, $filename;

while (<FILE>) {
	$str .= $_;
}
close(FILE);

@records = split /\n/, $str;

print <<END_HEADER;
<?xml version="1.0" standalone="yes"?>
<gpx creator="Trackstick to GPX Tracks http://blog.puzzlebox.co.uk/" version="1.0" xmlns="http://www.topografix.com/GPX/1/0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.topografix.com/GPX/1/0 http://www.topografix.com/GPX/1/0/gpx.xsd">
  <trk>
    <name>Converted Trackstick</name>
    <trkseg>
END_HEADER


foreach $r(@records) {
#Record, Date, Time, Latitude, Longitude, Altitude, Status, Course, GPS Fix, Signal, MapLink, Name
 @f = split /,/, $r;
 my $lat = $f[3];
 my $lon = $f[4];
 $time = $f[1]. $f[2];
 
 
 if ($time =~ /(\d\d)\/(\d\d)\/(\d\d\d\d) (\d\d):(\d\d) (PM|AM)/) {
 my $shiftHours = 0;
 
 
 if ($6 eq "PM") {
	$shiftHours = 12;
 } else {
	$shiftHours = 0;
 }
 
 $timestamp = timelocal (0, $5, $4 + $shiftHours, $2, $1, $3);
 
 $time = strftime "%Y-%m-%dT%H:%M:%SZ", gmtime($timestamp);
 
 print <<END_PART;
      <trkpt lat="$lat" lon="$lon">
        <time>$time</time>
        <speed>0.00</speed>
      </trkpt>
END_PART
 

 }
 
}

print <<END_FOOTER;

    </trkseg>
  </trk>
</gpx>

END_FOOTER

exit;