First stab at #808: accept unwrapped config parts, replace ml-config.xml with ml-config/

Author: grtjn

deploy/lib/server_config.rb

@@ -293,8 +293,8 @@ def self.init
     if !force && !force_config && File.exists?(target_config)
       error_msg << "ml-config.xml has already been created."
     else
-      #create clean marklogic configuration file
-      copy_file sample_config, target_config
+      #create clean marklogic configuration file(s)
+      FileUtils.cp_r sample_config, target_config
     end
 
     raise HelpException.new("init", error_msg.join("\n")) if error_msg.length > 0
@@ -2865,9 +2865,22 @@ def ssl_certificate_xml
     }
   end
 
-  def build_config(config_files)
+  def build_config(config_paths)
+    config_files = []
+    config_paths.split(",").each do |config_path|
+      if File.directory?(config_path)
+        Dir.glob(File.join(config_path, '**', '*')).reject {
+          |p| File.directory? p
+        }.each do |file|
+          config_files.push file
+        end
+      else
+        config_files.push config_path
+      end
+    end
+
     configs = []
-    config_files.split(",").each do |config_file|
+    config_files.each do |config_file|
       config = File.read(config_file)
 
     # Build the triggers db if it is provided

deploy/lib/xquery/setup.xqy

@@ -450,6 +450,67 @@ declare function setup:unique-attributes($attrs) {
   return map:keys($result) ! map:get($result, .)
 };
 
+declare function setup:wrap-config-fragments($fragments) {
+  if (fn:exists($fragments)) then
+    <configuration>
+      <hosts xmlns="http://marklogic.com/xdmp/hosts">{
+        setup:unique-attributes($fragments/self::ho:hosts/@*),
+        $fragments/self::ho:hosts/*,
+        $fragments/self::ho:host
+      }</hosts>
+      <assignments xmlns="http://marklogic.com/xdmp/assignments">{
+        setup:unique-attributes($fragments/self::as:assignments/@*),
+        $fragments/self::as:assignments/*,
+        $fragments/self::as:assignment
+      }</assignments>
+      <databases xmlns="http://marklogic.com/xdmp/database">{
+        setup:unique-attributes($fragments/self::db:databases/@*),
+        $fragments/self::db:databases/*,
+        $fragments/self::db:database
+      }</databases>
+      <certificates xmlns="http://marklogic.com/xdmp/pki">{
+        setup:unique-attributes($fragments/self::pki:certificates/@*),
+        $fragments/self::pki:certificates/*,
+        $fragments/self::pki:certificate
+      }</certificates>
+      <roles xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:roles/@*),
+        $fragments/self::sec:roles/*,
+        $fragments/self::sec:role
+      }</roles>
+      <users xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:users/@*),
+        $fragments/self::sec:users/*,
+        $fragments/self::sec:user
+      }</users>
+      <amps xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:amps/@*),
+        $fragments/self::sec:amps/*,
+        $fragments/self::sec:amp
+      }</amps>
+      <privileges xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:privileges/@*),
+        $fragments/self::sec:privileges/*,
+        $fragments/self::sec:privilege
+      }</privileges>
+      <mimetypes xmlns="http://marklogic.com/xdmp/mimetypes">{
+        setup:unique-attributes($fragments/self::mt:mimetypes/@*),
+        $fragments/self::mt:mimetypes/*,
+        $fragments/self::mt:mimetype
+      }</mimetypes>
+      <external-securities xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:external-securities/@*),
+        $fragments/self::sec:external-securities/*,
+        $fragments/self::sec:external-security
+      }</external-securities>
+      <credentials xmlns="http://marklogic.com/xdmp/security">{
+        setup:unique-attributes($fragments/self::sec:credentials/@*),
+        $fragments/self::sec:credentials/*
+      }</credentials>
+    </configuration>/*
+  else ()
+};
+
 (: for backwards-compatibility :)
 declare function setup:rewrite-config($import-configs as node()+) as element(configuration)
 {
@@ -464,26 +525,41 @@ declare function setup:rewrite-config($import-configs as node()+, $silent as xs:
 declare function setup:rewrite-config($import-configs as node()+, $silent as xs:boolean?, $keep-comments as xs:boolean?) as element(configuration)
 {
   let $config :=
-    element { fn:node-name($import-configs[1]) } {
-      setup:unique-attributes($import-configs/@*),
+    element configuration {
+      setup:unique-attributes($import-configs/self::configuration/@*),
 
       (: capture comments before gr:groups, and its older counterparts :)
-      $import-configs/(
+      $import-configs/self::configuration/(
         gr:groups, gr:http-servers, gr:xdbc-servers, gr:odbc-servers, gr:task-server
       )/preceding-sibling::node(),
 
       <groups xmlns="http://marklogic.com/xdmp/group">{
-        let $default-group := ($import-configs/@default-group, "Default")[1]
-        for $group in fn:distinct-values(
-          ($import-configs/gr:groups/gr:group/gr:group-name, $import-configs/(gr:http-servers/gr:http-server, gr:xdbc-servers/gr:xdbc-server,
-            gr:odbc-servers/gr:odbc-server, gr:task-server, db:databases/db:database)/@group, $default-group))
-        let $http-servers := $import-configs/gr:http-servers/gr:http-server[@group = $group or ($group = $default-group and fn:empty(@group))]
-        let $xdbc-servers := $import-configs/gr:xdbc-servers/gr:xdbc-server[@group = $group or ($group = $default-group and fn:empty(@group))]
-        let $odbc-servers := $import-configs/gr:odbc-servers/gr:odbc-server[@group = $group or ($group = $default-group and fn:empty(@group))]
-        let $task-server := $import-configs/gr:task-server[@group = $group or ($group = $default-group and fn:empty(@group))]
+        let $default-group := ($import-configs/self::*:configuration/@default-group, "Default")[1]
+        for $group in fn:distinct-values((
+          $import-configs/descendant-or-self::gr:group/gr:group-name,
+          $import-configs/descendant-or-self::*/(
+            self::gr:http-server, self::gr:xdbc-server,
+            self::gr:odbc-server, self::gr:task-server, self::db:database
+          )/@group,
+          $default-group
+        ))
+        let $http-servers := $import-configs/descendant-or-self::gr:http-server[
+          @group = $group or ( $group = $default-group and fn:empty(@group) )
+        ]
+        let $xdbc-servers := $import-configs/descendant-or-self::gr:xdbc-server[
+          @group = $group or ( $group = $default-group and fn:empty(@group) )
+        ]
+        let $odbc-servers := $import-configs/descendant-or-self::gr:odbc-server[
+          @group = $group or ( $group = $default-group and fn:empty(@group) )
+        ]
+        let $task-server := $import-configs/descendant-or-self::gr:task-server[
+          @group = $group or ( $group = $default-group and fn:empty(@group) )
+        ]
         let $servers := ($http-servers, $xdbc-servers, $odbc-servers, $task-server)
