(Perl) Amazon SP-API Sellers Get Marketplace Participations

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get marketplace participations.

For more information, see https://developer-docs.amazon.com/sp-api/docs/sellers-api-v1-reference#getmarketplaceparticipations

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();
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
# Make sure to use the correct domain.
# In this example, we are using "sandbox.sellingpartnerapi-eu.amazon.com"
$success = $rest->Connect("sandbox.sellingpartnerapi-eu.amazon.com",$port,$bTls,$bAutoReconnect);
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");
$rest->ClearAllHeaders();
$rest->AddHeader("x-amz-access-token",$lwa_token);

# Indicate the marketplace.  Use the marketplace ID for your needs. See https://developer-docs.amazon.com/sp-api/docs/marketplace-ids
$rest->ClearAllPathParams();
$rest->AddPathParam("MarketplaceId","A1F83G8C2ARO7P");

$sbResponse = chilkat::CkStringBuilder->new();
$uri = "/sellers/v1/marketplaceParticipations";
$success = $rest->FullRequestNoBodySb("GET",$uri,$sbResponse);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Examine the response status.
$statusCode = $rest->get_ResponseStatusCode();
if ($statusCode != 200) {
    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:

# {
#   "payload": [
#     {
#       "marketplace": {
#         "id": "ATVPDKIKX0DER",
#         "countryCode": "US",
#         "name": "Amazon.com",
#         "defaultCurrencyCode": "USD",
#         "defaultLanguageCode": "en_US",
#         "domainName": "www.amazon.com"
#       },
#       "participation": {
#         "isParticipating": true,
#         "hasSuspendedListings": false
#       }
#     }
#   ]
# }

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

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

$json->LoadSb($sbResponse);

$i = 0;
$count_i = $json->SizeOfArray("payload");
while ($i < $count_i) {
    $json->put_I($i);
    $Id = $json->stringOf("payload[i].marketplace.id");
    $CountryCode = $json->stringOf("payload[i].marketplace.countryCode");
    $Name = $json->stringOf("payload[i].marketplace.name");
    $DefaultCurrencyCode = $json->stringOf("payload[i].marketplace.defaultCurrencyCode");
    $DefaultLanguageCode = $json->stringOf("payload[i].marketplace.defaultLanguageCode");
    $DomainName = $json->stringOf("payload[i].marketplace.domainName");
    $IsParticipating = $json->BoolOf("payload[i].participation.isParticipating");
    $HasSuspendedListings = $json->BoolOf("payload[i].participation.hasSuspendedListings");
    $i = $i + 1;
}

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