PHP ActiveX

S3 Add Tags to an Object

See more Amazon S3 (new) Examples

Demonstrates how to add one or more tags to an S3 object. PHP ActiveX

<?php

$success = 0;

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

$rest = new COM("Chilkat.Rest");

// Connect to the Amazon AWS REST server in the desired region.
// (for us-east-1, we use "s3.amazonaws.com", but for another region, such as us-west-2, we would use "s3-us-west-2.amazonaws.com")
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect('s3.amazonaws.com',$port,$bTls,$bAutoReconnect);

// Provide AWS credentials.
$authAws = new COM("Chilkat.AuthAws");
$authAws->AccessKey = 'AWS_ACCESS_KEY';
$authAws->SecretKey = 'AWS_SECRET_KEY';
$authAws->ServiceName = 's3';
$authAws->Region = 'us-east-1';

$rest->SetAuthAws($authAws);

// Set the bucket name via the HOST header.
// In this case, the bucket name is "chilkat100".
// Note that the Host header should use "bucketName.s3.amazonaws.com", not "bucketName.s3-us-east-1.amazonaws.com"
// The same applies to aother regions.  The Host header should simply be <bucketName>.s3.amazonaws.com regardless of the region.
$rest->Host = 'chilkat100.s3.amazonaws.com';

$xml = new COM("Chilkat.Xml");
$xml->Tag = 'Tagging';
$xml->UpdateChildContent('TagSet|Tag|Key','plant');
$xml->UpdateChildContent('TagSet|Tag|Value','chili pepper');

$sbRequestBody = new COM("Chilkat.StringBuilder");
$xml->GetXmlSb($sbRequestBody);

// It is important to add the terminating "=" after the "?tagging".
$sbResponse = new COM("Chilkat.StringBuilder");
$success = $rest->FullRequestSb('PUT','/chiliPepper.gif?tagging=',$sbRequestBody,$sbResponse);
if ($success == 0) {
    print $rest->LastErrorText . "\n";
    exit;
}

print 'Response status code: ' . $rest->ResponseStatusCode . "\n";

// When successful, the S3 Storage service will respond with a 200 response code,
// with an XML body.  
if ($rest->ResponseStatusCode != 200) {
    // Examine the request/response to see what happened.
    print 'response status code = ' . $rest->ResponseStatusCode . "\n";
    print 'response status text = ' . $rest->ResponseStatusText . "\n";
    print 'response header: ' . $rest->ResponseHeader . "\n";
    print 'response body: ' . $sbResponse->getAsString() . "\n";
    print '---' . "\n";
    print 'LastRequestStartLine: ' . $rest->LastRequestStartLine . "\n";
    print 'LastRequestHeader: ' . $rest->LastRequestHeader . "\n";
}

print $sbResponse->getAsString() . "\n";
print 'Success.' . "\n";

?>