Perl

Wasabi List Buckets

See more Wasabi Examples

Demonstrates how to list Wasabi buckets. Perl

use chilkat();

$success = 0;

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

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

# Insert your access key here:
$http->put_AwsAccessKey("access-key");

# Insert your secret key here:
$http->put_AwsSecretKey("secret-key");

$http->put_AwsEndpoint("s3.wasabisys.com");

$bucketsXml = $http->s3_ListBuckets();

if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$xml->LoadXml($bucketsXml);
print $xml->getXml() . "\r\n";

# Use this online tool to generate parsing code from sample XML: 
# Generate Parsing Code from XML

# Sample output:

# <?xml version="1.0" encoding="UTF-8"?>
# <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
#     <Owner>
#         <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#         <DisplayName>admin</DisplayName>
#     </Owner>
#     <Buckets>
#         <Bucket>
#             <Name>chilkat</Name>
#             <CreationDate>2021-10-26T12:39:44.000Z</CreationDate>
#         </Bucket>
#         <Bucket>
#             <Name>chilkat-wasabi-testbucket</Name>
#             <CreationDate>2021-10-27T21:07:40.000Z</CreationDate>
#         </Bucket>
#     </Buckets>
# </ListAllMyBucketsResult>

$ListAllMyBucketsResult_xmlns = $xml->getAttrValue("xmlns");
$ID = $xml->getChildContent("Owner|ID");
$DisplayName = $xml->getChildContent("Owner|DisplayName");
$i = 0;
$count_i = $xml->NumChildrenHavingTag("Buckets|Bucket");
while ($i < $count_i) {
    $xml->put_I($i);
    $Name = $xml->getChildContent("Buckets|Bucket[i]|Name");
    $CreationDate = $xml->getChildContent("Buckets|Bucket[i]|CreationDate");
    $i = $i + 1;
}