(Perl) Twitter - Application Only Authentication

Demonstrates how to get a Twitter OAuth2 token for application-only authentication.

This example is deprecated and no longer valid.

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

use chilkat();

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

# Note: Define your Twitter apps at https://apps.twitter.com/

# We're going to send an HTTPS POST that looks like this:

# POST /oauth2/token HTTP/1.1
# Host: api.twitter.com
# User-Agent: My Twitter App v1.0.23
# Authorization: Basic eHZ6MWV2RlM0d0VFUFRHRUZQSEJvZzpMOHFxOVBaeVJn
#                      NmllS0dFS2hab2xHQzB2SldMdzhpRUo4OERSZHlPZw==
# Content-Type: application/x-www-form-urlencoded;charset=UTF-8
# Content-Length: 29
# Accept-Encoding: gzip
# 
# grant_type=client_credentials

# Update these values with your consumer key and secret (also known as API key and API secret).
$consumerKey = "TWITTER_CONSUMER_KEY";
$consumerSecret = "TWITTER_CONSUMER_SECRET";

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

$http->put_BasicAuth(1);
$http->put_Login($consumerKey);
$http->put_Password($consumerSecret);

$req = chilkat::CkHttpRequest->new();
$req->AddParam("grant_type","client_credentials");

# resp is a HttpResponse
$resp = $http->PostUrlEncoded("https://api.twitter.com/oauth2/token",$req);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";

if ($resp->get_StatusCode() != 200) {
    print "Expected a 200 response status code for success." . "\r\n";
    print $resp->bodyStr() . "\r\n";
    exit;
}

# We should get a JSON response like this:

# {
#     "token_type":"bearer",
#     "access_token":"..."
# }

$json = chilkat::CkJsonObject->new();
$json->Load($resp->bodyStr());

print "Access token = " . $json->stringOf("access_token") . "\r\n";