[shepherd] 01/04: comm: Define ‘system-log-file’.

[Ludovic Courtès]

civodul pushed a commit to branch wip-syslogd
in repository shepherd.

commit c352d7622411f04dcf2861f0c52e6d76fefe716d
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Wed Jul 17 23:19:53 2024 +0200

    comm: Define ‘system-log-file’.
    
    * modules/shepherd/comm.scm (system-log-file): New variable.
    (call-with-syslog-port): Use it.
---
 modules/shepherd/comm.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/modules/shepherd/comm.scm b/modules/shepherd/comm.scm
index b8564b4..5a35160 100644
--- a/modules/shepherd/comm.scm
+++ b/modules/shepherd/comm.scm
@@ -52,6 +52,7 @@
             report-command-error
 
             log-output-port
+            system-log-file
             call-with-syslog-port
             make-shepherd-output-port
 
@@ -254,6 +255,10 @@ on service '~a':")
   ;; 'strftime' format strings for entries in the log file.
   (make-parameter default-logfile-date-format))
 
+(define system-log-file
+  ;; Unix-domain socket for the system log (syslog).
+  (make-parameter "/dev/log"))
+
 (define call-with-syslog-port
   (let ((port #f))                                ;connection to /dev/log
     (lambda (proc)
@@ -278,7 +283,7 @@ mechanism."
                               0)))
             (catch 'system-error
               (lambda ()
-                (connect sock AF_UNIX "/dev/log")
+                (connect sock AF_UNIX (system-log-file))
                 (setvbuf sock 'line)
                 (set! port sock)
                 (call/syslog))