(Perl) Amazon SP-API Create Feed

See more Amazon SP-API Examples

Creates a feed. Amazon returns a feedDocumentId value, encryption details, and a URL for uploading the feed contents.

For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2020-09-04-use-case-guide

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
$authAws->put_ServiceName("execute-api");
# Use the region that is correct for your needs.
$authAws->put_Region("eu-west-1");

$rest = chilkat::CkRest->new();
$success = $rest->Connect("sellingpartnerapi-eu.amazon.com",443,1,1);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$success = $rest->SetAuthAws($authAws);

# Load the previously obtained LWA access token.
# See Fetch SP-API LWA Access Token
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/sp_api_lwa_token.json");
if ($success == 0) {
    print "Failed to load LWA access token." . "\r\n";
    exit;
}

# Add the x-amz-access-token request header.
$lwa_token = $jsonToken->stringOf("access_token");

$jsonReq = chilkat::CkJsonObject->new();
$jsonReq->UpdateString("contentType","text/tab-separated-values; charset=UTF-8");

$sbRequest = chilkat::CkStringBuilder->new();
$jsonReq->EmitSb($sbRequest);

$rest->ClearAllQueryParams();
$rest->ClearAllHeaders();
$rest->AddHeader("x-amz-access-token",$lwa_token);

$sbResponse = chilkat::CkStringBuilder->new();
$path = "/feeds/2021-06-30/documents";
$success = $rest->FullRequestSb("POST",$path,$sbRequest,$sbResponse);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Examine the response status.
$statusCode = $rest->get_ResponseStatusCode();
print "statusCode: " . $statusCode . "\r\n";

if ($statusCode != 201) {
    print "Response status text: " . $rest->responseStatusText() . "\r\n";
    print "Response body: " . "\r\n";
    print $sbResponse->getAsString() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

print $sbResponse->getAsString() . "\r\n";

# If successful, gets a JSON response such as the following:

# {
#   "feedDocumentId": "3d4e42b5-1d6e-44e8-a89c-2abfca0625bb",
#   "url": "https://d34o8swod1owfl.cloudfront.net/Feed_101__POST_PRODUCT_DATA_.xml"
# }

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$json = chilkat::CkJsonObject->new();

$json->LoadSb($sbResponse);

$feedDocumentId = $json->stringOf("feedDocumentId");
$url = $json->stringOf("url");

# Save the JSON to a file for the example that constructs the XML feed and uploads..
$success = $json->WriteFile("qa_data/json/sp_api_feed_upload_info.json");

print "Success!" . "\r\n";