From a01acf2d499420c46ee20a9b94df329fcb702c05 Mon Sep 17 00:00:00 2001
From: Sergey Trofimov <sarg@sarg.org.ru>
Date: Fri, 9 May 2025 09:36:47 +0200
Subject: [PATCH] services: dnsmasq: Install dbus config.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

While DBUS service is enabled in dnsmasq, it does not work without installing
a config file to the system.

* gnu/packages/dns.scm (dnsmasq): Install dbus config.
* gnu/services/dns.scm (dnsmasq): Extend dbus-root-service-type.

Change-Id: I5187f65e1f2892eb10fb95e6f51955559f64dbef
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/dns.scm | 8 +++++++-
 gnu/services/dns.scm | 3 +++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm
index 27978217043..0fae953837d 100644
--- a/gnu/packages/dns.scm
+++ b/gnu/packages/dns.scm
@@ -310,7 +310,13 @@ prompt the user with the option to go with insecure DNS only.")
      (list dbus))
     (arguments
      `(#:phases
-       (modify-phases %standard-phases (delete 'configure))
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (add-after 'install 'install-dbus
+           (lambda _
+             (install-file "dbus/dnsmasq.conf"
+                           (string-append %output "/etc/dbus-1/system.d")))))
+
        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
                           (string-append "CC=" ,(cc-for-target))
                           (string-append "PKG_CONFIG=" ,(pkg-config-for-target))
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 9a9b78d877b..350e3da3614 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -23,6 +23,7 @@
 (define-module (gnu services dns)
   #:use-module (gnu services)
   #:use-module (gnu services configuration)
+  #:use-module (gnu services dbus)
   #:use-module (gnu services shepherd)
   #:use-module (gnu system shadow)
   #:use-module (gnu packages admin)
@@ -993,6 +994,8 @@ log.")
    (extensions
     (list (service-extension shepherd-root-service-type
                              (compose list dnsmasq-shepherd-service))
+          (service-extension dbus-root-service-type
+                             (compose list dnsmasq-configuration-package))
           (service-extension activation-service-type
                              dnsmasq-activation)))
    (default-value (dnsmasq-configuration))