document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  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.";
');