;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
-;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module (gnu packages acl)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
+ #:use-module (gnu packages backup)
+ #:use-module (gnu packages base)
#:use-module (gnu packages check)
#:use-module (gnu packages crypto)
#:use-module (gnu packages cups)
#:use-module (gnu packages databases)
#:use-module (gnu packages docbook)
- #:use-module (gnu packages tls)
- #:use-module (gnu packages popt)
- #:use-module (gnu packages pkg-config)
- #:use-module (gnu packages openldap)
- #:use-module (gnu packages readline)
+ #:use-module (gnu packages gnupg)
#:use-module (gnu packages kerberos)
#:use-module (gnu packages linux)
+ #:use-module (gnu packages onc-rpc)
+ #:use-module (gnu packages openldap)
#:use-module (gnu packages perl)
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages popt)
#:use-module (gnu packages python)
+ #:use-module (gnu packages readline)
+ #:use-module (gnu packages tls)
+ #:use-module (gnu packages web)
#:use-module (gnu packages xml))
(define-public cifs-utils
(package
(name "cifs-utils")
- (version "6.8")
+ (version "6.9")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.samba.org/pub/linux-cifs/"
- name "/" name "-" version ".tar.bz2"))
+ "cifs-utils/cifs-utils-" version ".tar.bz2"))
(sha256 (base32
- "0ygz3pagjpaj5ky11hzh4byyymb7fpmqiqkprn11zwj31h2zdlg7"))))
+ "175cp509wn1zv8p8mv37hkf6sxiskrsxdnq22mhlsg61jazz3n0q"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'set-root-sbin
- (lambda _ ; Don't try to install in "/sbin".
+ (lambda _
+ ;; Don't try to install into "/sbin".
(setenv "ROOTSBINDIR"
(string-append (assoc-ref %outputs "out") "/sbin"))
#t)))))
(home-page "https://github.com/ndevilla/iniparser")
(synopsis "Standalone ini file parsing library")
(description
- "iniparser is a free stand-alone `ini' file parsing library (Windows
+ "iniparser is a free stand-alone @code{ini} file parsing library (Windows
configuration files). It is written in portable ANSI C and should compile
anywhere.")
(license x11)))
(define-public samba
(package
(name "samba")
- (version "4.8.6")
+ (version "4.11.0")
(source (origin
(method url-fetch)
(uri (string-append "https://download.samba.org/pub/samba/stable/"
"samba-" version ".tar.gz"))
(sha256
(base32
- "15hawqdm37l6lp9k14c634315p77cllsx89bvbw9h38fg1hj3fbk"))))
+ "174fwi8n191dnb8ix9afchfp59hic6iwa3062iz3y7zzmxs1rpva"))))
(build-system gnu-build-system)
(arguments
`(#:phases
`(("acl" ,acl)
("cups" ,cups)
;; ("gamin" ,gamin)
+ ("gpgme" ,gpgme)
("gnutls" ,gnutls)
("iniparser" ,iniparser)
+ ("jansson" ,jansson)
("libaio" ,libaio)
+ ("libarchive" ,libarchive)
("linux-pam" ,linux-pam)
+ ("lmdb" ,lmdb)
("openldap" ,openldap)
("popt" ,popt)
("readline" ,readline)
(native-inputs
`(("docbook-xsl" ,docbook-xsl) ;for generating manpages
("xsltproc" ,libxslt) ;ditto
+ ("rpcsvc-proto" ,rpcsvc-proto) ;for 'rpcgen'
("perl" ,perl)
("pkg-config" ,pkg-config)
- ("python" ,python-2))) ; incompatible with Python 3
+ ("python" ,python)))
(home-page "https://www.samba.org/")
(synopsis
"The standard Windows interoperability suite of programs for GNU and Unix")
(define-public talloc
(package
(name "talloc")
- (version "2.1.14")
+ (version "2.3.0")
(source (origin
(method url-fetch)
(uri (string-append "https://www.samba.org/ftp/talloc/talloc-"
version ".tar.gz"))
(sha256
(base32
- "1kk76dyav41ip7ddbbf04yfydb4jvywzi2ps0z2vla56aqkn11di"))))
+ "1iigk4a7n9k9qqq0h3a5vah67ycpqzvahvdhzy15lm428jrvrmbm"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(let ((out (assoc-ref outputs "out")))
(invoke "./configure"
(string-append "--prefix=" out))))))))
+ (native-inputs
+ `(("which" ,which)))
(inputs
- `(("python" ,python-2)))
+ `(("python" ,python)))
(home-page "https://talloc.samba.org")
(synopsis "Hierarchical, reference counted memory pool system")
(description
`(modify-phases ,phases
(replace 'build
(lambda _
- (letrec-syntax ((shell (syntax-rules ()
- ((_ (command ...) rest ...)
- (and (zero? (system* command ...))
- (shell rest ...)))
- ((_)
- #t))))
- (shell ("gcc" "-c" "-Ibin/default" "-I" "lib/replace"
- "-I." "-Wall" "-g" "talloc.c")
- ("ar" "rc" "libtalloc.a" "talloc.o")))))
+ (invoke "gcc" "-c" "-Ibin/default" "-I" "lib/replace"
+ "-I." "-Wall" "-g" "-D__STDC_WANT_LIB_EXT1__=1"
+ "talloc.c")
+ (invoke "ar" "rc" "libtalloc.a" "talloc.o")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(define-public tevent
(package
(name "tevent")
- (version "0.9.37")
+ (version "0.10.1")
(source (origin
(method url-fetch)
(uri (string-append "https://www.samba.org/ftp/tevent/tevent-"
version ".tar.gz"))
(sha256
(base32
- "1q77vbjic2bb79li2a54ffscnrnwwww55fbpry2kgh7acpnlb0qn"))))
+ "1dhhd7fz6wyvlwrk1a6gj5m2mcjsc3ilx0mcv1qsr1lbndldm93r"))))
(build-system gnu-build-system)
(arguments
'(#:phases
;; tevent uses a custom configuration script that runs waf.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
- (zero? (system* "./configure"
- (string-append "--prefix=" out)
- "--bundled-libraries=NONE"))))))))
+ (invoke "./configure"
+ (string-append "--prefix=" out)
+ "--bundled-libraries=NONE")))))))
(native-inputs
`(("pkg-config" ,pkg-config)
- ("python" ,python-2)))
+ ("python" ,python)
+ ("which" ,which)))
(propagated-inputs
`(("talloc" ,talloc))) ; required by tevent.pc
(synopsis "Event system library")
(define-public ldb
(package
(name "ldb")
- (version "1.3.6")
+ (version "1.6.3")
(source (origin
(method url-fetch)
(uri (string-append "https://www.samba.org/ftp/ldb/ldb-"
version ".tar.gz"))
(sha256
(base32
- "16lkz3gyvsm9als1wyimsl573hclr72xy6454mshwjanncs33lji"))
+ "01livdy3g073bm6xnc8zqnqrxg53sw8q66d1903z62hd6g87whsa"))
(modules '((guix build utils)))
(snippet
'(begin
#t))))
(build-system gnu-build-system)
(arguments
- '(#:phases
+ '(;; LMDB is only supported on 64-bit systems, yet the test suite
+ ;; requires it.
+ #:tests? (assoc-ref %build-inputs "lmdb")
+ #:phases
(modify-phases %standard-phases
(replace 'configure
;; ldb use a custom configuration script that runs waf.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
- (zero? (system* "./configure"
- (string-append "--prefix=" out)
- (string-append "--with-modulesdir=" out
- "/lib/ldb/modules")
- "--bundled-libraries=NONE"))))))))
+ (invoke "./configure"
+ (string-append "--prefix=" out)
+ (string-append "--with-modulesdir=" out
+ "/lib/ldb/modules")
+ "--bundled-libraries=NONE")))))))
(native-inputs
`(("cmocka" ,cmocka)
("pkg-config" ,pkg-config)
- ("python" ,python-2)))
+ ("python" ,python)
+ ("which" ,which)))
(propagated-inputs
;; ldb.pc refers to all these.
`(("talloc" ,talloc)
("tdb" ,tdb)))
(inputs
- `(("popt" ,popt)
+ `(,@(if (target-64bit?)
+ `(("lmdb" ,lmdb))
+ '())
+ ("popt" ,popt)
("tevent" ,tevent)))
(synopsis "LDAP-like embedded database")
(home-page "https://ldb.samba.org/")