NAME

Flickr::Upload - Upload images to flickr.com

SYNOPSIS

        use LWP::UserAgent;
        use Flickr::Upload qw(upload);

        my $ua = LWP::UserAgent->new;
        upload(
                $ua,
                'photo' => '/tmp/image.jpg',
                'email' => 'self@example.com',
                'password' => 'pr1vat3',
                'tags' => 'me myself eye',
                'is_public' => 1,
                'is_friend' => 1,
                'is_family' => 1
        ) or die "Failed to upload /tmp/image.jpg";

DESCRIPTION

Upload an image to flickr.com.

FUNCTIONS

upload

        my $photoid = upload(
                $ua,
                'photo' => '/tmp/image.jpg',
                'email' => 'self@example.com',
                'password' => 'pr1vat3',
                'tags' => 'me myself eye',
                'is_public' => 1,
                'is_friend' => 1,
                'is_family' => 1
        );

Taking a LWP::UserAgent as an argument ($ua), this is basically a direct interface to the Flickr Photo Upload API. Required parameters are photo, email, and password. uri may be provided if you don't want to use the default, http://www.flickr.com/tools/uploader_go.gne (i.e. you have a custom server running somewhere that supports the API).

Returns the resulting identifier of the uploaded photo on success, undef on failure. According to the API documentation, after an upload the user should be directed to the page http://www.flickr.com/tools/uploader_edit.gne?ids=$photoid.

SEE ALSO

http://flickr.com/services/api/.

AUTHOR

Christophe Beauregard, cpb@cpan.org

COPYRIGHT AND LICENSE

This module is not an official Flickr.com (or Ludicorp) service. I'm sure if they knew about it they could suggest some additional words saying just how little they're responsible for anything that might go wrong with this code.

Copyright (C) 2004 by Christophe Beauregard

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.