(Tcl) Get Akeneo Token given Client ID and Secret

Assumes you're starting with a client ID and secret obtained from your OAuth1 provider, such as OneLogin. Demonstrates how to get an akeneo token using your client id/secret in combination with your akeneo login/password.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# The HTTP Basic authentication for this request is the
# OAuth client id and secret you've already obtained.
CkHttp_put_BasicAuth $http 1
CkHttp_put_Login $http "my_akeneo_client_id"
CkHttp_put_Password $http "my_akeneo_secret"

# Build this JSON:
# {
#   "grant_type": "password",
#   "username": "yourusername",
#   "password": "yourpassword"
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "grant_type" "password"
CkJsonObject_UpdateString $json "username" "my_akeneo_username"
CkJsonObject_UpdateString $json "password" "my_akeneo_password"

# POST this JSON (with the Basic Authentication header)
set url "http://pim.my-akeneo-site.com/api/oauth/v1/token"
# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http $url "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

puts "Response status code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response body: [CkHttpResponse_bodyStr $resp]"

if {[CkHttpResponse_get_StatusCode $resp] == 200} then {
    # Success.
    # Parse the response, which looks like this:

    # 		{
    # 		    "access_token": "MTE0NzNkNzI5YTk0ZTBlNmFlNTI5NmVkOWJhZjUxYWRkN2UzZWIwOWNkMTkwNzY5Mzk3NGViMDFmYzdlODJlMg",
    # 		    "expires_in": 3600,
    # 		    "token_type": "bearer",
    # 		    "scope": null,
    # 		    "refresh_token": "ZDkyMzA2NDhlZjQ2MGQyMDQ2MWRiMDBmOTdkZjQ5ODY5Mzc3MTEzMjVkNTkwZThmNWRlNWY0MzllYWMxZWQ5ZA"
    # 		}

    CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
    set access_token [CkJsonObject_stringOf $json "access_token"]
    set expires_in [CkJsonObject_IntOf $json "expires_in"]
    set token_type [CkJsonObject_stringOf $json "token_type"]
    set scope [CkJsonObject_stringOf $json "scope"]
    set refresh_token [CkJsonObject_stringOf $json "refresh_token"]

    puts "Access Token: $access_token"
}

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $json