Tcl

Azure ServiceBus - Request a Token from ACS

This example duplicates the HTTP POST described at Request a Token from ACS. Tcl

load ./chilkat.dll

set success 0

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

# The goal of this example is to send the following HTTP POST:

# POST https://your-namespace-sb.accesscontrol.windows.net/WRAPv0.9/ HTTP/1.1  
# Content-Type: application/x-www-form-urlencoded  
# Host: your-namespace-sb.accesscontrol.windows.net  
# Content-Length: 136  
# Expect: 100-continue  
# Connection: Keep-Alive  
# 
# wrap_name=owner&wrap_password=r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE%3d&wrap_scope=http%3a%2f%2fyour-namespace.servicebus.windows.net%2f
# 

set http [new_CkHttp]

set req [new_CkHttpRequest]

# Build the HTTP request...
CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/WRAPv0.9/"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"

# Adding the Connection: Keep-Alive is optional.  It only makes sense if the intent is to send
# additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period.
CkHttpRequest_AddHeader $req "Connection" "Keep-Alive"

# The Expect: 100-continue really isn't necessary.  This only makes sense when a response is large.  The "100-continue"
# provides a means for the HTTP server to alert the HTTP client that the request failed before sending the full response.
# In this case, the response size is small, so there's no real need to bother with an "Expect: 100-continue".
# If desired, it would be added just like any request header:
CkHttpRequest_AddHeader $req "Expect" "100-continue"

# Note: The following headers are automatically added by Chilkat:  Content-Type, Host, Content-Length.
# The application should NOT set these directly.

# Add the query parameters
# When URL decoded and split, the query params look like this:
# 
# 	wrap_name=owner
# 	wrap_password=r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE=
# 	wrap_scope=http://your-namespace.servicebus.windows.net/

# Pass the URL-decoded values to AddParam.
CkHttpRequest_AddParam $req "wrap_name" "owner"
CkHttpRequest_AddParam $req "wrap_password" "r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE="
CkHttpRequest_AddParam $req "wrap_scope" "http://your-namespace.servicebus.windows.net/"

# OK.. our request is properly setup.  Now send to the web server at your-namespace-sb.accesscontrol.windows.net.
# We want https (i.e. SSL/TLS), so the port would be 443.
set useTls 1
set resp [new_CkHttpResponse]

set success [CkHttp_HttpSReq $http "your-namespace-sb.accesscontrol.windows.net" 443 $useTls $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    exit
}

# A successful response will have a status code = 200.
if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Response Status Code = [CkHttpResponse_get_StatusCode $resp]"
    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed."
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    exit
}

# A successful response will contain a URL encoded param string such as the following:

# 	wrap_access_token=net.windows.servicebus.action%3d
# 	Listen%252cManage%252cSend%26
# 	http%253a%252f%252fschemas.microsoft.com%252faccesscontrolservice%252f2010%252f07%252fclaims%252fidentityprovider%3d
# 	https%253a%252f%252fyour-namespace-sb.accesscontrol.windows.net%252f%26
# 	Audience%3dhttp%253a%252f%252fyour-namespace.servicebus.windows.net%252f%26
# 	ExpiresOn%3d1404435127%26
# 	Issuer%3dhttps%253a%252f%252fyour-namespace-sb.accesscontrol.windows.net%252f%26
# 	HMACSHA256%3dF%252bBoXUoifWdT%252fly8Oic9V1oPBbc3KmXKbSJbVhGSopU%253d&
# 	wrap_access_token_expires_in=10799
# 

# The UrlEncParamValue method can be used to extract individual param values by name.
# There are two params in the response: wrap_access_token and wrap_access_token_expires.
# (It's a bit confusing because the value of the wrap_access_token is itself a URL encoded 
# param string.)

# Get the access token from the response:
set accessToken [CkHttpResponse_urlEncParamValue $resp [CkHttpResponse_bodyStr $resp] "wrap_access_token"]

puts "Your access token is the following param string:"
puts "$accessToken"

delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkHttpResponse $resp