MarkLogic: Clearing the Expanded Tree Cache for all hosts in a cluster

clear-etc.xqy

xquery version "1.0-ml";

declare variable $USER as xs:string := "username";
declare variable $PASS as xs:string := "password";
declare variable $HOSTS as xs:unsignedLong+ := for $i in xdmp:groups() return xdmp:group-hosts($i);
declare variable $PORT as xs:unsignedLong := 8002;
declare variable $ENDPOINT as xs:string := "/v1/eval";
declare variable $PAYLOAD as xs:string := xdmp:quote("xquery=xdmp:expanded-tree-cache-clear()");

declare variable $OPTIONS as element() := 
<options xmlns="xdmp:http">
  <authentication method="digest">
    <username>{$USER}</username>
    <password>{$PASS}</password>
  </authentication>
  <data>{$PAYLOAD}</data>
  <headers>
    <content-type>application/x-www-form-urlencoded</content-type>
  </headers>
</options>;

declare function local:generate-cluster-endpoints() as xs:string* {
  for $h in $HOSTS
  return "http://" || xdmp:host-name($h) || ":" || $PORT || $ENDPOINT
};

for $endpoint in local:generate-cluster-endpoints() return xdmp:http-post($endpoint, $OPTIONS)