Perl

Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature. Perl

use chilkat();

$success = 0;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$success = 0;

$oauth = chilkat::CkOAuth1->new();

# Set input parameters:
$oauth->put_OauthVersion("1.0");
$oauth->put_OauthMethod("GET");
$oauth->put_OauthUrl("http://echo.lab.madgex.com/echo.ashx");
$oauth->put_ConsumerKey("key");
$oauth->put_ConsumerSecret("secret");
$oauth->put_Token("accesskey");
$oauth->put_TokenSecret("accesssecret");
$oauth->put_Nonce("01020304050607080102030405060708");
$oauth->put_Timestamp("1441659763");
# Can be "HMAC-SHA1", "HMAC-SHA256", "RSA-SHA1", or "RSA-SHA2"
$oauth->put_SignatureMethod("HMAC-SHA256");

$success = $oauth->Generate();
if ($success != 1) {
    print $oauth->lastErrorText() . "\r\n";
    exit;
}

# Examine the various outputs:

print $oauth->queryString() . "\r\n";
print $oauth->baseString() . "\r\n";
print $oauth->hmacKey() . "\r\n";
print $oauth->signature() . "\r\n";
print $oauth->encodedSignature() . "\r\n";
print $oauth->authorizationHeader() . "\r\n";
print $oauth->generatedUrl() . "\r\n";