(Tcl) Send XML REST Request, Get Response with No Body (Google Cloud Storage)

Demonstrates sending a RESTful XML request, and receiving a response where the expected response is a header with no body (Content-Length = 0). This example will create a bucket in Google Cloud Storage using the Google Cloud Storage XML API.

See Create a Bucket using the XML API for additional request options.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example will create a bucket in Google Cloud Storage using the XML API.

# It requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set gAuth [new_CkAuthGoogle]

# Obtain an access token as shown in one of the following examples:
# See Get Access Token using a Service Account JSON Key
# See Get Access Token using a P12 File

set rest [new_CkRest]

# Connect using TLS.
set bAutoReconnect 1
set success [CkRest_Connect $rest "www.googleapis.com" 443 1 $bAutoReconnect]

# Provide the authentication credentials (i.e. the access key)
set success [CkRest_SetAuthGoogle $rest $gAuth]

# Build the XML request body for creating a bucket.
# See https://cloud.google.com/storage/docs/xml-api/put-bucket-create
set xmlReqBody [new_CkXml]

CkXml_put_Tag $xmlReqBody "CreateBucketConfiguration"
CkXml_NewChild2 $xmlReqBody "LocationConstraint" "us"
CkXml_NewChild2 $xmlReqBody "StorageClass" "STANDARD"

# Show the HTTP request body we'll be sending.
puts [CkXml_getXml $xmlReqBody]

# There are no query parameters...

# The HOST header must be specified, because it needs to be different than
# the domain previously passed to the Connect method.
# The name of the bucket is the 1st part of the HOST header.
set success [CkRest_AddHeader $rest "Host" "chilkat-example-bucket.storage.googleapis.com"]

# The project ID is specified in an HTTP request header
set success [CkRest_AddHeader $rest "x-goog-project-id" "chilkattest-1050"]

# In this case, the response body is expected to be empty.  We can still
# call FullRequestString.  We expect an empty string to be returned.
set responseStr [CkRest_fullRequestString $rest "PUT" "/" [CkXml_getXml $xmlReqBody]]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkAuthGoogle $gAuth
    delete_CkRest $rest
    delete_CkXml $xmlReqBody
    exit
}

# Check the response status code to make sure it is 200.
set responseStatus [CkRest_get_ResponseStatusCode $rest]
puts "Response Status Code = $responseStatus"

delete_CkAuthGoogle $gAuth
delete_CkRest $rest
delete_CkXml $xmlReqBody