Greetings,

The POSTDATA is the XML content that's stored in $content. I tried Net::OAuth::Simple, but it turns out it really doesn't save all that much typing, honestly, and it doesn't solve my signing of POSTDATA problem.

so what does your post request actually send ?

Greetings,

Take a look at the "Request Example" section of the API documentation. That request example is what I'm sending on the POST. However, the problem is that the POSTDATA is not getting signed by Net::OAuth, so the OAuth signature fails. I can construct the request just fine, but I can't seem to figure out how to give Net::OAuth the POSTDATA so it can sign the request properly.

gryphon

my $req = HTTP::Request->new;
my $ua = LWP::UserAgent->new;
my %json;
$json{apple} = "foo";
$json{kiwi} = "bar";
my $oauth = Net::OAuth->request('protected resource')->new(
    consumer_key     => "...",
    consumer_secret  => "......",
    token            => ".....",
    token_secret     => ".....",
    protocol_version => Net::OAuth::PROTOCOL_VERSION_1_0A,
    signature_method => "HMAC-SHA1",
    timestamp        => time,
    nonce            => int( rand( 2**32 ) ),
    request_url      => ".....",
    request_method   => "POST"
);

$oauth->sign;

$req->header('Authorization'=>$oauth->to_authorization_header.',realm=
+"account"');
    $req->content_type('application/json');
    $req->header('accept' => 'application/json');
    $req->method($oauth->request_method);
    $req->uri($oauth->request_url);
    $req->content(encode_json(\%json));
    
$ua->agent('Mozilla/8.0');

my $response=$ua->request($req);
[download]

2018-09-15 Athanasius added code tags