(Tcl) S3 Delete Bucket Object

Deletes an object in a bucket.

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.
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "s3.amazonaws.com" $port $bTls $bAutoReconnect]

# ----------------------------------------------------------------------------
# Important: For buckets created in regions outside us-east-1,
# there are three important changes that need to be made.
# See Working with S3 Buckets in Non-us-east-1 Regions for the details.
# ----------------------------------------------------------------------------

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

#  Set the bucket name via the HOST header.
#  In this case, the bucket name is "chilkat100".
CkRest_put_Host $rest "chilkat100.s3.amazonaws.com"

# This example deletes the object named "Abc.ics"

set sbResponse [new_CkStringBuilder]

set success [CkRest_FullRequestNoBodySb $rest "DELETE" "/Abc.ics" $sbResponse]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    delete_CkStringBuilder $sbResponse
    exit
}

# If successfully deleted, the response status code is 204 and the response body text will be empty.
set statusCode [CkRest_get_ResponseStatusCode $rest]
puts "Response status code = $statusCode"
puts "Response text = "
puts [CkStringBuilder_getAsString $sbResponse]

delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkStringBuilder $sbResponse