Tcl
Tcl
Download S3 CloudTrail Log and Un-Gzip
See more Amazon S3 Examples
Demonstrates how to download a Amazon CloudTrail log from an S3 bucket. The file in this example is a .json.gz. The file is uncompressed and the JSON parsed.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
CkHttp_put_AwsAccessKey $http "AWS_ACCESS_KEY"
CkHttp_put_AwsSecretKey $http "AWS_SECRET_KEY"
CkHttp_put_AwsRegion $http "us-west-2"
CkHttp_put_AwsEndpoint $http "s3-us-west-2.amazonaws.com"
set bucketName "chilkat.logs"
set objectName "/AWSLogs/957491831129/CloudTrail/us-west-1/2016/11/12/957491831129_CloudTrail_us-west-1_20161112T1335Z_umXfD4RxHE5nDGuI.json.gz"
set localFilePath "qa_output/cloudTrailLog.json.gz"
set success [CkHttp_S3_DownloadFile $http $bucketName $objectName $localFilePath]
if {$success != 1} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
exit
}
set statusCode [CkHttp_get_LastStatus $http]
if {$statusCode != 200} then {
puts "Failed to download, response status code = $statusCode"
delete_CkHttp $http
exit
}
set jsonPath "qa_output/cloudTrailLog.json"
set gzip [new_CkGzip]
set success [CkGzip_UncompressFile $gzip $localFilePath $jsonPath]
if {$success == 0} then {
puts [CkGzip_lastErrorText $gzip]
delete_CkHttp $http
delete_CkGzip $gzip
exit
}
set json [new_CkJsonObject]
CkJsonObject_LoadFile $json $jsonPath
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]
# Sample JSON is shown below.
# Go to http://tools.chilkat.io/jsonParse.cshtml
# and copy/paste the JSON into the online tool to generate parsing code.
# {
# "Records": [
# {
# "eventVersion": "1.05",
# "userIdentity": {
# "type": "Root",
# "principalId": "954591834127",
# "arn": "arn:aws:iam::954591834127:root",
# "accountId": "954591834127",
# "accessKeyId": "ASIAJ3DEMXUXI43B6FYQ",
# "sessionContext": {
# "attributes": {
# "mfaAuthenticated": "false",
# "creationDate": "2016-11-12T13:09:31Z"
# }
# }
# },
# "eventTime": "2016-11-12T13:34:39Z",
# "eventSource": "cloudtrail.amazonaws.com",
# "eventName": "DescribeTrails",
# "awsRegion": "us-west-1",
# "sourceIPAddress": "98.228.98.57",
# "userAgent": "console.amazonaws.com",
# "requestParameters": {
# "trailNameList": [
# ]
# },
# "responseElements": null,
# "requestID": "c2a0376c-a8dc-11e6-89e7-85ac5ce5ee56",
# "eventID": "eb5afd70-dae1-41f0-82b4-91c3c936d9ba",
# "eventType": "AwsApiCall",
# "recipientAccountId": "954591834127"
# }
# ]
# }
delete_CkHttp $http
delete_CkGzip $gzip
delete_CkJsonObject $json