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

cleaning

Browse source
This commit is contained in:
Jean-François GUILLAUME 2021-12-10 16:10:32 +01:00
parent 949b92bee7
commit 45e187faf2
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
glicid/services/openldap.scm
View file

@ -1,5 +1,5 @@
(define-module (glicid services openldap) (define-module (glicid services openldap)
#:use-module (glicid packages openldap) #:use-module (gnu packages openldap)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (guix) #:use-module (guix)
@ -8,7 +8,6 @@
#: export ( #: export (
openldap-configuration openldap-configuration
openldap-configuration? openldap-configuration?
%default-slapd.conf
openldap-shepherd-service openldap-shepherd-service
openldap-service-type openldap-service-type
) )
@ -30,18 +29,13 @@
(default "/var/run/openldap/slapd.pid") (default "/var/run/openldap/slapd.pid")
) )
(config-file openldap-configuration-config-file (config-file openldap-configuration-config-file
(default %default-slapd.conf) (default (file-append openldap "/etc/openldap/slapd.conf"))
) )
(log-file openldap-configuration-log-file (log-file openldap-configuration-log-file
(default "/var/log/slapd.log") (default "/var/log/slapd.log")
) )
) )
(define %default-slapd.conf
(plain-file "slapd.conf" "
# Empty file for test
"))
(define openldap-shepherd-service (define openldap-shepherd-service
(match-lambda (match-lambda
(($ <openldap-configuration> openldap uri logflags pid-file config-file log-file) (($ <openldap-configuration> openldap uri logflags pid-file config-file log-file)
@ -50,7 +44,7 @@
(provision '(slapd) ) (provision '(slapd) )
(documentation "Run openldap.") (documentation "Run openldap.")
(requirement '(user-processes)) (requirement '(user-processes))
(respawn? #f) (respawn? #t)
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (list
#$(file-append openldap "/libexec/slapd") #$(file-append openldap "/libexec/slapd")