استرداد جهات الاتصال من Net::OAuth::Simple make_restricted_request
-
23-12-2019 - |
سؤال
أنا قادر على الحصول على الرموز المميزة وحتى الحصول على نتائج من make_restricted_request ولكن لا يمكنني تفسير النتائج.جميعهم مثل 13t01: 26: 56.834zhttp: //www.google.com/m8/feeds/contacts/useremail/base/12010-01--
ومع ذلك، يبدو أنها نتائج فعلية، فهناك بالضبط عدد من النتائج مثل قيمة "النتائج القصوى" التي أقدمها في الطلب أدناه.
package Net::AppThatUsesOAuth;
use strict;
use base qw(Net::OAuth::Simple);
sub new {
my $class = shift;
my %tokens = @_;
return $class->SUPER::new( tokens => \%tokens,
protocol_version => '1.0a',
urls => {
request_token_url => "https://www.google.com/accounts/OAuthGetRequestToken?scope=https://www.google.com/m8/feeds/",
authorization_url => "https://www.google.com/accounts/OAuthAuthorizeToken",
access_token_url => "https://www.google.com/accounts/OAuthGetAccessToken",
});
}
sub view_restricted_resource {
my $self = shift;
my $url= 'https://www.google.com/m8/feeds/contacts/default/full' ;
return $self->make_restricted_request($url, 'GET', 'max-results' => 100 );
}
package main;
use CGI;
use Data::Dumper;
my $cgi = new CGI;
print $cgi->header(-charset => 'utf-8');
my $app = Net::AppThatUsesOAuth->new(%tokens);
if ($app->authorized) {
my $response = $app->view_restricted_resource;
print "Restricted resource = ".(Dumper $response)."\n";
}
exit;
الإخراج (100 صف) مثل:
$ var1 = bisor ({'_protocol' => 'http/1.1' ، '_content' => 'UserEmail2014-02-27T02: 15: 52.254zUserNameUserEmailContacts10361100http: //www.google.com/m8/feeds/contacts/useremail/useremail/useremail/useremail/seremail/seremail/seremail/seremail BASE/02012-04-13T01: 26: 56.834ZHTTP: //www.google.com/m8/feeds/contacts/useremail/base/12010-01-21t19: 32: 41.739zhtp: //www.google.com/ m8/feeds/جهات الاتصال/useremail/base/22008-04-09t08: 47: 53.076zhttp: //www.google.com/m8/feeds/contacts/useremail/base/32010-01-21t19: 32: 41.739zhtp: //www.google.com/m8/feeds/contacts/useremail/base/42008-04- ...
المحلول
ال $response
عاد من make_restricted_request
هو HTTP::Response
هدف. Net::OAuth::Simple
يتحقق بالفعل من نجاح الطلب، حتى تتمكن من الوصول إلى محتوى الاستجابة باستخدام $response->content
أو $response->decoded_content
.