;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
;;;
;;; 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 mit-krb5)
  #:use-module (gnu packages)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages perl)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu))

(define-public mit-krb5
  (package
    (name "mit-krb5")
    (version "1.13.3")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://web.mit.edu/kerberos/dist/krb5/"
                                  (version-major+minor version)
                                  "/krb5-" version ".tar.gz"))
              (sha256
               (base32
                "1gpscn78lv48dxccxq9ncyj53w9l2a15xmngjfa1wylvmn7g0jjx"))
              (patches
               (search-patches "mit-krb5-init-context-null-spnego.patch"
                               "mit-krb5-CVE-2015-8629.patch"
                               "mit-krb5-CVE-2015-8630.patch"
                               "mit-krb5-CVE-2015-8631.patch"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("bison" ,bison)
       ("perl" ,perl)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'enter-source-directory
           (lambda _
             (chdir "src")
             #t))
         (add-before 'check 'pre-check
           (lambda* (#:key inputs #:allow-other-keys)
             (let ((perl (assoc-ref inputs "perl")))
               (substitute* "plugins/kdb/db2/libdb2/test/run.test"
                 (("/bin/cat") (string-append perl "/bin/perl"))
                 (("D/bin/sh") (string-append "D" (which "bash")))
                 (("bindir=/bin/.") (string-append "bindir=" perl "/bin"))))

             ;; avoid service names since /etc/services is unavailable
             (substitute* "tests/resolve/Makefile"
               (("-p telnet") "-p 23"))
             #t)))))
    (synopsis "MIT Kerberos 5")
    (description
     "Massachusetts Institute of Technology implementation of Kerberos.
Kerberos is a network authentication protocol designed to provide strong
authentication for client/server applications by using secret-key
cryptography.")
    (license (non-copyleft "file://NOTICE"
                           "See NOTICE in the distribution."))
    (home-page "http://web.mit.edu/kerberos/")))
/guix.scm (%guix-data-service-os): Adapt it.
* gnu/tests/monitoring.scm (%zabbix-os): Ditto.
* gnu/tests/web.scm (patchwork-os): Ditto.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-10-20 22:39:43 +0100'>2020-10-20</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=bdcf4d88d58798eca7811c8b1fbd4638168d05c3'>services: databases: Don't specify a default postgresql version.</a><span class='msg-avail'>...<span class='msg-tooltip'>Currently, if the postgresql package major version changes, this is going to
break the service upon upgrade, because PostgreSQL will reject the data files
from the differing major version of the service.

Because it's important to either keep running a particular major version, or
intentionally upgrade, I think the configuration would be better with no
default. I think this is also going to be helpful when trying to assist users
upgrading PostgreSQL.

* gnu/services/databases.scm (&lt;postgresql-configuration&gt;): Remove default for
postgresql.
(postgresql-service-type): Remove the default value.
* gnu/tests/databases.scm (%postgresql-os): Update accordingly.
* gnu/tests/guix.scm (%guix-data-service-os): Update accordingly.
* gnu/tests/monitoring.scm (%zabbix-os): Update accordingly.
* gnu/tests/web.scm (patchwork-os): Update accordingly.
* doc/guix.texi (PostgreSQL): Update accordingly.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2020-07-13 04:23:43 +0200'>2020-07-13</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=5cd9cd644ca493b230cb229e7c46641e94a4e2fa'>gnu: tests: Fix unbound variable.</a><span class='msg-avail'>...<span class='msg-tooltip'>Record type descriptors were made private in
a143e92446859bd1edc7a7aea85b2089c82c77da, but a usage of them was
forgotten in the tests files.

* gnu/tests/web.scm (patchwork-initial-database-setup-service): Use
accessors to access field values instead of unexported type descriptor.
</span></span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2020-04-21 16:33:21 +0200'>2020-04-21</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=aa7b3c6c0ecf7e27f0f6785908aa11e2268fa386'>tests: web: Explicitly wait for the HTTP port.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests/web.scm (run-webserver-test)["HTTP port ready"]: New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-31 20:22:23 +0100'>2019-05-31</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=2177d9222f8c228fe5cd4e9c98d96f97e9601b86'>services: Add patchwork.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/service/web.scm (&lt;patchwork-database-configuration&gt;
&lt;patchwork-settings-module&gt;, &lt;patchwork-configuration&gt;): New record types.
(patchwork-virtualhost): New procedure.
(patchwork-service-type): New variable.
* gnu/tests/web.scm (%test-patchwork): New variable.
* doc/guix.text (Web Services): Document it.
</span></span></td><td>Christopher Baines</td></tr>