04/04: gnu: dropbear: Build with X11 forwarding support.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 6fc33d91ba6b07beae8a9a38a5b768511bb79ced
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Jun 16 16:32:49 2022 -0400

    gnu: dropbear: Build with X11 forwarding support.
    
    * gnu/packages/ssh.scm (dropbear)[phases]
    {enable-x11-forwarding}: New phase.
---
 gnu/packages/ssh.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index f5db7fa7d5..aa540c1012 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -530,7 +530,19 @@ responsive, especially over Wi-Fi, cellular, and 
long-distance links.")
       #:configure-flags #~(list "--disable-bundled-libtom")
       ;; The test suite runs an instance of dropbear, which requires a
       ;; resolver ("Error resolving: Servname not supported for ai_socktype").
-      #:tests? #f))
+      #:tests? #f
+      #:phases #~(modify-phases %standard-phases
+                   (add-after 'unpack 'enable-x11-forwarding
+                     (lambda _
+                       ;; The following patch was retrieved from:
+                       ;; https://github.com/mkj/dropbear/commit/
+                       ;; 0292aacdf0aa57d03f2a3ab7e53cf650e6f29389.
+                       (substitute* "svr-x11fwd.c"
+                         (("DROPBEAR_CHANNEL_PRIO_INTERACTIVE")
+                          "DROPBEAR_PRIO_LOWDELAY"))
+                       (substitute* "default_options.h"
+                         (("#define DROPBEAR_X11FWD 0")
+                          "#define DROPBEAR_X11FWD 1")))))))
     (inputs (list libtomcrypt libtommath zlib))
     (synopsis "Small SSH server and client")
     (description "Dropbear is a relatively small SSH server and