summaryrefslogtreecommitdiff
path: root/gnu/packages/rdesktop.scm
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2019-02-19 00:08:08 -0500
committerLeo Famulari <leo@famulari.name>2019-02-19 00:19:33 -0500
commit84e58064611f987ff0abf525204d7aaee17c5ed1 (patch)
treec75af340d2d158bd061e42b6e25b8196cc5e55c1 /gnu/packages/rdesktop.scm
parentf1e9de4d3aefae420db633a56ba9cd93f7750df3 (diff)
downloadpatches-84e58064611f987ff0abf525204d7aaee17c5ed1.tar
patches-84e58064611f987ff0abf525204d7aaee17c5ed1.tar.gz
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'.
Diffstat (limited to 'gnu/packages/rdesktop.scm')
-rw-r--r--gnu/packages/rdesktop.scm26
1 files changed, 19 insertions, 7 deletions
diff --git a/gnu/packages/rdesktop.scm b/gnu/packages/rdesktop.scm
index 777606d77f..2febb1b5f4 100644
--- a/gnu/packages/rdesktop.scm
+++ b/gnu/packages/rdesktop.scm
@@ -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-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 @@
"--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,