/usr/share/perl5/Flickr/API/Request.pm is in libflickr-api-perl 1.28-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 | package Flickr::API::Request;
use strict;
use warnings;
use HTTP::Request;
use Net::OAuth;
use URI;
use Encode qw(encode_utf8);
use parent qw(HTTP::Request);
our $VERSION = '1.28';
sub new {
my $class = shift;
my $options = shift;
my $self;
if (($options->{api_type} || '') eq 'oauth') {
$options->{args}->{request_method}='POST';
$options->{args}->{request_url}=$options->{rest_uri};
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
my $orequest;
if (defined($options->{args}->{token})) {
$orequest = Net::OAuth->request('protected resource')->new(%{$options->{args}});
}
else {
$orequest = Net::OAuth->request('consumer')->new(%{$options->{args}});
}
$orequest->sign();
my $h = HTTP::Headers->new;
$h->header('Content-Type' => 'application/x-www-form-urlencoded');
$h->header('Content-Length' => length($orequest->to_post_body));
$self = HTTP::Request->new(
$options->{args}->{request_method},
$options->{rest_uri},
$h,
$orequest->to_post_body());
$self->{api_method} = $options->{method};
$self->{api_type} = $options->{api_type};
$self->{unicode} = $options->{unicode} || 0;
}
else {
$self = HTTP::Request->new;
$self->{api_method} = $options->{method};
$self->{api_type} = $options->{api_type} || 'flickr';
$self->{unicode} = $options->{unicode} || 0;
$self->{api_args} = $options->{args};
$self->{rest_uri} = $options->{rest_uri} || 'https://api.flickr.com/services/rest/';
$self->method('POST');
$self->uri($self->{rest_uri});
}
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::Request - A request to the Flickr API
=head1 SYNOPSIS
=head2 Using the OAuth form:
use Flickr::API;
use Flickr::API::Request;
my $api = Flickr::API->new({'consumer_key' => 'your_api_key'});
my $request = Flickr::API::Request->new({
'method' => $method,
'args' => {},
});
my $response = $api->execute_request($request);
=head2 Using the original Flickr form:
use Flickr::API;
use Flickr::API::Request;
my $api = Flickr::API->new({'key' => 'your_api_key'});
my $request = Flickr::API::Request->new({
'method' => $method,
'args' => {},
});
my $response = $api->execute_request($request);
=head1 DESCRIPTION
This object encapsulates a request to the Flickr API.
C<Flickr::API::Request> is a subclass of L<HTTP::Request>, so you can access
any of the request parameters and tweak them yourself. The content, content-type
header and content-length header are all built from the 'args' list by the
C<Flickr::API::execute_request()> method.
=head1 AUTHOR
Copyright (C) 2004, Cal Henderson, E<lt>cal@iamcal.comE<gt>
OAuth patches and additions
Copyright (C) 2014-2016, Louis B. Moore <lbmoore@cpan.org>
=head1 SEE ALSO
L<Flickr::API>.
L<Net::OAuth>,
=cut
|