forked from kb-dk/MerMEId
-
Notifications
You must be signed in to change notification settings - Fork 5
/
post-install.xql
160 lines (141 loc) · 7.08 KB
/
post-install.xql
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
xquery version "3.1";
import module namespace xdb="http://exist-db.org/xquery/xmldb";
import module namespace util="http://exist-db.org/xquery/util";
import module namespace dbutil="http://exist-db.org/xquery/dbutil";
import module namespace sm="http://exist-db.org/xquery/securitymanager";
import module namespace file="http://exist-db.org/xquery/file";
import module namespace config="https://github.com/edirom/mermeid/config" at "modules/config.xqm";
declare namespace dcm="http://www.kb.dk/dcm";
(: The following external variables are set by the repo:deploy function :)
(: file path pointing to the exist installation directory :)
declare variable $home external;
(: path to the directory containing the unpacked .xar package :)
declare variable $dir external;
(: the target collection into which the app is deployed :)
declare variable $target external := "/db/apps/mermeid";
declare function local:set-options() as xs:string* {
for $opt in available-environment-variables()[starts-with(., 'MERMEID_')][not(. = ('MERMEID_admin_password', 'MERMEID_admin_password_file',
'MERMEID_mermeid_password', 'MERMEID_mermeid_password_file'))]
return
config:set-property(substring($opt, 9), normalize-space(environment-variable($opt)))
};
declare function local:set-admin-password() as empty-sequence() {
let $opt :=
(: process only one possible option to set the admin password with a preference for a secret file :)
(
available-environment-variables()[. = 'MERMEID_admin_password_file'],
available-environment-variables()[. = 'MERMEID_admin_password']
)[1]
return
if($opt = 'MERMEID_admin_password_file') then
if(file:exists(string(environment-variable($opt))))
then
try { sm:passwd('admin', normalize-space(file:read(normalize-space(environment-variable($opt))))) }
catch java:org.exist.config.ConfigurationException { util:log-system-out('encountered known error: https://github.com/eXist-db/exist/issues/4722') }
catch * { util:log-system-out('encountered unknown error (' || $err:code || '): ' || $err:description) }
else util:log-system-out(concat('unable to read from file "', normalize-space(environment-variable($opt)), '"'))
else
if($opt = 'MERMEID_admin_password')
then
try { sm:passwd('admin', string(environment-variable($opt))) }
catch java:org.exist.config.ConfigurationException { util:log-system-out('encountered known error: https://github.com/eXist-db/exist/issues/4722') }
catch * { util:log-system-out('encountered unknown error (' || $err:code || '): ' || $err:description) }
else ()
};
declare function local:first-run() as xs:boolean {
not(sm:list-groups() = 'mermedit')
};
declare function local:create-group() as empty-sequence() {
sm:create-group('mermedit')
};
declare function local:change-group() as empty-sequence() {
if (not(xmldb:collection-available(config:get-property('data-root'))))
then (xmldb:create-collection(string-join(tokenize(config:get-property('data-root'), '/')[position() < last()], '/'), tokenize(config:get-property('data-root'), '/')[last()])[2],
let $sample-resources := dbutil:scan(xs:anyURI(concat($target, '/data')), function($_, $resource) {
tokenize($resource, '/')[last()][. != 'controller.xql']})
for $res in $sample-resources return xmldb:move(concat($target, '/data'), config:get-property('data-root'), $res))
else (),
sm:chgrp(xs:anyURI(config:get-property('data-root')), 'mermedit'),
sm:chmod(xs:anyURI(config:get-property('data-root')), 'rwxrwxr-x'),
dbutil:scan(xs:anyURI(config:get-property('data-root')), function($collection, $resource) {
if ($resource) then (
sm:chgrp($resource, "mermedit"),
sm:chmod($resource, 'rwxrwxr-x')
) else
()
})
};
declare function local:create-user() as empty-sequence() {
let $opt :=
(: process only one possible option to set the admin password with a preference for a secret file :)
(
available-environment-variables()[. = 'MERMEID_mermeid_password_file'],
available-environment-variables()[. = 'MERMEID_mermeid_password']
)[1]
let $password := if($opt = 'MERMEID_mermeid_password_file') then
if(file:exists(string(environment-variable($opt)))) then
normalize-space(file:read(normalize-space(environment-variable($opt))))
else util:log-system-out(concat('unable to read from file "', normalize-space(environment-variable($opt)), '"'))
else if($opt = 'MERMEID_mermeid_password') then
string(environment-variable($opt))
else "mermeid"
return if ($password) then
sm:create-account('mermeid', $password, 'mermeid', ('mermedit'))
else ()
};
declare function local:force-xml-mime-type-xbl() as xs:string* {
let $forms-includes := concat($target, '/forms/includes'),
$log := util:log-system-out(concat('Storing .xbl as XML documents in ', $forms-includes))
return for $r in xdb:get-child-resources($forms-includes)
where ends-with($r, '.xbl')
let $doc := util:binary-doc(concat($forms-includes,'/',$r))
(:return $r||' '||xdb:get-mime-type(xs:anyURI(concat($forms-includes,'/',$r))):)
return if (exists($doc)) then xdb:store($forms-includes, $r, $doc, 'application/xml') else ()
};
(:~
: Helper function to recursively create a collection hierarchy.
:)
declare function local:mkcol-recursive($collection, $components) {
if (exists($components)) then
let $newColl := concat($collection, "/", $components[1])
return (
xdb:create-collection($collection, $components[1]),
local:mkcol-recursive($newColl, subsequence($components, 2))
)
else
()
};
(:~
: Helper function to recursively create a collection hierarchy.
:)
declare function local:mkcol($collection, $path) {
local:mkcol-recursive($collection, tokenize($path, "/"))
};
(:~
: Add default index configuration to the data collection provided in $config:data-root
: Indices are used for searching and filtering on the main list page,
: see https://github.com/Edirom/MerMEId/issues/112
:)
declare function local:add-index-configuration() as item()* {
let $config-path := concat("/db/system/config", $config:data-root)
return
if(doc-available(concat($config-path, '/collection.xconf'))) then ()
else (
local:mkcol("/db/system/config", $config:data-root),
xdb:store-files-from-pattern($config-path, $dir, "*.xconf"),
xdb:reindex($config:data-root)
)
};
(: set options provided as environment variables :)
local:set-options(),
local:force-xml-mime-type-xbl(),
if (local:first-run()) then
(
local:create-group(),
local:create-user(),
local:change-group(),
local:add-index-configuration(),
(: This has to be the last command otherwise the other commands will not be executed properly :)
local:set-admin-password()
)
else ()