tengo un problema al hacer una solicitud de API simple al Yammer (https://www.yammer.com/api_doc.html). Necesito obtener https://www.yammer.com/api/v1/groups.xml (Grupos: Una lista de grupos).Comprender OAuth con Perl
Estoy tratando de usar Net :: OAuth :: Simple. Aquí está mi Yammer.pm:
package Yammer;
use strict;
use base qw(Net::OAuth::Simple);
sub new {
my $class = shift;
my %tokens = @_;
return $class->SUPER::new(tokens => \%tokens,
urls => {
authorization_url => "https://www.yammer.com/oauth/authorize",
request_token_url => "https://www.yammer.com/oauth/request_token",
access_token_url => "https://www.yammer.com/oauth/access_token",
},
protocol_version => '1.0a',
);
}
sub view_restricted_resource {
my $self = shift;
my $url = shift;
return $self->make_restricted_request($url, 'GET');
}
sub update_restricted_resource {
my $self = shift;
my $url = shift;
my %extra_params = @_;
return $self->make_restricted_request($url, 'POST', %extra_params);
}
1;
Y aquí está mi programa principal:
use Yammer;
# Get the tokens from the command line, a config file or wherever
my %tokens = (
consumer_key => 'Baj7MciMhmnDTwj6kaOV5g',
consumer_secret => 'ejFlGBPtXwGJrxrEnwGvdRyokov1ncN1XxjmIm34M',
callback => 'https://www.yammer.com/oauth/authorize',
);
my $app = Yammer->new(%tokens);
# Check to see we have a consumer key and secret
unless ($app->consumer_key && $app->consumer_secret) {
die "You must go get a consumer key and secret from App\n";
}
# If the app is authorized (i.e has an access token and secret)
# Then look at a restricted resourse
if ($app->authorized) {
my $response = $app->view_restricted_resource;
print $response->content."\n";
exit;
}
# Otherwise the user needs to go get an access token and secret
print "Go to " . $app->get_authorization_url(callback => 'https://www.yammer.com/oauth/authorize?rand=' . rand()) . "\n";
print "Then hit return after\n";
<STDIN>;
my ($access_token, $access_token_secret) = $app->request_access_token($_);
Estoy recibiendo mensajes como
Y autorizando la aplicación en esta URL. Después de eso me veo mensaje como:
Usted ha autorizado con éxito el siguiente aplicación: 2GIS_yammer
Para completar la autorización de volver a la aplicación 2GIS_yammer y escriba el siguiente código:
869A
Pero, ¿qué sigue? Donde debo ingresar este numero? ¿Cómo realizar la solicitud que necesito?
Gracias. romana
Puede decirnos cómo hacer esto para 'Net :: OAuth :: Simple'? Intenté configurarlo con '$ app-> verifier ('869A')', pero parece erróneo. Y '$ app-> request_access_token ((oauth_verifier => $ pin));' tampoco funciona. – cringe