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

wip

Browse source
This commit is contained in:
Jean-François GUILLAUME 2021-11-02 09:07:30 +01:00
parent 5c1dfeb662
commit 9ade8e1e6d
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 64 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
glicid/services/openldap.scm
View file

@ -1,5 +1,10 @@
(define-module (glicid services openldap)
#:use-module (glicid packages openldap)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module (guix)
#:use-module (guix records)
#:use-module (ice-9 match)
#: export (
openldap-configuration
openldap-configuration?
@ -7,7 +12,7 @@
)
)
(define-record-type* <openldap-configuration>
(define-record-type* <openldap-configuration>
openldap-configuration make-openldap-configuration
openldap-configuration?
(openldap openldap-configuration-openldap ;<package>
@ -31,13 +36,13 @@
(schema-dir openldap-configuration-schema-dir ; string
(default '())
)
)
(define %default-slapd.conf
)
(define %default-slapd.conf
(plain-file "slapd.conf" "
# Empty file for test
"))
(define schema_dir (local-file "ldap_schema" #:recursive? #t))
(define openldap-shepherd-service
"))
(define schema_dir (local-file "ldap_schema" #:recursive? #t))
(define openldap-shepherd-service
(match-lambda
(($ <openldap-configuration> openldap arguments logflags log-file pid-file config-file schema-dir)
(list
@ -60,8 +65,8 @@
)
)
)
)
(define openldap-service-type
)
(define openldap-service-type
(service-type (name 'slapd)
(extensions
(list (
@ -72,4 +77,4 @@
)
(description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")
)
)
)