Visual FoxPro Requires Chilkat v11.7.0+

Box: Upload a Large File in Parts and Commit the Session

See more Box Examples

Run the reusable setup once per HttpCurl object, then select names and execute the operation. The setup is repeated here only to make this published example independently runnable. Resolve documents by name, then perform the explicit chunked-upload session, part, and commit loop. Supports 20 MB through 2 GB using int. Saves recovery information and honors bounded commit Retry-After.

See the Box API guide for setup and the complete workflow.

Visual FoxPro

LOCAL lnSuccess
LOCAL loCurl
LOCAL loSetupCommand
LOCAL lnSetupReplacements
LOCAL lcParentName
LOCAL lcFolderName
LOCAL loAuthorizedCommand1
LOCAL lnHeaderReplacement1
LOCAL lcLocalPath
LOCAL loFile
LOCAL lcSizeString
LOCAL loSizeText
LOCAL loSizeMatch
LOCAL lnFileSize
LOCAL loHttp
LOCAL loResponse
LOCAL loRequest
LOCAL loSession
LOCAL lnPartSize
LOCAL lcUploadUrl
LOCAL lcCommitUrl
LOCAL loHash
LOCAL lcFileDigest
LOCAL loCommit
LOCAL loPartResponse
LOCAL loChunk
LOCAL loRange
LOCAL loDigestHeader
LOCAL lnOffset
LOCAL lnPartIndex
LOCAL lnPartLength
LOCAL lnLastByte
LOCAL lcPartDigest
LOCAL lnAttempts
LOCAL lnWaitSeconds
LOCAL loRetryHeader
LOCAL loRetryMatch
LOCAL lnCompleted

lnSuccess = 0

*  Requires Chilkat 11.7.0 or later and a previously unlocked Chilkat bundle.
*  See Global Unlock Sample.
*  Guide: Box API Guide.

lnSuccess = 0

*  BEGIN ONE-TIME SETUP
*  This block is repeated so each published example can run on its own.
*  In an application, run the setup example once and pass the SAME curl object
*  to operation code below. Do not recreate it for every operation.
*  See Reusable Box HttpCurl Setup.
loCurl = CreateObject('Chilkat.HttpCurl')
loCurl.SetVar("access_token","BOX_ACCESS_TOKEN")
loCurl.SetVar("parent_name","/")
*  Box's fixed root ID is an implementation detail; callers supply names.
loCurl.SetVar("parent_id","0")
loSetupCommand = CreateObject('Chilkat.StringBuilder')

