Perl
Perl
eBay -- Create or Replace Inventory Item
See more eBay Examples
This example shows how to create a new inventory item record or update an existing inventory item record.See Create or Replace Inventory Item for more REST API details.
Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# This example sends the following sample PUT request to create (or replace) a new inventory item.
# PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
# {
# "availability":
# {
# "shipToLocationAvailability":
# {
# "quantity": 50
# }
# },
# "condition": "NEW",
# "product":
# {
# "title": "GoPro Hero4 Helmet Cam",
# "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
# "aspects": {
# "Brand" :["GoPro"],
# "Type" : ["Helmet/Action"],
# "Storage Type" : ["Removable"],
# "Recording Definition" : ["High Definition"],
# "Media Format" : ["Flash Drive (SSD)"],
# "Optical Zoom" : ["10x"]
# },
# "imageUrls": [
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
# ]
# }
# }
# First, generate the JSON using this code:
$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->UpdateNumber("availability.shipToLocationAvailability.quantity","50");
$json->UpdateString("condition","NEW");
$json->UpdateString("product.title","GoPro Hero4 Helmet Cam");
$json->UpdateString("product.description","New GoPro Hero4 Helmet Cam. Unopened box.");
$json->UpdateString("product.aspects.Brand[0]","GoPro");
$json->UpdateString("product.aspects.Type[0]","Helmet/Action");
$json->UpdateString("product.aspects.\"Storage Type\"[0]","Removable");
$json->UpdateString("product.aspects.\"Recording Definition\"[0]","High Definition");
$json->UpdateString("product.aspects.\"Media Format\"[0]","Flash Drive (SSD)");
$json->UpdateString("product.aspects.\"Optical Zoom\"[0]","10x");
$json->UpdateString("product.imageUrls[0]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg");
$json->UpdateString("product.imageUrls[1]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg");
$json->UpdateString("product.imageUrls[2]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg");
# Show the JSON to be sent:
print $json->emit() . "\r\n";
# Use a previously obtained user token. The token should look something like this:
# "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
$accessToken = "EBAY_ACCESS_TOKEN";
$http = chilkat::CkHttp->new();
# This example uses the sandbox.
# Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
# Note: The last part of the url is the SKU. In this URL, the SKU is "GP-Cam-01".
$url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01";
$json->put_EmitCompact(1);
# Set your Content-Language to whatever is desired.
$http->SetRequestHeader("Content-Language","en-US");
# Add our access token to the request, which is a header
# having the following format:
# Authorization: Bearer <userAccessToken>
$sbAuth = chilkat::CkStringBuilder->new();
$sbAuth->Append("Bearer ");
$sbAuth->Append($accessToken);
$http->SetRequestHeader("Authorization",$sbAuth->getAsString());
$http->put_Accept("application/json");
$http->put_AllowGzip(0);
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("PUT",$url,$json->emit(),"utf-8","application/json",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
print "Response status code = " . $resp->get_StatusCode() . "\r\n";
if ($http->get_LastStatus() != 204) {
print $resp->bodyStr() . "\r\n";
print "Failed" . "\r\n";
exit;
}
# On success (status code = 204), there is no output payload (strResponse will be empty).
print "Inventory item successfully created." . "\r\n";