From 14f490df2d00438f313d0689aeabecca0e1b0c80 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Wed, 28 Aug 2024 16:44:21 -0300 Subject: queue.scm: Replace setuid-program with privileged-program --- src/org/euandre/queue.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'src') diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 1677c47..e77bf0f 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -120,7 +120,7 @@ postfix-accounts postfix-activation postfix-etc-files - postfix-setuid-programs + postfix-privileged-programs postfix-shepherd-service local-postfix-service-type internet-postfix-service-type @@ -1164,24 +1164,23 @@ mailbox_size_limit = 5120000000 (name setgid-group) (system? #t))))) -(define (postfix-setuid-programs config) +(define (postfix-privileged-programs config) (match-record config (package setgid-group set-sendmail?) - (append - (list - (setuid-program + (append (list + (privileged-program (program (file-append package "/sbin/postdrop")) (setuid? #f) (setgid? #t) (group setgid-group)) - (setuid-program + (privileged-program (program (file-append package "/sbin/postqueue")) (setuid? #f) (setgid? #t) (group setgid-group))) (if set-sendmail? (list - (setuid-program + (privileged-program (program (file-append package "/sbin/sendmail")) (setuid? #f) (setgid? #t) @@ -1318,8 +1317,8 @@ max_age: 604800 postfix-etc-files) (service-extension account-service-type postfix-accounts) - (service-extension setuid-program-service-type - postfix-setuid-programs) + (service-extension privileged-program-service-type + postfix-privileged-programs) (service-extension activation-service-type postfix-activation) (service-extension profile-service-type -- cgit v1.2.3