GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-29 21:58:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding socket option to munged

Browse source
This commit is contained in:
Jean-François GUILLAUME 2023-07-12 11:45:17 +02:00
parent b6178b131f
commit cf14ec1b5e
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
glicid/services/parallel.scm
View file

@ -36,17 +36,19 @@
munged-configuration? munged-configuration?
(munge munge-configuration-munge (default munge)) (munge munge-configuration-munge (default munge))
(key-file munged-key-file (default (file-append munge "/etc/munge/munged.key"))) (key-file munged-key-file (default (file-append munge "/etc/munge/munged.key")))
(socket-path socket-path (default "/var/run/munge/munge.socket.1"))
(log-file munged-log-file (default "/var/log/munged.log"))) (log-file munged-log-file (default "/var/log/munged.log")))
(define munged-service (define munged-service
(match-lambda (match-lambda
(($ <munged-configuration> munge key-file log-file) (($ <munged-configuration> munge key-file socket-path log-file)
(list (shepherd-service (provision '(munged)) (list (shepherd-service (provision '(munged))
(documentation "Run munged.") (documentation "Run munged.")
(requirement '(user-processes)) (requirement '(user-processes))
(respawn? #t) (respawn? #t)
(start #~(make-forkexec-constructor (list #$(file-append munge "/sbin/munged") (start #~(make-forkexec-constructor (list #$(file-append munge "/sbin/munged")
"-F" "-f" "-F" "-f" "-M"
"-S" #$socket-path
"--key-file" #$key-file) "--key-file" #$key-file)
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
@ -76,7 +78,7 @@
(group "slurm") (group "slurm")
(system? #t) (system? #t)
(comment "slurm server user") (comment "slurm server user")
(uid 721) ;«magic number…» (uid 567) ;«magic number…»
(home-directory "/var/spool/slurm") (home-directory "/var/spool/slurm")
(shell (file-append bash "/bin/bash")))) (shell (file-append bash "/bin/bash"))))