From cb4707bf21c2ed3179a6a99741c93f12b55a8294 Mon Sep 17 00:00:00 2001
From: Florian Dold <florian.dold@gmail.com>
Date: Thu, 3 Jan 2019 12:44:27 +0100
Subject: pass through log file

---
 guix/fixed-fcgiwrap.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'guix/fixed-fcgiwrap.scm')

diff --git a/guix/fixed-fcgiwrap.scm b/guix/fixed-fcgiwrap.scm
index b7d778c..aca7553 100644
--- a/guix/fixed-fcgiwrap.scm
+++ b/guix/fixed-fcgiwrap.scm
@@ -30,6 +30,8 @@
         (default "fcgiwrap"))
   (group fcgiwrap-configuration-group
          (default "fcgiwrap"))
+  (group log-file
+         (default #f))
   ;; boolean or octal mode integer
   (adjusted-socket-permissions fcgiwrap-adjusted-socket-permissions?
                                (default #f))
@@ -80,7 +82,7 @@
 
 (define fcgiwrap-shepherd-service
   (match-lambda
-    (($ <fcgiwrap-configuration> package socket user group perm ensure-dir?)
+    (($ <fcgiwrap-configuration> package socket user group log-file perm ensure-dir?)
      (define parsed-socket (parse-fcgiwrap-socket socket))
      (list
       (shepherd-service
@@ -121,7 +123,9 @@
               (make-forkexec-constructor
                '(#$(file-append package "/sbin/fcgiwrap")
                    "-s" #$socket)
-               #:user #$user #:group #$group))
+               #:user #$user
+               #:group #$group
+               #:log-file #$log-file))
             (match '#$parsed-socket
               (('unix path)
                ;; Clean up socket, otherwise fcgiwrap might not start properly.
-- 
cgit v1.2.3