#!/usr/bin/perl -w
# Copywrite Lincoln W. Kliman, www.jbadger.org 2002

# usage:
#	gpx2links somefile.gpx > somefile.bat
#	somefile.bat


use strict;
use XML::DOM;
use POSIX;

my $file = $ARGV[0];
my $parser = XML::DOM::Parser->new();

my $doc = $parser->parsefile($file);

print "\@echo off\n";

my $count = 0;

foreach my $waypoint ($doc->getElementsByTagName('wpt')){
    $count++;
    if ($count > 10){
    	$count = 0;
        print "pause\n";
    }

    print "rem ",  floor( $waypoint -> getAttribute('lat'));
    print " ", $waypoint->getElementsByTagName('name')-> item(0) -> getFirstChild->getNodeValue,"\n";
    print "start /b rundll32 MSHTML.DLL,PrintHTML \"";
    print $waypoint->getElementsByTagName('url')-> item(0) -> getFirstChild->getNodeValue;
    print "&pf=y&log=n&decrypt= \n";
}