(Tcl) Upload File with User-Defined Metadata

Demonstrates how to upload a file with user-defined metadata to the Amazon S3 service.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Insert your AWS keys here:
CkHttp_put_AwsAccessKey $http "AWS_ACCESS_KEY"
CkHttp_put_AwsSecretKey $http "AWS_SECRET_KEY"

set bucketName "chilkat.ocean"
set objectName "seahorse.jpg"
set localFilePath "qa_data/jpg/seahorse.jpg"
set contentType "image/jpg"

# User-defined metadata are name/value pairs, and are added to the HTTP request header.
# Header names must begin with "x-amz-meta-" to distinguish them from other HTTP headers.
# Note that Amazon S3 stores user-defined metadata keys in lowercase.

# For example, to add genus=Hippocampus, we do this:
CkHttp_SetRequestHeader $http "x-amz-meta-genus" "Hippocampus"

# Add a few more user-metadata key pairs.
CkHttp_SetRequestHeader $http "x-amz-meta-species" "big-belly seahorse"
CkHttp_SetRequestHeader $http "x-amz-meta-habitat" "shallow tropical and temperate waters"

set success [CkHttp_S3_UploadFile $http $localFilePath $contentType $bucketName $objectName]

if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
} else {
    puts "File uploaded."
}


delete_CkHttp $http