(Perl) Azure REST API Access Token

Demonstrates how to request an Azure REST API OAUTH2 access token.

Note: In order to access resources a Service Principal needs to be created in your Tenant. It is really convenient to do it via AZ CLI:

az ad sp create-for-rbac --name [APP_NAME] --password [CLIENT_SECRET]

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

use chilkat();

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

$rest = chilkat::CkRest->new();

# URL: https://login.microsoftonline.com/TENANT_ID/oauth2/token
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("login.microsoftonline.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Add query params to the request.
$rest->AddQueryParam("grant_type","client_credentials");
$rest->AddQueryParam("client_id","APP_ID");
$rest->AddQueryParam("client_secret","CLIENT_SECRET");
$rest->AddQueryParam("resource","https://management.azure.com/");

$strResponseBody = $rest->fullRequestFormUrlEncoded("POST","/TENANT_ID/oauth2/token");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $rest->get_ResponseStatusCode();
if ($respStatusCode >= 400) {
    print "Response Status Code = " . $respStatusCode . "\r\n";
    print "Response Header:" . "\r\n";
    print $rest->responseHeader() . "\r\n";
    print "Response Body:" . "\r\n";
    print $strResponseBody . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->Load($strResponseBody);
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# The result is an access token such as the following:

# {
#   "token_type": "Bearer",
#   "expires_in": "3600",
#   "ext_expires_in": "3600",
#   "expires_on": "1557864616",
#   "not_before": "1557860716",
#   "resource": "https://management.azure.com/",
#   "access_token": "eyJ0eXAiOiJKV1QiL ... 20UFDDOHEyUg"
# }

# We'll save this JSON to a file for other examples to use..
$json->WriteFile("qa_data/tokens/azureToken.json");