aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2023-03-17 16:13:02 -0300
committerEuAndreh <eu@euandre.org>2023-03-17 16:13:02 -0300
commitb18eb7e5a953de1872fecb3cd725394e32e35526 (patch)
tree447ba22993b6adbb61aa25e08b2d9bb172e5ab88
parentqueue.scm: Add explicit "finished" and "WIP" sections (diff)
downloadpackage-repository-b18eb7e5a953de1872fecb3cd725394e32e35526.tar.gz
package-repository-b18eb7e5a953de1872fecb3cd725394e32e35526.tar.xz
queue.scm: Rename postfix-configuration-{postfix => package}
-rw-r--r--src/org/euandre/queue.scm20
1 files changed, 10 insertions, 10 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index 71cf89d..45e3e47 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -873,7 +873,7 @@ By default, the daemon runs in a container.")))
postfix-configuration
make-postfix-configuration
postfix-configuration?
- (postfix postfix-configuration-postfix (default postfix))
+ (package postfix-configuration-package (default postfix))
(mail-in-home? postfix-configuration-mail-in-home? (default #f))
(enable-submission? postfix-configuration-enable-submission? (default #f))
(set-sendmail? postfix-configuration-set-sendmail? (default #t))
@@ -1039,7 +1039,7 @@ smtp_sasl_mechanism_filter = login, plain
;; postfix -> package
(define (generate-main.cf config)
(match-record config <postfix-configuration>
- (postfix mail-in-home? enable-submission? queue-directory data-directory
+ (mail-in-home? enable-submission? queue-directory data-directory
user setgid-group hostname main.cf-extra)
(format #f
"compatibility_level = 3.6
@@ -1101,23 +1101,23 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN
(define (postfix-setuid-programs config)
(match-record config <postfix-configuration>
- (postfix setgid-group set-sendmail?)
+ (package setgid-group set-sendmail?)
(append
(list
(setuid-program
- (program (file-append postfix "/sbin/postdrop"))
+ (program (file-append package "/sbin/postdrop"))
(setuid? #f)
(setgid? #t)
(group setgid-group))
(setuid-program
- (program (file-append postfix "/sbin/postqueue"))
+ (program (file-append package "/sbin/postqueue"))
(setuid? #f)
(setgid? #t)
(group setgid-group)))
(if set-sendmail?
(list
(setuid-program
- (program (file-append postfix "/sbin/sendmail"))
+ (program (file-append package "/sbin/sendmail"))
(setuid? #f)
(setgid? #t)
(group setgid-group)))
@@ -1145,10 +1145,10 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN
(define (postfix-shepherd-service config)
(match-record config <postfix-configuration>
- (postfix config-dirname data-directory queue-directory
+ (package config-dirname data-directory queue-directory
run-in-container? container-name container-namespaces extra-mappings)
(let* ((config-dir (string-append "/etc/" config-dirname))
- (bin (file-append postfix "/sbin/postfix"))
+ (bin (file-append package "/sbin/postfix"))
(cmd (if (not run-in-container?)
bin
(least-authority-wrapper
@@ -1178,7 +1178,7 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN
required daemons and commands.")
(start #~(make-forkexec-constructor
(list
- #$(file-append postfix "/sbin/postfix")
+ #$cmd
"-c"
#$config-dir
"start-fg")
@@ -1268,7 +1268,7 @@ max_age: 604800
(service-extension activation-service-type
postfix-activation)
(service-extension profile-service-type
- (compose list postfix-configuration-postfix))
+ (compose list postfix-configuration-package))
(service-extension shepherd-root-service-type
postfix-shepherd-service)))