Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^4: Understanding oAuth with Perl

by Anonymous Monk
on Mar 10, 2011 at 13:25 UTC ( [id://892404]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Understanding oAuth with Perl
in thread Understanding oAuth with Perl

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://892404]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (6)
As of 2024-03-28 11:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found