Chilkat Online Tools

GetLifecyclePolicy Classic ASP Example

Amazon Data Lifecycle Manager

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rest = Server.CreateObject("Chilkat_9_5_0.Rest")

set authAws = Server.CreateObject("Chilkat_9_5_0.AuthAws")
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"

' Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
authAws.Region = "us-west-2"
authAws.ServiceName = "dlm"
' SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)

' URL: https://dlm.us-west-2.amazonaws.com/
' Use the same region as specified above.
success = rest.Connect("dlm.us-west-2.amazonaws.com",443,1,1)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "ConnectFailReason: " & rest.ConnectFailReason) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","GetLifecyclePolicy")

set sbResponseBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/policies/{policyId}/",sbResponseBody)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

respStatusCode = rest.ResponseStatusCode
Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & respStatusCode) & "</pre>"
If (respStatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Response Body:") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( sbResponseBody.GetAsString()) & "</pre>"
    Response.End
End If

set jResp = Server.CreateObject("Chilkat_9_5_0.JsonObject")
success = jResp.LoadSb(sbResponseBody)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

DateCreated = jResp.IntOf("Policy.DateCreated")
DateModified = jResp.IntOf("Policy.DateModified")
Description = jResp.StringOf("Policy.Description")
ExecutionRoleArn = jResp.StringOf("Policy.ExecutionRoleArn")
PolicyArn = jResp.StringOf("Policy.PolicyArn")
DescriptionRegex = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.DescriptionRegex")
EventType = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.EventType")
v_Type = jResp.StringOf("Policy.PolicyDetails.EventSource.Type")
ExcludeBootVolume = jResp.IntOf("Policy.PolicyDetails.Parameters.ExcludeBootVolume")
NoReboot = jResp.IntOf("Policy.PolicyDetails.Parameters.NoReboot")
PolicyType = jResp.StringOf("Policy.PolicyDetails.PolicyType")
PolicyId = jResp.StringOf("Policy.PolicyId")
State = jResp.StringOf("Policy.State")
StatusMessage = jResp.StringOf("Policy.StatusMessage")
v_String = jResp.StringOf("Policy.Tags.string")
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.Actions")
Do While i < count_i
    jResp.I = i
    Name = jResp.StringOf("Policy.PolicyDetails.Actions[i].Name")
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Actions[i].CrossRegionCopy")
    Do While j < count_j
        jResp.J = j
        CmkArn = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.CmkArn")
        Encrypted = jResp.IntOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].EncryptionConfiguration.Encrypted")
        Interval = jResp.IntOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.Interval")
        IntervalUnit = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].RetainRule.IntervalUnit")
        Target = jResp.StringOf("Policy.PolicyDetails.Actions[i].CrossRegionCopy[j].Target")
        j = j + 1
    Loop
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("Policy.PolicyDetails.EventSource.Parameters.SnapshotOwner[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.ResourceLocations")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("Policy.PolicyDetails.ResourceLocations[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.ResourceTypes")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("Policy.PolicyDetails.ResourceTypes[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.Schedules")
Do While i < count_i
    jResp.I = i
    CopyTags = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CopyTags")
    CronExpression = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.CronExpression")
    CreateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CreateRule.Interval")
    CreateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.IntervalUnit")
    Location = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.Location")
    Count = jResp.IntOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.Count")
    DeprecateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.Interval")
    DeprecateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].DeprecateRule.IntervalUnit")
    FastRestoreRuleCount = jResp.IntOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.Count")
    FastRestoreRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.Interval")
    FastRestoreRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.IntervalUnit")
    Name = jResp.StringOf("Policy.PolicyDetails.Schedules[i].Name")
    RetainRuleCount = jResp.IntOf("Policy.PolicyDetails.Schedules[i].RetainRule.Count")
    RetainRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].RetainRule.Interval")
    RetainRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].RetainRule.IntervalUnit")
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].CreateRule.Times")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CreateRule.Times[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules")
    Do While j < count_j
        jResp.J = j
        CmkArn = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CmkArn")
        CopyTags = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].CopyTags")
        DeprecateRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.Interval")
        DeprecateRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].DeprecateRule.IntervalUnit")
        Encrypted = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Encrypted")
        RetainRuleInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.Interval")
        RetainRuleIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].RetainRule.IntervalUnit")
        Target = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].Target")
        TargetRegion = jResp.StringOf("Policy.PolicyDetails.Schedules[i].CrossRegionCopyRules[j].TargetRegion")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].FastRestoreRule.AvailabilityZones[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].ShareRules")
    Do While j < count_j
        jResp.J = j
        UnshareInterval = jResp.IntOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareInterval")
        UnshareIntervalUnit = jResp.StringOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].UnshareIntervalUnit")
        k = 0
        count_k = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts")
        Do While k < count_k
            jResp.K = k
            strVal = jResp.StringOf("Policy.PolicyDetails.Schedules[i].ShareRules[j].TargetAccounts[k]")
            k = k + 1
        Loop
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].TagsToAdd")
    Do While j < count_j
        jResp.J = j
        Key = jResp.StringOf("Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Key")
        Value = jResp.StringOf("Policy.PolicyDetails.Schedules[i].TagsToAdd[j].Value")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("Policy.PolicyDetails.Schedules[i].VariableTags")
    Do While j < count_j
        jResp.J = j
        Key = jResp.StringOf("Policy.PolicyDetails.Schedules[i].VariableTags[j].Key")
        Value = jResp.StringOf("Policy.PolicyDetails.Schedules[i].VariableTags[j].Value")
        j = j + 1
    Loop
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("Policy.PolicyDetails.TargetTags")
Do While i < count_i
    jResp.I = i
    Key = jResp.StringOf("Policy.PolicyDetails.TargetTags[i].Key")
    Value = jResp.StringOf("Policy.PolicyDetails.TargetTags[i].Value")
    i = i + 1
