nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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:
Leo Famulari 2019-02-19 00:08:08 -05:00
parent f1e9de4d3a
commit 84e5806461
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/rdesktop.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -45,18 +46,18 @@
(define-public rdesktop (define-public rdesktop
(package (package
(name "rdesktop") (name "rdesktop")
(version "1.8.3") (version "1.8.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append "https://github.com/rdesktop/rdesktop/"
"mirror://sourceforge/rdesktop/rdesktop/" version "/" "releases/download/v" version "/rdesktop-"
"rdesktop-" version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1r7c1rjmw2xzq8fw0scyb453gy9z19774z1z8ldmzzsfndb03cl8")))) "0bfd9nl2dfr1931fv6bpnrj5yf88ikijrs4s3nm96gm87bkvi64v"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags (list (string-append "--with-openssl=" `(#:configure-flags (list (string-append "--with-openssl="
(assoc-ref %build-inputs (assoc-ref %build-inputs
"openssl")) "openssl"))
@ -64,11 +65,22 @@
"--disable-credssp" "--disable-credssp"
"--disable-smartcard") "--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 #:tests? #f)) ;no 'check' target
(inputs (inputs
`(("libx11" ,libx11) `(("libx11" ,libx11)
("openssl" ,openssl))) ("openssl" ,openssl)))
(home-page "http://www.rdesktop.org/") (home-page "https://www.rdesktop.org/")
(synopsis "Client for Windows Terminal Services") (synopsis "Client for Windows Terminal Services")
(description (description
"rdesktop is a client for Microsoft's Windows Remote Desktop Services, "rdesktop is a client for Microsoft's Windows Remote Desktop Services,