siguix: Remove samba-mod.

* siguix/packages/samba.scm: Delete file.

1 files changed, 0 insertions, 145 deletions

diff --git a/siguix/packages/samba.scm b/siguix/packages/samba.scm
deleted file mode 100644
index 40fea79..0000000
--- a/siguix/packages/samba.scm
+++ /dev/null
@@ -1,145 +0,0 @@
-;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2015, 2017, 2021 Ludovic Courtès <ludo@gnu.org>
-;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
-;;; Copyright © 2016, 2017, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
-;;; 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, 2020 Marius Bakke <mbakke@fastmail.com>
-;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
-;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
-;;; Copyright © 2020 Pierre Langlois <pierre.langlois@gmx.com>
-;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
-;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
-;;;
-;;; This file is NOT 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 (siguix packages samba)
-  #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix build-system copy)
-  #:use-module (guix licenses)
-  #:use-module (guix utils)
-  #:use-module (gnu packages)
-  #:use-module (gnu packages acl)
-  #:use-module (gnu packages admin)
-  #:use-module (gnu packages avahi)
-  #:use-module (gnu packages samba)
-  #: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 glib)
-  #:use-module (gnu packages gnome)
-  #: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 python-xyz)
-  #:use-module (gnu packages readline)
-  #:use-module (gnu packages time)
-  #:use-module (gnu packages tls)
-  #:use-module (gnu packages web)
-  #:use-module (gnu packages xml))
-
-(define-public samba-mod
-  (package/inherit samba
-    (name "samba-mod")
-    ;; (arguments
-    ;;  `(#:make-flags '("TEST_OPTIONS=--quick") ;some tests are very long
-    ;;    #:phases
-    ;;    (modify-phases %standard-phases
-    ;;      (add-before 'configure 'setup-docbook-stylesheets
-    ;;        (lambda* (#:key inputs #:allow-other-keys)
-    ;;          ;; Append Samba's own DTDs to XML_CATALOG_FILES
-    ;;          ;; (c.f. docs-xml/build/README).
-    ;;          (copy-file "docs-xml/build/catalog.xml.in"
-    ;;                     "docs-xml/build/catalog.xml")
-    ;;          (substitute* "docs-xml/build/catalog.xml"
-    ;;            (("/@abs_top_srcdir@")
-    ;;             (string-append (getcwd) "/docs-xml")))
-    ;;          ;; Honor XML_CATALOG_FILES.
-    ;;          (substitute* "buildtools/wafsamba/wafsamba.py"
-    ;;            (("XML_CATALOG_FILES=\"\\$\\{SAMBA_CATALOGS\\}" all)
-    ;;             (string-append all " $XML_CATALOG_FILES")))
-    ;;          #t))
-    ;;      (replace 'configure
-    ;;        ;; Samba uses a custom configuration script that runs WAF.
-    ;;        (lambda* (#:key outputs #:allow-other-keys)
-    ;;          (let* ((out    (assoc-ref outputs "out"))
-    ;;                 (libdir (string-append out "/lib")))
-    ;;            (invoke "./configure"
-    ;;                    "--enable-selftest"
-    ;;                    "--enable-fhs"
-    ;;                    (string-append "--prefix=" out)
-    ;;                    "--sysconfdir=/etc"
-    ;;                    "--localstatedir=/var"
-    ;;                    ;; Install public and private libraries into
-    ;;                    ;; a single directory to avoid RPATH issues.
-    ;;                    (string-append "--libdir=" libdir)
-    ;;                    (string-append "--with-privatelibdir=" libdir)
-    ;;                    ;; Build samba instead with mit-krb5
-    ;;                    "--with-system-mitkrb5"
-    ;;                    (string-append "--with-system-mitkdc="
-    ;;                                   (assoc-ref %build-inputs "mit-krb5"))
-    ;;                    "--with-experimental-mit-ad-dc"))))
-    ;;      (add-before 'install 'disable-etc,var-samba-directories-setup
-    ;;        (lambda _
-    ;;          (substitute* "dynconfig/wscript"
-    ;;            (("bld\\.INSTALL_DIR.*") ""))
-    ;;          #t))
-    ;;      (add-after 'install 'wrap-program
-    ;;        ;; Some samba tools selectively fail to find talloc, tdb
-    ;;        ;; and dnspython.
-    ;;        (lambda* (#:key inputs outputs #:allow-other-keys)
-    ;;          (let ((out (string-append (assoc-ref outputs "out")))
-    ;;                (talloc (string-append (assoc-ref inputs "talloc")
-    ;;                                       "/lib/python3.9/site-packages"))
-    ;;                (tdb (string-append (assoc-ref inputs "tdb")
-    ;;                                    "/lib/python3.9/site-packages"))
-    ;;                (python-dnspython (string-append
-    ;;                                   (assoc-ref inputs "python-dnspython")
-    ;;                                   "/lib/python3.9/site-packages")))
-    ;;            (for-each
-    ;;             (lambda (bin)
-    ;;               (wrap-program (string-append out bin)
-    ;;                 `("PYTHONPATH" prefix (,talloc ,tdb ,python-dnspython))))
-    ;;             '("/bin/samba-tool"
-    ;;               "/sbin/samba-gpupdate"
-    ;;               "/sbin/samba_dnsupdate"
-    ;;               "/sbin/samba_downgrade_db"
-    ;;               "/sbin/samba_kcc"
-    ;;               "/sbin/samba_spnupdate"
-    ;;               "/sbin/samba_upgradedns"))))))
-    ;;    ;; FIXME: The test suite seemingly hangs after failing to provision the
-    ;;    ;; test environment.
-    ;;    #:tests? #f))
-    (inputs (modify-inputs (package-inputs samba)
-              (append avahi
-                      ;; mit-krb5 ;new!
-                      ;; python-dnspython ;add missing dns module
-                      )))))