diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-07-12 15:05:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-07-12 21:55:59 +0200 |
| commit | 060211853d3f18f9d582549fcfb803e9ec8d2837 (patch) | |
| tree | 166fd4ceda897c3d21d4f4af1ec03f198bf6ec66 /gnu | |
| parent | c54b9afb87de599953566ecca24ba71bd48fd69a (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.scm | 9 |
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))))))) |