services: opensmtpd: Extend the PAM service.

* gnu/services/mail.scm (%opensmtpd-pam-services): New variable.
(opensmtpd-service-type)[extensions]: Add it, extending
PAM-ROOT-SERVICE-TYPE.

Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
This commit is contained in:
Kristofer Buffington 2019-06-12 16:34:30 -04:00 committed by Tobias Geerinckx-Rice
parent 30adfd3600
commit ace8e269a4
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 6 additions and 0 deletions

View File

@ -3,6 +3,7 @@
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Kristofer Buffington <kristoferbuffington@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1667,6 +1668,9 @@ accept from local for any relay
(mkdir-p "/var/spool/smtpd") (mkdir-p "/var/spool/smtpd")
(chmod "/var/spool/smtpd" #o711)))))) (chmod "/var/spool/smtpd" #o711))))))
(define %opensmtpd-pam-services
(list (unix-pam-service "smtpd")))
(define opensmtpd-service-type (define opensmtpd-service-type
(service-type (service-type
(name 'opensmtpd) (name 'opensmtpd)
@ -1675,6 +1679,8 @@ accept from local for any relay
(const %opensmtpd-accounts)) (const %opensmtpd-accounts))
(service-extension activation-service-type (service-extension activation-service-type
opensmtpd-activation) opensmtpd-activation)
(service-extension pam-root-service-type
(const %opensmtpd-pam-services))
(service-extension profile-service-type (service-extension profile-service-type
(compose list opensmtpd-configuration-package)) (compose list opensmtpd-configuration-package))
(service-extension shepherd-root-service-type (service-extension shepherd-root-service-type