#!/usr/bin/perl -w
use Image::ExifTool qw(ImageInfo);

my $imagepath = "http://www.whatever.com/something/";
my $thumbpath = $imagepath . "thumbs/";

my @ioTagList = qw(GPSLatitudeRef GPSLatitude GPSLongitudeRef GPSLongitude GPSAltitude GPSAltitudeRef);

print "type,name,lat,lon,alt,thumbnail,url\n";

my @files = glob("*.jpg");

foreach my $filename (@files)
{
	my $info = ImageInfo($filename, \@ioTagList, {CoordFormat => '%.8f'});

	my $lng = $$info{'GPSLongitude'};
	my $lngref = $$info{'GPSLongitudeRef'};
	if (lc($lngref) eq "west") {
		$lng = -$lng;
	}

	my $lat = $$info{'GPSLatitude'};
	my $latref = $$info{'GPSLatitudeRef'};
	if (lc($latref) eq "south") {
		$lat = -$lat;
	}

	my $alt = $$info{'GPSAltitude'};
	$alt =~ s/\s+metres$//;

	print "W,,$lat,$lng,$alt,${thumbpath}$filename,${imagepath}$filename\n";
}