dockerise

Author: evshvarov

Dockerfile

@@ -0,0 +1,56 @@
+FROM intersystems/iris:2019.1.0S.111.0
+
+# version DeepSeeWeb
+ARG DSW_VERSION=2.1.32
+
+
+WORKDIR /opt/app
+
+COPY ./src/ ./src/
+COPY dswinstaller.cls ./
+
+
+RUN DEBIAN_FRONTEND=noninteractive apt-get update \
+    && DEBIAN_FRONTEND=noninteractive apt-get install -y --no-install-recommends \
+        curl
+
+RUN mkdir -p /tmp/deps \
+
+ && cd /tmp/deps \
+
+ # Download MDX2JSON, just master branch from github as archive
+ && curl -L -q https://github.com/eduard93/Cache-MDX2JSON/archive/master.tar.gz | tar xvfzC - . \
+
+ # Download DeepSeeWeb from releases
+ && curl -L -q https://github.com/intersystems-ru/DeepSeeWeb/releases/download/${DSW_VERSION}/DSW.Installer.${DSW_VERSION}.xml -o deepseeweb.xml \
+
+ # Download globals data
+&& curl -s https://api.github.com/repos/intersystems-community/dc-analytics/releases/latest \
+  | egrep 'http.*DCAnalytics_globals.*gz' \
+  | cut -d : -f 2,3 \
+  | tr -d '"' \
+  | wget -O - -i - \
+  | gunzip > /opt/app/globals.xml 
+
+
+RUN iris start $ISC_PACKAGE_INSTANCENAME quietly EmergencyId=sys,sys && \
+    /bin/echo -e "sys\nsys\n" \
+            " Do ##class(Security.Users).UnExpireUserPasswords(\"*\")\n" \
+            " Do ##class(Security.Users).AddRoles(\"admin\", \"%ALL\")\n" \
+            " do \$system.OBJ.Load(\"/opt/app/dswinstaller.cls\",\"ck\")\n" \
+            # " do \$system.OBJ.Load(\"/tmp/deps/Cache-MDX2JSON-master/MDX2JSON/Installer.cls.xml\",\"ck\")\n" \
+            # " do \$system.OBJ.Load(\"/tmp/deps/deepseeweb.xml\",\"ck\")\n" \
+            " s sc=##class(DSWMDX2JSON.Installer).setup()\n" \
+            " If 'sc do \$zu(4, \$JOB, 1)\n" \
+            "do CreateDatabase^%SYS.SQLSEC(\"DCANALYTICS\",\"\",,0)\n" \
+            "zn \"DCANALYTICS\"\n" \
+            " do \$system.OBJ.ImportDir(\"/opt/app/src\",,\"ck\",,1)\n" \
+            " do ##class(Community.Utils).setup(\"/opt/app/globals.xml\")" \
+            " halt" \
+    | iris session $ISC_PACKAGE_INSTANCENAME && \
+    /bin/echo -e "sys\nsys\n" \
+    | iris stop $ISC_PACKAGE_INSTANCENAME quietly
+
+COPY ./other/dcanalytics.json /usr/irissys/csp/dsw/configs/
+
+CMD [ "-l", "/usr/irissys/mgr/messages.log" ]

docker-compose.yml

@@ -0,0 +1,9 @@
+version: '2.4'
+services:
+  iris:
+    build: .
+    restart: always
+    ports:
+      - 52774:52773
+    volumes:
+      - ~/iris.key:/usr/irissys/mgr/iris.key

dswinstaller.cls

@@ -0,0 +1,54 @@
+Class DSWMDX2JSON.Installer 
+{
+
+XData setup [ XMLNamespace = INSTALLER ]
+{
+<Manifest>
+    <Var Name="Namespace" Value="MDX2JSON"/>
+    <Var Name="Import" Value="0"/>
+
+    <If Condition='(##class(Config.Namespaces).Exists("${Namespace}")=0)'>
+      <Log Text="Creating namespace ${Namespace}" Level="0"/>
+      <Namespace Name="${Namespace}" Create="yes" Code="${Namespace}" Ensemble="" Data="${Namespace}">
+        <Configuration>
+          <Database Name="${Namespace}"
+            Dir="${MGRDIR}/${Namespace}"
+            Create="yes"
+            Resource="%DB_${Namespace}"
+            PublicPermissions="RW"
+            MountAtStartup="true"/>
+        </Configuration>
+      </Namespace>
+      <Log Text="End Creating namespace ${Namespace}" Level="0"/>
+    </If>
+
+    <Namespace Name="${Namespace}">
+      <Import File="/tmp/deps/Cache-MDX2JSON-master/MDX2JSON/" Flags="ck" Recurse="1"/>
+    </Namespace>
+
+    <Namespace Name="${CURRENTNS}">
+      <Import File="/tmp/deps/Cache-MDX2JSON-master/MDX2JSON/Installer.cls.xml" Flags="ck"/>
+
+      <Import File="/tmp/deps/deepseeweb.xml" Flags="ck"/>
+
+      <RunInstall Class="MDX2JSON.Installer" Method="setup"/>
+
+      <RunInstall Class="DSW.Installer" Method="setup"/>
+    </Namespace>
+</Manifest>
+}
+
+ClassMethod setup(
+    ByRef pVars, 
+    pLogLevel As %Integer = 3, 
+    pInstaller As %Installer.Installer, 
+    pLogger As %Installer.AbstractLogger
+  ) As %Status [ CodeMode = objectgenerator, Internal ]
+{
+  do %code.WriteLine($char(9)_"set pVars(""CURRENTCLASS"")="""_%classname_"""")
+  do %code.WriteLine($char(9)_"set pVars(""CURRENTNS"")="""_$namespace_"""")
+  #; Let our XGL document generate code for this method. 
+  Quit ##class(%Installer.Manifest).%Generate(%compiledclass, %code, "setup")
+}
+
+}

src/cls/Community/Utils.cls

@@ -9,7 +9,8 @@ ClassMethod setup(globalPath As %String = "") As %Status
 	}
 
 	try {
-		do ..importXMLGlobal(globalPath)
+		if globalPath[".gz"  do ..importXMLGlobal(globalPath)
+		if globalPath[".xml" do $System.OBJ.Load(globalPath)
 	} catch e {
 		set sc = e.AsStatus()
 		w "Err ",e.Name, ": ", e.Data, ": ", e.Location, !