X X X

GeteBayOfficialTimeRequest

#!/usr/bin/perl -w
use strict; 

require 'ebay.ini';
my %INI = getIni();

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-DEV-NAME' => $INI{'EBAY-API-DEV-NAME'}); 
$objHeader->push_header('X-EBAY-API-APP-NAME' => $INI{'EBAY-API-APP-NAME'}); 
$objHeader->push_header('X-EBAY-API-CERT-NAME' => $INI{'EBAY-API-CERT-NAME'}); 
$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\"> 
		 <RequesterCredentials> 
		   <eBayAuthToken>$INI{'EBAY-AUTH-TOKEN'}</eBayAuthToken> 
		 </RequesterCredentials> 
	       </GeteBayOfficialTimeRequest>"; 

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) { 
	# Re-format XML output for better screen reading
	(my $content = $objResponse->content) =~ s/\<\//\&lt;\//g;
	foreach (split /\</, $content) {
		next unless $_;
		s/\&lt;/\</g; print "\<$_\n";
	}
} 
else { print $objResponse->error_as_HTML; } 

---

See also:
developer.ebay.com/DevZone/XML/docs/Reference/eBay/io_GeteBayOfficialTime.html↑

Advanced search tips

---

[ home ] - [ search ] - [ feedback ]

copyright by reto - created with mytexi