(Perl) Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

$http = chilkat::CkHttp->new();

$http->put_AwsAccessKey("****");
$http->put_AwsSecretKey("****");

$http->put_KeepResponseBody(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.
$success = $http->S3_DeleteBucket("example");

if ($success == 0) {
    print "response status code = " . $http->get_LastStatus() . "\r\n";
    print $http->lastResponseBody() . "\r\n";
}
else {
    print "Success: Bucket deleted." . "\r\n";
}

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