Query two databases, compare URIs, and delete obsolete documents

delete-obsolete-docs.xqy

xquery version "1.0-ml";

let $query := 'cts:uris()'
let $options :=
    <options xmlns="xdmp:eval">
      <database>{ xdmp:database("my.database") }</database>
    </options>
let $theocomURIs := xdmp:eval($query, (), $options)
let $dcwebURIs := cts:uris("/theocom/ia-xml/")[70001 to 80000]
for $dcwebURI in $dcwebURIs
let $uriString := fn:replace($dcwebURI, "/theocom", "")
return
(: The obsolete documents will not match any of the $theocomURIs. :)
  if ($uriString = $theocomURIs) then
       ()
  else if (fn:ends-with($uriString, ".xml")) then
            xdmp:document-delete(fn:concat("/theocom", $uriString))
       else ()