Perl Requires Chilkat v11.0.0+

Transition from Http.S3_DeleteMultipleObjects to Http.S3_DeleteObjects

Provides instructions for replacing deprecated S3_DeleteMultipleObjects method calls with S3_DeleteObjects. Perl

use chilkat();

$success = 0;

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

$bucketName = "testBucket";

$sa = chilkat::CkStringArray->new();
$sa->Append("starfish.jpg");
$sa->Append("clam.jpg");
$sa->Append("shark.jpg");

$st = chilkat::CkStringTable->new();
$st->Append("starfish.jpg");
$st->Append("clam.jpg");
$st->Append("shark.jpg");

#  ------------------------------------------------------------------------
#  The S3_DeleteMultipleObjects method is deprecated:

# responseObj is a HttpResponse
$responseObj = $http->S3_DeleteMultipleObjects($bucketName,$sa);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  ...
#  ...

#  ------------------------------------------------------------------------
#  Do the equivalent using S3_DeleteObjects.
#  Your application creates a new, empty HttpResponse object which is passed 
#  in the last argument and filled upon success.

$responseOut = chilkat::CkHttpResponse->new();
$success = $http->S3_DeleteObjects($bucketName,$st,$responseOut);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}