Tcl

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. Tcl

load ./chilkat.dll

set success 0

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

# Load your own feed data file.
set sbRequestBody [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbRequestBody "C:/AAWorkarea/test-despatch-upload.txt" "utf-8"]
if {$success == 0} then {
    puts "Failed to load test-despatch-upload.txt."
    delete_CkStringBuilder $sbRequestBody
    exit
}

# The SP-API Create Feed example returned JSON such as this.

# {
#   "feedDocumentId": "amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ",
#   "url": "https://tortuga-prod-eu.s3-eu-west-1.amazonaws.com/%2FNinetyDays/amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Date=20230222T014944Z&X-Amz-SignedHeaders=content-type%3Bhost&X-Amz-Expires=300&X-Amz-Credential=XXXXXXXXXXXXXXXXX%2F20230222%2Feu-west-1%2Fs3%2Faws4_request&X-Amz-Signature=XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
# }

# Load the JSON feed file created by this example:  SP-API Create Feed
set jsonFeedInfo [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonFeedInfo "qa_data/json/sp_api_feed_upload_info.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonFeedInfo]
    delete_CkStringBuilder $sbRequestBody
    delete_CkJsonObject $jsonFeedInfo
    exit
}

# Get the pre-signed URL
set url [CkJsonObject_stringOf $jsonFeedInfo "url"]

# We can use the Chilkat HTTP object because the URL is pre-signed.
# We don't need to add our own AWS authentication because it's already in the pre-signed URL,
# which is only valid for short amount of time.
set http [new_CkHttp]

# NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
set resp [new_CkHttpResponse]

set success [CkHttp_HttpSb $http "PUT" $url $sbRequestBody "utf-8" "text/tab-separated-values; charset=UTF-8" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbRequestBody
    delete_CkJsonObject $jsonFeedInfo
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

puts "status code = [CkHttpResponse_get_StatusCode $resp]"
puts "status text = [CkHttpResponse_statusText $resp]"
puts "response body:"
puts [CkHttpResponse_bodyStr $resp]

delete_CkStringBuilder $sbRequestBody
delete_CkJsonObject $jsonFeedInfo
delete_CkHttp $http
delete_CkHttpResponse $resp