aboutsummaryrefslogtreecommitdiff
path: root/src/org/euandre/queue.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/org/euandre/queue.scm')
-rw-r--r--src/org/euandre/queue.scm102
1 files changed, 43 insertions, 59 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index fab13a9..fb3a025 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -50,7 +50,6 @@
cyrus-sasl-configuration-run-in-container?
cyrus-sasl-configuration-container-name
cyrus-sasl-configuration-container-namespaces
- cyrus-sasl-configuration-extra-mappings
cyrus-sasl-etc-files
cyrus-sasl-activation
@@ -79,7 +78,6 @@
dkimproxyout-configuration-run-in-container?
dkimproxyout-configuration-container-name
dkimproxyout-configuration-container-namespaces
- dkimproxyout-configuration-extra-mappings
dkimproxyout-etc-files
dkimproxyout-accounts
@@ -114,7 +112,6 @@
postfix-configuration-run-in-container?
postfix-configuration-container-name
postfix-configuration-container-namespaces
- postfix-configuration-extra-mappings
postfix-aliases
postfix-accounts
@@ -150,7 +147,6 @@
dovecot-configuration-run-in-container?
dovecot-configuration-container-name
dovecot-configuration-container-namespaces
- dovecot-configuration-extra-mappings
dovecot-etc-files
dovecot-accounts
@@ -688,8 +684,7 @@ to the list of supplementary groups of the user of such running process.")))
(run-directory cyrus-sasl-configuration-run-directory (default "/var/run/saslauthd"))
(run-in-container? cyrus-sasl-configuration-run-in-container? (default #t))
(container-name cyrus-sasl-configuration-container-name (default "saslauthd"))
- (container-namespaces cyrus-sasl-configuration-container-namespaces (default container:%namespaces))
- (extra-mappings cyrus-sasl-configuration-extra-mappings (default '())))
+ (container-namespaces cyrus-sasl-configuration-container-namespaces (default container:%namespaces)))
(define (cyrus-sasl-etc-files config)
(match-record config <cyrus-sasl-configuration>
@@ -740,7 +735,7 @@ to the list of supplementary groups of the user of such running process.")))
(define (cyrus-sasl-shepherd-service config)
(match-record config <cyrus-sasl-configuration>
(package user group supplementary-groups authmech config-dirname run-directory
- services run-in-container? container-name container-namespaces extra-mappings)
+ services run-in-container? container-name container-namespaces)
(let* ((bin (file-append package "/sbin/saslauthd"))
(cmd (if (not run-in-container?)
bin
@@ -748,19 +743,17 @@ to the list of supplementary groups of the user of such running process.")))
bin
#:name container-name
#:namespaces container-namespaces
- #:mappings (append
- (list
- (file-system-mapping
- (source run-directory)
- (target source)
- (writable? #t))
- (file-system-mapping
- (source "/etc/passwd")
- (target source))
- (file-system-mapping
- (source "/etc/shadow")
- (target source)))
- extra-mappings)))))
+ #:mappings (list
+ (file-system-mapping
+ (source run-directory)
+ (target source)
+ (writable? #t))
+ (file-system-mapping
+ (source "/etc/passwd")
+ (target source))
+ (file-system-mapping
+ (source "/etc/shadow")
+ (target source)))))))
(list
(shepherd-service
(provision '(cyrus-sasl))
@@ -840,8 +833,7 @@ By default, the daemon runs in a container.")))
(data-directory dkimproxyout-configuration-data-directory (default "/var/lib/dkimproxyout"))
(run-in-container? dkimproxyout-configuration-run-in-container? (default #t))
(container-name dkimproxyout-configuration-container-name (default "dkimproxyout"))
- (container-namespaces dkimproxyout-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net))))
- (extra-mappings dkimproxyout-configuration-extra-mappings (default '())))
+ (container-namespaces dkimproxyout-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net)))))
(define (generate-out.cf config)
(match-record config <dkimproxyout-configuration>
@@ -933,7 +925,7 @@ keyfile ~a/private.key
(define (dkimproxyout-shepherd-service config)
(match-record config <dkimproxyout-configuration>
(package user group supplementary-groups config-name data-directory
- run-in-container? container-name container-namespaces extra-mappings)
+ run-in-container? container-name container-namespaces)
(let* ((config-file (string-append "/etc/" config-name))
(bin (file-append package "/bin/dkimproxy.out"))
(cmd (if (not run-in-container?)
@@ -942,19 +934,17 @@ keyfile ~a/private.key
bin
#:name container-name
#:namespaces container-namespaces
- #:mappings (append
- (list
- (file-system-mapping
- (source "/etc/protocols")
- (target source))
- (file-system-mapping
- (source config-file)
- (target source))
- (file-system-mapping
- (source
- (string-append data-directory "/private.key"))
- (target source)))
- extra-mappings)))))
+ #:mappings (list
+ (file-system-mapping
+ (source "/etc/protocols")
+ (target source))
+ (file-system-mapping
+ (source config-file)
+ (target source))
+ (file-system-mapping
+ (source
+ (string-append data-directory "/private.key"))
+ (target source)))))))
(list
(shepherd-service
(provision '(dkimproxyout))
@@ -1032,8 +1022,7 @@ By default, the daemon runs in a container.")))
(sasl-dirname postfix-configuration-sasl-dirname (default "/etc/sasl2"))
(run-in-container? postfix-configuration-run-in-container? (default #f))
(container-name postfix-configuration-container-name (default "postfix"))
- (container-namespaces postfix-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net))))
- (extra-mappings postfix-configuration-extra-mappings (default '())))
+ (container-namespaces postfix-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net)))))
(define (dksign-filter dkim-filter-listen)
(format #f
@@ -1269,7 +1258,7 @@ mailbox_size_limit = 5120000000
(define (postfix-shepherd-service config)
(match-record config <postfix-configuration>
(package config-dirname data-directory queue-directory
- run-in-container? container-name container-namespaces extra-mappings)
+ run-in-container? container-name container-namespaces)
(let* ((config-dir (string-append "/etc/" config-dirname))
(bin (file-append package "/sbin/postfix"))
(cmd (if (not run-in-container?)
@@ -1278,17 +1267,15 @@ mailbox_size_limit = 5120000000
bin
#:name container-name
#:namespaces container-namespaces
- #:mappings (append
- (list
- (file-system-mapping
- (source data-directory)
- (target source)
- (writable? #t))
- (file-system-mapping
- (source queue-directory)
- (target source)
- (writable? #t)))
- extra-mappings)))))
+ #:mappings (list
+ (file-system-mapping
+ (source data-directory)
+ (target source)
+ (writable? #t))
+ (file-system-mapping
+ (source queue-directory)
+ (target source)
+ (writable? #t)))))))
(list
(shepherd-service
(provision '(postfix))
@@ -1484,8 +1471,7 @@ correctly.")))
(hostname dovecot-configuration-hostname (default (gethostname)))
(run-in-container? dovecot-configuration-run-in-container? (default #f))
(container-name dovecot-configuration-container-name (default "dovecot"))
- (container-namespaces dovecot-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net))))
- (extra-mappings dovecot-configuration-extra-mappings (default '())))
+ (container-namespaces dovecot-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net)))))
(define (generate-dovecot-config config)
(match-record config <dovecot-configuration>
@@ -1628,7 +1614,7 @@ namespace inbox {
(define (dovecot-shepherd-service config)
(match-record config <dovecot-configuration>
(package config-dirname config-filename
- run-in-container? container-name container-namespaces extra-mappings)
+ run-in-container? container-name container-namespaces)
(let* ((config-file (string-append "/etc/" config-dirname "/" config-filename))
(bin (file-append package "/sbin/dovecot"))
(cmd (if (not run-in-container?)
@@ -1637,12 +1623,10 @@ namespace inbox {
bin
#:name container-name
#:namespaces container-namespaces
- #:mappings (append
- (list
- (file-system-mapping
- (source "/etc/shadow")
- (target source)))
- extra-mappings)))))
+ #:mappings (list
+ (file-system-mapping
+ (source "/etc/shadow")
+ (target source)))))))
(list
(shepherd-service
(provision '(dovecot))