From 4b96be0f850be5d86852bc44d967c80eb50fc932 Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Fri, 17 Dec 2021 11:00:10 +0100
Subject: [PATCH] adding making required directory by services

---
 glicid/services/openldap.scm | 21 +++++++++---
 glicid/services/parallel.scm | 63 +++++++++++++++++++++++++++---------
 2 files changed, 64 insertions(+), 20 deletions(-)

diff --git a/glicid/services/openldap.scm b/glicid/services/openldap.scm
index 6bb99ae..b1b704f 100644
--- a/glicid/services/openldap.scm
+++ b/glicid/services/openldap.scm
@@ -62,14 +62,25 @@
   )
 )
 
+
+(define openldap-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/run/openldap")
+        (mkdir-p "/var/lib/ldap")
+        #t
+    )
+  )
+)
+
 (define openldap-service-type
   (service-type (name 'slapd)
     (extensions 
-      (list (
-        service-extension
-        shepherd-root-service-type
-        openldap-shepherd-service
-      ))
+      (list
+        (service-extension shepherd-root-service-type openldap-shepherd-service)
+        (service-extension activation-service-type openldap-activation)
+      )
     )
     (description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")
   )
diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index 7d08f32..b97f9f6 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -63,14 +63,24 @@
   )
 )
 
+(define munged-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/run/munge")
+        (mkdir-p "/var/lib/munge")
+        #t
+    )
+  )
+)
+
 (define munged-service-type
   (service-type (name 'munged)
     (extensions 
-      (list (
-        service-extension
-        shepherd-root-service-type
-        munged-service
-      ))
+      (list
+        (service-extension shepherd-root-service-type munged-service)
+        (service-extension activation-service-type munged-activation)
+      )
     )
     (description "Run munged")
   )
@@ -116,14 +126,25 @@
   )
 )
 
+(define slurmdbd-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/log/slurm")
+        (mkdir-p "/var/lib/slurm-archives")
+        (mkdir-p "/var/lib/slurm")
+        #t
+    )
+  )
+)
+
 (define slurmdbd-service-type
   (service-type (name 'slurmdbd)
     (extensions 
-      (list (
-        service-extension
-        shepherd-root-service-type
-        slurmdbd-service
-      ))
+      (list
+        (service-extension shepherd-root-service-type slurmdbd-service)
+        (service-extension activation-service-type slurmdbd-activation)
+      )
     )
     (description "Run slurmdbd")
   )
@@ -170,15 +191,27 @@
   )
 )
 
+(define slurmctld-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/log/slurm")
+        (mkdir-p "/var/lib/slurm-archives")
+        (mkdir-p "/var/lib/slurm")
+        #t
+    )
+  )
+)
+
 (define slurmctld-service-type
   (service-type (name 'slurmctld)
     (extensions 
-      (list (
-        service-extension
-        shepherd-root-service-type
-        slurmctld-service
-      ))
+      (list
+        (service-extension shepherd-root-service-type slurmctld-service)
+        (service-extension activation-service-type slurmctld-activation)
+      )
     )
     (description "Run slurmctld")
   )
 )
+