(Tcl) Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set http [new_CkHttp]

set oauth2_access_token "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ"

set sbAccessToken [new_CkStringBuilder]

CkStringBuilder_Append $sbAccessToken $oauth2_access_token

# Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
CkHttp_SetAuthTokenSb $http $sbAccessToken

set responseText [CkHttp_quickGetStr $http "https://chilkatsoft.com/helloWorld.txt"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbAccessToken
    exit
}

# See the HTTP request header that was sent.
puts [CkHttp_lastHeader $http]

# Output:
# 
# GET /helloWorld.txt HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip
# Authorization: Bearer ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ

# Note: Starting in v11.2.0, the information that should be kept secret in the Authorization header
# will be redacted.  Thus, in Chilkat v11.2.0 and later, the LastHeader property will show the following:

# Authorization: Bearer ****

delete_CkHttp $http
delete_CkStringBuilder $sbAccessToken