Index of /perl/net/flickr/geo

Icon  Name                    Last modified      Size  Description
[PARENTDIR] Parent Directory - [   ] Changes 2008-11-22 11:17 8.2K [   ] Net-Flickr-Geo-0.1.t..> 2008-11-22 11:17 13K GZIP compressed docume> [   ] Net-Flickr-Geo-0.2.t..> 2008-11-22 11:17 14K GZIP compressed docume> [   ] Net-Flickr-Geo-0.3.t..> 2008-11-22 11:17 15K GZIP compressed docume> [   ] Net-Flickr-Geo-0.4.t..> 2008-11-22 11:17 16K GZIP compressed docume> [   ] Net-Flickr-Geo-0.5.t..> 2008-11-22 11:17 21K GZIP compressed docume> [   ] Net-Flickr-Geo-0.6.t..> 2008-11-22 11:17 23K GZIP compressed docume> [   ] Net-Flickr-Geo-0.65...> 2008-11-22 11:17 23K GZIP compressed docume> [   ] Net-Flickr-Geo-0.7.t..> 2008-11-22 11:17 33K GZIP compressed docume> [   ] Net-Flickr-Geo-0.71...> 2008-11-22 11:17 33K GZIP compressed docume> [   ] Net-Flickr-Geo-0.711..> 2008-11-22 11:17 33K GZIP compressed docume> [   ] Net-Flickr-Geo-0.72...> 2008-11-22 11:17 34K GZIP compressed docume>
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]");
     }

  Google Maps
    Fetch maps using the Google Maps Static Maps API :

     #
     # Simple
     #

     my %opts = ();
     getopts('c:i:', \%opts);

     my $cfg = Config::Simple->new($opts{'c'});

     my $fl = Net::Flickr::Geo::GoogleMaps->new($cfg);
     $fl->log()->add(Log::Dispatch::Screen->new('name' => 'scr', min_level => 'debug'));

     $cfg->param("google.map_type", "mobile");

     my $map = $fl->mk_pinwin_map_for_photo($opts{'i'});
     $fl->log()->info("wrote map to $map->[0]->[0]");

  MultiMaps
    Fetch maps using the MultiMap Static Maps API :

     #
     # Simple
     #

     my %opts = ();
     getopts('c:i:', \%opts);

     my $cfg = Config::Simple->new($opts{'c'});

     my $fl = Net::Flickr::Geo::MultiMaps->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]");

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.72

DATE
    $Date: 2008/08/03 17:08:39 $

AUTHOR
    Aaron Straup Cope <ascope@cpan.org>

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://www.multimap.com/share/documentation/openapi/1.2/web_service/sta
    ticmaps.htm>

    <http://code.google.com/apis/maps/documentation/staticmaps/index.html>

    <http://modestmaps.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.