HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: Add libgd.
[jackhill/guix/guix.git] / gnu / packages / networking.scm
CommitLineData
f6d9b3de 1;;; GNU Guix --- Functional package management for GNU
5f645557 2;;; Copyright © 2014, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
a8253fbe 3;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
a2b2aebe 4;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
61253c4f 5;;; Copyright © 2015, 2016, 2017 Stefan Reichör <stefan@xsteve.at>
95146623 6;;; Copyright © 2016 Raimon Grau <raimonster@gmail.com>
3b990922 7;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
42ff54d5 8;;; Copyright © 2016 John Darrington <jmd@gnu.org>
8f4d15f1 9;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
d85b398b 10;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
47956fa0 11;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
2913a942 12;;; Copyright © 2016, 2017, 2018 Arun Isaac <arunisaac@systemreboot.net>
b747718e 13;;; Copyright © 2016 Benz Schenk <benz.schenk@uzh.ch>
38510546 14;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl>
3cd501c8 15;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
cc24bf98 16;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
fc1ed8c1 17;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
3c85058c 18;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
dbf87ecb 19;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com>
167a541f 20;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
5f645557 21;;; Copyright © 2018 Adam Van Ymeren <adam@vany.ca>
1170198d 22;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
d282fee5 23;;; Copyright © 2018 Tonton <tonton@riseup.net>
a234ae38 24;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
f6c87714 25;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org>
a8253fbe
RW		 26;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
27;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
4715f92e 28;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
523533ed 29;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
2e8c912f 30;;; Copyright © 2019 Vasile Dumitrascu <va511e@yahoo.com>
f6d9b3de
LC		 31;;;
32;;; This file is part of GNU Guix.
33;;;
34;;; GNU Guix is free software; you can redistribute it and/or modify it
35;;; under the terms of the GNU General Public License as published by
36;;; the Free Software Foundation; either version 3 of the License, or (at
37;;; your option) any later version.
38;;;
39;;; GNU Guix is distributed in the hope that it will be useful, but
40;;; WITHOUT ANY WARRANTY; without even the implied warranty of
41;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
42;;; GNU General Public License for more details.
43;;;
44;;; You should have received a copy of the GNU General Public License
45;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
46
8a413bca 47(define-module (gnu packages networking)
f6d9b3de
LC		 48 #:use-module ((guix licenses) #:prefix license:)
49 #:use-module (guix packages)
50 #:use-module (guix download)
491f7fc0 51 #:use-module (guix git-download)
167a541f 52 #:use-module (guix build-system cmake)
834a2fc1 53 #:use-module (guix build-system glib-or-gtk)
f6d9b3de 54 #:use-module (guix build-system gnu)
523533ed 55 #:use-module (guix build-system go)
af5faef9 56 #:use-module (guix build-system perl)
9e6c7c42 57 #:use-module (guix build-system python)
8d60dd71 58 #:use-module (gnu packages)
834a2fc1
NG		 59 #:use-module (gnu packages admin)
60 #:use-module (gnu packages adns)
82ee141b 61 #:use-module (gnu packages algebra)
834a2fc1 62 #:use-module (gnu packages audio)
de5308f5 63 #:use-module (gnu packages autotools)
5f645557 64 #:use-module (gnu packages base)
834a2fc1 65 #:use-module (gnu packages bison)
d597dda6 66 #:use-module (gnu packages boost)
998afc36 67 #:use-module (gnu packages check)
4fb5f830 68 #:use-module (gnu packages code)
834a2fc1 69 #:use-module (gnu packages compression)
1170198d 70 #:use-module (gnu packages crypto)
9e6c7c42 71 #:use-module (gnu packages curl)
c2700e78 72 #:use-module (gnu packages dejagnu)
de5308f5 73 #:use-module (gnu packages documentation)
834a2fc1 74 #:use-module (gnu packages flex)
82ee141b 75 #:use-module (gnu packages gettext)
961012a0 76 #:use-module (gnu packages glib)
167a541f 77 #:use-module (gnu packages gnome)
834a2fc1
NG		 78 #:use-module (gnu packages gnupg)
79 #:use-module (gnu packages gtk)
1170198d 80 #:use-module (gnu packages image)
9c798f90 81 #:use-module (gnu packages libidn)
834a2fc1
NG		 82 #:use-module (gnu packages linux)
83 #:use-module (gnu packages lua)
5f645557 84 #:use-module (gnu packages multiprecision)
89e34644 85 #:use-module (gnu packages kerberos)
834a2fc1 86 #:use-module (gnu packages ncurses)
e0fa6413
PN		 87 #:use-module (gnu packages nettle)
88 #:use-module (gnu packages password-utils)
d85b398b 89 #:use-module (gnu packages pcre)
834a2fc1 90 #:use-module (gnu packages perl)
5ccde207 91 #:use-module (gnu packages perl-check)
998afc36 92 #:use-module (gnu packages pkg-config)
834a2fc1 93 #:use-module (gnu packages python)
a68b4514 94 #:use-module (gnu packages python-web)
44d10b1f 95 #:use-module (gnu packages python-xyz)
d016b60f 96 #:use-module (gnu packages qt)
c2700e78 97 #:use-module (gnu packages readline)
e0fa6413 98 #:use-module (gnu packages serialization)
cd0322a3 99 #:use-module (gnu packages sqlite)
d016b60f 100 #:use-module (gnu packages ssh)
4fb5f830
TGR		 101 #:use-module (gnu packages textutils)
102 #:use-module (gnu packages tls)
af5faef9 103 #:use-module (gnu packages valgrind)
dbf87ecb 104 #:use-module (gnu packages web)
1170198d 105 #:use-module (gnu packages wxwidgets)
b3623b6f 106 #:use-module (gnu packages xml)
af5faef9 107 #:use-module (ice-9 match))
f6d9b3de 108
f3fda298
TGR		 109;; The gnu.org ‘home’ for this GNU project is a directory listing with 1.6.0 as
110;; the latest version. The author's git repository, mentioned in the 1.6.0
111;; README and otherwise legit-looking, contains a proper 1.7.0 release tarball
112;; with many OUI updates. Use it, even though it's also several years old now.
c791efde
JD		 113(define-public macchanger
114 (package
115 (name "macchanger")
f3fda298
TGR		 116 (version "1.7.0")
117 (source
118 (origin
119 (method url-fetch)
120 (uri (string-append "https://github.com/alobbs/macchanger/"
121 "releases/download/" version "/"
122 name "-" version ".tar.gz"))
123 (sha256
124 (base32 "1gs5m0jxyprdp00w2qkbnaqm3ilkjz0q1gqdg4nzdm8g4xy73qns"))))
c791efde 125 (build-system gnu-build-system)
6fd52309 126 (home-page "https://www.gnu.org/software/macchanger/")
a3947cb1 127 (synopsis "Viewing and manipulating MAC addresses of network interfaces")
c791efde
JD		 128 (description "GNU MAC Changer is a utility for viewing and changing MAC
129addresses of networking devices. New addresses may be set explicitly or
130randomly. They can include MAC addresses of the same or other hardware vendors
38510546 131or, more generally, MAC addresses of the same category of hardware.")
c791efde
JD		 132 (license license:gpl2+)))
133
1e61e22f
TUBK		 134(define-public miredo
135 (package
136 (name "miredo")
137 (version "1.2.6")
138 (source (origin
139 (method url-fetch)
140 (uri (string-append "http://www.remlab.net/files/miredo/miredo-"
141 version ".tar.xz"))
142 (sha256
143 (base32
144 "0j9ilig570snbmj48230hf7ms8kvcwi2wblycqrmhh85lksd49ps"))))
145 (build-system gnu-build-system)
146 (arguments
147 '(#:phases
148 (modify-phases %standard-phases
149 ;; The checkconf test in src/ requires network access.
150 (add-before
151 'check 'disable-checkconf-test
152 (lambda _
153 (substitute* "src/Makefile"
366c1cbb
MW		 154 (("^TESTS = .*") "TESTS = \n"))
155 #t)))))
1e61e22f
TUBK		 156 (home-page "http://www.remlab.net/miredo/")
157 (synopsis "Teredo IPv6 tunneling software")
158 (description
159 "Miredo is an implementation (client, relay, server) of the Teredo
160specification, which provides IPv6 Internet connectivity to IPv6 enabled hosts
161residing in IPv4-only networks, even when they are behind a NAT device.")
162 (license license:gpl2+)))
163
f6d9b3de
LC		 164(define-public socat
165 (package
166 (name "socat")
4c7eeee4 167 (version "1.7.3.3")
f6d9b3de
LC		 168 (source (origin
169 (method url-fetch)
170 (uri (string-append
171 "http://www.dest-unreach.org/socat/download/socat-"
172 version ".tar.bz2"))
173 (sha256
174 (base32
4c7eeee4 175 "0jnhjijyq74g3wa4ph0am83z6vq7qna7ac0xqjma8s4197z3zmhd"))))
f6d9b3de
LC		 176 (build-system gnu-build-system)
177 (arguments '(#:tests? #f)) ;no 'check' phase
178 (inputs `(("openssl" ,openssl)))
179 (home-page "http://www.dest-unreach.org/socat/")
180 (synopsis
181 "Open bidirectional communication channels from the command line")
182 (description
183 "socat is a relay for bidirectional data transfer between two independent
184data channels---files, pipes, devices, sockets, etc. It can create
185\"listening\" sockets, named pipes, and pseudo terminals.
186
187socat can be used, for instance, as TCP port forwarder, as a shell interface
188to UNIX sockets, IPv6 relay, for redirecting TCP oriented programs to a serial
189line, to logically connect serial lines on different computers, or to
190establish a relatively secure environment (su and chroot) for running client
e881752c 191or server shell scripts with network connections.")
f6d9b3de 192 (license license:gpl2)))
603090d8 193
c4947d0e
JD		 194(define-public tcp-wrappers
195 (package
196 (name "tcp-wrappers")
197 (version "7.6")
198 (source (origin
199 (method url-fetch)
200 (uri (string-append
201 "ftp://ftp.porcupine.org/pub/security/tcp_wrappers_"
202 version ".tar.gz"))
203 (sha256
204 (base32
205 "0p9ilj4v96q32klavx0phw9va21fjp8vpk11nbh6v2ppxnnxfhwm"))))
206 (build-system gnu-build-system)
207 (arguments
208 `(#:phases
209 (modify-phases %standard-phases
210 (delete 'configure) ; there is no configure script
211 (delete 'check) ; there are no tests
212 (replace 'build
213 (lambda _
214 (chmod "." #o755)
215 ;; Upstream doesn't generate a shared library. So we have to do it.
216 (setenv "CC" "gcc -fno-builtin -fPIC")
217 (substitute* "Makefile"
218 (("^(all[^\n]*)" line) (string-append line " libwrap.so\n
219libwrap.so: $(LIB_OBJ)\n
220\tgcc -shared $^ -o $@\n")))
221 ;; Deal with some gcc breakage.
222 (substitute* "percent_m.c"
223 (("extern char .sys_errlist.*;") ""))
224 (substitute* "scaffold.c"
225 (("extern char .malloc.*;") ""))
226 ;; This, believe it or not, is the recommended way to build!
366c1cbb 227 (invoke "make" "REAL_DAEMON_DIR=/etc" "linux")))
c4947d0e
JD		 228 ;; There is no make install stage, so we have to do it ourselves.
229 (replace 'install
230 (lambda _
231 (let ((out (assoc-ref %outputs "out"))
232 (man-pages `("hosts_access.3"
233 "hosts_access.5"
234 "hosts_options.5"
235 "tcpd.8"
236 "tcpdchk.8"
237 "tcpdmatch.8"))
238 (libs `("libwrap.a"
239 "libwrap.so"))
240 (headers `("tcpd.h"))
241 (bins `("safe_finger"
242 "tcpd"
243 "tcpdchk"
244 "tcpdmatch"
245 "try-from")))
246 (for-each
247 (lambda (x)
248 (install-file x (string-append out "/include")))
249 headers)
250 (for-each
251 (lambda (x)
252 (install-file x (string-append out "/share/man/man"
253 (string-take-right x 1))))
254 man-pages)
255 (for-each
256 (lambda (x)
257 (install-file x (string-append out "/lib/")))
258 libs)
259 (for-each
260 (lambda (x)
261 (install-file x (string-append out "/bin/")))
366c1cbb
MW		 262 bins))
263 #t)))))
c4947d0e
JD		 264 (home-page "http://www.porcupine.org")
265 (synopsis "Monitor and filter incoming requests for network services")
266 (description "With this package you can monitor and filter incoming requests for
267network services. It includes a library which may be used by daemons to
268transparently check connection attempts against an access control list.")
269 (license (license:non-copyleft "file://DISCLAIMER"
270 "See the file DISCLAIMER in the distribution."))))
271
272
603090d8
RW		 273(define-public zeromq
274 (package
275 (name "zeromq")
d6c108a9 276 (version "4.0.7")
603090d8
RW		 277 (source (origin
278 (method url-fetch)
279 (uri (string-append "http://download.zeromq.org/zeromq-"
280 version ".tar.gz"))
281 (sha256
282 (base32
d6c108a9 283 "00vvwhgcdr1lva2pavicvy92iad0hj8cf71n702hv6blw1kjj2z0"))))
603090d8
RW		 284 (build-system gnu-build-system)
285 (home-page "http://zeromq.org")
286 (synopsis "Library for message-based applications")
287 (description
288 "The 0MQ lightweight messaging kernel is a library which extends the
289standard socket interfaces with features traditionally provided by specialized
290messaging middle-ware products. 0MQ sockets provide an abstraction of
291asynchronous message queues, multiple messaging patterns, message
292filtering (subscriptions), seamless access to multiple transport protocols and
293more.")
294 (license license:lgpl3+)))
a2b2aebe 295
433dc746
CB		 296(define-public czmq
297 (package
298 (name "czmq")
00172e17 299 (version "4.1.1")
433dc746
CB		 300 (source (origin
301 (method url-fetch)
302 (uri (string-append
303 "https://github.com/zeromq/" name
304 "/releases/download/v" version
305 "/" name "-" version ".tar.gz"))
306 (sha256
307 (base32
00172e17 308 "1h5hrcsc30fcwb032vy5gxkq4j4vv1y4dj460rfs1hhxi0cz83zh"))))
433dc746
CB		 309 (build-system gnu-build-system)
310 (arguments
311 '(;; TODO Tests fail for some reason:
312 ;; * zauth: OK
313 ;; * zbeacon: OK (skipping test, no UDP broadcasting)
314 ;; E: (czmq_selftest) 18-02-24 16:25:52 No broadcast interface found, (ZSYS_INTERFACE=lo)
315 ;; make[2]: *** [Makefile:2245: check-local] Segmentation fault
316 ;; make[2]: Leaving directory '/tmp/guix-build-czmq-4.1.0.drv-0/czmq-4.1.0'
317 ;; make[1]: *** [Makefile:2032: check-am] Error 2
318 ;; make[1]: Leaving directory '/tmp/guix-build-czmq-4.1.0.drv-0/czmq-4.1.0'
319 ;; make: *** [Makefile:1588: check-recursive] Error 1
320 ;; phase `check' failed after 19.4 seconds
321 #:tests? #f
322 #:configure-flags '("--enable-drafts")))
323 (inputs
324 `(("zeromq" ,zeromq)))
325 (home-page "http://zeromq.org")
326 (synopsis "High-level C bindings for ØMQ")
327 (description
328 "czmq provides bindings for the ØMQ core API that hides the differences
329between different versions of ØMQ.")
330 (license license:mpl2.0)))
331
f6c87714
TF		 332(define-public cppzmq
333 (let ((revision "0")
334 (commit "d9f0f016c07046742738c65e1eb84722ae32d7d4"))
335 (package
336 (name "cppzmq")
337 (version (string-append "4.2.2-" revision "."
338 (string-take commit 7)))
339 (source (origin
340 (method git-fetch)
341 (uri (git-reference
342 (url "https://github.com/zeromq/cppzmq")
343 (commit commit)))
344 (sha256
345 (base32
346 "1gmqlm00y6xpa5m6d4ajq3ww63n2w7h4sy997wj81vcqmqx45b1f"))
347 (file-name (string-append name "-" version "-checkout"))))
348 (build-system cmake-build-system)
349 (arguments '(#:tests? #f)) ; No tests.
350 (native-inputs
351 `(("pkg-config" ,pkg-config)))
352 (inputs
353 `(("zeromq" ,zeromq)))
354 (home-page "http://zeromq.org")
355 (synopsis "C++ bindings for the ØMQ messaging library")
356 (description
357 "This package provides header-only C++ bindings for ØMQ. The header
358files contain direct mappings of the abstractions provided by the ØMQ C API.")
359 (license license:expat))))
360
2c1286f4
SB		 361(define-public librdkafka
362 (package
363 (name "librdkafka")
364 (version "0.9.1")
365 (source (origin
366 (method url-fetch)
367 (uri (string-append
368 "https://github.com/edenhill/librdkafka/archive/"
369 version ".tar.gz"))
370 (file-name (string-append name "-" version ".tar.gz"))
371 (sha256
372 (base32
373 "10ldx7g7ymmg17snzx78vy4n8ma1rjx0agzi34g15j2fk867xmas"))))
374 (build-system gnu-build-system)
375 (arguments
376 '(#:phases
377 (modify-phases %standard-phases
378 (replace 'configure
379 ;; its custom configure script doesn't understand 'CONFIG_SHELL'.
380 (lambda* (#:key outputs #:allow-other-keys)
381 (let ((out (assoc-ref outputs "out")))
382 ;; librdkafka++.so lacks RUNPATH for librdkafka.so
383 (setenv "LDFLAGS"
384 (string-append "-Wl,-rpath=" out "/lib"))
366c1cbb
MW		 385 (invoke "./configure"
386 (string-append "--prefix=" out))))))))
2c1286f4
SB		 387 (native-inputs
388 `(("python" ,python-wrapper)))
389 (propagated-inputs
390 `(("zlib" ,zlib))) ; in the Libs.private field of rdkafka.pc
391 (home-page "https://github.com/edenhill/librdkafka")
392 (synopsis "Apache Kafka C/C++ client library")
393 (description
394 "librdkafka is a C library implementation of the Apache Kafka protocol,
395containing both Producer and Consumer support.")
396 (license license:bsd-2)))
397
a2b2aebe
MW		 398(define-public libndp
399 (package
400 (name "libndp")
9526d861 401 (version "1.7")
a2b2aebe
MW		 402 (source (origin
403 (method url-fetch)
404 (uri (string-append "http://libndp.org/files/"
405 name "-" version ".tar.gz"))
406 (sha256
407 (base32
9526d861 408 "1dlinhl39va00v55qygjc9ap77yqf7xvn4rwmvdr49xhzzxhlj1c"))))
a2b2aebe
MW		 409 (build-system gnu-build-system)
410 (home-page "http://libndp.org/")
411 (synopsis "Library for Neighbor Discovery Protocol")
412 (description
413 "libndp contains a library which provides a wrapper for IPv6 Neighbor
414Discovery Protocol. It also provides a tool named ndptool for sending and
415receiving NDP messages.")
416 (license license:lgpl2.1+)))
5df2316d
MW		 417
418(define-public ethtool
419 (package
420 (name "ethtool")
f736e550 421 (version "4.19")
5df2316d
MW		 422 (source (origin
423 (method url-fetch)
424 (uri (string-append "mirror://kernel.org/software/network/"
956a14b4 425 "ethtool/ethtool-" version ".tar.xz"))
5df2316d
MW		 426 (sha256
427 (base32
f736e550 428 "1j6hyr809af2m3gqm11hdfwks5kljqy1ikspq3d9rhj29qv6r2mi"))))
5df2316d
MW		 429 (build-system gnu-build-system)
430 (home-page "https://www.kernel.org/pub/software/network/ethtool/")
431 (synopsis "Display or change Ethernet device settings")
432 (description
433 "ethtool can be used to query and change settings such as speed,
434auto-negotiation and checksum offload on many network devices, especially
435Ethernet devices.")
436 (license license:gpl2)))
24a848c8
SR		 437
438(define-public ifstatus
439 (package
440 (name "ifstatus")
441 (version "1.1.0")
442 (source (origin
443 (method url-fetch)
de67e922
LF		 444 (uri (string-append "mirror://sourceforge/ifstatus/ifstatus/"
445 "ifstatus%20v" version "/ifstatus-v"
24a848c8
SR		 446 version ".tar.gz"))
447 (sha256
448 (base32
449 "045cbsq9ps32j24v8y5hpyqxnqn9mpaf3mgvirlhgpqyb9jsia0c"))
450 (modules '((guix build utils)))
451 (snippet
6cbee49d
MW		 452 '(begin
453 (substitute* "Main.h"
454 (("#include <stdio.h>")
455 "#include <stdio.h>\n#include <stdlib.h>"))
456 #t))))
24a848c8
SR		 457 (build-system gnu-build-system)
458 (arguments
459 '(#:tests? #f ; no "check" target
460 #:phases
461 (modify-phases %standard-phases
462 (delete 'configure) ; no configure script
463 (replace 'install
464 (lambda* (#:key outputs #:allow-other-keys)
465 (let* ((out (assoc-ref outputs "out"))
466 (bin (string-append out "/bin")))
467 (mkdir-p bin)
468 (copy-file "ifstatus"
366c1cbb
MW		 469 (string-append bin "/ifstatus")))
470 #t)))))
24a848c8
SR		 471 (inputs `(("ncurses" ,ncurses)))
472 (home-page "http://ifstatus.sourceforge.net/graphic/index.html")
473 (synopsis "Text based network interface status monitor")
474 (description
475 "IFStatus is a simple, easy-to-use program for displaying commonly
8874f766 476needed/wanted real-time traffic statistics of multiple network
24a848c8
SR		 477interfaces, with a simple and efficient view on the command line. It is
478intended as a substitute for the PPPStatus and EthStatus projects.")
8874f766 479 (license license:gpl2+)))
95146623
RG		 480
481(define-public nload
482 (package
483 (name "nload")
484 (version "0.7.4")
485 (source (origin
486 (method url-fetch)
de67e922
LF		 487 (uri (string-append "mirror://sourceforge/nload/nload/" version
488 "/nload-" version ".tar.gz"))
95146623
RG		 489 (sha256
490 (base32
491 "1rb9skch2kgqzigf19x8bzk211jdfjfdkrcvaqyj89jy2pkm3h61"))))
492 (build-system gnu-build-system)
493 (inputs `(("ncurses" ,ncurses)))
494 (home-page "http://www.roland-riegel.de/nload/")
495 (synopsis "Realtime console network usage monitor")
496 (description
497 "Nload is a console application which monitors network traffic and
498bandwidth usage in real time. It visualizes the in- and outgoing traffic using
d1e4ad1b 499two graphs, and provides additional info like total amount of transferred data
95146623
RG		 500and min/max network usage.")
501 (license license:gpl2+)))
998afc36
TGR		 502
503(define-public iodine
504 (package
505 (name "iodine")
506 (version "0.7.0")
507 (source (origin
508 (method url-fetch)
509 (uri (string-append "http://code.kryo.se/" name "/"
510 name "-" version ".tar.gz"))
511 (sha256
512 (base32
513 "0gh17kcxxi37k65zm4gqsvbk3aw7yphcs3c02pn1c4s2y6n40axd"))))
514 (build-system gnu-build-system)
515 (arguments
516 '(#:phases
517 (modify-phases %standard-phases
518 (delete 'configure)
60880ac5
TGR		 519 (add-before 'build 'fix-ifconfig-path
520 ;; This package works only with the net-tools version of ifconfig.
521 (lambda* (#:key inputs #:allow-other-keys)
522 (substitute* "src/tun.c"
523 (("PATH=[^ ]* ")
366c1cbb
MW		 524 (string-append (assoc-ref inputs "net-tools") "/bin/")))
525 #t))
998afc36 526 (add-before 'check 'delete-failing-tests
60880ac5 527 ;; Avoid https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=802105.
998afc36
TGR		 528 (lambda _
529 (substitute* "tests/common.c"
530 (("tcase_add_test\\(tc, \
531test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);")
366c1cbb
MW		 532 ""))
533 #t)))
998afc36
TGR		 534 #:make-flags (list "CC=gcc"
535 (string-append "prefix=" (assoc-ref %outputs "out")))
536 #:test-target "test"))
60880ac5
TGR		 537 (inputs `(("net-tools" ,net-tools)
538 ("zlib" ,zlib)))
998afc36
TGR		 539 (native-inputs `(("check" ,check)
540 ("pkg-config" ,pkg-config)))
541 (home-page "http://code.kryo.se/iodine/")
542 (synopsis "Tunnel IPv4 data through a DNS server")
543 (description "Iodine tunnels IPv4 data through a DNS server. This
544can be useful in different situations where internet access is firewalled, but
545DNS queries are allowed. The bandwidth is asymmetrical, with limited upstream
546and up to 1 Mbit/s downstream.")
547 ;; src/md5.[ch] is released under the zlib license
548 (license (list license:isc license:zlib))))
834a2fc1 549
9c798f90 550(define-public whois
551 (package
552 (name "whois")
71bfbe9b 553 (version "5.4.3")
9c798f90 554 (source
555 (origin
556 (method url-fetch)
557 (uri (string-append "mirror://debian/pool/main/w/whois/"
558 name "_" version ".tar.xz"))
559 (sha256
560 (base32
71bfbe9b 561 "1hqg14k0q4979a1amgms4sa1d2iiid51rra3jyqmv63hkw189ypy"))))
9c798f90 562 (build-system gnu-build-system)
9c798f90 563 (arguments
5ac1143d 564 `(#:tests? #f ; no test suite
9c798f90 565 #:make-flags (list "CC=gcc"
566 (string-append "prefix=" (assoc-ref %outputs "out")))
567 #:phases
568 (modify-phases %standard-phases
5ac1143d 569 (delete 'configure) ; no configure script
9c798f90 570 (add-before 'build 'setenv
571 (lambda _
572 (setenv "HAVE_ICONV" "1")
268b3802 573 #t)))))
9c798f90 574 (inputs
6ce76bdc 575 `(("libidn2" ,libidn2)))
9c798f90 576 (native-inputs
7c90d0f4 577 `(("gettext" ,gettext-minimal)
eb6263f2
MB		 578 ("perl" ,perl)
579 ("pkg-config" ,pkg-config)))
5ac1143d
TGR		 580 (synopsis "Intelligent client for the WHOIS directory service")
581 (description
582 "whois searches for an object in a @dfn{WHOIS} (RFC 3912) database.
583It is commonly used to look up the registered users or assignees of an Internet
584resource, such as a domain name, an IP address block, or an autonomous system.
585It can automatically select the appropriate server for most queries.
586
587For historical reasons, this package also includes @command{mkpasswd}, which
588encrypts passwords using @code{crypt(3)} and is unrelated to the Expect command
589of the same name.")
9c798f90 590 (home-page "https://github.com/rfc1036/whois")
591 (license license:gpl2+)))
592
834a2fc1
NG		 593(define-public wireshark
594 (package
595 (name "wireshark")
6406badb 596 (version "3.0.2")
834a2fc1
NG		 597 (source
598 (origin
599 (method url-fetch)
600 (uri (string-append "https://www.wireshark.org/download/src/wireshark-"
d016b60f 601 version ".tar.xz"))
834a2fc1 602 (sha256
6406badb 603 (base32 "0fz5lbyiw4a27fqc4ndi1w20bpcb6wi9k7vjv29l9fhd99kca7ky"))))
2b6ab17f 604 (build-system cmake-build-system)
834a2fc1 605 (arguments
2b6ab17f 606 `(#:phases
a234ae38 607 (modify-phases %standard-phases
2b6ab17f
NG		 608 (add-after 'unpack 'remove-failing-test
609 ;; Test 31/32 fails with errors like "Program reassemble_test is
610 ;; not available". Skipping it for now.
a234ae38 611 (lambda _
2b6ab17f
NG		 612 (substitute* "CMakeLists.txt"
613 (("suite_unittests" all) (string-append "# " all)))
614 #t)))
615 ;; Build process chokes during `validate-runpath' phase.
616 ;;
617 ;; Errors are like the following:
618 ;; "/gnu/store/...wireshark-3.0.0/lib/wireshark/plugins/3.0/epan/ethercat.so:
619 ;; error: depends on 'libwireshark.so.12', which cannot be found in
620 ;; RUNPATH". That is, "/gnu/store/...wireshark-3.0.0./lib" doesn't
621 ;; belong to RUNPATH.
622 ;;
623 ;; That’s not a problem in practice because "ethercat.so" is a plugin,
624 ;; so it’s dlopen’d by a process that already provides "libwireshark".
625 ;; For now, we disable this phase.
626 #:validate-runpath? #f))
627 (inputs
628 `(("c-ares" ,c-ares)
629 ("glib" ,glib)
630 ("gnutls" ,gnutls)
631 ("libcap" ,libcap)
632 ("libgcrypt" ,libgcrypt)
633 ("libnl" ,libnl)
634 ("libpcap" ,libpcap)
635 ("libssh" ,libssh)
636 ("libxml2" ,libxml2)
637 ("lz4" ,lz4)
638 ("lua" ,lua-5.2) ;Lua 5.3 unsupported
639 ("krb5" ,mit-krb5)
640 ("qtbase" ,qtbase)
641 ("qtmultimedia" ,qtmultimedia)
642 ("qtsvg" ,qtsvg)
643 ("sbc" ,sbc)
644 ("snappy" ,snappy)
645 ("zlib" ,zlib)))
646 (native-inputs
647 `(("bison" ,bison)
648 ("doxygen" ,doxygen)
649 ("flex" ,flex)
650 ("gettext" ,gettext-minimal)
651 ("perl" ,perl)
652 ("pkg-config" ,pkg-config)
653 ("python" ,python-wrapper)
654 ("qttools" ,qttools)))
d016b60f 655 (synopsis "Network traffic analyzer")
834a2fc1
NG		 656 (description "Wireshark is a network protocol analyzer, or @dfn{packet
657sniffer}, that lets you capture and interactively browse the contents of
658network frames.")
d016b60f
NG		 659 (home-page "https://www.wireshark.org/")
660 (license license:gpl2+)))
82ee141b 661
61253c4f
SR		 662(define-public fping
663 (package
664 (name "fping")
bc9c3dc3 665 (version "4.2")
61253c4f
SR		 666 (source
667 (origin
668 (method url-fetch)
669 (uri (string-append "https://fping.org/dist/fping-"
670 version ".tar.gz"))
671 (sha256
bc9c3dc3 672 (base32 "0jmnf4vmr43aiwk3h2b5qdsb95gxar8gz1yli8fswnm9nrs9ccvx"))))
61253c4f 673 (build-system gnu-build-system)
25706b8f 674 (home-page "https://fping.org/")
61253c4f
SR		 675 (synopsis "Send ICMP ECHO_REQUEST packets to network hosts")
676 (description
677 "fping is a ping like program which uses the Internet Control Message
678Protocol (ICMP) echo request to determine if a target host is responding.
679fping differs from ping in that you can specify any number of targets on the
680command line, or specify a file containing the lists of targets to ping.
681Instead of sending to one target until it times out or replies, fping will
682send out a ping packet and move on to the next target in a round-robin
683fashion.")
684 (license license:expat)))
685
a68b4514
TGR		 686(define-public gandi.cli
687 (package
688 (name "gandi.cli")
55c08305 689 (version "1.5")
a68b4514
TGR		 690 (source
691 (origin
692 (method url-fetch)
693 (uri (pypi-uri name version))
694 (sha256
55c08305 695 (base32 "110wc9zgxsrvw4yzp21p0ian5lcf7vhcpxhnmsc4fg9pzl2bwxd5"))))
a68b4514
TGR		 696 (build-system python-build-system)
697 (arguments
698 `(#:phases
699 (modify-phases %standard-phases
700 (add-after 'unpack 'embed-store-file-names
701 (lambda _
702 (substitute* (list "gandi/cli/modules/cert.py"
703 "gandi/cli/tests/commands/test_certificate.py")
704 (("openssl") (which "openssl")))
705 #t))
706 (add-after 'install 'install-documentation
707 ;; The included man page may be outdated but we install it anyway,
708 ;; since it's mentioned in 'gandi --help' and better than nothing.
709 (lambda* (#:key outputs #:allow-other-keys)
710 (let* ((out (assoc-ref outputs "out"))
711 (man1 (string-append out "/share/man/man1")))
712 (mkdir-p man1)
713 (with-output-to-file (string-append man1 "/gandi.1")
714 (lambda _
715 (invoke "rst2man.py" "gandicli.man.rst")))
716 #t))))))
717 (native-inputs
718 `(("python-docutils" ,python-docutils) ; for rst2man.py
719 ("python-pytest-cov" ,python-pytest-cov)
720 ("python-tox" ,python-tox)))
721 (inputs
722 `(("openssl" ,openssl)
723 ("python-click" ,python-click)
724 ("python-ipy" ,python-ipy)
725 ("python-pyyaml" ,python-pyyaml)
726 ("python-requests" ,python-requests)))
727 (home-page "https://cli.gandi.net")
728 (synopsis "Command-line interface to the Gandi.net Web API")
729 (description
730 "This package provides a command-line client (@command{gandi}) to buy,
731manage, and delete Internet resources from Gandi.net such as domain names,
732virtual machines, and certificates.")
733 (license license:gpl3+)))
734
03981f90
MC		 735(define-public go-netns
736 (let ((commit "13995c7128ccc8e51e9a6bd2b551020a27180abd")
737 (revision "1"))
738 (package
739 (name "go-netns")
740 (version (git-version "0.0.0" revision commit))
741 (source (origin
742 (method git-fetch)
743 (uri (git-reference
744 (url "https://github.com/vishvananda/netns.git")
745 (commit commit)))
746 (file-name (git-file-name name version))
747 (sha256
748 (base32
749 "1zk6w8158qi4niva5rijchbv9ixgmijsgqshh54wdaav4xrhjshn"))))
750 (build-system go-build-system)
751 (arguments
752 `(#:import-path "github.com/vishvananda/netns"
753 #:tests? #f)) ;tests require root privileges
754 (home-page "https://github.com/vishvananda/netns")
755 (synopsis "Simple network namespace handling for Go")
756 (description "The netns package provides a simple interface for
757handling network namespaces in Go.")
758 (license license:asl2.0))))
759
523533ed
MC		 760(define-public go-sctp
761 ;; docker-libnetwork-cmd-proxy requires this exact commit.
762 (let ((commit "07191f837fedd2f13d1ec7b5f885f0f3ec54b1cb")
763 (revision "1"))
764 (package
765 (name "go-sctp")
766 (version (git-version "0.0.0" revision commit))
767 (source (origin
768 (method git-fetch)
769 (uri (git-reference
770 (url "https://github.com/ishidawataru/sctp.git")
771 (commit commit)))
772 (file-name (git-file-name name version))
773 (sha256
774 (base32
775 "1mk9ncm10gwi5pn5wcw4skbyf4qg7n5qdf1mim4gf3mrckvi6g6h"))))
776 (build-system go-build-system)
777 (arguments
778 `(#:import-path "github.com/ishidawataru/sctp"))
779 (home-page "https://github.com/ishidawataru/sctp")
780 (synopsis "SCTP library for the Go programming language")
781 (description "This library provides methods for using the stream control
782transmission protocol (SCTP) in a Go application.")
783 (license license:asl2.0))))
784
82ee141b
TGR		 785(define-public httping
786 (package
787 (name "httping")
2f968727 788 (version "2.5")
82ee141b
TGR		 789 (source
790 (origin
791 (method url-fetch)
792 (uri (string-append "https://www.vanheusden.com/httping/httping-"
793 version ".tgz"))
794 (sha256
795 (base32
2f968727 796 "1y7sbgkhgadmd93x1zafqc4yp26ssiv16ni5bbi9vmvvdl55m29y"))))
82ee141b
TGR		 797 (build-system gnu-build-system)
798 (native-inputs
b94a6ca0 799 `(("gettext" ,gettext-minimal)))
82ee141b
TGR		 800 (inputs
801 `(("fftw" ,fftw)
802 ("ncurses" ,ncurses)
803 ("openssl" ,openssl)))
804 (arguments
805 `(#:make-flags (list "CC=gcc"
806 (string-append "DESTDIR=" (assoc-ref %outputs "out"))
807 "PREFIX=")
808 #:tests? #f)) ; no tests
809 (home-page "https://www.vanheusden.com/httping/")
810 (synopsis "Web server latency and throughput monitor")
811 (description
812 "httping measures how long it takes to connect to a web server, send an
813HTTP(S) request, and receive the reply headers. It is somewhat similar to
814@command{ping}, but can be used even in cases where ICMP traffic is blocked
815by firewalls or when you want to monitor the response time of the actual web
816application stack itself.")
817 (license license:gpl2))) ; with permission to link with OpenSSL
68b14f2e 818
9e6c7c42
SR		 819(define-public httpstat
820 (package
821 (name "httpstat")
822 (version "1.2.1")
823 (source
824 (origin
825 (method url-fetch)
826 (uri (pypi-uri "httpstat" version))
827 (sha256
828 (base32
829 "1chw2nk56vaq87aba012a270k9na06hfx1pfbsrc3jfvlc2kb9hb"))))
830 (build-system python-build-system)
831 (inputs `(("curl" ,curl)))
832 (arguments
833 '(#:phases
834 (modify-phases %standard-phases
835 (add-before 'build 'fix-curl-path
836 (lambda* (#:key inputs #:allow-other-keys)
837 (substitute* "httpstat.py"
838 (("ENV_CURL_BIN.get\\('curl'\\)")
839 (string-append "ENV_CURL_BIN.get('"
840 (assoc-ref inputs "curl")
366c1cbb
MW		 841 "/bin/curl')")))
842 #t)))))
9e6c7c42
SR		 843 (home-page "https://github.com/reorx/httpstat")
844 (synopsis "Visualize curl statistics")
845 (description
846 "@command{httpstat} is a tool to visualize statistics from the
847@command{curl} HTTP client. It acts as a wrapper for @command{curl} and
848prints timing information for each step of the HTTP request (DNS lookup,
849TCP connection, TLS handshake and so on) in the terminal.")
850 (license license:expat)))
851
be9f3a83
AI		 852(define-public bwm-ng
853 (package
854 (name "bwm-ng")
01d7cafe 855 (version "0.6.2")
be9f3a83
AI		 856 (source
857 (origin
01d7cafe
TGR		 858 (method git-fetch)
859 (uri (git-reference
860 (url "https://github.com/vgropp/bwm-ng.git")
861 (commit (string-append "v" version))))
862 (file-name (git-file-name name version))
be9f3a83 863 (sha256
01d7cafe 864 (base32 "0k906wb4pw3dcqpcwnni78lahzi3bva483f8c17sjykic7as4y5n"))))
be9f3a83 865 (build-system gnu-build-system)
01d7cafe
TGR		 866 (arguments
867 `(#:phases
868 (modify-phases %standard-phases
869 (add-after 'unpack 'disable-premature-./configure
870 (lambda _
871 (substitute* "autogen.sh"
872 (("\\$srcdir/configure")
873 "true"))
874 #t)))))
875 (native-inputs
876 `(("autoconf" ,autoconf)
877 ("automake" ,automake)))
878 (inputs
879 `(("ncurses" ,ncurses)))
be9f3a83
AI		 880 (synopsis "Console based live network and disk I/O bandwidth monitor")
881 (description "Bandwidth Monitor NG is a small and simple console based
882live network and disk I/O bandwidth monitor.")
883 (home-page "https://www.gropp.org/?id=projects&sub=bwm-ng")
884 (license license:gpl2)))
885
d85b398b
EB		 886(define-public aircrack-ng
887 (package
888 (name "aircrack-ng")
2e8c912f 889 (version "1.5.2")
d85b398b
EB		 890 (source
891 (origin
892 (method url-fetch)
6930ea33 893 (uri (string-append "https://download.aircrack-ng.org/aircrack-ng-"
d85b398b
EB		 894 version ".tar.gz"))
895 (sha256
896 (base32
2e8c912f 897 "0hc2x17bxk2n00z8jj5jfwq3z41681fd19n018724il0cpkjyncy"))))
d85b398b
EB		 898 (build-system gnu-build-system)
899 (native-inputs
b9114ccb
TGR		 900 `(("autoconf" ,autoconf)
901 ("automake" ,automake)
902 ("libtool" ,libtool)
903 ("pkg-config" ,pkg-config)
904 ("which" ,which)))
d85b398b
EB		 905 (inputs
906 `(("libgcrypt" ,libgcrypt)
907 ("libnl" ,libnl)
b9114ccb 908 ("libpcap" ,libpcap)
d85b398b
EB		 909 ("ethtool" ,ethtool)
910 ("pcre" ,pcre)
911 ("sqlite" ,sqlite)
912 ("zlib" ,zlib)))
913 (arguments
b9114ccb
TGR		 914 `(#:configure-flags
915 (list "--with-experimental=yes" ; build wesside-ng, etc.
916 "--with-gcrypt") ; openssl's the default
d85b398b 917 #:phases (modify-phases %standard-phases
b9114ccb
TGR		 918 (add-before 'bootstrap 'patch-evalrev
919 (lambda _
920 ;; Called by ./autogen.sh below, before the default
921 ;; ‘patch-shebangs’ phase has had a chance to run.
922 (substitute* "evalrev"
923 (("/bin/sh")
924 (which "sh")))
925 #t))
926 (replace 'bootstrap
927 (lambda _
928 ;; Patch shebangs in generated files before running
929 ;; ./configure.
930 (setenv "NOCONFIGURE" "please")
931 (invoke "bash" "./autogen.sh")))
d85b398b
EB		 932 (add-after 'build 'absolutize-tools
933 (lambda* (#:key inputs #:allow-other-keys)
934 (let ((ethtool (string-append (assoc-ref inputs "ethtool")
935 "/sbin/ethtool")))
936 (substitute* "scripts/airmon-ng"
b9114ccb
TGR		 937 (("ethtool ")
938 (string-append ethtool " ")))
d85b398b 939 #t))))))
6930ea33 940 (home-page "https://www.aircrack-ng.org")
d85b398b
EB		 941 (synopsis "Assess WiFi network security")
942 (description
943 "Aircrack-ng is a complete suite of tools to assess WiFi network
944security. It focuses on different areas of WiFi security: monitoring,
945attacking, testing, and cracking. All tools are command-line driven, which
946allows for heavy scripting.")
947 (license (list license:gpl2+ license:bsd-3))))
948
49cb1cf9
SB		 949(define-public perl-danga-socket
950 (package
951 (name "perl-danga-socket")
952 (version "1.61")
953 (source
954 (origin
955 (method url-fetch)
956 (uri (string-append "mirror://cpan/authors/id/B/BR/BRADFITZ/"
957 "Danga-Socket-" version ".tar.gz"))
958 (sha256
959 (base32
960 "0nciapvxnc922ms304af0vavz1kgyr45ard8wc659k9srqar4hwf"))))
961 (build-system perl-build-system)
962 (propagated-inputs
963 `(("perl-sys-syscall" ,perl-sys-syscall)))
964 (home-page "https://metacpan.org/release/Danga-Socket")
965 (synopsis "Event loop and event-driven async socket base class")
966 (description
967 "Danga::Socket is an abstract base class for objects backed by a socket
968which provides the basic framework for event-driven asynchronous IO, designed
969to be fast. Danga::Socket is both a base class for objects, and an event
970loop.")
971 (license license:perl-license)))
972
c7727a8b
TGR		 973(define-public perl-data-validate-ip
974 (package
975 (name "perl-data-validate-ip")
976 (version "0.27")
977 (source
978 (origin
979 (method url-fetch)
980 (uri (string-append
981 "mirror://cpan/authors/id/D/DR/DROLSKY/Data-Validate-IP-"
982 version ".tar.gz"))
983 (sha256
984 (base32 "1mmppyzsh1w2z2h86kvzqxy56wxgs62a3kf8nvcnz76bblir5ap1"))))
985 (build-system perl-build-system)
986 (native-inputs
987 `(("perl-test-requires" ,perl-test-requires)))
988 (propagated-inputs
989 `(("perl-netaddr-ip" ,perl-netaddr-ip)))
990 (home-page "https://metacpan.org/release/Data-Validate-IP")
991 (synopsis "IPv4 and IPv6 validation methods")
992 (description
993 "This module provides several IP address validation subroutines that both
994validate and untaint their input. This includes both basic validation
995(@code{is_ipv4()} and @code{is_ipv6()}) and special cases like checking whether
996an address belongs to a specific network or whether an address is public or
997private (reserved).")
998 (license license:perl-license)))
999
68b14f2e
DM		 1000(define-public perl-net-dns
1001 (package
1002 (name "perl-net-dns")
33dbb046 1003 (version "1.20")
68b14f2e
DM		 1004 (source
1005 (origin
1006 (method url-fetch)
8faa9df7
TGR		 1007 (uri
1008 (list
1009 (string-append "https://www.net-dns.org/download/Net-DNS-"
1010 version ".tar.gz")
1011 (string-append "mirror://cpan/authors/id/N/NL/NLNETLABS/Net-DNS-"
1012 version ".tar.gz")))
68b14f2e 1013 (sha256
33dbb046 1014 (base32 "06z09igd42s0kg2ps5k7vpypg77zswfryqzbyalbllvjd0mnknbz"))))
68b14f2e
DM		 1015 (build-system perl-build-system)
1016 (inputs
1017 `(("perl-digest-hmac" ,perl-digest-hmac)))
8faa9df7 1018 (home-page "https://www.net-dns.org/")
68b14f2e
DM		 1019 (synopsis
1020 "Perl Interface to the Domain Name System")
1021 (description "Net::DNS is the Perl Interface to the Domain Name System.")
1022 (license license:x11)))
87b14091
DM		 1023
1024(define-public perl-socket6
1025 (package
1026 (name "perl-socket6")
538b71a9 1027 (version "0.29")
87b14091
DM		 1028 (source
1029 (origin
1030 (method url-fetch)
1031 (uri (string-append
1032 "mirror://cpan/authors/id/U/UM/UMEMOTO/Socket6-"
1033 version
1034 ".tar.gz"))
1035 (sha256
1036 (base32
538b71a9 1037 "054izici8klfxs8hr5rljib28plijpsfymy99xbzdp047bx1b2a6"))))
87b14091
DM		 1038 (build-system perl-build-system)
1039 (arguments
1040 `(#:phases
1041 (modify-phases %standard-phases
1042 (replace 'configure
1043 (lambda* (#:key outputs #:allow-other-keys)
1044 (let* ((out (assoc-ref outputs "out"))
1045 (args `("Makefile.PL"
1046 ,(string-append "PREFIX=" out)
1047 "INSTALLDIRS=site")))
1048 (setenv "CONFIG_SHELL" (which "sh"))
366c1cbb 1049 (apply invoke "perl" args)))))))
9aba9b12 1050 (home-page "https://metacpan.org/release/Socket6")
87b14091
DM		 1051 (synopsis
1052 "IPv6 related part of the C socket.h defines and structure manipulators for Perl")
1053 (description "Socket6 binds the IPv6 related part of the C socket header
1054definitions and structure manipulators for Perl.")
1055 (license license:bsd-3)))
8d60dd71
DM		 1056
1057(define-public perl-net-dns-resolver-programmable
1058 (package
1059 (name "perl-net-dns-resolver-programmable")
1060 (version "v0.003")
1061 (source
1062 (origin
1063 (method url-fetch)
1064 (uri (string-append
1065 "mirror://cpan/authors/id/J/JM/JMEHNLE/net-dns-resolver-programmable/"
1066 "Net-DNS-Resolver-Programmable-" version ".tar.gz"))
1067 (sha256
1068 (base32
1069 "1v3nl2kaj4fs55n1617n53q8sa3mir06898vpy1rq98zjih24h4d"))
1070 (patches
1d248adb 1071 (search-patches "perl-net-dns-resolver-programmable-fix.patch"))))
8d60dd71
DM		 1072 (build-system perl-build-system)
1073 (native-inputs
1074 `(("perl-module-build" ,perl-module-build)))
1075 (inputs `(("perl-net-dns" ,perl-net-dns)))
1076 (home-page
9aba9b12 1077 "https://metacpan.org/release/Net-DNS-Resolver-Programmable")
8d60dd71
DM		 1078 (synopsis
1079 "Programmable DNS resolver class for offline emulation of DNS")
1080 (description "Net::DNS::Resolver::Programmable is a programmable DNS resolver for
1081offline emulation of DNS.")
2f3108ad 1082 (license license:perl-license)))
1201eab9
DM		 1083
1084(define-public perl-netaddr-ip
1085 (package
1086 (name "perl-netaddr-ip")
1087 (version "4.079")
1088 (source
1089 (origin
1090 (method url-fetch)
1091 (uri (string-append
1092 "mirror://cpan/authors/id/M/MI/MIKER/NetAddr-IP-"
1093 version
1094 ".tar.gz"))
1095 (sha256
1096 (base32
1097 "1rx0dinrz9fk9qcg4rwqq5n1dm3xv2arymixpclcv2q2nzgq4npc"))))
1098 (build-system perl-build-system)
1099 (arguments
1100 `(#:phases
1101 (modify-phases %standard-phases
1102 (replace 'configure
1103 (lambda* (#:key outputs #:allow-other-keys)
1104 (let* ((out (assoc-ref outputs "out"))
1105 (args `("Makefile.PL"
1106 ,(string-append "PREFIX=" out)
1107 "INSTALLDIRS=site")))
1108 (setenv "CONFIG_SHELL" (which "sh"))
366c1cbb 1109 (apply invoke "perl" args)))))))
1201eab9 1110 (home-page
9aba9b12 1111 "https://metacpan.org/release/NetAddr-IP")
1201eab9
DM		 1112 (synopsis
1113 "Manages IPv4 and IPv6 addresses and subnets")
1114 (description "NetAddr::IP manages IPv4 and IPv6 addresses and subsets.")
2f3108ad 1115 (license license:perl-license)))
3ed361ea
DM		 1116
1117(define-public perl-net-patricia
1118 (package
1119 (name "perl-net-patricia")
1120 (version "1.22")
1121 (source
1122 (origin
1123 (method url-fetch)
1124 (uri (string-append
1125 "mirror://cpan/authors/id/G/GR/GRUBER/Net-Patricia-"
1126 version
1127 ".tar.gz"))
1128 (sha256
1129 (base32
1130 "0ln5f57vc8388kyh9vhx2infrdzfhbpgyby74h1qsnhwds95m0vh"))))
1131 (build-system perl-build-system)
1132 (inputs
1133 `(("perl-net-cidr-lite" ,perl-net-cidr-lite)
1134 ("perl-socket6" ,perl-socket6)))
1135 (home-page
9aba9b12 1136 "https://metacpan.org/release/Net-Patricia")
3ed361ea
DM		 1137 (synopsis
1138 "Patricia Trie Perl module for fast IP address lookups")
1139 (description
1140 "Net::Patricia does IP address lookups quickly in Perl.")
1141 ;; The bindings are licensed under GPL2 or later.
1142 ;; libpatricia is licensed under 2-clause BSD.
1143 (license (list license:gpl2+ license:bsd-2))))
b09a8b6f
DM		 1144
1145(define-public perl-net-cidr-lite
1146 (package
1147 (name "perl-net-cidr-lite")
1148 (version "0.21")
1149 (source
1150 (origin
1151 (method url-fetch)
1152 (uri (string-append
1153 "mirror://cpan/authors/id/D/DO/DOUGW/Net-CIDR-Lite-"
1154 version
1155 ".tar.gz"))
1156 (sha256
1157 (base32
1158 "14shj73zbqmfjbp0qz1fs9j4p2dpvz5hfkm4qfdjbydflbl2b8fg"))))
1159 (build-system perl-build-system)
1160 (home-page
9aba9b12 1161 "https://metacpan.org/release/Net-CIDR-Lite")
b09a8b6f
DM		 1162 (synopsis
1163 "Perl extension for merging IPv4 or IPv6 CIDR addresses")
1164 (description "Net::CIDR::Lite merges IPv4 or IPv6 CIDR addresses.")
1165 (license license:gpl1+)))
e741c4e4
DM		 1166
1167;; TODO: Use the geolite-mirror-simple.pl script from the example
1168;; directory to stay current with the databases. How?
1169(define-public perl-geo-ip
1170 (package
1171 (name "perl-geo-ip")
b2799117 1172 (version "1.51")
e741c4e4
DM		 1173 (source
1174 (origin
1175 (method url-fetch)
1176 (uri (string-append
1177 "mirror://cpan/authors/id/M/MA/MAXMIND/Geo-IP-"
1178 version
1179 ".tar.gz"))
1180 (sha256
1181 (base32
b2799117 1182 "1fka8fr7fw6sh3xa9glhs1zjg3s2gfkhi7n7da1l2m2wblqj0c0n"))))
e741c4e4 1183 (build-system perl-build-system)
9aba9b12 1184 (home-page "https://metacpan.org/release/Geo-IP")
e741c4e4
DM		 1185 (synopsis
1186 "Look up location and network information by IP Address in Perl")
36a4366d
EF		 1187 (description "The Perl module @code{Geo::IP}. It looks up location and
1188network information by IP Address.")
2f3108ad 1189 (license license:perl-license)))
e818f321
DM		 1190
1191(define-public perl-io-socket-inet6
1192 (package
1193 (name "perl-io-socket-inet6")
1194 (version "2.72")
1195 (source
1196 (origin
1197 (method url-fetch)
1198 (uri (string-append
1199 "mirror://cpan/authors/id/S/SH/SHLOMIF/IO-Socket-INET6-"
1200 version
1201 ".tar.gz"))
1202 (sha256
1203 (base32
1204 "1fqypz6qa5rw2d5y2zq7f49frwra0aln13nhq5gi514j2zx21q45"))))
1205 (build-system perl-build-system)
1206 (native-inputs
1207 `(("perl-module-build" ,perl-module-build)
1208 ("perl-test-pod" ,perl-test-pod)
1209 ("perl-test-pod-coverage" ,perl-test-pod-coverage)))
1210 (inputs `(("perl-socket6" ,perl-socket6)))
1211 (arguments `(;; Need network socket API
1212 #:tests? #f))
1213 (home-page
9aba9b12 1214 "https://metacpan.org/release/IO-Socket-INET6")
e818f321
DM		 1215 (synopsis
1216 "Perl object interface for AF_INET/AF_INET6 domain sockets")
1217 (description "IO::Socket::INET6 is an interface for AF_INET/AF_INET6 domain
1218sockets in Perl.")
2f3108ad 1219 (license license:perl-license)))
a1c83fef 1220
167a541f
TD		 1221(define-public libproxy
1222 (package
1223 (name "libproxy")
1224 (version "0.4.15")
1225 (source (origin
1226 (method url-fetch)
1227 (uri (string-append "https://github.com/libproxy/libproxy/"
1228 "releases/download/" version "/libproxy-"
1229 version ".tar.xz"))
1230 (sha256
1231 (base32
1232 "0kvdrazlzwia876w988cmlypp253gwy6idlh8mjk958c29jb8kb5"))))
1233 (build-system cmake-build-system)
1234 (native-inputs
1235 `(("pkg-config" ,pkg-config)))
1236 (inputs
1237 `(("dbus" ,dbus)
5ba17819 1238 ("zlib" ,zlib)))
167a541f
TD		 1239 (arguments
1240 `(#:phases
1241 (modify-phases %standard-phases
1242 (replace 'check
1243 (lambda _
366c1cbb 1244 (invoke "ctest" "-E" "url-test"))))))
167a541f
TD		 1245 (synopsis "Library providing automatic proxy configuration management")
1246 (description "Libproxy handles the details of HTTP/HTTPS proxy
1247configuration for applications across all scenarios. Applications using
1248libproxy only have to specify which proxy to use.")
1249 (home-page "https://libproxy.github.io/libproxy")
1250 (license license:lgpl2.1+)))
1251
a1c83fef 1252(define-public proxychains-ng
1253 (package
1254 (name "proxychains-ng")
223ef546 1255 (version "4.14")
a0b5c998
TGR		 1256 (source
1257 (origin
1258 (method url-fetch)
1259 (uri (string-append "http://ftp.barfooze.de/pub/sabotage/tarballs/"
110387f8 1260 "proxychains-ng-" version ".tar.xz"))
a0b5c998 1261 (sha256
223ef546 1262 (base32 "1bmhfbl1bzc87vl0xwr1wh5xvslfyc41nl2hqzhbj258p0sy004x"))))
a1c83fef 1263 (build-system gnu-build-system)
1264 (arguments
223ef546 1265 `(#:tests? #f ; there are no tests
a1c83fef 1266 #:phases
1267 (modify-phases %standard-phases
1268 (add-after 'unpack 'fix-configure-script
1269 (lambda _
1270 ;; The configure script is very intolerant to unknown arguments,
1271 ;; such as "CONFIG_SHELL".
1272 (substitute* "configure"
1273 (("\\*\\) break ;;" line)
1274 (string-append "[A-Z]*) shift ;;\n"
1275 line)))
a0b5c998
TGR		 1276 #t))
1277 (add-before 'configure 'set-up-environment
1278 (lambda _
1279 (setenv "CC" "gcc")
a1c83fef 1280 #t)))))
1281 (synopsis "Redirect any TCP connection through a proxy or proxy chain")
1282 (description "Proxychains-ng is a preloader which hooks calls to sockets
1283in dynamically linked programs and redirects them through one or more SOCKS or
1284HTTP proxies.")
1285 (home-page "https://github.com/rofl0r/proxychains-ng")
1286 (license license:gpl2+)))
93666cf7 1287
1288(define-public enet
1289 (package
1290 (name "enet")
3b990922 1291 (version "1.3.14")
93666cf7 1292 (source (origin
1293 (method url-fetch)
1294 (uri (string-append "http://enet.bespin.org/download/"
9aed8a1e 1295 "enet-" version ".tar.gz"))
93666cf7 1296 (sha256
1297 (base32
3b990922 1298 "0w780zc6cy8yq4cskpphx0f91lzh51vh9lwyc5ll8hhamdxgbxlq"))))
93666cf7 1299 (build-system gnu-build-system)
1300 (native-inputs
1301 `(("pkg-config" ,pkg-config)))
3b990922 1302 (synopsis "Network communication layer on top of UDP")
93666cf7 1303 (description
1304 "ENet's purpose is to provide a relatively thin, simple and robust network
1305communication layer on top of UDP. The primary feature it provides is optional
1306reliable, in-order delivery of packets. ENet omits certain higher level
1307networking features such as authentication, server discovery, encryption, or
1308other similar tasks that are particularly application specific so that the
1309library remains flexible, portable, and easily embeddable.")
1310 (home-page "http://enet.bespin.org")
1311 (license license:expat)))
4fb5f830
TGR		 1312
1313(define-public sslh
1314 (package
1315 (name "sslh")
2fe29c84 1316 (version "1.20")
925926ba
TGR		 1317 (source
1318 (origin
1319 (method git-fetch)
1320 (uri (git-reference
1321 (url "https://github.com/yrutschle/sslh.git")
1322 (commit (string-append "v" version))))
1323 (file-name (git-file-name name version))
1324 (sha256
2fe29c84 1325 (base32 "18zhkqlwfh6f5dg1a41a4p7p9g94dgb9nwls1ksy9r5yz174i2fx"))))
4fb5f830
TGR		 1326 (build-system gnu-build-system)
1327 (native-inputs
7eaa37a1 1328 `(;; Test dependencies.
4fb5f830
TGR		 1329 ("lcov" ,lcov)
1330 ("perl" ,perl)
2fe29c84 1331 ("perl-conf-libconfig" ,perl-conf-libconfig)
4fb5f830
TGR		 1332 ("perl-io-socket-inet6" ,perl-io-socket-inet6)
1333 ("perl-socket6" ,perl-socket6)
2fe29c84 1334 ("psmisc" ,psmisc))) ; for ‘killall’
4fb5f830
TGR		 1335 (inputs
1336 `(("libcap" ,libcap)
1337 ("libconfig" ,libconfig)
7eaa37a1 1338 ("pcre" ,pcre)
4fb5f830
TGR		 1339 ("tcp-wrappers" ,tcp-wrappers)))
1340 (arguments
1341 '(#:phases
1342 (modify-phases %standard-phases
1343 (delete 'configure) ; no configure script
1344 (add-before 'check 'fix-tests
2fe29c84
TGR		 1345 (lambda _
1346 (substitute* "./t"
1347 (("\"/tmp") "$ENV{\"TMPDIR\"} . \"")
1348 ;; The Guix build environment lacks ‘ip6-localhost’.
1349 (("ip6-localhost") "localhost"))
1350 #t))
4fb5f830
TGR		 1351 ;; Many of these files are mentioned in the man page. Install them.
1352 (add-after 'install 'install-documentation
2fe29c84
TGR		 1353 (lambda* (#:key outputs #:allow-other-keys)
1354 (let* ((out (assoc-ref outputs "out"))
1355 (doc (string-append out "/share/doc/sslh")))
1356 (install-file "README.md" doc)
1357 (for-each
1358 (lambda (file)
1359 (install-file file (string-append doc "/examples")))
1360 (append (find-files "." "\\.cfg")
1361 (find-files "scripts"))))
1362 #t)))
4fb5f830
TGR		 1363 #:make-flags (list "CC=gcc"
1364 "USELIBCAP=1"
1365 "USELIBWRAP=1"
1366 (string-append "PREFIX=" (assoc-ref %outputs "out")))
1367 #:test-target "test"))
7eaa37a1 1368 (home-page "https://www.rutschle.net/tech/sslh/README.html")
4fb5f830
TGR		 1369 (synopsis "Applicative network protocol demultiplexer")
1370 (description
1371 "sslh is a network protocol demultiplexer. It acts like a switchboard,
1372accepting connections from clients on one port and forwarding them to different
1373servers based on the contents of the first received data packet. Detection of
1374common protocols like HTTP(S), SSL, SSH, OpenVPN, tinc, and XMPP is already
1375implemented, but any other protocol that matches a regular expression can be
1376added. sslh's name comes from its original application of serving both SSH and
1377HTTPS on port 443, allowing SSH connections from inside corporate firewalls
1378that block port 22.")
1379 (license (list license:bsd-2 ; tls.[ch]
1380 license:gpl2+)))) ; everything else
b747718e
BS		 1381
1382(define-public iperf
1383 (package
1384 (name "iperf")
9c974c93 1385 (version "3.1.7")
b747718e
BS		 1386 (source (origin
1387 (method url-fetch)
1388 (uri (string-append "http://downloads.es.net/pub/iperf"
1389 "/iperf-" version ".tar.gz"))
1390 (sha256
1391 (base32
9c974c93 1392 "0kvk8d0a3dcxc8fisyprbn01y8akxj4sx8ld5dh508p9dx077vx4"))))
b747718e
BS		 1393 (build-system gnu-build-system)
1394 (synopsis "TCP, UDP and SCTP bandwidth measurement tool")
1395 (description
1396 "iPerf is a tool to measure achievable bandwidth on IP networks. It
1397supports tuning of various parameters related to timing, buffers and
1398protocols (TCP, UDP, SCTP with IPv4 and IPv6). For each test it reports
1399the bandwidth, loss, and other parameters.")
1400 (home-page "http://software.es.net/iperf/")
1401 (license (list license:bsd-3 ; Main distribution.
1402 license:ncsa ; src/{units,iperf_locale,tcp_window_size}.c
1403 license:expat ; src/{cjson,net}.[ch]
1404 license:public-domain)))) ; src/portable_endian.h
b7f3cf2c
AI		 1405
1406(define-public nethogs
1407 (package
1408 (name "nethogs")
1409 (version "0.8.5")
1410 (source (origin
1411 (method url-fetch)
1412 (uri (string-append "https://github.com/raboof/nethogs/archive/v"
1413 version ".tar.gz"))
1414 (sha256
1415 (base32
1416 "1k4x8r7s4dgcb6n2rjn28h2yyij92mwm69phncl3597cdxr954va"))
1417 (file-name (string-append name "-" version ".tar.gz"))))
1418 (build-system gnu-build-system)
1419 (inputs
1420 `(("libpcap" ,libpcap)
1421 ("ncurses" ,ncurses)))
1422 (arguments
1423 `(#:make-flags `("CC=gcc"
1424 ,(string-append "PREFIX=" %output))
1425 #:phases
1426 (modify-phases %standard-phases
1427 (delete 'configure)))) ; No ./configure script.
1428 (home-page "https://github.com/raboof/nethogs")
1429 (synopsis "Per-process bandwidth monitor")
1430 (description "NetHogs is a small 'net top' tool for Linux. Instead of
1431breaking the traffic down per protocol or per subnet, like most tools do, it
1432groups bandwidth by process.
1433
1434NetHogs does not rely on a special kernel module to be loaded. If there's
1435suddenly a lot of network traffic, you can fire up NetHogs and immediately see
1436which PID is causing this. This makes it easy to identify programs that have
1437gone wild and are suddenly taking up your bandwidth.")
1438 (license license:gpl2+)))
92ac2cff 1439
b3623b6f
RH		 1440(define-public nzbget
1441 (package
1442 (name "nzbget")
945b119f 1443 (version "20.0")
b3623b6f
RH		 1444 (source
1445 (origin
1446 (method url-fetch)
1447 (uri (string-append "https://github.com/nzbget/nzbget/archive/v"
1448 version ".tar.gz"))
1449 (file-name (string-append name "-" version ".tar.gz"))
1450 (sha256
1451 (base32
945b119f 1452 "0q93aqqyzccn5r9sny38499rmg846qdh9pi2v5kvf9m23v54yk60"))
657f1815
TGR		 1453 (modules '((guix build utils)))
1454 (snippet
1455 ;; Reported upstream as <https://github.com/nzbget/nzbget/pull/414>.
1456 '(begin
1457 (substitute* "daemon/connect/TlsSocket.cpp"
1458 (("gnutls_certificate-verification_status_print")
1459 "gnutls_certificate_verification_status_print"))
1460 #t))))
b3623b6f
RH		 1461 (arguments
1462 `(#:configure-flags
1463 (list
657f1815
TGR		 1464 (string-append "--with-libcurses-includes="
1465 (assoc-ref %build-inputs "ncurses") "/include")
1466 (string-append "--with-libcurses-libraries="
1467 (assoc-ref %build-inputs "ncurses") "/lib")
b3623b6f
RH		 1468 (string-append "--with-tlslib=GnuTLS"))))
1469 (build-system gnu-build-system)
c695fb76
TGR		 1470 (inputs `(("gnutls" ,gnutls)
1471 ("libxml2" ,libxml2)
1472 ("ncurses" ,ncurses)
1473 ("zlib" ,zlib)))
1474 (native-inputs `(("pkg-config" ,pkg-config)))
b3623b6f
RH		 1475 (home-page "https://github.com/nzbget/nzbget")
1476 (synopsis "Usenet binary file downloader")
1477 (description
1478 "NZBGet is a binary newsgrabber, which downloads files from Usenet based
1479on information given in @code{nzb} files. NZBGet can be used in standalone
1480and in server/client modes. In standalone mode, you pass NZBGet @command{nzb}
1481files as command-line parameters and it downloads them and exits. NZBGet also
1482contains a Web interface. Its server can be controlled through remote
1483procedure calls (RPCs).")
1484 (license license:gpl2+)))
1485
92ac2cff
SB		 1486(define-public openvswitch
1487 (package
1488 (name "openvswitch")
456ba274 1489 (version "2.11.1")
92ac2cff
SB		 1490 (source (origin
1491 (method url-fetch)
1492 (uri (string-append
034db237 1493 "https://www.openvswitch.org/releases/openvswitch-"
92ac2cff
SB		 1494 version ".tar.gz"))
1495 (sha256
1496 (base32
456ba274 1497 "1p5mv44jaslvrr1ym15smqna19y0gi4vqcsyj58625vv9bj6laf1"))))
92ac2cff
SB		 1498 (build-system gnu-build-system)
1499 (arguments
1500 '(;; FIXME: many tests fail with:
1501 ;; […]
1502 ;; test -e $OVS_RUNDIR/ovs-vswitchd.pid
1503 ;; ovs-appctl -t ovs-vswitchd exit
1504 ;; hard failure
1505 #:tests? #f
1506 #:configure-flags
1507 '("--enable-shared"
1508 "--localstatedir=/var"
1509 "--with-dbdir=/var/lib/openvswitch")
1510 #:phases
1511 (modify-phases %standard-phases
1512 (replace 'install
1513 (lambda _
366c1cbb
MW		 1514 (invoke "make"
1515 ;; Don't try to create directories under /var.
1516 "RUNDIR=/tmp"
1517 "PKIDIR=/tmp"
1518 "LOGDIR=/tmp"
1519 "DBDIR=/tmp"
1520 "install"))))))
92ac2cff
SB		 1521 (native-inputs
1522 `(("perl" ,perl)
1523 ("pkg-config" ,pkg-config)
1524 ("python" ,python-2)
1525 ;; for testing
1526 ("util-linux" ,util-linux)))
1527 (propagated-inputs
1528 `(("python-six" ,python2-six)))
1529 (inputs
1530 `(("libcap-ng" ,libcap-ng)
1531 ("openssl" ,openssl)))
1532 (synopsis "Virtual network switch")
034db237 1533 (home-page "https://www.openvswitch.org/")
92ac2cff
SB		 1534 (description
1535 "Open vSwitch is a multilayer virtual switch. It is designed to enable
1536massive network automation through programmatic extension, while still
1537supporting standard management interfaces and protocols (e.g. NetFlow, sFlow,
1538IPFIX, RSPAN, CLI, LACP, 802.1ag).")
1539 (license ; see debian/copyright for detail
1540 (list license:lgpl2.1 ; xenserver and utilities/bugtool
1541 license:gpl2 ; datapath
1542 license:bsd-2 license:bsd-3
1543 license:asl2.0)))) ; all other
38510546 1544
42c939a8
RW		 1545(define-public python-ipy
1546 (package
1547 (name "python-ipy")
47982ca9 1548 (version "1.00")
42c939a8
RW		 1549 (source (origin
1550 (method url-fetch)
1551 (uri (pypi-uri "IPy" version))
1552 (sha256
1553 (base32
47982ca9 1554 "08d6kcacj67mvh0b6y765ipccy6gi4w2ndd4v1l3im2qm1cgcarg"))))
42c939a8
RW		 1555 (build-system python-build-system)
1556 (home-page "https://github.com/autocracy/python-ipy/")
1557 (synopsis "Python class and tools for handling IP addresses and networks")
1558 (description "The @code{IP} class allows a comfortable parsing and
1559handling for most notations in use for IPv4 and IPv6 addresses and
1560networks.")
1561 (license license:bsd-3)))
1562
a4e7215d
DM		 1563(define-public python2-ipy
1564 (package-with-python2 python-ipy))
1565
38510546
PP		 1566(define-public speedtest-cli
1567 (package
1568 (name "speedtest-cli")
ef501bb1 1569 (version "2.1.1")
38510546
PP		 1570 (source
1571 (origin
b3740474
EF		 1572 (method git-fetch)
1573 (uri (git-reference
1574 (url "https://github.com/sivel/speedtest-cli")
1575 (commit (string-append "v" version))))
1576 (file-name (git-file-name name version))
38510546 1577 (sha256
ef501bb1 1578 (base32 "0swm7nbk99w2xf1cb0l3c8y1vm4rqw6785p5j04alyb0g98vqa4b"))))
38510546
PP		 1579 (build-system python-build-system)
1580 (home-page "https://github.com/sivel/speedtest-cli")
1581 (synopsis "Internet bandwidth tester")
1582 (description
1583 "Command line interface for testing internet bandwidth using
1584speedtest.net.")
1585 (license license:asl2.0)))
5b5cf3c7
GB		 1586
1587(define-public tftp-hpa
1588 (package
1589 (name "tftp-hpa")
1590 (version "5.2")
1591 (source (origin
1592 (method url-fetch)
1593 (uri (string-append "mirror://kernel.org/software/"
1594 "network/tftp/tftp-hpa/tftp-hpa-" version
1595 ".tar.xz"))
1596 (sha256
1597 (base32
1598 "12vidchglhyc20znq5wdsbhi9mqg90jnl7qr9qs8hbvaz4fkdvmg"))))
1599 (build-system gnu-build-system)
1600 (arguments `(#:tests? #f)) ; no test target
1601 (synopsis "HPA's tftp client")
1602 (description
1603 "This is a tftp client derived from OpenBSD tftp with some extra options
1604added and bugs fixed. The source includes readline support but it is not
1605enabled due to license conflicts between the BSD advertising clause and the GPL.")
1606 (home-page "http://git.kernel.org/cgit/network/tftp/tftp-hpa.git/about/")
1607 ;; Some source files are distributed under a 3-clause BSD license, and
1608 ;; others under a 4-clause BSD license. Refer to the files in the source
1609 ;; distribution for clarification.
1610 (license (list license:bsd-3 license:bsd-4))))
cc24bf98 1611
f2e12718 1612(define-public pidentd
1613 (package
1614 (name "pidentd")
1615 (version "3.0.19")
1616 (source
1617 (origin
1618 (method url-fetch)
1619 (uri (string-append "https://github.com/ptrrkssn/pidentd/archive/"
1620 "v" version ".tar.gz"))
1621 (file-name (string-append name "-" version ".tar.gz"))
1622 (sha256
1623 (base32
1624 "0y3kd1bkydqkpc1qdff24yswysamsqivvadjy0468qri5730izgc"))))
1625 (build-system gnu-build-system)
1626 (arguments
1627 `(#:tests? #f)) ; No tests are included
1628 (inputs
1629 `(("openssl" ,openssl))) ; For the DES library
1630 (home-page "https://www.lysator.liu.se/~pen/pidentd/")
1631 (synopsis "Small Ident Daemon")
1632 (description
1633 "@dfn{Pidentd} (Peter's Ident Daemon) is a identd, which implements a
1634identification server. Pidentd looks up specific TCP/IP connections and
1635returns the user name and other information about the connection.")
1636 (license license:public-domain)))
1637
cc24bf98
LF		 1638(define-public spiped
1639 (package
1640 (name "spiped")
1641 (version "1.6.0")
1642 (source (origin
1643 (method url-fetch)
1644 (uri (string-append "https://www.tarsnap.com/spiped/spiped-"
1645 version ".tgz"))
1646 (sha256
1647 (base32
1648 "1r51rdcl7nib1yv3yvgd5alwlkkwmr387brqavaklb0p2bwzixz6"))))
1649 (build-system gnu-build-system)
1650 (arguments
1651 '(#:test-target "test"
1652 #:make-flags (let* ((out (assoc-ref %outputs "out"))
1653 (bindir (string-append out "/bin"))
1654 (man1dir (string-append out "/share/man/man1")))
1655 (list "CC=gcc" ; It tries to invoke `c99`.
1656 (string-append "BINDIR=" bindir)
1657 (string-append "MAN1DIR=" man1dir)))
1658 #:phases
1659 (modify-phases %standard-phases
1660 (add-after 'unpack 'patch-command-invocations
1661 (lambda _
1662 (substitute* '("Makefile"
1663 "libcperciva/cpusupport/Build/cpusupport.sh"
1664 "libcperciva/POSIX/posix-cflags.sh"
1665 "libcperciva/POSIX/posix-l.sh")
1666 (("command -p") ""))
1667 #t))
1668 (delete 'configure) ; No ./configure script.
1669 (add-after 'install 'install-more-docs
1670 (lambda* (#:key outputs #:allow-other-keys)
1671 (let* ((out (assoc-ref %outputs "out"))
1672 (misc (string-append out "/share/doc/spiped")))
1673 (install-file "DESIGN.md" misc)
1674 #t))))))
1675 (native-inputs
1676 `(("procps" ,procps))) ; `ps` is used by the test suite.
1677 (inputs
1678 `(("openssl" ,openssl)))
1679 (home-page "https://www.tarsnap.com/spiped.html")
1680 (synopsis "Create secure pipes between sockets")
1681 (description "Spiped (pronounced \"ess-pipe-dee\") is a utility for creating
1682symmetrically encrypted and authenticated pipes between socket addresses, so
1683that one may connect to one address (e.g., a UNIX socket on localhost) and
1684transparently have a connection established to another address (e.g., a UNIX
1685socket on a different system). This is similar to 'ssh -L' functionality, but
1686does not use SSH and requires a pre-shared symmetric key.")
1687 (license license:bsd-2)))
c2700e78
GB		 1688
1689(define-public quagga
1690 (package
1691 (name "quagga")
75377c6c 1692 (version "1.2.4")
c2700e78
GB		 1693 (source (origin
1694 (method url-fetch)
1695 (uri (string-append "mirror://savannah/quagga/quagga-"
1696 version ".tar.gz"))
1697 (sha256
1698 (base32
75377c6c 1699 "1lsksqxij5f1llqn86pkygrf5672kvrqn1kvxghi169hqf1c0r73"))
c2700e78
GB		 1700 (patches
1701 (search-patches "quagga-reproducible-build.patch"))))
1702 (build-system gnu-build-system)
c695fb76
TGR		 1703 (native-inputs `(("pkg-config" ,pkg-config)
1704 ("perl" ,perl)
1705 ("dejagnu" ,dejagnu)))
1706 (inputs `(("readline" ,readline)
1707 ("c-ares" ,c-ares)))
c2700e78
GB		 1708 (synopsis "Routing Software Suite")
1709 (description "Quagga is a routing software suite, providing implementations
1710of OSPFv2, OSPFv3, RIP v1 and v2, RIPng and BGP-4 for Unix platforms.
1711
1712The Quagga architecture consists of a core daemon, @command{zebra}, which
1713acts as an abstraction layer to the underlying Unix kernel and presents the
1714Zserv API over a Unix or TCP stream to Quagga clients. It is these Zserv
1715clients which typically implement a routing protocol and communicate routing
1716updates to the zebra daemon.")
340978d7 1717 (home-page "https://www.nongnu.org/quagga/")
c2700e78 1718 (license license:gpl2+)))
4d9d9e3f
LF		 1719
1720(define-public thc-ipv6
491f7fc0
LF		 1721 (let ((revision "0")
1722 (commit "4bb72573e0950ce6f8ca2800a10748477020029e"))
1723 (package
1724 (name "thc-ipv6")
1725 (version (git-version "3.4" revision commit))
1726 (source (origin
1727 (method git-fetch)
1728 (uri (git-reference
1729 (url "https://github.com/vanhauser-thc/thc-ipv6.git")
1730 (commit commit)))
1731 (file-name (git-file-name name version))
1732 (sha256
1733 (base32
1734 "1x5i6vbsddqc2yks7r1a2fw2fk16qxvd6hpzh1lykjfpkal8fdir"))))
1735 (build-system gnu-build-system)
1736 (arguments
1737 `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1738 #:tests? #f ; No test suite.
1739 #:phases
1740 (modify-phases %standard-phases
1741 (delete 'configure) ; No ./configure script.
1742 (add-before 'build 'patch-paths
1743 (lambda _
1744 (substitute* "Makefile"
1745 (("/bin/echo") "echo"))
1746 #t))
1747 (add-after 'install 'install-more-docs
1748 (lambda* (#:key outputs #:allow-other-keys)
1749 (let* ((out (assoc-ref outputs "out"))
1750 (doc (string-append out "/share/thc-ipv6/doc")))
1751 (install-file "README" doc)
1752 (install-file "HOWTO-INJECT" doc)
1753 #t))))))
1754 ;; TODO Add libnetfilter-queue once packaged.
1755 (inputs
1756 `(("libpcap" ,libpcap)
1757 ("openssl" ,openssl)
1758 ("perl" ,perl)))
1759 (home-page "https://github.com/vanhauser-thc/thc-ipv6")
1760 (synopsis "IPv6 security research toolkit")
1761 (description "The THC IPv6 Toolkit provides command-line tools and a library
4d9d9e3f
LF		 1762for researching IPv6 implementations and deployments. It requires Linux 2.6 or
1763newer and only works on Ethernet network interfaces.")
491f7fc0
LF		 1764 ;; AGPL 3 with exception for linking with OpenSSL. See the 'LICENSE' file in
1765 ;; the source distribution for more information.
1766 (license license:agpl3))))
cfd6a3b1
AI		 1767
1768(define-public bmon
1769 (package
1770 (name "bmon")
1771 (version "4.0")
1772 (source
1773 (origin
1774 (method url-fetch)
1775 (uri (string-append "https://github.com/tgraf/bmon/releases/download/v"
1776 version "/bmon-" version ".tar.gz"))
1777 (sha256
1778 (base32
1779 "0ylzriv4pwh76344abzl1w219x188gshbycbna35gsyfp09c7z82"))))
1780 (build-system gnu-build-system)
1781 (inputs
1782 `(("libconfuse" ,libconfuse)
1783 ("libnl" ,libnl)
1784 ("ncurses" ,ncurses)))
1785 (native-inputs
1786 `(("pkg-config" ,pkg-config)))
1787 (synopsis "Bandwidth monitor")
1788 (description "bmon is a monitoring and debugging tool to capture
1789networking-related statistics and prepare them visually in a human-friendly
1790way. It features various output methods including an interactive curses user
1791interface and a programmable text output for scripting.")
1792 (home-page "https://github.com/tgraf/bmon")
1793 ;; README.md mentions both the 2-clause BSD and expat licenses, but all
1794 ;; the source files only have expat license headers. Upstream has been
1795 ;; contacted for clarification: https://github.com/tgraf/bmon/issues/59
1796 ;; Update the license field when upstream responds.
1797 (license (list license:bsd-2
1798 license:expat))))
de5308f5
RW		 1799
1800(define-public libnet
1801 (package
1802 (name "libnet")
3c85058c
RH		 1803 (version "1.2-rc3")
1804 (source
1805 (origin
1806 (method git-fetch)
1807 (uri (git-reference
1808 (url "https://github.com/sam-github/libnet")
1809 (commit (string-append "libnet-" version))))
1810 (file-name (git-file-name name version))
1811 (sha256
1812 (base32
1813 "0cy8w4g5rv963v4p6iq3333kxgdddx2lywp70xf62553a25xhhs4"))))
de5308f5
RW		 1814 (build-system gnu-build-system)
1815 (arguments
1816 `(#:phases
1817 (modify-phases %standard-phases
1818 (add-after 'unpack 'chdir
1819 (lambda _ (chdir "libnet") #t))
de5308f5
RW		 1820 (add-before 'build 'build-doc
1821 (lambda* (#:key make-flags #:allow-other-keys)
366c1cbb
MW		 1822 (apply invoke "make" "-C" "doc" "doc"
1823 make-flags))))))
de5308f5
RW		 1824 (native-inputs
1825 `(("autoconf" ,autoconf)
1826 ("automake" ,automake)
1827 ("libtool" ,libtool)
1828 ("doxygen" ,doxygen)))
1829 (home-page "https://sourceforge.net/projects/libnet-dev/")
1830 (synopsis "Framework for low-level network packet construction")
1831 (description
1832 "Libnet provides a fairly portable framework for network packet
1833construction and injection. It features portable packet creation interfaces
1834at the IP layer and link layer, as well as a host of supplementary
1835functionality. Using libnet, quick and simple packet assembly applications
1836can be whipped up with little effort.")
1837 (license license:bsd-2)))
b59a8fd4
TGR		 1838
1839(define-public mtr
1840 (package
1841 (name "mtr")
1842 (version "0.92")
1843 (source
1844 (origin
1845 (method url-fetch)
1846 (uri (string-append "ftp://ftp.bitwizard.nl/" name "/"
1847 name "-" version ".tar.gz"))
1848 (sha256
1849 (base32 "10j3ds3p27jygys4x08kj8fi3zlsgiv72xsfazkah6plwawrv5zj"))))
1850 (build-system gnu-build-system)
1851 (inputs
1852 `(("libcap" ,libcap)
1853 ("ncurses" ,ncurses)))
1854 (native-inputs
1855 ;; The 0.92 release tarball still requires the ‘autoheader’ tool.
1856 `(("autoconf" ,autoconf)))
1857 (arguments
1858 `(#:tests? #f)) ; tests require network access
1859 (home-page "https://www.bitwizard.nl/mtr/")
1860 (synopsis "Network diagnostic tool")
1861 (description
1862 "@dfn{mtr} (My TraceRoute) combines the functionality of the
1863@command{traceroute} and @command{ping} programs in a single network diagnostic
63f5656c
TGR		 1864tool. @command{mtr} can use several network protocols to detect intermediate
1865routers (or @dfn{hops}) between the local host and a user-specified destination.
1866It then continually measures the response time and packet loss at each hop, and
b59a8fd4
TGR		 1867displays the results in real time.")
1868 (license license:gpl2+)))
5f645557
AVY		 1869
1870(define-public strongswan
1871 (package
1872 (name "strongswan")
52135e59 1873 (version "5.6.3")
5f645557
AVY		 1874 (source
1875 (origin
1876 (method url-fetch)
1877 (uri (string-append "https://download.strongswan.org/strongswan-"
1878 version ".tar.bz2"))
1879 (sha256
52135e59 1880 (base32 "095zg7h7qwsc456sqgwb1lhhk29ac3mk5z9gm6xja1pl061driy3"))))
5f645557
AVY		 1881 (build-system gnu-build-system)
1882 (arguments
1883 `(#:phases
1884 (modify-phases %standard-phases
58246f96 1885 (add-before 'build 'patch-command-file-names
5f645557 1886 (lambda* (#:key inputs #:allow-other-keys)
5f645557
AVY		 1887 (substitute* "src/libstrongswan/utils/process.c"
1888 (("/bin/sh")
1889 (string-append (assoc-ref inputs "bash") "/bin/sh")))
1890
1891 (substitute* "src/libstrongswan/tests/suites/test_process.c"
1892 (("/bin/sh") (which "sh"))
1893 (("/bin/echo") (which "echo"))
1894 (("cat") (which "cat")))
58246f96
TGR		 1895 #t))
1896 (add-before 'check 'set-up-test-environment
1897 (lambda* (#:key inputs #:allow-other-keys)
5f645557
AVY		 1898 (setenv "TZDIR" (string-append (assoc-ref inputs "tzdata")
1899 "/share/zoneinfo"))
1900 #t)))
1901 #:configure-flags
1902 (list
1903 ;; Disable bsd-4 licensed plugins
1904 "--disable-des"
1905 "--disable-blowfish")))
1906 (inputs
1907 `(("curl" ,curl)
1908 ("gmp" ,gmp)
1909 ("libgcrypt" ,libgcrypt)
1910 ("openssl" ,openssl)))
1911 (native-inputs
1912 `(("coreutils" ,coreutils)
1bab7340 1913 ("tzdata" ,tzdata-for-tests)))
5f645557
AVY		 1914 (synopsis "IKEv1/v2 keying daemon")
1915 (description "StrongSwan is an IPsec implementation originally based upon
1916the FreeS/WAN project. It contains support for IKEv1, IKEv2, MOBIKE, IPv6,
1917NAT-T and more.")
1918 (home-page "https://strongswan.org/")
1919 (license
1920 (list license:gpl2+
1921 ;; src/aikgen/*
1922 ;; src/libcharon/plugins/dnscert/*
1923 ;; src/libcharon/plugins/ext_auth/*
1924 ;; src/libcharon/plugins/vici/ruby/*
1925 ;; src/libcharon/plugins/xauth_pam/xauth_pam_listener.[ch]
1926 license:expat
1927 ;; src/inclue/sys/*
1928 license:bsd-3
1929 ;; src/libstrongswan/plugins/sha3/sha3_keccak.c
1930 license:public-domain
1931 ;; src/libstrongswan/plugins/pkcs11/pkcs11.h
1932 (license:non-copyleft
1933 "file://src/libstrongswan/plugins/pkcs11/pkcs11.h"
1934 "pkcs11 contains a unknown permissive license. View the specific
1935file for more details.")
1936 ;; These files are not included in the
1937 ;; build, they are disabled through
1938 ;; options to ./configure
1939 ;;
1940 ;; src/libstrongswan/plugins/blowfish/bf_enc.c
1941 ;; src/libstrongswan/plugins/blowfish/bf_locl.h
1942 ;; src/libstrongswan/plugins/blowfish/bf_pi.h
1943 ;; src/libstrongswan/plugins/blowfish/bf_skey.c
1944 ;; src/libstrongswan/plugins/blowfish/blowfish_crypter.c
1945 ;; src/libstrongswan/plugins/des/des_crypter.c
1946 license:bsd-4))))
1170198d 1947
1948(define-public amule
1949 (package
1950 (name "amule")
1951 (version "2.3.2")
1952 (source (origin
d25a4876
EF		 1953 (method git-fetch)
1954 (uri (git-reference
1955 (url "https://github.com/amule-project/amule")
1956 (commit version)))
1957 (file-name (git-file-name name version))
1170198d 1958 (sha256
1959 (base32
d25a4876 1960 "010wxm6g9f92x6fympj501zbnjka32rzbx0sk3a2y4zpih5d2nsn"))
1170198d 1961 ;; Patch for adopting crypto++ >= 6.0.
1962 (patches (search-patches "amule-crypto-6.patch"))))
1963 (build-system gnu-build-system)
1964 (arguments
1965 `(#:phases
1966 (modify-phases %standard-phases
fc1ed8c1 1967 (delete 'bootstrap) ; bootstrap phase runs too early.
1170198d 1968 (add-after 'patch-source-shebangs 'autogen
1969 (lambda _
1970 (invoke "sh" "autogen.sh")
1971 #t)))
1972 #:configure-flags
1973 '("--disable-rpath"
1974 "--enable-wxcas"
1975 "--enable-cas"
1976 "--enable-alc"
1977 "--enable-alcc"
1978 "--enable-xas"
1979 "--enable-amulecmd"
1980 "--enable-geoip"
1981 "--enable-ccache"
1982 "--enable-nls"
1983 "--enable-optimize"
1984 "--enable-amule-gui"
1985 "--enable-amule-daemon"
1986 "--enable-webserver"
1987 "--with-denoise-level=0")))
1988 (native-inputs
1989 `(("autoconf" ,autoconf)
1990 ("automake" ,automake)
1991 ("gettext-minimal" ,gettext-minimal)
1992 ("perl" ,perl)))
1993 (inputs
1994 `(("zlib" ,zlib)
1995 ("crypto++" ,crypto++)
1996 ("libpng" ,libpng)
de99ba7e 1997 ("wxwidgets-gtk2" ,wxwidgets-gtk2)))
1170198d 1998 (home-page "http://amule.org/")
1999 (synopsis "Peer-to-peer client for the eD2K and Kademlia networks")
2000 (description
2001 "aMule is an eMule-like client for the eD2k and Kademlia peer-to-peer
2002file sharing networks. It includes a graphical user interface (GUI), a daemon
2003allowing you to run a client with no graphical interface, and a Web GUI for
2004remote access. The @command{amulecmd} command allows you to control aMule
2005remotely.")
2006 (license license:gpl2+)))
d282fee5
T		 2007
2008(define-public zyre
2009 (package
2010 (name "zyre")
2011 (version "2.0.0")
2012 (source (origin
2013 (method url-fetch)
2014 (uri
2015 (string-append "https://github.com/zeromq/zyre/releases/download/v"
2016 version "/" name "-" version ".tar.gz"))
2017 (sha256
2018 (base32
2019 "0qz2730bng1gs9xbqxhkw88qbsmszgmmrl2g9k6xrg6r3bqvsdc7"))))
2020 (build-system gnu-build-system)
2021 (inputs `(("zeromq" ,zeromq)
2022 ("czmq" ,czmq)
2023 ("libsodium" ,libsodium)))
2024 (synopsis "Framework for proximity-based peer-to-peer applications")
2025 (description "Zyre provides reliable group messaging over local area
2026networks using zeromq. It has these key characteristics:
2027
2028@itemize
2029@item Zyre needs no administration or configuration.
2030@item Peers may join and leave the network at any time.
2031@item Peers talk to each other without any central brokers or servers.
2032@item Peers can talk directly to each other.
2033@item Peers can join groups, and then talk to groups.
2034@item Zyre is reliable, and loses no messages even when the network is heavily loaded.
2035@item Zyre is fast and has low latency, requiring no consensus protocols.
2036@item Zyre is designed for WiFi networks, yet also works well on Ethernet networks.
2037@end itemize")
2038 (home-page "https://github.com/zeromq/zyre")
2039 (license license:mpl2.0)))
f1656a59
DM		 2040
2041(define-public can-utils
2042 (package
2043 (name "can-utils")
2044 (version "2018.02.0")
2045 (source (origin
2046 (method git-fetch)
2047 (uri (git-reference
2048 (url "https://github.com/linux-can/can-utils.git")
2049 (commit (string-append "v" version))))
2050 (file-name (git-file-name name version))
2051 (sha256
2052 (base32
2053 "0r0zkm67bdcmbfypjr7z041d4zp0xzb379dyl8cvhmflh12fd2jb"))))
2054 (build-system gnu-build-system)
2055 (arguments
2056 `(#:tests? #f ; No tests exist.
2057 #:make-flags (list "CC=gcc"
2058 (string-append "PREFIX="
2059 (assoc-ref %outputs "out")))
2060 #:phases
2061 (modify-phases %standard-phases
a34dfa24 2062 (delete 'bootstrap)
f1656a59
DM		 2063 (delete 'configure))))
2064 (home-page "https://github.com/linux-can/can-utils")
2065 (synopsis "CAN utilities")
2066 (description "This package provides CAN utilities in the following areas:
2067
2068@itemize
2069@item Basic tools to display, record, generate and replay CAN traffic
2070@item CAN access via IP sockets
2071@item CAN in-kernel gateway configuration
2072@item CAN bus measurement and testing
2073@item ISO-TP (ISO15765-2:2016 - this means messages with a body larger than
2074eight bytes) tools
2075@item Log file converters
2076@item Serial Line Discipline configuration for slcan driver
2077@end itemize")
2078 ;; Either BSD-3 or GPL-2 can be used.
2079 (license (list license:bsd-3 license:gpl2))))
d597dda6
NG		 2080
2081(define-public asio
2082 (package
2083 (name "asio")
9d391ccd 2084 (version "1.12.2")
d597dda6
NG		 2085 (source
2086 (origin
cb9da5d1
TGR		 2087 (method url-fetch)
2088 (uri (string-append "mirror://sourceforge/asio/asio/"
74a3ce30 2089 version " (Stable)/asio-" version ".tar.bz2"))
d597dda6 2090 (sha256
9d391ccd 2091 (base32 "1akray4l3hgahmb92sbvsqg128c7g7s92jrkf1sp1fjnfjrxq9sf"))))
d597dda6 2092 (build-system gnu-build-system)
d597dda6
NG		 2093 (inputs
2094 `(("boost" ,boost)
2095 ("openssl" ,openssl)))
2096 (arguments
2097 `(#:configure-flags
2098 (list
2099 (string-append "--with-boost=" (assoc-ref %build-inputs "boost"))
cb9da5d1 2100 (string-append "--with-openssl=" (assoc-ref %build-inputs "openssl")))))
d597dda6
NG		 2101 (home-page "https://think-async.com/Asio")
2102 (synopsis "C++ library for ASynchronous network I/O")
2103 (description "Asio is a cross-platform C++ library for network and
2104low-level I/O programming that provides developers with a consistent
2105asynchronous model using a modern C++ approach.")
2106 (license license:boost1.0)))
0017e55f 2107
2108(define-public shadowsocks
2109 ;; There are some security fixes after the last release.
2110 (let* ((commit "e332ec93e9c90f1cbee676b022bf2c5d5b7b1239")
2111 (revision "0")
2112 (version (git-version "2.8.2" revision commit)))
2113 (package
2114 (name "shadowsocks")
2115 (version version)
2116 (home-page "https://github.com/shadowsocks/shadowsocks")
2117 (source (origin
2118 (method git-fetch)
2119 (uri (git-reference
2120 (url home-page)
2121 (commit commit)))
2122 (sha256
2123 (base32
2124 "1idd9b4f2pnhcpk1bh030hqg5zq25gkwxd53xi3c0cj242w7sp2j"))
2125 (file-name (git-file-name name version))))
2126 (build-system python-build-system)
2127 (synopsis "Fast tunnel proxy that helps you bypass firewalls")
2128 (description
2129 "This package is a fast tunnel proxy that helps you bypass firewalls.
2130
2131Features:
2132@itemize
2133@item TCP & UDP support
2134@item User management API
2135@item TCP Fast Open
2136@item Workers and graceful restart
2137@item Destination IP blacklist
2138@end itemize")
2139 (license license:asl2.0))))
a8253fbe
RW		 2140
2141(define-public net-snmp
2142 (package
2143 (name "net-snmp")
2144 (version "5.8")
2145 (source (origin
2146 (method url-fetch)
2147 (uri (string-append "mirror://sourceforge/net-snmp/net-snmp/"
2148 version "/net-snmp-" version ".tar.gz"))
2149 (sha256
2150 (base32
2151 "1pvajzj9gmj56dmwix0ywmkmy2pglh6nny646hkm7ghfhh03bz5j"))
2152 (modules '((guix build utils)))
2153 (snippet
2154 '(begin
2155 ;; Drop bundled libraries.
2156 (delete-file-recursively "snmplib/openssl")
2157 #t))))
2158 (build-system gnu-build-system)
2159 (arguments
2160 `(#:test-target "test"
2161 ;; XXX: With parallel build enabled, Perl modules may not get linked with
2162 ;; libnetsnmp. See e.g. <https://bugzilla.novell.com/show_bug.cgi?id=819497>.
2163 #:parallel-build? #f
2164 #:configure-flags
2165 (list (string-append "LDFLAGS=-Wl,-rpath="
2166 (assoc-ref %outputs "out")
2167 "/lib")
b5d1286f
OP		 2168 "--with-logfile=/var/log/snmpd.log"
2169 (string-append "--with-openssl="
2170 (assoc-ref %build-inputs "openssl")))
a8253fbe
RW		 2171 #:phases
2172 (modify-phases %standard-phases
2173 (add-after 'unpack 'patch-tests
2174 (lambda* (#:key inputs #:allow-other-keys)
2175 (substitute* "testing/fulltests/support/simple_TESTCONF.sh"
2176 (("NETSTAT=\"\"")
2177 (string-append "NETSTAT=\"" (which "netstat") "\"")))
2178 (substitute* '("testing/fulltests/default/T065agentextend_simple"
2179 "testing/fulltests/default/T115agentxperl_simple")
2180 (("/usr/bin/env") (which "env")))
2181 (substitute* "testing/fulltests/default/T065agentextend_sh_simple"
2182 (("/bin/sh") (which "sh")))
2183 ;; These tests require network access.
2184 (for-each delete-file
2185 '("testing/fulltests/default/T070com2sec_simple"
2186 "testing/fulltests/default/T071com2sec6_simple"))
2187 #t))
2188 (add-after 'unpack 'patch-Makefile.PL
2189 (lambda* (#:key outputs #:allow-other-keys)
2190 (substitute* "Makefile.in"
2191 (("Makefile.PL -NET")
2192 (string-append "Makefile.PL PREFIX="
2193 (assoc-ref outputs "out")
2194 " INSTALLDIRS=site" " NO_PERLLOCAL=1"
2195 " -NET")))
2196 #t)))))
2197 (inputs
2198 `(("perl" ,perl)
2199 ("openssl" ,openssl)
2200 ("libnl" ,libnl)))
2201 ;; These inputs are only needed for tests.
2202 (native-inputs
2203 `(("net-tools" ,net-tools)
2204 ("coreutils" ,coreutils)
2205 ("grep" ,grep)))
2206 (home-page "http://www.net-snmp.org/")
2207 (synopsis "Simple Network Management Protocol library and tools")
2208 (description "The @dfn{Simple Network Management Protocol} (SNMP) is a
2209widely used protocol for monitoring the health and welfare of network
2210equipment (e.g. routers), computer equipment and even devices like UPSs.
2211Net-SNMP is a suite of applications used to implement SNMP v1, SNMP v2c and
2212SNMP v3 using both IPv4 and IPv6.")
2213 (license (list license:bsd-3
2214 (license:non-copyleft
2215 "http://www.net-snmp.org/about/license.html"
2216 "CMU/UCD copyright notice")))))
277f25ce
OP		 2217
2218(define-public ubridge
2219 (package
2220 (name "ubridge")
e8e2281e 2221 (version "0.9.15")
5af7428b
TGR		 2222 (source
2223 (origin
2224 (method git-fetch)
2225 (uri (git-reference
2226 (url "https://github.com/GNS3/ubridge.git")
2227 (commit (string-append "v" version))))
2228 (file-name (git-file-name name version))
2229 (sha256
2230 (base32 "0fl07zyall04map6v2l1bclqh8y3rrhsx61s2v0sr8b00j201jg4"))))
277f25ce
OP		 2231 (build-system gnu-build-system)
2232 (arguments
5af7428b 2233 `(#:tests? #f ; no tests
277f25ce
OP		 2234 #:make-flags '("CC=gcc")
2235 #:phases
2236 (modify-phases %standard-phases
5af7428b 2237 (delete 'configure) ; no configure script
277f25ce
OP		 2238 (add-before 'install 'set-bindir
2239 (lambda* (#:key inputs outputs #:allow-other-keys)
2240 (let ((bin (string-append (assoc-ref outputs "out")
2241 "/bin")))
2242 (mkdir-p bin)
2243 (substitute* "Makefile"
2244 (("\\$\\(BINDIR\\)") bin)
2245 (("\tsetcap cap_net.*$") "")))
2246 #t)))))
2247 (inputs
2248 `(("libpcap" ,libpcap)))
2249 (home-page "https://github.com/GNS3/ubridge/")
2250 (synopsis "Bridge for UDP tunnels, Ethernet, TAP and VMnet interfaces")
2251 (description "uBridge is a simple program to create user-land bridges
2252between various technologies. Currently, bridging between UDP tunnels,
2253Ethernet and TAP interfaces is supported. Packet capture is also supported.")
2254 (license license:gpl3+)))
5bd3134e
PN		 2255
2256(define-public hcxtools
03c443ce
TGR		 2257 (package
2258 (name "hcxtools")
6807d6a9 2259 (version "5.1.6")
03c443ce
TGR		 2260 (source
2261 (origin
2262 (method git-fetch)
2263 (uri (git-reference
2264 (url "https://github.com/ZerBea/hcxtools.git")
2265 (commit version)))
2266 (sha256
6807d6a9 2267 (base32 "05sjbmv2wq3nlmammrwxqc62c4sagjjgczzddr1jcqkf6kywzkl8"))
03c443ce
TGR		 2268 (file-name (git-file-name name version))))
2269 (build-system gnu-build-system)
2270 (inputs
2271 `(("curl" ,curl)
2272 ("libpcap" ,libpcap)
2273 ("openssl" ,openssl)
2274 ("zlib" ,zlib)))
2275 (arguments
2276 `(#:make-flags
2277 (list "CC=gcc"
2278 (string-append "INSTALLDIR=" (assoc-ref %outputs "out") "/bin"))
2279 #:tests? #f ; no test suite
2280 #:phases
2281 (modify-phases %standard-phases
2282 (delete 'configure)
2283 (add-after 'unpack 'set-environment
2284 (lambda* (#:key inputs #:allow-other-keys)
2285 (setenv "C_INCLUDE_PATH"
2286 (string-append (assoc-ref inputs "curl") "/include:"
2287 (assoc-ref inputs "libpcap") "/include:"
2288 (assoc-ref inputs "openssl") "/include:"
2289 (assoc-ref inputs "zlib") "/include:"
5bd3134e
PN		 2290 (getenv "C_INCLUDE_PATH")))
2291 #t)))))
03c443ce
TGR		 2292 (home-page "https://github.com/ZerBea/hcxtools")
2293 (synopsis "Capture wlan traffic to hashcat and John the Ripper")
2294 (description
2295 "This package contains a small set of tools to capture and convert
5bd3134e 2296packets from wireless devices for use with hashcat or John the Ripper.")
03c443ce 2297 (license license:expat)))
a87ee0e4
PN		 2298
2299(define-public hcxdumptool
4f7db085
TGR		 2300 (package
2301 (name "hcxdumptool")
a0f2c945 2302 (version "5.1.5")
4f7db085
TGR		 2303 (source
2304 (origin
2305 (method git-fetch)
2306 (uri (git-reference
2307 (url "https://github.com/ZerBea/hcxdumptool.git")
2308 (commit version)))
2309 (sha256
a0f2c945 2310 (base32 "0xkzdvwpi6dq9wsrn882f2ljb7d5v2bvarq8gs6jm8znfx3y8hi2"))
4f7db085
TGR		 2311 (file-name (git-file-name name version))))
2312 (build-system gnu-build-system)
2313 (arguments
2314 `(#:make-flags
2315 (list "CC=gcc"
2316 (string-append "INSTALLDIR=" (assoc-ref %outputs "out") "/bin"))
2317 #:tests? #f ; no test suite
2318 #:phases
2319 (modify-phases %standard-phases
2320 (delete 'configure))))
2321 (home-page "https://github.com/ZerBea/hcxdumptool")
2322 (synopsis "Small tool to capture packets from wlan devices")
2323 (description
2324 "Small tool to capture packets from WLAN devices. After capturing,
a87ee0e4
PN		 2325upload the \"uncleaned\" cap to @url{https://wpa-sec.stanev.org/?submit} to
2326see if the access point or the client is vulnerable to a dictionary attack.
2327Convert the cap file to hccapx format and/or to WPA-PMKID-PBKDF2
2328hashline (16800) with @command{hcxpcaptool} from the @code{hcxtools} package
2329and check if the WLAN key or the master key was transmitted unencrypted.")
4f7db085 2330 (license license:expat)))
2913a942
AI		 2331
2332(define-public dante
2333 (package
2334 (name "dante")
2335 (version "1.4.2")
2336 (source
2337 (origin
2338 (method url-fetch)
2339 (uri (string-append "https://www.inet.no/dante/files/dante-"
2340 version ".tar.gz"))
2341 (sha256
2342 (base32
2343 "19rqzj167q73ag20zxpvswhkk0bj56r5maf83v5016sw7vrcz5sc"))))
2344 (build-system gnu-build-system)
7789bf95
SB		 2345 (arguments
2346 ;; XXX: The dynamic socks library doesn't work with 'libc.so' (GNU ld
2347 ;; script). When preloading is enabled, 'sockd' failed with:
2348 ;; … Failed to open library "libc.so": …: invalid ELF header
2349 '(#:configure-flags '("--disable-preload")))
2913a942
AI		 2350 (home-page "https://www.inet.no/dante/")
2351 (synopsis "SOCKS server and client")
2352 (description "Dante is a SOCKS client and server implementation. It can
2353be installed on a machine with access to an external TCP/IP network and will
2354allow all other machines, without direct access to that network, to be relayed
2355through the machine the Dante server is running on. The external network will
2356never see any machines other than the one Dante is running on.")
2357 (license (license:non-copyleft "file://LICENSE"))))
362fba83
PN		 2358
2359(define-public restbed
2360 (let ((commit "6eb385fa9051203f28bf96cc1844bbb5a9a6481f"))
2361 (package
2362 (name "restbed")
2363 (version (git-version "4.6" "1" commit))
2364 (source
2365 (origin
2366 (method git-fetch)
2367 (uri (git-reference
2368 (url "https://github.com/Corvusoft/restbed/")
2369 (commit commit)))
2370 (file-name (string-append name "-" version ".tar.gz"))
2371 (sha256
2372 (base32 "0k60i5drklqqrb4khb25fzkgz9y0sncxf1sp6lh2bm1m0gh0661n"))))
2373 (build-system cmake-build-system)
2374 (inputs
2375 `(("asio" ,asio)
2376 ("catch" ,catch-framework)
2377 ("openssl" ,openssl)))
2378 (arguments
2379 `(#:tests? #f
2380 #:configure-flags
2381 '("-DBUILD_TESTS=NO"
2382 "-DBUILD_EXAMPLES=NO"
2383 "-DBUILD_SSL=NO"
2384 "-DBUILD_SHARED=NO")
2385 #:phases
2386 (modify-phases %standard-phases
2387 (add-after 'unpack 'apply-patches-and-fix-paths
2388 (lambda* (#:key inputs #:allow-other-keys)
2389 (let ((asio (assoc-ref inputs "asio"))
2390 (catch (assoc-ref inputs "catch"))
2391 (openssl (assoc-ref inputs "openssl")))
2392 (substitute* "cmake/Findasio.cmake"
2393 (("(find_path\\( asio_INCLUDE asio\\.hpp HINTS ).*$" all begin)
2394 (string-append begin " \"" asio "/include\" )")))
2395 (substitute* "cmake/Findcatch.cmake"
2396 (("(find_path\\( catch_INCLUDE catch\\.hpp HINTS ).*$" all begin)
2397 (string-append begin " \"" catch "/include\" )")))
2398 (substitute* "cmake/Findopenssl.cmake"
2399 (("(find_library\\( ssl_LIBRARY ssl ssleay32 HINTS ).*$" all begin)
2400 (string-append begin " \"" openssl "/lib\" )"))
2401 (("(find_library\\( crypto_LIBRARY crypto libeay32 HINTS ).*$" all begin)
2402 (string-append begin " \"" openssl "/lib\" )"))
2403 (("(find_path\\( ssl_INCLUDE openssl/ssl\\.h HINTS ).*$" all begin)
2404 (string-append begin " \"" openssl "/include\" )")))))))))
2405 (synopsis "Asynchronous RESTful functionality to C++11 applications")
2406 (description "Restbed is a comprehensive and consistent programming
2407model for building applications that require seamless and secure
2408communication over HTTP.")
2409 (home-page "https://github.com/Corvusoft/restbed")
2410 (license license:agpl3+))))
e0fa6413
PN		 2411
2412(define-public opendht
2413 (package
2414 (name "opendht")
2415 (version "1.8.1")
2416 (source (origin
2417 (method git-fetch)
2418 (uri (git-reference
2419 (url "https://github.com/savoirfairelinux/opendht.git")
2420 (commit version)))
2421 (file-name (git-file-name name version))
2422 (sha256
2423 (base32
2424 "0vninb5mak27wigajslyvr05vq7wbrwqhbr4wzl2nmqcb20wmlq2"))))
2425 (build-system gnu-build-system)
2426 (inputs
2427 `(("gnutls" ,gnutls)
2428 ("nettle" ,nettle)
2429 ("readline" ,readline)
e0fa6413
PN		 2430 ("jsoncpp" ,jsoncpp)
2431 ("restbed" ,restbed)))
2432 (propagated-inputs
1ac0c1b8
PN		 2433 `(("argon2" ,argon2) ; TODO: Needed for the pkg-config .pc file to work?
2434 ("msgpack" ,msgpack))) ;included in several installed headers
e0fa6413
PN		 2435 (native-inputs
2436 `(("autoconf" ,autoconf)
2437 ("pkg-config" ,pkg-config)
2438 ("automake" ,automake)
2439 ("libtool" ,libtool)))
2440 (arguments
2441 `(#:configure-flags '("--disable-tools"
2442 "--disable-python"
2443 "--with-argon2")))
2444 (home-page "https://github.com/savoirfairelinux/opendht/")
2445 (synopsis "Distributed Hash Table (DHT) library")
2446 (description "OpenDHT is a Distributed Hash Table (DHT) library. It may
2447be used to manage peer-to-peer network connections as needed for real time
2448communication.")
2449 (license license:gpl3+)))
dbf87ecb
GB		 2450
2451(define-public frrouting
2452 (package
2453 (name "frrouting")
2454 (version "6.0.2")
2455 (source (origin
2456 (method url-fetch)
2457 (uri (string-append "https://github.com/FRRouting/frr/releases/"
2458 "download/frr-" version "/frr-" version
2459 ".tar.xz"))
2460 (sha256
2461 (base32
2462 "0xfrvi62w8qlh46f504ka0skb7pm0g0p8vmdng4w90gsbirlzpdd"))))
2463 (build-system gnu-build-system)
2464 (inputs
2465 `(("c-ares" ,c-ares)
2466 ("json-c" ,json-c)
2467 ("readline" ,readline)))
2468 (native-inputs
2469 `(("perl" ,perl)
2470 ("pkg-config" ,pkg-config)
2471 ("python" ,python-wrapper)
2472 ("python-pytest" ,python-pytest)))
2473 (home-page "https://frrouting.org/")
2474 (synopsis "IP routing protocol suite")
2475 (description "FRRouting (FRR) is an IP routing protocol suite which includes
2476protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP. ")
2477 (license license:gpl2+)))
jackhill's copy of GNU Guix: https://guix.gnu.org/