=head1 DESCRIPTION

Converts waypoints to topozone.com URLs.
By default, the waypoints are in the DATA section of this script;
use the -i option to read them from standard input.

=cut

$stdin = (@ARGV+0 && $ARGV[0] eq '-i');
$fh = ($stdin ? *STDIN : *DATA);

while (<$fh>) {
	chomp;
	next if /^#/;
	next if /^\s*$/;
	@ff = split /\s+/;
	printf(
		"%s  http://www.topozone.com/map.asp?lat=%s&lon=%s&datum=NAD83&u=5\n"
		,$ff[0],$ff[1],$ff[2]
		);
}

__DATA__
# Format: DDD 1 WGS 84
001	40.25647	-140.83516
002	40.25939	-140.83474
003	40.26078	-140.83393
004	40.26323	-140.82140
005	40.26465	-140.82774