Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Need a Net::OAuth POST example

by Mr. Muskrat (Canon)
on Feb 19, 2016 at 00:03 UTC ( #1155596=note: print w/replies, xml ) Need Help??


in reply to Need a Net::OAuth POST example

I have never used Net::OAuth but after a quick read through the docs, I think the correct answer is to put $content in extra_params and use to_post_body in the post method call.

my $ua = LWP::UserAgent->new; my $content = { example => "content", name => "me" } my $request = Net::OAuth->request("protected resource")->new( consumer_key => <key>, consumer_secret => <secret>, request_url => 'https://someplace.whatever', request_method => 'POST', signature_method => 'HMAC-SHA1', timestamp => time(), nonce => 'kllo9940pd9333jh', token => <token>, token_secret => <secret>, extra_params => { foo => 'bar', %{$content} } ); $request->sign; my $res = $ua->post( $request->to_url, Content_Type => 'form-data', Content => $request->to_post_body, );

I found a post from 2011 which seems to indicate that I am on the right track: https://txlab.wordpress.com/2011/09/03/using-tumblr-api-v2-from-perl/

Update: Another option would be to use Net::OAuth::Simple which seems basically do the same thing behind the scenes.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1155596]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (13)
As of 2018-06-20 21:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (117 votes). Check out past polls.

    Notices?