(Tcl) S3 Find Bucket Region

Demonstrates how to find out the region of an S3 bucket.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set rest [new_CkRest]

# Connect to the Amazon AWS REST server using the correct region (in this example, "us-west-2")
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "s3.amazonaws.com" $port $bTls $bAutoReconnect]

# Provide AWS credentials for the REST call.
set authAws [new_CkAuthAws]

CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
CkAuthAws_put_ServiceName $authAws "s3"
set success [CkRest_SetAuthAws $rest $authAws]

# The bucket name we want to know about is set in the HOST header.
# In this example, we want to find the region for the "chilkat.qa" bucket.
CkRest_put_Host $rest "chilkat.qa.s3.amazonaws.com"

# Send the GET request to query the bucket location.
set strResult [CkRest_fullRequestNoBody $rest "GET" "/?location"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

set responseStatusCode [CkRest_get_ResponseStatusCode $rest]
puts "Response status code = $responseStatusCode"
if {$responseStatusCode != 200} then {
    puts [CkRest_responseHeader $rest]
    puts "$strResult"
    puts "Failed."
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

puts "$strResult"

# The result contains XML like this:
# <?xml version="1.0" encoding="UTF-8"?>
# <LocationConstraint xmlns="http://s3.amazonaws.com/doc/2006-03-01/">us-west-2</LocationConstraint>

# Get the "us-west-2" from the XML
set xml [new_CkXml]

set success [CkXml_LoadXml $xml $strResult]
puts "region = [CkXml_content $xml]"

delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkXml $xml