daily pastebin goal
42%
SHARE
TWEET

Untitled

a guest May 16th, 2010 246 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2.  
  3. # uflick.pl - upload to flickr
  4.  
  5. use strict;
  6. use Flickr::Upload;
  7.  
  8. my $auth_token = '123456abc-8907b9';
  9. my $photo = '/home/guest/foto/100NCD40/DSC_0082.JPG';
  10.  
  11. my $flick = Flickr::Upload->new(
  12.         { 'key' => '123456',
  13.           'secret' => '7890123'
  14.         }
  15. );
  16.  
  17. $flick->upload(
  18.         'photo' => $photo,
  19.         'auth_token' => $auth_token,
  20.         'tags' => 'simpleuploader',
  21.         'is_public' => 0,
  22.         'is_friend' => 0,
  23.         'is_family' => 0
  24. ) or die "Failed to open $photo.";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top