Hello,
i make a request like this:
#!/usr/bin/perl -w
use strict;
use Net::OAuth;
use HTTP::Request::Common;
use LWP::UserAgent;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
#use Test::More tests => 12;
use Data::Random qw(rand_chars);
my $req = Net::OAuth->request("protected resource")->new(
consumer_key => 'xxx',
consumer_secret => 'xxx',
request_method => 'GET',
signature_method => 'HMAC-SHA1',
timestamp => time,
nonce => join('', rand_chars(size=>16,
set=>'alphanumeric')),
request_url => 'http://www.google.com/m8/feeds/contacts/
default/full',
token => 'xxx',
token_secret => 'xxx',
);
$req -> sign();
my $res = $ua->request(GET($req->request_url,
Authorization => $req->to_authorization_header));
if (!$res->is_success) {
die 'Could not get feed: ' . $res->status_line . ' ' . $res-
>content;
}else{
print $res->status_line;
}
but when i try a url with a param like this
request_url => 'http://www.google.com/m8/feeds/contacts/default/full?
max-result=5'
i get this error "Unknown authorization header"
any ideas?
best requards
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Contacts API" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/google-contacts-api?hl=en
-~----------~----~----~----~------~----~------~--~---
