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

Merge branch 'devel' into 'main'

Browse source 
sssd's service + define a touch directive

See merge request glicid-public/guix-glicid!147
This commit is contained in:
Jean-François GUILLAUME 2022-11-24 12:04:17 +00:00
commit ace1b0b637
2 changed files with 72 additions and 111 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
glicid/services/authentication.scm
View file

@ -6,32 +6,22 @@
#:use-module (ice-9 match)
#:use-module (gnu packages sssd)
#:use-module (glicid system file-systems)
#:use-module (glicid utils)
#:export (
sssd-configuration
sssd-configuration?
sssd-service
sssd-service-type
)
)
))
(define-record-type* <sssd-configuration>
(define-record-type*
<sssd-configuration>
sssd-configuration make-sssd-configuration sssd-configuration?
(sssd-pkg sssd-pkg
(default sssd)
)
(sssd-conf sssd-conf
(default (file-append sssd-pkg "/lib/sssd/conf/sssd.conf"))
)
(sssd-logger sssd-logger
(default "stderr")
)
(sssd-debug-level sssd-debug-level
(default #f)
)
(log-file log-file
(default "/var/log/sssd/sssd.log")
)
)
(sssd-pkg sssd-pkg (default sssd))
(sssd-conf sssd-conf (default "/etc/sssd/sssd.conf"))
(sssd-logger sssd-logger (default "stderr"))
(sssd-debug-level sssd-debug-level (default "3"))
(log-file log-file (default "/var/log/sssd/sssd.log")))
(define sssd-service
(match-lambda
@ -40,52 +30,33 @@
(shepherd-service
(provision '(sssd))
(documentation "Run sssd.")
(requirement '(
user-processes
))
(requirement '( user-processes ))
(respawn? #t)
(start #~(make-forkexec-constructor
(list
#$(file-append sssd-pkg "/sbin/sssd")
; "--interactive"
(string-append "--config=" sssd-conf)
(string-append "--logger=" sssd-logger)
#$@(if sssd-debug-level
list (string-append "--debug-level=" sssd-debug-level)
'()
)
"-i"
"-c" sssd-conf
"--logger" sssd-logger
"-d" sssd-debug-level
)
#:log-file #$log-file
))
(stop #~(make-kill-destructor))
)
)
)
)
)
(stop #~(make-kill-destructor)))))))
(define %sssd-activation
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(define (touch file-name)
(call-with-output-file file-name (const #t))
)
(touch "/var/log/toto.log")
(mkdir-p "/etc/sssd")
(mkdir-p "/var/log/sssd")
(mkdir-p "/var/lib/sssd")
#t
)
)
)
(mkdir-p "/var/lib/sss/db")
#t )))
(define sssd-service-type
(service-type (name 'sssd)
(extensions
(list
(service-type
(name 'sssd)
(extensions (list
(service-extension shepherd-root-service-type sssd-service)
(service-extension activation-service-type (const %sssd-activation))
)
)
(description "Run sssd")
)
)
(service-extension activation-service-type (const %sssd-activation))))
(description "Run sssd")))

22
glicid/utils.scm
View file

@ -11,33 +11,23 @@
#:export (transform-package)
#:export (instead-of)
)
;(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2))
(define (latest-version v1 v2)
(case (version-compare (package-version v1) (package-version v2))
((>) v1)
((=) v1)
((<) v2)
)
)
((<) v2)))
(define gcc11-instead-of-gcc
(package-input-rewriting `(
(,gcc-toolchain . ,gcc-toolchain-11)
(package-input-rewriting
`((,gcc-toolchain . ,gcc-toolchain-11)
(,gfortran-toolchain . ,gfortran-toolchain-11)
))
)
)))
(define (transform-package original-package suffix)
(package
(inherit original-package)
(name (string-append (package-name original-package) "-" suffix ))
)
)
(name (string-append (package-name original-package) "-" suffix ))))
(define (instead-of package-a-spec package-b)
(package-input-rewriting/spec `(
(,package-a-spec . ,(const package-b))
))
)
(,package-a-spec . ,(const package-b)))))