StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POnet::oauth return 401 unauthorized even though curl works
primarykey
Id
15100910
data
AcceptedAnswerId
0
AnswerCount
1
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-02-26T22:46:04.747
FavoriteCount
0
LastActivityDate
2013-02-27T23:18:28.683
LastEditDate
2013-02-26T23:11:25.543
LastEditorUserId
415485
OwnerUserId
415485
ParentId
0
PostTypeId
1
Score
0
ViewCount
540
LastEditorDisplayName
text
Body
I am attempting to request a token from <a href="https://launchpad.net" rel="nofollow">https://launchpad.net</a>, according to the docs all it wants is a POST to /+request-token with the form encoded values of oauth_consumer_key, oauth_signature, and oauth_signature_method. Providing those items via curl works as expected: <pre><code>curl --data "oauth_consumer_key=test-app&oauth_signature=%26&oauth_signature_method=PLAINTEXT" https://launchpad.net/+request-token </code></pre> However, when i attempt to do it through my perl script it is giving me a 401 unauthorized error. <pre><code>#!/usr/bin/env perl use strict; use YAML qw(DumpFile); use Log::Log4perl qw(:easy); use LWP::UserAgent; use Net::OAuth; $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A; use HTTP::Request::Common; use Data::Dumper; use Browser::Open qw(open_browser); my $ua = LWP::UserAgent->new; my ($home) = glob '~'; my $cfg = "$home/.lp-auth.yml"; my $access_token_url = q[https://launchpad.net/+access-token]; my $authorize_path = q[https://launchpad.net/+authorize-token]; sub consumer_key { 'lp-ua-browser' } sub request_url {"https://launchpad.net/+request-token"} my $request = Net::OAuth->request('consumer')->new( consumer_key => consumer_key(), consumer_secret => '', request_url => request_url(), request_method => 'POST', signature_method => 'PLAINTEXT', timestamp => time, nonce => nonce(), ); $request->sign; print $request->to_url; my $res = $ua->request(POST $request->to_url, Content $request->to_post_body); my $token; my $token_secret; print Dumper($res); if ($res->is_success) { my $response = Net::OAuth->response('request token')->from_post_body($res->content); $token = $response->token; $token_secret = $response->token_secret; print "request token ", $token, "\n"; print "request token secret", $token_secret, "\n"; open_browser($authorize_path . "?oauth_token=" . $token); } else { die "something broke ($!)"; } </code></pre> I tried both with <code>$request->sign</code> and without it as i dont think that is required during the request token phase. Anyway any help with this would be appreciated. Update, switched to LWP::UserAgent and had to pass in both POST and Content : <pre><code>my $res = $ua->request(POST $request->to_url, Content $request->to_post_body); </code></pre> Thanks
Tags
<perl><oauth>
Title
net::oauth return 401 unauthorized even though curl works
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USbattlemidget
UserOwnerUserId
1. USbattlemidget
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.