From e26a4699014ac5be67703dc748717f6e34b522f8 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <koszko@koszko.org>
Date: Sat, 2 Sep 2023 19:04:12 +0200
Subject: Enable logging in Knot

---
 container.scm | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

diff --git a/container.scm b/container.scm
index ea5083b..8752b9d 100644
--- a/container.scm
+++ b/container.scm
@@ -678,8 +678,53 @@ exim_path = /run/setuid-programs/exim
    (semantic-checks? #t)
    (notify (map car %1984-freedns-nameservers))))
 
+(define knot-configuration-knot
+  (@@ (gnu services dns) knot-configuration-knot))
+
+(define knot-config-file
+  (@@ (gnu services dns) knot-config-file))
+
+(define (knot-config-file-with-logging knot-config)
+  (computed-file "knot-with-logging.conf"
+    #~(with-output-to-file #$output
+        (lambda _
+          (use-modules (ice-9 textual-ports))
+          (call-with-input-file #$(knot-config-file knot-config)
+            (lambda (port)
+              (display (get-string-all port))))
+          (newline)
+          (display "\
+log:
+  - target: syslog
+")))))
+
+(define (adapt-knot-shepherd-extension ext)
+  ;; Make knot daemon log to syslog.
+  (let ((old-activation (service-extension-compute ext)))
+    (define (new-activation knot-config)
+      (let* ((knot-package (knot-configuration-knot knot-config))
+             (config-file (knot-config-file-with-logging knot-config)))
+        (map (lambda (shepherd-service-record)
+               (shepherd-service
+                (inherit shepherd-service-record)
+                (start #~(make-forkexec-constructor
+                          '(#$(file-append knot-package "/sbin/knotd")
+                            "-c" #$config-file)))))
+             (old-activation knot-config))))
+
+    (service-extension shepherd-root-service-type new-activation)))
+
+(define koszko-knot-service-type
+  (service-type
+   (inherit knot-service-type)
+   (extensions (map (lambda (ext)
+                      (if (extension-of-type? ext shepherd-root-service-type)
+                          (adapt-knot-shepherd-extension ext)
+                          ext))
+                    (service-type-extensions knot-service-type)))))
+
 (define %koszko-knot-service
-  (service knot-service-type
+  (service koszko-knot-service-type
            (knot-configuration
             (acls (list (knot-acl-configuration
                          (id "allow-axfr-from-1984")
-- 
cgit v1.2.3