mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: rdesktop: Update to 1.8.4 [security fixes].
Fixes CVE-2018-{8791,8792,8793,8794,8795,8796,8797,8798,8799,8800,20174,20175, 20176,20177,20178,20179,20180,20181,20182}. * gnu/packages/rdesktop.scm (rdesktop): Update to 1.8.4. [source]: Update URL. [home-page]: Use HTTPS URL. [arguments]: Add phase 'delete-extraneous-files'.
This commit is contained in:
parent
f1e9de4d3a
commit
84e5806461
1 changed files with 19 additions and 7 deletions
|
@ -3,6 +3,7 @@
|
|||
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
|
||||
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -45,18 +46,18 @@ (define-module (gnu packages rdesktop)
|
|||
(define-public rdesktop
|
||||
(package
|
||||
(name "rdesktop")
|
||||
(version "1.8.3")
|
||||
(version "1.8.4")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append
|
||||
"mirror://sourceforge/rdesktop/rdesktop/" version "/"
|
||||
"rdesktop-" version ".tar.gz"))
|
||||
(uri (string-append "https://github.com/rdesktop/rdesktop/"
|
||||
"releases/download/v" version "/rdesktop-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1r7c1rjmw2xzq8fw0scyb453gy9z19774z1z8ldmzzsfndb03cl8"))))
|
||||
"0bfd9nl2dfr1931fv6bpnrj5yf88ikijrs4s3nm96gm87bkvi64v"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
'(#:configure-flags (list (string-append "--with-openssl="
|
||||
`(#:configure-flags (list (string-append "--with-openssl="
|
||||
(assoc-ref %build-inputs
|
||||
"openssl"))
|
||||
|
||||
|
@ -64,11 +65,22 @@ (define-public rdesktop
|
|||
"--disable-credssp"
|
||||
"--disable-smartcard")
|
||||
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'install-license-files 'delete-extraneous-files
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(license-dir (string-append out "/share/doc/"
|
||||
,name "-" ,version)))
|
||||
;; XXX These files are installed erroneously.
|
||||
(delete-file (string-append license-dir "/licence.c"))
|
||||
(delete-file (string-append license-dir "/licence.o")))
|
||||
#t)))
|
||||
#:tests? #f)) ;no 'check' target
|
||||
(inputs
|
||||
`(("libx11" ,libx11)
|
||||
("openssl" ,openssl)))
|
||||
(home-page "http://www.rdesktop.org/")
|
||||
(home-page "https://www.rdesktop.org/")
|
||||
(synopsis "Client for Windows Terminal Services")
|
||||
(description
|
||||
"rdesktop is a client for Microsoft's Windows Remote Desktop Services,
|
||||
|
|
Loading…
Reference in a new issue