Perl

Example: Http.SetOAuthRsaKey method

Demonstrates the SetOAuthRsaKey method. Perl

use chilkat();

$success = 0;

$pfx = chilkat::CkPfx->new();
$success = $pfx->LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12","keystorepassword");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$privKey = chilkat::CkPrivateKey->new();
$success = $pfx->PrivateKeyAt(0,$privKey);
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();

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

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

$http->put_OAuthSigMethod("RSA-SHA256");

$success = $http->SetOAuthRsaKey($privKey);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
$http->put_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.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST","https://chilkatsoft.com/echo_request_body.asp","<notUsed>123</notUsed>","utf-8","application/xml",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Examine the request header we just sent..
print $http->lastHeader() . "\r\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="*****"