HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
services: cleanup: Expect file names to be UTF-8-encoded.
[jackhill/guix/guix.git] / gnu / packages / admin.scm
CommitLineData
233e7676 1;;; GNU Guix --- Functional package management for GNU
bfb06e58 2;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
340c7033 3;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
02843215 4;;; Copyright © 2014, 2015, 2016, 2018 Mark H Weaver <mhw@netris.org>
2468ca04 5;;; Copyright © 2014, 2015, 2016, 2017, 2018 Eric Bavier <bavier@member.fsf.org>
d0457553 6;;; Copyright © 2015, 2016 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
15926aec 7;;; Copyright © 2015 Alex Sassmannshausen <alex.sassmannshausen@gmail.com>
8d801045 8;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
d7c64ad5 9;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
f1957fc1 10;;; Copyright © 2016 Pjotr Prins <pjotr.guix@thebird.nl>
d10fa5c7 11;;; Copyright © 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
4fb14fad 12;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
1a0346f0 13;;; Copyright © 2016 Peter Feigl <peter.feigl@nexoid.at>
61402398 14;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
4a78fd46 15;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
e22473ff 16;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
1b5b24c9
BS		 17;;; Copyright © 2016 John Darrington <jmd@gnu.org>
18;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au>
6e75ea48 19;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com>
58989684 20;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
050e5756 21;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
710d889d 22;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
3ebf2c29 23;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
abde01f2 24;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
1df895b0 25;;;
233e7676 26;;; This file is part of GNU Guix.
1df895b0 27;;;
233e7676 28;;; GNU Guix is free software; you can redistribute it and/or modify it
1df895b0
LC		 29;;; under the terms of the GNU General Public License as published by
30;;; the Free Software Foundation; either version 3 of the License, or (at
31;;; your option) any later version.
32;;;
233e7676 33;;; GNU Guix is distributed in the hope that it will be useful, but
1df895b0
LC		 34;;; WITHOUT ANY WARRANTY; without even the implied warranty of
35;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
36;;; GNU General Public License for more details.
37;;;
38;;; You should have received a copy of the GNU General Public License
233e7676 39;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
1df895b0 40
4aeea896 41(define-module (gnu packages admin)
f61e0e79 42 #:use-module ((guix licenses) #:prefix license:)
1df895b0 43 #:use-module (guix packages)
4fb7e0de 44 #:use-module (guix utils)
1df895b0 45 #:use-module (guix download)
aaff68ee 46 #:use-module (guix git-download)
fbc1a58f 47 #:use-module (guix build-system cmake)
1df895b0 48 #:use-module (guix build-system gnu)
d1ce1125 49 #:use-module (guix build-system perl)
4ecfbda7 50 #:use-module (guix build-system python)
c773aba8 51 #:use-module (guix build-system trivial)
59a43334 52 #:use-module (gnu packages)
c73d4c92 53 #:use-module (gnu packages base)
bbc94ed0 54 #:use-module (gnu packages bash)
ac257f12 55 #:use-module (gnu packages check)
3d7a157c 56 #:use-module (gnu packages cyrus-sasl)
bbc94ed0
PN		 57 #:use-module (gnu packages dns)
58 #:use-module (gnu packages file)
9a9e72d5 59 #:use-module (gnu packages ncurses)
9927622f 60 #:use-module (gnu packages readline)
f15164e7 61 #:use-module (gnu packages linux)
d0457553 62 #:use-module (gnu packages lua)
f15164e7 63 #:use-module (gnu packages guile)
1dba6407 64 #:use-module (gnu packages gettext)
050e5756
MB		 65 #:use-module (gnu packages imagemagick)
66 #:use-module (gnu packages inkscape)
d0457553 67 #:use-module (gnu packages pcre)
c73d4c92 68 #:use-module (gnu packages perl)
5ccde207 69 #:use-module (gnu packages perl-check)
87216303 70 #:use-module (gnu packages tcl)
f61e0e79 71 #:use-module (gnu packages compression)
faa6bdf8 72 #:use-module (gnu packages cross-base)
a7fd7b68 73 #:use-module (gnu packages tls)
61bdd0d8 74 #:use-module (gnu packages gnupg)
02c86a5e
LC		 75 #:use-module (gnu packages bison)
76 #:use-module (gnu packages flex)
bbc94ed0 77 #:use-module (gnu packages gl)
02c86a5e 78 #:use-module (gnu packages glib)
3d7a157c 79 #:use-module (gnu packages openldap)
c1f73569 80 #:use-module (gnu packages mcrypt)
87216303 81 #:use-module (gnu packages pkg-config)
b36fcf95 82 #:use-module (gnu packages popt)
1a0346f0 83 #:use-module (gnu packages python)
cc6f4912 84 #:use-module (gnu packages python-crypto)
1b2f753d 85 #:use-module (gnu packages python-web)
050e5756 86 #:use-module (gnu packages qt)
2468ca04 87 #:use-module (gnu packages terminals)
fccf2fe0 88 #:use-module (gnu packages texinfo)
e1485c7b 89 #:use-module (gnu packages groff)
42dc3af5 90 #:use-module (gnu packages pciutils)
d10fa5c7 91 #:use-module (gnu packages libunwind)
42dc3af5
MW		 92 #:use-module (gnu packages libusb)
93 #:use-module (gnu packages libftdi)
c4492a16 94 #:use-module (gnu packages image)
da6c3749 95 #:use-module (gnu packages xorg)
d10fa5c7 96 #:use-module (gnu packages xdisorg)
e932d371 97 #:use-module (gnu packages man)
5ec8b02d 98 #:use-module (gnu packages autotools)
99 #:use-module (gnu packages gnome)
89e34644 100 #:use-module (gnu packages kerberos)
58989684 101 #:use-module (gnu packages gtk)
3ebf2c29
PAR		 102 #:use-module (gnu packages xml)
103 #:use-module (gnu packages boost)
104 #:use-module (gnu packages elf)
bbc94ed0
PN		 105 #:use-module (gnu packages mpi)
106 #:use-module (gnu packages web))
f15164e7 107
c1f73569
RW		 108(define-public aide
109 (package
110 (name "aide")
b067ad3e 111 (version "0.16")
c1f73569
RW		 112 (source (origin
113 (method url-fetch)
114 (uri (string-append "mirror://sourceforge/aide/aide/"
115 version "/aide-" version ".tar.gz"))
116 (sha256
117 (base32
b067ad3e 118 "0ibkv4z2gk14fn014kq13rp2ysiq6nn2cflv2q5i7zf466hm6758"))))
c1f73569
RW		 119 (build-system gnu-build-system)
120 (native-inputs
121 `(("bison" ,bison)
122 ("flex" ,flex)))
123 (inputs
124 `(("libgcrypt" ,libgcrypt)
125 ("libgpg-error" ,libgpg-error)
126 ("libmhash" ,libmhash)
b067ad3e 127 ("pcre" ,pcre)
c1f73569
RW		 128 ("zlib" ,zlib)))
129 (synopsis "File and directory integrity checker")
130 (description
131 "AIDE (Advanced Intrusion Detection Environment) is a file and directory
132integrity checker. It creates a database from the regular expression rules
133that it finds from its configuration files. Once this database is initialized
134it can be used to verify the integrity of the files. It has several message
135digest algorithms that are used to check the integrity of files. All of the
136usual file attributes can be checked for inconsistencies.")
137 (home-page "http://aide.sourceforge.net/")
138 (license license:gpl2+)))
139
4971d5d0
RJ		 140(define-public progress
141 (package
142 (name "progress")
eec9c4a7 143 (version "0.13.1")
4971d5d0
RJ		 144 (source (origin
145 (method url-fetch)
146 (uri (string-append "https://github.com/Xfennec/"
147 name "/archive/v" version ".tar.gz"))
148 (sha256
eec9c4a7 149 (base32 "199rk6608q9m6l0fbjm0xl2w1c5krf8245dqnksdp4rqp7l9ak06"))
4971d5d0
RJ		 150 (file-name (string-append name "-" version ".tar.gz"))))
151 (build-system gnu-build-system)
eec9c4a7
TGR		 152 (native-inputs
153 `(("pkg-config" ,pkg-config)
154 ("which" ,which)))
4971d5d0
RJ		 155 (inputs
156 `(("ncurses" ,ncurses)))
157 (arguments
158 `(#:tests? #f ; There is no test suite.
eec9c4a7 159 #:make-flags (list "CC=gcc"
4971d5d0
RJ		 160 (string-append "PREFIX=" (assoc-ref %outputs "out")))
161 #:phases
162 (modify-phases %standard-phases
163 (delete 'configure)))) ; There's no configure phase.
164 (home-page "https://github.com/Xfennec/progress")
165 (synopsis "Program to view the progress of the coreutils commands")
166 (description "A program that looks for coreutils basic commands (cp, mv,
167dd, tar, gzip/gunzip, cat, etc.) currently running on your system and displays
168the percentage of copied data. It can also show estimated time and throughput,
169and provides a \"top-like\" mode (monitoring).")
170 (license license:gpl3+)))
171
e932d371 172(define-public shepherd
133056bd
LC		 173 (package
174 (name "shepherd")
ca5b7311 175 (version "0.4.0")
133056bd
LC		 176 (source (origin
177 (method url-fetch)
ca5b7311 178 (uri (string-append "https://alpha.gnu.org/gnu/shepherd/shepherd-"
133056bd
LC		 179 version ".tar.gz"))
180 (sha256
181 (base32
ca5b7311 182 "1lgmsbxn8i8xdasxzkdp2cml75n128pplw6icvmspl6s0n9xmw8n"))))
133056bd
LC		 183 (build-system gnu-build-system)
184 (arguments
185 '(#:configure-flags '("--localstatedir=/var")))
425ab478
LC		 186 (native-inputs
187 `(("pkg-config" ,pkg-config)
188
189 ;; This is the Guile we use as a cross-compiler...
c8eb2b8c 190 ("guile" ,guile-2.2)))
425ab478
LC		 191 (inputs
192 ;; ... and this is the one that appears in shebangs when cross-compiling.
bfb06e58
LC		 193 `(("guile" ,guile-2.2)
194
195 ;; The 'shepherd' command uses Readline when used interactively. It's
196 ;; an unusual use case though, so we don't propagate it.
197 ("guile-readline" ,guile-readline)))
133056bd
LC		 198 (synopsis "System service manager")
199 (description
200 "The GNU Shepherd is a daemon-managing daemon, meaning that it supervises
201the execution of system services, replacing similar functionality found in
202typical init systems. It provides dependency-handling through a convenient
203interface and is based on GNU Guile.")
204 (license license:gpl3+)
95088559
LC		 205 (home-page "https://www.gnu.org/software/shepherd/")
206 (properties '((ftp-server . "alpha.gnu.org")))))
e932d371 207
db341bfa
CB		 208(define-public daemontools
209 (package
210 (name "daemontools")
211 (version "0.76")
212 (source (origin
213 (method url-fetch)
214 (uri (string-append
215 "https://cr.yp.to/" name "/"
216 name "-" version ".tar.gz"))
217 (sha256
218 (base32
219 "07scvw88faxkscxi91031pjkpccql6wspk4yrlnsbrrb5c0kamd5"))))
220 (build-system gnu-build-system)
221 (arguments
222 `(#:tests? #f ;; No tests as far as I can tell.
223 #:phases
224 (modify-phases %standard-phases
225 (add-after 'unpack 'chdir
226 (lambda _
227 (chdir ,(string-append name "-" version))))
228 (delete 'configure)
229 (add-before 'build 'patch
230 (lambda _
231 (substitute* "src/error.h"
232 (("extern int errno;")
233 "#include <errno.h>"))))
234 (replace 'build
235 (lambda _
236 (invoke "package/compile")))
237 (replace 'install
238 (lambda* (#:key outputs #:allow-other-keys)
239 (let* ((out (assoc-ref outputs "out"))
240 (bin (string-append out "/bin")))
241 (for-each (lambda (file)
242 (install-file file bin))
243 (find-files "command"))))))))
244 (synopsis "Tools for managing UNIX style services")
245 (description
246 "@code{daemontools} is a collection of tools for managing UNIX
247services.")
248 (license license:public-domain)
249 (home-page "https://cr.yp.to/daemontools.html")))
250
fbc1a58f
CR		 251(define-public dfc
252 (package
253 (name "dfc")
48167ccd 254 (version "3.1.1")
fbc1a58f
CR		 255 (source
256 (origin
257 (method url-fetch)
258 (uri (string-append
48167ccd 259 "http://projects.gw-computing.net/attachments/download/615/dfc-"
fbc1a58f
CR		 260 version ".tar.gz"))
261 (sha256
262 (base32
48167ccd 263 "0m1fd7l85ckb7bq4c5c3g257bkjglm8gq7x42pkmpp87fkknc94n"))))
fbc1a58f
CR		 264 (build-system cmake-build-system)
265 (arguments '(#:tests? #f)) ; There are no tests.
b94a6ca0 266 (native-inputs `(("gettext" ,gettext-minimal)))
fbc1a58f
CR		 267 (home-page "http://projects.gw-computing.net/projects/dfc")
268 (synopsis "Display file system space usage using graphs and colors")
269 (description
270 "dfc (df color) is a modern version of df. It uses colors, draws pretty
271graphs and can export its output to different formats.")
f61e0e79 272 (license license:bsd-3)))
fbc1a58f 273
340c7033
CR		 274(define-public htop
275 (package
276 (name "htop")
fe4adc12 277 (version "2.2.0")
340c7033
CR		 278 (source (origin
279 (method url-fetch)
20e6c852 280 (uri (string-append "http://hisham.hm/htop/releases/"
340c7033
CR		 281 version "/htop-" version ".tar.gz"))
282 (sha256
283 (base32
fe4adc12 284 "0mrwpb3cpn3ai7ar33m31yklj64c3pp576vh1naqff6f21pq5mnr"))))
340c7033
CR		 285 (build-system gnu-build-system)
286 (inputs
287 `(("ncurses" ,ncurses)))
710d889d
AI		 288 (native-inputs
289 `(("python" ,python-minimal-wrapper))) ; for scripts/MakeHeader.py
290 (home-page "https://hisham.hm/htop/")
340c7033
CR		 291 (synopsis "Interactive process viewer")
292 (description
293 "This is htop, an interactive process viewer. It is a text-mode
294application (for console or X terminals) and requires ncurses.")
f61e0e79 295 (license license:gpl2)))
340c7033 296
1df895b0
LC		 297(define-public pies
298 (package
299 (name "pies")
a9764b7d 300 (version "1.3")
1df895b0
LC		 301 (source
302 (origin
a9764b7d
LC		 303 (method url-fetch)
304 (uri (string-append "mirror://gnu/pies/pies-"
305 version ".tar.bz2"))
306 (sha256
307 (base32
308 "12r7rjjyibjdj08dvwbp0iflfpzl4s0zhn6cr6zj3hwf9gbzgl1g"))))
1df895b0 309 (build-system gnu-build-system)
a9764b7d
LC		 310 (arguments
311 '(#:phases (modify-phases %standard-phases
312 (add-before 'build 'patch-/bin/sh
313 (lambda* (#:key inputs #:allow-other-keys)
314 ;; Use the right shell when executing user-provided
315 ;; shell commands.
316 (let ((bash (assoc-ref inputs "bash")))
317 (substitute* "src/progman.c"
318 (("\"/bin/sh\"")
319 (string-append "\"" bash "/bin/sh\"")))
320 #t))))))
6fd52309 321 (home-page "https://www.gnu.org/software/pies/")
f50d2669 322 (synopsis "Program invocation and execution supervisor")
1df895b0 323 (description
79c311b8 324 "GNU pies is a program that supervises the invocation and execution of
a22dc0c4
LC		 325other programs. It reads the list of programs to be started from its
326configuration file, executes them, and then monitors their status,
327re-executing them as necessary.")
f61e0e79 328 (license license:gpl3+)))
1df895b0
LC		 329
330(define-public inetutils
331 (package
332 (name "inetutils")
8b1c8e4e 333 (version "1.9.4")
01eafd38
LC		 334 (source (origin
335 (method url-fetch)
336 (uri (string-append "mirror://gnu/inetutils/inetutils-"
337 version ".tar.gz"))
338 (sha256
339 (base32
8b1c8e4e 340 "05n65k4ixl85dc6rxc51b1b732gnmm8xnqi424dy9f1nz7ppb3xy"))))
1df895b0 341 (build-system gnu-build-system)
483188b7 342 (arguments
e4015e57
LC		 343 `(#:configure-flags '("--localstatedir=/var"
344
345 ;; Make sure 'PATH_PROCNET_DEV' gets defined when
346 ;; cross-compiling (by default it does not.)
347 ,@(if (%current-target-system)
348 '("--with-path-procnet-dev=/proc/net/dev")
349 '()))
ed6a21b4
MB		 350 ;; On some systems, 'libls.sh' may fail with an error such as:
351 ;; "Failed to tell switch -a apart from -A".
352 #:parallel-tests? #f))
9927622f 353 (inputs `(("ncurses" ,ncurses)
6f5d28f9
MC		 354 ("readline" ,readline))) ;for 'ftp'
355 (native-inputs `(("netstat" ,net-tools))) ;for tests
6fd52309 356 (home-page "https://www.gnu.org/software/inetutils/")
f50d2669 357 (synopsis "Basic networking utilities")
1df895b0 358 (description
a22dc0c4 359 "Inetutils is a collection of common network programs, such as an ftp
e048de60
LF		 360client and server, a telnet client and server, an rsh client and server, and
361hostname.")
f61e0e79 362 (license license:gpl3+)))
9a9e72d5
LC		 363
364(define-public shadow
365 (package
366 (name "shadow")
2e402618 367 (version "4.6")
9a9e72d5 368 (source (origin
ca2a55d4
SB		 369 (method url-fetch)
370 (uri (string-append
4153ef23 371 "https://github.com/shadow-maint/shadow/releases/"
372 "download/" version "/shadow-" version ".tar.xz"))
ca2a55d4
SB		 373 (sha256
374 (base32
2e402618 375 "10smy01km2bqjjvsd2jz17zvrxbzj89qczyb1amk38j28bcci609"))))
9a9e72d5
LC		 376 (build-system gnu-build-system)
377 (arguments
ce6223e6 378 `(;; Assume System V `setpgrp (void)', which is the default on GNU
9a9e72d5 379 ;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.)
52701a3d 380 #:configure-flags
381 '("--with-libpam" "ac_cv_func_setpgrp_void=yes")
9a9e72d5 382
52701a3d 383 #:phases
384 (modify-phases %standard-phases
385 (add-before 'build 'set-nscd-file-name
386 (lambda* (#:key inputs #:allow-other-keys)
387 ;; Use the right file name for nscd.
ce6223e6
LC		 388 (let ((libc (assoc-ref inputs
389 ,(if (%current-target-system)
390 "cross-libc"
391 "libc"))))
52701a3d 392 (substitute* "lib/nscd.c"
393 (("/usr/sbin/nscd")
acfa777e
MW		 394 (string-append libc "/sbin/nscd")))
395 #t)))
52701a3d 396 (add-after 'install 'remove-groups
397 (lambda* (#:key outputs #:allow-other-keys)
398 ;; Remove `groups', which is already provided by Coreutils.
399 (let* ((out (assoc-ref outputs "out"))
400 (bin (string-append out "/bin"))
401 (man (string-append out "/share/man")))
402 (delete-file (string-append bin "/groups"))
403 (for-each delete-file (find-files man "^groups\\."))
404 #t))))))
9a9e72d5 405
5dfbd769
LC		 406 (inputs (if (string-contains (or (%current-target-system)
407 (%current-system))
408 "-linux")
409 `(("linux-pam" ,linux-pam))
410 '()))
9a9e72d5
LC		 411 (home-page "http://pkg-shadow.alioth.debian.org/")
412 (synopsis "Authentication-related tools such as passwd, su, and login")
413 (description
414 "Shadow provides a number of authentication-related tools, including:
415login, passwd, su, groupadd, and useradd.")
416
417 ;; The `vipw' program is GPLv2+.
418 ;; libmisc/salt.c is public domain.
f61e0e79 419 (license license:bsd-3)))
1e151896
LC		 420
421(define-public mingetty
422 (package
423 (name "mingetty")
424 (version "1.08")
425 (source (origin
426 (method url-fetch)
de67e922
LF		 427 (uri (string-append "mirror://sourceforge/mingetty/mingetty/"
428 version "/mingetty-" version ".tar.gz"))
1e151896
LC		 429 (sha256
430 (base32
431 "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g"))))
432 (build-system gnu-build-system)
433 (arguments
dc1d3cde
KK		 434 `(#:phases
435 (modify-phases %standard-phases
436 (replace 'configure
437 (lambda* (#:key inputs outputs #:allow-other-keys)
438 (let* ((out (assoc-ref outputs "out"))
439 (man8 (string-append out "/share/man/man8"))
440 (sbin (string-append out "/sbin"))
441 (shadow (assoc-ref inputs "shadow"))
442 (login (string-append shadow "/bin/login")))
443 (substitute* "Makefile"
444 (("^SBINDIR.*")
445 (string-append "SBINDIR = " out
446 "/sbin\n"))
447 (("^MANDIR.*")
448 (string-append "MANDIR = " out
449 "/share/man/man8\n")))
450
451 ;; Pick the right 'login' by default.
452 (substitute* "mingetty.c"
453 (("\"/bin/login\"")
454 (string-append "\"" login "\"")))
455
456 (mkdir-p sbin)
457 (mkdir-p man8))
458 #t)))
1e151896
LC		 459 #:tests? #f)) ; no tests
460 (inputs `(("shadow" ,shadow)))
461
3b3b60d0 462 (home-page "https://sourceforge.net/projects/mingetty")
1e151896
LC		 463 (synopsis "Getty for the text console")
464 (description
465 "Small console getty that is started on the Linux text console,
466asks for a login name and then transfers over to 'login'. It is extended to
467allow automatic login and starting any app.")
f61e0e79 468 (license license:gpl2+)))
c773aba8
LC		 469
470(define-public net-base
471 (package
472 (name "net-base")
db719df7 473 (version "5.3")
c773aba8
LC		 474 (source (origin
475 (method url-fetch)
476 (uri (string-append
34af3684 477 "mirror://debian/pool/main/n/netbase/netbase_"
db719df7 478 version ".tar.xz"))
c773aba8
LC		 479 (sha256
480 (base32
db719df7 481 "12xqjwg3p4rzmmh2iib6sigm9l29y3dgk74mmnw64k84jnbwdxl1"))))
c773aba8
LC		 482 (build-system trivial-build-system)
483 (arguments
484 `(#:modules ((guix build utils))
485 #:builder (begin
486 (use-modules (guix build utils)
487 (srfi srfi-26))
488
489 (let* ((source (assoc-ref %build-inputs "source"))
490 (tar (assoc-ref %build-inputs "tar"))
db719df7 491 (xz (assoc-ref %build-inputs "xz"))
c773aba8
LC		 492 (output (assoc-ref %outputs "out"))
493 (etc (string-append output "/etc")))
db719df7 494 (setenv "PATH" (string-append xz "/bin"))
e3cfef22
MW		 495 (invoke (string-append tar "/bin/tar") "xvf"
496 source)
c773aba8
LC		 497 (chdir ,(string-append "netbase-" version))
498 (mkdir-p etc)
499 (for-each copy-file
500 '("etc-services" "etc-protocols" "etc-rpc")
501 (map (cut string-append etc "/" <>)
502 '("services" "protocols" "rpc")))
503 #t))))
504 (native-inputs `(("tar" ,tar)
f61e0e79 505 ("xz" ,xz)))
c773aba8
LC		 506 (synopsis "IANA protocol, port, and RPC number assignments")
507 (description
508 "This package provides the /etc/services, /etc/protocols, and /etc/rpc
509files, which contain information about the IANA-assigned port, protocol, and
e881752c 510ONC RPC numbers.")
c773aba8 511 (home-page "http://packages.debian.org/sid/netbase")
f61e0e79 512 (license license:gpl2)))
94c4a58a
LC		 513
514(define-public netcat
515 (package
516 (name "netcat")
517 (version "0.7.1")
518 (source (origin
519 (method url-fetch)
de67e922
LF		 520 (uri (string-append "mirror://sourceforge/netcat/netcat/" version
521 "/netcat-" version ".tar.bz2"))
94c4a58a
LC		 522 (sha256
523 (base32
524 "1frjcdkhkpzk0f84hx6hmw5l0ynpmji8vcbaxg8h5k2svyxz0nmm"))))
525 (build-system gnu-build-system)
0e4e89c2
MW		 526 (arguments
527 `(#:configure-flags
528 ;; By default, man and info pages are put in PREFIX/{man,info},
529 ;; but we want them in PREFIX/share/{man,info}.
530 (let ((out (assoc-ref %outputs "out")))
531 (list (string-append "--mandir=" out "/share/man")
532 (string-append "--infodir=" out "/share/info")))))
94c4a58a
LC		 533 (home-page "http://netcat.sourceforge.net")
534 (synopsis "Read and write data over TCP/IP")
535 (description
536 "Netcat is a featured networking utility which reads and writes data
537across network connections, using the TCP/IP protocol. It is designed to be a
538reliable \"back-end\" tool that can be used directly or easily driven by other
35b9e423 539programs and scripts. At the same time, it is a feature-rich network debugging
94c4a58a
LC		 540and exploration tool, since it can create almost any kind of connection you
541would need and has several interesting built-in capabilities.")
f61e0e79 542 (license license:gpl2+)))
d038cac1 543
8d0edc82
OP		 544(define-public sipcalc
545 (package
546 (name "sipcalc")
547 (version "1.1.6")
548 (source
549 (origin
550 (method url-fetch)
551 (uri (string-append "http://www.routemeister.net/projects"
552 "/sipcalc/files/sipcalc" "-" version ".tar.gz"))
553 (sha256
554 (base32
555 "0mv3wndj4z2bsshh2k8d5sy3j8wxzgf8mzmmkvj1k8gpcz37dm6g"))))
556 (build-system gnu-build-system)
557 (home-page "http://www.routemeister.net/projects/sipcalc/")
558 (synopsis "Command-line IP subnet calculator")
559 (description
560 "Sipcalc is an advanced command-line IP subnet calculator. It can take
561multiple forms of input (IPv4/IPv6/interface/hostname) and output a multitude
562of information about a given subnet.
563
564Features include:
565
566@itemize @bullet
567@item IPv4
568@itemize
569@item Retrieving of address information from interfaces.
570@item Classfull and CIDR output.
571@item Multiple address and netmask input and output formats (dotted quad, hex,
572number of bits).
573@item Output of broadcast address, network class, Cisco wildcard,
574hosts/range, network range.
575@item The ability to split a network based on a smaller netmask, now also with
576recursive runs on the generated subnets. (also IPv6)
577@end itemize
578@item IPv6
579@itemize
580@item Compressed and expanded input and output addresses.
581@item Standard IPv6 network output.
582@item v4 in v6 output.
583@item Reverse DNS address generation.
584@end itemize
585@end itemize\n")
586 (license license:bsd-3)))
587
d038cac1
LC		 588(define-public alive
589 (package
590 (name "alive")
591 (version "2.0.2")
592 (source (origin
593 (method url-fetch)
594 (uri (string-append "mirror://gnu/alive/alive-"
595 version ".tar.xz"))
596 (sha256
597 (base32
598 "1vrzg51ai68x9yld7vbgl58sxaw5qpx8rbakwcxn4cqq6vpxj38j"))))
599 (build-system gnu-build-system)
600 (arguments '(#:configure-flags '("alive_cv_nice_ping=yes")))
601 (inputs `(("guile" ,guile-2.0)
602 ("inetutils" ,inetutils)))
6fd52309 603 (home-page "https://www.gnu.org/software/alive/")
d038cac1
LC		 604 (synopsis "Autologin and keep-alive daemon")
605 (description
606 "GNU Alive sends periodic pings to a server, generally to keep a
607connection alive.")
f61e0e79 608 (license license:gpl3+)))
c73d4c92
LC		 609
610(define-public isc-dhcp
6548b1e1 611 (let* ((bind-major-version "9")
4e2432d1
MW		 612 (bind-minor-version "11")
613 (bind-patch-version "3")
614 (bind-release-type "") ; for patch release, use "-P"
615 (bind-release-version "") ; for patch release, e.g. "6"
6548b1e1
MW		 616 (bind-version (string-append bind-major-version
617 "."
618 bind-minor-version
619 "."
620 bind-patch-version
621 bind-release-type
622 bind-release-version)))
623 (package
624 (name "isc-dhcp")
4e2432d1 625 (version "4.4.1")
6548b1e1
MW		 626 (source (origin
627 (method url-fetch)
628 (uri (string-append "http://ftp.isc.org/isc/dhcp/"
629 version "/dhcp-" version ".tar.gz"))
630 (sha256
631 (base32
4e2432d1 632 "025nfqx4zwdgv4b3rkw26ihcj312vir08jk6yi57ndmb4a4m08ia"))))
6548b1e1
MW		 633 (build-system gnu-build-system)
634 (arguments
e54465ff
MW		 635 `(#:parallel-build? #f
636 #:phases
6548b1e1
MW		 637 (modify-phases %standard-phases
638 (add-after 'unpack 'replace-bundled-bind
639 (lambda* (#:key inputs #:allow-other-keys)
640 (delete-file "bind/bind.tar.gz")
641 (copy-file (assoc-ref inputs "bind-source-tarball")
642 "bind/bind.tar.gz")
643 (chmod "bind/bind.tar.gz" #o644)
644 (substitute* "bind/version.tmp"
645 (("^MAJORVER=.*")
646 (format #f "MAJORVER=~a\n" ,bind-major-version))
647 (("^MINORVER=.*")
648 (format #f "MINORVER=~a\n" ,bind-minor-version))
649 (("^PATCHVER=.*")
650 (format #f "PATCHVER=~a\n" ,bind-patch-version))
651 (("^RELEASETYPE=.*")
652 (format #f "RELEASETYPE=~a\n" ,bind-release-type))
653 (("^RELEASEVER=.*")
654 (format #f "RELEASEVER=~a\n" ,bind-release-version)))
655 #t))
656 (add-after 'configure 'post-configure
657 (lambda* (#:key outputs #:allow-other-keys)
658 ;; Point to the right client script, which will be
659 ;; installed in a later phase.
660 (substitute* "includes/dhcpd.h"
661 (("#define[[:blank:]]+_PATH_DHCLIENT_SCRIPT.*")
662 (let ((out (assoc-ref outputs "out")))
663 (string-append "#define _PATH_DHCLIENT_SCRIPT \""
664 out "/libexec/dhclient-script"
665 "\"\n"))))
c73d4c92 666
6548b1e1
MW		 667 ;; During the 'build' phase, 'bind.tar.gz' is extracted, so
668 ;; we must patch shebangs in there and make sure the right
669 ;; shell is used.
670 (with-directory-excursion "bind"
671 (substitute* "Makefile"
672 (("\\./configure")
673 (let ((sh (which "sh")))
674 (string-append "./configure CONFIG_SHELL="
675 sh " SHELL=" sh))))
c73d4c92 676
6548b1e1 677 (let ((bind-directory (string-append "bind-" ,bind-version)))
d6acc9f8 678 (invoke "tar" "xf" "bind.tar.gz")
6548b1e1
MW		 679 (for-each patch-shebang
680 (find-files bind-directory ".*"))
d6acc9f8
MW		 681 (invoke "tar" "cf" "bind.tar.gz"
682 bind-directory
683 ;; avoid non-determinism in the archive
684 "--sort=name"
685 "--mtime=@0"
686 "--owner=root:0"
687 "--group=root:0")))))
6548b1e1
MW		 688 (add-after 'install 'post-install
689 (lambda* (#:key inputs outputs #:allow-other-keys)
690 ;; Install the dhclient script for GNU/Linux and make sure
691 ;; if finds all the programs it needs.
692 (let* ((out (assoc-ref outputs "out"))
693 (libexec (string-append out "/libexec"))
694 (coreutils (assoc-ref inputs "coreutils"))
695 (inetutils (assoc-ref inputs "inetutils"))
696 (net-tools (assoc-ref inputs "net-tools"))
697 (sed (assoc-ref inputs "sed")))
698 (substitute* "client/scripts/linux"
699 (("/sbin/ip")
700 (string-append (assoc-ref inputs "iproute")
701 "/sbin/ip")))
c73d4c92 702
6548b1e1
MW		 703 (mkdir-p libexec)
704 (copy-file "client/scripts/linux"
705 (string-append libexec "/dhclient-script"))
c73d4c92 706
6548b1e1
MW		 707 (wrap-program
708 (string-append libexec "/dhclient-script")
709 `("PATH" ":" prefix
710 ,(map (lambda (dir)
711 (string-append dir "/bin:"
712 dir "/sbin"))
d6acc9f8
MW		 713 (list inetutils net-tools coreutils sed))))
714 #t))))))
c73d4c92 715
6548b1e1 716 (native-inputs `(("perl" ,perl)))
c73d4c92 717
6548b1e1
MW		 718 (inputs `(("inetutils" ,inetutils)
719 ("net-tools" ,net-tools)
720 ("iproute" ,iproute)
dc343935 721
6548b1e1
MW		 722 ;; XXX isc-dhcp bundles a copy of bind that has security
723 ;; flaws, so we use a newer version.
724 ("bind-source-tarball"
725 ,(origin
726 (method url-fetch)
727 (uri (string-append "http://ftp.isc.org/isc/bind9/"
728 bind-version
729 "/bind-" bind-version ".tar.gz"))
730 (sha256
731 (base32
4e2432d1 732 "1xbnb2b11274z9frc9y7nvkyxr52qx09bwb97gf9qzzcn8adx78d"))))
c73d4c92 733
6548b1e1
MW		 734 ;; When cross-compiling, we need the cross Coreutils and sed.
735 ;; Otherwise just use those from %FINAL-INPUTS.
736 ,@(if (%current-target-system)
737 `(("coreutils" ,coreutils)
738 ("sed" ,sed))
739 '())))
740
741 (home-page "http://www.isc.org/products/DHCP/")
742 (synopsis "Dynamic Host Configuration Protocol (DHCP) tools")
743 (description
744 "ISC's Dynamic Host Configuration Protocol (DHCP) distribution provides a
c73d4c92
LC		 745reference implementation of all aspects of DHCP, through a suite of DHCP
746tools: server, client, and relay agent.")
4e2432d1 747 (license license:mpl2.0)
159a5e01 748 (properties '((cpe-name . "dhcp"))))))
02c86a5e
LC		 749
750(define-public libpcap
751 (package
752 (name "libpcap")
df4a2b44 753 (version "1.8.1")
02c86a5e
LC		 754 (source (origin
755 (method url-fetch)
756 (uri (string-append "http://www.tcpdump.org/release/libpcap-"
757 version ".tar.gz"))
758 (sha256
759 (base32
df4a2b44 760 "07jlhc66z76dipj4j5v3dig8x6h3k6cb36kmnmpsixf3zmlvqgb7"))))
02c86a5e
LC		 761 (build-system gnu-build-system)
762 (native-inputs `(("bison" ,bison) ("flex" ,flex)))
e03f6d5e
RW		 763 (arguments '(#:configure-flags '("--with-pcap=linux")
764 #:tests? #f)) ; no 'check' target
02c86a5e
LC		 765 (home-page "http://www.tcpdump.org")
766 (synopsis "Network packet capture library")
767 (description
768 "libpcap is an interface for user-level packet capture. It provides a
769portable framework for low-level network monitoring. Applications include
770network statistics collection, security monitoring, network debugging, etc.")
771
772 ;; fad-*.c and a couple other files are BSD-4, but the rest is BSD-3.
f61e0e79 773 (license license:bsd-3)))
02c86a5e 774
1da34f5a
LC		 775(define-public tcpdump
776 (package
777 (name "tcpdump")
81635ad0 778 (version "4.9.2")
1da34f5a
LC		 779 (source (origin
780 (method url-fetch)
73a2ef36
LF		 781 (uri (string-append "http://www.tcpdump.org/release/tcpdump-"
782 version ".tar.gz"))
1da34f5a
LC		 783 (sha256
784 (base32
81635ad0 785 "0ygy0layzqaj838r5xd613iraz09wlfgpyh7pc6cwclql8v3b2vr"))))
1da34f5a 786 (build-system gnu-build-system)
10db1e6c 787 (inputs `(("libpcap" ,libpcap)
cc2b77df 788 ("openssl" ,openssl)))
1da34f5a 789 (native-inputs `(("perl" ,perl))) ; for tests
1da34f5a
LC		 790 (home-page "http://www.tcpdump.org/")
791 (synopsis "Network packet analyzer")
792 (description
793 "Tcpdump is a command-line tool to analyze network traffic passing
794through the network interface controller.")
f61e0e79 795 (license license:bsd-3)))
1da34f5a 796
02c86a5e
LC		 797(define-public jnettop
798 (package
799 (name "jnettop")
800 (version "0.13.0")
801 (source (origin
802 (method url-fetch)
803 (uri (string-append "http://jnettop.kubs.info/dist/jnettop-"
804 version ".tar.gz"))
805 (sha256
806 (base32
807 "1855np7c4b0bqzhf1l1dyzxb90fpnvrirdisajhci5am6als31z9"))))
808 (build-system gnu-build-system)
809 (native-inputs
810 `(("pkg-config" ,pkg-config)))
811 (inputs
812 `(("glib" ,glib)
813 ("ncurses" ,ncurses)
814 ("libpcap" ,libpcap)))
815 (home-page "http://jnettop.kubs.info/")
816 (synopsis "Visualize network traffic by bandwidth use")
817 (description
818 "Jnettop is a traffic visualiser, which captures traffic going
819through the host it is running from and displays streams sorted
820by bandwidth they use.")
f61e0e79 821 (license license:gpl2+)))
87216303
EB		 822
823(define-public clusterssh
824 (package
825 (name "clusterssh")
c5829179 826 (version "4.13.2")
87216303
EB		 827 (source (origin
828 (method url-fetch)
829 (uri (string-append "mirror://sourceforge/clusterssh/"
c5829179
KK		 830 "2.%20ClusterSSH%20Series%204/"
831 "App-ClusterSSH-v" version ".tar.gz"))
87216303
EB		 832 (sha256
833 (base32
c5829179
KK		 834 "0rmk2p3f2wz1h092anidjclh212rv3gxyk0c641qk3frlrjnw6mp"))))
835 (build-system perl-build-system)
836 (native-inputs
837 `(("perl-cpan-changes" ,perl-cpan-changes)
838 ("perl-file-slurp" ,perl-file-slurp)
839 ("perl-file-which" ,perl-file-which)
840 ("perl-module-build" ,perl-module-build)
841 ("perl-readonly" ,perl-readonly)
842 ("perl-test-differences" ,perl-test-differences)
843 ("perl-test-distmanifest" ,perl-test-distmanifest)
844 ("perl-test-perltidy" ,perl-test-perltidy)
845 ("perl-test-pod" ,perl-test-pod)
846 ("perl-test-pod-coverage" ,perl-test-pod-coverage)
847 ("perl-test-trap" ,perl-test-trap)
848 ("perltidy" ,perltidy)))
849 (propagated-inputs
850 `(("xterm" ,xterm)
851 ("perl-exception-class" ,perl-exception-class)
852 ("perl-tk" ,perl-tk)
853 ("perl-try-tiny" ,perl-try-tiny)
854 ("perl-x11-protocol" ,perl-x11-protocol)
855 ("perl-x11-protocol-other" ,perl-x11-protocol-other)))
87216303 856 ;; The clusterssh.sourceforge.net address requires login to view
3b3b60d0 857 (home-page "https://sourceforge.net/projects/clusterssh/")
87216303
EB		 858 (synopsis "Secure concurrent multi-server terminal control")
859 (description
860 "ClusterSSH controls a number of xterm windows via a single graphical
861console window to allow commands to be interactively run on multiple servers
862over ssh connections.")
f61e0e79 863 (license license:gpl2+)))
fccf2fe0 864
d1ce1125
MB		 865(define-public rename
866 (package
867 (name "rename")
868 (version "0.20")
869 (source (origin
870 (method url-fetch)
871 (uri (string-append
872 "mirror://cpan/authors/id/R/RM/RMBARKER/File-Rename-"
873 version ".tar.gz"))
874 (sha256
875 (base32
876 "1cf6xx2hiy1xalp35fh8g73j67r0w0g66jpcbc6971x9jbm7bvjy"))))
877 (build-system perl-build-system)
878 (native-inputs
879 `(("perl-module-build" ,perl-module-build)
880 ("perl-test-pod" ,perl-test-pod)
881 ("perl-test-pod-coverage" ,perl-test-pod-coverage)))
882 (home-page "https://metacpan.org/pod/distribution/File-Rename/rename.PL")
883 (synopsis "Perl extension for renaming multiple files")
884 (description
885 "This package provides a Perl interface (@code{Perl::Rename}) as well
886as a command-line utility (@command{rename}) that can rename multiple files
887at once based on a Perl regular expression.")
888 (license license:perl-license)))
889
fccf2fe0
LC		 890(define-public rottlog
891 (package
892 (name "rottlog")
893 (version "0.72.2")
894 (source (origin
895 (method url-fetch)
896 (uri (string-append "mirror://gnu/rottlog/rottlog-"
897 version ".tar.gz"))
898 (sha256
899 (base32
900 "0751mb9l2f0jrk3vj6q8ilanifd121dliwk0c34g8k0dlzsv3kd7"))
901 (modules '((guix build utils)))
902 (snippet
6cbee49d
MW		 903 '(begin
904 (substitute* "Makefile.in"
905 (("-o \\$\\{LOG_OWN\\} -g \\$\\{LOG_GROUP\\}")
906 ;; Don't try to chown root.
907 "")
908 (("mkdir -p \\$\\(ROTT_STATDIR\\)")
909 ;; Don't attempt to create /var/lib/rottlog.
910 "true"))
911 #t))))
fccf2fe0
LC		 912 (build-system gnu-build-system)
913 (arguments
268ad34e 914 '(#:configure-flags (list "ROTT_ETCDIR=/etc/rottlog" ;rc file location
fccf2fe0 915 "--localstatedir=/var")
268ad34e
LC		 916
917 ;; Install example config files in OUT/etc.
918 #:make-flags (list (string-append "ROTT_ETCDIR="
919 (assoc-ref %outputs "out")
920 "/etc"))
921
8dc0ecae 922 #:phases (modify-phases %standard-phases
d436c6b5
MB		 923 (add-after 'unpack 'patch-paths
924 (lambda _
925 (substitute* "rc/rc"
926 (("/usr/sbin/sendmail") "sendmail"))
927 #t))
11e74634
JN		 928 (add-after 'build 'set-packdir
929 (lambda _
930 ;; Set a default location for archived logs.
931 (substitute* "rc/rc"
932 (("packdir=\"\"")
933 "packdir=\"/var/log\""))
934 #t))
309e523e
LC		 935 (add-before 'install 'tweak-rc-weekly
936 (lambda _
937 (substitute* "rc/weekly"
938 (("/bin/kill")
939 (which "kill"))
940 (("syslogd\\.pid")
941 ;; The file is called 'syslog.pid' (no 'd').
942 "syslog.pid"))
943 #t))
8dc0ecae
LC		 944 (add-after 'install 'install-info
945 (lambda _
946 (zero? (system* "make" "install-info")))))))
fccf2fe0
LC		 947 (native-inputs `(("texinfo" ,texinfo)
948 ("util-linux" ,util-linux))) ; for 'cal'
6fd52309 949 (home-page "https://www.gnu.org/software/rottlog/")
fccf2fe0
LC		 950 (synopsis "Log rotation and management")
951 (description
952 "GNU Rot[t]log is a program for managing log files. It is used to
953automatically rotate out log files when they have reached a given size or
954according to a given schedule. It can also be used to automatically compress
955and archive such logs. Rot[t]log will mail reports of its activity to the
956system administrator.")
f61e0e79 957 (license license:gpl3+)))
e1485c7b
LC		 958
959(define-public sudo
960 (package
961 (name "sudo")
e64a3b43 962 (version "1.8.23")
e1485c7b
LC		 963 (source (origin
964 (method url-fetch)
965 (uri
6baa83d2 966 (list (string-append "https://www.sudo.ws/sudo/dist/sudo-"
e1485c7b
LC		 967 version ".tar.gz")
968 (string-append "ftp://ftp.sudo.ws/pub/sudo/OLD/sudo-"
969 version ".tar.gz")))
970 (sha256
971 (base32
e64a3b43 972 "0yg62wq8rcrbr7qvh3wgfg2g4bwanbi50cr2lf2cfyy8dydx4qyq"))
6b7f1b6c
MB		 973 (modules '((guix build utils)))
974 (snippet
6cbee49d
MW		 975 '(begin
976 (delete-file-recursively "lib/zlib")
977 #t))))
e1485c7b
LC		 978 (build-system gnu-build-system)
979 (arguments
0086ec73
LC		 980 `(#:configure-flags
981 (list "--with-logpath=/var/log/sudo.log"
7b78f359 982 "--with-rundir=/var/run/sudo" ;must be cleaned up at boot time
0086ec73
LC		 983 "--with-vardir=/var/db/sudo"
984 "--with-iologdir=/var/log/sudo-io"
985
986 ;; 'visudo.c' expects _PATH_MV to be defined, but glibc doesn't
987 ;; provide it.
988 (string-append "CPPFLAGS=-D_PATH_MV='\""
989 (assoc-ref %build-inputs "coreutils")
990 "/bin/mv\"'"))
511495fb
LC		 991
992 ;; Avoid non-determinism; see <http://bugs.gnu.org/21918>.
993 #:parallel-build? #f
994
7fae2063
TGR		 995 #:phases
996 (modify-phases %standard-phases
997 (add-before 'configure 'pre-configure
998 (lambda _
999 (substitute* "src/sudo_usage.h.in"
1000 ;; Do not capture 'configure' arguments since we would
1001 ;; unduly retain references, and also because the
1002 ;; CPPFLAGS above would close the string literal
1003 ;; prematurely.
1004 (("@CONFIGURE_ARGS@") "\"\""))
1005 (substitute* (find-files "." "Makefile\\.in")
1006 (("-o [[:graph:]]+ -g [[:graph:]]+")
1007 ;; Allow installation as non-root.
1008 "")
1009 (("^install: (.*)install-sudoers(.*)" _ before after)
1010 ;; Don't try to create /etc/sudoers.
1011 (string-append "install: " before after "\n"))
1012 (("\\$\\(DESTDIR\\)\\$\\(rundir\\)")
1013 ;; Don't try to create /run/sudo.
1014 "$(TMPDIR)/dummy")
1015 (("\\$\\(DESTDIR\\)\\$\\(vardir\\)")
1016 ;; Don't try to create /var/db/sudo.
4b052c6a
EF		 1017 "$(TMPDIR)/dummy"))
1018 #t)))
e1485c7b
LC		 1019
1020 ;; XXX: The 'testsudoers' test series expects user 'root' to exist, but
1021 ;; the chroot's /etc/passwd doesn't have it. Turn off the tests.
1022 #:tests? #f))
1023 (inputs
1024 `(("groff" ,groff)
1025 ("linux-pam" ,linux-pam)
6b7f1b6c 1026 ("zlib" ,zlib)
e1485c7b 1027 ("coreutils" ,coreutils)))
6baa83d2 1028 (home-page "https://www.sudo.ws/")
e1485c7b
LC		 1029 (synopsis "Run commands as root")
1030 (description
1031 "Sudo (su \"do\") allows a system administrator to delegate authority to
1032give certain users (or groups of users) the ability to run some (or all)
1033commands as root or another user while providing an audit trail of the
1034commands and their arguments.")
1035
1036 ;; See <http://www.sudo.ws/sudo/license.html>.
f61e0e79 1037 (license license:x11)))
952298d7 1038
1ce6f43a 1039(define-public wpa-supplicant-minimal
952298d7 1040 (package
1ce6f43a 1041 (name "wpa-supplicant-minimal")
fc008121 1042 (version "2.6")
952298d7
LC		 1043 (source (origin
1044 (method url-fetch)
1045 (uri (string-append
9a727700 1046 "http://w1.fi/releases/wpa_supplicant-"
952298d7
LC		 1047 version
1048 ".tar.gz"))
09748a35
LF		 1049 (patches (search-patches "wpa-supplicant-CVE-2017-13082.patch"
1050 "wpa-supplicant-fix-key-reuse.patch"
1051 "wpa-supplicant-fix-zeroed-keys.patch"
1052 "wpa-supplicant-fix-nonce-reuse.patch"
1053 "wpa-supplicant-krack-followups.patch"))
952298d7
LC		 1054 (sha256
1055 (base32
fc008121 1056 "0l0l5gz3d5j9bqjsbjlfcv4w4jwndllp9fmyai4x9kg6qhs6v4xl"))))
952298d7
LC		 1057 (build-system gnu-build-system)
1058 (arguments
dc1d3cde
KK		 1059 '(#:phases
1060 (modify-phases %standard-phases
1061 (replace 'configure
1062 (lambda* (#:key outputs #:allow-other-keys)
1063 (chdir "wpa_supplicant")
1064 (copy-file "defconfig" ".config")
1065 (let ((port (open-file ".config" "al")))
1066 (display "
952298d7 1067 CONFIG_DEBUG_SYSLOG=y
40b4c6d6 1068
61bdd0d8
LC		 1069 # Choose GnuTLS (the default is OpenSSL.)
1070 CONFIG_TLS=gnutls
1071
952298d7
LC		 1072 CONFIG_DRIVER_NL80211=y
1073 CFLAGS += $(shell pkg-config libnl-3.0 --cflags)
1074 CONFIG_LIBNL32=y
1075 CONFIG_READLINE=y\n" port)
dc1d3cde
KK		 1076 (close-port port))))
1077 (add-after 'install 'install-man-pages
1078 (lambda* (#:key outputs #:allow-other-keys)
1079 (let* ((out (assoc-ref outputs "out"))
1080 (man (string-append out "/share/man"))
1081 (man5 (string-append man "/man5"))
1082 (man8 (string-append man "/man8")))
1083 (define (copy-man-page target)
1084 (lambda (file)
1085 (install-file file target)))
1086
1087 (mkdir-p man5) (mkdir man8)
1088 (for-each (copy-man-page man5)
1089 (find-files "doc/docbook" "\\.5"))
1090 (for-each (copy-man-page man8)
1091 (find-files "doc/docbook" "\\.8"))
1092 #t))))
952298d7
LC		 1093
1094 #:make-flags (list "CC=gcc"
1095 (string-append "BINDIR=" (assoc-ref %outputs "out")
1096 "/sbin")
1097 (string-append "LIBDIR=" (assoc-ref %outputs "out")
1098 "/lib"))
1099 #:tests? #f))
1100 (inputs
1101 `(("readline" ,readline)
1102 ("libnl" ,libnl)
61bdd0d8
LC		 1103 ("gnutls" ,gnutls)
1104 ("libgcrypt" ,libgcrypt))) ;needed by crypto_gnutls.c
952298d7
LC		 1105 (native-inputs
1106 `(("pkg-config" ,pkg-config)))
9a727700 1107 (home-page "http://w1.fi/wpa_supplicant/")
952298d7
LC		 1108 (synopsis "Connecting to WPA and WPA2-protected wireless networks")
1109 (description
1110 "wpa_supplicant is a WPA Supplicant with support for WPA and WPA2 (IEEE
1111802.11i / RSN). Supplicant is the IEEE 802.1X/WPA component that is used in
1112the client stations. It implements key negotiation with a WPA Authenticator
1113and it controls the roaming and IEEE 802.11 authentication/association of the
1114WLAN driver.
1115
1116This package provides the 'wpa_supplicant' daemon and the 'wpa_cli' command.")
1117
1118 ;; In practice, this is linked against Readline, which makes it GPLv3+.
f61e0e79 1119 (license license:bsd-3)))
c6b76405 1120
4fb7e0de 1121(define-public wpa-supplicant
1ce6f43a 1122 (package (inherit wpa-supplicant-minimal)
4fb7e0de
MW		 1123 (name "wpa-supplicant")
1124 (inputs `(("dbus" ,dbus)
1ce6f43a 1125 ,@(package-inputs wpa-supplicant-minimal)))
4fb7e0de 1126 (arguments
1ce6f43a 1127 (substitute-keyword-arguments (package-arguments wpa-supplicant-minimal)
4fb7e0de 1128 ((#:phases phases)
dc1d3cde
KK		 1129 `(modify-phases ,phases
1130 (add-after 'configure 'configure-for-dbus
1131 (lambda _
1132 (let ((port (open-file ".config" "al")))
1133 (display "
4fb7e0de
MW		 1134 CONFIG_CTRL_IFACE_DBUS=y
1135 CONFIG_CTRL_IFACE_DBUS_NEW=y
1136 CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
dc1d3cde
KK		 1137 (close-port port))
1138 #t))
1139 (add-after 'install-man-pages 'install-dbus-conf
1140 (lambda* (#:key outputs #:allow-other-keys)
1141 (let* ((out (assoc-ref outputs "out"))
1142 (dir (string-append out "/etc/dbus-1/system.d")))
1143 (mkdir-p dir)
1144 (copy-file "dbus/dbus-wpa_supplicant.conf"
1145 (string-append dir "/wpa_supplicant.conf")))
1146 #t))))))))
4fb7e0de 1147
050e5756
MB		 1148(define-public wpa-supplicant-gui
1149 (package
1150 (inherit wpa-supplicant)
1151 (name "wpa-supplicant-gui")
1152 (inputs `(("qtbase" ,qtbase)
1153 ("qtsvg" ,qtsvg)
1154 ,@(package-inputs wpa-supplicant)))
1155 (native-inputs
1156 ;; For icons.
1157 `(("imagemagick" ,imagemagick)
1158 ("inkscape" ,inkscape)
1159 ,@(package-native-inputs wpa-supplicant)))
1160 (arguments
1161 `(#:phases (modify-phases %standard-phases
1162 (add-after 'unpack 'chdir
1163 (lambda _
1164 (chdir "wpa_supplicant/wpa_gui-qt4")
1165 #t))
1166 (delete 'configure)
1167 (replace 'build
1168 (lambda _
1169 (invoke "qmake" "wpa_gui.pro")
1170 (invoke "make" "-j" (number->string (parallel-job-count)))
1171 (invoke "make" "-C" "icons")))
1172 (replace 'install
1173 (lambda* (#:key inputs outputs #:allow-other-keys)
1174 (let ((out (assoc-ref outputs "out"))
1175 (qt '("qtbase" "qtsvg")))
1176 (substitute* "wpa_gui.desktop"
1177 (("Exec=wpa_gui")
1178 (string-append "Exec=" out "/bin/wpa_gui")))
1179 (install-file "wpa_gui" (string-append out "/bin"))
1180 (install-file "wpa_gui.desktop"
1181 (string-append out "/share/applications"))
1182 (copy-recursively "icons/hicolor"
1183 (string-append out "/share/icons/hicolor"))
1184 (wrap-program (string-append out "/bin/wpa_gui")
1185 `("QT_PLUGIN_PATH" ":" prefix
1186 ,(map (lambda (label)
1187 (string-append (assoc-ref inputs label)
1188 "/lib/qt5/plugins/"))
1189 qt)))
1190 #t))))))
1191 (synopsis "Graphical user interface for WPA supplicant")))
1192
c6b76405
LC		 1193(define-public wakelan
1194 (package
1195 (name "wakelan")
1196 (version "1.1")
1197 (source (origin
1198 (method url-fetch)
1199 (uri (string-append
1200 "ftp://ftp.gwdg.de/pub/linux/metalab/system/network/misc/wakelan-"
1201 version ".tar.gz"))
1202 (sha256
1203 (base32
1204 "0vydqpf44146ir6k87gmqaq6xy66xhc1gkr3nsd7jj3nhy7ypx9x"))))
1205 (build-system gnu-build-system)
1206 (arguments
dc1d3cde
KK		 1207 '(#:phases
1208 (modify-phases %standard-phases
1209 (replace 'configure
1210 (lambda* (#:key outputs #:allow-other-keys)
1211 (let ((out (assoc-ref outputs "out")))
1212 (mkdir-p (string-append out "/bin"))
1213 (mkdir-p (string-append out "/share/man/man1"))
1214
1215 ;; It's an old configure script that doesn't understand
1216 ;; the extra options we pass.
1217 (setenv "CONFIG_SHELL" (which "bash"))
1218 (zero?
1219 (system* "./configure"
1220 (string-append "--prefix=" out)
1221 (string-append "--mandir=" out
1222 "/share/man")))))))
c6b76405
LC		 1223 #:tests? #f))
1224 (home-page "http://kernel.org") ; really, no home page
1225 (synopsis "Send a wake-on-LAN packet")
1226 (description
1227 "WakeLan broadcasts a properly formatted UDP packet across the local area
1228network, which causes enabled computers to power on.")
f61e0e79 1229 (license license:gpl2+)))
d43f4296
LC		 1230
1231(define-public dmidecode
1232 (package
1233 (name "dmidecode")
eab68c83 1234 (version "3.1")
d43f4296
LC		 1235 (source (origin
1236 (method url-fetch)
1237 (uri (string-append
1238 "mirror://savannah/dmidecode/dmidecode-"
06438b07 1239 version ".tar.xz"))
d43f4296
LC		 1240 (sha256
1241 (base32
eab68c83 1242 "1h0sg0lxa15nzf8s7884p6q7p6md9idm0c79wyqmk32l4ndwwrnp"))))
d43f4296
LC		 1243 (build-system gnu-build-system)
1244 (arguments
06438b07 1245 '(#:phases (modify-phases %standard-phases (delete 'configure))
d43f4296
LC		 1246 #:tests? #f ; no 'check' target
1247 #:make-flags (list (string-append "prefix="
1248 (assoc-ref %outputs "out")))))
340978d7 1249 (home-page "https://www.nongnu.org/dmidecode/")
d43f4296
LC		 1250 (synopsis "Read hardware information from the BIOS")
1251 (description
1252 "Dmidecode reports information about your system's hardware as described
1253in your system BIOS according to the SMBIOS/DMI standard. This typically
1254includes system manufacturer, model name, serial number, BIOS version, asset
1255tag as well as a lot of other details of varying level of interest and
1256reliability depending on the manufacturer. This will often include usage
1257status for the CPU sockets, expansion slots (e.g. AGP, PCI, ISA) and memory
1258module slots, and the list of I/O ports (e.g. serial, parallel, USB).")
f61e0e79 1259 (license license:gpl2+)))
42dc3af5 1260
13c8c2bf
MW		 1261(define-public acpica
1262 (package
1263 (name "acpica")
84979374 1264 (version "20180531")
13c8c2bf
MW		 1265 (source (origin
1266 (method url-fetch)
1267 (uri (string-append
1268 "https://acpica.org/sites/acpica/files/acpica-unix2-"
1269 version ".tar.gz"))
1270 (sha256
1271 (base32
84979374 1272 "0q7vg1nr51f3rg16vjh4glz361a64r6gpm46fqkl2jf4fq7g43g5"))))
13c8c2bf
MW		 1273 (build-system gnu-build-system)
1274 (native-inputs `(("flex" ,flex)
1275 ("bison" ,bison)))
1276 (arguments
1277 '(#:make-flags (list (string-append "PREFIX=" %output)
4a462aa7 1278 "CC=gcc"
13c8c2bf
MW		 1279 "HOST=_LINUX"
1280 "OPT_CFLAGS=-Wall -fno-strict-aliasing")
e56feffe 1281 #:tests? #f ; no 'check' target
dc1d3cde 1282 #:phases (modify-phases %standard-phases (delete 'configure))))
6c441efc 1283 (home-page "https://acpica.org/")
35b9e423 1284 (synopsis "Tools for the development and debug of ACPI tables")
13c8c2bf 1285 (description
3908546a 1286 "The ACPI Component Architecture (@dfn{ACPICA}) project provides an
13c8c2bf 1287OS-independent reference implementation of the Advanced Configuration and
3908546a
TGR		 1288Power Interface Specification (@dfn{ACPI}). ACPICA code contains those portions
1289of ACPI meant to be directly integrated into the host OS as a kernel-resident
13c8c2bf
MW		 1290subsystem, and a small set of tools to assist in developing and debugging ACPI
1291tables. This package contains only the user-space tools needed for ACPI table
1292development, not the kernel implementation of ACPI.")
e56feffe 1293 (license license:gpl2))) ; dual GPLv2/ACPICA Licence
4cf7bd2b
MW		 1294
1295(define-public stress
1296 (package
1297 (name "stress")
ca52937c 1298 (version "1.0.4")
4cf7bd2b
MW		 1299 (source (origin
1300 (method url-fetch)
1301 (uri (string-append "mirror://debian/pool/main/s/stress/stress_"
1302 version ".orig.tar.gz"))
1303 (sha256
1304 (base32
ca52937c 1305 "0nw210jajk38m3y7h8s130ps2qsbz7j75wab07hi2r3hlz14yzh5"))))
4cf7bd2b 1306 (build-system gnu-build-system)
abf7fed5 1307 (home-page "https://packages.debian.org/sid/stress")
9e771e3b 1308 (synopsis "Impose load on and stress test a computer system")
4cf7bd2b 1309 (description
35b9e423 1310 "Stress is a tool that imposes a configurable amount of CPU, memory, I/O,
4cf7bd2b
MW		 1311or disk stress on a POSIX-compliant operating system and reports any errors it
1312detects.
1313
35b9e423 1314Stress is not a benchmark. It is a tool used by system administrators to
4cf7bd2b
MW		 1315evaluate how well their systems will scale, by kernel programmers to evaluate
1316perceived performance characteristics, and by systems programmers to expose
1317the classes of bugs which only or more frequently manifest themselves when the
1318system is under heavy load.")
f61e0e79 1319 (license license:gpl2+)))
b36fcf95
EB		 1320
1321(define-public detox
1322 (package
1323 (name "detox")
1324 (version "1.2.0")
1325 (source (origin
1326 (method url-fetch)
de67e922
LF		 1327 (uri (string-append "mirror://sourceforge/detox/detox/" version
1328 "/detox-" version ".tar.bz2"))
b36fcf95
EB		 1329 (sha256
1330 (base32
1331 "1y6vvjqsg54kl49cry73jbfhr04s7wjs779vrr9zrq6kww7dkymb"))))
1332 (build-system gnu-build-system)
1333 ;; Both flex and popt are used in this case for their runtime libraries
1334 ;; (libfl and libpopt).
1335 (inputs
1336 `(("flex" ,flex)
1337 ("popt" ,popt)))
1338 (arguments
1339 `(#:configure-flags `(,(string-append "--with-popt="
1340 (assoc-ref %build-inputs "popt")))
1341 #:tests? #f)) ;no 'check' target
1342 (home-page "http://detox.sourceforge.net")
e881752c 1343 (synopsis "Clean up file names")
b36fcf95
EB		 1344 (description
1345 "Detox is a program that renames files to make them easier to work with
1346under Unix and related operating systems. Spaces and various other unsafe
1347characters (such as \"$\") get replaced with \"_\". ISO 8859-1 (Latin-1)
1348characters can be replaced as well, as can UTF-8 characters.")
f61e0e79 1349 (license license:bsd-3)))
c4492a16
LC		 1350
1351(define-public testdisk
1352 (package
1353 (name "testdisk")
cf91cfc0 1354 (version "7.0")
c4492a16
LC		 1355 (source (origin
1356 (method url-fetch)
1357 (uri (string-append "http://www.cgsecurity.org/testdisk-"
1358 version ".tar.bz2"))
1359 (sha256
1360 (base32
cf91cfc0 1361 "0ba4wfz2qrf60vwvb1qsq9l6j0pgg81qgf7fh22siaz649mkpfq0"))))
c4492a16
LC		 1362 (build-system gnu-build-system)
1363 (inputs
d6a08ec0 1364 `(("ntfs-3g" ,ntfs-3g)
c4492a16 1365 ("util-linux" ,util-linux)
cc2b77df 1366 ("openssl" ,openssl)
d6a08ec0 1367 ;; FIXME: add reiserfs
f61e0e79 1368 ("zlib" ,zlib)
c4492a16
LC		 1369 ("e2fsprogs" ,e2fsprogs)
1370 ("libjpeg" ,libjpeg)
1371 ("ncurses" ,ncurses)))
8fc46a43 1372 (home-page "https://www.cgsecurity.org/wiki/TestDisk")
c4492a16
LC		 1373 (synopsis "Data recovery tool")
1374 (description
1375 "TestDisk is a program for data recovery, primarily designed to help
1376recover lost partitions and/or make non-booting disks bootable again.")
f61e0e79 1377 (license license:gpl2+)))
c4492a16 1378
15926aec
AS		 1379(define-public tree
1380 (package
1381 (name "tree")
1382 (version "1.7.0")
1383 (source (origin
1384 (method url-fetch)
1385 (uri (string-append
1386 "http://mama.indstate.edu/users/ice/tree/src/tree-"
1387 version ".tgz"))
1388 (sha256
1389 (base32 "04kviw799qxly08zb8n5mgxfd96gyis6x69q2qiw86jnh87c4mv9"))))
1390 (build-system gnu-build-system)
1391 (arguments
dc1d3cde 1392 '(#:phases (modify-phases %standard-phases (delete 'configure))
15926aec
AS		 1393 #:tests? #f ; no check target
1394 #:make-flags (let ((out (assoc-ref %outputs "out")))
1395 (list (string-append "prefix=" out)))))
1396 (synopsis "Recursively list the contents of a directory")
1397 (description
1398 "Tree is a recursive directory listing command that produces a depth
1399indented listing of files, which is colorized ala dircolors if the LS_COLORS
1400environment variable is set and output is to tty.")
1401 (home-page "http://mama.indstate.edu/users/ice/tree/")
1402 (license license:gpl2+)))
1403
c2619e10
LC		 1404(define-public direvent
1405 (package
1406 (name "direvent")
bac67a5a 1407 (version "5.1")
c2619e10
LC		 1408 (source (origin
1409 (method url-fetch)
1410 (uri (string-append "mirror://gnu/direvent/direvent-"
1411 version ".tar.gz"))
1412 (sha256
1413 (base32
bac67a5a 1414 "1nwvjmx7kb14ni34c0b8x9a3791pc20gvhj7xaj66d8q4h6n0qf4"))
c2619e10 1415 (modules '((guix build utils)))
6cbee49d
MW		 1416 (snippet '(begin
1417 (substitute* "tests/testsuite"
1418 (("#![[:blank:]]?/bin/sh")
1419 "#!$SHELL"))
1420 #t))))
c2619e10
LC		 1421 (build-system gnu-build-system)
1422 (arguments
dc1d3cde
KK		 1423 '(#:phases
1424 (modify-phases %standard-phases
1425 (add-before 'build 'patch-/bin/sh
1426 (lambda* (#:key inputs #:allow-other-keys)
1427 ;; Use the right shell when executing the watcher and
1428 ;; user-provided shell commands.
1429 (let ((bash (assoc-ref inputs "bash")))
1430 (substitute* '("src/direvent.c" "src/progman.c")
1431 (("\"/bin/sh\"")
1432 (string-append "\"" bash "/bin/sh\"")))
1433
1434 ;; Adjust the 'shell.at' test accordingly.
1435 (substitute* "tests/testsuite"
1436 (("SHELL=/bin/sh")
1437 (string-append "SHELL=" bash "/bin/sh")))
1438
1439 #t))))))
6fd52309 1440 (home-page "https://www.gnu.org/software/direvent/")
c2619e10
LC		 1441 (synopsis "Daemon to monitor directories for events such as file removal")
1442 (description
1443 "A daemon that monitors directories for events, such as creating,
35b9e423 1444deleting or modifying files. It can monitor different sets of directories for
c2619e10
LC		 1445different events. When an event is detected, direvent calls a specified
1446external program with information about the event, such as the location
c5779c93
LC		 1447within the file system where it occurred. Thus, \"direvent\" provides an
1448easy way to react immediately if given files undergo changes, for example, to
c2619e10 1449track changes in important system configuration files.")
f61e0e79 1450 (license license:gpl3+)))
da6c3749
TUBK		 1451
1452(define-public libcap-ng
1453 (package
1454 (name "libcap-ng")
cc304fe8 1455 (version "0.7.9")
da6c3749
TUBK		 1456 (source (origin
1457 (method url-fetch)
1458 (uri (string-append
1459 "http://people.redhat.com/sgrubb/libcap-ng/libcap-ng-"
1460 version ".tar.gz"))
1461 (sha256
1462 (base32
cc304fe8 1463 "0a0k484kwv0zilry2mbl9k56cnpdhsjxdxin17jas6kkyfy345aa"))))
da6c3749 1464 (build-system gnu-build-system)
dd935df2
TGR		 1465 (arguments
1466 `(#:configure-flags
1467 (list "--without-python")))
4a2982a1 1468 (home-page "https://people.redhat.com/sgrubb/libcap-ng/")
da6c3749
TUBK		 1469 (synopsis "Library for more easily working with POSIX capabilities")
1470 (description
1471 "The libcap-ng library is intended to make programming with POSIX
1472capabilities easier than the traditional libcap library. It includes
1473utilities that can analyse all currently running applications and print out
1474any capabilities and whether or not it has an open ended bounding set. The
1475included utilities are designed to let admins and developers spot apps from
1476various ways that may be running with too much privilege.")
1477 ;; The library is lgpl2.1+, but also ships some utils which are gpl2+.
f61e0e79 1478 (license (list license:lgpl2.1+ license:gpl2+))))
d02f2cc4
TUBK		 1479
1480(define-public smartmontools
1481 (package
1482 (name "smartmontools")
bd2eedd1 1483 (version "6.6")
d02f2cc4
TUBK		 1484 (source (origin
1485 (method url-fetch)
1486 (uri (string-append
1487 "mirror://sourceforge/smartmontools/smartmontools/"
1488 version "/smartmontools-" version ".tar.gz"))
1489 (sha256
1490 (base32
bd2eedd1 1491 "0m1hllbb78rr6cxkbalmz1gqkl0psgq8rrmv4gwcmz34n07kvx2i"))))
d02f2cc4
TUBK		 1492 (build-system gnu-build-system)
1493 (inputs `(("libcap-ng" ,libcap-ng)))
51b6a1dd 1494 (home-page "https://www.smartmontools.org/")
d02f2cc4
TUBK		 1495 (synopsis "S.M.A.R.T. harddisk control and monitoring tools")
1496 (description
1497 "The smartmontools package contains utility programs to control and
1498monitor storage systems using the Self-Monitoring, Analysis and Reporting
c115b2db
TGR		 1499Technology System (@dfn{S.M.A.R.T.}) built into most modern ATA and SCSI hard
1500disks. In many cases, these utilities will provide advanced warning of disk
d02f2cc4 1501degradation and failure.")
f61e0e79 1502 (license license:gpl2+)))
6efd0823
RW		 1503
1504(define-public fdupes
1505 (package
1506 (name "fdupes")
47d7b303 1507 (version "1.6.1")
6efd0823
RW		 1508 (source
1509 (origin
1510 (method url-fetch)
1511 (uri (string-append
47d7b303 1512 "https://github.com/adrianlopezroche/fdupes/archive/v"
6efd0823 1513 version ".tar.gz"))
47d7b303 1514 (file-name (string-append name "-" version ".tar.gz"))
6efd0823
RW		 1515 (sha256
1516 (base32
47d7b303 1517 "1sj9pa40pbz6xdwbxfwhdhkvhdf1xc5gvggk9mdq26c41gdnyswx"))))
6efd0823
RW		 1518 (build-system gnu-build-system)
1519 (arguments
e192a230
TGR		 1520 '(#:phases (modify-phases %standard-phases
1521 (delete 'configure))
6efd0823 1522 #:tests? #f ; no 'check' target
47d7b303
TGR		 1523 #:make-flags (list "CC=gcc"
1524 (string-append "PREFIX="
6efd0823
RW		 1525 (assoc-ref %outputs "out")))))
1526 (home-page "https://github.com/adrianlopezroche/fdupes")
1527 (synopsis "Identify duplicate files")
1528 (description
1529 "fdupes is a program for identifying duplicate files residing within
1530specified directories.")
1531 (license license:expat)))
4ecfbda7
DT		 1532
1533(define-public graphios
1534 (package
1535 (name "graphios")
1536 (version "2.0.3")
1537 (source
1538 (origin
1539 (method url-fetch)
1540 (uri (string-append
1541 "https://pypi.python.org/packages/source/g/graphios/graphios-"
1542 version ".tar.gz"))
1543 (sha256
1544 (base32
1545 "1h87hvc315wg6lklbf4l7csd3n5pgljwrfli1p3nasdi0izgn66i"))))
1546 (build-system python-build-system)
1547 (arguments
1548 ;; Be warned: Building with Python 3 succeeds, but the build process
1549 ;; throws a syntax error that is ignored.
1550 `(#:python ,python-2
1551 #:phases
1552 (modify-phases %standard-phases
1553 (add-before 'build 'fix-setup.py
1554 (lambda* (#:key outputs #:allow-other-keys)
1555 ;; Fix hardcoded, unprefixed file names.
1556 (let ((out (assoc-ref outputs "out")))
1557 (substitute* '("setup.py")
1558 (("/etc") (string-append out "/etc"))
1559 (("/usr") out)
1560 (("distro_ver = .*") "distro_ver = ''"))
1561 #t))))))
4ecfbda7
DT		 1562 (home-page "https://github.com/shawn-sterling/graphios")
1563 (synopsis "Emit Nagios metrics to Graphite, Statsd, and Librato")
1564 (description
1565 "Graphios is a script to emit nagios perfdata to various upstream metrics
1566processing and time-series systems. It's currently compatible with Graphite,
1567Statsd, Librato and InfluxDB. Graphios can emit Nagios metrics to any number
1568of supported upstream metrics systems simultaneously.")
1569 (license license:gpl2+)))
8d801045
ED		 1570
1571(define-public ansible
1572 (package
1573 (name "ansible")
e22473ff 1574 (version "2.4.2.0")
8d801045
ED		 1575 (source
1576 (origin
1577 (method url-fetch)
697e86dd 1578 (uri (pypi-uri "ansible" version))
8d801045
ED		 1579 (sha256
1580 (base32
e22473ff 1581 "0n3n9py4s3aykiii31xq8g4wmd6693jvby0424pjrg0bna01apri"))
b7866613 1582 (patches (search-patches "ansible-wrap-program-hack.patch"))))
8d801045
ED		 1583 (build-system python-build-system)
1584 (native-inputs
09e3cf58
JL		 1585 `(("python2-bcrypt" ,python2-bcrypt)
1586 ("python2-pycrypto" ,python2-pycrypto)
1587 ("python2-pynacl" ,python2-pynacl)
8d801045
ED		 1588 ("python2-httplib2" ,python2-httplib2)
1589 ("python2-passlib" ,python2-passlib)
1590 ("python2-nose" ,python2-nose)
1591 ("python2-mock" ,python2-mock)
1592 ("python2-jinja2" ,python2-jinja2)
1593 ("python2-pyyaml" ,python2-pyyaml)
1594 ("python2-paramiko" ,python2-paramiko)))
1595 (inputs
1596 `(("python2-pycrypto" ,python2-pycrypto)
1597 ("python2-jinja2" ,python2-jinja2)
1598 ("python2-pyyaml" ,python2-pyyaml)
1599 ("python2-paramiko" ,python2-paramiko)))
1600 (arguments
1601 `(#:python ,python-2)) ; incompatible with Python 3
ff18d0f1 1602 (home-page "https://www.ansible.com/")
8d801045
ED		 1603 (synopsis "Radically simple IT automation")
1604 (description "Ansible is a radically simple IT automation system. It
e22473ff
TGR		 1605handles configuration management, application deployment, cloud provisioning,
1606ad hoc task execution, and multinode orchestration---including trivializing
1607things like zero-downtime rolling updates with load balancers.")
8d801045 1608 (license license:gpl3+)))
44157e9f
EB		 1609
1610(define-public cpulimit
1611 (package
1612 (name "cpulimit")
1613 (version "0.2")
1614 (source
1615 (origin
1616 (method url-fetch)
1617 (uri (string-append "https://github.com/opsengine/cpulimit/archive/v"
1618 version ".tar.gz"))
1619 (file-name (string-append name "-" version ".tar.gz"))
1620 (sha256
1621 (base32
1622 "1nn2w849xd5bw4y5sqnll29nxdwl5h0cv4smc7dwmpb9qnd2ycb4"))))
1623 (build-system gnu-build-system)
1624 (arguments
1625 `(#:phases (modify-phases %standard-phases
1626 (delete 'configure)
1627 (replace
1628 'build
1629 (lambda _
1630 (zero? (system* "make" "CC=gcc" "-Csrc"))))
1631 (replace
1632 'check
1633 (lambda _
1634 (zero? (system* "make" "CC=gcc" "-Ctests"))))
1635 (replace
1636 'install
1637 (lambda* (#:key outputs #:allow-other-keys)
1638 (let* ((out (assoc-ref outputs "out"))
1639 (bin (string-append out "/bin")))
1640 (install-file "src/cpulimit" bin)))))))
1641 (home-page "https://github.com/opsengine/cpulimit")
1642 (synopsis "Limit CPU usage")
1643 (description
1644 "Cpulimit limits the CPU usage of a process. It does not change the nice
1645value or other scheduling priority settings, but the real CPU usage, and is
1646able to adapt itself dynamically to the overall system load. Children
1647processes and threads of the specified process may optionally share the same
1648limits.")
1649 (license license:gpl2+)))
2328b47c
EB		 1650
1651(define-public autojump
1652 (package
1653 (name "autojump")
1d33b9ea 1654 (version "22.3.4")
2328b47c
EB		 1655 (source
1656 (origin
1657 (method url-fetch)
1658 (uri (string-append "https://github.com/wting/autojump/archive/"
1659 "release-v" version ".tar.gz"))
1660 (file-name (string-append name "-" version ".tar.gz"))
1661 (sha256
1662 (base32
1d33b9ea 1663 "113rcpr37ngf2xs8da41qdarq5qmj0dwx8ggqy3lhlb0kvqq7g9z"))))
2328b47c
EB		 1664 (build-system gnu-build-system)
1665 (native-inputs ;for tests
1666 `(("python-mock" ,python-mock)
1667 ("python-pytest" ,python-pytest)))
1668 (inputs
1669 `(("python" ,python-wrapper)))
1670 (arguments
1671 `(#:phases (modify-phases %standard-phases
1672 (delete 'configure)
1673 (delete 'build)
1674 (replace 'check
1675 (lambda _
1676 (zero?
0c4520d6 1677 (system* "python" "tests/unit/autojump_utils_test.py"))))
2328b47c
EB		 1678 (replace 'install
1679 ;; The install.py script doesn't allow system installation
1680 ;; into an arbitrary prefix, so do our own install.
1681 (lambda* (#:key outputs #:allow-other-keys)
1682 (let* ((out (assoc-ref outputs "out"))
1683 (bin (string-append out "/bin"))
1684 (share (string-append out "/share/autojump"))
1685 (py (string-append out "/lib/python"
1686 ,(version-major+minor
1687 (package-version python-wrapper))
1688 "/site-packages"))
1689 (man (string-append out "/share/man/man1")))
1690 (install-file "bin/autojump" bin)
1691 (for-each (λ (f) (install-file f py))
1692 (find-files "bin" "\\.py$"))
1693 (for-each (λ (f) (install-file f share))
1694 (find-files "bin" "autojump\\..*$"))
1695 (substitute* (string-append share "/autojump.sh")
1696 (("/usr/local") out))
1697 (install-file "docs/autojump.1" man)
1698 (wrap-program (string-append bin "/autojump")
1699 `("PYTHONPATH" ":" prefix (,py)))
1700 #t))))))
1701 (home-page "https://github.com/wting/autojump")
8f65585b 1702 (synopsis "Shell extension for file system navigation")
2328b47c 1703 (description
8f65585b 1704 "Autojump provides a faster way to navigate your file system, with a \"cd
2328b47c
EB		 1705command that learns\". It works by maintaining a database of the directories
1706you use the most from the command line and allows you to \"jump\" to
1707frequently used directories by typing only a small pattern.")
1708 (license license:gpl3+)))
765973cd 1709
1ca0ac1e
EB		 1710(define-public fasd
1711 (package
1712 (name "fasd")
1713 (version "1.0.1")
1714 (source (origin
1715 (method git-fetch)
1716 (uri (git-reference
1717 (url "https://github.com/clvv/fasd.git")
1718 (commit version)))
1719 (file-name (git-file-name name version))
1720 (sha256
1721 (base32
1722 "1awi71jdv3mhjrmar2d4z1i90kn7apd7aq1w31sh6w4yibz9kiyj"))))
1723 (build-system gnu-build-system)
1724 (arguments
1725 `(#:phases (modify-phases %standard-phases
1726 (delete 'configure)) ;no configuration
1727 #:tests? #f ;no tests
1728 #:make-flags (list (string-append "PREFIX=" %output))))
1729 (home-page "https://github.com/clvv/fasd")
1730 (synopsis "Quick access to files and directories for shells")
1731 (description
1732 "Fasd (pronounced similar to \"fast\") is a command-line productivity
1733booster. Fasd offers quick access to files and directories for POSIX shells.
1734It is inspired by tools like autojump, z, and v. Fasd keeps track of files
1735and directories you have accessed so that you can quickly reference them in
1736the command line.")
1737 (license license:x11)))
1738
765973cd
LF		 1739(define-public iftop
1740 (package
1741 (name "iftop")
1742 (version "1.0pre4")
1743 (source (origin
1744 (method url-fetch)
1745 (uri (string-append "http://www.ex-parrot.com/~pdw/iftop/download"
1746 "/iftop-" version ".tar.gz"))
1747 (sha256
1748 (base32
1749 "15sgkdyijb7vbxpxjavh5qm5nvyii3fqcg9mzvw7fx8s6zmfwczp"))))
1750 (build-system gnu-build-system)
1751 (inputs
1752 `(("libpcap" ,libpcap)
1753 ("ncurses" ,ncurses)))
1754 (synopsis "Monitor network usage")
1755 (description "Iftop does for network usage what @command{top} does
1756for CPU usage. It listens to network traffic on a named interface and
1757displays a table of current bandwidth usage by pairs of hosts.")
1758 (home-page "http://www.ex-parrot.com/~pdw/iftop/")
d4e21fbb 1759 (license license:gpl2+)))
f1957fc1
PP		 1760
1761(define-public munge
1762 (package
1763 (name "munge")
5578a9c6 1764 (version "0.5.13")
f1957fc1
PP		 1765 (source (origin
1766 (method url-fetch)
b52ae4de
EF		 1767 (uri (string-append "https://github.com/dun/munge/releases/"
1768 "download/munge-" version "/munge-"
1769 version ".tar.xz"))
f1957fc1
PP		 1770 (sha256
1771 (base32
5578a9c6 1772 "1nj486bbg1adfg298zck96vgx57kchcypc1zdz1n7w540vyksxcr"))))
f1957fc1
PP		 1773 (inputs
1774 `(("openssl" ,openssl)
1775 ("libgcrypt" ,libgcrypt)))
1776 (build-system gnu-build-system)
b52ae4de 1777 (home-page "https://dun.github.io/munge/")
f1957fc1
PP		 1778 (synopsis "Cluster computing authentication service")
1779 (description
1780 "Munge is an authentication service for creating and validating
1781credentials. It allows a process to authenticate the UID and GID of another
1782local or remote process within a group of hosts having common users and
1783groups. These hosts form a security realm that is defined by a shared
1784cryptographic key. Clients within this security realm can create and validate
1785credentials without the use of root privileges, reserved ports, or
1786platform-specific methods.")
1787 (license license:gpl3+)))
3d7a157c
RW		 1788
1789(define-public audit
1790 (package
1791 (name "audit")
1792 (version "2.4.5")
1793 (source (origin
1794 (method url-fetch)
1795 (uri (string-append "http://people.redhat.com/sgrubb/audit/"
1796 "audit-" version ".tar.gz"))
1797 (sha256
1798 (base32
1799 "1q1q51dvxscbi4kbakmd4bn0xrvwwaiwvaya79925cbrqwzxsg77"))))
1800 (build-system gnu-build-system)
1801 (home-page "http://people.redhat.com/sgrubb/audit/")
1802 (arguments
1803 `(#:configure-flags (list "--with-python=no")
1804 #:phases
1805 (modify-phases %standard-phases
1806 (add-after 'unpack 'fix-tests
1807 (lambda _
1808 ;; In the build environmnte /etc/passwd does not contain an entry
1809 ;; for root/0, so we have to patch the expected value.
1810 (substitute* "auparse/test/auparse_test.ref"
1811 (("=0 \\(root\\)") "=0 (unknown(0))"))
1812 #t)))))
1813 (inputs
1814 `(("openldap" ,openldap)
1bafad56 1815 ("gnutls" ,gnutls)
3d7a157c
RW		 1816 ("sasl" ,cyrus-sasl)))
1817 (synopsis "User-space component to the Linux auditing system")
1818 (description
1819 "auditd is the user-space component to the Linux auditing system, which
1820allows logging of system calls made by user-land processes. It's responsible
1821for writing audit records to the disk. Viewing the logs is done with the
1822@code{ausearch} or @code{aureport} utilities. Configuring the audit rules is
1823done with the @code{auditctl} utility.")
1824 (license license:gpl2+)))
d0457553
TUBK		 1825
1826(define-public nmap
1827 (package
1828 (name "nmap")
069d0b7f 1829 (version "7.70")
d0457553
TUBK		 1830 (source (origin
1831 (method url-fetch)
1832 (uri (string-append "https://nmap.org/dist/nmap-" version
1833 ".tar.bz2"))
1834 (sha256
1835 (base32
069d0b7f 1836 "063fg8adx23l4irrh5kn57hsmi1xvjkar4vm4k6g94ppan4hcyw4"))
d0457553
TUBK		 1837 (modules '((guix build utils)))
1838 (snippet
6cbee49d
MW		 1839 '(begin
1840 (for-each delete-file-recursively
1841 ;; Remove bundled lua, pcap, and pcre libraries.
1842 ;; FIXME: Remove bundled liblinear once packaged.
1843 '("liblua"
1844 "libpcap"
1845 "libpcre"
1846 ;; Remove pre-compiled binares.
1847 "mswin32"))
1848 #t))))
d0457553
TUBK		 1849 (build-system gnu-build-system)
1850 (inputs
1851 `(("openssl" ,openssl)
1852 ("libpcap" ,libpcap)
1853 ("pcre" ,pcre)
1854 ("lua" ,lua)
069d0b7f
MB		 1855 ("zlib" ,zlib) ;for NSE compression support
1856
d0457553
TUBK		 1857 ;; For 'ndiff'.
1858 ("python" ,python-2)))
1859
1860 ;; TODO Add zenmap output.
1861 (outputs '("out" "ndiff"))
1862 (arguments
1863 '(#:configure-flags '("--without-zenmap")
1864 #:phases
1865 (modify-phases %standard-phases
f4dc22bc
MB		 1866 (add-after 'configure 'patch-Makefile
1867 (lambda _
1868 (substitute* "Makefile"
1869 ;; Do not attempt to build lua.
1870 (("build-dnet build-lua") "build-dnet"))
1871 #t))
d0457553
TUBK		 1872 (replace 'install
1873 (lambda* (#:key outputs #:allow-other-keys)
1874 (define (make out . args)
1875 (unless (zero? (apply system* "make"
1876 (string-append "prefix=" out)
1877 args))
1878 (error "make failed")))
1879 (define (python-path dir)
1880 (string-append dir "/lib/python2.7/site-packages"))
1881 (let ((out (assoc-ref outputs "out"))
1882 (ndiff (assoc-ref outputs "ndiff")))
1883 (for-each mkdir-p (list out ndiff))
1884 (make out
1885 "install-nmap"
1886 "install-nse"
1887 "install-ncat"
1888 "install-nping")
1889 (make ndiff "install-ndiff")
1890 (wrap-program (string-append ndiff "/bin/ndiff")
1891 `("PYTHONPATH" prefix
1892 (,(python-path ndiff)))))))
1893 ;; These are the tests that do not require network access.
1894 (replace 'check
1895 (lambda _ (zero? (system* "make"
1896 "check-nse"
1897 "check-ndiff"
1898 "check-dns")))))
1899 ;; Nmap can't cope with out-of-source building.
1900 #:out-of-source? #f))
1901 (home-page "https://nmap.org/")
1902 (synopsis "Network discovery and security auditing tool")
1903 (description
1904 "Nmap (\"Network Mapper\") is a network discovery and security auditing
1905tool. It is also useful for tasks such as network inventory, managing service
1906upgrade schedules, and monitoring host or service uptime. It also provides an
1907advanced netcat implementation (ncat), a utility for comparing scan
1908results (ndiff), and a packet generation and response analysis tool (nping).")
1909 ;; This package uses nmap's bundled versions of libdnet and liblinear, which
1910 ;; both use a 3-clause BSD license.
1911 (license (list license:nmap license:bsd-3))))
1a0346f0
P		 1912
1913(define-public dstat
1914 (package
1915 (name "dstat")
1916 (version "0.7.3")
1917 (source (origin
1918 (method url-fetch)
1919 (uri (string-append
1920 "https://github.com/dagwieers/dstat/archive/"
1921 version ".tar.gz"))
1922 (file-name (string-append "dstat-" version ".tar.gz"))
1923 (sha256
1924 (base32
1925 "16286z3y2lc9nsq8njzjkv6k2vyxrj9xiixj1k3gnsbvhlhkirj6"))))
1926 (build-system gnu-build-system)
1927 (arguments
1928 `(#:tests? #f ;; no make check
1929 #:make-flags (let ((out (assoc-ref %outputs "out")))
1930 (list (string-append "DESTDIR=" out)
1931 "prefix=/"))
1932 ;; no configure script
dc1d3cde 1933 #:phases (modify-phases %standard-phases (delete 'configure))))
1a0346f0
P		 1934 (inputs `(("python-2" ,python-2)))
1935 (synopsis "Versatile resource statistics tool")
1936 (description "Dstat is a versatile replacement for @command{vmstat},
1937@command{iostat}, @command{netstat}, and @command{ifstat}. Dstat overcomes
1938some of their limitations and adds some extra features, more counters and
1939flexibility. Dstat is handy for monitoring systems during performance tuning
1940tests, benchmarks or troubleshooting.
1941
1942Dstat allows you to view all of your system resources in real-time, you can,
1943e.g., compare disk utilization in combination with interrupts from your IDE
1944controller, or compare the network bandwidth numbers directly with the disk
1945throughput (in the same interval).")
1946 (home-page "http://dag.wiee.rs/home-made/dstat/")
c59f62e9 1947 (license license:gpl2+)))
0405e5f4
EB		 1948
1949(define-public thefuck
1950 (package
1951 (name "thefuck")
e5ab03b5 1952 (version "3.27")
0405e5f4
EB		 1953 (source (origin
1954 (method url-fetch)
1955 (uri (string-append "https://github.com/nvbn/thefuck/archive/"
1956 version ".tar.gz"))
1957 (file-name (string-append name "-" version ".tar.gz"))
1958 (sha256
1959 (base32
e5ab03b5 1960 "0my32n2x8x0f0wr8ql7qgk9qhb6ibv5b1rqs5b2r4nadv0gpiv96"))
bf5b6fb2 1961 (patches (search-patches "thefuck-test-environ.patch"))))
0405e5f4 1962 (build-system python-build-system)
1c1b67a3 1963 (arguments
bf5b6fb2
EB		 1964 '(#:phases
1965 (modify-phases %standard-phases
1966 (delete 'check)
1967 (add-after 'install 'check
1968 (lambda* (#:key inputs outputs #:allow-other-keys)
1969 ;; Tests look for installed package
1970 (add-installed-pythonpath inputs outputs)
1971 ;; Some tests need write access to $HOME.
1972 (setenv "HOME" "/tmp")
2216b6f4
TGR		 1973 (invoke "py.test" "-v")
1974 #t)))))
1c1b67a3 1975 (propagated-inputs
0405e5f4
EB		 1976 `(("python-colorama" ,python-colorama)
1977 ("python-decorator" ,python-decorator)
1978 ("python-psutil" ,python-psutil)
2468ca04 1979 ("python-pyte" ,python-pyte)
0405e5f4 1980 ("python-six" ,python-six)))
2d1ac1d1 1981 (native-inputs
1c1b67a3
MB		 1982 `(("python-mock" ,python-mock)
1983 ("python-pytest" ,python-pytest)
2468ca04 1984 ("python-pytest-mock" ,python-pytest-mock)))
0405e5f4
EB		 1985 (home-page "https://github.com/nvbn/thefuck")
1986 (synopsis "Correct mistyped console command")
1987 (description
1988 "The Fuck tries to match a rule for a previous, mistyped command, creates
1989a new command using the matched rule, and runs it.")
1990 (license license:x11)))
61402398
JF		 1991
1992(define-public di
1993 (package
1994 (name "di")
1b0be8c5 1995 (version "4.46")
61402398
JF		 1996 (source
1997 (origin
1998 (method url-fetch)
1999 (uri (string-append "https://gentoo.com/di/di-" version ".tar.gz"))
2000 (sha256
1b0be8c5 2001 (base32 "0cskiqywiqkw44zdg4q78bjns6jjp1dz5lzdxrhpnpldc6075irw"))))
61402398
JF		 2002 (build-system gnu-build-system)
2003 (arguments
2004 `(#:tests? #f ; Obscure test failures.
2005 #:phases
2006 (modify-phases %standard-phases
2007 (delete 'configure)
2008 (add-before 'build 'setup-environment
2009 (lambda* (#:key outputs #:allow-other-keys)
2010 (setenv "CC" "gcc")
2011 (setenv "prefix" (assoc-ref outputs "out"))
2012 #t)))
2013 #:make-flags (list "--environment-overrides")))
2014 (home-page "https://www.gentoo.com/di/")
2015 (synopsis "Advanced df like disk information utility")
2016 (description
26c6de8b
TGR		 2017 "'di' is a disk information utility, displaying everything that your
2018@code{df} command does and more. It features the ability to display your disk
2019usage in whatever format you prefer. It is designed to be highly portable and
2020produce uniform output across heterogeneous networks.")
61402398 2021 (license license:zlib)))
5ec8b02d 2022
2023(define-public cbatticon
2024 (package
2025 (name "cbatticon")
84f95d55 2026 (version "1.6.8")
5ec8b02d 2027 (source (origin
2028 (method url-fetch)
2029 (uri (string-append "https://github.com/valr/"
2030 name "/archive/" version ".tar.gz"))
2031 (sha256
2032 (base32
84f95d55 2033 "185lzvaijvyq7y8r7dvizhri0rf9lpc1anfgbbn4lznr1fr3z7rn"))
5ec8b02d 2034 (file-name (string-append name "-" version ".tar.gz"))))
2035 (build-system gnu-build-system)
2036 (arguments
2037 `(#:tests? #f ; no tests
2038 #:make-flags
2039 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2040 "CC=gcc")
2041 #:phases
2042 (modify-phases %standard-phases
2043 (delete 'configure)))) ; no configure script
2044 (inputs
2045 `(("gtk+" ,gtk+)
b94a6ca0 2046 ("gettext" ,gettext-minimal)
5ec8b02d 2047 ("libnotify" ,libnotify)))
2048 (native-inputs
2049 `(("pkg-config" ,pkg-config)))
2050 (synopsis "Lightweight battery icon for the system tray")
2051 (description "cbatticon is a lightweight battery icon that displays
2052the status of your battery in the system tray.")
2053 (home-page "https://github.com/valr/cbatticon")
2054 (license license:gpl2+)))
c08533b2 2055
2056(define-public interrobang
2057 (let ((revision "1")
2058 (commit "896543735e1c99144765fdbd7b6e6b5afbd8b881"))
2059 (package
2060 (name "interrobang")
2061 (version (string-append "0.0.0-" revision "." (string-take commit 7)))
2062 (source (origin
2063 (method git-fetch)
2064 (uri (git-reference
5f13bf09 2065 (url "https://github.com/TrilbyWhite/interrobang")
c08533b2 2066 (commit commit)))
2067 (file-name (string-append name "-" version))
2068 (sha256
2069 (base32
2070 "1n13m70p1hfba5dy3i8hfclbr6k9q3d9dai3dg4jvhdhmxcpjzdf"))))
2071 (build-system gnu-build-system)
2072 (arguments
2073 `(#:tests? #f ; no tests
2074 #:phases
2075 (modify-phases %standard-phases
2076 (delete 'configure)) ; no configure script
2077 #:make-flags (list (string-append "PREFIX="
2078 (assoc-ref %outputs "out")))))
2079 (inputs
2080 `(("libx11" ,libx11)))
2081 (native-inputs
2082 `(("pkg-config" ,pkg-config)))
2083 (synopsis "Scriptable launcher menu")
2084 (description "Interrobang is a scriptable launcher menu with a customizable
2085shortcut syntax and completion options.")
2086 (home-page "https://github.com/TrilbyWhite/interrobang")
2087 (license license:gpl3+))))
94c5dc8c 2088
94c5dc8c
JD		 2089(define-public pam-krb5
2090 (package
2091 (name "pam-krb5")
0e6c242b 2092 (version "4.8")
94c5dc8c
JD		 2093 (source (origin
2094 (method url-fetch)
2095 (uri (string-append
2096 "https://archives.eyrie.org/software/kerberos/" name "-"
2097 version ".tar.xz"))
2098 (sha256
2099 (base32
0e6c242b 2100 "1qjp8i1s9bz7g6kiqrkzzkxn5pfspa4sy53b6z40fqmdf9przdfb"))))
94c5dc8c
JD		 2101 (build-system gnu-build-system)
2102 (arguments
2103 `(#:phases
2104 (modify-phases %standard-phases
2105 (add-before 'configure 'disable-tests
2106 (lambda _
2107 ;; The build container seems to interfere with some tests.
2108 (substitute* "tests/TESTS"
2109 (("module/basic\n") ""))
2110 (substitute* "tests/TESTS"
2111 (("pam-util/vector\n") ""))
2112 #t)))))
2113 (inputs
2114 `(("linux-pam" ,linux-pam)
2115 ("mit-krb5" ,mit-krb5)))
2116 (native-inputs
2117 `(("perl" ,perl)
2118 ("perl-test-pod" ,perl-test-pod))) ; required for tests
2119 (synopsis "Kerberos PAM module")
2120 (description
2121 "Pam-krb5 is a Kerberos PAM module for either MIT Kerberos or Heimdal.
2122It supports ticket refreshing by screen savers, configurable
2123authorization handling, authentication of non-local accounts for network
2124services, password changing, and password expiration, as well as all the
2125standard expected PAM features. It works correctly with OpenSSH, even
45298300
TGR		 2126with @code{ChallengeResponseAuthentication} and @code{PrivilegeSeparation}
2127enabled, and supports extensive configuration either by PAM options or in
94c5dc8c
JD		 2128krb5.conf or both. PKINIT is supported with recent versions of both MIT
2129Kerberos and Heimdal and FAST is supported with recent MIT Kerberos.")
2130 (home-page "http://www.eyrie.org/~eagle/software/pam-krb5")
2131 ;; Dual licenced under a homebrew non-copyleft OR GPL (any version)
2132 ;; However, the tarball does not contain a copy of the GPL, so unless
2133 ;; we put one in, we cannot distribute it under GPL without violating
2134 ;; clause requiring us to give all recipients a copy.
2135 (license license:gpl1+)))
2136
b04ca7a1
DM		 2137(define-public sunxi-tools
2138 (package
2139 (name "sunxi-tools")
0c6fc4b7 2140 (version "1.4.2")
b04ca7a1
DM		 2141 (source
2142 (origin
2143 (method url-fetch)
2144 (uri (string-append "https://github.com/linux-sunxi/"
2145 "sunxi-tools/archive/v" version ".tar.gz"))
2146 (sha256
0c6fc4b7 2147 (base32 "08iqwj95qw2s7ilhrdi2lkbc8dx64zk5lzz1qk587jr0lla81x41"))
b04ca7a1
DM		 2148 (modules '((guix build utils)))
2149 (snippet
2150 ;; Remove binaries contained in the tarball which are only for the
2151 ;; target and can be regenerated anyway.
6cbee49d
MW		 2152 '(begin
2153 (delete-file-recursively "bin")
2154 #t))
b04ca7a1
DM		 2155 (file-name (string-append name "-" version ".tar.gz"))))
2156 (native-inputs
faa6bdf8
DM		 2157 `(("pkg-config" ,pkg-config)
2158 ("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf"
2159 #:xbinutils (cross-binutils "arm-linux-gnueabihf")
2160 #:libc (cross-libc "arm-linux-gnueabihf")))
e2d0cf03
DM		 2161 ("cross-libc" ,(cross-libc "arm-linux-gnueabihf")) ; header files
2162 ("cross-libc-static" ,(cross-libc "arm-linux-gnueabihf") "static")))
b04ca7a1
DM		 2163 (inputs
2164 `(("libusb" ,libusb)))
2165 (build-system gnu-build-system)
2166 (arguments
faa6bdf8 2167 `(#:tests? #f ; no tests exist
b04ca7a1
DM		 2168 #:make-flags (list (string-append "PREFIX="
2169 (assoc-ref %outputs "out"))
faa6bdf8
DM		 2170 (string-append "CROSS_COMPILE="
2171 "arm-linux-gnueabihf-")
2172 "CC=gcc")
b04ca7a1
DM		 2173 #:phases
2174 (modify-phases %standard-phases
b054b26a 2175 (delete 'configure)
faa6bdf8
DM		 2176 (add-before 'build 'set-environment-up
2177 (lambda* (#:key make-flags #:allow-other-keys)
2178 (define (cross? x)
2179 (string-contains x "cross-arm-linux"))
e7988175
DM		 2180 (define (filter-environment! filter-predicate
2181 environment-variable-names)
2182 (for-each
2183 (lambda (env-name)
2184 (let* ((env-value (getenv env-name))
2185 (search-path (search-path-as-string->list env-value))
2186 (new-search-path (filter filter-predicate
2187 search-path))
2188 (new-env-value (list->search-path-as-string
2189 new-search-path ":")))
2190 (setenv env-name new-env-value)))
2191 environment-variable-names))
faa6bdf8
DM		 2192 (setenv "CROSS_C_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))
2193 (setenv "CROSS_CPLUS_INCLUDE_PATH" (getenv "CPLUS_INCLUDE_PATH"))
2194 (setenv "CROSS_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
e7988175
DM		 2195 (filter-environment! cross?
2196 '("CROSS_C_INCLUDE_PATH" "CROSS_CPLUS_INCLUDE_PATH"
2197 "CROSS_LIBRARY_PATH"))
2198 (filter-environment! (lambda (e) (not (cross? e)))
2199 '("C_INCLUDE_PATH" "CPLUS_INCLUDE_PATH"
2200 "LIBRARY_PATH"))
faa6bdf8
DM		 2201 #t))
2202 (replace 'build
2203 (lambda* (#:key make-flags #:allow-other-keys)
2204 (zero? (apply system* "make" "tools" "misc" make-flags))))
2205 (add-after 'build 'build-armhf
2206 (lambda* (#:key make-flags #:allow-other-keys)
e7988175 2207 (setenv "LIBRARY_PATH" #f)
faa6bdf8 2208 (zero? (apply system* "make" "target-tools" make-flags))))
b054b26a
DM		 2209 (replace 'install
2210 (lambda* (#:key make-flags #:allow-other-keys)
2211 (zero? (apply system* "make" "install-all" "install-misc"
2212 make-flags)))))))
b04ca7a1
DM		 2213 (home-page "https://github.com/linux-sunxi/sunxi-tools")
2214 (synopsis "Hardware management tools for Allwinner computers")
2215 (description "This package contains tools for Allwinner devices:
2216@enumerate
2217@item @command{sunxi-fexc}, @command{bin2fex}, @command{fex2bin}: Compile
2218a textual description of a board (.fex) to a binary representation (.bin).
2219@item @command{sunxi-fel}: Puts an Allwinner device into FEL mode which
2220makes it register as a special USB device (rather than USB host).
2221You can then connect it to another computer and flash it from there.
2222@item @command{sunxi-nand-part}: Partitions NAND flash.
2223@item @command{sunxi-bootinfo}: Reads out boot0 and boot1 (Allwinner
2224bootloader) parameters.
2225@item @command{sunxi-pio}: Sets GPIO parameters and oscillates a GPIO
2226in order to be able to find it.
2227@item @command{sunxi-meminfo}: Prints memory bus settings.
b054b26a 2228@item @command{sunxi-nand-image-builder}: Prepares raw NAND images.
b04ca7a1
DM		 2229@end enumerate")
2230 (license license:gpl2+)))
a054777e 2231
2232(define-public sedsed
2233 (package
2234 (name "sedsed")
2235 (version "1.0")
2236 (source
2237 (origin
2238 (method url-fetch)
2239 (uri (string-append "https://github.com/aureliojargas/sedsed/"
2240 "archive/v" version ".tar.gz"))
2241 (file-name (string-append name "-" version ".tar.gz"))
2242 (sha256
2243 (base32
2244 "0139jkqvm8ipiwfj7k69ry2f9b1ffgpk79arpz4r7w9kf6h23bnh"))))
2245 (build-system python-build-system)
2246 (arguments
2247 `(#:tests? #f ; No tests.
2248 #:python ,python-2
2249 #:phases
2250 (modify-phases %standard-phases
2251 (add-after 'unpack 'patch-sed-in
2252 (lambda _
2253 (substitute* "sedsed.py"
2254 (("sedbin = 'sed'")
2255 (string-append "sedbin = '" (which "sed") "'")))
2256 #t))
2257 (delete 'build)
2258 (replace 'install
2259 (lambda* (#:key outputs #:allow-other-keys)
2260 (let* ((out (assoc-ref outputs "out"))
2261 (bin (string-append out "/bin")))
2262 ;; Just one file to copy around
2263 (install-file "sedsed.py" bin)
2264 #t)))
2265 (add-after 'install 'symlink
2266 ;; Create 'sedsed' symlink to "sedsed.py".
2267 (lambda* (#:key outputs #:allow-other-keys)
2268 (let* ((out (assoc-ref outputs "out"))
2269 (bin (string-append out "/bin"))
2270 (sed (string-append bin "/sedsed"))
2271 (sedpy (string-append bin "/sedsed.py")))
2272 (symlink sedpy sed)
2273 #t))))))
2274 (home-page "http://aurelio.net/projects/sedsed")
2275 (synopsis "Sed sed scripts")
2276 (description
2277 "@code{sedsed} can debug, indent, tokenize and HTMLize your sed(1) script.
2278
2279In debug mode it reads your script and add extra commands to it. When
2280executed you can see the data flow between the commands, revealing all the
2281magic sed does on its internal buffers.
2282
2283In indent mode your script is reformatted with standard spacing.
2284
2285In tokenize mode you can see the elements of every command you use.
2286
2287In HTMLize mode your script is converted to a beautiful colored HTML file,
2288with all the commands and parameters identified for your viewing pleasure.
2289
2290With sedsed you can master any sed script. No more secrets, no more hidden
2291buffers.")
2292 (license license:expat)))
d10fa5c7
RW		 2293
2294(define-public intel-gpu-tools
2295 (package
2296 (name "intel-gpu-tools")
fdae9718 2297 (version "1.22")
d10fa5c7
RW		 2298 (source (origin
2299 (method url-fetch)
2300 (uri (string-append "https://cgit.freedesktop.org/xorg/app/"
2301 "intel-gpu-tools/snapshot/"
2302 "intel-gpu-tools-" version ".tar.gz"))
2303 (sha256
2304 (base32
fdae9718 2305 "1jx5w5fr6jp67rcrlp5v79cn8kp9n0wgd5pbfgzamlah5cx6j3yd"))))
d10fa5c7
RW		 2306 (build-system gnu-build-system)
2307 (arguments
2308 `(#:tests? #f ; many of the tests try to load kernel modules
2309 #:phases
2310 (modify-phases %standard-phases
2311 (add-after 'unpack 'autogen
2312 (lambda _
8e7e6170 2313 ;; Don't run configure in this phase.
d10fa5c7 2314 (setenv "NOCONFIGURE" "1")
8e7e6170 2315 (invoke "sh" "autogen.sh"))))))
d10fa5c7 2316 (inputs
fdae9718
TGR		 2317 `(("eudev" ,eudev)
2318 ("util-macros" ,util-macros)
d10fa5c7
RW		 2319 ("libdrm" ,libdrm)
2320 ("libpciaccess" ,libpciaccess)
2321 ("kmod" ,kmod)
2322 ("procps" ,procps)
2323 ("cairo" ,cairo)
2324 ("libunwind" ,libunwind)
2325 ("libxrandr" ,libxrandr)
2326 ("glib" ,glib)))
2327 (native-inputs
2328 `(("autoconf" ,autoconf)
2329 ("automake" ,automake)
2330 ("libtool" ,libtool)
2331 ("pkg-config" ,pkg-config)))
2332 (home-page "https://cgit.freedesktop.org/xorg/app/intel-gpu-tools/")
2333 (synopsis "Tools for development and testing of the Intel DRM driver")
2334 (description "Intel GPU Tools is a collection of tools for development and
2335testing of the Intel DRM driver. There are many macro-level test suites that
2336get used against the driver, including xtest, rendercheck, piglit, and
2337oglconform, but failures from those can be difficult to track down to kernel
2338changes, and many require complicated build procedures or specific testing
2339environments to get useful results. Therefore, Intel GPU Tools includes
2340low-level tools and tests specifically for development and testing of the
2341Intel DRM Driver.")
9f375a4c 2342 (supported-systems '("i686-linux" "x86_64-linux"))
d10fa5c7 2343 (license license:expat)))
c1aba1a7 2344
b611f9c2
BS		 2345(define-public fabric
2346 (package
2347 (name "fabric")
a62d455d 2348 (version "1.14.0")
b611f9c2
BS		 2349 (source
2350 (origin
2351 (method url-fetch)
2352 (uri (pypi-uri "Fabric" version))
2353 (sha256
2354 (base32
a62d455d 2355 "13r0b0hllgf8j9rh6x1knmbgvingbdmx046aazv6vck2ll120mw1"))))
b611f9c2
BS		 2356 (build-system python-build-system)
2357 (arguments
e68e4a90
BS		 2358 `(#:python ,python-2 ; Python 2 only
2359 #:phases
2360 (modify-phases %standard-phases
2361 (replace 'check
2362 (lambda _
2363 (invoke
2364 "nosetests" "-v" "tests/"
2365 ;; This test hangs indefinitely when run on a single core VM
2366 ;; (see GNU bug #26647 and Debian bug #850230).
2367 "--exclude=test_nested_execution_with_explicit_ports"
2368 ;; This test randomly fails in certain environments causing too
2369 ;; much noise to be useful (see Debian bug #854686).
2370 "--exclude=test_should_use_sentinel_for_tasks_that_errored"))))))
1b5b24c9 2371 (native-inputs
e68e4a90
BS		 2372 `(("python2-fudge" ,python2-fudge) ; Requires < 1.0
2373 ("python2-jinja2" ,python2-jinja2) ; Requires < 3.0
2374 ("python2-nose" ,python2-nose) ; Requires < 2.0
a62d455d
RJ		 2375 ("python2-pynacl" ,python2-pynacl)
2376 ("python2-bcrypt" ,python2-bcrypt)))
b611f9c2 2377 (propagated-inputs
b611f9c2
BS		 2378 `(("python2-paramiko" ,python2-paramiko)))
2379 (home-page "http://fabfile.org")
2380 (synopsis "Simple Pythonic remote execution and deployment tool")
2381 (description
2382 "Fabric is designed to upload files and run shell commands on a number of
2383servers in parallel or serially. These commands are grouped in tasks (which
2384are regular Python functions) and specified in a @dfn{fabfile}.
2385
2386It is similar to Capistrano, except it's implemented in Python and doesn't
2387expect you to be deploying Rails applications. Fabric is a simple, Pythonic
2388tool for remote execution and deployment.")
2389 (license license:bsd-2)))
6e75ea48
EJ		 2390
2391(define-public neofetch
2392 (package
2393 (name "neofetch")
abde01f2 2394 (version "4.0.2")
6e75ea48
EJ		 2395 (source (origin
2396 (method url-fetch)
2397 (uri (string-append "https://github.com/dylanaraps/neofetch/"
2398 "archive/" version ".tar.gz"))
2399 (file-name (string-append name "-" version ".tar.gz"))
2400 (sha256
2401 (base32
abde01f2 2402 "014hlbzs6j4b669b64hnq8vc5knwiv9ncw9m9d193p9jsybxpm1w"))))
6e75ea48
EJ		 2403 (build-system gnu-build-system)
2404 (arguments
378140e5 2405 `(#:tests? #f ; there are no tests
6e75ea48
EJ		 2406 #:make-flags
2407 (list (string-append "PREFIX=" %output))
2408 #:phases
2409 (modify-phases %standard-phases
2410 (add-after 'unpack 'patch-target-directories
2411 (lambda* (#:key outputs #:allow-other-keys)
2412 (let ((out (assoc-ref outputs "out")))
2413 (substitute* "Makefile"
2414 (("\\$\\(DESTDIR\\)/etc/")
2415 "$(PREFIX)/etc/"))
2416 (substitute* "neofetch"
2417 (("\"/etc/neofetch")
2418 (string-append "\"" out "/etc/neofetch"))
2419 (("\"/usr/share/neofetch")
af79852c 2420 (string-append "\"" out "/share/neofetch"))))
6e75ea48 2421 #t))
378140e5
TGR		 2422 (delete 'configure) ; no configure script
2423 (replace 'install
2424 (lambda* (#:key make-flags outputs #:allow-other-keys)
2425 (let* ((out (assoc-ref outputs "out"))
2426 (doc (string-append out "/share/doc/" ,name "-" ,version))
2427 (etc (string-append doc "/examples/etc")))
2428 (zero? (apply system* `("make" ,@make-flags
2429 ,(string-append "SYSCONFDIR=" etc)
2430 "install")))))))))
6e75ea48
EJ		 2431 (home-page "https://github.com/dylanaraps/neofetch")
2432 (synopsis "System info script")
2433 (description "Neofetch is a CLI system information tool written in Bash.
2434Neofetch displays information about your system next to an image, your OS
2435logo, or any ASCII file of your choice. The main purpose of Neofetch is to be
2436used in screenshots to show other users what operating system or distribution
2437you are running, what theme or icon set you are using, etc.")
2438 (license license:expat)))
a76ca052
EJ		 2439
2440(define-public nnn
2441 (package
2442 (name "nnn")
5e3175f7 2443 (version "1.7")
a76ca052
EJ		 2444 (source (origin
2445 (method url-fetch)
2446 (uri (string-append "https://github.com/jarun/nnn/"
2447 "archive/v" version ".tar.gz"))
2448 (file-name (string-append name "-" version ".tar.gz"))
2449 (sha256
2450 (base32
5e3175f7 2451 "0z3lqbfx3y1caxvn7yq90b7whwyq2y32zf8kyd976ilbxpxnxqpv"))))
a76ca052
EJ		 2452 (build-system gnu-build-system)
2453 (inputs `(("ncurses" ,ncurses)
2454 ("readline" ,readline)))
2455 (arguments
2456 '(#:tests? #f ; no tests
2457 #:phases
2458 ;; We do not provide `ncurses.h' within an `ncursesw'
2459 ;; sub-directory, so patch the source accordingly. See
2460 ;; <http://bugs.gnu.org/19018>.
2461 ;; Thanks to gtypist maintainer.
2462 (modify-phases %standard-phases
2463 (add-after 'unpack 'patch-curses-lib
2464 (lambda* (#:key outputs #:allow-other-keys)
2465 (let ((out (assoc-ref outputs "out")))
2466 (substitute* "Makefile"
2467 (("-lncursesw")
2468 "-lncurses"))
2469 (substitute* "nnn.c"
2470 (("ncursesw\\/curses.h")
2471 "ncurses.h")))
2472 #t))
2473 (delete 'configure))
2474 #:make-flags
2475 (list
2476 (string-append "PREFIX="
2477 (assoc-ref %outputs "out"))
2478 (string-append "-Wl,-rpath="
2479 %output "/lib")
2480 "CC=gcc")))
2481 (home-page "https://github.com/jarun/nnn")
2482 (synopsis "Terminal file browser")
2483 (description "@command{nnn} is a fork of @command{noice}, a blazing-fast
2484lightweight terminal file browser with easy keyboard shortcuts for
2485navigation, opening files and running tasks. There is no config file and
2486mime associations are hard-coded. The incredible user-friendliness and speed
2487make it a perfect utility on modern distros.")
2488 (license license:bsd-2)))
58989684
CAW		 2489
2490(define-public thermald
2491 (package
2492 (name "thermald")
b6315bc0 2493 (version "1.7.2")
58989684
CAW		 2494 (source
2495 (origin
2496 (method url-fetch)
2497 (uri (string-append "https://github.com/01org/thermal_daemon/archive/v"
2498 version ".tar.gz"))
1b6d3b7a 2499 (file-name (string-append name "-" version ".tar.gz"))
58989684 2500 (sha256 (base32
b6315bc0 2501 "15a6vb67y5wsmf0irrq7sxam18yqpz64130k83ryf24mp40h661b"))))
58989684
CAW		 2502 (build-system gnu-build-system)
2503 (arguments
b6315bc0
TGR		 2504 `(#:phases
2505 (modify-phases %standard-phases
2506 (add-after 'unpack 'bootstrap
2507 (lambda _
2508 (invoke "sh" "autogen.sh")
2509 #t)))
58989684
CAW		 2510 #:configure-flags
2511 (let ((out (assoc-ref %outputs "out")))
2512 (list (string-append "--sysconfdir="
2513 out "/etc")
2514 (string-append "--with-udev-dir="
2515 out "/lib/udev")
2516 (string-append "--with-dbus-sys-dir="
2517 out "/etc/dbus-1/system.d")
2518 "--localstatedir=/var"))))
2519 (native-inputs
2520 `(("autoconf" ,autoconf)
2521 ("automake" ,automake)
2522 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
2523 ("pkg-config" ,pkg-config)))
2524 (inputs
2525 `(("dbus-glib" ,dbus-glib)
2526 ("libxml2" ,libxml2)))
2527 (home-page "https://01.org/linux-thermal-daemon/")
2528 (synopsis "CPU scaling for thermal management")
2529 (description "The Linux Thermal Daemon helps monitor and control temperature
2530on systems running the Linux kernel.")
b6315bc0 2531 ;; arm and aarch64 don't have cpuid.h.
86ee7625 2532 (supported-systems '("i686-linux" "x86_64-linux"))
58989684 2533 (license license:gpl2+)))
d7c64ad5
LF		 2534
2535(define-public masscan
2536 (package
2537 (name "masscan")
b4bf9516 2538 (version "1.0.5")
d7c64ad5
LF		 2539 (source (origin
2540 (method url-fetch)
2541 (uri (string-append "https://github.com/robertdavidgraham/masscan"
2542 "/archive/" version ".tar.gz"))
7fc94427 2543 (file-name (string-append name "-" version ".tar.gz"))
d7c64ad5
LF		 2544 (sha256
2545 (base32
b4bf9516 2546 "0wxddsgyx27z45906icdhdbfsvfj8ij805208qpqjx46i0lnjs50"))))
d7c64ad5
LF		 2547 (build-system gnu-build-system)
2548 (inputs
2549 `(("libpcap" ,libpcap)))
2550 (arguments
2551 '(#:test-target "regress"
b4bf9516
TGR		 2552 #:make-flags
2553 (list "CC=gcc"
2554 (string-append "PREFIX=" (assoc-ref %outputs "out")))
d7c64ad5
LF		 2555 #:phases
2556 (modify-phases %standard-phases
b4bf9516 2557 (delete 'configure) ; no ./configure script
d7c64ad5
LF		 2558 (add-after 'unpack 'patch-path
2559 (lambda* (#:key outputs inputs #:allow-other-keys)
2560 (let* ((out (assoc-ref outputs "out"))
2561 (pcap (assoc-ref inputs "libpcap")))
2562 (substitute* "src/rawsock-pcap.c"
2563 (("libpcap.so") (string-append pcap "/lib/libpcap.so")))
2564 #t))))))
2565 (synopsis "TCP port scanner")
2566 (description "MASSCAN is an asynchronous TCP port scanner. It can detect
2567open ports, and also complete the TCP connection and interact with the remote
2568application, collecting the information received.")
2569 (home-page "https://github.com/robertdavidgraham/masscan")
b4bf9516
TGR		 2570 ;; 'src/siphash24.c' is the SipHash reference implementation, which
2571 ;; bears a CC0 Public Domain Dedication.
d7c64ad5 2572 (license license:agpl3+)))
82d57f12
TGR		 2573
2574(define-public hungrycat
2575 (package
2576 (name "hungrycat")
2577 (version "0.4.1")
2578 (source (origin
2579 (method url-fetch)
2580 (uri (string-append "https://github.com/jwilk/hungrycat/"
2581 "releases/download/" version "/"
2582 name "-" version ".tar.gz"))
2583 (sha256
2584 (base32
2585 "03fc1zsrf99lvxa7b4ps6pbi43304wbxh1f6ci4q0vkal370yfwh"))))
2586 (build-system gnu-build-system)
2587 (native-inputs
2588 ;; For tests.
2589 `(("python" ,python-wrapper)
2590 ("python-nose" ,python-nose)))
2591 (arguments
2592 `(#:test-target "test"))
2593 (synopsis "A single tool that combines @command{cat} & @command{rm}")
2594 (description
2595 "hungrycat prints the contents of a file to standard output, while
2596simultaneously freeing the disk space it occupied. It is useful if you need
2597to process a large file, don't have enough space to store both the input and
2598output files, and don't need the input file afterwards.
2599While similar in principle to running @command{cat} immediately followed by
2600@command{rm}, @command{hungrycat} actually frees blocks as soon as they are
2601printed instead of after the entire file has been read, which is often too
2602late.")
2603 (home-page "https://jwilk.net/software/hungrycat")
2604 (license license:expat)))
3ebf2c29
PAR		 2605
2606(define-public launchmon
2607 (package
2608 (name "launchmon")
2609 (version "1.0.2")
2610 (source (origin
2611 (method url-fetch)
2612 (uri (string-append
2613 "https://github.com/LLNL/LaunchMON/releases/download/v"
2614 version "/" name "-v" version ".tar.gz"))
2615 (sha256
2616 (base32
2617 "0fm3nd9mydm9v2bf7bh01dbgrfnpwkapxa3dsvy3x1z0rz61qc0x"))))
2618 (build-system gnu-build-system)
2619 (inputs
2620 `(("mpi" ,openmpi)
2621 ("munge" ,munge)
2622 ("boost" ,boost)
2623 ("libelf" ,libelf)
2624 ("libgcrypt" ,libgcrypt)
2625 ("libgpg-error" ,libgpg-error)))
2626 (synopsis "Infrastructue for large scale tool daemon launching")
2627 (description
2628 "LaunchMON is a software infrastructure that enables HPC run-time
2629tools to co-locate tool daemons with a parallel job. Its API allows a
2630tool to identify all the remote processes of a job and to scalably
2631launch daemons into the relevant nodes.")
2632 (home-page "https://github.com/LLNL/LaunchMON")
2633 (supported-systems '("i686-linux" "x86_64-linux"))
2634 (license license:lgpl2.1)))
541dac8a
PAR		 2635
2636(define-public spindle
2637 (package
2638 (name "spindle")
2639 (version "0.10")
2640 (source (origin
2641 ;; We use git checkout to avoid github auto-generated tarballs
2642 (method git-fetch)
2643 (uri (git-reference
2644 (url "https://github.com/hpc/Spindle.git")
2645 (commit (string-append "v" version))))
2646 (file-name (git-file-name name version))
2647 (sha256
2648 (base32
2649 "15n3ay0qq81r5v7fif61q1vdjcq44pp2nynkh3fvbzc9fj3c39wd"))))
2650 (build-system gnu-build-system)
2651 (arguments '(#:configure-flags '("--enable-sec-launchmon"
2652 "--enable-sec-munge"
2653 "--enable-sec-none")))
2654 (inputs
2655 `(("mpi" ,openmpi)
2656 ("munge" ,munge)
2657 ("launchmon" ,launchmon)
2658 ("libgcrypt" ,libgcrypt)))
2659 (synopsis "Scalable library loading in HPC environments")
2660 (description
2661 "Spindle is a tool for improving the performance of dynamic library and
2662Python loading in HPC environments.")
2663 (home-page "https://github.com/hpc/Spindle")
785f40df
EF		 2664 ;; This package supports x86_64 and PowerPC64
2665 (supported-systems '("x86_64-linux"))
541dac8a 2666 (license license:lgpl2.1)))
bbc94ed0
PN		 2667
2668(define-public inxi-minimal
2669 (let ((real-name "inxi"))
2670 (package
2671 (name "inxi-minimal")
d4cf0382 2672 (version "3.0.12-1")
bbc94ed0
PN		 2673 (source
2674 (origin
b740a305
TGR		 2675 (method git-fetch)
2676 (uri (git-reference
2677 (url "https://github.com/smxi/inxi")
2678 (commit version)))
bbc94ed0
PN		 2679 (sha256
2680 (base32
d4cf0382 2681 "1a2sjz90gzzvhp63x89hs0a424rkd13qrff2njqmjxp322zyp527"))))
bbc94ed0
PN		 2682 (build-system trivial-build-system)
2683 (inputs
2684 `(("bash" ,bash)
2685 ("perl" ,perl)))
2686 (native-inputs
b740a305 2687 `(("gzip" ,gzip)))
bbc94ed0
PN		 2688 (arguments
2689 `(#:modules
2690 ((guix build utils)
2691 (ice-9 match)
2692 (srfi srfi-26))
2693 #:builder
2694 (begin
2695 (use-modules (guix build utils)
2696 (ice-9 match)
2697 (srfi srfi-26))
2698 (setenv "PATH" (string-append
2699 (assoc-ref %build-inputs "bash") "/bin" ":"
2700 (assoc-ref %build-inputs "gzip") "/bin" ":"
b740a305
TGR		 2701 (assoc-ref %build-inputs "perl") "/bin" ":"))
2702 (copy-recursively (assoc-ref %build-inputs "source")
2703 ,(string-append real-name "-" version))
bbc94ed0
PN		 2704 (with-directory-excursion ,(string-append real-name "-" version)
2705 (with-fluids ((%default-port-encoding #f))
2706 (substitute* "inxi" (("/usr/bin/env perl") (which "perl"))))
2707 (let ((bin (string-append %output "/bin")))
2708 (install-file "inxi" bin)
2709 (wrap-program (string-append bin "/inxi")
2710 `("PATH" ":" =
2711 ("$PATH"
2712 ,@(map (lambda (input)
2713 (match input
2714 ((name . store)
2715 (let ((store-append
2716 (cut string-append store <>)))
2717 (cond
2718 ((member name '("util-linux"))
2719 (string-append (store-append "/bin") ":"
2720 (store-append "/sbin")))
2721 ((member name '("dmidecode" "iproute2"))
2722 (store-append "/sbin"))
2723 (else (store-append "/bin")))))))
2724 %build-inputs)))
2725 `("PERL5LIB" ":" =
2726 ,(delete
2727 ""
2728 (map (match-lambda
2729 (((? (cut string-prefix? "perl-" <>) name) . dir)
2730 (string-append dir "/lib/perl5/site_perl"))
2731 (_ ""))
2732 %build-inputs)))))
2733 (invoke "gzip" "inxi.1")
2734 (install-file "inxi.1.gz"
55f5556e 2735 (string-append %output "/share/man/man1")))
bbc94ed0
PN		 2736 #t)))
2737 (home-page "https://smxi.org/docs/inxi.htm")
4ee41a6a 2738 (synopsis "Full-featured system information script")
bbc94ed0
PN		 2739 (description "Inxi is a system information script that can display
2740various things about your hardware and software to users in an IRC chatroom or
4ee41a6a 2741support forum. It runs with the @code{/exec} command in most IRC clients.")
bbc94ed0
PN		 2742 (license license:gpl3+))))
2743
2744(define-public inxi
2745 (package
2746 (inherit inxi-minimal)
2747 (name "inxi")
2748 (inputs
2749 `(("dmidecode" ,dmidecode)
2750 ("file" ,file)
2751 ("bind:utils" ,isc-bind "utils") ; dig
2752 ("gzip" ,gzip)
2753 ("iproute2" ,iproute) ; ip
2754 ("kmod" ,kmod) ; modinfo
2755 ("lm-sensors" ,lm-sensors)
2756 ("mesa-utils" ,mesa-utils)
2757 ("pciutils" ,pciutils)
2758 ("procps" ,procps)
2759 ("tar" ,tar)
2760 ("tree" ,tree)
2761 ("util-linux" ,util-linux) ; lsblk
2762 ("usbutils" ,usbutils) ; lsusb
2763 ("wmctrl" ,wmctrl)
2764 ("xdpyinfo" ,xdpyinfo)
2765 ("xprop" ,xprop)
2766 ("xrandr" ,xrandr)
2767 ("coreutils" ,coreutils) ; uptime
2768 ("inetutils" ,inetutils) ; ifconfig
2769 ("perl-cpanel-json-xs" ,perl-cpanel-json-xs)
2770 ("perl-http-tiny" ,perl-http-tiny)
2771 ("perl-io-socket-ssl" ,perl-io-socket-ssl)
2772 ("perl-json-xs" ,perl-json-xs)
2773 ("perl-time-hires" ,perl-time-hires)
2774 ;; TODO: Add more inputs:
2775 ;; ipmi-sensors
2776 ;; hddtemp
2777 ;; perl-xml-dumper
2778 ;; ipmitool
2779 ,@(package-inputs inxi-minimal)))))
jackhill's copy of GNU Guix: https://guix.gnu.org/