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 ) )