01/04: gnu: opensmtpd: Patch FHS assumptions.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 19fed0491502bcd64cd51666449a4a384f42fef9
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Fri Jun 8 09:45:56 2018 +0200

    gnu: opensmtpd: Patch FHS assumptions.
    
    This fixes the following failure...
    
      # smtpctl show message 9275c3fbeccbae93
      execl: No such file or directory
    
    ...due to the absence of ‘/bin/cat’ on GuixSD.
    
    * gnu/packages/mail.scm (opensmtpd)[arguments]: Add
    ‘patch-FHS-file-names’ phase.
---
 gnu/packages/mail.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index a9add98..d04fc51 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2018,6 +2018,13 @@ transfer protocols.")
              "--with-path-CAfile=/etc/ssl/certs/ca-certificates.crt")
        #:phases
        (modify-phases %standard-phases
+         ;; Fix some incorrectly hard-coded external tool file names.
+         (add-after 'unpack 'patch-FHS-file-names
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "smtpd/smtpctl.c"
+               (("/bin/cat") (which "cat"))
+               (("/bin/sh") (which "sh")))
+             #t))
          ;; OpenSMTPD provides a single utility smtpctl to control the daemon 
and
          ;; the local submission subsystem.  To accomodate systems that require
          ;; historical interfaces such as sendmail, newaliases or makemap, the