jetomit/monguix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

services/pam-mkhomedir: modernize

Browse source
This commit is contained in:
Timotej Lazar 2023-05-20 21:18:38 +02:00
parent 0563f84c7b
commit bc4023fcd1
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
services/pam-mkhomedir.scm
View file

@ -13,16 +13,20 @@
(arguments pam-mkhomedir-configuration-arguments (default '()))) (arguments pam-mkhomedir-configuration-arguments (default '())))
(define (pam-mkhomedir-pam-service config) (define (pam-mkhomedir-pam-service config)
(let ((module #~(string-append #$linux-pam "/lib/security/pam_mkhomedir.so"))) (list
(list (lambda (pam) (pam-extension
(pam-service (transformer
(inherit pam) (lambda (pam)
(session (define pam-mkhomedir-module
(cons* (pam-entry #~(string-append #$linux-pam "/lib/security/pam_mkhomedir.so"))
(control "optional") (pam-service
(module module) (inherit pam)
(arguments (pam-mkhomedir-configuration-arguments config))) (session
(pam-service-session pam)))))))) (cons* (pam-entry
(control "optional")
(module pam-mkhomedir-module)
(arguments (pam-mkhomedir-configuration-arguments config)))
(pam-service-session pam)))))))))
(define-public pam-mkhomedir-service-type (define-public pam-mkhomedir-service-type
(service-type (service-type