Sample code for 30+ languages & platforms
Objective-C

Amazon Glacier Set Vault Access Policy

See more Amazon Glacier Examples

Demonstrates how to set an access policy for a vault (will overwrite the existing policy).

Chilkat Objective-C Downloads

Objective-C
#import <CkoRest.h>
#import <CkoAuthAws.h>
#import <CkoJsonObject.h>
#import <CkoStringBuilder.h>

BOOL success = NO;

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

CkoRest *rest = [[CkoRest alloc] init];

//  Connect to the Amazon AWS REST server in the desired region.
BOOL bTls = YES;
int port = 443;
BOOL bAutoReconnect = YES;
success = [rest Connect: @"glacier.us-west-2.amazonaws.com" port: [NSNumber numberWithInt: port] tls: bTls autoReconnect: bAutoReconnect];

//  Provide AWS credentials.
CkoAuthAws *authAws = [[CkoAuthAws alloc] init];
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" value: @"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"
//      }
//    ]
//  }

CkoJsonObject *jsonPolicy = [[CkoJsonObject alloc] init];
[jsonPolicy UpdateString: @"Version" value: @"2012-10-17"];
[jsonPolicy UpdateString: @"Statement[0].Sid" value: @"Define-owner-access-rights"];
[jsonPolicy UpdateString: @"Statement[0].Effect" value: @"Allow"];
[jsonPolicy UpdateString: @"Statement[0].Principal.AWS" value: @"arn:aws:iam::AWS_ACCOUNT_ID:root"];
[jsonPolicy UpdateString: @"Statement[0].Action" value: @"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" value: @"arn:aws:glacier:us-west-2:AWS_ACCOUNT_ID:vaults/chilkat"];

//  Wrap the above JSON in this JSON:

//  {
//     "Policy": "{  ... the above JSON ... }"
//  }
CkoJsonObject *json = [[CkoJsonObject alloc] init];
[json UpdateString: @"Policy" value: [jsonPolicy Emit]];

CkoStringBuilder *sbRequestBody = [[CkoStringBuilder alloc] init];
[json EmitSb: sbRequestBody];

CkoStringBuilder *sbResponseBody = [[CkoStringBuilder alloc] init];
success = [rest FullRequestSb: @"PUT" uriPath: @"/AWS_ACCOUNT_ID/vaults/chilkat/access-policy" requestBody: sbRequestBody responseBody: sbResponseBody];
if (success != YES) {
    NSLog(@"%@",rest.LastErrorText);
    return;
}

int respStatusCode = [rest.ResponseStatusCode intValue];
if (respStatusCode >= 400) {
    NSLog(@"%@%d",@"Response Status Code = ",respStatusCode);
    NSLog(@"%@",@"Response Header:");
    NSLog(@"%@",rest.ResponseHeader);
    NSLog(@"%@",@"Response Body:");
    NSLog(@"%@",[sbResponseBody GetAsString]);
    return;
}

//  Success is indicated by a 204 response status with an empty response body.
NSLog(@"%@%d",@"response status code = ",respStatusCode);