Loop

' A sample JSON response body parsed by the above code:

' {
'   "Policy": {
'     "DateCreated": number,
'     "DateModified": number,
'     "Description": "string",
'     "ExecutionRoleArn": "string",
'     "PolicyArn": "string",
'     "PolicyDetails": {
'       "Actions": [
'         {
'           "CrossRegionCopy": [
'             {
'               "EncryptionConfiguration": {
'                 "CmkArn": "string",
'                 "Encrypted": boolean
'               },
'               "RetainRule": {
'                 "Interval": number,
'                 "IntervalUnit": "string"
'               },
'               "Target": "string"
'             }
'           ],
'           "Name": "string"
'         }
'       ],
'       "EventSource": {
'         "Parameters": {
'           "DescriptionRegex": "string",
'           "EventType": "string",
'           "SnapshotOwner": [
'             "string"
'           ]
'         },
'         "Type": "string"
'       },
'       "Parameters": {
'         "ExcludeBootVolume": boolean,
'         "NoReboot": boolean
'       },
'       "PolicyType": "string",
'       "ResourceLocations": [
'         "string"
'       ],
'       "ResourceTypes": [
'         "string"
'       ],
'       "Schedules": [
'         {
'           "CopyTags": boolean,
'           "CreateRule": {
'             "CronExpression": "string",
'             "Interval": number,
'             "IntervalUnit": "string",
'             "Location": "string",
'             "Times": [
'               "string"
'             ]
'           },
'           "CrossRegionCopyRules": [
'             {
'               "CmkArn": "string",
'               "CopyTags": boolean,
'               "DeprecateRule": {
'                 "Interval": number,
'                 "IntervalUnit": "string"
'               },
'               "Encrypted": boolean,
'               "RetainRule": {
'                 "Interval": number,
'                 "IntervalUnit": "string"
'               },
'               "Target": "string",
'               "TargetRegion": "string"
'             }
'           ],
'           "DeprecateRule": {
'             "Count": number,
'             "Interval": number,
'             "IntervalUnit": "string"
'           },
'           "FastRestoreRule": {
'             "AvailabilityZones": [
'               "string"
'             ],
'             "Count": number,
'             "Interval": number,
'             "IntervalUnit": "string"
'           },
'           "Name": "string",
'           "RetainRule": {
'             "Count": number,
'             "Interval": number,
'             "IntervalUnit": "string"
'           },
'           "ShareRules": [
'             {
'               "TargetAccounts": [
'                 "string"
'               ],
'               "UnshareInterval": number,
'               "UnshareIntervalUnit": "string"
'             }
'           ],
'           "TagsToAdd": [
'             {
'               "Key": "string",
'               "Value": "string"
'             }
'           ],
'           "VariableTags": [
'             {
'               "Key": "string",
'               "Value": "string"
'             }
'           ]
'         }
'       ],
'       "TargetTags": [
'         {
'           "Key": "string",
'           "Value": "string"
'         }
'       ]
'     },
'     "PolicyId": "string",
'     "State": "string",
'     "StatusMessage": "string",
'     "Tags": {
'       "string": "string"
'     }
'   }
' }

%>
</body>
</html>