(Perl) Twitter PIN-Based Authorization (Step 1)

Demonstrates the 1st step in Twitter PIN-based authorization using OAuth. The purpose of this step is to obtain a temporary request token that will be traded for an access token + secret in the final step. Once the access token + secret is obtained, the application can access the Twitter account in whatever ways it was authorized.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

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

$http->put_OAuth1(1);
$http->put_OAuthConsumerKey("my-consumer-key");
$http->put_OAuthConsumerSecret("my-consumer-secret");

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("https://api.twitter.com/oauth/request_token",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($resp->get_StatusCode() == 200) {

    $oauthToken = $resp->urlEncParamValue($resp->bodyStr(),"oauth_token");
    print "OAuth temporary request token = " . $oauthToken . "\r\n";

    $oauthTokenSecret = $resp->urlEncParamValue($resp->bodyStr(),"oauth_token_secret");
    print "OAuth temporary token secret = " . $oauthTokenSecret . "\r\n";

    $oauthCbConfirmed = $resp->urlEncParamValue($resp->bodyStr(),"oauth_callback_confirmed");
    print "OAuth callback confirmed  = " . $oauthCbConfirmed . "\r\n";

    # At this point, the end-user needs to browse to the following
    # Twitter URL to log in to his/her Twitter account and get a PIN.
    # 
    # https://api.twitter.com/oauth/authenticate?oauth_token=OAUTH_TOKEN
    # 
    # (where OAUTH_TOKEN is replaced with the contents
    # of the OAuth temporary request token.)

    # Your application may have an embedded browser such
    # that it automatically navigates to the above URL, or it may
    # be necessary for the user to browse to this URL independently.

    # Once the PIN is obtained, your application should provide a means
    # for the end-user to enter it (by typing it into an input text box, for example), 
    # and then Step 2 (the final step) can begin.

}
else {
    print $http->lastErrorText() . "\r\n";
}