Tcl

Explicitly set the OAuth2 Access Token

This example shows how to set the AuthToken property using a previously obtained access token. Tcl

load ./chilkat.dll

set success 0

# Assume we previously obtained JSON containing the access token such as this:

# 	{
# 	 "access_token": "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ",
# 	 "token_type": "Bearer",
# 	 "expires_in": 3600,
# 	 "refresh_token": "1/r_2c_7jddspcdfesrrfKqfXtqo08D6Q-gUU0DsdfVMsx0c"
# 	}
# 

# Load the JSON and use the access_token to authenticate an HTTP request.
set json [new_CkJsonObject]

set success [CkJsonObject_LoadFile $json "c:/someDir/tokens/myToken.json"]

set http [new_CkHttp]

# After setting this property, all HTTP requests sent using this object instance
# will include the request header: Authorization: Bearer <access_token> 
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $json "access_token"]

# ...
# ..

delete_CkJsonObject $json
delete_CkHttp $http