Re^2: Understanding oAuth with Perl

Thank you for the reply. Now i have no problems with GET request but can't complete POSTs.

if ($app->authorized) {
    
    
    my $response = $app->view_restricted_resource('https://www.yammer.
+com/api/v1/users.xml'  );
    print $response->content."\n";

    $response = $app->update_restricted_resource("https://www.yammer.c
+om/api/v1/messages/", body => "Message body", broadcast => "true" );
    print $response->content."\n";
    exit;
}
[download]

I'll get error "POST on Net::OAuth::ProtectedResourceRequest=HASH(0x5590e74) failed: 302 Found". Can you explain why?

Comment on Re^2: Understanding oAuth with Perl Download Code

Replies are listed 'Best First'.
Re^3: Understanding oAuth with Perl by Anonymous Monk on Mar 10, 2011 at 12:56 UTC
I see in http://cpansearch.perl.org/src/SIMONW/Net-OAuth-Simple-1.5/lib/Net/OAuth/Simple.pm `return $self->_error("$method on $request failed: ".$response->sta +tus_line) unless ( $response->is_success );` [download] 3xx is not a 2xx, so is_success of HTTP::Status fails. According to http://en.wikipedia.org/wiki/HTTP_302/http://en.wikipedia.org/wiki/HTTP_303, 303 is the appropriate response for a successful post, but most apps still use 302 erroneously So, barring an actual error (follow the redirect), Net::Oauth::Simple needs a patch, yammer needs a patch	[reply] [d/l]
Re^4: Understanding oAuth with Perl by Anonymous Monk on Mar 10, 2011 at 13:25 UTC
After checking https://www.yammer.com/api_doc.html#resources_messages_manipulating When posting a new message, the response body will include the new message formatted as in message polling above. This allows you to immediately display the newly-posted message back to the user. I think its a bug that the api_doc doesn't explicitly list what type of status code the response should have, like it does for many other methods. I think you definitely need to check the content, maybe as per LWP::Debug? `$app->{browser}->add_handler("response_done", sub { shift->dump; retur +n });` [download] Or maybe with `->SUPER::new( tokens => \%tokens, browser => WWW::Mechanize->new( autocheck => 0 ), )` [download] and then you can `my $response = eval { $app->view_restricted_resource ... }; unless( $response ){ warn "ERROR $@ "; $response = $app->res; # WWW::Mechanize cache it for you } print $response->content;` [download] or something like that	[reply] [d/l] [select]
Re^3: Understanding oAuth with Perl by Anonymous Monk on Jun 25, 2012 at 23:37 UTC
I got 401 Unauthorized response when I do POST. I have no issue with GET. Did you figure out your issue?	[reply]