Net::Flickr::Geo::ModestMaps Net::Flickr::Geo::ModestMaps is a Perl module tools for working with geotagged Flickr photos and Modest Maps.
Download

Net::Flickr::Geo::ModestMaps Ranking & Summary

Net::Flickr::Geo::ModestMaps Tags

Flickr Perl module flickr photos photos Modest Modest Maps

Net::Flickr::Geo::ModestMaps Description

Net::Flickr::Geo::ModestMaps is a Perl module tools for working with geotagged Flickr photos and Modest Maps. Net::Flickr::Geo::ModestMaps is a Perl module with tools for working with geotagged Flickr photos and Modest Maps.SYNOPSIS my %opts = (); getopts('c:s:', %opts); # # Defaults # my $cfg = Config::Simple->new($opts{'c'}); # # Atkinson dithering is hawt but takes a really long # time... # $cfg->param("modestmaps.filter", "atkinson"); $cfg->param("modestmaps.timeout", (45 * 60)); # # Let's say all but one of your photos are in the center of # Paris and the last one is at the airport. If you try to render # a 'poster style' (that is all the tiles for the bounding box # containing those points at street level) map you will make # your computer cry... # $cfg->param("pinwin.skip_photos", ); # # I CAN HAS MAPZ? # my $fl = Net::Flickr::Geo::ModestMaps->new($cfg); $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'info')); my $map_data = $fl->mk_poster_map_for_photoset($opts{'s'}); # # returns stuff like : # # { # 'url' => 'http://127.0.0.1:9999/?provider=YAHOO_AERIAL&marker=yadda yadda yadda', # 'image-height' => '8528', # 'marker-484080715' => '5076,5606,4919,5072,500,375', # 'marker-506435771' => '5256,4768,5099,542,500,375', # 'path' => '/tmp/dkl0o7uxjY.jpg', # 'image-width' => '6656', # } # my $results = $fl->upload_poster_map($map_data->{'path'}); # # returns stuff like : # # , # , # , # # ]; # Requirements: · Perl

Net::Flickr::Geo::ModestMaps Related Software