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>
