Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PHP ActiveX) Amazon Glacier Set Vault Access PolicyDemonstrates how to set an access policy for a vault (will overwrite the existing policy).
<?php // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Rest') $rest = new COM("Chilkat.Rest"); // Connect to the Amazon AWS REST server in the desired region. $bTls = 1; $port = 443; $bAutoReconnect = 1; $success = $rest->Connect('glacier.us-west-2.amazonaws.com',$port,$bTls,$bAutoReconnect); // Provide AWS credentials. // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.AuthAws') $authAws = new COM("Chilkat.AuthAws"); $authAws->AccessKey = 'AWS_ACCESS_KEY'; $authAws->SecretKey = 'AWS_SECRET_KEY'; $authAws->ServiceName = 'glacier'; $authAws->Region = 'us-west-2'; $success = $rest->SetAuthAws($authAws); // -------------------------------------------------------------------------- // Note: The above REST connection and setup of the AWS credentials // can be done once. After connecting, any number of REST calls can be made. // The "auto reconnect" property passed to rest.Connect indicates that if // the connection is lost, a REST method call will automatically reconnect // if needed. // -------------------------------------------------------------------------- // For more information, see Glacier Set Vault Access Policy Reference Documentation // $rest->AddHeader('x-amz-glacier-version','2012-06-01'); // Create the following JSON // Use this online tool to generate the code from sample JSON: // Generate Code to Create JSON // { // "Version": "2012-10-17", // "Statement": [ // { // "Sid": "Define-owner-access-rights", // "Effect": "Allow", // "Principal": { // "AWS": "arn:aws:iam::AWS_ACCOUNT_ID:root" // }, // "Action": "glacier:DeleteArchive", // "Resource": "arn:aws:glacier:us-west-2:AWS_ACCOUNT_ID:vaults/chilkat" // } // ] // } // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.JsonObject') $jsonPolicy = new COM("Chilkat.JsonObject"); $jsonPolicy->UpdateString('Version','2012-10-17'); $jsonPolicy->UpdateString('Statement[0].Sid','Define-owner-access-rights'); $jsonPolicy->UpdateString('Statement[0].Effect','Allow'); $jsonPolicy->UpdateString('Statement[0].Principal.AWS','arn:aws:iam::AWS_ACCOUNT_ID:root'); $jsonPolicy->UpdateString('Statement[0].Action','glacier:DeleteArchive'); // Notice here the name of the vault: "chilkat". Change it to your vault name. Also use your actual AWS account ID. $jsonPolicy->UpdateString('Statement[0].Resource','arn:aws:glacier:us-west-2:AWS_ACCOUNT_ID:vaults/chilkat'); // Wrap the above JSON in this JSON: // { // "Policy": "{ ... the above JSON ... }" // } // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.JsonObject') $json = new COM("Chilkat.JsonObject"); $json->UpdateString('Policy',$jsonPolicy->emit()); // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringBuilder') $sbRequestBody = new COM("Chilkat.StringBuilder"); $json->EmitSb($sbRequestBody); // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringBuilder') $sbResponseBody = new COM("Chilkat.StringBuilder"); $success = $rest->FullRequestSb('PUT','/AWS_ACCOUNT_ID/vaults/chilkat/access-policy',$sbRequestBody,$sbResponseBody); if ($success != 1) { print $rest->LastErrorText . "\n"; exit; } $respStatusCode = $rest->ResponseStatusCode; if ($respStatusCode >= 400) { print 'Response Status Code = ' . $respStatusCode . "\n"; print 'Response Header:' . "\n"; print $rest->ResponseHeader . "\n"; print 'Response Body:' . "\n"; print $sbResponseBody->getAsString() . "\n"; exit; } // Success is indicated by a 204 response status with an empty response body. print 'response status code = ' . $respStatusCode . "\n"; ?> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.