(Tcl) Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set http [new_CkHttp]

CkHttp_put_AwsAccessKey $http "****"
CkHttp_put_AwsSecretKey $http "****"

CkHttp_put_KeepResponseBody $http 1

# Here we have a Chilkat method that sends a DELETE request and returns 1/0 for success/failure.
# If it fails we'll want to get the response status code and the response body.
# The response body will be available in the LastResponseBody property 
# because we set the KeepResponseBody property to 1.
set success [CkHttp_S3_DeleteBucket $http "example"]

if {$success == 0} then {
    puts "response status code = [CkHttp_get_LastStatus $http]"
    puts [CkHttp_lastResponseBody $http]
} else {
    puts "Success: Bucket deleted."
}

# Running the code as-is with the invalid data will return a response body
# that shows the error.

# response status code = 403
# <?xml version="1.0" encoding="UTF-8"?>
# <Error>
#   <Code>InvalidAccessKeyId</Code>
#   <Message>The AWS Access Key Id you provided does not exist in our records.</Message>
#   <AWSAccessKeyId>****</AWSAccessKeyId>
#   <RequestId>Y1REHYF8B7M3E771</RequestId>
#   <HostId>i3nf+VEHKqJ+roMNTFcQvWAbXre/wl5icQxuAN1Qsscm9iI/y8IO4z3QNxUefhcCE7hgrS8dNn9OBvKCeB3WccGLe318A4DFUQDPb11WmIg=</HostId>
# </Error>

delete_CkHttp $http