;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages cyrus-sasl)
  #:use-module (gnu packages)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages kerberos)
  #:use-module (gnu packages tls)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public cyrus-sasl
  (package
   (name "cyrus-sasl")
   (version "2.1.26")
   (source (origin
            (method url-fetch)
            (uri (list (string-append
                        "https://cyrusimap.org/releases/cyrus-sasl-"
                        version ".tar.gz")
                       (string-append
                        "ftp://ftp.cyrusimap.org/cyrus-sasl/cyrus-sasl-"
                        version ".tar.gz")))
            (patches (search-patches "cyrus-sasl-CVE-2013-4122.patch"))
            (sha256 (base32
                     "1hvvbcsg21nlncbgs0cgn3iwlnb3vannzwsp6rwvnn9ba4v53g4g"))))
   (build-system gnu-build-system)
   (inputs `(("gdbm" ,gdbm)
             ("mit-krb5" ,mit-krb5)
             ("openssl" ,openssl)))
   (arguments
    '(#:configure-flags (list (string-append "--with-plugindir="
                                             (assoc-ref %outputs "out")
                                             "/lib/sasl2"))

      ;; The 'plugins' directory has shared source files, such as
      ;; 'plugin_common.c'.  When building the shared libraries there, libtool
      ;; ends up doing "ln -s plugin_common.lo plugin_common.o", which can
      ;; fail with EEXIST when building things in parallel.
      #:parallel-build? #f))
   (synopsis "Simple Authentication Security Layer implementation")
   (description
    "SASL (Simple Authentication Security Layer) is an Internet
standards-track method for remote computers to authenticate.  The Cyrus SASL
library makes supporting various SASL mechanisms easy for both client and
server writers.")
   (license (license:non-copyleft "file://COPYING"
                                  "See COPYING in the distribution."))
   (home-page "http://cyrusimap.web.cmu.edu")))
</span></span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2019-10-15 10:21:41 +0200'>2019-10-15</span></td><td><a href='/guix/commit/tests/containers.scm?id=e464ac667297d2acf57e52438a39cadc87b95da2'>tests: Skip container test when lacking kernel support.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 96b35998e610c7fc37bf87bf9e07e63d3bebd0a3.

* tests/containers.scm ("eval/container, non-empty load path"): Add
missing 'skip-if-unsupported' call.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-09-18 23:08:28 +0200'>2019-09-18</span></td><td><a href='/guix/commit/tests/containers.scm?id=96b35998e610c7fc37bf87bf9e07e63d3bebd0a3'>linux-container: 'eval/container' correctly passes -L and -C flags.</a><span class='msg-avail'>...<span class='msg-tooltip'>This fixes a type error.

* gnu/system/linux-container.scm (eval/container): Use 'append-map', not
'map'.
* tests/containers.scm ("eval/container, non-empty load path"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-07-19 11:53:47 +0200'>2019-07-19</span></td><td><a href='/guix/commit/tests/containers.scm?id=bacfec8611530dc3e849fb804b51f50b299796f0'>linux-container: Add 'eval/container'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/linux-container.scm (eval/container): New procedure.
* tests/containers.scm ("eval/container, exit status")
("eval/container, writable user mapping"): New tests.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-02 18:15:37 +0200'>2019-04-02</span></td><td><a href='/guix/commit/tests/containers.scm?id=af76c020bf19de5fe2e92f31d8b85cbd55c481de'>linux-container: Make the guest UID and GID a parameter.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-container.scm (initialize-user-namespace): Add
 #:guest-uid and #:guest-gid parameters and honor them.
(run-container): Likewise.
(call-with-container): Likewise.
* tests/containers.scm ("call-with-container, user namespace, guest UID/GID"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-31 17:08:45 +0200'>2017-05-31</span></td><td><a href='/guix/commit/tests/containers.scm?id=3e894917414239cab1737d89feb263e0825ae7c5'>tests: Fix race condition in 'container-excursion*' test.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/containers.scm ("container-excursion*"): Move (namespace pid)
call before (kill pid SIGKILL).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-07 00:08:10 +0100'>2017-02-07</span></td><td><a href='/guix/commit/tests/containers.scm?id=c90db25f4cf1f98f3f4f3af38d175a14ffb8c32a'>linux-container: Add 'container-excursion*'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-container.scm (container-excursion*): New procedure.
* tests/containers.scm ("container-excursion*")
("container-excursion*, same namespaces"): New tests.
</span></span></td><td>Ludovic Courtès</td></tr>