NAME Net::Flickr::Geo - tools for working with geotagged Flickr photos SYNOPSIS There is no synopsis. There is only documentation for provider specific packages. Okay, I lied. There's a little bit below. But really, please consult provider specific packaged for details. DESCRIPTION Tools for working with geotagged Flickr photos. PROVIDERS ModestMaps Fetch maps using the Modest Maps ws-pinwin HTTP interface : # # Simple # my %opts = (); getopts('c:i:', \%opts); my $cfg = Config::Simple->new($opts{'c'}); $cfg->param("pinwin.photo_size", "Medium"); $cfg->param("modestmaps.filter", "atkinson"); $cfg->param("pinwin.upload", 1); my $fl = Net::Flickr::Geo::ModestMaps->new($cfg); $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'debug')); my $map = $fl->mk_pinwin_map_for_photo($opts{'i'}); $fl->log()->info("wrote map to $map->[0]->[0]"); # # Fancy # my %opts = (); getopts('c:s:', \%opts); my $cfg = Config::Simple->new($opts{'c'}); my $fl = Net::Flickr::Geo::ModestMaps->new($cfg); $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'info')); my $data = $fl->mk_poster_map_for_photoset($opts{'s'}); $fl->log()->info(Dumper($data)); my $tiles = $fl->upload_poster_map($data->{'path'}); $fl->log()->info(Dumper($tiles)); YahooMaps Fetch maps using the Yahoo! Maps Image API : # # Simple # my %opts = (); getopts('c:i:', \%opts); my $cfg = Config::Simple->new($opts{'c'}); my $fl = Net::Flickr::Geo::YahooMaps->new($cfg); $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'debug')); my $map = $fl->mk_pinwin_map_for_photo($opts{'i'}); $fl->log()->info("wrote map to $map->[0]->[0]"); # # Handy # my %opts = (); getopts('c:s:', \%opts); my $cfg = Config::Simple->new($opts{'c'}); my $fl = Net::Flickr::Geo::YahooMaps->new($cfg); $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'debug')); my $map = $fl->mk_pinwin_maps_for_photoset($opts{'s'}); foreach my $data (@$map){ $fl->log()->info("wrote image/map to $data->[0]"); } IMPORTANT Versions 0.5 and higher are, essentially, not even a little bit backwards compatible. Please adjust your code and expectations accordingly. It shouldn't happen again... VERSION 0.5 DATE $Date: 2008/01/27 21:52:48 $ AUTHOR Aaron Straup Cope NOTES All uploads to Flickr are marked with a content-type of "other". SEE ALSO Net::Flickr::API http://developer.yahoo.com/maps/rest/V1/mapImage.html http://modestmaps.mapstraction.com/ http://mike.teczno.com/notes/oakland-crime-maps/IX.html http://www.aaronland.info/weblog/2007/07/28/trees/#delmaps_pm http://www.aaronland.info/weblog/2007/06/08/pynchonite/#net-flickr-geo http://www.aaronland.info/weblog/2007/06/08/pynchonite/#nfg_mm http://flickr.com/photos/straup/sets/72157600321286227/ http://www.flickr.com/help/filters/ BUGS Sure, why not. Please report all bugs via http://rt.cpan.org LICENSE Copyright (c) 2007-2008 Aaron Straup Cope. All Rights Reserved. This is free software. You may redistribute it and/or modify it under the same terms as Perl itself.