Dump Garmin XML

DumpGarmin.pl

#!/usr/bin/env perl

my $date = `date "+%m%d%y"`;
chomp($date);
my $tmpfile = "/tmp/GRMN_".$date.".xml.tmp";
my $file = "$ENV{HOME}/Documents/GRMN_logs/GRMN_".$date.".xml";

print "Reading from GPS...\n";
system("/Library/MotionBased/GpstoMb Xml=true GzipBase64=false > $tmpfile 2> /dev/null");

open(FILE, "<$tmpfile") or die("Cannot open $tmpfile for reading");
open(OUTFILE, ">$file") or die("Cannot open $file for writing");

my $print = 0;
while(<FILE>)
{
    my $line = $_;

    if($line =~ /^<\?xml version/)
    {
        $print = 1;
    }

    print OUTFILE $line if $print == 1;

    if($line =~ /^<\/TrainingCenterDatabase>/)
    {
        $print = 0;
    }
}

close(FILE);
close(OUTFILE);

unlink($tmpfile);

system("/usr/bin/gzip $file");

print "Results in: $file.gz\n";