Remove orphaned amps at wipe

[grtjn]

Related to #282. Ken shared code to remove orphaned amps, worth a look if that can be integrated into wipe:

let $script :=
'xquery version "1.0-ml";

declare namespace sec="http://marklogic.com/xdmp/security";

declare function local:db-exists($id) as xs:boolean
{
  if($id = 0) then fn:true()
  else
  try{
    xdmp:database-name($id)[0],fn:true()
  }
  catch($ex){
    fn:false()
  }
};

let $dead-amps := /sec:amp[fn:not(local:db-exists(./sec:database))]
return
(
for $dead-amp in $dead-amps
return
xdmp:document-delete($dead-amp)
,
xdmp:log(fn:count($dead-amps)||" dead amps removed")
)
'
return
xdmp:eval($script,(),<options
xmlns="xdmp:eval"><database>{xdmp:database("Security")}</database></options>)

[grtjn]

Fixed in dev