diff --git a/glicid/services/openldap.scm b/glicid/services/openldap.scm index 25bc067..347c4ea 100644 --- a/glicid/services/openldap.scm +++ b/glicid/services/openldap.scm @@ -17,18 +17,24 @@ (define-record-type* openldap-configuration make-openldap-configuration openldap-configuration? - (openldap openldap-configuration-openldap ; + (openldap openldap-configuration-openldap (default openldap) ) - (logflags openldap-configuration-logflags ;number + (uri openldap-configuration-uri + (default "ldapi:// ldap://") + ) + (logflags openldap-configuration-logflags (default "0") ) - (pid-file openldap-configuration-pid-file ; string + (pid-file openldap-configuration-pid-file (default "/var/run/openldap/slapd.pid") ) - (config-file openldap-configuration-config-file ; string + (config-file openldap-configuration-config-file (default %default-slapd.conf) ) + (log-file openldap-configuration-log-file + (default "/var/log/slapd.log") + ) ) (define %default-slapd.conf @@ -38,7 +44,7 @@ (define openldap-shepherd-service (match-lambda - (($ openldap logflags pid-file config-file) + (($ openldap uri logflags pid-file config-file log-file) (list (shepherd-service (provision '(slapd) ) @@ -48,10 +54,12 @@ (start #~(make-forkexec-constructor (list #$(file-append openldap "/libexec/slapd") + "-h" #$uri "-d" #$logflags "-f" #$config-file ) #:pid-file #$pid-file + #:log-file #$log-file )) (stop #~(make-kill-destructor)) )