(Tcl) Amazon SP-API Request an LWA access token

See more Amazon SP-API Examples

Request an LWA access token, make a secure HTTP POST to the LWA authentication server (https://api.amazon.com/auth/o2/token)

For more information, see https://developer-docs.amazon.com/sp-api/docs/connecting-to-the-selling-partner-api

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X POST https://example.com/auth/o2/token \
#   -H "Host: api.amazon.com" \
#   -H "Content-Type: application/x-www-form-urlencoded;charset=UTF-8" \
#   -d "grant_type=refresh_token" \
#   -d "refresh_token=Aztr|..." \
#   -d "client_id=foodev" \
#   -d "client_secret=Y76SDl2F"

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

set req [new_CkHttpRequest]

CkHttpRequest_AddParam $req "grant_type" "refresh_token"
CkHttpRequest_AddParam $req "refresh_token" "Aztr|..."
CkHttpRequest_AddParam $req "client_id" "foodev"
CkHttpRequest_AddParam $req "client_secret" "Y76SDl2F"

CkHttpRequest_AddHeader $req "Host" "api.amazon.com"

# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http "https://api.amazon.com/auth/o2/token" $req]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    exit
}

set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "Status Code = $statusCode"

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
delete_CkHttpResponse $resp

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

if {$statusCode != 200} then {
    puts "Failed."
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkJsonObject $json
    exit
}

# Success returns this JSON:

# {
#   "access_token": "Atza|...",
#   "refresh_token": "Atzr|...",
#   "token_type": "bearer",
#   "expires_in": 3600
# }

# Save the JSON token to a file for use in subsequent calls.
# (this example is passing a relative file path.  You don't need to save to a file
# if, for example, you keep the access token in-memory for subsequent use...)
set success [CkJsonObject_WriteFile $json "qa_data/tokens/sp_api_lwa_token.json"]

puts "access_token: [CkJsonObject_stringOf $json access_token]"
puts "Success."

delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkJsonObject $json