me
/
guix
Archived
1
0
Fork 0
Code

gnu: cifs-utils: Update to 7.0 [fixes CVE-2022-27239]. 

* gnu/packages/samba.scm (cifs-utils): Update to 7.0.
[arguments]: Use new style. Drop unneeded phase 'install-man-pages.
[inputs]: Drop labels.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Timotej Lazar 2022-12-29 20:37:20 +01:00 committed by Ludovic Courtès
parent 2bdbd962e3
commit 1df9ec6feb
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 15 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/packages/samba.scm
View File

@ -71,49 +71,34 @@
(define-public cifs-utils (define-public cifs-utils
(package (package
(name "cifs-utils") (name "cifs-utils")
(version "6.14") (version "7.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.samba.org/pub/linux-cifs/" (uri (string-append "https://download.samba.org/pub/linux-cifs/"
"cifs-utils/cifs-utils-" version ".tar.bz2")) "cifs-utils/cifs-utils-" version ".tar.bz2"))
(sha256 (base32 (sha256 (base32
"1f2n0yzqsy5v5qv83731bi0mi86rrh11z8qjy1gjj8al9c3yh2b6")))) "0qc1ph94yvg87m87xangw9dd0m5ds2q1zd2sqkzldsnkbfwamvqd"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list autoconf automake pkg-config (list autoconf automake pkg-config
;; To generate the manpages. ;; To generate the manpages.
python-docutils)) ; rst2man python-docutils)) ; rst2man
(inputs (inputs
`(("keytuils" ,keyutils) (list keyutils libcap-ng linux-pam mit-krb5 samba talloc))
("linux-pam" ,linux-pam)
("libcap-ng" ,libcap-ng)
("mit-krb5" ,mit-krb5)
("samba" ,samba)
("talloc" ,talloc)))
(arguments (arguments
`(#:configure-flags (list #:configure-flags #~(list "--enable-man")
(list "--enable-man") #:phases
#:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases (add-before 'bootstrap 'trigger-bootstrap
(add-before 'bootstrap 'trigger-bootstrap ;; The shipped configure script is buggy, e.g., it contains a
;; The shipped configure script is buggy, e.g., it contains a ;; unexpanded literal ‘LIBCAP_NG_PATH’ line).
;; unexpanded literal ‘LIBCAP_NG_PATH’ line). (lambda _
(lambda _ (delete-file "configure")))
(delete-file "configure"))) (add-before 'configure 'set-root-sbin
(add-before 'configure 'set-root-sbin ;; Don't try to install into "/sbin".
(lambda* (#:key outputs #:allow-other-keys) (lambda _
;; Don't try to install into "/sbin". (setenv "ROOTSBINDIR" (string-append #$output "/sbin")))))))
(setenv "ROOTSBINDIR"
(string-append (assoc-ref outputs "out") "/sbin"))))
(add-before 'install 'install-man-pages
;; Create a directory that isn't created since version 6.10.
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(apply invoke "make" "install-man"
`(,@(if parallel-build?
`("-j" ,(number->string (parallel-job-count)))
'())
,@make-flags)))))))
(synopsis "User-space utilities for Linux CIFS (Samba) mounts") (synopsis "User-space utilities for Linux CIFS (Samba) mounts")
(description "@code{cifs-utils} is a set of user-space utilities for (description "@code{cifs-utils} is a set of user-space utilities for
mounting and managing @acronym{CIFS, Common Internet File System} shares using mounting and managing @acronym{CIFS, Common Internet File System} shares using