aboutsummaryrefslogtreecommitdiff
path: root/src/org/euandre/queue.scm
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2023-03-16 11:18:11 -0300
committerEuAndreh <eu@euandre.org>2023-03-16 11:18:11 -0300
commitda55e226692431e0abc15bf9a54654d80f090604 (patch)
treec7447c08d7ba53535ecd8fa6f83e35d845ec9773 /src/org/euandre/queue.scm
parentqueue.scm: Add proper docstring to shadow-group-service-type (diff)
downloadpackage-repository-da55e226692431e0abc15bf9a54654d80f090604.tar.gz
package-repository-da55e226692431e0abc15bf9a54654d80f090604.tar.xz
queue.scm: Add support for raw config file of cyrus-service-configuration
Diffstat (limited to 'src/org/euandre/queue.scm')
-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 ab2a482..0426d41 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -53,6 +53,7 @@
cyrus-service-configuration-name
cyrus-service-configuration-authmech
cyrus-service-configuration-log-level
+ cyrus-service-configuration-raw-file
<cyrus-sasl-configuration>
cyrus-sasl-configuration
@@ -485,7 +486,8 @@ to the list of supplementary groups of the user of such running process.")))
cyrus-service-configuration?
(name cyrus-service-configuration-name)
(authmech cyrus-service-configuration-authmech (default "saslauthd"))
- (log-level cyrus-service-configuration-log-level (default 7)))
+ (log-level cyrus-service-configuration-log-level (default 7))
+ (raw-file cyrus-service-configuration-raw-file (default #f)))
(define-record-type* <cyrus-sasl-configuration>
cyrus-sasl-configuration
@@ -504,10 +506,7 @@ to the list of supplementary groups of the user of such running process.")))
(container-namespaces cyrus-sasl-configuration-container-namespaces (default container:%namespaces))
(extra-mappings cyrus-sasl-configuration-extra-mappings (default '())))
-
(define (cyrus-sasl-etc-files config)
- ;; FIXME: support opaque files
- ;; FIXME: extend this with postfix instead of making postfix add here
(match-record config <cyrus-sasl-configuration>
(services config-dirname run-directory)
`((,config-dirname
@@ -515,14 +514,15 @@ to the list of supplementary groups of the user of such running process.")))
config-dirname
(map (lambda (service-config)
(match-record service-config <cyrus-service-configuration>
- (name authmech log-level)
+ (name authmech log-level raw-file)
`(,name ,(plain-file
name
- (format #f
- "pwcheck_method: ~a~%saslauthd_path: ~a/mux~%log_level: ~a~%"
- authmech
- run-directory
- log-level)))))
+ (or raw-file
+ (format #f
+ "pwcheck_method: ~a~%saslauthd_path: ~a/mux~%log_level: ~a~%"
+ authmech
+ run-directory
+ log-level))))))
services))))))
(define (cyrus-sasl-activation config)