(Tcl) S3 Add Tags to an Object

See more Amazon S3 (new) Examples

Demonstrates how to add one or more tags to an S3 object.

For more information, see https://docs.aws.amazon.com/AmazonS3/latest/API/API_PutObjectTagging.html

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 rest [new_CkRest]

# Connect to the Amazon AWS REST server in the desired region.
# (for us-east-1, we use "s3.amazonaws.com", but for another region, such as us-west-2, we would use "s3-us-west-2.amazonaws.com")
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "s3.amazonaws.com" $port $bTls $bAutoReconnect]

# Provide AWS credentials.
set authAws [new_CkAuthAws]

CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
CkAuthAws_put_ServiceName $authAws "s3"
CkAuthAws_put_Region $authAws "us-east-1"

CkRest_SetAuthAws $rest $authAws

# Set the bucket name via the HOST header.
# In this case, the bucket name is "chilkat100".
# Note that the Host header should use "bucketName.s3.amazonaws.com", not "bucketName.s3-us-east-1.amazonaws.com"
# The same applies to aother regions.  The Host header should simply be <bucketName>.s3.amazonaws.com regardless of the region.
CkRest_put_Host $rest "chilkat100.s3.amazonaws.com"

set xml [new_CkXml]

CkXml_put_Tag $xml "Tagging"
CkXml_UpdateChildContent $xml "TagSet|Tag|Key" "plant"
CkXml_UpdateChildContent $xml "TagSet|Tag|Value" "chili pepper"

set sbRequestBody [new_CkStringBuilder]

CkXml_GetXmlSb $xml $sbRequestBody

# It is important to add the terminating "=" after the "?tagging".
set sbResponse [new_CkStringBuilder]

set success [CkRest_FullRequestSb $rest "PUT" "/chiliPepper.gif?tagging=" $sbRequestBody $sbResponse]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    delete_CkXml $xml
    delete_CkStringBuilder $sbRequestBody
    delete_CkStringBuilder $sbResponse
    exit
}

puts "Response status code: [CkRest_get_ResponseStatusCode $rest]"

# When successful, the S3 Storage service will respond with a 200 response code,
# with an XML body.  
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    # Examine the request/response to see what happened.
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body: [CkStringBuilder_getAsString $sbResponse]"
    puts "---"
    puts "LastRequestStartLine: [CkRest_lastRequestStartLine $rest]"
    puts "LastRequestHeader: [CkRest_lastRequestHeader $rest]"
}

puts [CkStringBuilder_getAsString $sbResponse]
puts "Success."

delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkXml $xml
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponse