9b04d152845ec0a378394003c96da594

View file

File name : Upload.pm

Content :

package Flickr::API::Upload;

use strict;
use warnings;
use HTTP::Request::Common;
use Net::OAuth;
use URI;
use Carp;
use Digest::MD5 qw(md5_hex);
use Encode qw(encode_utf8);

use parent qw(HTTP::Request);

our $VERSION = '1.28';


sub new {

    my ($class, $args) = @_;
    my $self;

    my @params = (
        "title",
        "description",
        "tags",
        "is_public",
        "is_friend",
        "is_family",
        "safety_level",
        "content_type",
        "hidden"
    );

    my $photo = {};

    unless ( -f $args->{photo}->{photo} &&  -r $args->{photo}->{photo} ) {

        carp "\nPhoto: ",$args->{photo}->{photo},", is not a readable file.\n";
        return;

    }

    #
    # make hashref of valid arguments for an upload, ignore extraneous
    #
    $photo->{photo} = $args->{photo}->{photo};
    $photo->{async} = $args->{photo}->{async}  || '0';

    for my $param (@params) {

        if (defined($args->{photo}->{$param})) { $photo->{$param} = $args->{photo}->{$param}; }

    }

    chomp $photo->{'description'};
    delete($args->{photo});

    $args->{api}->{request_method} = 'POST'; # required to be POST

    if (($args->{api_type} || '') eq 'oauth') {

        $args->{api}->{extra_params} = $photo;

        $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;

        my $orequest = Net::OAuth->request('protected resource')->new(%{$args->{api}});
        $orequest->sign();

        my $buzo = $orequest->to_hash();

        my @msgarr;

        for my $param (sort keys %{$buzo}) {
            push(@msgarr,$param);
            push(@msgarr,$buzo->{$param});
        }

        push(@msgarr,'photo');
        push(@msgarr, [$photo->{photo}]);

        $self = POST $args->{api}->{request_url},
            'Content-Type' => 'form-data',
            'Content'      => \@msgarr;



    } # if oauth
    else {

        my $pixfile =  $photo->{photo};
        delete  $photo->{photo};

        $photo->{api_key} = $args->{api}->{api_key};
        $photo->{auth_token}   = $args->{api}->{token};
        my $sig           = $args->{api}->{api_secret};

        foreach my $key (sort {$a cmp $b} keys %{$photo}) {

            my $value = (defined($photo->{$key})) ? $photo->{$key} : "";
            $sig .= $key . $value;
        }

        if ($args->{api}->{unicode}) {

            $photo->{api_sig} =  md5_hex(encode_utf8($sig));

        }
        else {

            $photo->{api_sig} = md5_hex($sig);
        }

        my @msgarr;


        for my $param (sort keys %{$photo}) {
            push(@msgarr,$param);
            push(@msgarr,$photo->{$param});
        }
        push(@msgarr,'photo');
        push(@msgarr, [$pixfile]);

        $self = POST $args->{api}->{request_url},
            'Content-Type' => 'form-data',
            'Content'      => \@msgarr;

    } # else i'm flickr

    bless $self, $class;

    return $self;

}



sub encode_args {
    my ($self) = @_;

    my $content;
    my $url = URI->new('https:');

    if ($self->{unicode}){
        for my $k(keys %{$self->{api_args}}){
            $self->{api_args}->{$k} = encode_utf8($self->{api_args}->{$k});
        }
    }
    $url->query_form(%{$self->{api_args}});
    $content = $url->query;


    $self->header('Content-Type' => 'application/x-www-form-urlencoded');
    if (defined($content)) {
        $self->header('Content-Length' => length($content));
        $self->content($content);
    }
    return;
}

1;

__END__

=head1 NAME

Flickr::API::Upload - An upload via the Flickr API

=head1 SYNOPSIS

=head2 Using the OAuth form:

  use Flickr::API;
  use Flickr::API::Upload;

  my $api = Flickr::API->import_storable_config($config_file);

  my $response = Flickr::API->upload({
               'photo'       => 'path/to/photo,
                'async'       => 0,
                'title'       => 'My vacation picture',
                'description' => 'Here I am, riding a horse',
  });



=head1 DESCRIPTION

This modules does most of the work for the upload method in Flickr::API.


=head1 AUTHOR

Copyright (C) 2016, Louis B. Moore <lbmoore@cpan.org>

=head1 SEE ALSO

L<Flickr::API>.
L<Net::OAuth>,

=cut

Dalgety Marketing Solutions

Marketing Strategy

Meet Eva

Hello & Welcome, my name is

Eva Dalgety

Your Ecom Genie!

I’m the owner of www.evadalgety.com. I specialise in helping small businesses and entrepreneurs unlock online profits in their business.

Learn More

My Journey

Podcast Interview

With 10 years plus experience as a corporate IT analyst and linking advance online marketing skills, I now help my clients to increase their business profits. For example, in the last 5 years alone I have increased the sales and profits for family’s tea business by over 317% online just by utilising these strategies. I have also helped other clients do the same.

My consulting clients range from ecommerce businesses, manufacturing businesses, professional services and charities. Currently many small businesses are losing enquires and sales because of ineffective processes. Using my proven 3-step process, I help their business to implement processes to win more clients/customers, generate more sales and increase their profits.

If you know a business or an individual who could benefit from my help, enter your name and email address on this page to get my free report ”The 5 Deadly Mistakes That Are Costing Your Business Thousands In Lost Sales Right Now And How To Avoid Them – Guaranteed!” and learn quick easy ways to improve your bottom line.

My programmes

Like what you’ve seen so far?

Let’s Talk!

Click here

Gel4y Mini Shell