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