(Perl) Walmart - Update Inventory for an Item

Demonstrates how to update inventory for an item.

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.

# Sends the following PUT request:
# PUT https://marketplace.walmartapis.com/v2/inventory?sku={SKU}

$sbUrl = chilkat::CkStringBuilder->new();
$success = $sbUrl->Append("https://marketplace.walmartapis.com/v2/inventory?sku={SKU}");
$numReplaced = $sbUrl->Replace("{SKU}","HOPP~904~51041");

$requestMethod = "PUT";

# First we need to generate a signature for our request.
# The signature needs to be re-generated for each new Walmart HTTP request.
$authUtil = chilkat::CkAuthUtil->new();

$wmConsumerId = "WALMART_CONSUMER_ID";
$wmPrivateKey = "WALMART_PRIVATE_KEY";
$jsonStr = $authUtil->walmartSignature($sbUrl->getAsString(),$wmConsumerId,$wmPrivateKey,$requestMethod);
if ($authUtil->get_LastMethodSuccess() != 1) {
    print $authUtil->lastErrorText() . "\r\n";
    exit;
}

# The JSON returned by WalmartSignature contains the values to be used in the following
# header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
$json = chilkat::CkJsonObject->new();
$json->Load($jsonStr);

$http = chilkat::CkHttp->new();
$http->SetRequestHeader("WM_SVC.NAME","Walmart Marketplace");
$http->SetRequestHeader("WM_QOS.CORRELATION_ID",$json->stringOf("correlation_id"));
$http->SetRequestHeader("WM_SEC.TIMESTAMP",$json->stringOf("timestamp"));
$http->SetRequestHeader("WM_SEC.AUTH_SIGNATURE",$json->stringOf("signature"));
$http->SetRequestHeader("WM_CONSUMER.ID",$wmConsumerId);
$http->put_Accept("application/xml");

# Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

# The body of the PUT request will be XML that looks like this:

# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<wm:inventory xmlns:wm="http://walmart.com/">
# 	    <wm:sku>HOPP~904~51041</wm:sku>
# 	    <wm:quantity>
# 	        <wm:unit>EACH</wm:unit>
# 	        <wm:amount>235</wm:amount>
# 	    </wm:quantity>
# 	    <wm:fulfillmentLagTime>5</wm:fulfillmentLagTime>
# 	</wm:inventory>

# Build the XML request body:
$originalAmount = 234;

$xmlBody = chilkat::CkXml->new();
$xmlBody->put_Tag("wm:inventory");
$xmlBody->AddAttribute("xmlns:wm","http://walmart.com/");
$xmlBody->UpdateChildContent("wm:sku","HOPP~904~51041");
$xmlBody->UpdateChildContent("wm:quantity|wm:unit","EACH");
$xmlBody->UpdateChildContentInt("wm:quantity|wm:amount",$originalAmount + 1);
$xmlBody->UpdateChildContent("wm:fulfillmentLagTime","5");

print "PUT request body:" . "\r\n";
print $xmlBody->getXml() . "\r\n";
print "--" . "\r\n";

# This is a simple PUT that can be sent w/ the PutText method.
$xmlStr = $http->putText($sbUrl->getAsString(),$xmlBody->getXml(),"utf-8","application/xml",0,0);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$xml->LoadXml($xmlStr);

# A successful response should have a 200 response status
if ($http->get_LastStatus() != 200) {
    print $xml->getXml() . "\r\n";
    print "Response Status Code: " . $http->get_LastStatus() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# A sample XML response is shown below..
print $xml->getXml() . "\r\n";
print "--" . "\r\n";
print "Success!" . "\r\n";

# ---------------------------------------
# Sample XML response
# ---------------------------------------

# <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
# <inventory xmlns="http://walmart.com/">
#     <sku>HOPP~904~51041</sku>
#     <quantity>
#         <unit>EACH</unit>
#         <amount>235</amount>
#     </quantity>
#     <fulfillmentLagTime>5</fulfillmentLagTime>
# </inventory>