Create collections & xconf during post-install

At the time pre-install runs, no resources have been stored in the database, so we can’t easily read from repo.xml to find the default permissions info. However, at the time post-install runs, these resources are present. (Assuming eXist-db/exist#3734 is closed, that is.) Thus, we will move all setup of public-repo-data collections to post-install.xql.

Author: joewiz

post-install.xq

@@ -23,30 +23,60 @@ declare variable $dir external;
 (: the target collection into which the app is deployed :)
 declare variable $target external;
 
-(: Until https://github.com/eXist-db/exist/issues/3734 is fixed, we hard code the default group name :)
-declare variable $repo-group := 
-    (: config:repo-permissions()?group :)
-    "repo"
-;
-declare variable $repo-user := 
-    (: config:repo-permissions()?user :)
-    "repo"
-;
+(: Configuration file for the logs collection :)
+declare variable $logs-xconf := 
+    <collection xmlns="http://exist-db.org/collection-config/1.0" xmlns:xs="http://www.w3.org/2001/XMLSchema">
+        <index>
+            <range>
+                <create qname="type" type="xs:string"/>
+            </range>
+        </index>
+    </collection>;
+
+(: Helper function to recursively create a collection hierarchy :)
+declare function local:mkcol-recursive($collection as xs:string, $components as xs:string*) {
+    if (exists($components)) then
+        let $newColl := concat($collection, "/", $components[1])
+        return (
+            xmldb:create-collection($collection, $components[1]),
+            local:mkcol-recursive($newColl, subsequence($components, 2))
+        )
+    else
+        ()
+};
+
+(: Create a collection hierarchy :)
+declare function local:mkcol($collection as xs:string, $path as xs:string) {
+    local:mkcol-recursive($collection, tokenize($path, "/"))
+};
 
 (:~
  : Set user and group to be owner by values in repo.xml
  :)
 declare function local:set-data-collection-permissions($resource as xs:string) {
-    if (sm:get-permissions(xs:anyURI($resource))/sm:permission/@group = $repo-group) then
+    if (sm:get-permissions(xs:anyURI($resource))/sm:permission/@group = config:repo-permissions()?group) then
         ()
     else
         (
-            sm:chown($resource, $repo-user),
-            sm:chgrp($resource, $repo-group),
-            sm:chmod(xs:anyURI($resource), "rwxrwxr-x")
+            sm:chown($resource, config:repo-permissions()?user),
+            sm:chgrp($resource, config:repo-permissions()?group),
+            sm:chmod(xs:anyURI($resource), config:repo-permissions()?mode)
         )
 };
 
+(: Create the data collection hierarchy :)
+
+xmldb:create-collection($config:app-data-parent-col, $config:app-data-col-name),
+for $col-name in ($config:icons-col-name, $config:metadata-col-name, $config:packages-col-name, $config:logs-col-name)
+return
+    xmldb:create-collection($config:app-data-col, $col-name),
+
+(: Create log indexes :)
+
+local:mkcol("/db/system/config", $config:logs-col),
+xmldb:store("/db/system/config" || $config:logs-col, "collection.xconf", $logs-xconf),
+xmldb:reindex($config:logs-col),
+
 (: Set user and group ownership on the package data collection hierarchy :)
 
 for $col in ($config:app-data-col, xmldb:get-child-collections($config:app-data-col) ! ($config:app-data-col || "/" || .))
@@ -58,10 +88,8 @@ return
 if (doc-available($config:raw-packages-doc) and doc-available($config:package-groups-doc)) then
     ()
 else
-    (
-        scanrepo:rebuild-all-package-metadata(),
-        ($config:raw-packages-doc, $config:package-groups-doc) ! local:set-data-collection-permissions(.)
-    ),
+    scanrepo:rebuild-all-package-metadata(),
 
-(: execute get-package.xq as repo group, so that it can write to logs :)
-sm:chmod(xs:anyURI($target || "/modules/get-package.xq"), "rwsrwxr-x")
+(: Ensure get-package.xq is run as "repo" group, so that it can write to logs :)
+
+sm:chmod(xs:anyURI($target || "/modules/get-package.xq"), "g+s")

pre-install.xq

@@ -8,7 +8,7 @@
     <copyright>true</copyright>
     <type>application</type>
     <target>public-repo</target>
-    <prepare>pre-install.xq</prepare>
+    <prepare/>
     <finish>post-install.xq</finish>
     <permissions password="repo" user="repo" group="repo" mode="rwxrwxr-x"/>
     <changelog>