(Tcl) Test Salesforce OAuth2 Access Token

See more Salesforce Examples

Demonstrates how to make a simple Salesforce REST API call to test a previously obtained access token.

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example does the following:

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

set http [new_CkHttp]

# 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

set json [new_CkJsonObject]

set success [CkJsonObject_LoadFile $json "qa_data/tokens/_salesforce.json"]
if {$success == 0} then {
    puts "Failed to load OAuth2 access token."
    delete_CkHttp $http
    delete_CkJsonObject $json
    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.
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $json "access_token"]

# We want to build the following URL:  https://<instance_id>.salesforce.com/services/oauth2/userinfo
set sbUrl [new_CkStringBuilder]

CkStringBuilder_Append $sbUrl [CkJsonObject_stringOf $json "instance_url"]
CkStringBuilder_Append $sbUrl "/services/oauth2/userinfo"

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http [CkStringBuilder_getAsString $sbUrl] $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkStringBuilder $sbUrl
    delete_CkStringBuilder $sbResponseBody
    exit
}

puts "Response status code = [CkHttp_get_LastStatus $http]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_LoadSb $jsonResponse $sbResponseBody
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

# 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"
# ...
# ...
# }

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkStringBuilder $sbUrl
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jsonResponse