ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: samba: Update to 4.5.7 [fixes CVE-2017-2619].

Browse source 
* gnu/packages/samba.scm (samba): Update to 4.5.7.
This commit is contained in:
Efraim Flashner 2017-03-24 12:30:27 +03:00
parent 697ddb8850
commit c8c1470451
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/samba.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org> ;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -99,14 +99,14 @@ (define (copy dir)
(define-public samba (define-public samba
(package (package
(name "samba") (name "samba")
(version "4.5.3") (version "4.5.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.samba.org/pub/samba/stable/" (uri (string-append "https://download.samba.org/pub/samba/stable/"
"samba-" version ".tar.gz")) "samba-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1jif95684swssqwp9v3i2r08cn3r2iddf6ly68db4wmvl5ac8vgh")))) "004lzl059bc2wvkmivxiy96y87l4ajjw16qvkqcdhf86z2dg0w5c"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -122,16 +122,17 @@ (define-public samba
;; XXX: heimdal not packaged. ;; XXX: heimdal not packaged.
"--bundled-libraries=com_err" "--bundled-libraries=com_err"
(string-append "--prefix=" out) (string-append "--prefix=" out)
"--sysconfdir=/etc" "--sysconfdir=/etc"
;; Install public and private libraries into ;; Install public and private libraries into
;; a single directory to avoid RPATH issues. ;; a single directory to avoid RPATH issues.
(string-append "--libdir=" libdir) (string-append "--libdir=" libdir)
(string-append "--with-privatelibdir=" libdir)))))) (string-append "--with-privatelibdir=" libdir))))))
(add-before 'install 'disable-etc-samba-directory-creation (add-before 'install 'disable-etc-samba-directory-creation
(lambda _ (lambda _
(substitute* "dynconfig/wscript" (substitute* "dynconfig/wscript"
(("bld\\.INSTALL_DIRS\\(\"\",[[:blank:]]{1,}\"\\$\\{CONFIGDIR\\}[[:blank:]]{1,}") (("bld\\.INSTALL_DIRS\\(\"\",[[:blank:]]{1,}\"\\$\\{CONFIGDIR\\}[[:blank:]]{1,}")
"bld.INSTALL_DIRS(\"\", \""))))) "bld.INSTALL_DIRS(\"\", \""))
#t)))
;; XXX: The test infrastructure attempts to set password with ;; XXX: The test infrastructure attempts to set password with
;; smbpasswd, which fails with "smbpasswd -L can only be used by root." ;; smbpasswd, which fails with "smbpasswd -L can only be used by root."
;; So disable tests until there's a workaround. ;; So disable tests until there's a workaround.