(Perl) Banco Inter OAuth2 Client Credentials

Generate an OAuth2 access token needed to consume the Inter APIs.

For more information, see https://developers.bancointer.com.br/reference/token-3

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();

# First load the certificate and private key, and set as the HTTP object's client certificate.
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("<nome arquivo certificado>.crt");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$bdPrivKey = chilkat::CkBinData->new();
$success = $bdPrivKey->LoadFile("<nome arquivo chave privada>.key");
if ($success == 0) {
    print "Failed to load <nome" . "\r\n";
    exit;
}

$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadAnyFormat($bdPrivKey,"");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

$success = $cert->SetPrivateKey($privKey);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$success = $http->SetSslClientCert($cert);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_Path("/oauth/v2/token");
$req->put_ContentType("application/x-www-form-urlencoded");
$req->AddParam("grant_type","client_credentials");
# Requested scopes in OAuth2 are typically SPACE separated.
$req->AddParam("scope","boleto-cobranca.read boleto-cobranca.write");
$req->AddHeader("accept","application/json");

# resp is a HttpResponse
$resp = $http->PostUrlEncoded("https://cdpj.partners.bancointer.com.br/oauth/v2/token",$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$jResp = chilkat::CkJsonObject->new();
$resp->GetBodyJson($jResp);
$jResp->put_EmitCompact(0);

print "Response Body:" . "\r\n";
print $jResp->emit() . "\r\n";

$respStatusCode = $resp->get_StatusCode();
print "Response Status Code = " . $respStatusCode . "\r\n";
if ($respStatusCode >= 400) {
    print "Response Header:" . "\r\n";
    print $resp->header() . "\r\n";
    print "Failed." . "\r\n";

    exit;
}

$success = $jResp->WriteFile("qa_data/tokens/banco_inter_client_credentials.json");
if ($success == 0) {
    print "Failed to save JSON access token file." . "\r\n";
    exit;
}

print "Success." . "\r\n";