You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

118 lines
4.8 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (gnu packages ssh)
  19. #:use-module ((guix licenses)
  20. #:renamer (symbol-prefix-proc 'license:))
  21. #:use-module (gnu packages compression)
  22. #:use-module (gnu packages gnupg)
  23. #:use-module (gnu packages groff)
  24. #:use-module (gnu packages openssl)
  25. #:use-module (guix packages)
  26. #:use-module (guix download)
  27. #:use-module (guix build-system gnu))
  28. (define-public libssh2
  29. (package
  30. (name "libssh2")
  31. (version "1.4.3")
  32. (source (origin
  33. (method url-fetch)
  34. (uri (string-append
  35. "http://www.libssh2.org/download/libssh2-"
  36. version ".tar.gz"))
  37. (sha256 (base32
  38. "0vdr478dbhbdgnniqmirawjb7mrcxckn4slhhrijxnzrkmgziipa"))))
  39. (build-system gnu-build-system)
  40. (inputs `(("libgcrypt" ,libgcrypt)
  41. ("zlib" ,zlib)))
  42. (synopsis "libssh2, a client-side C library implementing the SSH2 protocol")
  43. (description
  44. "libssh2 is a library intended to allow software developers access to
  45. the SSH-2 protocol in an easy-to-use self-contained package. It can be built
  46. into an application to perform many different tasks when communicating with
  47. a server that supports the SSH-2 protocol.")
  48. (license license:bsd-3)
  49. (home-page "http://www.libssh2.org/")))
  50. (define-public openssh
  51. (package
  52. (name "openssh")
  53. (version "6.1p1")
  54. (source (origin
  55. (method url-fetch)
  56. (uri (string-append
  57. "ftp://ftp.fr.openbsd.org/pub/OpenBSD/OpenSSH/portable/openssh-"
  58. version ".tar.gz"))
  59. (sha256 (base32
  60. "04f4l4vx6f964v5qjm03nhyixdc3llc90z6cj70r0bl5q3v5ghfi"))))
  61. (build-system gnu-build-system)
  62. (inputs `(("groff" ,groff)
  63. ("openssl" ,openssl)
  64. ("zlib" ,zlib)))
  65. (arguments
  66. `(#:test-target "tests"
  67. #:phases
  68. (alist-replace
  69. 'configure
  70. (lambda* (#:key outputs #:allow-other-keys #:rest args)
  71. (let ((configure (assoc-ref %standard-phases 'configure))
  72. (out (assoc-ref outputs "out")))
  73. (apply configure args)
  74. (substitute* "Makefile"
  75. (("PRIVSEP_PATH=/var/empty")
  76. (string-append "PRIVSEP_PATH=" out "/var/empty")))))
  77. (alist-replace
  78. 'check
  79. (lambda* (#:key #:allow-other-keys #:rest args)
  80. (let ((check (assoc-ref %standard-phases 'check)))
  81. ;; remove tests that require the user sshd
  82. (substitute* "regress/Makefile"
  83. (("t9 t-exec") "t9"))
  84. (apply check args)))
  85. (alist-replace
  86. 'install
  87. (lambda* (#:key (make-flags '()) #:allow-other-keys)
  88. ;; install without host keys and system configuration files
  89. (zero? (apply system* "make" "install-nosysconf" make-flags)))
  90. %standard-phases)))))
  91. (synopsis "OpenSSH, a client and server for the secure shell (ssh) protocol")
  92. (description
  93. "The SSH2 protocol implemented in OpenSSH is standardised by the
  94. IETF secsh working group and is specified in several RFCs and drafts.
  95. It is composed of three layered components:
  96. The transport layer provides algorithm negotiation and a key exchange.
  97. The key exchange includes server authentication and results in a
  98. cryptographically secured connection: it provides integrity, confidentiality
  99. and optional compression.
  100. The user authentication layer uses the established connection and relies on
  101. the services provided by the transport layer. It provides several mechanisms
  102. for user authentication. These include traditional password authentication
  103. as well as public-key or host-based authentication mechanisms.
  104. The connection layer multiplexes many different concurrent channels over the
  105. authenticated connection and allows tunneling of login sessions and
  106. TCP-forwarding. It provides a flow control service for these channels.
  107. Additionally, various channel-specific options can be negotiated.")
  108. (license (license:bsd-style "file://LICENSE"
  109. "See LICENSE in the distribution."))
  110. (home-page "http://www.openssh.org/")))