From 5ae3fdfc8e7825074497bebf01c5aa441d700a67 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Fri, 17 Mar 2023 06:36:11 -0300 Subject: queue.scm: Remove non-literal format string --- src/org/euandre/queue.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/org/euandre/queue.scm') diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 8d18f3b..0a318c1 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -961,7 +961,8 @@ postlog unix-dgram n - n - 1 postlogd (key-file hostname) (or key-file (format #f "/etc/letsencrypt/live/~a~a/privkey.pem" prefix hostname)))) -(define main.cf-internet-extra +(define (main.cf-internet-extra hostname cert key) + (format #f " myhostname = ~a @@ -991,7 +992,10 @@ debug_peer_list = 127.0.0.1 milter_default_action = accept # smtpd_milters = FIXME -") +" + hostname + cert + key)) (define main.cf-local-extra " mynetworks = 127.0.0.0/8 @@ -1037,11 +1041,11 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN "mail_spool_directory = /var/mail/") main.cf-extra (if enable-submission? - (format #f main.cf-internet-extra + (main.cf-internet-extra hostname (cert-for "" config) (key-for "" config)) - (format #f main.cf-local-extra))))) + main.cf-local-extra)))) (define (postfix-etc-files config) (match-record config -- cgit v1.2.3