summary refs log tree commit diff
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-06-16 16:32:49 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-06-16 21:52:49 -0400
commit6fc33d91ba6b07beae8a9a38a5b768511bb79ced (patch)
treeb3faa4b39c70f7573ebc1ddc8cd7fec1218042f4
parentbf9c98b11d6348df099a9603ab4f2444d69bce2f (diff)
downloadguix-6fc33d91ba6b07beae8a9a38a5b768511bb79ced.tar.gz
gnu: dropbear: Build with X11 forwarding support.
* gnu/packages/ssh.scm (dropbear)[phases]
{enable-x11-forwarding}: New phase.
-rw-r--r--gnu/packages/ssh.scm14
1 files changed, 13 insertions, 1 deletions
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