diff options
| author | Felix Lechner <felix.lechner@lease-up.com> | 2025-04-08 14:32:27 -0700 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2025-04-10 15:40:25 +0200 |
| commit | 6036f1f3053bc9b4f0411b5e8aeaab5bd7f4ec7b (patch) | |
| tree | 418a8f14eba07df4b7ff1763e8ec59ec36a3d529 /gnu/services/mail.scm | |
| parent | 07c9a4273152deb128006b5ac2087d5fe30a5927 (diff) | |
services: opensmtpd: Add logging to a file.
* gnu/services/mail.scm (opensmtpd-configuration): Add log-file field.
(opensmtpd-shepherd-service)[start]: Add a command line flag to not
daemonize. Drop #:pid-file. Add #:log-file.
* doc/guix.texi (Mail Services): Document the additional parameter.
Change-Id: I485e040d680ccb39fa62e49d2e6ea916f047972c
Signed-off-by: Andreas Enge <andreas@enge.fr>
Diffstat (limited to 'gnu/services/mail.scm')
| -rw-r--r-- | gnu/services/mail.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm index ee61887369d..eef46d8f63d 100644 --- a/gnu/services/mail.scm +++ b/gnu/services/mail.scm @@ -8,6 +8,7 @@ ;;; Copyright © 2023 Thomas Ieong <th.ieong@free.fr> ;;; Copyright © 2023 Saku Laesvuori <saku@laesvuori.fi> ;;; Copyright © 2024 Juliana Sims <juli@incana.org> +;;; Copyright © 2025 Felix Lechner <felix.lechner@lease-up.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1719,6 +1720,8 @@ by @code{dovecot-configuration}. @var{config} may also be created by (default '())) ; list of symbols (config-file opensmtpd-configuration-config-file (default %default-opensmtpd-config-file)) + (log-file opensmtpd-configuration-log-file + (default "/var/log/mail.log")) (setgid-commands? opensmtpd-setgid-commands? (default #t))) (define %default-opensmtpd-config-file @@ -1734,15 +1737,15 @@ match from local for any action outbound (define (opensmtpd-shepherd-service config) (match-record config <opensmtpd-configuration> - (package config-file shepherd-requirement) + (package config-file log-file shepherd-requirement) (list (shepherd-service (provision '(smtpd)) (requirement `(pam loopback ,@shepherd-requirement)) (documentation "Run the OpenSMTPD daemon.") (start (let ((smtpd (file-append package "/sbin/smtpd"))) #~(make-forkexec-constructor - (list #$smtpd "-f" #$config-file) - #:pid-file "/var/run/smtpd.pid"))) + (list #$smtpd "-d" "-f" #$config-file) + #:log-file #$log-file))) (stop #~(make-kill-destructor)))))) (define %opensmtpd-accounts |