Amazon AIM Upload Inventory

Demonstrates how to upload an inventory management file using the Amazon Inventory Management (AIM) API.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$req = new chilkat::CkHttpRequest();
$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

#  The CookieDir may be set to "memory" to keep an in-memory cache of cookies.
#  Alternatively, you may set it to a directory, such as "c:/temp/cookies".  If you do that,
#  you can visually browse the cookies which will appear as XML files in the CookieDir.
$http->put_CookieDir("memory");

#  Tell the HTTP component to save any cookies received.  Also tell the component to
#  re-send cookies with subsequent GETs and POSTs.
$http->put_SendCookies(1);
$http->put_SaveCookies(1);

#  Build an HTTP upload request:
$req->UseUpload();

#  The path may be one of these 3 choices:
#  /exec/panama/seller-admin/catalog-upload/add-modify-delete
#  /exec/panama/seller-admin/catalog-upload/modify-only
#  /exec/panama/seller-admin/catalog-upload/purge-replace
$req->put_Path("/exec/panama/seller-admin/catalog-upload/add-modify-delete");

#  Load the inventory file into the HTTPS request:
$success = $req->AddFileForUpload("myInventory","myInventory.txt");
if ($success != 1) {
    print $req->lastErrorText() . "\n";
    exit;
}

#  Setting your login/password causes Chilkat to automatically add the Authorization header:
$http->put_Login("YourLoginEmailAddress");
$http->put_Password("YourPassword");

# call req.AddHeader("BatchID", "Y");
$req->AddHeader("FileFormat","TabDelimited");
$req->AddHeader("UploadFor","MarketplaceOnly");

#  Send the HTTP POST and get the response.  Note: This is a blocking call.
#  The method does not return until the full HTTP response is received.

$domain = "merchant-query.amazon.com";
$port = 443;
$ssl = 1;

# resp is a CkHttpResponse
$resp = $http->SynchronousRequest($domain,$port,$ssl,$req);
if ($resp eq null ) {
    print $http->lastErrorText() . "\r\n";
}
else {
    #  Display the XML returned.
    print $resp->bodyStr() . "\r\n";
}