DescribeInstanceStorageConfig TCL Example
load ./chilkat.dll
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set rest [new_CkRest]
set authAws [new_CkAuthAws]
CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "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.)
CkAuthAws_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $authAws "connect"
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws $rest $authAws
# URL: https://connect.us-west-2.amazonaws.com/
# Use the same region as specified above.
set success [CkRest_Connect $rest "connect.us-west-2.amazonaws.com" 443 1 1]
if {$success != 1} then {
puts "ConnectFailReason: [CkRest_get_ConnectFailReason $rest]"
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
exit
}
CkRest_AddHeader $rest "Content-Type" "application/x-amz-json-1.1"
CkRest_AddHeader $rest "X-Amz-Target" "DescribeInstanceStorageConfig"
set sbResponseBody [new_CkStringBuilder]
set success [CkRest_FullRequestNoBodySb $rest "GET" "/instance/{InstanceId}/storage-config/{AssociationId}" $sbResponseBody]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkStringBuilder $sbResponseBody
exit
}
set respStatusCode [CkRest_get_ResponseStatusCode $rest]
puts "response status code = $respStatusCode"
if {$respStatusCode != 200} then {
puts "Response Header:"
puts [CkRest_responseHeader $rest]
puts "Response Body:"
puts [CkStringBuilder_getAsString $sbResponseBody]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkStringBuilder $sbResponseBody
exit
}
set jResp [new_CkJsonObject]
CkJsonObject_LoadSb $jResp $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
set AssociationId [CkJsonObject_stringOf $jResp "StorageConfig.AssociationId"]
set FirehoseArn [CkJsonObject_stringOf $jResp "StorageConfig.KinesisFirehoseConfig.FirehoseArn"]
set StreamArn [CkJsonObject_stringOf $jResp "StorageConfig.KinesisStreamConfig.StreamArn"]
set EncryptionType [CkJsonObject_stringOf $jResp "StorageConfig.KinesisVideoStreamConfig.EncryptionConfig.EncryptionType"]
set KeyId [CkJsonObject_stringOf $jResp "StorageConfig.KinesisVideoStreamConfig.EncryptionConfig.KeyId"]
set Prefix [CkJsonObject_stringOf $jResp "StorageConfig.KinesisVideoStreamConfig.Prefix"]
set RetentionPeriodHours [CkJsonObject_IntOf $jResp "StorageConfig.KinesisVideoStreamConfig.RetentionPeriodHours"]
set BucketName [CkJsonObject_stringOf $jResp "StorageConfig.S3Config.BucketName"]
set BucketPrefix [CkJsonObject_stringOf $jResp "StorageConfig.S3Config.BucketPrefix"]
set EncryptionConfigEncryptionType [CkJsonObject_stringOf $jResp "StorageConfig.S3Config.EncryptionConfig.EncryptionType"]
set EncryptionConfigKeyId [CkJsonObject_stringOf $jResp "StorageConfig.S3Config.EncryptionConfig.KeyId"]
set StorageType [CkJsonObject_stringOf $jResp "StorageConfig.StorageType"]
# A sample JSON response body parsed by the above code:
# {
# "StorageConfig": {
# "AssociationId": "string",
# "KinesisFirehoseConfig": {
# "FirehoseArn": "string"
# },
# "KinesisStreamConfig": {
# "StreamArn": "string"
# },
# "KinesisVideoStreamConfig": {
# "EncryptionConfig": {
# "EncryptionType": "string",
# "KeyId": "string"
# },
# "Prefix": "string",
# "RetentionPeriodHours": number
# },
# "S3Config": {
# "BucketName": "string",
# "BucketPrefix": "string",
# "EncryptionConfig": {
# "EncryptionType": "string",
# "KeyId": "string"
# }
# },
# "StorageType": "string"
# }
# }
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp