MarkLogic: xdmp:http-get() with Squid

squid.xqy

xquery version "1.0-ml";
 
declare function local:http-get-proxy($proxy as xs:string, $uri as xs:string) {
  let $host := tokenize($uri,'/')[3]  
  let $proxyuri := resolve-uri(substring-after($uri, $host), $proxy)

  return
  xdmp:http-get($proxyuri,
  <options xmlns="xdmp:http">
    <headers>
      <Host>{$host}</Host>
    </headers>
  </options>)
};
 
local:http-get-proxy("http://192.168.1.100:3128", "http://www.marklogic.com")