0

https://launchpad.netからトークンをリクエストしようとしています。ドキュメントによると、必要なのは、oauth_consumer_key、oauth_signature、oauth_signature_methodのフォームエンコードされた値を使用した/+request-tokenへのPOSTだけです。カールを介してこれらのアイテムを提供すると、期待どおりに機能します。

curl --data "oauth_consumer_key=test-app&oauth_signature=%26&oauth_signature_method=PLAINTEXT" https://launchpad.net/+request-token

ただし、perlスクリプトを使用して実行しようとすると、401の不正なエラーが発生します。

#!/usr/bin/env perl

use strict;
use YAML qw(DumpFile);
use Log::Log4perl qw(:easy);
use LWP::UserAgent;
use Net::OAuth;
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
use HTTP::Request::Common;
use Data::Dumper;
use Browser::Open qw(open_browser);

my $ua = LWP::UserAgent->new;

my ($home)           = glob '~';
my $cfg              = "$home/.lp-auth.yml";
my $access_token_url = q[https://launchpad.net/+access-token];
my $authorize_path   = q[https://launchpad.net/+authorize-token];

sub consumer_key { 'lp-ua-browser' }
sub request_url {"https://launchpad.net/+request-token"}

my $request = Net::OAuth->request('consumer')->new(
    consumer_key     => consumer_key(),
    consumer_secret  => '',
    request_url      => request_url(),
    request_method   => 'POST',
    signature_method => 'PLAINTEXT',
    timestamp        => time,
    nonce            => nonce(),
);

$request->sign;
print $request->to_url;

my $res = $ua->request(POST $request->to_url, Content $request->to_post_body);
my $token;
my $token_secret;
print Dumper($res);
if ($res->is_success) {
    my $response =
      Net::OAuth->response('request token')->from_post_body($res->content);
    $token        = $response->token;
    $token_secret = $response->token_secret;
    print "request token ",       $token,        "\n";
    print "request token secret", $token_secret, "\n";
    open_browser($authorize_path . "?oauth_token=" . $token);
}
else {
    die "something broke ($!)";
}

$request->signリクエストトークンフェーズで必要になるとは思わないので、それを使用する場合と使用しない場合の両方を試しました。とにかく、これについての助けをいただければ幸いです。

更新し、LWP :: UserAgentに切り替え、POSTとコンテンツの両方を渡す必要がありました：

my $res = $ua->request(POST $request->to_url, Content $request->to_post_body);

ありがとう

4

1 に答える 1

0

申し訳ありませんが、タブレットからは確認できませんが、最近の Perl ではインストールして使用する必要があります

use LWP::Protocol::https;

http://blogs.perl.org/users/brian_d_foy/2011/07/now-you-need-lwpprotocolhttps.html

于 2013-02-27T23:18:28.683 に答える