[bug#61087] [PATCH] gnu: Add x11-ssh-askpass.

[bug#61087] [PATCH] gnu: Add x11-ssh-askpass.

[Simon Streit]

* gnu/packages/ssh.scm (x11-ssh-askpass): New variable.
---
 gnu/packages/ssh.scm | 59 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index 2f6874f811..bd2f024689 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -17,6 +17,7 @@
 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
 ;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
+;;; Copyright © 2023 Simon Streit <simon@netpanic.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -940,3 +941,61 @@ (define-public webssh
 @item Modern browsers are supported.
 @end itemize")
     (license license:expat)))
+
+(define-public x11-ssh-askpass
+  (package
+    (name "x11-ssh-askpass")
+    (version "1.2.4.1")
+    (source
+     (origin
+       (method url-fetch)
+       ;; The project home page seams to be offline.
+       (uri (string-append "https://pkgs.fedoraproject.org/repo/pkgs/openssh/"
+                           name "-" version ".tar.gz"
+                           "/8f2e41f3f7eaa8543a2440454637f3c3/"
+                           name "-" version ".tar.gz"))
+       (sha256
+        (base32 "124c1frwvdmg4nv8xqv435ibjhj2y8xc1bmfr6i8a8g75b1y63b2"))))
+    (build-system gnu-build-system)
+    (native-inputs (list imake))
+    (inputs (list libxt))
+    (arguments
+     `(#:make-flags
+       (let ((out (assoc-ref %outputs "out")))
+         (list (string-append "BINDIR=" out "/libexec")
+               (string-append "MANDIR=" out "/share/man")))
+       #:tests? #f
+       #:configure-flags (list (string-append "--mandir="
+                                              "/usr/share/man/test")
+                               (string-append "--libexecdir="
+                                              "/usr/lib/ssh/test")
+                               (string-append "--with-app-defaults-dir="
+                                              "/usr/share/X11/app-defaults/test"))
+      #:phases
+      (modify-phases %standard-phases
+        (add-after 'configure 'xmkmf
+          (lambda* (#:key inputs outputs #:allow-other-keys)
+            (let ((imake (assoc-ref inputs "imake"))
+                  (out (assoc-ref outputs "out")))
+              (invoke "xmkmf")
+              (substitute* "Makefile"
+                ;; These imake variables somehow remain undefined
+                (("DefaultGcc2[[:graph:]]*Opt") "-O2")
+                ;; Reset a few variable defaults that are set in imake templates
+                ((imake) out)
+                (("(MANPATH = )[[:graph:]]*" _ front)
+                 (string-append front out "/share/man"))))))
+        (add-after 'xmkmf 'make-includes
+          (lambda _
+            (invoke "make" "includes")))
+        (add-after 'install 'install/doc
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((out (assoc-ref outputs "out")))
+              (lambda _
+                (invoke "make"
+                        (string-append "MANDIR=" out "/share/man")
+                        "install.man"))))))))
+    (home-page "http://www.jmknoble.net/software/x11-ssh-askpass/")
+    (synopsis "Lightweight passphrase dialog for SSH")
+    (description "An X11-based pass-phrase dialog for use with OpenSSH.")
+    (license license:gpl2+)))
-- 
2.39.1

bug#61087: [PATCH] gnu: Add x11-ssh-askpass.

[Nicolas Goaziou]

Hello,

Simon Streit <simon@netpanic.org> writes:

> * gnu/packages/ssh.scm (x11-ssh-askpass): New variable.

Applied (with G-exps, and a description with full sentences). Thank you.

Note that home page does not exist. Do you have an idea about
a replacement for it?

Regards,
-- 
Nicolas Goaziou

[bug#61087] [PATCH] gnu: Add x11-ssh-askpass.

[Simon Streit]

Hello Nicolas,

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

> Applied (with G-exps, and a description with full sentences). Thank
> you.

Thank you! 

> Note that home page does not exist. Do you have an idea about a
> replacement for it?

There hasn't been a release since at least Debian Sarge [1, 2].

Sadly no.  I presume the project has been abandoned as it has not
received an update in a long time.  Maybe since at least Debian Sarge
[1, 2].

I looked at some packages from other distributions and they still have a
reference to the original home-page and source the package from, as Arch
has done, from fedoraproject.org.  Which is why I also sourced the
package from too. 

I don't know of a fork that is currently extending the code either.


Kind regards
Simon 

[1] https://sources.debian.org/copyright/license/ssh-askpass/1:1.2.4.1-3/
[2] https://sources.debian.org/copyright/license/ssh-askpass/