-        let $databases := $import-configs/db:databases/db:database[@group = $group or ($group = $default-group and fn:empty(@group))]
-        let $group-config := $import-configs/gr:groups/gr:group[gr:group-name = $group]
+        let $databases := $import-configs/descendant-or-self::db:database[
+          @group = $group or ( $group = $default-group and fn:empty(@group) )
+        ]
+        let $group-config := $import-configs/descendant-or-self::gr:group[gr:group-name = $group]
         where fn:exists($servers | $databases | $group-config)
         return
           <group>
@@ -508,14 +584,24 @@ declare function setup:rewrite-config($import-configs as node()+, $silent as xs:
       }</groups>,
 
       (: capture anything following gr:groups, and its older counterparts :)
-      $import-configs/(
+      $import-configs/self::*:configuration/(
         gr:groups, gr:http-servers, gr:xdbc-servers, gr:odbc-servers, gr:task-server
       )/following-sibling::node(),
 
-      (: other fragments with configuration as root :)
-      $import-configs[fn:empty((
-        gr:groups, gr:http-servers, gr:xdbc-servers, gr:odbc-servers, gr:task-server
-      ))]/node()
+      (: in case of config fragments, merge and wrap them :)
+      setup:wrap-config-fragments((
+        (: fragments with configuration as root :)
+        $import-configs/self::*:configuration[fn:empty((
+          gr:groups, gr:http-servers, gr:xdbc-servers, gr:odbc-servers, gr:task-server
+        ))]/node(),
+
+        (: other fragments :)
+        $import-configs[fn:not(self::*:configuration)]/(self::node() except (
+          self::gr:groups, self::gr:group, self::gr:http-servers, self::gr:http-server,
+          self::gr:xdbc-servers, self::gr:xdbc-server, self::gr:odbc-servers, self::gr:odbc-server,
+          self::gr:task-server
+        ))
+      ))
     }
 
   (: Check config on group consistency! :)

deploy/sample/build.sample.properties

@@ -31,7 +31,7 @@ modules-prefix=/
 #
 # the location of your marklogic configuration file
 #
-# config.file=${basedir}/deploy/ml-config.xml
+config.file=${basedir}/deploy/ml-config/
 
 #
 # the location of your triggers configuration file