07/07: gnu: openresolv: Wrap resolvconf.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit 12f68319e8d341b10ba88a11a4e61a0d44e175e6
Author: Vivien Kraus <vivien@planete-kraus.eu>
AuthorDate: Sat Nov 20 23:48:17 2021 +0100

    gnu: openresolv: Wrap resolvconf.
    
    * gnu/packages/dns.scm (openresolv) [phases]: Wrap resolvconf to set PATH, 
for
    coreutils programs mkdir and rm.
    [inputs]: Add coreutils-minimal.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/dns.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm
index b289aa9..7de16a9 100644
--- a/gnu/packages/dns.scm
+++ b/gnu/packages/dns.scm
@@ -1417,7 +1417,21 @@ and TCP-capable recursive DNS server for finding domains 
on the internet.")
        #:configure-flags
        (list (string-append "--sysconfdir=/etc"))
        #:make-flags
-       (list (string-append "SYSCONFDIR=/" (assoc-ref %outputs "out") 
"/etc"))))
+       (list (string-append "SYSCONFDIR=/" (assoc-ref %outputs "out") "/etc"))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (coreutils (assoc-ref inputs "coreutils-minimal")))
+               (substitute* (string-append out "/sbin/resolvconf")
+                 (("RESOLVCONF=\"\\$0\"")
+                  (format #f "\
+RESOLVCONF=\"$0\"
+PATH=~a/bin:$PATH"
+                          coreutils)))))))))
+    (inputs
+     `(("coreutils-minimal" ,coreutils-minimal)))
     (home-page "https://roy.marples.name/projects/openresolv/";)
     (synopsis "Resolvconf POSIX compliant implementation, a middleman for 
resolv.conf")
     (description "openresolv is an implementation of @command{resolvconf}, the