Tcl Requires Chilkat v11.0.0+

AzureWebsites OAuth2 Password Flow

See more OAuth2 Examples

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

load ./chilkat.dll

set success 0

#  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"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpReq $http $tokenEndpoint $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    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_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

#  ----------------------------------
#  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_CkHttpResponse $resp
    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 success [CkHttp_HttpSb $http "POST" $destUrl $sbXml "utf-8" "application/xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    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_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    delete_CkStringBuilder $sbXml
    exit
}

#  Examine the response body
puts [CkHttpResponse_bodyStr $resp]

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