(Perl) Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# All Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

# 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";