configuration sanity checks

check.xql

xquery version "3.0";

declare namespace col = "http://exist-db.org/collection-config/1.0";

(: retrieve all .xconf documents in /db/apps :)
let $dbapps := collection('/db/apps')//col:collection
    
(: retrieve all /db/apps related .xconf documents in /db/system :)
let $dbsystemapps := for $doc in collection('/db/system/config/db/apps')//col:collection return document-uri(root($doc))

(: find all .xconf documents in /db/apps that do not have an direct equivalent in /db/system,
 : or one in subcollection named after that xconf :)
for $app in $dbapps
    let $d:= document-uri(root($app))
    let $cpath := util:collection-name($app)
    let $scol := '/db/system/config' || $cpath || '/' || util:document-name($app)
return
    if ( ('/db/system/config' || $d) = $dbsystemapps) then () 
    else if(doc-available('/db/system/config' || $cpath|| '/' || substring-before(util:document-name($app), '.xconf') || '/' || util:document-name($app))) then () 
    else $d