mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
Revert "services: syslog: Simplify 'start' method."
This reverts commit 4c0cc7bed3
.
Fixes <https://bugs.gnu.org/41116>.
Reported by Alex Sassmannshausen <alex@komputilo.eu>.
The problem is that reconfiguring on a system running Shepherd < 0.8.0
would lead to an error, due to #:file-creation-mask not being supported.
The error is rather harmless: it prevents service upgrade but the system
itself is upgraded.
We can reinstate that commit eventually, once #:file-creation-mask has
become widespread.
This commit is contained in:
parent
d6c43d7bc1
commit
5aa4d2dcf2
1 changed files with 11 additions and 7 deletions
|
@ -1316,13 +1316,17 @@ (define syslog-service-type
|
||||||
(documentation "Run the syslog daemon (syslogd).")
|
(documentation "Run the syslog daemon (syslogd).")
|
||||||
(provision '(syslogd))
|
(provision '(syslogd))
|
||||||
(requirement '(user-processes))
|
(requirement '(user-processes))
|
||||||
(start #~(make-forkexec-constructor
|
(start #~(let ((spawn (make-forkexec-constructor
|
||||||
(list #$(syslog-configuration-syslogd config)
|
(list #$(syslog-configuration-syslogd config)
|
||||||
"--rcfile"
|
"--rcfile"
|
||||||
#$(syslog-configuration-config-file config))
|
#$(syslog-configuration-config-file config))
|
||||||
;; Set the umask such that file permissions are #o640.
|
#:pid-file "/var/run/syslog.pid")))
|
||||||
#:file-creation-mask #o137
|
(lambda ()
|
||||||
#:pid-file "/var/run/syslog.pid"))
|
;; Set the umask such that file permissions are #o640.
|
||||||
|
(let ((mask (umask #o137))
|
||||||
|
(pid (spawn)))
|
||||||
|
(umask mask)
|
||||||
|
pid))))
|
||||||
(stop #~(make-kill-destructor))))))
|
(stop #~(make-kill-destructor))))))
|
||||||
|
|
||||||
;; Snippet adapted from the GNU inetutils manual.
|
;; Snippet adapted from the GNU inetutils manual.
|
||||||
|
|
Loading…
Reference in a new issue