From d1efd6e56699e006140d293b01b681227e7f7ccf Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Mon, 21 Nov 2022 14:38:25 +0100
Subject: [PATCH] working on perms for slurm

---
 glicid/services/parallel.scm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index c5a1f11..b5ed382 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -124,7 +124,7 @@
     (default (file-append slurm "/etc/slurm/slurmdbd.conf"))
   )
   (log-file slurmdbd-log-file
-    (default "/var/log/slurmdbd.log")
+    (default "/var/log/slurm/slurmdbd.log")
   )
 )
 
@@ -160,17 +160,23 @@
         (define (touch file-name)
           (call-with-output-file file-name (const #t))
         )
-        ;(chmod "0600" "/etc/slurm/slurmdbd.conf")
         (mkdir-p "/var/log/slurm")
         (mkdir-p "/var/lib/slurm-archives")
         (mkdir-p "/var/lib/slurm")
         (mkdir-p "/var/spool/slurmctld")
+        (touch "/var/log/slurm/slurmdbd.log")
+        (touch "/var/run/slurmdbd.pid")
+        (chown "/var/run/slurmdbd.pid" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/var/log/slurm" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
+        (chown "/var/log/slurm/slurmdbd.log" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/var/lib/slurm-archives" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/var/lib/slurm" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/var/spool/slurmctld" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/etc/slurm" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
-        (for-each (chown (find-files "/etc/slurm") (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm"))))
+        (for-each (lambda (slurm-file)
+          (chown slurm-file (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
+          (chmod slurm-file #o600)
+        )(find-files "/etc/slurm/"))
         #t
     )
   )
@@ -366,7 +372,10 @@
         (chown "/var/lib/slurm" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/var/spool/slurmctld" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
         (chown "/etc/slurm" (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
-        (for-each (chown (find-files "/etc/slurm/") (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm"))))
+        (for-each (lambda (slurm-file)
+          (chown slurm-file (passwd:uid (getpwnam "slurm")) (passwd:gid (getpwnam "slurm")))
+          (chmod slurm-file #o600)
+        )(find-files "/etc/slurm/"))
         #t
     )
   )