futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: nsd: Use G-expressions.

Browse Source 
* gnu/packages/dns.scm (nsd)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-09 02:00:01 +02:00
parent 626c0b7cd6
commit eaac211730
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 36 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
gnu/packages/dns.scm
View File

@ -523,41 +523,42 @@ the two.")
(base32 "057jxhhyggqhy4swwqlwf1lflc96cfqpm200l1gr3lls557a9b4g")))) (base32 "057jxhhyggqhy4swwqlwf1lflc96cfqpm200l1gr3lls557a9b4g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list
(list "--enable-pie" ; fully benefit from ASLR #:configure-flags
"--enable-ratelimit" #~(list "--enable-pie" ; fully benefit from tasty ASLR
"--enable-recvmmsg" "--enable-ratelimit"
"--enable-relro-now" ; protect GOT and .dtor areas "--enable-recvmmsg"
"--disable-radix-tree" "--enable-relro-now" ; protect GOT and .dtor areas
(string-append "--with-libevent=" "--disable-radix-tree"
(assoc-ref %build-inputs "libevent")) (string-append "--with-libevent="
(string-append "--with-ssl=" #$(this-package-input "libevent"))
(assoc-ref %build-inputs "openssl")) (string-append "--with-ssl="
"--with-configdir=/etc" #$(this-package-input "openssl"))
"--with-nsd_conf_file=/etc/nsd/nsd.conf" "--with-configdir=/etc"
"--with-logfile=/var/log/nsd.log" "--with-nsd_conf_file=/etc/nsd/nsd.conf"
"--with-pidfile=/var/db/nsd/nsd.pid" "--with-logfile=/var/log/nsd.log"
"--with-dbfile=/var/db/nsd/nsd.db" "--with-pidfile=/var/db/nsd/nsd.pid"
"--with-zonesdir=/etc/nsd" "--with-dbfile=/var/db/nsd/nsd.db"
"--with-xfrdfile=/var/db/nsd/xfrd.state" "--with-zonesdir=/etc/nsd"
"--with-zonelistfile=/var/db/nsd/zone.list") "--with-xfrdfile=/var/db/nsd/xfrd.state"
#:phases "--with-zonelistfile=/var/db/nsd/zone.list")
(modify-phases %standard-phases #:phases
(add-before 'configure 'patch-installation-paths #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-before 'configure 'patch-installation-paths
(let* ((out (assoc-ref outputs "out")) (lambda _
(doc (string-append out "/share/doc/" ,name "-" ,version))) (let ((doc (string-append #$output "/share/doc/"
;; The ‘make install’ target tries to create the parent #$name "-" #$version)))
;; directories of run-time things like ‘pidfile’ above, and ;; The ‘make install’ target tries to create the parent
;; useless empty directories like 'configdir'. Remove such ;; directories of run-time things like ‘pidfile’ above, and
;; '$(INSTALL)' lines and install the example configuration file ;; useless empty directories like 'configdir'. Remove such
;; in an appropriate location. ;; '$(INSTALL)' lines and install the example configuration file
(substitute* "Makefile.in" ;; in an appropriate location.
((".*INSTALL.*\\$\\((config|pid|xfr|db)dir" command) (substitute* "Makefile.in"
(string-append "#" command)) ((".*INSTALL.*\\$\\((config|pid|xfr|db)dir" command)
(("\\$\\(nsdconfigfile\\)\\.sample" file-name) (string-append "#" command))
(string-append doc "/examples/" file-name))))))) (("\\$\\(nsdconfigfile\\)\\.sample" file-name)
#:tests? #f)) ; no tests (string-append doc "/examples/" file-name)))))))
#:tests? #f)) ; no tests
(inputs (inputs
(list libevent openssl)) (list libevent openssl))
(home-page "https://www.nlnetlabs.nl/projects/nsd/about/") (home-page "https://www.nlnetlabs.nl/projects/nsd/about/")