Perl

Example: Http.SetOAuthRsaKey method

Demonstrates the SetOAuthRsaKey method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $pfx = Chilkat2::Pfx->new;
my $success = $pfx->LoadPfxFile('qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12', 'keystorepassword');
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

my $privKey = Chilkat2::PrivateKey->new;
$success = $pfx->PrivateKeyAt(0, $privKey);
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

my $http = Chilkat2::Http->new;

# Use OAuth1.0a authentication.
$http->OAuth1(1);

# Use your own consumer key (this is not a valid consumer key)
$http->OAuthConsumerKey('123abc');

$http->OAuthSigMethod('RSA-SHA256');

$success = $http->SetOAuthRsaKey($privKey);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

# Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
$http->OAuthBodyHash(1);

# Send this request to an endpoint at chilkatsoft.com.  The purpose of this example is to show
# how the OAuth1.0a Authorization header is computed and sent by Chilkat.
# The chilkatsoft.com site itself doesn't do OAuth1.  It's just ignoring the Authorization header.
my $resp = Chilkat2::HttpResponse->new;
$success = $http->HttpStr('POST', 'https://chilkatsoft.com/echo_request_body.asp', '<notUsed>123</notUsed>', 'utf-8', 'application/xml', $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

# Examine the request header we just sent..
print $http->LastHeader, "\n";

# Sample output:

# POST /echo_request_body.asp HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip
# Content-Type: application/xml
# Content-Length: 22
# Authorization: OAuth oauth_consumer_key="123abc", oauth_nonce="A2E91C3B53E0BD7FBF71F441336679E358DDCEEE", oauth_body_hash="a5kPTsDwUwmBjC0voNlAAvM6YoaRS5X7sTO49jl3/h8=", oauth_timestamp="1756324932", oauth_signature_method="RSA-SHA256", oauth_version="1.0", oauth_signature="*****"