Perl

Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $http = Chilkat2::Http->new;

$http->AwsAccessKey('****');
$http->AwsSecretKey('****');

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

if (!$success) {
    print 'response status code = ', $http->LastStatus, "\n";
    print $http->LastResponseBody, "\n";
} else {
    print "Success: Bucket deleted.\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>