diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-28 16:44:21 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-28 16:44:21 -0300 |
| commit | 14f490df2d00438f313d0689aeabecca0e1b0c80 (patch) | |
| tree | 68e72cd2f13918c2c422a00588380304c1d30ada /src/org/euandre/queue.scm | |
| parent | Makefile: Make dependency between channel files and test files (diff) | |
| download | packages-14f490df2d00438f313d0689aeabecca0e1b0c80.tar.gz packages-14f490df2d00438f313d0689aeabecca0e1b0c80.tar.xz | |
queue.scm: Replace setuid-program with privileged-program
Diffstat (limited to 'src/org/euandre/queue.scm')
| -rw-r--r-- | src/org/euandre/queue.scm | 17 |
1 files changed, 8 insertions, 9 deletions
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 <postfix-configuration> (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 |