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

rework and reformating of services

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-11-24 15:00:33 +01:00
parent c7178062a0
commit ea3c876afc
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
7 changed files with 548 additions and 701 deletions
Download patch file Download diff file Expand all files Collapse all files

122
glicid/services/openldap.scm
View file

@ -1,87 +1,59 @@
(define-module (glicid services openldap)
#:use-module (gnu 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?
openldap-shepherd-service
openldap-service-type
)
)
#:use-module (gnu 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?
openldap-shepherd-service
openldap-service-type
))
(define-record-type* <openldap-configuration>
(define-record-type*
<openldap-configuration>
openldap-configuration make-openldap-configuration
openldap-configuration?
(openldap openldap-configuration-openldap
(default openldap)
)
(uri openldap-configuration-uri
(default "ldapi:// ldap://")
)
(logflags openldap-configuration-logflags
(default "0")
)
(pid-file openldap-configuration-pid-file
(default "/var/run/openldap/slapd.pid")
)
(config-file openldap-configuration-config-file
(default (file-append openldap "/etc/openldap/slapd.conf"))
)
(log-file openldap-configuration-log-file
(default "/var/log/slapd.log")
)
)
(openldap-pkg openldap-pkg (default openldap))
(uri openldap-uri (default "ldapi:// ldap://"))
(logflags openldap-logflags (default "0"))
(pid-file openldap-pid-file (default "/var/run/openldap/slapd.pid"))
(config-file openldap--config-file (default (file-append openldap "/etc/openldap/slapd.conf")))
(log-file openldap-log-file (default "/var/log/slapd.log")))
(define openldap-shepherd-service
(match-lambda
(($ <openldap-configuration> openldap uri logflags pid-file config-file log-file)
(list
(shepherd-service
(provision '(slapd) )
(documentation "Run openldap.")
(requirement '(user-processes))
(respawn? #t)
(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))
)
)
)
)
)
(($ <openldap-configuration> openldap-pkg uri logflags pid-file config-file log-file)
(list
(shepherd-service
(provision '(slapd))
(documentation "Run openldap.")
(requirement '(user-processes))
(respawn? #t)
(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)))))))
(define %openldap-activation
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(mkdir-p "/var/run/openldap")
(mkdir-p "/var/lib/ldap")
#t
)
)
)
#~(begin
(mkdir-p "/var/run/openldap")
(mkdir-p "/var/lib/ldap")
#t ))
(define openldap-service-type
(service-type (name 'slapd)
(extensions
(list
(service-extension shepherd-root-service-type openldap-shepherd-service)
(service-extension activation-service-type (const %openldap-activation))
)
)
(description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")
)
)
(service-type
(name 'slapd)
(extensions (list
(service-extension shepherd-root-service-type openldap-shepherd-service)
(service-extension activation-service-type (const %openldap-activation))))
(description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")))