Perl help needed LWP

[Saleem Mukhtar]

Hello,

I am trying to use the Perl LWP and HTTP modules to communicate with the 
eBay API but I get the following message

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.

Please respond to me directly as I do not read this board.

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




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>