Subject: [PATCH] gnu: ejabberd: Add inputs and wrap-program phase.
From: Igor Goryachev <[email-masked]>
To: [email-masked]
Cc: Igor Goryachev <[email-masked]>, Andrew Tropin <[email-masked]>
Date: Sat, 10 Aug 2024 15:45:01 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/messaging.scm (ejabberd): Add inputs and wrap-program phase.

Change-Id: Id8177c54437dca9b98bbd6a237b9a713bc904c84
---
 gnu/packages/messaging.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index da04c34636..efcd0167f1 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -3645,6 +3645,7 @@ (define-public ejabberd
        (sha256
         (base32 "0d5i9skgfjzs2100k0g99sigc2w61480ysz3va6pmb4nx43100g3"))))
     (build-system rebar-build-system)
+    (inputs (list coreutils procps sed))
     (native-inputs
      (list autoconf
            automake
@@ -3757,7 +3758,18 @@ (define-public ejabberd
                                 (string-append erts "/bin")))
                 (chmod (string-append ejabberd
                                       "/bin/install_upgrade.escript") #o755)
-                (copy-recursively ejabberd #$output)))))))
+                (copy-recursively ejabberd #$output))))
+          (add-after 'install 'wrap-program
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out")))
+                (wrap-program (string-append out "/bin/ejabberdctl")
+                  `("PATH" ":" suffix
+                    ,(map (lambda (command)
+                            (dirname
+                             (search-input-file
+                              inputs (string-append "bin/" command))))
+                          (list "date" "dirname" "grep"
+                                "id" "pgrep" "sed"))))))))))
     (synopsis "Robust, Ubiquitous and Massively Scalable Messaging Platform")
     (description "This package provides Ejabberd -- Robust, Ubiquitous and
 Massively Scalable Messaging Platform.  It supports XMPP, MQTT and SIP

base-commit: bc71034f789603349080c2f35570910c07d526ec
-- 
2.45.2