我在使用Yammer API(https://www.yammer.com/api_doc.html)时遇到了问题,无法进行简单的API请求。我需要获取https://www.yammer.com/api/v1/groups.xml(分组:一组列表)。
我尝试使用Net::OAuth::Simple。以下是我的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;
这是我的主程序:
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($_);
我收到了这样的消息:
并授权该URL上的应用程序。之后,我看到以下消息:
您已成功授权以下应用程序:2GIS_yammer
要完成授权,请返回2GIS_yammer应用程序并输入以下代码:
869A
但接下来呢?我必须在哪里输入这个数字?如何执行所需的请求?
谢谢。 Roman
Net::OAuth::Simple
中实现这个吗?我尝试使用$app->verifier('869A')
进行设置,但似乎不正确。而$app->request_access_token((oauth_verifier => $pin));
也不起作用。 - cringe