I was wondering if I can use Applescript to make calls to ebays api servers?
This was the XML example provided. I spend a bit of time studying it to see if I can adapt it. I have not been to successful. Any tips or point me in the right direction would be appreciated.
Thanks
Joe
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
my $objUserAgent = LWP::UserAgent->new;
my $objHeader = HTTP::Headers->new;
$objHeader->push_header(‘X-EBAY-API-COMPATIBILITY-LEVEL’ => ‘391’);
$objHeader->push_header(‘X-EBAY-API-SESSION-CERTIFICATE’ =>
‘yourdevname;yourappname;yourcertname’);
$objHeader->push_header(‘X-EBAY-API-DEV-NAME’ => ‘yourdevname’);
$objHeader->push_header(‘X-EBAY-API-APP-NAME’ => ‘yourappname’);
$objHeader->push_header(‘X-EBAY-API-CERT-NAME’ => ‘yourcertname’);
$objHeader->push_header(‘X-EBAY-API-CALL-NAME’ => ‘GeteBayOfficialTime’);
$objHeader->push_header(‘X-EBAY-API-SITEID’ => ‘0’);
$objHeader->push_header(‘Content-Type’ => ‘text/xml’);
my $request = “<?xml version='1.0' encoding='utf-8'?>
<GeteBayOfficialTimeRequest xmlns="urn:ebay:apis:eBLBaseComponents">
Token goes here
”;
my $objRequest = HTTP::Request->new(“POST”, ‘https://api.sandbox.ebay.com/ws/api.dll’,
$objHeader, $request);
my $objResponse = $objUserAgent->request($objRequest);
if (!$objResponse->is_error)
{
print $objResponse->content;
}
else
{
print $objResponse->error_as_HTML;
}