(Tcl) AzureWebsites OAuth2 Password Flow

Demonstrates how to do OAuth 2.0 password flow for azurewebsites.net.

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]

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/token"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"
CkHttpRequest_AddParam $req "grant_type" "password"
CkHttpRequest_AddParam $req "username" "your_username"
CkHttpRequest_AddParam $req "password" "your_password"

set tokenEndpoint "https://your_api.azurewebsites.net/token"
# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http $tokenEndpoint $req]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody
set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

# Sample JSON response:

# {
#   "access_token": "NQGHn ... xTS",
#   "token_type": "bearer",
#   "expires_in": 1209599,
#   "userName": "your_username",
#   ".issued": "Mon, 27 Apr 2020 23:49:35 GMT",
#   ".expires": "Mon, 11 May 2020 23:49:35 GMT"
# }

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

delete_CkHttpResponse $resp

# ----------------------------------
# Use the OAuth2 token in a request.
# For example...

set sbXml [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbXml "c:/someDir/someXmlFile.xml" "utf-8"]
if {$success == 0} then {
    puts "Failed to load the XML file."
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    delete_CkStringBuilder $sbXml
    exit
}

# Get the OAuth2 token and use it for authentication
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jResp "token"]

set destUrl "https://your_api.azurewebsites.net/destinationUrl"
set resp [CkHttp_PostXml $http $destUrl [CkStringBuilder_getAsString $sbXml] "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    delete_CkStringBuilder $sbXml
    exit
}

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    delete_CkStringBuilder $sbXml
    exit
}

# Examine the response body
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp
delete_CkStringBuilder $sbXml