Re^3: Understanding oAuth with Perl

[Anonymous Monk]

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 );

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

[Anonymous Monk]

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 });

Or maybe with

->SUPER::new(
    tokens => \%tokens, 
    browser => WWW::Mechanize->new( autocheck => 0 ),
)

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;

or something like that