[ic] eBay API help needed

[Saleem Mukhtar]

Hello,

I am not sure what this board is for. But I did see some questions about 
the eBay API and since I have some, I thought I would post here.

I have tried several examples from 100 eBay Hacks and some code samples 
posted on the ebay website, but can't get them to work. I always get the 
following error.

500 Can't connect to api-test.ebay.com:443 (Bad protocol 'tcp')

Can someone help?? I am including some code below -- I have blanked out
userids and passwords.

Thanks,

Saleem

#!/usr/bin/perl

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' => '245');
$objHeader->push_header('X-EBAY-API-SESSION-CERTIFICATE' => 
'[DEVID];[APPID];[CERTID]');

my $request = "<?xml version='1.0' encoding='iso-8859-1'?>
				<request>
				<RequestUserId>[USERID]</RequestUserId>
				<RequestPassword>[PASSWORD]</RequestPassword>
				<ErrorLevel>1</ErrorLevel>
				<DetailLevel>0</DetailLevel>
				<Verb>GeteBayOfficialTime</Verb>
				</request>";
	
my $objRequest = HTTP::Request->new("POST", 
'https://api-test.ebay.com/aw-cgi/api.dll', $objHeader, $request);
my $objResponse = $objUserAgent->request($objRequest);

if (!$objResponse->is_error)
{
	print $objResponse->content;
}
else
{
	print $objResponse->error_as_HTML;
}
 
-- 
Saleem Mukhtar
Mail Code 136-93
California Institute of Technology
Pasadena. CA 91125