mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: postfix: Extend setuid-program-service-type.

Browse source 
* gnu/services/mail.scm (postfix-service-type): Set gid of postfix
executables.
This commit is contained in:
Ricardo Wurmus 2023-09-07 21:31:20 +02:00
parent b2b364298c
commit 16d3fc8365
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 35 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/services/mail.scm
View file

@ -94,6 +94,7 @@ (define-module (gnu services mail)
postfix-configuration-data-directory
postfix-configuration-user
postfix-configuration-group
postfix-configuration-setgid-commands?
postfix-service-type))
@ -2025,6 +2026,7 @@ (define-record-type* <postfix-configuration>
(default "/var/lib/postfix"))
(meta-directory postfix-configuration-meta-directory
(default #f))
(setgid-commands? postfix-configuration-setgid-commands? (default #t))
(user postfix-configuration-user
(default "postfix"))
(group postfix-configuration-group
@ -2135,12 +2137,41 @@ (define (postfix-shepherd-service config)
(start (postfix-action "start"))
(stop (postfix-action "stop")))))))
(define (postfix-set-gids config)
(match-record config <postfix-configuration>
(postfix setgid-commands? group)
(if setgid-commands?
(list
(setuid-program
(program (file-append postfix "/bin/mailq"))
(setuid? #false)
(setgid? #true)
(group group))
(setuid-program
(program (file-append postfix "/bin/sendmail"))
(setuid? #false)
(setgid? #true)
(group group))
(setuid-program
(program (file-append postfix "/sbin/postqueue"))
(setuid? #false)
(setgid? #true)
(group group))
(setuid-program
(program (file-append postfix "/sbin/postdrop"))
(setuid? #false)
(setgid? #true)
(group group)))
'())))
(define postfix-service-type
(service-type
(name 'postfix)
(extensions (list (service-extension account-service-type postfix-accounts)
(service-extension activation-service-type postfix-activation)
(service-extension shepherd-root-service-type postfix-shepherd-service)
(service-extension mail-aliases-service-type (const '()))))
(extensions
(list (service-extension account-service-type postfix-accounts)
(service-extension activation-service-type postfix-activation)
(service-extension shepherd-root-service-type postfix-shepherd-service)
(service-extension mail-aliases-service-type (const '()))
(service-extension setuid-program-service-type postfix-set-gids)))
(description "Run the Postfix MTA.")
(default-value (postfix-configuration))))