From cb7de07a51f22e3c91eef5c57f47356ebf1500a3 Mon Sep 17 00:00:00 2001 From: Igor Goryachev via Guix-patches via Date: Thu, 22 Aug 2024 13:21:22 +0300 Subject: [PATCH] gnu: ejabberd: Add inputs and wrap-program phase. * gnu/packages/messaging.scm (ejabberd): Add inputs and wrap-program phase. Change-Id: Id8177c54437dca9b98bbd6a237b9a713bc904c84 Signed-off-by: Andrew Tropin --- 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 6355c73fe6..c482cd469e 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -3659,6 +3659,7 @@ (define-public ejabberd (sha256 (base32 "0d5i9skgfjzs2100k0g99sigc2w61480ysz3va6pmb4nx43100g3")))) (build-system rebar-build-system) + (inputs (list bash-minimal coreutils procps sed)) (native-inputs (list autoconf automake @@ -3771,7 +3772,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