(Perl) Test Salesforce OAuth2 Access Token

See more Salesforce Examples

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

use chilkat();

# This example does the following:

# curl -X GET https://yourInstance.salesforce.com/services/oauth2/userinfo \
#      -H "Authorization: Bearer YOUR_ACCESS_TOKEN"

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

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# This example assumes the OAuth2 access token was previously fetched 
# and saved to a file.  See Get SalesForce OAuth2 Access Token via Authorization Flow

$json = chilkat::CkJsonObject->new();
$success = $json->LoadFile("qa_data/tokens/_salesforce.json");
if ($success == 0) {
    print "Failed to load OAuth2 access token." . "\r\n";
    exit;
}

# Here's an example of the JSON:

# {
#   "access_token": "00D41000....uLZBpT6",
#   "refresh_token": "5Aep....25xdGgkrV",
#   "signature": "cjTbSc5DvcKpaMoRTzuQTJLb1tcMw8LEO01flq4aMD4=",
#   "scope": "refresh_token id",
#   "instance_url": "https://d41000000f8a0eak-dev-ed.my.salesforce.com",
#   "id": "https://login.salesforce.com/id/00D41000000F8A0EAK/005410000....xAAE",
#   "token_type": "Bearer",
#   "issued_at": "1738348388166"
# }

# Adds the "Authorization: Bearer YOUR_ACCESS_TOKEN" header.
$http->put_AuthToken($json->stringOf("access_token"));

# We want to build the following URL:  https://<instance_id>.salesforce.com/services/oauth2/userinfo
$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append($json->stringOf("instance_url"));
$sbUrl->Append("/services/oauth2/userinfo");

$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb($sbUrl->getAsString(),$sbResponseBody);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code = " . $http->get_LastStatus() . "\r\n";

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->LoadSb($sbResponseBody);
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

# The expected JSON response is something like this:

# {
#   "sub": "005xxxxxxxxxxxx",
#   "name": "John Doe",
#   "preferred_username": "johndoe@example.com",
#   "email": "johndoe@example.com",
#   "profile": "https://na85.salesforce.com/005xxxxxxxxxxxx"
# ...
# ...
# }