branch master updated: gnu: prosody: Invoke prosody wrapper script directly.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

arunisaac pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new d0118c9930 gnu: prosody: Invoke prosody wrapper script directly.
d0118c9930 is described below

commit d0118c9930f1f4fac7c9f75c3894b141566561ec
Author: Arun Isaac <arunisaac@systemreboot.net>
AuthorDate: Tue Nov 15 00:19:16 2022 +0530

    gnu: prosody: Invoke prosody wrapper script directly.
    
    * gnu/packages/messaging.scm (prosody)[arguments]: Add 
invoke-prosody-wrapper
    phase.
---
 gnu/packages/messaging.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index db1c96f9dc..9927c7c323 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -1538,6 +1538,15 @@ Qt-based XMPP library QXmpp.")
                (("^INSTALLEDCONFIG =.*") "INSTALLEDCONFIG = /etc/prosody\n")
                ;; prosodyctl needs a place to put auto-generated certificates.
                (("^INSTALLEDDATA =.*") "INSTALLEDDATA = /var/lib/prosody\n"))))
+         (add-after 'unpack 'invoke-prosody-wrapper
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             ;; Invoke the prosody wrapper script instead of invoking lua on
+             ;; the actual executable.
+             (substitute* "util/prosodyctl.lua"
+               (("os.execute\\(lua[^;]*")
+                (string-append "os.execute(\""
+                               (assoc-ref outputs "out")
+                               "/bin/prosody -D\")")))))
          (add-after 'install 'wrap-programs
            (lambda* (#:key inputs outputs #:allow-other-keys)
              ;; Make sure all executables in "bin" find the required Lua