(Perl) Moody's REST API - Get OAuth2 Token

See more Moody's Examples

Demonstrates how to get an OAuth2 access token for the Moody's REST API.

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

use chilkat();

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

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

$req = chilkat::CkHttpRequest->new();
$req->AddParam("grant_type","password");
$req->AddParam("scope","api/ratings api/addin rest");
$req->AddParam("username","my_username");
$req->AddParam("password","my_password");
# I have no idea of where to get the client_id or client_secret.
# When you create a Moody's App, it only provides an "API Key".
$req->AddParam("client_id","my_client_id");
$req->AddParam("client_secret","my_client_secret");

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

print "status code = " . $resp->get_StatusCode() . "\r\n";
$responseBody = $resp->bodyStr();
print $responseBody . "\r\n";

# Save the JSON to a file for future requests.
if ($resp->get_StatusCode() == 200) {
    $fac = chilkat::CkFileAccess->new();
    $fac->WriteEntireTextFile("qa_data/tokens/moodys.json",$resp->bodyStr(),"utf-8",0);
}