Perl

eBay -- Upload Bulk Data using FileTransferService

See more eBay Examples

Demonstrates how to upload your data file using the eBay File Transfer API. Perl

use chilkat();

$success = 0;

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

# Use a previously obtained access token.  The token should look something like this:
# "AgAAAA**AQA ..."
$accessToken = "EBAY_ACCESS_TOKEN";

$http = chilkat::CkHttp->new();

$apiCall = "uploadFile";
$fileAttachmentUuid = "<urn:uuid:bb47b86a237311e793ae92361f002671>";
$xmlUuid = "<urn:uuid:bb47b766237311e793ae92361f002671>";

$req = chilkat::CkHttpRequest->new();

$req->put_HttpVerb("POST");
$req->put_Path("/FileTransferService");

$sbContentType = chilkat::CkStringBuilder->new();
$sbContentType->Append("multipart/related; type=\"application/xop+xml\"; start=\"XMLUUID\"; start-info=\"text/xml\"");
$replaceCount = $sbContentType->Replace("XMLUUID",$xmlUuid);
$req->put_ContentType($sbContentType->getAsString());

$req->AddHeader("X-EBAY-SOA-SERVICE-NAME","FileTransferService");
$req->AddHeader("X-EBAY-SOA-OPERATION-NAME",$apiCall);
$req->AddHeader("X-EBAY-SOA-SECURITY-TOKEN",$accessToken);
$req->AddHeader("X-EBAY-SOA-REQUEST-DATA-FORMAT","XML");
$req->AddHeader("X-EBAY-SOA-RESPONSE-DATA-FORMAT","XML");
$req->AddHeader("User-Agent","AnythingYouWant");

$pathToFileOnDisk1 = "qa_data/ebay/uploadFileRequest.xml";
$success = $req->AddFileForUpload("uploadFileRequest.xml",$pathToFileOnDisk1);
if ($success == 0) {
    print $req->lastErrorText() . "\r\n";
    exit;
}

$pathToFileOnDisk2 = "qa_data/ebay/BulkDataExchangeRequests.gz";
$success = $req->AddFileForUpload("BulkDataExchangeRequests.gz",$pathToFileOnDisk2);
if ($success == 0) {
    print $req->lastErrorText() . "\r\n";
    exit;
}

# Add sub-headers for each file in the request.
$req->AddSubHeader(0,"Content-Type","application/xop+xml; charset=UTF-8; type=\"text/xml\"");
$req->AddSubHeader(0,"Content-Transfer-Encoding","binary");
$req->AddSubHeader(0,"Content-ID",$xmlUuid);
$req->AddSubHeader(1,"Content-Type","application/octet-stream");
$req->AddSubHeader(1,"Content-Transfer-Encoding","binary");
$req->AddSubHeader(1,"Content-ID",$fileAttachmentUuid);

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpSReq("storage.sandbox.ebay.com",443,1,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code = " . $resp->get_StatusCode() . "\r\n";

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

if ($resp->get_StatusCode() != 200) {
    print $xml->getXml() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# We still may have a failure.  The XML needs to be checked.
# A failed response might look like this:

# 	<?xml version="1.0" encoding="UTF-8" ?>
# 	<uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
# 	    <ack>Failure</ack>
# 	    <errorMessage>
# 	        <error>
# 	            <errorId>1</errorId>
# 	            <domain>Marketplace</domain>
# 	            <severity>Error</severity>
# 	            <category>Application</category>
# 	            <message>Task Reference Id is invalid</message>
# 	            <subdomain>FileTransfer</subdomain>
# 	        </error>
# 	    </errorMessage>
# 	    <version>1.1.0</version>
# 	    <timestamp>2017-04-18T01:05:27.475Z</timestamp>
# 	</uploadFileResponse>

# A successful response looks like this:

# 	<?xml version="1.0" encoding="UTF-8" ?>
# 	<uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
# 	    <ack>Success</ack>
# 	    <version>1.1.0</version>
# 	    <timestamp>2017-04-18T01:22:47.853Z</timestamp>
# 	</uploadFileResponse>

print $xml->getXml() . "\r\n";

# Get the "ack" to see if it's "Failure" or "Success"
if ($xml->ChildContentMatches("ack","Success",0)) {
    print "Success." . "\r\n";
}
else {
    print "Failure." . "\r\n";
}