xquery version "3.0";

declare namespace httpclient= "http://exist-db.org/xquery/httpclient";
declare namespace http = "http://expath.org/ns/http-client";

(:  let $headers := <headers>
        <header name="Content-Type" value="text/xml"/>
    </headers>:)
let $headerss := <headers><header name="Accept" value="text/html,application/xhtml+xml,application/xml"/>
    <header name="Accept-Language" value="en-gb,en;q=0.5"/>
    <header name="Accept-Encoding" value="gzip, deflate"/>
</headers>

let $header := 
   <headers>
     <header name="Content-Type" value="application/x-www-form-urlencoded"/>
   </headers>

let $url := 'http://ww3.bgbm.org/biocase/pywrapper.cgi?dsa=rebind_guicking_natrix'(:'http://markmail.markmail.org/atom/':)



let $request :=
<http:request href='http://ww3.bgbm.org/biocase/pywrapper.cgi?dsa=rebind_guicking_natrix'
method='post'>
<http:multipart media-type='multipart/form-data' boundary='--A0Bce'>
<http:body media-type='application/xml'>
<query xmlns="http://basex.org/rest">
  <request xmlns='http://www.biocase.org/schemas/protocol/1.3'>
  <header><type>search</type></header><search>
  <requestFormat>http://www.tdwg.org/schemas/abcd/2.06</requestFormat>
  <responseFormat start='0' limit='10'>http://www.tdwg.org/schemas/abcd/2.06</responseFormat>
  <count>false</count>
  </search>
  </request>
</query>
</http:body>
</http:multipart>
</http:request>


(:return http:send-request($request):)

(:let $req := <http:request href="{$url}" method="get"/>:) (:This works :)
(:let $req := <http:request href="{$url}" method="post">
<http:multipart media-type='multipart/form-data' boundary='--A0Bce'> 
<http:body media-type='text/xml'>
</http:body>
</http:multipart>
</http:request>:)
let $req := <http:request xmlns:http="http://expath.org/ns/http-client" 
  method="post" href="http://ww3.bgbm.org/biocase/pywrapper.cgi?dsa=rebind_guicking_natrix" 
username="" password="" auth-method="" send-authorization="false" 
  follow-redirect="true">
<http:headers><http:header name="Accept" value="application/xhtml+xml"/>
<!--http:header name="Accept-Encoding" value="gzip, deflate"/>
<http:header name="Accept-Language" value="en-gb,en;q=0.5"/-->
<!--http:header name="Connection" value="keep-alive"/-->
<http:header name="Content-Type" value="application/x-www-form-urlencoded"/>
<!--http:header name="Host" value="ww3.bgbm.org"/>
<http:header name="Referer" value="http://ww3.bgbm.org/biocase/utilities/queryforms/qf_manual.cgi?dsa=rebind_guicking_natrix"/>
<http:header name="User-Agent" value="Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/535.19 (KHTML, like Gecko) Chrome/18.0.1025.165 Safari/535.19"/--></http:headers>
<http:body content-type="application/x-www-form-urlencoded">
<query xmlns="http://basex.org/rest">
  <request xmlns='http://www.biocase.org/schemas/protocol/1.3'>
  <header><type>search</type></header><search>
  <requestFormat>http://www.tdwg.org/schemas/abcd/2.06</requestFormat>
  <responseFormat start='0' limit='10'>http://www.tdwg.org/schemas/abcd/2.06</responseFormat>
  <count>false</count>
  </search>
  </request>
</query>
</http:body>
</http:request>

let $req := <http:request xmlns:http="http://expath.org/ns/http-client" 
  method="post" href="http://ww3.bgbm.org/biocase/pywrapper.cgi?dsa=rebind_guicking_natrix">
<!--http:headers>
<http:header name="Content-Type" value="application/x-www-form-urlencoded"/></http:headers-->
<http:body media-type="application/x-www-form-urlencoded">
<query xmlns="http://basex.org/rest">
  <request xmlns='http://www.biocase.org/schemas/protocol/1.3'>
  <header><type>search</type></header><search>
  <requestFormat>http://www.tdwg.org/schemas/abcd/2.06</requestFormat>
  <responseFormat start='0' limit='10'>http://www.tdwg.org/schemas/abcd/2.06</responseFormat>
  <count>false</count>
  </search>
  </request>
</query>
</http:body>
</http:request>

let $reqworks := 
<http:request method="post" href="http://ww3.bgbm.org/biocase/pywrapper.cgi?dsa=rebind_guicking_natrix">
   <http:body media-type="application/x-www-form-urlencoded">Submit=Submit</http:body></http:request>

(:ok get status code 200:)
let $reqs := 
<http:request method="post" href="{$url}">
   <http:body media-type="application/x-www-form-urlencoded">query=%3C%3Fxml+version%3D%271.0%27+encoding%3D%27UTF-8%27%3F%3E%0D%0A%3Crequest+xmlns%3D%27http%3A%2F%2Fwww.biocase.org%2Fschemas%2Fprotocol%2F1.3%27%3E%0D%0A++%3Cheader%3E%3Ctype%3Esearch%3C%2Ftype%3E%3C%2Fheader%3E%0D%0A++%3Csearch%3E%0D%0A++++%3CrequestFormat%3Ehttp%3A%2F%2Fwww.tdwg.org%2Fschemas%2Fabcd%2F2.06%3C%2FrequestFormat%3E%0D%0A++++%3CresponseFormat+start%3D%270%27+limit%3D%27100%27%3Ehttp%3A%2F%2Fwww.tdwg.org%2Fschemas%2Fabcd%2F2.06%3C%2FresponseFormat%3E%0D%0A++++++%3Ccount%3Efalse%3C%2Fcount%3E%0D%0A++%3C%2Fsearch%3E%0D%0A%3C%2Frequest%3E</http:body></http:request>


let $doc := doc("/db/test/biocase_query.xml")
return http:send-request($reqs)[1]//@status
   
(:return httpclient:post(xs:anyURI($urlcomplete), $doc, false(), $header):)
(:return httpclient:post(xs:anyURI($url), "dummy", false(), $header):)