Flickr::Upload - Upload images to flickr.com
use LWP::UserAgent; use Flickr::Upload qw(upload); my $ua = LWP::UserAgent->new; upload( $ua, 'photo' => '/tmp/image.jpg', 'email' => 'firstname.lastname@example.org', 'password' => 'pr1vat3', 'tags' => 'me myself eye', 'is_public' => 1, 'is_friend' => 1, 'is_family' => 1 ) or die "Failed to upload /tmp/image.jpg";
Upload an image to flickr.com.
upload( $ua, 'photo' => '/tmp/image.jpg', 'email' => 'email@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
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 non-zero on success,
undef on failure.
Christophe Beauregard, firstname.lastname@example.org
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.