diff options
| -rw-r--r-- | src/org/euandre/queue.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index a468413..412699c 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -94,6 +94,8 @@ dkimproxyout-configuration-group dkimproxyout-configuration-supplementary-groups dkimproxyout-configuration-config-name + dkimproxyout-configuration-config-extra + dkimproxyout-configuration-raw-file dkimproxyout-configuration-listen dkimproxyout-configuration-relay dkimproxyout-configuration-domains @@ -681,6 +683,8 @@ By default, the daemon runs in a container."))) (group dkimproxyout-configuration-group (default "dkimproxyout")) (supplementary-groups dkimproxyout-configuration-supplementary-groups (default '())) (config-name dkimproxyout-configuration-config-name (default "dkimproxyout.conf")) + (config-extra dkimproxyout-configuration-config-extra (default "")) + (raw-file dkimproxyout-configuration-raw-file (default #f)) (listen dkimproxyout-configuration-listen (default "127.0.0.1:10027")) (relay dkimproxyout-configuration-relay (default "127.0.0.1:10028")) (domains dkimproxyout-configuration-domains (default (list (gethostname)))) @@ -697,7 +701,7 @@ By default, the daemon runs in a container."))) ;; # ~a/public.key (define (generate-out.cf config) (match-record config <dkimproxyout-configuration> - (listen relay domains selector data-directory) + (config-extra listen relay domains selector data-directory) (format #f "listen ~a relay ~a @@ -708,18 +712,21 @@ selector ~a signature dkim(c=relaxed/relaxed) keyfile ~a/private.key -" +~a" listen relay (string-join domains ",") selector data-directory - data-directory))) + data-directory + config-extra))) (define (dkimproxyout-etc-files config) (match-record config <dkimproxyout-configuration> - (config-name) - `((,config-name ,(plain-file config-name (generate-out.cf config)))))) + (config-name raw-file) + `((,config-name ,(plain-file config-name + (or raw-file + (generate-out.cf config))))))) (define (dkimproxyout-accounts config) (match-record config <dkimproxyout-configuration> |