gnu: openssh: Clean-up custom install phase.

* gnu/packages/ssh.scm (openssh)[arguments]: Factor out outputs in
custom 'install phase to clean-up code.
This commit is contained in:
Efraim Flashner 2019-06-25 19:31:13 +03:00
parent 46475f72ab
commit 7754136e46
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 11 additions and 14 deletions

View File

@ -220,20 +220,17 @@ a server that supports the SSH-2 protocol.")
#t)) #t))
(replace 'install (replace 'install
(lambda* (#:key outputs (make-flags '()) #:allow-other-keys) (lambda* (#:key outputs (make-flags '()) #:allow-other-keys)
;; install without host keys and system configuration files (let ((out (assoc-ref outputs "out")))
(apply invoke "make" "install-nosysconf" make-flags) ;; install without host keys and system configuration files
(install-file "contrib/ssh-copy-id" (apply invoke "make" "install-nosysconf" make-flags)
(string-append (assoc-ref outputs "out") (install-file "contrib/ssh-copy-id"
"/bin/")) (string-append out "/bin/"))
(chmod (string-append (assoc-ref outputs "out") (chmod (string-append out "/bin/ssh-copy-id") #o555)
"/bin/ssh-copy-id") #o555) (install-file "contrib/ssh-copy-id.1"
(install-file "contrib/ssh-copy-id.1" (string-append out "/share/man/man1/"))
(string-append (assoc-ref outputs "out") ;; Don't install the PRIVSEP_PATH directory.
"/share/man/man1/")) (delete-file-recursively (string-append out "/var"))
;; Don't install the PRIVSEP_PATH directory. #t))))))
(delete-file-recursively
(string-append (assoc-ref outputs "out") "/var"))
#t)))))
(synopsis "Client and server for the secure shell (ssh) protocol") (synopsis "Client and server for the secure shell (ssh) protocol")
(description (description
"The SSH2 protocol implemented in OpenSSH is standardised by the "The SSH2 protocol implemented in OpenSSH is standardised by the