PureBasic

Glacier Upload Archive

See more Amazon Glacier Examples

Demonstrates how to add an archive to a vault. For a successful upload, your data is durably persisted. In response, Amazon S3 Glacier (Glacier) returns the archive ID in the x-amz-archive-id header of the response. You should save the archive ID returned so that you can access the archive later.

Note: This example requires Chilkat v9.5.0.78 or greater.

PureBasic

IncludeFile "CkStream.pb"
IncludeFile "CkAuthAws.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    success.i = 0

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

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to the Amazon AWS REST server in the desired region.
    bTls.i = 1
    port.i = 443
    bAutoReconnect.i = 1
    success = CkRest::ckConnect(rest,"glacier.us-west-2.amazonaws.com",port,bTls,bAutoReconnect)

    ; Provide AWS credentials.
    authAws.i = CkAuthAws::ckCreate()
    If authAws.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkAuthAws::setCkAccessKey(authAws, "AWS_ACCESS_KEY")
    CkAuthAws::setCkSecretKey(authAws, "AWS_SECRET_KEY")
    CkAuthAws::setCkServiceName(authAws, "glacier")
    CkAuthAws::setCkRegion(authAws, "us-west-2")

    success = CkRest::ckSetAuthAws(rest,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 Upload Archive Reference Documentation
    ; 
    CkRest::ckAddHeader(rest,"x-amz-glacier-version","2012-06-01")

    ; We'll need to pre-compute the SHA256 tree hash and the SHA256 linear hash.
    ; The hashes are added in the following request headers:

    ; x-amz-sha256-tree-hash: SHA256 tree hash
    ; x-amz-content-sha256: SHA256 linear hash

    ; The file we'll be uploading
    filePath.s = "qa_data/zips/somethingBig.zip"

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkCrypt2::setCkHashAlgorithm(crypt, "sha256-tree-hash")
    CkCrypt2::setCkEncodingMode(crypt, "hexlower")
    treeHashHex.s = CkCrypt2::ckHashFileENC(crypt,filePath)
    CkRest::ckAddHeader(rest,"x-amz-sha256-tree-hash",treeHashHex)

    CkCrypt2::setCkHashAlgorithm(crypt, "sha256")
    linearHashHex.s = CkCrypt2::ckHashFileENC(crypt,filePath)
    CkAuthAws::setCkPrecomputedSha256(authAws, linearHashHex)

    ; We can optionally add a description
    ; In this case, we'll set the description equal to the local filepath of the file we're uploading.
    CkRest::ckAddHeader(rest,"x-amz-archive-description",filePath)

    ; Upload the file to the vault named "chilkat"
    fileStream.i = CkStream::ckCreate()
    If fileStream.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStream::setCkSourceFile(fileStream, filePath)

    ; May need to increase the timeout if this is a really large file..
    CkRest::setCkIdleTimeoutMs(rest, 120000)

    ;  Add an Expect: 100-continue request header
    CkRest::ckAddHeader(rest,"Expect","100-continue")

    responseStr.s = CkRest::ckFullRequestStream(rest,"POST","/AWS_ACCOUNT_ID/vaults/chilkat/archives",fileStream)
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkAuthAws::ckDispose(authAws)
        CkCrypt2::ckDispose(crypt)
        CkStream::ckDispose(fileStream)
        ProcedureReturn
    EndIf

    respStatusCode.i = CkRest::ckResponseStatusCode(rest)
    If respStatusCode >= 400
        Debug "Response Status Code = " + Str(respStatusCode)
        Debug "Response Header:"
        Debug CkRest::ckResponseHeader(rest)
        Debug "Response Body:"
        Debug responseStr
        CkRest::ckDispose(rest)
        CkAuthAws::ckDispose(authAws)
        CkCrypt2::ckDispose(crypt)
        CkStream::ckDispose(fileStream)
        ProcedureReturn
    EndIf

    ; Success is indicated by a 201 response status with an empty response body.
    Debug "response status code = " + Str(respStatusCode)

    ; If successful, the response header looks like this.
    ; The Location and x-amz-archive-id are two items of information we may wish to save..

    ; HTTP/1.1 201 Created
    ; x-amzn-RequestId: AAABZpJrTyioDC_HsOmHae8EZp_uBSJr6cnGOLKp_XJCl-Q
    ; Date: Wed, 10 Feb 2017 12:00:00 GMT
    ; x-amz-sha256-tree-hash: beb0fe31a1c7ca8c6c04d574ea906e3f97b31fdca7571defb5b44dca89b5af60
    ; Location: /111122223333/vaults/examplevault/archives/NkbByEejwEggmBz2fTH ... GlqrEXAMPLEArchiveId
    ; x-amz-archive-id: NkbByEejwEggmBz2fTHgJrg0XBoDfjP4q6iu87-TjhqG6eGoOY9Z8i1_AUyUsu ... BfGlqrEXAMPLEArchiveId
    ; 

    archiveId.s = CkRest::ckResponseHdrByName(rest,"x-amz-archive-id")
    Debug "x-amz-archive-id = " + archiveId

    location.s = CkRest::ckResponseHdrByName(rest,"Location")
    Debug "Location = " + location


    CkRest::ckDispose(rest)
    CkAuthAws::ckDispose(authAws)
    CkCrypt2::ckDispose(crypt)
    CkStream::ckDispose(fileStream)


    ProcedureReturn
EndProcedure