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

sssd service

Browse source
This commit is contained in:
Jean-François GUILLAUME 2023-06-20 11:43:34 +02:00
parent 7d73b2ad86
commit 124ffd468c
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
glicid/services/authentication.scm
View file

@ -16,19 +16,23 @@
(define-record-type* (define-record-type*
<sssd-configuration> <sssd-configuration>
sssd-configuration make-sssd-configuration sssd-configuration? sssd-configuration make-sssd-configuration
(pkg pkg (default sssd)) sssd-configuration?
(config-file config-file (default "/etc/sssd/sssd.conf")) (sssd-pkg sssd-pkg (default sssd))
(pid-file pid-file (default "/var/run/sssd/sssd.pid"))
(config-file config-file (default (file-append sssd "/etc/sssd/sssd.conf")))
(logger logger (default "stderr")) (logger logger (default "stderr"))
(debug-level debug-level (default "3")) (debug-level debug-level (default "3"))
(log-file log-file (default "/var/log/sssd/sssd.log"))) (log-file log-file (default "/var/log/sssd.log")))
(define sssd-service (define sssd-shepherd-service
(match-lambda (match-lambda
(($ <sssd-configuration> pkg config-file logger debug-level log-file) (($
<sssd-configuration> pkg pid-file config-file logger debug-level log-file
)
(list (list
(shepherd-service (shepherd-service
(provision '(sssd)) (provision '(slapd))
(documentation "Run sssd.") (documentation "Run sssd.")
(requirement '(user-processes)) (requirement '(user-processes))
(respawn? #t) (respawn? #t)
@ -40,8 +44,8 @@
"--logger" #$logger "--logger" #$logger
"-d" #$debug-level "-d" #$debug-level
) )
#:log-file #$log-file #:pid-file #$pid-file
)) #:log-file #$log-file ))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
(define %sssd-activation (define %sssd-activation