Perl

Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $success = 0;

my $oauth = Chilkat2::OAuth1->new;

# Set input parameters:
$oauth->OauthVersion('1.0');
$oauth->OauthMethod('GET');
$oauth->OauthUrl('http://echo.lab.madgex.com/echo.ashx');
$oauth->ConsumerKey('key');
$oauth->ConsumerSecret('secret');
$oauth->Token('accesskey');
$oauth->TokenSecret('accesssecret');
$oauth->Nonce('01020304050607080102030405060708');
$oauth->Timestamp('1441659763');
# Can be "HMAC-SHA1", "HMAC-SHA256", "RSA-SHA1", or "RSA-SHA2"
$oauth->SignatureMethod('HMAC-SHA256');

$success = $oauth->Generate();
if (!$success) {
    print $oauth->LastErrorText, "\n";
    exit;
}

# Examine the various outputs:

print $oauth->QueryString, "\n";
print $oauth->BaseString, "\n";
print $oauth->HmacKey, "\n";
print $oauth->Signature, "\n";
print $oauth->EncodedSignature, "\n";
print $oauth->AuthorizationHeader, "\n";
print $oauth->GeneratedUrl, "\n";