From f2b887c5c71ef520d08fd7238bb36a39daa7ea98 Mon Sep 17 00:00:00 2001 From: "W. Kosior" Date: Wed, 4 Sep 2024 15:32:11 +0200 Subject: services: Update Exim service to use `privileged-program' API. Uses of deprecated `setuid-program' get replaced with new `privileged-program'. * gnu/services/mail.scm (exim-setuids): Call `privileged-program' record constructor macro. (exim-service-type): Extend `privileged-program-service-type' Change-Id: Idb00e45ddcc50a37303dc50fe1feef73a109f219 --- gnu/services/mail.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm index 7ba95a8241..392c5f6c44 100644 --- a/gnu/services/mail.scm +++ b/gnu/services/mail.scm @@ -1884,7 +1884,7 @@ database---computed from the given alias list."))) (match-lambda (($ package config-file setuid-user setgid-group) (if (or setuid-user setgid-group) - (list (setuid-program + (list (privileged-program (program (file-append package "/bin/exim")) (setuid? #t) (user (or setuid-user "exim")) @@ -1901,7 +1901,7 @@ database---computed from the given alias list."))) (service-extension activation-service-type exim-activation) (service-extension profile-service-type exim-profile) (service-extension mail-aliases-service-type (const '())) - (service-extension setuid-program-service-type exim-setuids))) + (service-extension privileged-program-service-type exim-setuids))) (description "Run the Exim mail transfer agent (MTA)."))) -- cgit v1.2.3