Reordering forests for the rebalancer after adding more hosts to a cluster.

database-reorder-forests.xqy

xquery version "1.0-ml";

import module namespace admin = "http://marklogic.com/xdmp/admin" at "/MarkLogic/admin.xqy";

declare variable $DATABASE as xs:string := "example-db";

let $config := admin:get-configuration()
let $dbid := admin:database-get-id($config, $DATABASE)

return
admin:save-configuration(
admin:database-reorder-forests($config, $dbid,
(for $i in xdmp:database-forests(xdmp:database($DATABASE))
let $fname := xdmp:forest-name($i)
order by number(substring-before(substring-after($fname, "n"),"-"))
return ($i))
)
)