2015-01-31 21:51:08 +01:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
2016-01-20 20:50:09 +01:00
|
|
|
|
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
|
2016-01-21 11:20:30 +01:00
|
|
|
|
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
|
2017-10-02 19:32:04 +02:00
|
|
|
|
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
|
2016-09-11 00:03:10 +02:00
|
|
|
|
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
|
Correct name and email address for ng0.
* .mailmap, Makefile.am, doc/guix.de.texi, doc/guix.fr.texi,
doc/guix.texi, etc/completion/fish/guix.fish,
gnu/packages/accessibility.scm, gnu/packages/admin.scm,
gnu/packages/audio.scm, gnu/packages/autotools.scm,
gnu/packages/cdrom.scm, gnu/packages/check.scm,
gnu/packages/cinnamon.scm, gnu/packages/compression.scm,
gnu/packages/crypto.scm, gnu/packages/databases.scm,
gnu/packages/django.scm, gnu/packages/dns.scm, gnu/packages/elixir.scm,
gnu/packages/emacs-xyz.scm, gnu/packages/emacs.scm,
gnu/packages/enlightenment.scm, gnu/packages/erlang.scm,
gnu/packages/fonts.scm, gnu/packages/fontutils.scm,
gnu/packages/forth.scm, gnu/packages/fvwm.scm, gnu/packages/games.scm,
gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/gtk.scm,
gnu/packages/guile-wm.scm,gnu/packages/guile-xyz.scm,
gnu/packages/haskell-check.scm, gnu/packages/haskell-crypto.scm,
gnu/packages/haskell.scm, gnu/packages/image-viewers.scm,
gnu/packages/image.scm, gnu/packages/irc.scm,
gnu/packages/language.scm, gnu/packages/libcanberra.scm,
gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lolcode.scm,
gnu/packages/lxde.scm, gnu/packages/lxqt.scm, gnu/packages/mail.scm,
gnu/packages/markup.scm, gnu/packages/mate.scm, gnu/packages/maths.scm,
gnu/packages/mc.scm, gnu/packages/messaging.scm, gnu/packages/music.scm,
gnu/packages/ncurses.scm, gnu/packages/networking.scm,
gnu/packages/nickle.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm,
gnu/packages/perl-check.scm, gnu/packages/perl.scm,
gnu/packages/python-compression.scm, gnu/packages/python-crypto.scm,
gnu/packages/python-web.scm, gnu/packages/python-xyz.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/ruby.scm,
gnu/packages/rust.scm, gnu/packages/scheme.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/ssh.scm, gnu/packages/suckless.scm, gnu/packages/tbb.scm,
gnu/packages/telephony.scm, gnu/packages/text-editors.scm,
gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tls.scm,
gnu/packages/tor.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/web.scm,
gnu/packages/wm.scm, gnu/packages/xdisorg.scm, gnu/packages/xfce.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/services/certbot.scm,
gnu/services/desktop.scm, gnu/services/version-control.scm,
gnu/services/web.scm, guix/import/hackage.scm, guix/licenses.scm:
Correct name and email address for ng0.
Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
2019-03-14 10:33:38 +01:00
|
|
|
|
;;; Copyright © 2016 ng0 <ng0@n0.is>
|
2019-02-12 16:08:16 +01:00
|
|
|
|
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
|
2016-11-26 13:51:01 +01:00
|
|
|
|
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
|
2017-05-02 14:34:28 +02:00
|
|
|
|
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
|
2017-06-18 14:27:34 +02:00
|
|
|
|
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
|
2018-07-10 16:53:02 +02:00
|
|
|
|
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
|
2019-01-02 19:28:18 +01:00
|
|
|
|
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
|
2015-01-31 21:51:08 +01:00
|
|
|
|
;;;
|
|
|
|
|
;;; 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/>.
|
|
|
|
|
|
2015-03-13 12:06:19 +01:00
|
|
|
|
(define-module (gnu packages dns)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages admin)
|
2016-09-06 19:10:18 +02:00
|
|
|
|
#:use-module (gnu packages autotools)
|
2016-09-21 03:45:18 +02:00
|
|
|
|
#:use-module (gnu packages base)
|
2018-07-10 16:53:02 +02:00
|
|
|
|
#:use-module (gnu packages bash)
|
2015-03-14 00:23:24 +01:00
|
|
|
|
#:use-module (gnu packages databases)
|
2018-07-10 16:53:02 +02:00
|
|
|
|
#:use-module (gnu packages compression)
|
2016-11-26 13:51:01 +01:00
|
|
|
|
#:use-module (gnu packages crypto)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages datastructures)
|
2017-06-18 14:27:34 +02:00
|
|
|
|
#:use-module (gnu packages flex)
|
2017-01-19 07:55:38 +01:00
|
|
|
|
#:use-module (gnu packages glib)
|
2016-09-06 19:10:18 +02:00
|
|
|
|
#:use-module (gnu packages groff)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages groff)
|
|
|
|
|
#:use-module (gnu packages libedit)
|
2016-11-26 13:51:01 +01:00
|
|
|
|
#:use-module (gnu packages libevent)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages libidn)
|
2015-03-14 00:23:24 +01:00
|
|
|
|
#:use-module (gnu packages linux)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages ncurses)
|
|
|
|
|
#:use-module (gnu packages nettle)
|
2018-08-11 05:48:12 +02:00
|
|
|
|
#:use-module (gnu packages networking)
|
2015-03-14 00:23:24 +01:00
|
|
|
|
#:use-module (gnu packages perl)
|
2016-09-06 19:10:18 +02:00
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2017-06-18 14:27:34 +02:00
|
|
|
|
#:use-module (gnu packages protobuf)
|
|
|
|
|
#:use-module (gnu packages python)
|
|
|
|
|
#:use-module (gnu packages swig)
|
gnu: Rename module gnutls to tls.
* gnu/packages/gnutls.scm: Rename to...
* gnu/packages/tls.scm: ... this. Change module name accordingly.
* gnu/packages/{admin.scm, cups.scm, curl.scm, dc.scm, dns.scm, emacs.scm,
ftp.scm, gnome.scm, gnunet.scm, gnupg.scm, gsasl.scm, lynx.scm,
mail.scm, messaging.scm, package-management.scm, shishi.scm,
task-management.scm, version-control.scm, video.scm, vpn.scm,
webkit.scm, weechat.scm, wget.scm, wine.scm, xml.scm}: Adapt module
import to new name.
* gnu-system.am (GNU_SYSTEM_MODULES): Rename gnutls module to tls.
2015-07-03 21:41:22 +02:00
|
|
|
|
#:use-module (gnu packages tls)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:use-module (gnu packages web)
|
2015-03-14 00:23:24 +01:00
|
|
|
|
#:use-module (gnu packages xml)
|
2018-06-14 22:49:21 +02:00
|
|
|
|
#:use-module (gnu packages)
|
2015-03-14 00:23:24 +01:00
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
2015-01-31 21:51:08 +01:00
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
2018-12-03 20:00:00 +01:00
|
|
|
|
#:use-module (guix git-download)
|
2017-06-18 14:27:34 +02:00
|
|
|
|
#:use-module (guix utils)
|
2018-07-10 16:53:02 +02:00
|
|
|
|
#:use-module (guix build-system gnu)
|
|
|
|
|
#:use-module (guix build-system trivial))
|
2015-01-31 21:51:08 +01:00
|
|
|
|
|
|
|
|
|
(define-public dnsmasq
|
|
|
|
|
(package
|
|
|
|
|
(name "dnsmasq")
|
2018-10-26 01:53:59 +02:00
|
|
|
|
(version "2.80")
|
2015-01-31 21:51:08 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.thekelleys.org.uk/dnsmasq/dnsmasq-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-10-26 01:53:59 +02:00
|
|
|
|
"1fv3g8vikj3sn37x1j6qsywn09w1jipvlv34j3q5qrljbrwa5ayd"))))
|
2015-01-31 21:51:08 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2017-01-19 07:55:38 +01:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("dbus" ,dbus)))
|
2015-01-31 21:51:08 +01:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
(modify-phases %standard-phases (delete 'configure))
|
2015-01-31 21:51:08 +01:00
|
|
|
|
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
|
2017-01-19 07:55:38 +01:00
|
|
|
|
"CC=gcc"
|
|
|
|
|
"COPTS=\"-DHAVE_DBUS\"")
|
2018-03-19 22:58:48 +01:00
|
|
|
|
#:tests? #f)) ; no ‘check’ target
|
2015-01-31 21:51:08 +01:00
|
|
|
|
(home-page "http://www.thekelleys.org.uk/dnsmasq/doc.html")
|
|
|
|
|
(synopsis "Small caching DNS proxy and DHCP/TFTP server")
|
|
|
|
|
(description
|
2018-03-19 23:00:01 +01:00
|
|
|
|
"Dnsmasq is a light-weight DNS forwarder and DHCP server. It is designed
|
|
|
|
|
to provide DNS and, optionally, DHCP to a small network. It can serve the
|
2015-01-31 21:51:08 +01:00
|
|
|
|
names of local machines which are not in the global DNS. The DHCP server
|
|
|
|
|
integrates with the DNS server and allows machines with DHCP-allocated
|
2018-03-19 23:00:01 +01:00
|
|
|
|
addresses to appear in the DNS with names configured either on each host or in
|
2015-01-31 21:51:08 +01:00
|
|
|
|
a central configuration file. Dnsmasq supports static and dynamic DHCP leases
|
|
|
|
|
and BOOTP/TFTP for network booting of diskless machines.")
|
|
|
|
|
;; Source files only say GPL2 and GPL3 are allowed.
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(license (list license:gpl2 license:gpl3))))
|
|
|
|
|
|
2017-05-16 00:00:03 +02:00
|
|
|
|
;; 'bind' is the name of a built-in Guile procedure, which is why we choose a
|
|
|
|
|
;; different name here.
|
|
|
|
|
(define-public isc-bind
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(package
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(name "bind")
|
2019-02-24 17:25:52 +01:00
|
|
|
|
(version "9.12.3-P4")
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(uri (string-append
|
2019-02-24 17:25:11 +01:00
|
|
|
|
"https://ftp.isc.org/isc/bind9/" version
|
|
|
|
|
"/bind-" version ".tar.gz"))
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-02-24 17:25:52 +01:00
|
|
|
|
"01pj47z5582rd538dmbzf1msw4jc8j4zr0zx4ciy88r6qr9l80fi"))))
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(outputs `("out" "utils"))
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(inputs
|
2019-02-24 17:25:52 +01:00
|
|
|
|
;; It would be nice to add GeoIP and gssapi once there are packages.
|
2015-03-14 00:23:24 +01:00
|
|
|
|
`(("libcap" ,libcap)
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("openssl" ,openssl)
|
|
|
|
|
("p11-kit" ,p11-kit)))
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(native-inputs `(("perl" ,perl)
|
|
|
|
|
("net-tools" ,net-tools)))
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(arguments
|
2016-09-11 00:03:10 +02:00
|
|
|
|
`(#:configure-flags
|
2015-03-14 00:23:24 +01:00
|
|
|
|
(list (string-append "--with-openssl="
|
|
|
|
|
(assoc-ref %build-inputs "openssl"))
|
|
|
|
|
(string-append "--with-pkcs11="
|
|
|
|
|
(assoc-ref %build-inputs "p11-kit")))
|
|
|
|
|
#:phases
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'strip 'move-to-utils
|
|
|
|
|
(lambda _
|
|
|
|
|
(for-each
|
|
|
|
|
(lambda (file)
|
|
|
|
|
(let ((target (string-append (assoc-ref %outputs "utils") file))
|
|
|
|
|
(src (string-append (assoc-ref %outputs "out") file)))
|
|
|
|
|
(mkdir-p (dirname target))
|
|
|
|
|
(link src target)
|
|
|
|
|
(delete-file src)))
|
|
|
|
|
'("/bin/dig" "/bin/delv" "/bin/nslookup" "/bin/host" "/bin/nsupdate"
|
|
|
|
|
"/share/man/man1/dig.1"
|
|
|
|
|
"/share/man/man1/host.1"
|
|
|
|
|
"/share/man/man1/nslookup.1"
|
|
|
|
|
"/share/man/man1/nsupdate.1"))))
|
|
|
|
|
;; When and if guix provides user namespaces for the build process,
|
|
|
|
|
;; then the following can be uncommented and the subsequent "force-test"
|
|
|
|
|
;; will not be necessary.
|
|
|
|
|
;;
|
|
|
|
|
;; (add-before 'check 'set-up-loopback
|
|
|
|
|
;; (lambda _
|
|
|
|
|
;; (system "bin/tests/system/ifconfig.sh up")))
|
|
|
|
|
(replace 'check
|
|
|
|
|
(lambda _
|
2018-03-14 21:35:14 +01:00
|
|
|
|
(invoke "make" "force-test")
|
|
|
|
|
#t)))))
|
2016-09-11 00:03:10 +02:00
|
|
|
|
(synopsis "An implementation of the Domain Name System")
|
2017-03-16 16:08:42 +01:00
|
|
|
|
(description "BIND is an implementation of the @dfn{Domain Name System}
|
|
|
|
|
(DNS) protocols for the Internet. It is a reference implementation of those
|
2016-09-11 00:03:10 +02:00
|
|
|
|
protocols, but it is also production-grade software, suitable for use in
|
|
|
|
|
high-volume and high-reliability applications. The name BIND stands for
|
|
|
|
|
\"Berkeley Internet Name Domain\", because the software originated in the early
|
|
|
|
|
1980s at the University of California at Berkeley.")
|
|
|
|
|
(home-page "https://www.isc.org/downloads/bind")
|
2017-05-02 14:34:28 +02:00
|
|
|
|
(license (list license:mpl2.0))))
|
2016-09-11 00:03:10 +02:00
|
|
|
|
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(define-public dnscrypt-proxy
|
|
|
|
|
(package
|
|
|
|
|
(name "dnscrypt-proxy")
|
2017-05-08 12:19:55 +02:00
|
|
|
|
(version "1.9.5")
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://download.dnscrypt.org/dnscrypt-proxy/"
|
|
|
|
|
"dnscrypt-proxy-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-05-08 12:19:55 +02:00
|
|
|
|
"1dhvklr4dg2vlw108n11xbamacaryyg3dbrg629b76lp7685p7z8"))
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Delete bundled libltdl. XXX: This package also bundles
|
|
|
|
|
;; a modified libevent that cannot currently be removed.
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 12:47:34 +01:00
|
|
|
|
'(begin
|
|
|
|
|
(delete-file-recursively "libltdl")
|
|
|
|
|
#t))))
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
gnu: Put autoconf-related phases immediately after the 'unpack phase.
* gnu/packages/audio.scm (audacity, rtmidi)[arguments]: Correct phases
accordingly.
* gnu/packages/bioinformatics.scm (mash, seek, vsearch, emboss,
htslib-for-sambamba)[arguments]: Likewise.
* gnu/packages/ci.scm (cuirass)[arguments]: Likewise.
* gnu/packages/compression.scm (minizip, xdelta)[arguments]: Likewise.
* gnu/packages/cpp.scm (libzen)[arguments]: Likewise.
* gnu/packages/crypto.scm (opendht)[arguments]: Likewise.
* gnu/packages/databases.scm (4store, mdbtools)[arguments]: Likewise.
* gnu/packages/debug.scm (stress-make)[arguments]: Likewise.
* gnu/packages/dns.scm (dnscrypt-proxy, dnscrypt-wrapper)[arguments]:
Likewise.
* gnu/packages/emacs.scm (emacs-pdf-tools)[arguments]: Likewise.
* gnu/packages/embedded.scm (libjaylink, openocd)[arguments]: Likewise.
* gnu/packages/engineering.scm (gerbv)[arguments]: Likewise.
* gnu/packages/erlang.scm (erlang)[arguments]: Likewise.
* gnu/packages/ftp.scm (weex)[arguments]: Likewise.
* gnu/packages/gnome.scm (dia)[arguments]: Likewise.
* gnu/packages/gnunet.scm (gnurl, guile-gnunet)[arguments]: Likewise.
* gnu/packages/gtk.scm (guile-rsvg, graphene)[arguments]: Likewise.
* gnu/packages/guile.scm (guildhall, guile-ics, guile-sqlite3)[arguments]:
Likewise.
* gnu/packages/ibus.scm (ibus-libpinyin)[arguments]: Likewise.
* gnu/packages/irc.scm (weechat)[arguments]: Likewise.
* gnu/packages/java.scm (classpath-devel)[arguments]: Likewise.
* gnu/packages/libreoffice.scm (libetonyek)[arguments]: Likewise.
* gnu/packages/libusb.scm (hidapi)[arguments]: Likewise.
* gnu/packages/linux.scm (gpm)[arguments]: Likewise.
* gnu/packages/logging.scm (glog)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (ghmm)[arguments]: Likewise.
* gnu/packages/mail.scm (dovecot-trees, dovecot-libsodium-plugin, esmtp)
[arguments]: Likewise.
* gnu/packages/messaging.scm (freetalk, libmesode, libstrophe)[arguments]:
Likewise.
* gnu/packages/microcom.scm (microcom)[arguments]: Likewise.
* gnu/packages/ocaml.scm (ocaml-ssl)[arguments]: Likewise.
* gnu/packages/parallel.scm (slurm)[arguments]: Likewise.
* gnu/packages/pdf.scm (libharu)[arguments]: Likewise.
* gnu/packages/samba.scm (cifs-utils)[arguments]: Likewise.
* gnu/packages/serialization.scm (msgpack)[arguments]: Likewise.
* gnu/packages/shells.scm (scsh)[arguments]: Likewise.
* gnu/packages/telephony.scm (libiax2)[arguments]: Likewise.
* gnu/packages/textutils.scm (dotconf)[arguments]: Likewise.
* gnu/packages/version-control.scm (findnewest)[arguments]: Likewise.
* gnu/packages/video.scm (libmediainfo, mediainfo)[arguments]: Likewise.
2017-07-31 03:02:35 +02:00
|
|
|
|
(add-after 'unpack 'autoreconf
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(lambda _
|
|
|
|
|
;; Re-generate build files due to unbundling ltdl.
|
|
|
|
|
;; TODO: Prevent generating new libltdl and building it.
|
|
|
|
|
;; The system version is still favored and referenced.
|
2018-06-24 21:58:41 +02:00
|
|
|
|
(invoke "autoreconf" "-vif"))))))
|
2016-11-26 16:24:18 +01:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("autoconf" ,autoconf)
|
|
|
|
|
("libtool" ,libtool)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libltdl" ,libltdl)
|
|
|
|
|
("libsodium" ,libsodium)))
|
|
|
|
|
(home-page "https://www.dnscrypt.org/")
|
|
|
|
|
(synopsis "Securely send DNS requests to a remote server")
|
|
|
|
|
(description
|
|
|
|
|
"@command{dnscrypt-proxy} is a tool for securing communications
|
|
|
|
|
between a client and a DNS resolver. It verifies that responses you get
|
|
|
|
|
from a DNS provider was actually sent by that provider, and haven't been
|
|
|
|
|
tampered with. For optimal performance it is recommended to use this as
|
|
|
|
|
a forwarder for a caching DNS resolver such as @command{dnsmasq}, but it
|
|
|
|
|
can also be used as a normal DNS \"server\". A list of public dnscrypt
|
|
|
|
|
servers is included, and an up-to-date version is available at
|
|
|
|
|
@url{https://download.dnscrypt.org/dnscrypt-proxy/dnscrypt-resolvers.csv}.")
|
|
|
|
|
(license (list license:isc
|
|
|
|
|
;; Libevent and src/ext/queue.h is 3-clause BSD.
|
|
|
|
|
license:bsd-3))))
|
|
|
|
|
|
2016-11-26 13:51:01 +01:00
|
|
|
|
(define-public dnscrypt-wrapper
|
|
|
|
|
(package
|
|
|
|
|
(name "dnscrypt-wrapper")
|
|
|
|
|
(version "0.2.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/cofyc/dnscrypt-wrapper/releases"
|
|
|
|
|
"/download/v" version "/" name "-v" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1vhg4g0r687f51wcdn7z9w1hxapazx6vyh5rsr8wa48sljzd583g"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags '("CC=gcc")
|
|
|
|
|
;; TODO: Tests require ruby-cucumber and ruby-aruba.
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
gnu: Put autoconf-related phases immediately after the 'unpack phase.
* gnu/packages/audio.scm (audacity, rtmidi)[arguments]: Correct phases
accordingly.
* gnu/packages/bioinformatics.scm (mash, seek, vsearch, emboss,
htslib-for-sambamba)[arguments]: Likewise.
* gnu/packages/ci.scm (cuirass)[arguments]: Likewise.
* gnu/packages/compression.scm (minizip, xdelta)[arguments]: Likewise.
* gnu/packages/cpp.scm (libzen)[arguments]: Likewise.
* gnu/packages/crypto.scm (opendht)[arguments]: Likewise.
* gnu/packages/databases.scm (4store, mdbtools)[arguments]: Likewise.
* gnu/packages/debug.scm (stress-make)[arguments]: Likewise.
* gnu/packages/dns.scm (dnscrypt-proxy, dnscrypt-wrapper)[arguments]:
Likewise.
* gnu/packages/emacs.scm (emacs-pdf-tools)[arguments]: Likewise.
* gnu/packages/embedded.scm (libjaylink, openocd)[arguments]: Likewise.
* gnu/packages/engineering.scm (gerbv)[arguments]: Likewise.
* gnu/packages/erlang.scm (erlang)[arguments]: Likewise.
* gnu/packages/ftp.scm (weex)[arguments]: Likewise.
* gnu/packages/gnome.scm (dia)[arguments]: Likewise.
* gnu/packages/gnunet.scm (gnurl, guile-gnunet)[arguments]: Likewise.
* gnu/packages/gtk.scm (guile-rsvg, graphene)[arguments]: Likewise.
* gnu/packages/guile.scm (guildhall, guile-ics, guile-sqlite3)[arguments]:
Likewise.
* gnu/packages/ibus.scm (ibus-libpinyin)[arguments]: Likewise.
* gnu/packages/irc.scm (weechat)[arguments]: Likewise.
* gnu/packages/java.scm (classpath-devel)[arguments]: Likewise.
* gnu/packages/libreoffice.scm (libetonyek)[arguments]: Likewise.
* gnu/packages/libusb.scm (hidapi)[arguments]: Likewise.
* gnu/packages/linux.scm (gpm)[arguments]: Likewise.
* gnu/packages/logging.scm (glog)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (ghmm)[arguments]: Likewise.
* gnu/packages/mail.scm (dovecot-trees, dovecot-libsodium-plugin, esmtp)
[arguments]: Likewise.
* gnu/packages/messaging.scm (freetalk, libmesode, libstrophe)[arguments]:
Likewise.
* gnu/packages/microcom.scm (microcom)[arguments]: Likewise.
* gnu/packages/ocaml.scm (ocaml-ssl)[arguments]: Likewise.
* gnu/packages/parallel.scm (slurm)[arguments]: Likewise.
* gnu/packages/pdf.scm (libharu)[arguments]: Likewise.
* gnu/packages/samba.scm (cifs-utils)[arguments]: Likewise.
* gnu/packages/serialization.scm (msgpack)[arguments]: Likewise.
* gnu/packages/shells.scm (scsh)[arguments]: Likewise.
* gnu/packages/telephony.scm (libiax2)[arguments]: Likewise.
* gnu/packages/textutils.scm (dotconf)[arguments]: Likewise.
* gnu/packages/version-control.scm (findnewest)[arguments]: Likewise.
* gnu/packages/video.scm (libmediainfo, mediainfo)[arguments]: Likewise.
2017-07-31 03:02:35 +02:00
|
|
|
|
(add-after 'unpack 'create-configure
|
2016-11-26 13:51:01 +01:00
|
|
|
|
(lambda _
|
2018-06-24 21:59:18 +02:00
|
|
|
|
(invoke "make" "configure"))))))
|
2016-11-26 13:51:01 +01:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libevent" ,libevent)
|
|
|
|
|
("libsodium" ,libsodium)))
|
|
|
|
|
(home-page "https://github.com/Cofyc/dnscrypt-wrapper")
|
|
|
|
|
(synopsis "Server-side dnscrypt proxy")
|
|
|
|
|
(description
|
|
|
|
|
"@command{dnscrypt-wrapper} is a tool to expose a name server over
|
|
|
|
|
the @code{dnscrypt} protocol. It can be used as an endpoint for the
|
|
|
|
|
@command{dnscrypt-proxy} client to securely tunnel DNS requests between
|
|
|
|
|
the two.")
|
|
|
|
|
(license (list license:isc
|
|
|
|
|
;; Bundled argparse is MIT. TODO: package and unbundle.
|
|
|
|
|
license:expat
|
|
|
|
|
;; dns-protocol.h and rfc1035.{c,h} is gpl2 or gpl3 (either).
|
|
|
|
|
license:gpl2
|
|
|
|
|
license:gpl3))))
|
|
|
|
|
|
2016-09-06 19:10:18 +02:00
|
|
|
|
(define-public libasr
|
|
|
|
|
(package
|
|
|
|
|
(name "libasr")
|
|
|
|
|
(version "201602131606")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://www.opensmtpd.org/archives/"
|
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"18kdmbjsxrfai16d66qslp48b1zf7gr8him2jj5dcqgbsl44ls75"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("groff" ,groff)))
|
|
|
|
|
(home-page "https://www.opensmtpd.org")
|
|
|
|
|
(synopsis "Asynchronous resolver library by the OpenBSD project")
|
|
|
|
|
(description
|
|
|
|
|
"libasr is a free, simple and portable asynchronous resolver library.
|
|
|
|
|
It allows to run DNS queries and perform hostname resolutions in a fully
|
|
|
|
|
asynchronous fashion.")
|
|
|
|
|
(license (list license:isc
|
|
|
|
|
license:bsd-2 ; last part of getrrsetbyname_async.c
|
|
|
|
|
license:bsd-3
|
|
|
|
|
(license:non-copyleft "file://LICENSE") ; includes.h
|
|
|
|
|
license:openssl))))
|
2016-09-21 03:45:18 +02:00
|
|
|
|
|
2018-03-07 16:54:43 +01:00
|
|
|
|
(define-public nsd
|
|
|
|
|
(package
|
|
|
|
|
(name "nsd")
|
2019-02-12 16:09:16 +01:00
|
|
|
|
(version "4.1.26")
|
2018-03-07 16:54:43 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://www.nlnetlabs.nl/downloads/nsd/nsd-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2019-02-12 16:09:16 +01:00
|
|
|
|
(base32 "1x0mvj4872dzj1rr9adnchdm4dhn41xmc459p5j4s0r13m1l32lz"))))
|
2018-03-07 16:54:43 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
|
|
|
|
(list "--enable-pie" ; fully benefit from ASLR
|
|
|
|
|
"--enable-ratelimit"
|
|
|
|
|
"--enable-recvmmsg"
|
|
|
|
|
"--enable-relro-now" ; protect GOT and .dtor areas
|
|
|
|
|
"--disable-radix-tree"
|
|
|
|
|
(string-append "--with-libevent="
|
|
|
|
|
(assoc-ref %build-inputs "libevent"))
|
|
|
|
|
(string-append "--with-ssl="
|
|
|
|
|
(assoc-ref %build-inputs "openssl"))
|
|
|
|
|
"--with-configdir=/etc"
|
|
|
|
|
"--with-nsd_conf_file=/etc/nsd/nsd.conf"
|
|
|
|
|
"--with-logfile=/var/log/nsd.log"
|
|
|
|
|
"--with-pidfile=/var/db/nsd/nsd.pid"
|
|
|
|
|
"--with-dbfile=/var/db/nsd/nsd.db"
|
|
|
|
|
"--with-zonesdir=/etc/nsd"
|
|
|
|
|
"--with-xfrdfile=/var/db/nsd/xfrd.state"
|
|
|
|
|
"--with-zonelistfile=/var/db/nsd/zone.list")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'patch-installation-paths
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(doc (string-append out "/share/doc/" ,name "-" ,version)))
|
|
|
|
|
;; The ‘make install’ target tries to create the parent
|
|
|
|
|
;; directories of run-time things like ‘pidfile’ above, and
|
|
|
|
|
;; useless empty directories like 'configdir'. Remove such
|
|
|
|
|
;; '$(INSTALL)' lines and install the example configuration file
|
|
|
|
|
;; in an appropriate location.
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
((".*INSTALL.*\\$\\((config|pid|xfr|db)dir" command)
|
|
|
|
|
(string-append "#" command))
|
|
|
|
|
(("\\$\\(nsdconfigfile\\)\\.sample" file-name)
|
|
|
|
|
(string-append doc "/examples/" file-name)))
|
|
|
|
|
#t))))
|
|
|
|
|
#:tests? #f)) ; no tests
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libevent" ,libevent)
|
|
|
|
|
("openssl" ,openssl)))
|
|
|
|
|
(home-page "https://www.nlnetlabs.nl/projects/nsd/about/")
|
|
|
|
|
(synopsis "Authoritative DNS name server")
|
|
|
|
|
(description "@dfn{NSD}, short for Name Server Daemon, is an authoritative
|
|
|
|
|
name server for the Domain Name System (@dfn{DNS}). It aims to be a fast and
|
|
|
|
|
RFC-compliant nameserver.
|
|
|
|
|
|
|
|
|
|
NSD uses zone information compiled via @command{zonec} into a binary database
|
|
|
|
|
file (@file{nsd.db}). This allows fast startup of the name service daemon and
|
|
|
|
|
allows syntax-structural errors in zone files to be flagged at compile time,
|
|
|
|
|
before being made available to NSD service itself. However, most traditional
|
|
|
|
|
BIND-style zone files can be directly imported into NSD without modification.
|
|
|
|
|
|
|
|
|
|
The collection of programs and processes that make up NSD are designed so that
|
|
|
|
|
the daemon itself runs as a non-privileged user and can be easily configured to
|
|
|
|
|
run in a @code{chroot} jail, thus making any security flaws in NSD less likely
|
|
|
|
|
to result in system-wide compromise.")
|
|
|
|
|
(license (list license:bsd-3))))
|
|
|
|
|
|
2017-06-18 14:27:34 +02:00
|
|
|
|
(define-public unbound
|
|
|
|
|
(package
|
|
|
|
|
(name "unbound")
|
2019-03-14 21:11:59 +01:00
|
|
|
|
(version "1.9.1")
|
2017-06-18 14:27:34 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://www.unbound.net/downloads/unbound-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2019-03-14 21:11:59 +01:00
|
|
|
|
(base32 "1iarvk0i92asvrkpla9z55aan20k6pklzpck9yk4rfnchsdvzh63"))))
|
2017-06-18 14:27:34 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(outputs '("out" "python"))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("flex" ,flex)
|
|
|
|
|
("swig" ,swig)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("expat" ,expat)
|
|
|
|
|
("libevent" ,libevent)
|
|
|
|
|
("protobuf" ,protobuf)
|
|
|
|
|
("python" ,python-3)
|
|
|
|
|
("python-wrapper" ,python-wrapper)
|
|
|
|
|
("openssl" ,openssl)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
2019-02-19 07:52:47 +01:00
|
|
|
|
(list "--disable-static" ; save space and non-determinism in libunbound.a
|
2017-06-21 10:19:47 +02:00
|
|
|
|
(string-append
|
2017-06-18 14:27:34 +02:00
|
|
|
|
"--with-ssl=" (assoc-ref %build-inputs "openssl"))
|
|
|
|
|
(string-append
|
|
|
|
|
"--with-libevent=" (assoc-ref %build-inputs "libevent"))
|
|
|
|
|
(string-append
|
|
|
|
|
"--with-libexpat=" (assoc-ref %build-inputs "expat"))
|
|
|
|
|
"--with-pythonmodule" "--with-pyunbound")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'configure 'fix-python-site-package-path
|
|
|
|
|
;; Move python modules into their own output.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((pyout (assoc-ref outputs "python"))
|
|
|
|
|
(ver ,(version-major+minor (package-version python))))
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("^PYTHON_SITE_PKG=.*$")
|
|
|
|
|
(string-append
|
|
|
|
|
"PYTHON_SITE_PKG="
|
|
|
|
|
pyout "/lib/python-" ver "/site-packages\n"))))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'check 'fix-missing-nss-for-tests
|
|
|
|
|
;; Unfortunately, the package's unittests involve some checks
|
|
|
|
|
;; looking up protocols and services which are not provided
|
|
|
|
|
;; by the minimalistic build environment, in particular,
|
|
|
|
|
;; /etc/protocols and /etc/services are missing.
|
|
|
|
|
;; Also, after plain substitution of protocol and service names
|
|
|
|
|
;; in the test data, the tests still fail because the
|
|
|
|
|
;; corresponding Resource Records have been signed by
|
|
|
|
|
;; RRSIG records.
|
|
|
|
|
;; The following LD_PRELOAD library overwrites the glibc
|
|
|
|
|
;; functions ‘get{proto,serv}byname’, ‘getprotobynumber’ and
|
|
|
|
|
;; ‘getservbyport’ providing the few records required for the
|
|
|
|
|
;; unit tests to pass.
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((source (assoc-ref %build-inputs "source"))
|
|
|
|
|
(gcc (assoc-ref %build-inputs "gcc")))
|
|
|
|
|
(call-with-output-file "/tmp/nss_preload.c"
|
|
|
|
|
(lambda (port)
|
|
|
|
|
(display "#include <stdlib.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <strings.h>
|
|
|
|
|
|
|
|
|
|
#include <netdb.h>
|
|
|
|
|
|
|
|
|
|
struct protoent *getprotobyname(const char *name) {
|
|
|
|
|
struct protoent *p = malloc(sizeof(struct protoent));
|
|
|
|
|
p->p_aliases = malloc(sizeof(char*));
|
|
|
|
|
if (strcasecmp(name, \"tcp\") == 0) {
|
|
|
|
|
p->p_name = \"tcp\";
|
|
|
|
|
p->p_proto = 6;
|
|
|
|
|
p->p_aliases[0] = \"TCP\";
|
|
|
|
|
} else if (strcasecmp(name, \"udp\") == 0) {
|
|
|
|
|
p->p_name = \"udp\";
|
|
|
|
|
p->p_proto = 17;
|
|
|
|
|
p->p_aliases[0] = \"UDP\";
|
|
|
|
|
} else
|
|
|
|
|
p = NULL;
|
|
|
|
|
return p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
struct protoent *getprotobynumber(int proto) {
|
|
|
|
|
struct protoent *p = malloc(sizeof(struct protoent));
|
|
|
|
|
p->p_aliases = malloc(sizeof(char*));
|
|
|
|
|
switch(proto) {
|
|
|
|
|
case 6:
|
|
|
|
|
p->p_name = \"tcp\";
|
|
|
|
|
p->p_proto = 6;
|
|
|
|
|
p->p_aliases[0] = \"TCP\";
|
|
|
|
|
break;
|
|
|
|
|
case 17:
|
|
|
|
|
p->p_name = \"udp\";
|
|
|
|
|
p->p_proto = 17;
|
|
|
|
|
p->p_aliases[0] = \"UDP\";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
p = NULL;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
struct servent *getservbyname(const char *name, const char *proto) {
|
|
|
|
|
struct servent *s = malloc(sizeof(struct servent));
|
|
|
|
|
char* buf = malloc((strlen(proto)+1)*sizeof(char));
|
|
|
|
|
strcpy(buf, proto);
|
|
|
|
|
s->s_aliases = malloc(sizeof(char*));
|
|
|
|
|
s->s_aliases[0] = NULL;
|
|
|
|
|
if (strcasecmp(name, \"domain\") == 0) {
|
|
|
|
|
s->s_name = \"domain\";
|
|
|
|
|
s->s_port = htons(53);
|
|
|
|
|
s->s_proto = buf;
|
|
|
|
|
} else
|
|
|
|
|
s = NULL;
|
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
struct servent *getservbyport(int port, const char *proto) {
|
|
|
|
|
char buf[32];
|
|
|
|
|
struct servent *s = malloc(sizeof(struct servent));
|
|
|
|
|
strcpy(buf, proto);
|
|
|
|
|
s->s_aliases = malloc(sizeof(char*));
|
|
|
|
|
s->s_aliases[0] = NULL;
|
|
|
|
|
switch(port) {
|
|
|
|
|
case 53:
|
|
|
|
|
s->s_name = \"domain\";
|
|
|
|
|
s->s_port = 53;
|
|
|
|
|
s->s_proto = \"udp\";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
s = NULL;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return s;
|
|
|
|
|
}" port)))
|
2018-06-24 22:02:12 +02:00
|
|
|
|
(invoke (string-append gcc "/bin/gcc")
|
|
|
|
|
"-shared" "-fPIC" "-o" "/tmp/nss_preload.so"
|
|
|
|
|
"/tmp/nss_preload.c")
|
2017-06-18 14:27:34 +02:00
|
|
|
|
;; The preload library only affects the unittests.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("./unittest")
|
|
|
|
|
"LD_PRELOAD=/tmp/nss_preload.so ./unittest")))
|
|
|
|
|
#t)))))
|
|
|
|
|
(home-page "https://www.unbound.net")
|
|
|
|
|
(synopsis "Validating, recursive, and caching DNS resolver")
|
|
|
|
|
(description
|
|
|
|
|
"Unbound is a recursive-only caching DNS server which can perform DNSSEC
|
|
|
|
|
validation of results. It implements only a minimal amount of authoritative
|
|
|
|
|
service to prevent leakage to the root nameservers: forward lookups for
|
|
|
|
|
localhost, reverse for @code{127.0.0.1} and @code{::1}, and NXDOMAIN for zones
|
|
|
|
|
served by AS112. Stub and forward zones are supported.")
|
|
|
|
|
(license license:bsd-4)))
|
|
|
|
|
|
2016-09-21 03:45:18 +02:00
|
|
|
|
(define-public yadifa
|
|
|
|
|
(package
|
|
|
|
|
(name "yadifa")
|
2019-02-12 16:08:42 +01:00
|
|
|
|
(version "2.3.9")
|
2016-09-21 03:45:18 +02:00
|
|
|
|
(source
|
2019-02-12 16:08:42 +01:00
|
|
|
|
(let ((build "8497"))
|
2016-12-23 23:46:53 +01:00
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append "http://cdn.yadifa.eu/sites/default/files/releases/"
|
2019-02-12 16:08:16 +01:00
|
|
|
|
"yadifa-" version "-" build ".tar.gz"))
|
2016-12-23 23:46:53 +01:00
|
|
|
|
(sha256
|
2019-02-12 16:08:42 +01:00
|
|
|
|
(base32 "0xvyr91sfgzkpw6g3h893ldbwnki3w2472n56rr18w67qghs1sa5")))))
|
2016-09-21 03:45:18 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("which" ,which)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("openssl" ,openssl)))
|
|
|
|
|
(arguments
|
2018-01-10 00:42:24 +01:00
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'omit-example-configurations
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
((" (etc|var)") ""))
|
|
|
|
|
#t)))
|
|
|
|
|
#:configure-flags
|
|
|
|
|
(list "--sysconfdir=/etc"
|
|
|
|
|
"--localstatedir=/var"
|
|
|
|
|
"--disable-build-timestamp" ; build reproducibly
|
|
|
|
|
"--enable-shared"
|
|
|
|
|
"--disable-static"
|
|
|
|
|
"--enable-acl"
|
|
|
|
|
"--enable-caching"
|
|
|
|
|
"--enable-ctrl" ; enable remote control
|
|
|
|
|
"--enable-nsec"
|
|
|
|
|
"--enable-nsec3"
|
|
|
|
|
"--enable-tsig")))
|
2016-09-21 03:45:18 +02:00
|
|
|
|
(home-page "http://www.yadifa.eu/")
|
|
|
|
|
(synopsis "Authoritative DNS name server")
|
2017-03-16 16:08:42 +01:00
|
|
|
|
(description "YADIFA is an authoritative name server for the @dfn{Domain
|
|
|
|
|
Name System} (DNS). It aims for both higher performance and a smaller memory
|
2016-09-21 03:45:18 +02:00
|
|
|
|
footprint than other implementations, while remaining fully RFC-compliant.
|
2017-03-16 16:08:42 +01:00
|
|
|
|
YADIFA supports dynamic record updates and the @dfn{Domain Name System Security
|
|
|
|
|
Extensions} (DNSSEC).")
|
2016-09-21 03:45:18 +02:00
|
|
|
|
(license license:bsd-3)))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
|
|
|
|
|
(define-public knot
|
|
|
|
|
(package
|
|
|
|
|
(name "knot")
|
2019-03-20 00:13:57 +01:00
|
|
|
|
(version "2.8.0")
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://secure.nic.cz/files/knot-dns/"
|
2019-02-12 16:11:38 +01:00
|
|
|
|
"knot-" version ".tar.xz"))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2019-03-20 00:13:57 +01:00
|
|
|
|
"1vw7xx7bm440jwrpvdd04vrp6ccz2b11swcn9msvs62hf0kdjjj9"))
|
|
|
|
|
(patches
|
|
|
|
|
(search-patches "knot-include-system-lmdb-header.patch"))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
2017-11-16 07:57:55 +01:00
|
|
|
|
;; Delete bundled libraries.
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(with-directory-excursion "src/contrib"
|
2017-11-16 07:57:55 +01:00
|
|
|
|
(delete-file-recursively "lmdb"))
|
2017-03-21 07:55:49 +01:00
|
|
|
|
#t))))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
2017-11-16 07:57:55 +01:00
|
|
|
|
`(("fstrm" ,fstrm)
|
|
|
|
|
("gnutls" ,gnutls)
|
2017-03-16 15:30:15 +01:00
|
|
|
|
("jansson" ,jansson)
|
|
|
|
|
("libcap-ng" ,libcap-ng)
|
|
|
|
|
("libedit" ,libedit)
|
|
|
|
|
("libidn" ,libidn)
|
|
|
|
|
("liburcu" ,liburcu)
|
|
|
|
|
("lmdb" ,lmdb)
|
|
|
|
|
("ncurses" ,ncurses)
|
2018-08-18 14:40:46 +02:00
|
|
|
|
("protobuf-c" ,protobuf-c)))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'disable-directory-pre-creation
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Don't install empty directories like ‘/etc’ outside the store.
|
2018-08-18 14:40:46 +02:00
|
|
|
|
;; This is needed even when using ‘make config_dir=... install’.
|
2017-03-21 07:55:49 +01:00
|
|
|
|
(substitute* "src/Makefile.in" (("\\$\\(INSTALL\\) -d") "true"))
|
|
|
|
|
#t))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
2018-08-18 14:37:15 +02:00
|
|
|
|
(doc (string-append out "/share/doc/" ,name "-" ,version))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(etc (string-append doc "/examples/etc")))
|
2018-06-24 22:03:12 +02:00
|
|
|
|
(invoke "make"
|
|
|
|
|
(string-append "config_dir=" etc)
|
2018-08-18 14:40:46 +02:00
|
|
|
|
"install")))))
|
2017-03-16 15:30:15 +01:00
|
|
|
|
#:configure-flags
|
|
|
|
|
(list "--sysconfdir=/etc"
|
|
|
|
|
"--localstatedir=/var"
|
2018-08-18 14:40:46 +02:00
|
|
|
|
"--enable-dnstap" ; let tools read/write capture files
|
|
|
|
|
"--with-module-dnstap=yes" ; detailed query capturing & logging
|
2017-03-16 15:30:15 +01:00
|
|
|
|
(string-append "--with-bash-completions="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/etc/bash_completion.d"))))
|
|
|
|
|
(home-page "https://www.knot-dns.cz/")
|
|
|
|
|
(synopsis "Authoritative DNS name server")
|
2017-04-16 18:06:57 +02:00
|
|
|
|
(description "Knot DNS is an authoritative name server for the @dfn{Domain
|
2017-03-16 15:30:15 +01:00
|
|
|
|
Name System} (DNS), designed to meet the needs of root and @dfn{top-level
|
|
|
|
|
domain} (TLD) name servers. It is implemented as a threaded daemon and uses a
|
|
|
|
|
number of programming techniques to improve speed. For example, the responder
|
|
|
|
|
is completely lock-free, resulting in a very high response rate. Other features
|
|
|
|
|
include automatic @dfn{DNS Security Extensions} (DNSSEC) signing, dynamic record
|
|
|
|
|
synthesis, and on-the-fly re-configuration.")
|
2017-11-21 01:50:34 +01:00
|
|
|
|
(license
|
|
|
|
|
(list
|
|
|
|
|
;; src/contrib/{hat-trie,murmurhash3,openbsd},
|
|
|
|
|
;; src/dnssec/contrib/vpool.[ch], and parts of libtap/ are ‘MIT’ (expat).
|
|
|
|
|
license:expat
|
|
|
|
|
license:lgpl2.0+ ; parts of scr/contrib/ucw
|
|
|
|
|
license:public-domain ; src/contrib/fnv and possibly murmurhash3
|
|
|
|
|
license:gpl3+)))) ; everything else
|
2018-07-10 16:53:02 +02:00
|
|
|
|
|
|
|
|
|
(define-public ddclient
|
|
|
|
|
(package
|
|
|
|
|
(name "ddclient")
|
2018-08-11 05:48:12 +02:00
|
|
|
|
(version "3.9.0")
|
2018-07-10 16:53:02 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/ddclient/ddclient/ddclient-"
|
|
|
|
|
version "/ddclient-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-08-11 05:48:12 +02:00
|
|
|
|
"0fwyhab8yga2yi1kdfkbqxa83wxhwpagmj1w1mwkg2iffh1fjjlw"))))
|
2018-07-10 16:53:02 +02:00
|
|
|
|
(build-system trivial-build-system) ; no Makefile.PL
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("bash" ,bash)
|
|
|
|
|
("gzip" ,gzip)
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("tar" ,tar)))
|
|
|
|
|
(inputs
|
2018-08-11 05:48:12 +02:00
|
|
|
|
`(("inetutils" ,inetutils) ; logger
|
|
|
|
|
("net-tools" ,net-tools)
|
|
|
|
|
("perl-data-validate-ip" ,perl-data-validate-ip)
|
|
|
|
|
("perl-digest-sha1" ,perl-digest-sha1)
|
|
|
|
|
("perl-io-socket-ssl" ,perl-io-socket-ssl)))
|
2018-07-10 16:53:02 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils)
|
|
|
|
|
(ice-9 match)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (guix build utils)
|
|
|
|
|
(ice-9 match)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
;; bootstrap
|
|
|
|
|
(setenv "PATH" (string-append
|
|
|
|
|
(assoc-ref %build-inputs "bash") "/bin" ":"
|
|
|
|
|
(assoc-ref %build-inputs "tar") "/bin" ":"
|
|
|
|
|
(assoc-ref %build-inputs "gzip") "/bin" ":"
|
|
|
|
|
(assoc-ref %build-inputs "perl") "/bin"))
|
|
|
|
|
;; extract source
|
|
|
|
|
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
|
|
|
|
;; package
|
|
|
|
|
(with-directory-excursion (string-append ,name "-" ,version)
|
|
|
|
|
(let* ((out (assoc-ref %outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(let ((file "ddclient"))
|
|
|
|
|
(substitute* file
|
|
|
|
|
(("/usr/bin/perl") (which "perl"))
|
|
|
|
|
;; Strictly use ‘/etc/ddclient/ddclient.conf’.
|
|
|
|
|
(("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf")
|
|
|
|
|
(("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf")
|
|
|
|
|
;; Strictly use ‘/var/cache/ddclient/ddclient.cache’
|
|
|
|
|
(("\\$cachedir\\$program\\.cache")
|
|
|
|
|
"/var/cache/ddclient/ddclient.cache"))
|
|
|
|
|
(install-file file bin)
|
|
|
|
|
(wrap-program (string-append bin "/" file)
|
|
|
|
|
`("PATH" ":" =
|
|
|
|
|
("$PATH"
|
|
|
|
|
,@(map (lambda (input)
|
|
|
|
|
(match input
|
|
|
|
|
((name . store)
|
|
|
|
|
(string-append store "/bin"))))
|
|
|
|
|
%build-inputs)))
|
|
|
|
|
`("PERL5LIB" ":" =
|
|
|
|
|
,(delete
|
|
|
|
|
""
|
|
|
|
|
(map (match-lambda
|
|
|
|
|
(((? (cut string-prefix? "perl-" <>) name) . dir)
|
|
|
|
|
(string-append dir "/lib/perl5/site_perl"))
|
|
|
|
|
(_ ""))
|
|
|
|
|
%build-inputs)))))
|
|
|
|
|
(for-each (cut install-file <> (string-append out
|
|
|
|
|
"/share/ddclient"))
|
|
|
|
|
(find-files "." "sample.*$")))))))
|
|
|
|
|
(home-page "https://sourceforge.net/projects/ddclient/")
|
|
|
|
|
(synopsis "Address updating utility for dynamic DNS services")
|
|
|
|
|
(description "This package provides a client to update dynamic IP
|
|
|
|
|
addresses with several dynamic DNS service providers, such as
|
|
|
|
|
@uref{https://www.dyndns.com/account/login.html,DynDNS.com}.
|
|
|
|
|
|
|
|
|
|
This makes it possible to use a fixed hostname (such as myhost.dyndns.org) to
|
|
|
|
|
access a machine with a dynamic IP address.
|
|
|
|
|
|
|
|
|
|
The client supports both dynamic and (near) static services, as well as MX
|
|
|
|
|
record and alternative name management. It caches the address, and only
|
|
|
|
|
attempts the update when it has changed.")
|
|
|
|
|
(license license:gpl2+)))
|
2018-12-03 20:00:00 +01:00
|
|
|
|
|
|
|
|
|
(define-public hnsd
|
|
|
|
|
;; There have been no releases yet, hence this commit.
|
|
|
|
|
(let ((revision "0")
|
|
|
|
|
(commit "895d89c25d316d18df9d374fe78aae3902bc89fb"))
|
|
|
|
|
(package
|
|
|
|
|
(name "hnsd")
|
|
|
|
|
(version (git-version "0.0" revision commit))
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/handshake-org/hnsd")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0704y73sddn24jga9csw4gxyfb3pnrfnk0vdcph84n1h38490l16"))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
;; Delete the bundled copy of libuv.
|
|
|
|
|
(delete-file-recursively "uv")
|
|
|
|
|
(substitute* "configure.ac"
|
|
|
|
|
(("AC_CONFIG_SUBDIRS\\(\\[uv\\]\\)") ""))
|
|
|
|
|
(substitute* "Makefile.am"
|
|
|
|
|
(("SUBDIRS = uv") "\n")
|
|
|
|
|
(("\\$\\(top_builddir\\)/uv/libuv.la") "-luv")
|
|
|
|
|
|
|
|
|
|
;; Make sure the 'hnsd' binary is installed and
|
|
|
|
|
;; dynamically-linked.
|
|
|
|
|
(("noinst_PROGRAMS") "bin_PROGRAMS")
|
|
|
|
|
(("hnsd_LDFLAGS = -static") ""))
|
|
|
|
|
|
|
|
|
|
;; This script tries to chdir to "uv" and doesn't do more
|
|
|
|
|
;; than "autoreconf" so remove it.
|
|
|
|
|
(delete-file "autogen.sh")
|
|
|
|
|
#t))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:configure-flags '("--disable-static"))) ;no need for libhsk.a
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("libtool" ,libtool)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("unbound" ,unbound)
|
|
|
|
|
("libuv" ,libuv)))
|
|
|
|
|
(home-page "https://www.handshake.org/")
|
|
|
|
|
(synopsis "Resolver daemon for the Handshake naming protocol")
|
|
|
|
|
(description
|
|
|
|
|
"@command{hnsd} is a @dfn{host name resolver} for the Handshake Naming
|
|
|
|
|
System (HNS) peer-to-peer network.")
|
|
|
|
|
(license license:expat))))
|
2019-01-02 19:28:18 +01:00
|
|
|
|
|
|
|
|
|
(define-public libmicrodns
|
|
|
|
|
(package
|
|
|
|
|
(name "libmicrodns")
|
|
|
|
|
(version "0.0.10")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/videolabs/libmicrodns")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1xvl9k49ng35wbsqmnjnyqvkyjf8dcq2ywsq3jp3wh0rgmxhq2fh"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("libtool" ,libtool)))
|
|
|
|
|
(home-page "https://github.com/videolabs/libmicrodns")
|
|
|
|
|
(synopsis "Minimal mDNS resolver library")
|
|
|
|
|
(description "@code{libmicrodns} provides a minimal implementation of a
|
|
|
|
|
mDNS resolver as well as an announcer. mDNS (Multicast Domain Name System) is
|
|
|
|
|
a zero-config service that allows one to resolve host names to IP addresses in
|
|
|
|
|
local networks.")
|
|
|
|
|
(license license:lgpl2.1)))
|