summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-07-12 15:05:51 +0200
committerLudovic Courtès <ludo@gnu.org>2020-07-12 21:55:59 +0200
commit060211853d3f18f9d582549fcfb803e9ec8d2837 (patch)
tree166fd4ceda897c3d21d4f4af1ec03f198bf6ec66 /gnu
parentc54b9afb87de599953566ecca24ba71bd48fd69a (diff)
services: mumi: Run in a UTF-8 locale.
* gnu/services/web.scm (mumi-shepherd-services)[environment]: New variable. Pass it as #:environment-variables to each 'make-forkexec-constructor' call.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/web.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 63d2324b91..3c5b4d2586 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -37,6 +37,7 @@
#:use-module (gnu system pam)
#:use-module (gnu system shadow)
#:use-module (gnu packages admin)
+ #:use-module (gnu packages base)
#:use-module (gnu packages databases)
#:use-module (gnu packages web)
#:use-module (gnu packages patchutils)
@@ -1720,6 +1721,11 @@ WSGIPassAuthorization On
(shell (file-append shadow "/sbin/nologin")))))
(define (mumi-shepherd-services config)
+ (define environment
+ #~(list "LC_ALL=en_US.utf8"
+ (string-append "GUIX_LOCPATH=" #$glibc-utf8-locales
+ "/lib/locale")))
+
(match config
(($ <mumi-configuration> mumi mailer? sender smtp)
(list (shepherd-service
@@ -1729,6 +1735,7 @@ WSGIPassAuthorization On
(start #~(make-forkexec-constructor
`(#$(file-append mumi "/bin/mumi") "web"
,@(if #$mailer? '() '("--disable-mailer")))
+ #:environment-variables #$environment
#:user "mumi" #:group "mumi"
#:log-file "/var/log/mumi.log"))
(stop #~(make-kill-destructor)))
@@ -1738,6 +1745,7 @@ WSGIPassAuthorization On
(requirement '(networking))
(start #~(make-forkexec-constructor
'(#$(file-append mumi "/bin/mumi") "worker")
+ #:environment-variables #$environment
#:user "mumi" #:group "mumi"
#:log-file "/var/log/mumi.worker.log"))
(stop #~(make-kill-destructor)))
@@ -1753,6 +1761,7 @@ WSGIPassAuthorization On
,@(if #$smtp
(list (string-append "--smtp=" #$smtp))
'()))
+ #:environment-variables #$environment
#:user "mumi" #:group "mumi"
#:log-file "/var/log/mumi.mailer.log"))
(stop #~(make-kill-destructor)))))))