01/01: services: opensmtpd: Extend the PAM service.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ace8e269a40b31a9c6f413c0674529880da6a48e
Author: Kristofer Buffington <address@hidden>
Date:   Wed Jun 12 16:34:30 2019 -0400

    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 <address@hidden>
---
 gnu/services/mail.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
index 0e85ada..3de0b4c 100644
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2017, 2018 Clément Lassieur <address@hidden>
 ;;; Copyright © 2017 Carlo Zancanaro <address@hidden>
 ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2019 Kristofer Buffington <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1667,6 +1668,9 @@ accept from local for any relay
            (mkdir-p "/var/spool/smtpd")
            (chmod "/var/spool/smtpd" #o711))))))
 
+(define %opensmtpd-pam-services
+  (list (unix-pam-service "smtpd")))
+
 (define opensmtpd-service-type
   (service-type
    (name 'opensmtpd)
@@ -1675,6 +1679,8 @@ accept from local for any relay
                              (const %opensmtpd-accounts))
           (service-extension activation-service-type
                              opensmtpd-activation)
+          (service-extension pam-root-service-type
+                             (const %opensmtpd-pam-services))
           (service-extension profile-service-type
                              (compose list opensmtpd-configuration-package))
           (service-extension shepherd-root-service-type