*  Register findParent; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/folders/0/items?limit=1000&fields=id,type,name" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("findParent",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register findFolder; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/folders/{{parent_id}}/items?limit=1000&fields=id,type,name" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("findFolder",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register findFile; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/folders/{{folder_id}}/items?limit=1000&fields=id,type,name" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("findFile",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register findDestination; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/folders/0/items?limit=1000&fields=id,type,name" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("findDestination",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register getFileDetails; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/files/{{file_id}}?fields=id,sha1,file_version" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("getFileDetails",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register getEnterprise; registration sends no request.
loSetupCommand.SetString('curl -X GET "https://api.box.com/2.0/users/me?fields=enterprise" -H "Authorization: Bearer ACCESS_TOKEN"')
lnSetupReplacements = loSetupCommand.Replace("ACCESS_TOKEN",loCurl.GetVar("access_token"))
lnSuccess = loCurl.AddFunction("getEnterprise",loSetupCommand.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  Register output rules once. Chilkat 11.7.0 evaluates {{name}} variables
*  when extracting each output, using the current value at that time.
lnSuccess = loCurl.AddOutput2("findParent","entries","name","{{parent_name}}",1,"id","parent_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput2("findFolder","entries","name","{{folder_name}}",1,"id","folder_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput2("findFile","entries","name","{{file_name}}",1,"id","file_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput2("findDestination","entries","name","{{destination_name}}",1,"id","destination_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput("getFileDetails","file_version.id","file_version_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput("getFileDetails","sha1","file_sha1")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

lnSuccess = loCurl.AddOutput("getEnterprise","enterprise.id","enterprise_id")
IF (lnSuccess <> 1) THEN
    ? loCurl.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    CANCEL
ENDIF

*  END ONE-TIME SETUP
*  The name lookups below assume each listing fits in one page (1000 items).
*  Parent and destination names select root children; folder_name selects a child
*  of parent_name. "/" selects the root parent. These are not arbitrary paths.

*  BEGIN OPERATION -- keep the configured object when reusing it.
*  Inputs are names. Retain cached IDs when the selected names have not changed.
lcParentName = "/"
lcFolderName = "documents"
IF ((loCurl.GetVar("parent_name") <> lcParentName) OR ((lcParentName = "/") AND (loCurl.VarDefined("parent_id") = 0))) THEN
    loCurl.SetVar("parent_name",lcParentName)
    loCurl.ClearVar("parent_id")
    loCurl.ClearVar("folder_id")
    loCurl.ClearVar("file_id")
    loCurl.ClearVar("file_version_id")
    loCurl.ClearVar("file_sha1")
    IF (lcParentName = "/") THEN
        loCurl.SetVar("parent_id","0")
    ENDIF

ENDIF

IF (loCurl.GetVar("folder_name") <> lcFolderName) THEN
    loCurl.SetVar("folder_name",lcFolderName)
    loCurl.ClearVar("folder_id")
    loCurl.ClearVar("file_id")
    loCurl.ClearVar("file_version_id")
    loCurl.ClearVar("file_sha1")
ENDIF

*  Resolve the named destination first. HttpCurl does not expand variables
*  inside multipart -F attributes in the tested build, so this upload is two phases.
loCurl.ClearTargetOutput("*")
loAuthorizedCommand1 = CreateObject('Chilkat.StringBuilder')
loAuthorizedCommand1.SetString('curl -X GET "https://api.box.com/2.0/folders/{{folder_id}}?fields=id" -H "Authorization: Bearer {{access_token}}"')
lnHeaderReplacement1 = loAuthorizedCommand1.Replace("{{access_token}}",loCurl.GetVar("access_token"))
lnSuccess = loCurl.DoYourThing(loAuthorizedCommand1.GetAsString())
IF ((lnSuccess <> 1) OR (loCurl.StatusCode <> 200)) THEN
    ? "Box request failed. HTTP status: " + STR(loCurl.StatusCode)
    ? "Failure reason: " + STR(loCurl.FailReason)
    ? loCurl.ResponseBodyStr
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    CANCEL
ENDIF

*  This example limits size to 2 GB so offsets fit all generated languages' integers.
*  The source must not change during hashing or upload. Create qa_output first.
lcLocalPath = "qa_data/large-document.zip"
loFile = CreateObject('Chilkat.FileAccess')
*  Check the decimal size before converting so an oversized file cannot overflow int.
lcSizeString = loFile.FileSizeStr(lcLocalPath)
IF (loFile.LastMethodSuccess <> 1) THEN
    ? loFile.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    CANCEL
ENDIF

loSizeText = CreateObject('Chilkat.StringBuilder')
loSizeText.SetString(lcSizeString)
loSizeMatch = CreateObject('Chilkat.JsonObject')
IF (loSizeText.RegexMatch("^([0-9]{1,9}|1[0-9]{9}|2000000000)$",loSizeMatch,100) <> 1) THEN
    ? "Choose an input between 20 MB and 2 GB for this example."
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    CANCEL
ENDIF

lnFileSize = VAL(lcSizeString)
IF (lnFileSize < 20971520) THEN
    ? "Choose an input between 20 MB and 2 GB for this example."
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = loCurl.GetVar("access_token")
loResponse = CreateObject('Chilkat.HttpResponse')
loRequest = CreateObject('Chilkat.JsonObject')
loRequest.UpdateString("folder_id",loCurl.GetVar("folder_id"))
loRequest.UpdateString("file_name","large-document.zip")
loRequest.UpdateInt("file_size",lnFileSize)
lnSuccess = loHttp.HttpJson("POST","https://upload.box.com/api/2.0/files/upload_sessions",loRequest,"application/json",loResponse)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    CANCEL
ENDIF

IF (loResponse.StatusCode <> 201) THEN
    ? loResponse.BodyStr
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    CANCEL
ENDIF

loSession = CreateObject('Chilkat.JsonObject')
lnSuccess = loSession.Load(loResponse.BodyStr)
IF (lnSuccess <> 1) THEN
    ? loSession.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    CANCEL
ENDIF

lnSuccess = loSession.WriteFile("qa_output/box_upload_session.json")
IF (lnSuccess <> 1) THEN
    ? loSession.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    CANCEL
ENDIF

lnPartSize = loSession.IntOf("part_size")
lcUploadUrl = loSession.StringOf("session_endpoints.upload_part")
lcCommitUrl = loSession.StringOf("session_endpoints.commit")
IF ((lnPartSize <= 0) OR (lcUploadUrl = "") OR (lcCommitUrl = "")) THEN
    ? "Invalid session response."
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    CANCEL
ENDIF

loHash = CreateObject('Chilkat.Crypt2')
loHash.HashAlgorithm = "sha1"
loHash.EncodingMode = "base64"
lcFileDigest = loHash.HashFileENC(lcLocalPath)
IF (loHash.LastMethodSuccess <> 1) THEN
    ? loHash.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    RELEASE loHash
    CANCEL
ENDIF

lnSuccess = loFile.FileOpen(lcLocalPath,2147483648,1,3,0)
IF (lnSuccess <> 1) THEN
    ? loFile.LastErrorText
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    RELEASE loHash
    CANCEL
ENDIF

loCommit = CreateObject('Chilkat.JsonObject')
loPartResponse = CreateObject('Chilkat.JsonObject')
loChunk = CreateObject('Chilkat.BinData')
loRange = CreateObject('Chilkat.StringBuilder')
loDigestHeader = CreateObject('Chilkat.StringBuilder')
lnOffset = 0
lnPartIndex = 0

DO WHILE lnOffset < lnFileSize
    loChunk.Clear()
    lnSuccess = loFile.FileReadBd(lnPartSize,loChunk)
    IF (lnSuccess <> 1) THEN
        ? loFile.LastErrorText
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    lnPartLength = loChunk.NumBytes
    IF (lnPartLength <= 0) THEN
        ? "Unexpected end of file."
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    lnLastByte = lnOffset + (lnPartLength - 1)
    loRange.Clear()
    loRange.Append("bytes ")
    loRange.AppendInt(lnOffset)
    loRange.Append("-")
    loRange.AppendInt(lnLastByte)
    loRange.Append("/")
    loRange.AppendInt(lnFileSize)
    lcPartDigest = loHash.HashBdENC(loChunk)
    IF (loHash.LastMethodSuccess <> 1) THEN
        ? loHash.LastErrorText
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    loDigestHeader.SetString("sha=")
    loDigestHeader.Append(lcPartDigest)
    loHttp.SetRequestHeader("Digest",loDigestHeader.GetAsString())
    loHttp.SetRequestHeader("Content-Range",loRange.GetAsString())
    lnSuccess = loHttp.HttpBd("PUT",lcUploadUrl,loChunk,"application/octet-stream",loResponse)
    IF ((lnSuccess <> 1) OR (loResponse.StatusCode <> 200)) THEN
        ? "Part failed. HTTP status: " + STR(loResponse.StatusCode)
        ? loResponse.BodyStr
        ? "Inspect the saved session and server list_parts before retrying this part."
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    lnSuccess = loPartResponse.Load(loResponse.BodyStr)
    IF (lnSuccess <> 1) THEN
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    loCommit.I = lnPartIndex
    *  Copy the server's acknowledged part fields into the commit manifest.
    loCommit.UpdateString("parts[i].part_id",loPartResponse.StringOf("part.part_id"))
    loCommit.UpdateInt("parts[i].offset",loPartResponse.IntOf("part.offset"))
    loCommit.UpdateInt("parts[i].size",loPartResponse.IntOf("part.size"))
    loCommit.UpdateString("parts[i].sha1",loPartResponse.StringOf("part.sha1"))
    lnSuccess = loCommit.WriteFile("qa_output/box_upload_parts.json")
    IF (lnSuccess <> 1) THEN
        ? loCommit.LastErrorText
        loFile.FileClose()
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        CANCEL
    ENDIF

    lnOffset = lnOffset + lnPartLength
    lnPartIndex = lnPartIndex + 1
ENDDO
loFile.FileClose()
loHttp.RemoveRequestHeader("Content-Range")
loDigestHeader.SetString("sha=")
loDigestHeader.Append(lcFileDigest)
loHttp.SetRequestHeader("Digest",loDigestHeader.GetAsString())
lnAttempts = 0

loRetryHeader = CreateObject('Chilkat.StringBuilder')
loRetryMatch = CreateObject('Chilkat.JsonObject')
lnCompleted = 0
DO WHILE (lnAttempts < 10) AND (lnCompleted = 0)
    lnSuccess = loHttp.HttpJson("POST",lcCommitUrl,loCommit,"application/json",loResponse)
    IF (lnSuccess <> 1) THEN
        ? "Commit failed: " + STR(loResponse.StatusCode)
        ? loResponse.BodyStr
        RELEASE loCurl
        RELEASE loSetupCommand
        RELEASE loAuthorizedCommand1
        RELEASE loFile
        RELEASE loSizeText
        RELEASE loSizeMatch
        RELEASE loHttp
        RELEASE loResponse
        RELEASE loRequest
        RELEASE loSession
        RELEASE loHash
        RELEASE loCommit
        RELEASE loPartResponse
        RELEASE loChunk
        RELEASE loRange
        RELEASE loDigestHeader
        RELEASE loRetryHeader
        RELEASE loRetryMatch
        CANCEL
    ENDIF

    IF (loResponse.StatusCode = 201) THEN
        lnCompleted = 1
    ELSE
        IF (loResponse.StatusCode <> 202) THEN
            ? "Unexpected commit status: " + STR(loResponse.StatusCode)
            RELEASE loCurl
            RELEASE loSetupCommand
            RELEASE loAuthorizedCommand1
            RELEASE loFile
            RELEASE loSizeText
            RELEASE loSizeMatch
            RELEASE loHttp
            RELEASE loResponse
            RELEASE loRequest
            RELEASE loSession
            RELEASE loHash
            RELEASE loCommit
            RELEASE loPartResponse
            RELEASE loChunk
            RELEASE loRange
            RELEASE loDigestHeader
            RELEASE loRetryHeader
            RELEASE loRetryMatch
            CANCEL
        ENDIF

        *  Box's asynchronous commit response supplies Retry-After in seconds.
        loRetryHeader.SetString(loResponse.GetHeaderField("Retry-After"))
        IF (loRetryHeader.RegexMatch("^[0-9]{1,2}$",loRetryMatch,100) <> 1) THEN
            ? "Commit pending. Preserve the session and inspect Retry-After before resuming: " + loRetryHeader.GetAsString()
            RELEASE loCurl
            RELEASE loSetupCommand
            RELEASE loAuthorizedCommand1
            RELEASE loFile
            RELEASE loSizeText
            RELEASE loSizeMatch
            RELEASE loHttp
            RELEASE loResponse
            RELEASE loRequest
            RELEASE loSession
            RELEASE loHash
            RELEASE loCommit
            RELEASE loPartResponse
            RELEASE loChunk
            RELEASE loRange
            RELEASE loDigestHeader
            RELEASE loRetryHeader
            RELEASE loRetryMatch
            CANCEL
        ENDIF

        lnWaitSeconds = VAL(loRetryHeader.GetAsString())
        IF ((lnWaitSeconds < 1) OR (lnWaitSeconds > 60)) THEN
            ? "Commit pending. Resume commit after Retry-After: " + loResponse.GetHeaderField("Retry-After")
            RELEASE loCurl
            RELEASE loSetupCommand
            RELEASE loAuthorizedCommand1
            RELEASE loFile
            RELEASE loSizeText
            RELEASE loSizeMatch
            RELEASE loHttp
            RELEASE loResponse
            RELEASE loRequest
            RELEASE loSession
            RELEASE loHash
            RELEASE loCommit
            RELEASE loPartResponse
            RELEASE loChunk
            RELEASE loRange
            RELEASE loDigestHeader
            RELEASE loRetryHeader
            RELEASE loRetryMatch
            CANCEL
        ENDIF

        loHttp.SleepMs(lnWaitSeconds * 1000)
    ENDIF

    lnAttempts = lnAttempts + 1
ENDDO
IF (lnCompleted = 0) THEN
    ? "Commit still pending; retain session and part manifests to resume commit later."
    RELEASE loCurl
    RELEASE loSetupCommand
    RELEASE loAuthorizedCommand1
    RELEASE loFile
    RELEASE loSizeText
    RELEASE loSizeMatch
    RELEASE loHttp
    RELEASE loResponse
    RELEASE loRequest
    RELEASE loSession
    RELEASE loHash
    RELEASE loCommit
    RELEASE loPartResponse
    RELEASE loChunk
    RELEASE loRange
    RELEASE loDigestHeader
    RELEASE loRetryHeader
    RELEASE loRetryMatch
    CANCEL
ENDIF

? "Upload committed: " + loResponse.BodyStr

RELEASE loCurl
RELEASE loSetupCommand
RELEASE loAuthorizedCommand1
RELEASE loFile
RELEASE loSizeText
RELEASE loSizeMatch
RELEASE loHttp
RELEASE loResponse
RELEASE loRequest
RELEASE loSession
RELEASE loHash
RELEASE loCommit
RELEASE loPartResponse
RELEASE loChunk
RELEASE loRange
RELEASE loDigestHeader
RELEASE loRetryHeader
RELEASE loRetryMatch