Perl Requires Chilkat v11.0.0+

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";
}