MarkLogic: Quickly create a group of master and replica forests on a MarkLogic 3-node cluster

create-master-and-replica-forests-for-3-node-cluster.xqy

xquery version "1.0-ml";

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

declare variable $dbname := "DATABASE-NAME_HERE";
declare variable $CONFIG := admin:get-configuration();

(
(: Create Master Forests - A :) 
for $j in 1 to 5 
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-"||$j, xdmp:hosts()[1], "/space")
return admin:save-configuration($CONFIG),

(: Create Master Forests - B :)
for $j in 6 to 10 
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-"||$j, xdmp:hosts()[2], "/space")
return admin:save-configuration($CONFIG),

(: Create Master Forests - C :)
for $j in 11 to 15  
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-"||$j, xdmp:hosts()[3], "/space")
return admin:save-configuration($CONFIG),

(: CREATE REPLICAS - A :)
for $j in 1 to 5 
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-R-"||$j, xdmp:hosts()[2], "/space")
return admin:save-configuration($CONFIG),

(: CREATE REPLICAS - B :)
for $j in 6 to 10 
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-R-"||$j, xdmp:hosts()[3], "/space")
return admin:save-configuration($CONFIG),

(: CREATE REPLICAS - C :)
for $j in 11 to 15 
let $CONFIG := admin:forest-create($CONFIG, $dbname||"-R-"||$j, xdmp:hosts()[1], "/space")
return admin:save-configuration($CONFIG)
)