I tried to translate that using the Network.Curl docs and ended up with the following code, but it's not sending the post data correctly (an ebay api error re an "unsupported verb", which I am told means a malformed request). Any ideas? The code from a perl tutorial (which works for me, making me think that my problem is just about the right way to post xml to a web service) follows the haskell version, which is meant to be a straight translation of that. Thanks, Jim ---------------------- [..skipped definitions of tokens etc..] opts = [CurlEncoding "text/xml" , CurlHttpHeaders ["X-EBAY-API-COMPATIBILITY-LEVEL="++compatLevel , "X-EBAY-API-DEV-NAME="++devName , "X-EBAY-API-APP-NAME="++appName , "X-EBAY-API-CERT-NAME="++certName , "X-EBAY-API-CALL-NAME=GeteBayOfficialTime" , "X-EBAY-API-SITEID=0"]] body = "<?xml version='1.0' encoding='utf-8'?>" ++ "" ++ " <RequesterCredentials>" ++ " <eBayAuthToken>"++token++"</eBayAuthToken>" ++ " </RequesterCredentials>" ++ "</GeteBayOfficialTimeRequest>" url = "https://api.sandbox.ebay.com/ws/api.dll" postData = HttpPost {postName = "body" , contentType = Just "text/xml" , content = ContentString body , extraHeaders = [] , showName = Nothing} opts = [] --also tried using curlPost and setopts then perform... main = withCurlDo (do h <- initialize curlMultiPost url opts [postData] ) --------------------------- Original perl: use strict; use LWP::UserAgent; use HTTP::Request; use HTTP::Headers; # define the HTTP header my $objHeader = HTTP::Headers->new; $objHeader->push_header('X-EBAY-API-COMPATIBILITY-LEVEL' => '391'); $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'); # define the XML request my $request = "<?xml version='1.0' encoding='utf-8'?>" . "" . " <RequesterCredentials>" . " <eBayAuthToken>TOKENGoesHERE</eBayAuthToken>" . " </RequesterCredentials>" . "</GeteBayOfficialTimeRequest>"; # make the call my $objRequest = HTTP::Request->new( "POST", "https://api.sandbox.ebay.com/ws/api.dll", $objHeader, $request ); # deal with the response my $objUserAgent = LWP::UserAgent->new; my $objResponse = $objUserAgent->request($objRequest); if (!$objResponse->is_error) { print $objResponse->content; } else { print $objResponse->error_as_HTML; } ------------------------------ This is what I get when running my version: $ ./curlTest * About to connect() to api.sandbox.ebay.com port 443 (#0) * Trying 66.135.197.133... * connected * Connected to api.sandbox.ebay.com (66.135.197.133) port 443 (#0) * successfully set certificate verify locations: * CAfile: /etc/ssl/certs/ca-certificates.crt CApath: none * SSL connection using AES256-SHA * Server certificate: * subject: /C=US/ST=California/L=San Jose/O=eBay Inc./OU=Site Operations/CN=api.sandbox.ebay.com * start date: 2008-01-25 00:00:00 GMT * expire date: 2010-03-15 23:59:59 GMT * common name: api.sandbox.ebay.com (matched) * issuer: /C=US/O=VeriSign, Inc./OU=VeriSign Trust Network/OU=Terms of use at https://www.verisign.com/rpa (c)05/CN=VeriSign Class 3 Secure Server CA * SSL certificate verify ok.

POST /ws/api.dll HTTP/1.1 Host: api.sandbox.ebay.com Accept: */* Accept-Encoding: text/xml Content-Length: 1254 Expect: 100-continue Content-Type: multipart/form-data; boundary=----------------------------7c836e9408cd

< HTTP/1.1 100 Continue < HTTP/1.1 200 OK < Date: Sat, 19 Jul 2008 20:04:12 GMT < Server: Microsoft-IIS/5.0 < X-EBAY-API-POOL-NAME: ___cDRidW90YmtiZWx9b2l3aQ== < X-EBAY-API-SERVER-NAME: ___dXUucnVlYnVvNzM3KTYzKzc3LTI0KTQxPD8zPTc= < Content-Type: text/xml < Content-Length: 330 < X-Cache: MISS from sjcsbagpigw02.sjc.ebay.com, MISS from sjcsbagpigw02.sjc.ebay.com < Connection: close < * Closing connection #0 <?xml version="1.0" encoding="UTF-8" ?><eBay><EBayTime>2008-07-19 20:04:55</EBayTime><Errors><Error><Code>2</Code><ErrorClass>RequestError</ErrorClass><SeverityCode>1</SeverityCode><Severity>SeriousError</Severity><Line>0</Line><Column>0</Column><ShortMessage><![CDATA[ Unsupported verb. ]]></ShortMessage></Error></Errors></eBay>