aboutsummaryrefslogtreecommitdiff
path: root/etc/historical-authorizations
blob: 429054c9a5f4e7bae88f9515075765257a7fd5d1 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
;; List of "historical" committers---people once authorized committers before
;; the '.guix-authorizations' file was created.
;;
;; This file is provided for historical and auditing purposes.  It is known
;; good starting at least at 'v1.0.0'.
;;
;; The format is the same as for '.guix-authorizations'.  User names are those
;; found on <https://savannah.gnu.org/project/memberlist.php?group=guix> along
;; with the fingerprint of the signing (sub)key.

(authorizations
 (version 0)

 (("AD17 A21E F8AE D8F1 CC02  DBD9 F7D5 C9BF 765C 61E3"
   (name "andreas"))
  ("2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"
   (name "ajgrf"))
  ("306F CB8F 2C01 C25D 29D3  0556 61EF 502E F602 52F2"
   (name "alexvong1995"))
  ("4FB9 9F49 2B12 A365 7997  E664 8246 0C08 2A0E E98F"
   (name "alezost"))
  ("50F3 3E2E 5B0C 3D90 0424  ABE8 9BDC F497 A4BB CC7F"
   (name "ambrevar"))
  ("27D5 86A4 F890 0854 329F  F09F 1260 E464 82E6 3562"
   (name "apteryx"))
  ("7F73 0343 F2F0 9F3C 77BF  79D3 2E25 EE8B 6180 2BB3"
   (name "arunisaac"))
  (;; primary: "3B12 9196 AE30 0C3C 0E90  A26F A715 5567 3271 9948"
   "9A2B 401E D001 0650 1584  BAAC 8BC4 F447 6E8A 8E00"
   (name "atheia"))
  (;; primary: "BE62 7373 8E61 6D6D 1B3A  08E8 A21A 0202 4881 6103"
   "39B3 3C8D 9448 0D2D DCC2  A498 8B44 A0CD C7B9 56F2"
   (name "bandali"))
  (;; primary: "34FF 38BC D151 25A6 E340  A0B5 3453 2F9F AFCA 8B8E"
   "A0C5 E352 2EF8 EF5C 64CD  B7F0 FD73 CAC7 19D3 2566"
   (name "bavier"))
  ("3774 8024 880F D3FF DCA2  C9AB 5893 6E0E 2F1B 5A4C"
   (name "beffa"))
  ("BCF8 F737 2CED 080A 67EB  592D 2A6A D9F4 AAC2 0DF6"
   (name "benwoodcroft"))
  ("45CC 63B8 5258 C9D5 5F34  B239 D37D 0EA7 CECC 3912"
   (name "biscuolo"))
  ("7988 3B9F 7D6A 4DBF 3719  0367 2506 A96C CF63 0B21"
   (name "boskovits"))
  ("DFC0 C7F7 9EE6 0CA7 AE55  5E19 6722 43C4 A03F 0EEE"
   (name "brettgilio"))
  (;; primary: "0401 7A2A 6D9A 0CCD C81D  8EC2 96AB 007F 1A7E D999"
   "09CD D25B 5244 A376 78F6  EEA8 0CC5 2153 1979 91A5"
   (name "carl"))
  ("3E89 EEE7 458E 720D 9754  E0B2 5E28 A33B 0B84 F577"
   (name "cbaines"))
  ("3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"
   (name "civodul"))
  ("510A 8628 E2A7 7678 8F8C  709C 4BC0 2592 5FF8 F4D3"
   (name "cwebber"))
  (;; primary: "295A F991 6F46 F8A1 34B0  29DA 8086 3842 F0FE D83B"
   "76CE C6B1 7274 B465 C02D  B3D9 E71A 3554 2C30 BAA5"
   (name "dannym"))
  ("B3C0 DB4D AD73 BA5D 285E  19AE 5143 0234 CEFD 87C3"
   (name "davexunit"))
  (                              ;FIXME: to be confirmed!
   "8CCB A7F5 52B9 CBEA E1FB  2915 8328 C747 0FF1 D807"
   (name "davexunit (2nd)"))
  ("53C4 1E6E 41AA FE55 335A  CA5E 446A 2ED4 D940 BF14"
   (name "daviwil"))
  ("6909 6DFD D702 8BED ACC5  884B C5E0 51C7 9C0B ECDB"
   (name "dvc"))
  ("5F43 B681 0437 2F4B A898  A64B 33B9 E9FD E28D 2C23"
   (name "dvc (old)"))
  ("A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351"
   (name "efraim"))
  ("9157 41FE B22F A4E3 3B6E  8F8D F4C1 D391 7EAC EE93"
   (name "efraim (old)"))
  (;; primary: "2453 02B1 BAB1 F867 FDCA  96BC 8F3F 861F 82EB 7A9A"
   "CBC5 9C66 EC27 B971 7940  6B3E 6BE8 208A DF21 FE3F"
   (name "glv"))
  ("2219 43F4 9E9F 276F 9499  3382 BF28 6CB6 593E 5FFD"
   (name "hoebjo"))
  ("B943 509D 633E 80DD 27FC  4EED 634A 8DFF D3F6 31DF"
   (name "htgoebel"))
  ("7440 26BA 7CA3 C668 E940  1D53 0B43 1E98 3705 6942"
   (name "ipetkov"))
  (;; primary: "66A5 6D9C 9A98 BE7F 719A  B401 2652 5665 AE72 7D37"
   "0325 78A6 8298 94E7 2AA2  66F5 D415 BF25 3B51 5976"
   (name "iyzsong"))

  ;; https://lists.gnu.org/archive/html/guix-devel/2018-04/msg00229.html
  ("DB34 CB51 D25C 9408 156F  CDD6 A12F 8797 8D70 1B99"
   (name "janneke (old)"))
  ("1A85 8392 E331 EAFD B8C2  7FFB F3C1 A0D9 C1D6 5273"
   (name "janneke"))

  (;; primary: "1BA4 08C5 8BF2 0EA7 3179  635A 865D C0A3 DED9 B5D0"
   "E31D 9DDE EBA5 4A14 8A20  4550 DA45 97F9 47B4 1025"
   (name "jlicht"))
  ("8797 A26D 0854 2EAB 0285  A290 8A67 719C 2DE8 27B3"
   (name "jmd"))
  ("83B6 703A DCCA 3B69 4BCE  2DA6 E6A5 EE3C 1946 7A0D"
   (name "kkebreau"))
  ("45E5 75FA 53EA 8BD6 1BCE  0B4E 3ADC 75F0 13D6 78F9"
   (name "leungbk"))
  (;; primary: "4F71 6F9A 8FA2 C80E F1B5  E1BA 5E35 F231 DE1A C5E0"
   "B051 5948 F1E7 D3C1 B980  38A0 2646 FA30 BACA 7F08"
   (name "lfam"))
  ("2AE3 1395 932B E642 FC0E  D99C 9BED 6EDA 32E5 B0BC"
   (name "lsl88"))
  ("CBF5 9755 CBE7 E7EF EF18  3FB1 DD40 9A15 D822 469D"
   (name "marusich"))
  ("BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"
   (name "mbakke"))
  ("D919 0965 CE03 199E AF28  B3BE 7CEF 2984 7562 C516"
   (name "mhw"))
  ("4008 6A7E 0252 9B60 31FB  8607 8354 7635 3176 9CA6"
   (name "mothacehe"))
  ("F2A3 8D7E EB2B 6640 5761  070D 0ADE E100 9460 4D37"
   (name "mthl"))
  (;; primary: "F5BC 5534 C36F 0087 B39D  36EF 1C9D C4FE B9DB 7C4B"
   "F5DA 2032 4B87 3D0B 7A38  7672 0DB0 FF88 4F55 6D79"
   (name "nckx"))
  (;; primary: "F5BC 5534 C36F 0087 B39D  36EF 1C9D C4FE B9DB 7C4B"
   "7E8F AED0 0944 78EF 72E6  4D16 D889 B0F0 18C5 493C"
   (name "nckx (revoked; not compromised)"))
  ("E576 BFB2 CF6E B13D F571  33B9 E315 A758 4613 1564"
   (name "niedzejkob"))
  ("ED0E F1C8 E126 BA83 1B48  5FE9 DA00 B4F0 48E9 2F2D"
   (name "ngz"))
  ("CEF4 CB91 4856 BA38 0A20  A7E2 3008 88CB 39C6 3817"
   (name "pelzflorian"))
  (;; primary: "B68B DF22 73F9 DA0E 63C1  8A32 515B F416 9242 D600"
   "C699 ED09 E51B CE89 FD1D  A078 AAC7 E891 896B 568A"
   (name "pgarlick"))
  ("3A86 380E 58A8 B942 8D39  60E1 327C 1EF3 8DF5 4C32"
   (name "phant0mas"))
  ("74D6 A930 F44B 9B84 9EA5  5606 C166 AA49 5F7F 189C"
   (name "reepca"))
  ("BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC"
   (name "rekado"))
  ("0154 E1B9 1CC9 D9EF 7764  8DE7 F3A7 27DB 44FC CA36"
   (name "rhelling"))
  ("17CB 2812 EB63 3DFF 2C7F  0452 C3EC 1DCA 8430 72E1"
   (name "roelj (old)"))
  (;; From commit cc51c03ff867d4633505354819c6d88af88bf919 (March 2020).
   ;; See <https://lists.gnu.org/archive/html/guix-devel/2020-03/msg00070.html>.
   "F556 FD94 FB8F 8B87 79E3  6832 CBD0 CD51 38C1 9AFC"
   (name "roelj"))
  ("B5FA E628 5B41 3728 B2A0  FAED 4311 1F45 2008 6A0C"
   (name "roptat (old)"))
  (;; From commit 2cbede5935eb6a40173bbdf30a9ad22bf7574c22 (Jan. 2020).  See
   ;; <https://lists.gnu.org/archive/html/guix-devel/2020-01/msg00499.html>.
   "1EFB 0909 1F17 D28C CBF9  B13A 53D4 57B2 D636 EE82"
   (name "roptat"))
  (;; primary: "D6B0 C593 DA8C 5EDC A44C  7A58 C336 91F7 1188 B004"
   "A02C 2D82 0EF4 B25B A6B5  1D90 2AC6 A5EC 1C35 7C59"
   (name "samplet"))
  ("77DD AD2D 97F5 31BB C0F3  C7FD DFB5 EB09 AA62 5423"
   (name "sleep_walker"))
  ("F494 72F4 7A59 00D5 C235  F212 89F9 6D48 08F3 59C7"
   (name "snape"))
  ("4E26 CCE9 578E 0828 9855  BDD4 1C79 95D2 D5A3 8336"
   (name "steap"))
  ("9ADE 9ECF 2B19 C180 9C99  5CEA A1F4 CFCC 5283 6BAC"
   (name "taylanub"))

  ;; https://lists.gnu.org/archive/html/guix-devel/2017-03/msg00826.html
  (;; primary: "1DD1 681F E285 E07F 11DC  0C59 2E15 A6BC D77D 54FD"
   "3D2C DA58 819C 08C2 A649  D43D 5C3B 064C 724A 5726"
   (name "thomasd"))
  ("A5C5 92EA 606E 7106 A6A3  BC08 98B2 1575 91E1 2B08"
   (name "thomasd (old)"))

  ("D712 1D73 A40A 7264 9E43  ED7D F284 6B1A 0D32 C442"
   (name "toothbrush"))
  ("6580 7361 3BFC C5C7 E2E4  5D45 DC51 8FC8 7F97 16AA"
   (name "vagrantc"))
  (;; primary: "C955 CC5D C048 7FB1 7966  40A9 199A F6A3 67E9 4ABB"
   "7238 7123 8EAC EB63 4548  5857 167F 8EA5 001A FA9C"
   (name "wigust"))
  ("FF47 8FB2 64DE 32EC 2967  25A3 DDC0 F535 8812 F8F2"
   (name "wingo"))))
;; See: https://gcc.gnu.org/gcc-10/porting_to.html (list "CFLAGS=-fcommon" ;; --enable-demo is needed for flent (not yet packaged). "--enable-demo"))) (native-inputs (list autoconf automake)) (home-page "https://hewlettpackard.github.io/netperf/") (synopsis "Benchmarking tool to measure network performance") (description "Netperf is a benchmark that can be used to measure the performance of many different types of networking. It provides tests for both unidirectional throughput, and end-to-end latency. The environments currently measureable by netperf include: TCP and UDP via BSD Sockets for both IPv4 and IPv6, DLPI, Unix Domain Sockets, SCTP for both IPv4 and IPv6.") (license license:expat)))) (define-public lcsync (package (name "lcsync") (version "0.3.0") (source (origin (method git-fetch) (uri (git-reference (url "https://codeberg.org/librecast/lcsync") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1rhk80ybd2zranay76z1ysifnnm786lg9kiiijcwv76qy95in9ks")))) (build-system gnu-build-system) (arguments (list #:parallel-tests? #f #:configure-flags #~(list (string-append "--prefix=" #$output)) #:make-flags #~(list (string-append "CC=" #$(cc-for-target))) #:test-target "test")) (inputs (list lcrq librecast libsodium libbsd)) (home-page "https://librecast.net/lcsync.html") (synopsis "Librecast file and data syncing tool") (description "lcsync is a tool to sync files over IPv6 multicast or the local filesystem. It splits the file into blocks, hashes them, and compares them in order to efficiently transfer a minimal amount of data.") (license (list license:gpl2 license:gpl3)))) (define-public libcamera (package (name "libcamera") (version "0.3.1") (source (origin (method git-fetch) (uri (git-reference (url "https://git.libcamera.org/libcamera/libcamera.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "15wgy6dc56dwjyasw6w6x6d4j8475clbrxkgphc2zly6232ds7mw")))) (build-system meson-build-system) (outputs '("out" "doc" "gst" "tools")) (arguments (list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas #:configure-flags #~(list (string-append "-Dbindir=" (assoc-ref %outputs "tools") "/bin") ;; In 0.3.1 release simple pipeline wasn't enabled for ;; x86_64 by mistake, it's enabled a couple commits later. ;; Remove this expression on the next release. #$@(if (target-x86-64?) '("-Dpipelines=ipu3,vimc,uvcvideo,simple") '()) "-Dudev=enabled" "-Dtest=true" "-Dv4l2=true" ;; XXX: Requires bundled pybind11. "-Dpycamera=disabled") #:phases #~(modify-phases %standard-phases #$@(if (target-aarch64?) #~((add-after 'unpack 'disable-problematic-tests (lambda _ ;; The 'log_process' test fails on aarch64-linux with a ;; SIGinvalid error (see: ;; https://bugs.libcamera.org/show_bug.cgi?id=173). (substitute* "test/log/meson.build" ((".*'name': 'log_process'.*") "")) ;; The 'file' test fails on aarch64-linux with SIGinvalid. (substitute* "test/meson.build" ((".*'name': 'file'.*") ""))))) #~()) (add-after 'install 'move-doc-and-gst (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (doc (assoc-ref outputs "doc")) (gst (assoc-ref outputs "gst"))) (mkdir-p (string-append doc "/share")) (rename-file (string-append out "/share/doc") (string-append doc "/share/doc")) (mkdir-p (string-append gst "/lib")) (rename-file (string-append out "/lib/gstreamer-1.0") (string-append gst "/lib/gstreamer-1.0"))))) (add-after 'shrink-runpath 're-sign-binaries (lambda* (#:key outputs #:allow-other-keys) "Update signatures of all ipa libraries. After stipping phases signatures are not valid anymore, so it's necessary to re-sign." (let* ((out (assoc-ref outputs "out"))) (for-each (lambda (file) (invoke "source/src/ipa/ipa-sign.sh" "src/ipa-priv-key.pem" file (string-append file ".sign"))) (find-files (string-append out "/lib/libcamera") "\\.so$")))))))) (native-inputs (list googletest graphviz ;for 'dot' doxygen pkg-config python-wrapper python-sphinx python-pyyaml)) (inputs (list boost eudev glib gst-plugins-base gnutls libevent libtiff libyaml openssl python-jinja2 python-ply qtbase)) (synopsis "Camera stack and framework") (description "LibCamera is a complex camera support library for GNU+Linux, Android, and ChromeOS.") (home-page "https://libcamera.org/") (license license:lgpl2.1+))) (define-public libnice (package (name "libnice") (version "0.1.21") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.freedesktop.org/libnice/libnice") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0zxh1mdrl4p2vih8f4yqzm3pp4jsmc8aq7l43dlndaz4sj4c8j44")))) (build-system meson-build-system) (outputs '("out" "doc")) (arguments (list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas #:configure-flags #~(list"-Dgtk_doc=enabled") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'disable-failing-tests (lambda _ (substitute* "tests/meson.build" ;; ‘test-set-port-range.c:66:main: assertion failed: ;; (nice_agent_gather_candidates (agent, stream1))’ (("'test-set-port-range'" all) (string-append "# " all)) ;; The following test is disabled as it fails in a ;; nondeterministic fashion (see: ;; https://gitlab.freedesktop.org/libnice/libnice/-/issues/151). (("'test-bsd'" all) (string-append "# " all))) (substitute* "stun/tests/meson.build" ;; test-bind.c:234: bad_responses: Assertion `len >= 20' ;; failed (see: ;; https://gitlab.freedesktop.org/libnice/libnice/-/issues/150). (("'bind', ") "")))) (add-after 'install 'move-docs (lambda _ (mkdir-p (string-append #$output:doc "/share")) (rename-file (string-append #$output "/share/gtk-doc") (string-append #$output:doc "/share/gtk-doc"))))))) (native-inputs (list `(,glib "bin") gobject-introspection graphviz gtk-doc/stable pkg-config)) (inputs (list gstreamer gst-plugins-base libnsl)) (propagated-inputs (list glib glib-networking gnutls)) (synopsis "GLib ICE implementation") (description "LibNice is a library that implements the Interactive Connectivity Establishment (ICE) standard (RFC 5245 & RFC 8445). It provides a GLib-based library, libnice, as well as GStreamer elements to use it.") (home-page "https://libnice.freedesktop.org/") (license ;; This project is dual-licensed. (list license:lgpl2.1+ license:mpl1.1)))) (define-public librecast (package (name "librecast") (version "0.8.0") (source (origin (method git-fetch) (uri (git-reference (url "https://codeberg.org/librecast/librecast") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "01m0q4n2hy3csbzil8ivjyzb1mh4w9jlh9iiv6z53kasl7aas27i")))) (build-system gnu-build-system) (arguments (list #:parallel-tests? #f #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:test-target "test")) (inputs (list libsodium lcrq libbsd)) (synopsis "IPv6 multicast library") (description "Librecast is a C library which supports IPv6 multicast networking.") (home-page "https://librecast.net/librecast.html") (license (list license:gpl2 license:gpl3)))) (define-public rtmpdump ;; There are no tags in the repository, and the project is unlikely to ;; make new releases. Take a recent commit for multiple security fixes ;; as well as GnuTLS compatibility. (let ((commit "c5f04a58fc2aeea6296ca7c44ee4734c18401aa3") (revision "0") (version "2.4")) ;as mentioned in README and man pages (package (name "rtmpdump") (version (git-version version revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.ffmpeg.org/rtmpdump") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "07ias612jgmxpam9h418kvlag32da914jsnjsfyafklpnh8gdzjb")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no tests #:make-flags (list ;; The ‘validate-runpath’ phase fails to find librtmp.so.0. (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib") (string-append "prefix=" (assoc-ref %outputs "out"))) #:phases (modify-phases %standard-phases (add-after 'unpack 'omit-static-library (lambda _ (substitute* "librtmp/Makefile" (("cp librtmp\\.a .*") ; don't install it "") (("librtmp\\.a ") ; don't build it "")) #t)) (add-after 'unpack 'prefer-gnutls (lambda _ (substitute* '("Makefile" "librtmp/Makefile") (("CRYPTO=OPENSSL") "#CRYPTO=OPENSSL") (("#CRYPTO=GNUTLS") "CRYPTO=GNUTLS")))) (delete 'configure)))) (inputs (list gnutls zlib)) (synopsis "Tools and library for handling RTMP streams") (description "RTMPdump is a toolkit for RTMP streams. All forms of RTMP are supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.") (home-page "https://rtmpdump.mplayerhq.hu/") (license (list ;; Library. license:lgpl2.1+ ;; Others. license:gpl2+))))) (define-public slurm-monitor (package (name "slurm-monitor") (version "0.4.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mattthias/slurm") (commit (string-append "upstream/" version)))) (file-name (git-file-name name version)) (sha256 (base32 "07q8895bxsajkwip8dgrrwr1m8a10xnl4p0g6wqcrd2wf4hx5gn3")))) (build-system meson-build-system) (arguments `(#:tests? #f)) ;no tests (native-inputs (list pkg-config)) (inputs (list ncurses)) (synopsis "Network load monitor") (description "Slurm is a network load monitor. It shows real-time traffic statistics from any network device in any of three ASCII graph formats.") (home-page "https://github.com/mattthias/slurm") (license license:gpl2))) (define-public srt (package (name "srt") (version "1.4.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/Haivision/srt") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1zr1l9zkai7rpw9cn5j9h4zrv08hgpfmwscwyscf2j4cgwf0rxrr")))) (build-system cmake-build-system) (arguments `(#:configure-flags (list (string-append "-DCMAKE_INSTALL_BINDIR=" (assoc-ref %outputs "out") "/bin") "-DCMAKE_INSTALL_INCLUDEDIR=include" "-DENABLE_STATIC=OFF" "-DENABLE_UNITTESTS=ON"))) (native-inputs (list googletest pkg-config tcl)) (propagated-inputs (list openssl)) (synopsis "Secure Reliable Transport") (description "SRT is a transport technology that optimizes streaming performance across unpredictable networks, such as the Internet.") (home-page "https://www.srtalliance.org/") (license license:mpl2.0))) (define-public lksctp-tools (package (name "lksctp-tools") (version "1.0.19") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sctp/lksctp-tools") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1jfq58j365mlgssavyw5wcal42n0xjkr40vmj9b8w265wgs28j20")))) (build-system gnu-build-system) (native-inputs (list autoconf automake libtool pkg-config)) (synopsis "@acronym{SCTP, Stream Control Transmission Protocol} helpers for Linux") (description "The lksctp-tools project provides a user-space library for @acronym{SCTP, the Stream Control Transmission Protocol} (@file{libsctp}) and C language header files (@file{netinet/sctp.h}) for accessing SCTP-specific @acronym{APIs, application programming interfaces} not provided by the standard sockets. It also includes some SCTP-related helper utilities.") (home-page "https://lksctp.sourceforge.net/") (license (list ;; Library. license:lgpl2.1+ ;; Others. license:gpl2+)))) (define-public python-pysctp (package (name "python-pysctp") (version "0.6.1") (source (origin (method url-fetch) (uri (pypi-uri "pysctp" version)) (sha256 (base32 "14h2qlmfi24bizhvvqkfqfa78pzm3911ibrzy9k94i97xy1978dy")))) (build-system python-build-system) (inputs (list lksctp-tools)) (arguments `(#:tests? #f ;; tests require network #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-setup.py (lambda _ (substitute* "setup.py" (("include_dirs\\s*=.*") (string-append "include_dirs = ['.'] + '" (getenv "C_INCLUDE_PATH") "'.split(':'),")) (("library_dirs\\s*=.*") (string-append "library_dirs = '" (getenv "LIBRARY_PATH") "'.split(':'),")))))))) (home-page "https://github.com/p1sec/pysctp") (synopsis "Python module for the SCTP protocol stack and library") (description "@code{pysctp} implements the SCTP socket API. You need a SCTP-aware kernel (most are).") (license license:lgpl2.1+))) (define-public kismet (package (name "kismet") (version "2022-02") (source (origin (method git-fetch) (uri (git-reference (url "https://www.kismetwireless.net/git/kismet.git") (commit (string-append "kismet-" version "-R1")))) (file-name (git-file-name name version)) (patches (search-patches "kismet-unbundle-boost.patch")) (modules '((guix build utils))) (snippet '(begin ;; Drop bundled libraries. (delete-file-recursively "boost"))) (sha256 (base32 "01q86hrgpai433sc65dlnqy91qd26w5dwyp37adszqxfb6d2an1r")))) (build-system gnu-build-system) (arguments (list #:tests? #f ;no test suite #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-install (lambda* _ (substitute* "Makefile.in" (("-o \\$\\(INSTUSR\\) -g \\$\\(SUIDGROUP\\)") "") (("-o \\$\\(INSTUSR\\) -g \\$\\(INSTGRP\\)") ""))))))) (home-page "https://www.kismetwireless.net/") (native-inputs (list perl pkg-config python python-2)) (inputs (list boost libusb libpcap libwebsockets openssl protobuf protobuf-c sqlite zlib)) (synopsis "Wireless network and device detector") (description "This package provides a wireless network and device detector, sniffer, wardriving tool, and WIDS (wireless intrusion detection) framework. Kismet works with Wi-Fi interfaces, Bluetooth interfaces, some SDR (software defined radio) hardware like the RTLSDR, and other specialized capture hardware") (license license:gpl2+))) (define-public knockd (package (name "knockd") (version "0.8") (source (origin (method url-fetch) (uri (string-append "https://www.zeroflux.org/proj/knock/files/knock-" version ".tar.gz")) (sha256 (base32 "1iv9h7a9l81ilbld3pi0dmzkizjss1755x1x3v5jxsi4asb8r3b9")))) (build-system gnu-build-system) (arguments `(#:configure-flags (list (string-append "--docdir=" (assoc-ref %outputs "out") "/share/doc/" ,name "-" ,version)))) (inputs (list libpcap)) (home-page "https://www.zeroflux.org/projects/knock") (synopsis "Small port-knock daemon") (description "@command{knockd} is a port-knock daemon. It listens to all traffic on an ethernet or PPP interface, looking for special \"knock\" sequences of @dfn{port-hits} (UDP/TCP packets sent to a server port). This port need not be open, since knockd listens at the link-layer level.") (license license:gpl2+))) (define-public nng (package (name "nng") (version "1.5.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nanomsg/nng") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1sap0iny3z9lhmaiassv8jc399md1307y32xxx3mrr74jcpcrf59")))) (build-system cmake-build-system) (arguments `(#:configure-flags (list "-DNNG_ENABLE_COVERAGE=ON" "-DNNG_ENABLE_TLS=ON" "-DBUILD_SHARED_LIBS=ON") #:phases (modify-phases %standard-phases (add-after 'unpack 'disable-failing-tests (lambda _ ;; These tests require network access. (substitute* "tests/CMakeLists.txt" (("add_nng_test1\\(httpclient 60 NNG_SUPP_HTTP\\)") "") (("add_nng_test\\(tls 60\\)") "")) (substitute* "src/platform/CMakeLists.txt" (("nng_test\\(platform_test\\)") "") (("nng_test\\(resolver_test\\)") "")) (substitute* "src/sp/transport/tcp/CMakeLists.txt" (("nng_test\\(tcp_test\\)") "")) (substitute* "src/sp/transport/ws/CMakeLists.txt" (("nng_test_if\\(WS_ON ws_test\\)") "")) (substitute* "src/supplemental/websocket/CMakeLists.txt" (("nng_test\\(wssfile_test\\)") ""))))))) (native-inputs (list oksh)) (inputs (list mbedtls-lts)) (synopsis "Lightweight messaging library") (description "NNG project is a rewrite of the scalability protocols library known as libnanomsg, and adds significant new capabilities, while retaining compatibility with the original. It is a lightweight, broker-less library, offering a simple API to solve common recurring messaging problems, such as publish/subscribe, RPC-style request/reply, or service discovery.") (home-page "https://nng.nanomsg.org/") (license license:expat))) (define-public nanomsg (package (name "nanomsg") (version "1.1.5") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nanomsg/nanomsg") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "01ddfzjlkf2dgijrmm3j3j8irccsnbgfvjcnwslsfaxnrmrq5s64")))) (build-system cmake-build-system) (arguments `(#:configure-flags (list "-DNN_ENABLE_COVERAGE=ON"))) (synopsis "Scalable socket library") (description "Nanomsg is a socket library that provides several common communication patterns. It aims to make the networking layer fast, scalable, and easy to use. Implemented in C, it works on a wide range of operating systems with no further dependencies.") (home-page "https://nanomsg.org/") (license (license:non-copyleft "file:///COPYING")))) (define-public blueman (package (name "blueman") (version "2.3.4") (source (origin (method url-fetch) (uri (string-append "https://github.com/blueman-project/blueman/releases" "/download/" version "/blueman-" version ".tar.xz")) (sha256 (base32 "0lh1aqpdq6vi4agrgmm7fifjbxz2s5qcs3hr7nfjrwrp2j1361n2")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags (list "--enable-polkit" "--without-systemdsystemunitdir" ; Not required "--without-systemduserunitdir") ; Not required #:phases (modify-phases %standard-phases ;; Python references are not being patched in patch-phase of build, ;; despite using python-wrapper as input. So we patch them manually. (add-after 'unpack 'patch-python-references (lambda* (#:key inputs #:allow-other-keys) (with-directory-excursion "apps" (substitute* '("blueman-adapters.in" "blueman-applet.in" "blueman-manager.in" "blueman-mechanism.in" "blueman-rfcomm-watcher.in" "blueman-sendto.in" "blueman-services.in" "blueman-tray.in") (("@PYTHON@") (search-input-file inputs (string-append "/bin/python" ,(version-major+minor (package-version python))))))))) ;; Fix loading of external programs. (add-after 'unpack 'patch-external-programs (lambda* (#:key inputs #:allow-other-keys) (substitute* '("blueman/main/NetConf.py" "blueman/main/PPPConnection.py") (("/usr/sbin/bluetoothd") (search-input-directory inputs "/libexec/bluetooth/bluetoothd")) (("/sbin/iptables") (search-input-file inputs "/sbin/iptables")) (("/usr/sbin/pppd") (search-input-file inputs "/sbin/pppd"))))) ;; Fix loading of pulseaudio libraries. (add-after 'unpack 'patch-pulseaudio-libraries (lambda* (#:key inputs #:allow-other-keys) (let* ((pulseaudio (assoc-ref inputs "pulseaudio")) (pulse (string-append pulseaudio "/lib/libpulse.so.0")) (pulse-glib (string-append pulseaudio "/lib/libpulse-mainloop-glib.so.0"))) (with-directory-excursion "blueman/main" (substitute* "PulseAudioUtils.py" (("libpulse.so.0") pulse) (("libpulse-mainloop-glib.so.0") pulse-glib)))))) ;; Fix running of blueman programs. (add-after 'glib-or-gtk-wrap 'wrap-blueman-progs (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin/blueman-")) (libexec (string-append out "/libexec/blueman-")) (lib (string-append out "/lib/python" ,(version-major+minor (package-version python)) "/site-packages"))) (for-each (lambda (program) (wrap-program program `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,lib)) `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))) (append (map (lambda (prog) (string-append bin prog)) '("adapters" "applet" "manager" "sendto" "services" "tray")) (map (lambda (prog) (string-append libexec prog)) '("mechanism" "rfcomm-watcher")))))))))) (native-inputs (list python-cython `(,glib "bin") gobject-introspection `(,gtk+ "bin") intltool pkg-config)) (inputs (list bash-minimal bluez dbus (librsvg-for-system) glib gtk+ iproute iptables net-tools pango polkit ppp pulseaudio python-pycairo python-pygobject python-wrapper libappindicator network-manager)) (synopsis "GTK+ Bluetooth manager") (description "Blueman is a Bluetooth management utility using the Bluez D-Bus backend. It is designed to be easy to use for most common Bluetooth tasks.") (home-page "https://github.com/blueman-project/blueman") (license license:gpl3+))) (define-public nm-tray (package (name "nm-tray") (version "0.5.0") (home-page "https://github.com/palinek/nm-tray") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit version))) (sha256 (base32 "14i8sl0hrnyidlvqnxza0v4018f7p685ksn8419i2w7f9yqpvpiw")) (file-name (git-file-name name version)))) (build-system qt-build-system) (arguments (list #:tests? #f)) ;There are no tests upstream (inputs (list qtbase-5 networkmanager-qt5)) (native-inputs (list qttools-5 pkg-config)) (synopsis "NetworkManager front-end with information icon residing in system tray") (description "nm-tray is a network connection management tool (NetworkManager front-end) with an information icon residing in the system tray. Unlike nm-applet, which is part of GNOME, this application is desktop-unaware.") (license license:gpl2+))) ;; The gnu.org ‘home’ for this GNU project is a directory listing with 1.6.0 as ;; the latest version. The author's git repository, mentioned in the 1.6.0 ;; README and otherwise legit-looking, contains a proper 1.7.0 release tarball ;; with many OUI updates. Use it, even though it's also several years old now. (define-public macchanger (package (name "macchanger") (version "1.7.0") (source (origin (method url-fetch) (uri (string-append "https://github.com/alobbs/macchanger/" "releases/download/" version "/" name "-" version ".tar.gz")) (sha256 (base32 "1gs5m0jxyprdp00w2qkbnaqm3ilkjz0q1gqdg4nzdm8g4xy73qns")))) (build-system gnu-build-system) (home-page "https://www.gnu.org/software/macchanger/") (synopsis "Viewing and manipulating MAC addresses of network interfaces") (description "GNU MAC Changer is a utility for viewing and changing MAC addresses of networking devices. New addresses may be set explicitly or randomly. They can include MAC addresses of the same or other hardware vendors or, more generally, MAC addresses of the same category of hardware.") (license license:gpl2+))) (define-public miredo (package (name "miredo") (version "1.2.6") (source (origin (method url-fetch) (uri (string-append "http://www.remlab.net/files/miredo/miredo-" version ".tar.xz")) (sha256 (base32 "0j9ilig570snbmj48230hf7ms8kvcwi2wblycqrmhh85lksd49ps")))) (build-system gnu-build-system) (arguments '(#:configure-flags (list "--localstatedir=/var") #:phases (modify-phases %standard-phases (add-after 'unpack 'do-not-create-/run (lambda _ (substitute* (find-files "src" "Makefile.*") (("^.+install_sh.+/run.+$") "\ttrue")) #t)) (add-after 'unpack 'patch-iproute2 (lambda* (#:key inputs #:allow-other-keys) (let* ((iproute (assoc-ref inputs "iproute")) (ip (string-append iproute "/sbin/ip"))) (substitute* "misc/client-hook.iproute" (("/sbin/ip") ip)) #t))) ;; The checkconf test in src/ requires network access. (add-before 'check 'disable-checkconf-test (lambda _ (substitute* "src/Makefile" (("^TESTS = .*") "TESTS = \n")) #t))))) (inputs `(("iproute" ,iproute))) (home-page "https://www.remlab.net/miredo/") (synopsis "Teredo IPv6 tunneling software") (description "Miredo is an implementation (client, relay, server) of the Teredo specification, which provides IPv6 Internet connectivity to IPv6 enabled hosts residing in IPv4-only networks, even when they are behind a NAT device.") (license license:gpl2+))) (define-public ndisc6 (package (name "ndisc6") (version "1.0.7") (source (origin (method url-fetch) (uri (string-append "https://www.remlab.net/files/ndisc6/ndisc6-" version ".tar.bz2")) (sha256 (base32 "02b6r4mwqj3kkia3nnqlr5nq8qqg1pg47lirb8d35mqh0pbk3i7d")))) (build-system gnu-build-system) (home-page "https://www.remlab.net/ndisc6/") (synopsis "IPv6 diagnostic tools") (description "NDisc6 is a collection of tools for IPv6 networking diagnostics. It includes the following programs: @itemize @item @command{ndisc6}: ICMPv6 Neighbor Discovery tool. @item @command{rdisc6}: ICMPv6 Router Discovery tool. @item @command{tcptraceroute6}: IPv6 traceroute over TCP. @item @command{traceroute6}: IPv6 traceroute over UDP. @item @command{rdnssd}: Recursive DNS Servers discovery daemon. @end itemize") ;; The user can choose version 2 or 3 of the GPL, not later versions. (license (list license:gpl2 license:gpl3)))) (define-public parprouted (package (name "parprouted") (version "0.7") (source (origin (method url-fetch) (uri (string-append "https://www.hazard.maks.net/parprouted/" "parprouted-" version ".tar.gz")) (sha256 (base32 "1z6yg28i0pv20jivyy82pxb38hsryj95inhj27bs6ja1bp4l6dnn")))) (build-system gnu-build-system) (arguments `(#:tests? #f ;no tests #:phases (modify-phases %standard-phases (add-after 'unpack 'insert-absolute-iproute-reference (lambda* (#:key inputs #:allow-other-keys) (let* ((iproute (assoc-ref inputs "iproute")) (ip (string-append iproute "/sbin/ip"))) (substitute* "parprouted.c" (("/sbin/ip") ip)) #t))) (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (sbin (string-append out "/sbin")) (man8 (string-append out "/share/man/man8"))) ;; No configure script; hijack the phase to make ;; the necessary arrangements. (setenv "CC" ,(cc-for-target)) (for-each mkdir-p (list sbin man8)) (substitute* "Makefile" (("/usr/local/sbin") sbin) (("/usr/local/man/man8") man8)) #t)))))) (inputs `(("iproute" ,iproute))) (home-page "https://www.hazard.maks.net/parprouted/") (synopsis "Proxy ARP requests to other interfaces") (description "@command{parprouted} is a daemon for transparent IP (Layer@tie{}3) proxy ARP bridging. Unlike standard bridging, proxy ARP bridging can bridge Ethernet networks behind wireless nodes. Normal layer@tie{}2 bridging does not work between wireless nodes because wireless does not know about MAC addresses used in the wired Ethernet networks. This daemon can also be useful for making transparent firewalls.") (license license:gpl2))) (define-public pproxy (package (name "pproxy") (version "2.7.8") (source (origin (method url-fetch) (uri (pypi-uri "pproxy" version)) (sha256 (base32 "1j4nv72i77i2j5nl9ymzpk4m98qih3naihfrqjghrc9b7g0krdzs")))) (build-system python-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (with-directory-excursion "tests" (for-each (lambda (file) (invoke "python" file)) ;; XXX: The api_ tests require network access ;; so we only run the cipher tests for now. (find-files "." "^cipher_.*\\.py$"))))))))) (inputs (list python-asyncssh python-daemon python-pycryptodome python-uvloop)) (home-page "https://github.com/qwj/python-proxy") (synopsis "Multi-protocol network proxy") (description "@command{pproxy} is an asynchronuous proxy server implemented with Python 3 @code{asyncio}. Among the supported protocols are HTTP, SOCKS and SSH, and it can use both TCP and UDP as transport mechanisms.") (license license:expat))) (define-public socat (package (name "socat") (version "1.7.4.4") (source (origin (method url-fetch) (uri (string-append "http://www.dest-unreach.org/socat/download/socat-" version ".tar.bz2")) (sha256 (base32 "1b40ccdvxq5kaghsbwg4q3dq5aw4acw1bpqvs3v3ljp5y392pm7v")))) (build-system gnu-build-system) (arguments '(#:tests? #f)) ; no test suite (inputs (list openssl readline)) (home-page "http://www.dest-unreach.org/socat/") (synopsis "Open bidirectional communication channels from the command line") (description "socat is a relay for bidirectional data transfer between two independent data channels---files, pipes, devices, sockets, etc. It can create \"listening\" sockets, named pipes, and pseudo terminals. socat can be used, for instance, as TCP port forwarder, as a shell interface to UNIX sockets, IPv6 relay, for redirecting TCP oriented programs to a serial line, to logically connect serial lines on different computers, or to establish a relatively secure environment (su and chroot) for running client or server shell scripts with network connections.") (license license:gpl2))) (define-public mbuffer (package (name "mbuffer") (version "20230301") (source (origin (method url-fetch) (uri (string-append "http://www.maier-komor.de/software/mbuffer/mbuffer-" version ".tgz")) (sha256 (base32 "009d4m48yjidb91vdnrfv84nnd76n0i57g607llan3y0vq4n5xsk")))) (build-system gnu-build-system) (native-inputs (list which)) (inputs (list openssl)) (home-page "https://www.maier-komor.de/mbuffer.html") (synopsis "Swiss army knife for data stream buffering (network aware)") (description "mbuffer is a tool for buffering data streams with a large set of features: @itemize @item direct support for TCP based network targets (IPv4 and IPv6) @item ability to send to multiple targets in parallel (distribution mode) @item support for multiple volumes @item I/O rate limitation @item high/low watermark based restart criteria @item configurable buffer size @item on the fly MD5 hash calculation @item highly efficient, multi-threaded implementation @end itemize") (license license:gpl3+))) (define-public tcp-wrappers (package (name "tcp-wrappers") (version "7.6") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.porcupine.org/pub/security/tcp_wrappers_" version ".tar.gz")) (sha256 (base32 "0p9ilj4v96q32klavx0phw9va21fjp8vpk11nbh6v2ppxnnxfhwm")) (modules '((guix build utils))) (snippet ;; 'sys_errlist' & co. are gone in glibc 2.33; work around it. '(substitute* "percent_m.c" (("sys_errlist\\[errno\\]") "strerror (errno)") (("errno < sys_nerr") "(1)") (("errno >= sys_nerr") "(0)"))))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) ; there is no configure script (delete 'check) ; there are no tests (replace 'build (lambda _ (chmod "." #o755) ;; Upstream doesn't generate a shared library. So we have to do it. (setenv "CC" "gcc -fno-builtin -fPIC") (substitute* "Makefile" (("^(all[^\n]*)" line) (string-append line " libwrap.so\n libwrap.so: $(LIB_OBJ)\n \tgcc -shared $^ -o $@\n"))) ;; Deal with some gcc breakage. (substitute* "percent_m.c" (("extern char .sys_errlist.*;") "")) (substitute* "scaffold.c" (("extern char .malloc.*;") "")) ;; This, believe it or not, is the recommended way to build! (invoke "make" "REAL_DAEMON_DIR=/etc" "linux"))) ;; There is no make install stage, so we have to do it ourselves. (replace 'install (lambda _ (let ((out (assoc-ref %outputs "out")) (man-pages `("hosts_access.3" "hosts_access.5" "hosts_options.5" "tcpd.8" "tcpdchk.8" "tcpdmatch.8")) (libs `("libwrap.a" "libwrap.so")) (headers `("tcpd.h")) (bins `("safe_finger" "tcpd" "tcpdchk" "tcpdmatch" "try-from"))) (for-each (lambda (x) (install-file x (string-append out "/include"))) headers) (for-each (lambda (x) (install-file x (string-append out "/share/man/man" (string-take-right x 1)))) man-pages) (for-each (lambda (x) (install-file x (string-append out "/lib/"))) libs) (for-each (lambda (x) (install-file x (string-append out "/bin/"))) bins)) #t))))) (home-page "http://www.porcupine.org") (synopsis "Monitor and filter incoming requests for network services") (description "With this package you can monitor and filter incoming requests for network services. It includes a library which may be used by daemons to transparently check connection attempts against an access control list.") (license (license:non-copyleft "file://DISCLAIMER" "See the file DISCLAIMER in the distribution.")))) (define-public zeromq (package (name "zeromq") (version "4.3.4") (source (origin (method url-fetch) (uri (string-append "https://github.com/zeromq/libzmq/releases" "/download/v" version "/zeromq-" version ".tar.gz")) (sha256 (base32 "1rf3jmi36ms8jh2g5cvi253h43l6xdfq0r7mvp95va7mi4d014y5")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static" "--enable-drafts"))) (home-page "https://zeromq.org") (synopsis "Library for message-based applications") (description "The 0MQ lightweight messaging kernel is a library which extends the standard socket interfaces with features traditionally provided by specialized messaging middle-ware products. 0MQ sockets provide an abstraction of asynchronous message queues, multiple messaging patterns, message filtering (subscriptions), seamless access to multiple transport protocols and more.") (license license:lgpl3+))) (define-public czmq (package (name "czmq") (version "4.2.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/zeromq/" name "/releases/download/v" version "/" name "-" version ".tar.gz")) (sha256 (base32 "0fdclvd7fcwixp0k57ccv7d159v3slasyhvndxfn8n1a9hh0lwjx")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-drafts"))) (inputs (list zeromq)) (home-page "https://zeromq.org") (synopsis "High-level C bindings for ØMQ") (description "czmq provides bindings for the ØMQ core API that hides the differences between different versions of ØMQ.") (license license:mpl2.0))) (define-public cppzmq (package (name "cppzmq") (version "4.10.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/zeromq/cppzmq") (commit (string-append "v" version)))) (sha256 (base32 "1074316b2n2sbvamnnm8c0p9s0xw2m0g84i9pac02vqbaxbmldqx")) (file-name (git-file-name name version)))) (build-system cmake-build-system) (arguments `(#:tests? ,(not (%current-target-system)))) ; run unless cross-compiling (native-inputs (list pkg-config)) (inputs (list catch2 zeromq)) (home-page "https://zeromq.org") (synopsis "C++ bindings for the ØMQ messaging library") (description "This package provides header-only C++ bindings for ØMQ. The header files contain direct mappings of the abstractions provided by the ØMQ C API.") (license license:expat))) (define-public libnatpmp ;; Install the latest commit as it provides a pkg-config (.pc) file. (let ((base-version "20230423") (commit "6a850fd2bd9b08e6edc886382a1dbae2a7df55ec") (revision "0")) (package (name "libnatpmp") (version (git-version base-version revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/miniupnp/libnatpmp") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "18hf9a3i3mncl3w80nzi1684iac3by86bv0hgmbm1v2w8gbfjyw0")))) (build-system cmake-build-system) (arguments (list #:tests? #f ;no test suite #:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-build-system ;; Have CMake install the natpmp_declspec.h missing header file ;; that is referenced by natpmp.h (see: ;; https://github.com/miniupnp/libnatpmp/issues/41). (lambda _ (substitute* "CMakeLists.txt" (("install\\(FILES natpmp.h") "install(FILES natpmp.h natpmp_declspec.h")))) (add-after 'unpack 'fix-version (lambda _ (with-output-to-file "VERSION" (lambda () (display #$base-version)))))))) (native-inputs (list which)) (home-page "https://miniupnp.tuxfamily.org/libnatpmp.html") (synopsis "C library implementing NAT-PMP") (description "@code{libnatpmp} is a portable and asynchronous implementation of the Network Address Translation - Port Mapping Protocol (NAT-PMP) written in the C programming language.") (license license:bsd-3)))) (define-public librdkafka (package (name "librdkafka") (version "1.4.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/edenhill/librdkafka") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "05mgrdzacn9kdpr68r5j0cvsvl54s52glnsc1ww9rcxx6p7hq1ly")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (replace 'configure ;; its custom configure script doesn't understand 'CONFIG_SHELL'. (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) ;; librdkafka++.so lacks RUNPATH for librdkafka.so (setenv "LDFLAGS" (string-append "-Wl,-rpath=" out "/lib")) (invoke "./configure" (string-append "--prefix=" out)))))))) (native-inputs `(("python" ,python-wrapper))) (propagated-inputs (list zlib)) ; in the Libs.private field of rdkafka.pc (home-page "https://github.com/edenhill/librdkafka") (synopsis "Apache Kafka C/C++ client library") (description "librdkafka is a C library implementation of the Apache Kafka protocol, containing both Producer and Consumer support.") (license license:bsd-2))) (define-public libndp (package (name "libndp") (version "1.8") (source (origin (method url-fetch) (uri (string-append "https://libndp.org/files/" "libndp-" version ".tar.gz")) (sha256 (base32 "0ay0n0d85254zdmv8znmn399gfiqpk6ga0jwdwa7ylpbw9pbdzw8")))) (build-system gnu-build-system) (native-inputs (if (%current-target-system) (list pkg-config libtool gettext-minimal autoconf automake) '())) (arguments (if (%current-target-system) (list #:phases #~(modify-phases %standard-phases ;; AC_FUNC_MALLOC and AC_FUNC_REALLOC usually unneeded ;; see https://lists.gnu.org/archive/html/autoconf/2003-02/msg00017.html (add-after 'unpack 'fix-rpl_malloc (lambda _ (substitute* "configure.ac" (("AC_FUNC_MALLOC") "")) ;; let bootstrap phase run. (delete-file "./configure"))))) '())) (home-page "https://libndp.org/") (synopsis "Library for Neighbor Discovery Protocol") (description "libndp contains a library which provides a wrapper for IPv6 Neighbor Discovery Protocol. It also provides a tool named ndptool for sending and receiving NDP messages.") (license license:lgpl2.1+))) (define-public ethtool (package (name "ethtool") (version "6.2") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/software/network/" "ethtool/ethtool-" version ".tar.xz")) (sha256 (base32 "1qbhwp8d4nh0cnxd3hg0kr8lm5ikbkl07gvjpzv76kad0qa03pw6")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list libmnl)) (home-page "https://www.kernel.org/pub/software/network/ethtool/") (synopsis "Display or change Ethernet device settings") (description "ethtool can be used to query and change settings such as speed, auto-negotiation and checksum offload on many network devices, especially Ethernet devices.") (license license:gpl2))) (define-public ifstatus (package (name "ifstatus") (version "2.0.0") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/ifstatus/ifstatus/" "ifstatus-v" version ".tar.gz")) (sha256 (base32 "0n622f2m3x901hcmad4ns52r2x75csy4nqraagzb8h9fn0j62jkv")))) (build-system gnu-build-system) (arguments '(#:tests? #f ; no "check" target #:phases (modify-phases %standard-phases (delete 'configure) ; no configure script (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) (mkdir-p bin) (copy-file "ifstatus" (string-append bin "/ifstatus"))) #t))))) (inputs (list ncurses)) (home-page "https://ifstatus.sourceforge.net/graphic/index.html") (synopsis "Text based network interface status monitor") (description "IFStatus is a simple, easy-to-use program for displaying commonly needed/wanted real-time traffic statistics of multiple network interfaces, with a simple and efficient view on the command line. It is intended as a substitute for the PPPStatus and EthStatus projects.") (license license:gpl2+))) (define-public iputils (package (name "iputils") (version "20221126") (home-page "https://github.com/iputils/iputils") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1qfdvr60mlwh5kr4p27wjknz1cvrwfi6iadh9ny45661v22i0njx")))) (build-system meson-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'disable-ping-test (lambda _ ;; Disable ping test, as it requires root or raw socket capabilities. (substitute* "test/meson.build" (("if build_ping == true") "if false"))))))) (native-inputs (list docbook-xsl docbook-xml-5.0.1 gettext-minimal libxslt pkg-config)) (inputs (list libcap libidn2 openssl)) (synopsis "Collection of network utilities") (description "This package contains a variety of tools for dealing with network configuration, troubleshooting, or servers. Utilities included are: @table @command @item arping Ping hosts using @acronym{ARP, Address Resolution Protocol}. @item clockdiff Compute time difference between network hosts using ICMP TSTAMP messages. @item ninfod Daemon that responds to IPv6 Node Information Queries. @item ping Use ICMP ECHO messages to measure round-trip delays and packet loss across network paths. @item rarpd Answer RARP requests from clients. @item rdisc Populate network routing tables with information from the ICMP router discovery protocol. @item tftpd Trivial file transfer protocol server. @item tracepath Trace network path to an IPv4 or IPv6 address and discover MTU along the way. @end table") ;; The various utilities are covered by different licenses, see LICENSE ;; for details. (license (list license:gpl2+ ;arping, tracepath license:bsd-3 ;clockdiff, ping (license:non-copyleft "https://spdx.org/licenses/Rdisc.html" "Sun Microsystems license, see rdisc.c for details"))))) (define-public nload (package (name "nload") (version "0.7.4") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/nload/nload/" version "/nload-" version ".tar.gz")) (sha256 (base32 "1rb9skch2kgqzigf19x8bzk211jdfjfdkrcvaqyj89jy2pkm3h61")))) (build-system gnu-build-system) (inputs (list ncurses)) (home-page "http://www.roland-riegel.de/nload/") (synopsis "Realtime console network usage monitor") (description "Nload is a console application which monitors network traffic and bandwidth usage in real time. It visualizes the in- and outgoing traffic using two graphs, and provides additional info like total amount of transferred data and min/max network usage.") (license license:gpl2+))) (define-public iodine (package (name "iodine") (version "0.8.0") (source (origin (method url-fetch) (uri (string-append "https://code.kryo.se/iodine/" "iodine-" version ".tar.gz")) (sha256 (base32 "1ihlwxr5xi82gskcdl06qil9q67bcc80p18wm079gxqphv7r4vjl")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) ; no configure script (add-before 'build 'fix-ifconfig-path ;; This package works only with the net-tools version of ifconfig. (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/tun.c" (("PATH=[^ ]* ") (string-append (assoc-ref inputs "net-tools") "/bin/"))))) (add-before 'check 'delete-failing-tests ;; Avoid https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=802105. (lambda _ (substitute* "tests/common.c" (("tcase_add_test\\(tc, \ test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);") ""))))) #:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "prefix=" (assoc-ref %outputs "out"))) #:test-target "test")) (inputs (list net-tools zlib)) (native-inputs (list check pkg-config)) (home-page "https://code.kryo.se/iodine/") (synopsis "Tunnel IPv4 data through a DNS server") (description "Iodine tunnels IPv4 data through a DNS server. This can be useful in different situations where internet access is firewalled, but DNS queries are allowed. The bandwidth is asymmetrical, with limited upstream and up to 1 Mbit/s downstream.") ;; src/md5.[ch] is released under the zlib license (license (list license:isc license:zlib)))) (define-public whois (package (name "whois") (version "5.5.17") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/rfc1036/whois") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1mqgc8saz4l0hr4p8r9cgndwx3r9aal7ak9irgrrkxyjd65xpa9n")))) (build-system gnu-build-system) (arguments (list #:tests? #f ; no test suite #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PKG_CONFIG=" #$(pkg-config-for-target)) (string-append "prefix=" #$output) "BASHCOMPDIR=$(prefix)/share/bash-completion/completions") #:phases #~(modify-phases %standard-phases (delete 'configure) ; no configure script (add-before 'build 'setenv (lambda _ (setenv "HAVE_ICONV" "1")))))) (inputs (list libidn2 libxcrypt)) (native-inputs (list gettext-minimal perl pkg-config)) (synopsis "Intelligent client for the WHOIS directory service") (description "whois searches for an object in a @dfn{WHOIS} (RFC 3912) database. It is commonly used to look up the registered users or assignees of an Internet resource, such as a domain name, an IP address block, or an autonomous system. It can automatically select the appropriate server for most queries. For historical reasons, this package also includes @command{mkpasswd}, which encrypts passwords using @code{crypt(3)} and is unrelated to the Expect command of the same name.") (home-page "https://github.com/rfc1036/whois") (license license:gpl2+))) (define-public wireshark (package (name "wireshark") (version "4.2.5") (source (origin (method url-fetch) (uri (string-append "https://www.wireshark.org/download/src/wireshark-" version ".tar.xz")) (sha256 (base32 "07r6n7xjckx5scp3d6s61hc54v5p5k4kaqik8jn3m9x9hymr7rsm")))) (build-system qt-build-system) (arguments (list ;; This causes the plugins to register runpaths for the wireshark ;; libraries, which would otherwise cause the validate-runpath phase to ;; fail. #:qtbase qtbase #:configure-flags #~(list (string-append "-DCMAKE_MODULE_LINKER_FLAGS=-Wl,-rpath=" #$output "/lib")) #:phases #~(modify-phases %standard-phases (replace 'check (lambda* (#:key parallel-tests? tests? #:allow-other-keys) (when tests? (invoke "ctest" "-VV" "-j" (if parallel-tests? (number->string (parallel-job-count)) "1")))))))) (inputs (list c-ares glib gnutls brotli libcap libgcrypt libnl libpcap libssh libxml2 lz4 lua-5.2 mit-krb5 `(,nghttp2 "lib") minizip pcre2 qt5compat qtbase qtmultimedia qtsvg sbc snappy speexdsp zlib `(,zstd "lib"))) (native-inputs (list bison doxygen flex gettext-minimal perl pkg-config python-wrapper qttools)) (synopsis "Network traffic analyzer") (description "Wireshark is a network protocol analyzer, or @dfn{packet sniffer}, that lets you capture and interactively browse the contents of network frames.") (home-page "https://www.wireshark.org") (license license:gpl2+))) (define-public fping (package (name "fping") (version "5.2") (source (origin (method url-fetch) (uri (string-append "https://fping.org/dist/fping-" version ".tar.gz")) (sha256 (base32 "0bz4n0c4p5v8yh1fzvfvbbydpg4vy6krligpw5vbpc1zsw82ssd7")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-ipv6"))) (home-page "https://fping.org/") (synopsis "Send ICMP ECHO_REQUEST packets to network hosts") (description "fping is a ping-like program which uses @acronym{ICMP, Internet Control Message Protocol} echo requests to determine if a target host is responding. @command{fping} differs from @command{ping} in that you can specify any number of targets on the command line, or specify a file containing the lists of targets to ping. Instead of sending to one target until it times out or replies, fping will send out a ping packet and move on to the next target in a round-robin fashion.") (license license:expat))) (define-public gandi.cli (package (name "gandi.cli") (version "1.6") (source (origin (method url-fetch) (uri (pypi-uri name version)) (sha256 (base32 "1h36jahbp7273wn3yd747kbiwjc0bm3sja67bcxdsd54ln0vyndg")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'embed-store-file-names (lambda _ (substitute* (list "gandi/cli/modules/cert.py" "gandi/cli/tests/commands/test_certificate.py") (("openssl") (which "openssl"))) #t)) (add-after 'install 'install-documentation ;; The included man page may be outdated but we install it anyway, ;; since it's mentioned in 'gandi --help' and better than nothing. (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (man1 (string-append out "/share/man/man1"))) (mkdir-p man1) (with-output-to-file (string-append man1 "/gandi.1") (lambda _ (invoke "rst2man.py" "gandicli.man.rst"))) #t)))))) (native-inputs (list python-docutils ; for rst2man.py python-pytest python-pytest-cov python-tox)) (propagated-inputs (list openssh)) ; used by gandi/cli/modules/iass.py (inputs (list openssl python-click-7 python-ipy python-pyyaml python-requests)) (home-page "https://cli.gandi.net") (synopsis "Command-line interface to the Gandi.net Web API") (description "This package provides a command-line client (@command{gandi}) to buy, manage, and delete Internet resources from Gandi.net such as domain names, virtual machines, and certificates.") (license license:gpl3+))) (define-public go-github-com-vishvananda-netns (package (name "go-github-com-vishvananda-netns") (version "0.0.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/vishvananda/netns") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0rci8c211m57nya9il81fz6459pia3dj5i4b16fp34vjrkcxliml")))) (build-system go-build-system) (arguments (list #:import-path "github.com/vishvananda/netns" #:phases #~(modify-phases %standard-phases (add-after 'unpack 'disable-failing-tests (lambda* (#:key tests? unpack-path #:allow-other-keys) (with-directory-excursion (string-append "src/" unpack-path) (substitute* (find-files "." "\\_test.go$") ;; Disable tests requiring root access. (("TestGetNewSetDelete") "OffTestGetNewSetDelete") (("TestThreaded") "OffTestThreaded")))))))) (propagated-inputs (list go-golang-org-x-sys)) (home-page "https://github.com/vishvananda/netns") (synopsis "Simple network namespace handling for Go") (description "The netns package provides a simple interface for handling network namespaces in Go.") (license license:asl2.0))) (define-public go-sctp ;; docker-libnetwork-cmd-proxy requires this exact commit. ;; This commit is mentioned in docker-libnetwork-cmd-proxy's vendor.conf. (let ((commit "f2269e66cdee387bd321445d5d300893449805be") (revision "3")) (package (name "go-sctp") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ishidawataru/sctp") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "04463rnn9y9psp11ac5di6wrwxlhymw5h9hfhhhnxqwla90ikp0g")))) (build-system go-build-system) (arguments `(#:tests? #f ; Test suite is flakey. #:import-path "github.com/ishidawataru/sctp")) (home-page "https://github.com/ishidawataru/sctp") (synopsis "SCTP library for the Go programming language") (description "This library provides methods for using the stream control transmission protocol (SCTP) in a Go application.") (license license:asl2.0)))) (define-public httping (package (name "httping") (version "2.9") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/folkertvanheusden/HTTPing") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1gbpirzih0zr93fm71scqjji9wwkfp64q8z36857blsngdfm6k38")))) (build-system gnu-build-system) (arguments (list #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:tests? #f)) ; no test suite (native-inputs (list gettext-minimal)) (inputs (list fftw ncurses openssl)) (home-page "https://www.vanheusden.com/httping/") (synopsis "Web server latency and throughput monitor") (description "httping measures how long it takes to connect to a web server, send an HTTP(S) request, and receive the reply headers. It is somewhat similar to @command{ping}, but can be used even in cases where ICMP traffic is blocked by firewalls or when you want to monitor the response time of the actual web application stack itself.") (license license:gpl2))) ; with permission to link with OpenSSL (define-public httpstat (package (name "httpstat") (version "1.3.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/reorx/httpstat") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0cw8299a080m42slsimz31xs0gjnh833gpbj2dsr4hkcinrn4iyd")))) (build-system python-build-system) (inputs (list curl)) (arguments '(#:phases (modify-phases %standard-phases (add-before 'build 'fix-curl-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "httpstat.py" (("ENV_CURL_BIN.get\\('curl'\\)") (string-append "ENV_CURL_BIN.get('" (assoc-ref inputs "curl") "/bin/curl')")) ;; "curl -w time_*" units seems to have ;; changed from seconds to nanoseconds. (("d\\[k\\] \\* 1000") "d[k] / 1000")) #t))))) (home-page "https://github.com/reorx/httpstat") (synopsis "Visualize curl statistics") (description "@command{httpstat} is a tool to visualize statistics from the @command{curl} HTTP client. It acts as a wrapper for @command{curl} and prints timing information for each step of the HTTP request (DNS lookup, TCP connection, TLS handshake and so on) in the terminal.") (license license:expat))) (define-public squid (package (name "squid") (version "6.10") (source (origin (method url-fetch) (uri (string-append "http://www.squid-cache.org/Versions/v6/squid-" version ".tar.xz")) (sha256 (base32 "19q86j2jd2vwv298ialnhqahl0qjxjdbigi5vmq4gw13wy3v21qb")))) (build-system gnu-build-system) (arguments '(#:configure-flags ;; disable -march=native in build for reproducibility; see ;; https://wiki.squid-cache.org/KnowledgeBase/IllegalInstructionError (list "--disable-arch-native" "--with-openssl") #:phases (modify-phases %standard-phases (add-before 'build 'fix-true-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "test-suite/testheaders.sh" (("/bin/true") (search-input-file inputs "/bin/true")))))))) (inputs (list perl openldap linux-pam libcap libxcrypt cyrus-sasl expat libxml2 openssl)) (native-inputs (list cppunit pkg-config)) (synopsis "Web caching proxy") (description "Squid is a caching proxy for the Web supporting HTTP, HTTPS, FTP, and more. It reduces bandwidth and improves response times by caching and reusing frequently-requested web pages.") (home-page "http://www.squid-cache.org/") (license license:gpl2+))) (define-public bwm-ng (package (name "bwm-ng") (version "0.6.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/vgropp/bwm-ng") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1gpp2l3w479h1w5skjra5xy0gxd24kvmk6i4psbkafnv2399la4k")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'disable-premature-./configure (lambda _ (substitute* "autogen.sh" (("\\$srcdir/configure") "true")) #t))))) (native-inputs (list autoconf automake)) (inputs (list ncurses)) (synopsis "Console based live network and disk I/O bandwidth monitor") (description "Bandwidth Monitor NG is a small and simple console based live network and disk I/O bandwidth monitor.") (home-page "https://www.gropp.org/?id=projects&sub=bwm-ng") (license license:gpl2))) (define-public aircrack-ng (package (name "aircrack-ng") (version "1.7") (source (origin (method url-fetch) (uri (string-append "https://download.aircrack-ng.org/aircrack-ng-" version ".tar.gz")) (sha256 (base32 "1hsq1gwmafka4bahs6rc8p98yi542h9a502h64bjlygpr3ih99q5")))) (build-system gnu-build-system) (native-inputs (list autoconf automake libtool pkg-config which ;; For tests. expect)) (inputs (list `(,hwloc "lib") ; speed boost on SMP machines libgcrypt libnl libpcap ethtool pcre sqlite zlib)) (arguments `(#:configure-flags (list "CFLAGS=-fcommon" "--with-experimental=yes" ; build wesside-ng, etc. "--with-gcrypt") ; openssl's the default #:phases (modify-phases %standard-phases (add-before 'bootstrap 'patch-evalrev (lambda _ ;; Called by ./autogen.sh below, before the default ;; ‘patch-shebangs’ phase has had a chance to run. (substitute* "evalrev" (("/bin/sh") (which "sh"))))) (add-after 'build 'absolutize-tools (lambda* (#:key inputs #:allow-other-keys) (let ((ethtool (search-input-file inputs "/sbin/ethtool"))) (substitute* "scripts/airmon-ng" (("ethtool ") (string-append ethtool " "))))))))) (home-page "https://www.aircrack-ng.org") (synopsis "Assess WiFi network security") (description "Aircrack-ng is a complete suite of tools to assess WiFi network security. It focuses on different areas of WiFi security: monitoring, attacking, testing, and cracking. All tools are command-line driven, which allows for heavy scripting.") (license (list license:gpl2+ license:bsd-3)))) (define-public pixiewps (package (name "pixiewps") (version "1.4.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/wiire-a/pixiewps/releases/" "download/v" version "/" name "-" version ".tar.xz")) (sha256 (base32 "07nym6bqml0k9v29vnj003nrgnwrywgjvnljb7cdpsvnwilhbp64")))) (build-system gnu-build-system) (arguments `(#:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:phases (modify-phases %standard-phases (delete 'configure)) ; no configure script #:tests? #f)) ; there are no tests (home-page "https://github.com/wiire-a/pixiewps/") (synopsis "Offline brute-force tool for Wi-Fi Protected Setup") (description "Pixiewps implements the pixie-dust attack to brute force the Wi-Fi Protected Setup (WPS) PIN by exploiting the low or non-existing entropy of some access points.") (license license:gpl3+))) (define-public reaver (package (name "reaver") (version "1.6.6") (source (origin (method url-fetch) (uri (string-append "https://github.com/t6x/reaver-wps-fork-t6x/releases/" "download/v" version "/reaver-" version ".tar.xz")) (sha256 (base32 "00k7mc81ifv0wma7k4v18mj498badbw5yls6c28qin3d1gda0ag3")))) (build-system gnu-build-system) (arguments `(#:configure-flags ;; Save session files to current directory instead of /var. (list "--enable-savetocurrent" "--localstatedir=/tmp/dummy") ; prevent creating /var during install #:phases (modify-phases %standard-phases (add-before 'configure 'change-directory (lambda _ (chdir "src") #t)) (add-after 'install 'install-doc (lambda* (#:key outputs #:allow-other-keys) (chdir "../docs") (let* ((out (assoc-ref outputs "out")) (doc (string-append out "/share/doc/" ,name "-" ,version)) (man1 (string-append out "/share/man/man1"))) (for-each (lambda (file) (install-file file doc)) (find-files "." "README.*")) (install-file "reaver.1" man1) #t)))) #:tests? #f)) ; there are no tests (inputs (list libpcap)) (propagated-inputs (list aircrack-ng pixiewps)) (home-page "https://github.com/t6x/reaver-wps-fork-t6x/") (synopsis "Attack tool for Wi-Fi Protected Setup") (description "Reaver performs a brute force attack against an access point's Wi-Fi Protected Setup (WPS) PIN. Once the PIN is found, the WPA passphrase can be recovered and the AP's wireless settings can be reconfigured.") (license license:gpl2+))) (define-public perl-danga-socket (package (name "perl-danga-socket") (version "1.62") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/N/NM/NML/" "Danga-Socket-" version ".tar.gz")) (sha256 (base32 "0x4bvirmf0kphks19jwgva00zz73zx344218dfaiv8gigrw3yg4m")))) (build-system perl-build-system) (native-inputs (list perl-test-tcp)) (propagated-inputs (list perl-sys-syscall)) (home-page "https://metacpan.org/release/Danga-Socket") (synopsis "Event loop and event-driven async socket base class") (description "Danga::Socket is an abstract base class for objects backed by a socket which provides the basic framework for event-driven asynchronous IO, designed to be fast. Danga::Socket is both a base class for objects, and an event loop.") (license license:perl-license))) (define-public perl-data-validate-ip (package (name "perl-data-validate-ip") (version "0.30") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/D/DR/DROLSKY/Data-Validate-IP-" version ".tar.gz")) (sha256 (base32 "074adrlvkiahj1fdc9nvb95dpfyjzm2jzhi90m8xaw4bw5ipcbzy")))) (build-system perl-build-system) (native-inputs (list perl-test-requires)) (propagated-inputs (list perl-netaddr-ip)) (home-page "https://metacpan.org/release/Data-Validate-IP") (synopsis "IPv4 and IPv6 validation methods") (description "This module provides several IP address validation subroutines that both validate and untaint their input. This includes both basic validation (@code{is_ipv4()} and @code{is_ipv6()}) and special cases like checking whether an address belongs to a specific network or whether an address is public or private (reserved).") (license license:perl-license))) (define-public perl-net-dns (package (name "perl-net-dns") (version "1.31") (source (origin (method url-fetch) (uri (list (string-append "https://www.net-dns.org/download/Net-DNS-" version ".tar.gz") (string-append "mirror://cpan/authors/id/N/NL/NLNETLABS/Net-DNS-" version ".tar.gz"))) (sha256 (base32 "05f6rzvvmm6xd0p100k5y9kczdzqgala09ra8bccc18n6y74l0h0")))) (build-system perl-build-system) (inputs (list perl-digest-hmac)) (home-page "https://www.net-dns.org/") (synopsis "Perl Interface to the Domain Name System") (description "Net::DNS is the Perl Interface to the Domain Name System.") (license license:x11))) (define-public perl-net-bonjour (package (name "perl-net-bonjour") (version "0.96") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/C/CH/CHLIGE/Net-Bonjour-" version ".tar.gz")) (sha256 (base32 "15qzkfk0isn6c4js3ih95k3dylq6scijp863s0485c00n8x1z2n3")))) (build-system perl-build-system) (propagated-inputs (list perl-net-dns)) (home-page "https://metacpan.org/release/Net-Bonjour") (synopsis "Module for DNS service discovery (Apple's Bonjour)") (description "Net::Bonjour is a set of modules that allow one to discover local services via multicast DNS (mDNS) or enterprise services via traditional DNS. This method of service discovery has been branded as Bonjour by Apple Computer.") (license license:perl-license))) (define-public perl-socket6 (package (name "perl-socket6") (version "0.29") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/U/UM/UMEMOTO/Socket6-" version ".tar.gz")) (sha256 (base32 "054izici8klfxs8hr5rljib28plijpsfymy99xbzdp047bx1b2a6")))) (build-system perl-build-system) (arguments `(#:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (args `("Makefile.PL" ,(string-append "PREFIX=" out) "INSTALLDIRS=site"))) (setenv "CONFIG_SHELL" (which "sh")) (apply invoke "perl" args))))))) (home-page "https://metacpan.org/release/Socket6") (synopsis "IPv6 related part of the C socket.h defines and structure manipulators for Perl") (description "Socket6 binds the IPv6 related part of the C socket header definitions and structure manipulators for Perl.") (license license:bsd-3))) (define-public perl-net-dns-resolver-programmable (package (name "perl-net-dns-resolver-programmable") (version "0.003") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/J/JM/JMEHNLE/net-dns-resolver-programmable/" "Net-DNS-Resolver-Programmable-v" version ".tar.gz")) (sha256 (base32 "1v3nl2kaj4fs55n1617n53q8sa3mir06898vpy1rq98zjih24h4d")) (patches (search-patches "perl-net-dns-resolver-programmable-fix.patch")))) (build-system perl-build-system) (native-inputs (list perl-module-build)) (inputs (list perl-net-dns)) (home-page "https://metacpan.org/release/Net-DNS-Resolver-Programmable") (synopsis "Programmable DNS resolver class for offline emulation of DNS") (description "Net::DNS::Resolver::Programmable is a programmable DNS resolver for offline emulation of DNS.") (license license:perl-license))) (define-public perl-net-dns-resolver-mock (package (name "perl-net-dns-resolver-mock") (version "1.20171219") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/M/MB/MBRADSHAW/" "Net-DNS-Resolver-Mock-" version ".tar.gz")) (sha256 (base32 "0m3rxpkv1b9121srvbqkrgzg4m8mnydiydqv34in1i1ixwrl6jn9")))) (build-system perl-build-system) (inputs (list perl-net-dns)) (home-page "https://metacpan.org/release/Net-DNS-Resolver-Mock") (synopsis "Mock DNS Resolver object for testing") (description "Net::DNS::Resolver::Mock is a subclass of Net::DNS::Resolver, but returns static data from any provided DNS zone file instead of querying the network. It is intended primarily for use in testing.") (license license:perl-license))) (define-public perl-netaddr-ip (package (name "perl-netaddr-ip") (version "4.079") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/M/MI/MIKER/NetAddr-IP-" version ".tar.gz")) (sha256 (base32 "1rx0dinrz9fk9qcg4rwqq5n1dm3xv2arymixpclcv2q2nzgq4npc")))) (build-system perl-build-system) (arguments `(#:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (args `("Makefile.PL" ,(string-append "PREFIX=" out) "INSTALLDIRS=site"))) (setenv "CONFIG_SHELL" (which "sh")) (apply invoke "perl" args))))))) (home-page "https://metacpan.org/release/NetAddr-IP") (synopsis "Manages IPv4 and IPv6 addresses and subnets") (description "NetAddr::IP manages IPv4 and IPv6 addresses and subsets.") (license license:perl-license))) (define-public perl-net-patricia (package (name "perl-net-patricia") (version "1.22") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/G/GR/GRUBER/Net-Patricia-" version ".tar.gz")) (sha256 (base32 "0ln5f57vc8388kyh9vhx2infrdzfhbpgyby74h1qsnhwds95m0vh")))) (build-system perl-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'dont-link-with-nsl ; Borrowed from Debian. (lambda _ (substitute* "Makefile.PL" (("-lnsl") "")) #t))))) (inputs (list perl-net-cidr-lite perl-socket6)) (home-page "https://metacpan.org/release/Net-Patricia") (synopsis "Patricia Trie Perl module for fast IP address lookups") (description "Net::Patricia does IP address lookups quickly in Perl.") ;; The bindings are licensed under GPL2 or later. ;; libpatricia is licensed under 2-clause BSD. (license (list license:gpl2+ license:bsd-2)))) (define-public perl-net-cidr-lite (package (name "perl-net-cidr-lite") (version "0.22") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/S/ST/STIGTSP/Net-CIDR-Lite-" version ".tar.gz")) (sha256 (base32 "05w57db2lx4djb4vixzdr6qgrzyzkk047nl812g7nq8s6k5xh5s3")))) (build-system perl-build-system) (home-page "https://metacpan.org/release/Net-CIDR-Lite") (synopsis "Perl extension for merging IPv4 or IPv6 CIDR addresses") (description "Net::CIDR::Lite merges IPv4 or IPv6 CIDR addresses.") (license license:gpl1+))) (define-public perl-io-socket-inet6 (package (name "perl-io-socket-inet6") (version "2.72") (source (origin (method url-fetch) (uri (string-append "mirror://cpan/authors/id/S/SH/SHLOMIF/IO-Socket-INET6-" version ".tar.gz")) (sha256 (base32 "1fqypz6qa5rw2d5y2zq7f49frwra0aln13nhq5gi514j2zx21q45")))) (build-system perl-build-system) (native-inputs (list perl-module-build perl-test-pod perl-test-pod-coverage)) (propagated-inputs (list perl-socket6)) (arguments `(;; Need network socket API #:tests? #f)) (home-page "https://metacpan.org/release/IO-Socket-INET6") (synopsis "Perl object interface for AF_INET/AF_INET6 domain sockets") (description "IO::Socket::INET6 is an interface for AF_INET/AF_INET6 domain sockets in Perl.") (license license:perl-license))) (define-public libproxy (package (name "libproxy") (version "0.4.17") (source (origin (method url-fetch) (uri (string-append "https://github.com/libproxy/libproxy/" "releases/download/" version "/libproxy-" version ".tar.xz")) (sha256 (base32 "01cbgz6lc3v59sldqk96l1281kp2qxnsa2qwlf2ikvjlyr1gi2dw")))) (build-system cmake-build-system) (native-inputs (list pkg-config)) (inputs (list dbus zlib)) (arguments '(#:phases (modify-phases %standard-phases (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "ctest" "-E" "url-test"))))))) (synopsis "Library providing automatic proxy configuration management") (description "Libproxy handles the details of HTTP/HTTPS proxy configuration for applications across all scenarios. Applications using libproxy only have to specify which proxy to use.") (home-page "https://libproxy.github.io/libproxy") (license license:lgpl2.1+))) (define-public proxychains-ng (package (name "proxychains-ng") (version "4.16") (source (origin (method url-fetch) (uri (string-append "http://ftp.barfooze.de/pub/sabotage/tarballs/" "proxychains-ng-" version ".tar.xz")) (sha256 (base32 "04k80jbv1wcr7ccsa0qyly33syw275kvkvzyihwwqmsqk4yria9p")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; there are no tests #:phases (modify-phases %standard-phases (add-after 'unpack 'fix-configure-script (lambda _ ;; The configure script is very intolerant to unknown arguments, ;; such as "CONFIG_SHELL". (substitute* "configure" (("\\*\\) break ;;" line) (string-append "[A-Z]*) shift ;;\n" line))))) (add-before 'configure 'set-up-environment (lambda _ (setenv "CC" ,(cc-for-target))))))) (synopsis "Redirect any TCP connection through a proxy or proxy chain") (description "Proxychains-ng is a preloader which hooks calls to sockets in dynamically linked programs and redirects them through one or more SOCKS or HTTP proxies.") (home-page "https://github.com/rofl0r/proxychains-ng") (license license:gpl2+))) (define-public enet (package (name "enet") (version "1.3.17") (source (origin (method url-fetch) (uri (string-append "http://enet.bespin.org/download/" "enet-" version ".tar.gz")) (sha256 (base32 "1p6f9mby86af6cs7pv6h48032ip9g32c05cb7d9mimam8lchz3x3")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (synopsis "Network communication layer on top of UDP") (description "ENet's purpose is to provide a relatively thin, simple and robust network communication layer on top of UDP. The primary feature it provides is optional reliable, in-order delivery of packets. ENet omits certain higher level networking features such as authentication, server discovery, encryption, or other similar tasks that are particularly application specific so that the library remains flexible, portable, and easily embeddable.") (home-page "http://enet.bespin.org") (license license:expat))) (define-public enet-moonlight (let ((commit "4cde9cc3dcc5c30775a80da1de87f39f98672a31") (revision "1")) (package (inherit enet) (name "enet") (version (git-version "1.3.17" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/cgutman/enet") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "07sr32jy989ja23fwg8bvrq2slgm7bhfw6v3xq7yczbw86c1dndv")))) (build-system cmake-build-system) (arguments (list #:tests? #f ;no test suite #:phases #~(modify-phases %standard-phases (add-after 'unpack 'build-share-lib (lambda* _ ;; -DBUILD_SHARED_LIBS=ON not working (substitute* "CMakeLists.txt" (("STATIC") "SHARED")))) (replace 'install (lambda* (#:key outputs source #:allow-other-keys) (let* ((include (string-append #$output "/include")) (lib (string-append #$output "/lib"))) (mkdir-p include) (mkdir-p lib) (copy-recursively (string-append source "/include") include) (install-file "libenet.so" lib))))))) (native-inputs (list pkg-config))))) (define-public sslh (package (name "sslh") (version "1.21c") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/yrutschle/sslh") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "19h32dn0076p3s7dn35qi5yp2xvnxw9sqphppmn72vyb8caxvw1z")))) (build-system gnu-build-system) (native-inputs (list ;; Test dependencies. lcov perl perl-conf-libconfig perl-io-socket-inet6 perl-socket6 psmisc)) ; for ‘killall’ (inputs (list libcap libconfig pcre tcp-wrappers)) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) ; no configure script (add-before 'check 'fix-tests (lambda _ (substitute* "./t" (("\"/tmp") "$ENV{\"TMPDIR\"} . \"") ;; The Guix build environment lacks ‘ip6-localhost’. (("ip6-localhost") "localhost")) #t)) ;; Many of these files are mentioned in the man page. Install them. (add-after 'install 'install-documentation (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (doc (string-append out "/share/doc/sslh"))) (install-file "README.md" doc) (for-each (lambda (file) (install-file file (string-append doc "/examples"))) (append (find-files "." "\\.cfg") (find-files "scripts")))) #t))) #:make-flags (list ,(string-append "CC=" (cc-for-target)) "USELIBCAP=1" "USELIBWRAP=1" (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:test-target "test")) (home-page "https://www.rutschle.net/tech/sslh/README.html") (synopsis "Applicative network protocol demultiplexer") (description "sslh is a network protocol demultiplexer. It acts like a switchboard, accepting connections from clients on one port and forwarding them to different servers based on the contents of the first received data packet. Detection of common protocols like HTTP(S), SSL, SSH, OpenVPN, tinc, and XMPP is already implemented, but any other protocol that matches a regular expression can be added. sslh's name comes from its original application of serving both SSH and HTTPS on port 443, allowing SSH connections from inside corporate firewalls that block port 22.") (license (list license:bsd-2 ; tls.[ch] license:gpl2+)))) ; everything else (define-public iperf (package (name "iperf") (version "3.17.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/esnet/iperf") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "14pspy3348114r7rm2gj8h4qjhq8r8q7khrfqg8ln4vi1p9dq2x5")))) (build-system gnu-build-system) (arguments `(#:configure-flags (list "--disable-static"))) (synopsis "TCP, UDP and SCTP bandwidth measurement tool") (description "iPerf is a tool to measure achievable bandwidth on IP networks. It supports tuning of various parameters related to timing, buffers and protocols (TCP, UDP, SCTP with IPv4 and IPv6). For each test it reports the bandwidth, loss, and other parameters.") (home-page "https://software.es.net/iperf/") (license (list license:bsd-3 ; Main distribution. license:ncsa ; src/{units,iperf_locale,tcp_window_size}.c license:expat ; src/{cjson,net}.[ch] license:public-domain)))) ; src/portable_endian.h (define-public nethogs (package (name "nethogs") (version "0.8.7") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/raboof/nethogs") (commit (string-append "v" version)))) (hash (content-hash (base32 "10shdwvfj90lp2fxz9260342a1c2n1jbw058qy5pyq5kh3xwr9b8") sha256)) (file-name (git-file-name name version)))) (build-system gnu-build-system) (inputs (list libpcap ncurses)) (arguments `(#:make-flags `(,,(string-append "CC=" (cc-for-target)) ,(string-append "PREFIX=" %output) ,(string-append "VERSION=" ,version)) #:phases (modify-phases %standard-phases (delete 'configure)))) ; no ./configure script. (home-page "https://github.com/raboof/nethogs") (synopsis "Per-process bandwidth monitor") (description "NetHogs is a small 'net top' tool for Linux. Instead of breaking the traffic down per protocol or per subnet, like most tools do, it groups bandwidth by process. NetHogs does not rely on a special kernel module to be loaded. If there's suddenly a lot of network traffic, you can fire up NetHogs and immediately see which PID is causing this. This makes it easy to identify programs that have gone wild and are suddenly taking up your bandwidth.") (license license:gpl2+))) (define-public nzbget (package (name "nzbget") (version "21.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/nzbget/nzbget/releases" "/download/v" version "/nzbget-" version "-src.tar.gz")) (sha256 (base32 "09900x1k0yf4yi2cc0k093advvadyhrkm8rnd8nszhhdp2zc33sf")))) (arguments `(#:configure-flags (list (string-append "--with-libcurses-includes=" (assoc-ref %build-inputs "ncurses") "/include") (string-append "--with-libcurses-libraries=" (assoc-ref %build-inputs "ncurses") "/lib") (string-append "--with-tlslib=GnuTLS")))) (build-system gnu-build-system) (inputs (list gnutls libxml2 ncurses zlib)) (native-inputs (list pkg-config)) (home-page "https://github.com/nzbget/nzbget") (synopsis "Usenet binary file downloader") (description "NZBGet is a binary newsgrabber, which downloads files from Usenet based on information given in @code{nzb} files. NZBGet can be used in standalone and in server/client modes. In standalone mode, you pass NZBGet @command{nzb} files as command-line parameters and it downloads them and exits. NZBGet also contains a Web interface. Its server can be controlled through remote procedure calls (RPCs).") (license license:gpl2+))) (define-public openvswitch (package (name "openvswitch") (version "3.2.0") (source (origin (method url-fetch) (uri (string-append "https://www.openvswitch.org/releases/openvswitch-" version ".tar.gz")) (sha256 (base32 "1i0lb40lwbakmmqklmfcgr01l1ymsawgdi7k9a1zzp8ariw7x4ff")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--enable-shared" "--disable-static" ; XXX still installs libopenvswitchavx512.a "--localstatedir=/var" "--with-dbdir=/var/lib/openvswitch") ;; Tests fail in different ways, on different x86_64-linux hardware: ;; 25. bfd.at:268: 25. bfd - bfd decay (bfd.at:268): FAILED (bfd.at:397) ;; 1040. dpif-netdev - meters (dpif-netdev.at:269): FAILED (dpif-netdev.at:376) #:tests? #f #:phases (modify-phases %standard-phases (add-after 'unpack 'use-absolute-/bin/sh (lambda* (#:key inputs #:allow-other-keys) (let ((/bin/sh (search-input-file inputs "bin/sh"))) (substitute* "ovsdb/ovsdb-server.c" (("/bin/sh") /bin/sh))))) (add-before 'check 'adjust-tests (lambda* (#:key inputs #:allow-other-keys) (let ((/bin/sh (search-input-file inputs "bin/sh"))) (with-fluids ((%default-port-encoding "ISO-8859-1")) (substitute* (find-files "tests" ".*(run|testsuite)$") (("#! /bin/sh") (string-append "#! " /bin/sh)) ;; grep 3.8 emits a warning for 'egrep' which breaks ;; expected output; adjust accordingly. (("egrep") "grep -E") ;; The tests use 'kill -0' to check whether a test has ;; completed, but it does not work in the build container ;; because zombies are not reaped automatically (PID 1 is ;; the builder script). Change to something that handles ;; undead processes. (("kill -0") "kill-0"))) (mkdir "/tmp/bin") (call-with-output-file "/tmp/bin/kill-0" (lambda (port) (format port "#!~a ps --no-header -p $1 -o state= | grep -qv '^Z$'" /bin/sh))) (chmod "/tmp/bin/kill-0" #o755) (setenv "PATH" (string-append "/tmp/bin:" (getenv "PATH")))))) (replace 'install (lambda _ (invoke "make" ;; Don't try to create directories under /var. "RUNDIR=/tmp" "PKIDIR=/tmp" "LOGDIR=/tmp" "DBDIR=/tmp" "install")))))) (native-inputs (list perl pkg-config python-wrapper ;; For testing. bash ;for 'compgen' procps util-linux)) (inputs (list bash-minimal libcap-ng openssl)) (synopsis "Virtual network switch") (home-page "https://www.openvswitch.org/") (description "Open vSwitch is a multilayer virtual switch. It is designed to enable massive network automation through programmatic extension, while still supporting standard management interfaces and protocols (e.g. NetFlow, sFlow, IPFIX, RSPAN, CLI, LACP, 802.1ag).") (properties '((release-monitoring-url . "https://www.openvswitch.org/download/"))) (license ; see debian/copyright for detail (list license:lgpl2.1 ; xenserver and utilities/bugtool license:gpl2 ; datapath license:bsd-2 license:bsd-3 license:asl2.0)))) ; all other (define-public python-ipy (package (name "python-ipy") (version "1.01") (source (origin (method url-fetch) (uri (pypi-uri "IPy" version)) (sha256 (base32 "06nclwafzsbi8ls019ry1xnfhgwc5103g8lgav54mmd2vr0sgv7d")))) (build-system python-build-system) (home-page "https://github.com/autocracy/python-ipy/") (synopsis "Python class and tools for handling IP addresses and networks") (description "The @code{IP} class allows a comfortable parsing and handling for most notations in use for IPv4 and IPv6 addresses and networks.") (license license:bsd-3))) (define-public speedtest-cli (package (name "speedtest-cli") (version "2.1.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sivel/speedtest-cli") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "10fazl4kwf41mk7pnwpfms16n0ii0kg9pf8r3mz9xwnl9y04mv9x")))) (build-system python-build-system) (home-page "https://github.com/sivel/speedtest-cli") (synopsis "Internet bandwidth tester") (description "Command line interface for testing internet bandwidth using speedtest.net.") (license license:asl2.0))) (define-public atftp (package (name "atftp") (version "0.8.0") (source (origin (method git-fetch) (uri (git-reference (url "https://git.code.sf.net/p/atftp/code") (commit (string-append "v" version)))) (sha256 (base32 "019qrh2wpvr577ksvs3s82q6kiqm5i6869aj7qba326b59lhkxrc")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'autoreconf (lambda _ (invoke "autoreconf" "-vif")))))) (native-inputs (list autoconf automake perl pkg-config)) (inputs (list pcre2 procps readline tcp-wrappers)) (home-page "https://sourceforge.net/projects/atftp/") (synopsis "Advanced TFTP server and client") (description "This package provides a multi-threaded TFTP server that implements all options, including all extensions, as specified in RFC 1350, RFC 2090, RFC 2347, RFC 2348, RFC 2349 and RFC7440. Atftpd also supports a multicast protocol known as mtftp, which was defined in the PXE specification. The server is socket activated by default but supports being started from @command{inetd} as well as in daemon mode.") (license license:gpl2+))) (define-public tftp-hpa (package (name "tftp-hpa") (version "5.2") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/software/" "network/tftp/tftp-hpa/tftp-hpa-" version ".tar.xz")) (sha256 (base32 "12vidchglhyc20znq5wdsbhi9mqg90jnl7qr9qs8hbvaz4fkdvmg")))) (build-system gnu-build-system) (arguments (list #:tests? #f ; no test target #:configure-flags #~(list "CFLAGS=-fcommon"))) ; XXX fix 5.2 build with GCC 10 (synopsis "HPA's tftp client") (description "This is a tftp client derived from OpenBSD tftp with some extra options added and bugs fixed. The source includes readline support but it is not enabled due to license conflicts between the BSD advertising clause and the GPL.") (home-page "https://git.kernel.org/cgit/network/tftp/tftp-hpa.git/about/") ;; Some source files are distributed under a 3-clause BSD license, and ;; others under a 4-clause BSD license. Refer to the files in the source ;; distribution for clarification. (license (list license:bsd-3 license:bsd-4)))) (define-public spiped (package (name "spiped") (version "1.6.2") (source (origin (method url-fetch) (uri (string-append "https://www.tarsnap.com/spiped/spiped-" version ".tgz")) (sha256 (base32 "0rs5403bp48wyy2x0f3hk0f75ds1qn03sgyli2c7y7fi29ynim05")))) (build-system gnu-build-system) (arguments (list #:test-target "test" #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "BINDIR=" #$output "/bin") (string-append "MAN1DIR=" #$output "/share/man/man1")) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-command-invocations (lambda _ (substitute* '("Makefile" "libcperciva/cpusupport/Build/cpusupport.sh" "libcperciva/POSIX/posix-cflags.sh" "libcperciva/POSIX/posix-l.sh") (("command -p") "")))) (delete 'configure) ; no ./configure script (add-after 'install 'install-more-docs (lambda _ (install-file "DESIGN.md" (string-append #$output "/share/doc/spiped"))))))) (native-inputs (list procps)) ; `ps` is used by the test suite (inputs (list openssl)) (home-page "https://www.tarsnap.com/spiped.html") (synopsis "Create secure pipes between sockets") (description "Spiped (pronounced \"ess-pipe-dee\") is a utility for creating symmetrically encrypted and authenticated pipes between socket addresses, so that one may connect to one address (e.g., a UNIX socket on localhost) and transparently have a connection established to another address (e.g., a UNIX socket on a different system). This is similar to 'ssh -L' functionality, but does not use SSH and requires a pre-shared symmetric key.") (license license:bsd-2))) (define-public quagga (package (name "quagga") (version "1.2.4") (source (origin (method url-fetch) ;; Use archived sources; see <http://issues.guix.gnu.org/47123>. (uri (string-append "https://fossies.org/linux/misc/" "quagga-" version ".tar.gz")) (sha256 (base32 "1lsksqxij5f1llqn86pkygrf5672kvrqn1kvxghi169hqf1c0r73")) (patches (search-patches "quagga-reproducible-build.patch")) (snippet #~(begin (delete-file "lib/memtypes.h") (delete-file "lib/route_types.h") (delete-file "lib/version.h") (delete-file "vtysh/extract.pl"))))) (build-system gnu-build-system) (native-inputs (list gawk gcc-9 pkg-config perl dejagnu)) (inputs (list readline c-ares)) (synopsis "Routing Software Suite") (description "Quagga is a routing software suite, providing implementations of OSPFv2, OSPFv3, RIP v1 and v2, RIPng and BGP-4 for Unix platforms. The Quagga architecture consists of a core daemon, @command{zebra}, which acts as an abstraction layer to the underlying Unix kernel and presents the Zserv API over a Unix or TCP stream to Quagga clients. It is these Zserv clients which typically implement a routing protocol and communicate routing updates to the zebra daemon.") (home-page "https://www.nongnu.org/quagga/") (license license:gpl2+))) (define-public bgpq3 (package (name "bgpq3") (version "0.1.36.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/snar/bgpq3") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0768hihx7idmn2dk8ii21m0dm052amlnfpqq53vsfaapb60n1smc")))) (build-system gnu-build-system) (arguments '(#:tests? #f)) ; no test suite (native-inputs (list python-markdown)) (home-page "http://snar.spb.ru/prog/bgpq3/") (synopsis "Generate BGP filters from the @acronym{IRR, Internet Routing Registry}") (description "This program helps automate the creation and maintenance of @acronym{BGP, Border Gateway Protocol} routing filters used for peering trough Internet exchanges. It generates prefix lists, (extended) access lists, policy-statement terms, and AS paths from data in the @acronym{IRR, Internet Routing Registry}, including the @acronym{RADB, Routing Assets Database} operated by the Merit Network at the University of Michigan. The filters can be aggregated and exported in the most common formats.") (license (list license:bsd-3 ; strlcpy.c, sys_queue.h license:bsd-2)))) ; everything else, but missing headers (define-public thc-ipv6 (package (name "thc-ipv6") (version "3.8") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/vanhauser-thc/thc-ipv6") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "07kwika1zdq62s5p5z94xznm77dxjxdg8k0hrg7wygz50151nzmx")) (modules '((guix build utils))) (snippet '(begin (substitute* '("Makefile") (("-march=native") "")))))) (build-system gnu-build-system) (arguments (list #:tests? #f ; No test suite. #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-makefile (lambda _ (substitute* "Makefile" ;; For reproducible builds (("date --iso-8601") "date --iso-8601 --utc --date=@$(SOURCE_DATE_EPOCH)") (("/bin/echo") "echo")))) (delete 'configure) ; No ./configure script. (add-after 'install 'install-more-docs (lambda _ (let ((doc (string-append #$output "/share/thc-ipv6/doc"))) (install-file "README" doc) (install-file "HOWTO-INJECT" doc))))))) (inputs (list libnetfilter-queue libnfnetlink libpcap openssl perl)) (properties '((tunable? . #t))) (home-page "https://github.com/vanhauser-thc/thc-ipv6") (synopsis "IPv6 security research toolkit") (description "The THC IPv6 Toolkit provides command-line tools and a library for researching IPv6 implementations and deployments. It requires Linux 2.6 or newer and only works on Ethernet network interfaces.") ;; AGPL 3 with exception for linking with OpenSSL. See the 'LICENSE' file in ;; the source distribution for more information. (license license:agpl3))) (define-public bmon (package (name "bmon") (version "4.0") (source (origin (method url-fetch) (uri (string-append "https://github.com/tgraf/bmon/releases/download/v" version "/bmon-" version ".tar.gz")) (sha256 (base32 "0ylzriv4pwh76344abzl1w219x188gshbycbna35gsyfp09c7z82")))) (build-system gnu-build-system) (inputs (list libconfuse libnl ncurses)) (native-inputs (list pkg-config)) (synopsis "Bandwidth monitor") (description "bmon is a monitoring and debugging tool to capture networking-related statistics and prepare them visually in a human-friendly way. It features various output methods including an interactive curses user interface and a programmable text output for scripting.") (home-page "https://github.com/tgraf/bmon") ;; README.md mentions both the 2-clause BSD and expat licenses, but all ;; the source files only have expat license headers. Upstream has been ;; contacted for clarification: https://github.com/tgraf/bmon/issues/59 ;; Update the license field when upstream responds. (license (list license:bsd-2 license:expat)))) (define-public libnet (package (name "libnet") (version "1.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/libnet/libnet/releases/download" "/v" version "/libnet-" version ".tar.gz")) (sha256 (base32 "19ys9vxk6fg70yzzdxsphfr0rwzgxxhr9b3ykhpg7rfray0qd96a")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'fix-manpage-date (lambda _ ;; Replace current date with specific date to build reproducibly (substitute* "doc/fixmanpages.in" (("pod2man -d .* -n") "pod2man -d \"1970-01-01\" -n")))) (add-before 'build 'build-doc (lambda* (#:key make-flags #:allow-other-keys) (apply invoke "make" "-C" "doc" "doc" make-flags)))))) (native-inputs (list ;; To build the documentation, Doxygen and Perl is required. doxygen perl)) (home-page "https://github.com/libnet/libnet") (synopsis "Framework for low-level network packet construction") (description "Libnet provides a fairly portable framework for network packet construction and injection. It features portable packet creation interfaces at the IP layer and link layer, as well as a host of supplementary functionality. Using libnet, quick and simple packet assembly applications can be whipped up with little effort.") (license license:bsd-2))) (define-public mtr (package (name "mtr") (version "0.95") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.bitwizard.nl/mtr/" "mtr-" version ".tar.gz")) (sha256 (base32 "0haanralbvd12pvkyihgkmx9ld74dnzm1s7mzparfandl416ibff")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list jansson libcap ncurses)) (arguments `(#:tests? #f)) ; tests require network access (home-page "https://www.bitwizard.nl/mtr/") (synopsis "Network diagnostic tool") (description "@acronym{mtr, My TraceRoute} combines the functionality of the @command{traceroute} and @command{ping} programs in a single network diagnostic tool. @command{mtr} can use several network protocols to detect intermediate routers (or @dfn{hops}) between the local host and a user-specified destination. It then continually measures the response time and packet loss at each hop, and displays the results in real time.") (license license:gpl2+))) (define-public amule (package (name "amule") (version "2.3.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/amule-project/amule") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1nm4vxgmisn1b6l3drmz0q04x067j2i8lw5rnf0acaapwlp8qwvi")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'bootstrap) ; bootstrap phase runs too early. (add-after 'patch-source-shebangs 'autogen (lambda _ (invoke "sh" "autogen.sh") #t))) #:configure-flags '("--disable-rpath" "--enable-wxcas" "--enable-cas" "--enable-alc" "--enable-alcc" "--enable-xas" "--enable-amulecmd" "--enable-geoip" "--enable-ccache" "--enable-nls" "--enable-optimize" "--enable-amule-gui" "--enable-amule-daemon" "--enable-webserver" "--with-denoise-level=0"))) (native-inputs (list autoconf automake gettext-minimal perl)) (inputs (list zlib crypto++ libpng wxwidgets-gtk2)) (home-page "https://amule.org/") (synopsis "Peer-to-peer client for the eD2K and Kademlia networks") (description "aMule is an eMule-like client for the eD2k and Kademlia peer-to-peer file sharing networks. It includes a graphical user interface (GUI), a daemon allowing you to run a client with no graphical interface, and a Web GUI for remote access. The @command{amulecmd} command allows you to control aMule remotely.") (license license:gpl2+))) (define-public zyre (package (name "zyre") (version "2.0.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/zeromq/zyre/releases/download/v" version "/" name "-" version ".tar.gz")) (sha256 (base32 "13596507ma1474cjqzxym5jlvcshvw7sjhw80rdz788gyz6kz90b")))) (build-system gnu-build-system) (inputs (list zeromq czmq libsodium)) (synopsis "Framework for proximity-based peer-to-peer applications") (description "Zyre provides reliable group messaging over local area networks using zeromq. It has these key characteristics: @itemize @item Zyre needs no administration or configuration. @item Peers may join and leave the network at any time. @item Peers talk to each other without any central brokers or servers. @item Peers can talk directly to each other. @item Peers can join groups, and then talk to groups. @item Zyre is reliable, and loses no messages even when the network is heavily loaded. @item Zyre is fast and has low latency, requiring no consensus protocols. @item Zyre is designed for WiFi networks, yet also works well on Ethernet networks. @end itemize") (home-page "https://github.com/zeromq/zyre") (license license:mpl2.0))) (define-public libsocketcan (package (name "libsocketcan") (version "0.0.12") (source (origin (method git-fetch) (uri (git-reference (url "https://git.pengutronix.de/cgit/tools/libsocketcan") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0nrav2yqxgb7jwnhrwirnxs9ycqqh90sqgv5a8lns837jf385jvq")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases ;; Upstream already puts (more) files in share/doc/libsocketcan. (delete 'install-license-files)))) (native-inputs (list autoconf automake libtool)) (home-page "https://git.pengutronix.de/cgit/tools/libsocketcan") (synopsis "SocketCAN user-space library") (description "This library allows controlling basic functions in SocketCAN from user-space. It requires a kernel built with SocketCAN support.") (license license:lgpl2.1+))) (define-public can-utils (package (name "can-utils") (version "2020.02.04") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/linux-can/can-utils") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1a3j1mmnb7pvgc8r7zzp6sdp7903in2hna6bmpraxln7cwlzn4l6")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; No tests exist. #:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:phases (modify-phases %standard-phases (delete 'bootstrap) (delete 'configure)))) (home-page "https://github.com/linux-can/can-utils") (synopsis "CAN utilities") (description "This package provides CAN utilities in the following areas: @itemize @item Basic tools to display, record, generate and replay CAN traffic @item CAN access via IP sockets @item CAN in-kernel gateway configuration @item CAN bus measurement and testing @item ISO-TP (ISO15765-2:2016 - this means messages with a body larger than eight bytes) tools @item Log file converters @item Serial Line Discipline configuration for slcan driver @end itemize") ;; Either BSD-3 or GPL-2 can be used. (license (list license:bsd-3 license:gpl2)))) (define-public asio (package (name "asio") (version "1.28.0") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/asio/asio/" version " (Stable)/asio-" version ".tar.bz2")) (sha256 (base32 "0cp2c4v0kz0ln4bays0s3fr1mcxl527ay2lp7s14qbxx38vc5pfh")))) (build-system gnu-build-system) (inputs (list boost openssl)) (arguments `(#:configure-flags (list (string-append "--with-boost=" (assoc-ref %build-inputs "boost")) (string-append "--with-openssl=" (assoc-ref %build-inputs "openssl"))))) (home-page "https://think-async.com/Asio") (synopsis "C++ library for ASynchronous network I/O") (description "Asio is a cross-platform C++ library for network and low-level I/O programming that provides developers with a consistent asynchronous model using a modern C++ approach.") (license license:boost1.0))) (define-public shadowsocks (package (name "shadowsocks") (version "2.9.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/shadowsocks/shadowsocks") (commit version))) (sha256 (base32 "02mp5905nz02d7amb4zc77rcrkxmvy8mf5rci7mvy58g24lvbw25")) (file-name (git-file-name name version)))) (inputs (list openssl)) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-crypto-paths (lambda* (#:key inputs #:allow-other-keys) (substitute* "shadowsocks/shell.py" (("config\\.get\\('libopenssl', None\\)") (format #f "config.get('libopenssl', ~s)" (string-append (assoc-ref inputs "openssl") "/lib/libssl.so"))))))))) (build-system python-build-system) (home-page "https://github.com/shadowsocks/shadowsocks") (synopsis "Fast tunnel proxy that helps you bypass firewalls") (description "This package is a fast tunnel proxy that helps you bypass firewalls. Features: @itemize @item TCP & UDP support @item User management API @item TCP Fast Open @item Workers and graceful restart @item Destination IP blacklist @end itemize") (license license:asl2.0))) (define-public net-snmp (package (name "net-snmp") (version "5.9.4") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/net-snmp/net-snmp/" version "/net-snmp-" version ".tar.gz")) (sha256 (base32 "0i05bds30jazb2wq0hn3mh1zmmnnl9hkkd5y2iq3qkp7j49y0kcb")) (modules '((guix build utils))) (snippet '(begin ;; Drop bundled libraries. (delete-file-recursively "snmplib/openssl"))))) (build-system gnu-build-system) (arguments `(#:test-target "test" ;; XXX: With parallel build enabled, Perl modules may not get linked with ;; libnetsnmp. See e.g. <https://bugzilla.novell.com/show_bug.cgi?id=819497>. #:parallel-build? #f #:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib") "--disable-static" "--with-logfile=/var/log/snmpd.log" (string-append "--with-openssl=" (assoc-ref %build-inputs "openssl"))) #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-tests (lambda* (#:key inputs #:allow-other-keys) (substitute* "testing/fulltests/support/simple_TESTCONF.sh" (("NETSTAT=\"\"") (string-append "NETSTAT=\"" (which "netstat") "\""))) (substitute* '("testing/fulltests/default/T065agentextend_simple" "testing/fulltests/default/T115agentxperl_simple") (("/usr/bin/env") (which "env"))) (substitute* "testing/fulltests/default/T065agentextend_sh_simple" (("/bin/sh") (which "sh"))) ;; These tests require network access. (for-each delete-file '("testing/fulltests/default/T070com2sec_simple" "testing/fulltests/default/T071com2sec6_simple")))) (add-after 'unpack 'patch-Makefile.PL (lambda* (#:key outputs #:allow-other-keys) (substitute* "Makefile.in" (("Makefile.PL -NET") (string-append "Makefile.PL PREFIX=" (assoc-ref outputs "out") " INSTALLDIRS=site" " NO_PERLLOCAL=1" " -NET")))))))) (inputs (list libnl ncurses ; for the ‘apps’ openssl perl)) (native-inputs (list pkg-config ;; For tests only. net-tools coreutils grep)) (home-page "http://www.net-snmp.org/") (synopsis "Simple Network Management Protocol library and tools") (description "The @dfn{Simple Network Management Protocol} (SNMP) is a widely used protocol for monitoring the health and welfare of network equipment (e.g. routers), computer equipment and even devices like UPSs. Net-SNMP is a suite of applications used to implement SNMP v1, SNMP v2c and SNMP v3 using both IPv4 and IPv6.") ;; This only affects OpenBSD ;; https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2015-8100 (properties `((lint-hidden-cve . ("CVE-2015-8100")))) (license (list license:bsd-3 (license:non-copyleft "http://www.net-snmp.org/about/license.html" "CMU/UCD copyright notice"))))) (define-public ubridge (package (name "ubridge") (version "0.9.18") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/GNS3/ubridge") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0jg66jhhpv4c9340fsdp64hf9h253i8r81fknxa0gq241ripp3jn")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no tests #:make-flags (list ,(string-append "CC=" (cc-for-target))) #:phases (modify-phases %standard-phases (delete 'configure) ; no configure script (add-before 'install 'set-bindir (lambda* (#:key inputs outputs #:allow-other-keys) (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) (mkdir-p bin) (substitute* "Makefile" (("\\$\\(BINDIR\\)") bin) (("\tsetcap cap_net.*$") ""))) #t))))) (inputs (list libpcap)) (home-page "https://github.com/GNS3/ubridge/") (synopsis "Bridge for UDP tunnels, Ethernet, TAP and VMnet interfaces") (description "uBridge is a simple program to create user-land bridges between various technologies. Currently, bridging between UDP tunnels, Ethernet and TAP interfaces is supported. Packet capture is also supported.") (license license:gpl3+))) (define-public hcxtools (package (name "hcxtools") (version "6.2.7") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ZerBea/hcxtools") (commit version))) (sha256 (base32 "0460dxbc04w60l3g06rk007yyb6qprgyii59y2zdki0vy7q63m8b")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list curl libpcap openssl zlib)) (arguments (list #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) "LDFLAGS+=-lcrypto" "LDFLAGS+=-lcurl" "LDFLAGS+=-lz" (string-append "PREFIX=" #$output)) #:tests? #f ;no test suite #:phases #~(modify-phases %standard-phases (delete 'configure)))) (home-page "https://github.com/ZerBea/hcxtools") (synopsis "Capture wlan traffic to hashcat and John the Ripper") (description "This package contains a small set of tools to capture and convert packets from wireless devices for use with hashcat or John the Ripper.") (license license:expat))) (define-public hcxdumptool (package (name "hcxdumptool") (version "6.0.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ZerBea/hcxdumptool") (commit version))) (sha256 (base32 "1b4d543y64ib92w9gcmiyjn5hz2vyjqmxk3f3yr1zk04fhw16gmf")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments `(#:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "INSTALLDIR=" (assoc-ref %outputs "out") "/bin")) #:tests? #f ; no test suite #:phases (modify-phases %standard-phases (delete 'configure)))) (inputs (list openssl)) (home-page "https://github.com/ZerBea/hcxdumptool") (synopsis "Small tool to capture packets from wlan devices") (description "Small tool to capture packets from WLAN devices. After capturing, upload the \"uncleaned\" cap to @url{https://wpa-sec.stanev.org/?submit} to see if the access point or the client is vulnerable to a dictionary attack. Convert the cap file to hccapx format and/or to WPA-PMKID-PBKDF2 hashline (16800) with @command{hcxpcaptool} from the @code{hcxtools} package and check if the WLAN key or the master key was transmitted unencrypted.") (license license:expat))) (define-public dante (package (name "dante") (version "1.4.3") (source (origin (method url-fetch) (uri (string-append "https://www.inet.no/dante/files/dante-" version ".tar.gz")) (sha256 (base32 "0pbahkj43rx7rmv2x40mf5p3g3x9d6i2sz7pzglarf54w5ghd2j1")) (patches (search-patches "dante-non-darwin.patch")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--with-libc=libc.so.6"))) (inputs (list libxcrypt)) (home-page "https://www.inet.no/dante/") (synopsis "SOCKS server and client") (description "Dante is a SOCKS client and server implementation. It can be installed on a machine with access to an external TCP/IP network and will allow all other machines, without direct access to that network, to be relayed through the machine the Dante server is running on. The external network will never see any machines other than the one Dante is running on.") (license (license:non-copyleft "file://LICENSE")))) (define-public restbed (package (name "restbed") (version "4.8") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/Corvusoft/restbed/") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "15j09x36i6zj6innl0w1mfzlc56qmjwrs82my8dsagqa2ikd08ya")))) (build-system cmake-build-system) (inputs (list asio catch-framework openssl)) (arguments `(#:configure-flags '("-DBUILD_SSL=NO") #:phases (modify-phases %standard-phases (add-after 'unpack 'apply-patches-and-fix-paths (lambda* (#:key inputs #:allow-other-keys) (let ((asio (assoc-ref inputs "asio")) (catch (assoc-ref inputs "catch")) (openssl (assoc-ref inputs "openssl"))) (substitute* "cmake/Findasio.cmake" (("(find_path\\( asio_INCLUDE asio\\.hpp HINTS ).*$" all begin) (string-append begin " \"" asio "/include\" )"))) (substitute* "cmake/Findcatch.cmake" (("(find_path\\( catch_INCLUDE catch\\.hpp HINTS ).*$" all begin) (string-append begin " \"" catch "/include\" )"))) (substitute* "cmake/Findopenssl.cmake" (("(find_library\\( ssl_LIBRARY ssl ssleay32 HINTS ).*$" all begin) (string-append begin " \"" openssl "/lib\" )")) (("(find_library\\( crypto_LIBRARY crypto libeay32 HINTS ).*$" all begin) (string-append begin " \"" openssl "/lib\" )")) (("(find_path\\( ssl_INCLUDE openssl/ssl\\.h HINTS ).*$" all begin) (string-append begin " \"" openssl "/include\" )"))))))))) (synopsis "Asynchronous RESTful functionality to C++11 applications") (description "Restbed is a comprehensive and consistent programming model for building applications that require seamless and secure communication over HTTP.") (home-page "https://github.com/Corvusoft/restbed") (license license:agpl3+))) (define-public restinio (package (name "restinio") (version "0.7.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/Stiffstream/restinio") (commit (string-append "v." version)))) (file-name (git-file-name name version)) (sha256 (base32 "03ajv1d034z6sjf2xapy8zq1mq2xkz5dqvn51vz2p26ws5axbzrn")))) (build-system cmake-build-system) (arguments (list #:configure-flags #~(list "-DRESTINIO_INSTALL=ON" "-DRESTINIO_TEST=ON" "-DRESTINIO_DEP_LLHTTP=system" "-DRESTINIO_DEP_FMT=system" "-DRESTINIO_DEP_EXPECTED_LITE=system" "-DRESTINIO_DEP_CATCH2=find" "-DRESTINIO_DEP_SOBJECTIZER=find") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'change-directory (lambda _ (chdir "dev")))))) (native-inputs (list catch2-3 expected-lite json-dto)) (inputs (list openssl sobjectizer)) (propagated-inputs ;; These are all #include'd by restinio's .hpp header files. (list asio fmt llhttp pcre pcre2 zlib)) (home-page "https://stiffstream.com/en/products/restinio.html") (synopsis "C++14 library that gives you an embedded HTTP/Websocket server") (description "RESTinio is a header-only C++14 library that gives you an embedded HTTP/Websocket server. It is based on standalone version of ASIO and targeted primarily for asynchronous processing of HTTP-requests.") (license license:bsd-3))) (define-public restinio-0.6 (package (inherit restinio) (name "restinio") (version "0.6.19") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/Stiffstream/restinio") (commit (string-append "v." version)))) (file-name (git-file-name name version)) (sha256 (base32 "1qrb1qr075r5059w984c4slgpsiwv94j6fmi9naa5l48dbi1p7jz")))) (arguments (list #:configure-flags #~(list "-DRESTINIO_FIND_DEPS=ON" "-DRESTINIO_INSTALL=ON" "-DRESTINIO_TEST=ON" "-DRESTINIO_USE_EXTERNAL_HTTP_PARSER=ON" "-DRESTINIO_USE_EXTERNAL_SOBJECTIZER=ON") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'change-directory (lambda _ (chdir "dev")))))) (native-inputs (list catch2 clara json-dto)) ;; These are all #include'd by restinio's .hpp header files. (propagated-inputs (modify-inputs (package-propagated-inputs restinio) (replace "llhttp" http-parser))))) (define-public opendht ;; Temporarily use the latest commit, as the latest release lacks a 'detach' ;; procedure used by a recent DhtNet, required by Jami. (let ((commit "318d02c55a7061a771a632ff2224b0d195a80d42") (revision "0")) (package (name "opendht") (version (git-version "3.1.11" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/savoirfairelinux/opendht") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0d4m9bxvwa1pz8r0sfrjjyml4yp5v7n4vy8ad7k4hcryyvd5npb0")))) (outputs '("out" "python" "tools" "debug")) (build-system gnu-build-system) (arguments (list #:imported-modules `((guix build python-build-system) ;for site-packages ,@%default-gnu-imported-modules) #:modules '(((guix build python-build-system) #:prefix python:) (guix build gnu-build-system) (guix build utils)) #:configure-flags #~(list "--disable-static" ;to reduce size "--enable-tests" "--enable-proxy-server" "--enable-push-notifications" "--enable-proxy-server-identity" "--enable-proxy-client") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'disable-problematic-tests (lambda _ ;; The dhtrunnertester test suite includes 'testListen', which ;; is sensitive to the performance/load of the machine it runs ;; on, introducing nondeterminism (see: ;; https://github.com/savoirfairelinux/opendht/issues/626). (substitute* "tests/Makefile.am" (("\\bdhtrunnertester\\.(h|cpp)\\b") "")))) (add-after 'unpack 'relax-test-timeouts (lambda _ ;; At least the 'test_send_json' has been seen to fail ;; non-deterministically, but it seems hard to reproducible that ;; failure. (substitute* "tests/httptester.cpp" (("std::chrono::seconds\\(10)") "std::chrono::seconds(30)")))) (add-after 'unpack 'fix-python-installation-prefix ;; Specify the installation prefix for the compiled Python module ;; that would otherwise attempt to installs itself to Python's own ;; site-packages directory. (lambda _ (substitute* "python/Makefile.am" (("--root=\\$\\(DESTDIR)/") (string-append "--root=/ --single-version-externally-managed " "--prefix=" #$output:python))))) (add-after 'unpack 'specify-runpath-for-python-module (lambda _ (substitute* "python/setup.py.in" (("extra_link_args=\\[(.*)\\]" _ args) (string-append "extra_link_args=[" args ", '-Wl,-rpath=" #$output "/lib']"))))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "tests/opendht_unit_tests")))) (add-before 'bootstrap 'delete-autogen.sh (lambda _ ;; The autogen.sh script lacks a shebang, cannot be executed ;; directly. Let the bootstrap phase invoke autoreconf itself. (delete-file "autogen.sh"))) (add-after 'install 'move-and-wrap-tools (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((tools (assoc-ref outputs "tools")) (dhtcluster (string-append tools "/bin/dhtcluster")) (site-packages (python:site-packages inputs outputs))) (mkdir tools) (rename-file (string-append #$output "/bin") (string-append tools "/bin")) ;; TODO: Contribute a patch to python/Makefile.am to ;; automate this. (copy-file "python/tools/dhtcluster.py" dhtcluster) (chmod dhtcluster #o555) (wrap-program dhtcluster `("GUIX_PYTHONPATH" prefix (,site-packages))))))))) (inputs (list bash-minimal fmt readline)) (propagated-inputs (list msgpack-cxx ;included in several installed headers restinio-0.6 ;included in opendht/http.h ;; The following are listed in the 'Requires.private' field of ;; opendht.pc: argon2 gnutls jsoncpp nettle openssl ;required for the DHT proxy python)) (native-inputs (list autoconf automake pkg-config python python-cython libtool cppunit)) (home-page "https://github.com/savoirfairelinux/opendht/") (synopsis "Lightweight Distributed Hash Table (DHT) library") (description "OpenDHT provides an easy to use distributed in-memory data store. Every node in the network can read and write values to the store. Values are distributed over the network, with redundancy. It includes the following features: @itemize @item Lightweight and scalable, designed for large networks and small devices; @item High resilience to network disruption; @item Public key cryptography layer providing optional data signature and encryption (using GnuTLS); @item IPv4 and IPv6 support; @item Clean and powerful C++14 map API; @item Bindings for C, Rust & Python 3; @item REST API with an optional HTTP client and server with push notification support. @end itemize The following tools are also included: @table @command @item dhtnode A command line tool to run a DHT node and perform operations supported by the library (get, put, etc.) with text values. @item dhtchat A very simple IM client working over the DHT. @end table") (license license:gpl3+)))) (define-public dhtnet ;; There is no tag nor release; use the latest available commit. (let ((revision "3") (commit "77331098ff663a5ac54fae7d0bedafe076c575a1")) (package (name "dhtnet") ;; The base version is taken from the CMakeLists.txt file (see: ;; https://review.jami.net/plugins/gitiles/dhtnet/+/master/CMakeLists.txt#3). (version (git-version "0.0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/savoirfairelinux/dhtnet") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1ch736misnlv2aqalj3n62gnz5xlhmip9xfv1aimp0aqinfc94p7")))) (outputs (list "out" "debug")) (build-system cmake-build-system) (arguments (list #:configure-flags #~(list "-DBUILD_DEPENDENCIES=OFF" "-DBUILD_SHARED_LIBS=ON" "-DBUILD_TESTING=ON") #:phases #~(modify-phases %standard-phases (add-after 'unpack 'delete-problematic-tests (lambda _ (substitute* "CMakeLists.txt" ;; The connectionaMnager, the ICE and turnCache tests fail ;; inside the containerized build environment, due to ;; relying on a name resolver (see: ;; https://git.jami.net/savoirfairelinux/dhtnet/-/issues/25). ((".*tests_connectionManager.*") "") ((".*tests_ice.*") "") ((".*tests_turnCache.*") "") ;; The peerDiscovery test fails for unknown reasons, on an ;; assertion that checks the value of 'isBobRecvChanlReq'. ((".*tests_peerDiscovery.*") ""))))))) (native-inputs (list cppunit pkg-config)) ;; This library depends on the Jami fork of pjproject that adds ICE ;; support. (inputs (list asio fmt msgpack-cxx opendht libupnp pjproject-jami readline yaml-cpp)) (home-page "https://github.com/savoirfairelinux/dhtnet/") (synopsis "OpenDHT network library for C++") (description "The @code{dhtnet} is a C++ library providing abstractions for interacting with an OpenDHT distributed network.") (license license:gpl3+)))) (define-public frrouting (package (name "frrouting") (version "7.5.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/FRRouting/frr/releases/" "download/frr-" version "/frr-" version ".tar.xz")) (sha256 (base32 "1r7gh5h27ii7d1d0z0x48wx7hs8vvympv3gqvy3cwzg05q5vk9xs")))) (build-system gnu-build-system) (inputs (list c-ares json-c libcap libxcrypt libyang readline)) (native-inputs (list perl pkg-config python-wrapper python-pytest)) (home-page "https://frrouting.org/") (synopsis "IP routing protocol suite") (description "FRRouting (FRR) is an IP routing protocol suite which includes protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP.") (license license:gpl2+))) (define-public bird (package (name "bird") (version "2.15.1") (source (origin (method url-fetch) (uri (string-append "ftp://bird.network.cz/pub/bird/bird-" version ".tar.gz")) (sha256 (base32 "0pf7fp78jrblhbcd1zrp07ywjp59m38pm9rf2dn7ar715mi5rs28")))) (inputs (list libssh readline)) (native-inputs (list bison flex)) (arguments `(#:configure-flags '("--localstatedir=/var" "--enable-ipv6") #:phases (modify-phases %standard-phases (add-before 'configure 'dont-create-sysconfdir (lambda* (#:key outputs #:allow-other-keys) (substitute* "Makefile.in" ((" \\$\\(DESTDIR)/\\$\\(runstatedir)") ""))))))) (build-system gnu-build-system) (home-page "https://bird.network.cz") (synopsis "Internet Routing Daemon") (description "BIRD is an Internet routing daemon with full support for all the major routing protocols. It allows redistribution between protocols with a powerful route filtering syntax and an easy-to-use configuration interface.") (license license:gpl2+))) (define-public iwd (package (name "iwd") (version "2.12") (source (origin (method git-fetch) (uri (git-reference (url "https://git.kernel.org/pub/scm/network/wireless/iwd.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "199pcs20054xhp5c0dnxf9ny5cf5cynkqpx68dpn46nq8ly76n2y")))) (build-system gnu-build-system) (inputs (list dbus ell (package-source ell) openresolv readline)) (native-inputs (list autoconf automake libtool pkg-config python python-docutils openssl)) (arguments (list #:configure-flags #~(list "--disable-systemd-service" "--enable-external-ell" "--enable-hwsim" "--enable-tools" "--enable-wired" "--localstatedir=/var" (string-append "--with-dbus-datadir=" #$output "/share/") (string-append "--with-dbus-busdir=" #$output "/share/dbus-1/system-services")) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'copy-ell-header-files ;; Copy into the source tree two of ell's private header files ;; that it shares with iwd, as is required to build with the ;; "--enable-external-ell" configure option. See the ;; definition of "ell_shared" in iwd's Makefile.am. (lambda* (#:key inputs #:allow-other-keys) (let ((ell-header-dir (search-input-directory inputs "/ell")) (target-dir "ell")) (mkdir target-dir) (for-each (lambda (file-name) (copy-file (string-append ell-header-dir "/" file-name) (string-append target-dir "/" file-name))) '("asn1-private.h" "useful.h"))))) (add-after 'unpack 'patch-resolvconf-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/resolve.c" (("getenv\\(\"PATH\"\\)") (format #f "\"~a\"" (dirname (search-input-file inputs "sbin/resolvconf"))))))) (add-after 'configure 'patch-Makefile (lambda _ (substitute* "Makefile" ;; Don't try to 'mkdir /var'. (("\\$\\(MKDIR_P\\) -m 700") "true"))))))) (home-page "https://iwd.wiki.kernel.org/") (synopsis "iNet Wireless Daemon") (description "iwd is a wireless daemon for Linux that aims to replace WPA Supplicant. It optimizes resource utilization by not depending on any external libraries and instead utilizing features provided by the Linux kernel to the maximum extent possible.") (license license:lgpl2.1+))) (define-public iwgtk (package (name "iwgtk") (version "0.9") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/J-Lentz/iwgtk") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1fvxq4ydhzisfn93pcqbspqqi8fwj45v8q104bkm4qfzhf5nvp7w")))) (build-system meson-build-system) (inputs (list gtk qrencode)) (native-inputs (list gettext-minimal pkg-config scdoc)) (home-page "https://github.com/J-Lentz/iwgtk") (synopsis "Lightweight front-end for iwd") (description "Wireless networking GUI front-end for iwd, with supported functionality similar to that of iwctl. Features include viewing and connecting to available networks, managing known networks, provisioning new networks via WPS or Wi-Fi Easy Connect, and an indicator icon displaying connection status and signal strength.") (license license:gpl3+))) (define-public libyang (package (name "libyang") (version "1.0.215") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/CESNET/libyang") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0mrs2ppmq77z8sbqgm2w0rl9bfgybd6bcxanakfww4chih6cy0dw")))) (build-system cmake-build-system) (arguments `(#:configure-flags (list "-DENABLE_BUILD_TESTS=ON" "-DENABLE_LYD_PRIV=ON"))) (propagated-inputs (list pcre)) (native-inputs (list cmocka pkg-config)) (home-page "https://github.com/CESNET/libyang") (synopsis "YANG data modelling language library") (description "libyang is a YANG data modelling language parser and toolkit written (and providing API) in C. Current implementation covers YANG 1.0 (RFC 6020) as well as YANG 1.1 (RFC 7950).") (license license:bsd-3))) (define-public batctl (package (name "batctl") (version "2021.4") (source (origin (method url-fetch) (uri (string-append "https://downloads.open-mesh.org/batman/releases/batman-adv-" version "/batctl-" version ".tar.gz")) (sha256 (base32 "1ryqz90av2p5pgmmpi1afmycd18zhpwz1i4f7r0s359jis86xndn")))) (inputs (list libnl)) (native-inputs (list pkg-config)) (build-system gnu-build-system) (arguments `(#:tests? #f ;; Batctl only has a makefile. Thus we disable tests and ;; configuration, passing in a few make-flags. #:phases (modify-phases %standard-phases (delete 'configure)) #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")) (string-append "PKG_CONFIG=" (search-input-file %build-inputs "/bin/pkg-config")) ,(string-append "CC=" (cc-for-target))))) (home-page "https://www.open-mesh.org/projects/batman-adv/wiki/Wiki") (synopsis "Management tool for the mesh networking BATMAN protocol") (description "This package provides a control tool for the B.A.T.M.A.N. mesh networking routing protocol provided by the Linux kernel module @code{batman-adv}, for Layer 2.") (license license:gpl2+))) (define-public pagekite (package (name "pagekite") (version "1.5.2.200725") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/pagekite/PyPagekite") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0lig1i42bn9isw848vnml5qhcaa04x1dr2hb075bm0a3439kv3rr")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'install 'install-man-page (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (man (string-append out "/share/man"))) (invoke "make" "doc/pagekite.1") (install-file "doc/pagekite.1" (string-append man "/man1")))))))) (inputs (list python-six python-socksipychain)) (home-page "https://pagekite.net/") (synopsis "Make localhost servers publicly visible") (description "PageKite implements a tunneled reverse proxy which makes it easy to make a service (such as an HTTP or SSH server) on localhost visible to the wider Internet, even behind NAT or restrictive firewalls. A managed front-end relay service is available at @url{https://pagekite.net/}, or you can run your own.") (license license:agpl3+))) (define-public ipcalc (package (name "ipcalc") (version "0.51") (source (origin (method git-fetch) (uri (git-reference ;; This is the IPv6-capable continuation of the unmaintained ;; <https://jodies.de/ipcalc-archive/>. (url "https://github.com/kjokjo/ipcalc") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0cnygb69vjmp3by75jcd2z4y3ybp1s7x4nl3d32xa49h8lkhdbfv")))) (inputs `(("perl" ,perl))) (build-system trivial-build-system) ;no Makefile.PL (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (use-modules (srfi srfi-1)) (let* ((source (assoc-ref %build-inputs "source")) (perl (string-append (assoc-ref %build-inputs "perl") "/bin")) (out (assoc-ref %outputs "out")) (bin (string-append out "/bin")) (doc (string-append out "/share/doc/ipcalc"))) (copy-recursively source "source") (chdir "source") (install-file "ipcalc" bin) (patch-shebang (string-append bin "/ipcalc") (list perl)))))) (synopsis "Simple IP network calculator") (description "ipcalc takes an IP address and netmask and calculates the resulting broadcast, network, Cisco wildcard mask, and host range. By giving a second netmask, you can design subnets and supernets. It is also intended to be a teaching tool and presents the subnetting results as easy-to-understand binary values.") (home-page "https://github.com/kjokjo/ipcalc") (license license:gpl2+))) (define-public tunctl (package (name "tunctl") (version "1.5") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/tunctl/tunctl/" version "/" "tunctl-" version ".tar.gz")) (sha256 (base32 "1zsgn7w6l2zh2q0j6qaw8wsx981qcr536qlz1lgb3b5zqr66qama")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'bootstrap) ;there is no configure.ac file (delete 'configure) ;there is no configure script (delete 'check) ;there are no tests (replace 'build (lambda _ (setenv "CC" "gcc") (invoke "make" "tunctl"))) ;; TODO: Requires docbook-to-man (unrelated to docbook2x and ;; docbook-utils) to generate man page from SGML. (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) (install-file "tunctl" bin)) #t))))) (home-page "https://tunctl.sourceforge.net") (synopsis "Utility to set up and maintain TUN/TAP network interfaces") (description "Tunctl is used to set up and maintain persistent TUN/TAP network interfaces, enabling user applications to simulate network traffic. Such interfaces are useful for VPN software, virtualization, emulation, simulation, and a number of other applications.") (license license:gpl2))) (define-public wol (package (name "wol") (version "0.7.1") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/wake-on-lan/wol/" version "/wol-" version ".tar.gz")) (sha256 (base32 "08i6l5lr14mh4n3qbmx6kyx7vjqvzdnh3j9yfvgjppqik2dnq270")))) (build-system gnu-build-system) (home-page "https://sourceforge.net/projects/wake-on-lan/") (synopsis "Implements Wake On LAN functionality in a small program") (description "Tool to send a magic packet to wake another host on the network. This must be enabled on the target host, usually in the BIOS.") (license license:gpl2))) (define-public traceroute (package (name "traceroute") (version "2.1.5") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/traceroute/traceroute/" "traceroute-" version "/traceroute-" version ".tar.gz")) (sha256 (base32 "17l5barragw0mfgsbjfndny3w4l7zs20l6s6rvim3azajq6jcv4w")))) (build-system gnu-build-system) (arguments (list #:tests? #f ; no test suite #:make-flags #~(list (string-append "LIBRARY_PATH=" (assoc-ref %build-inputs "libc") "/lib") (string-append "CFLAGS=-I" (assoc-ref %build-inputs "kernel-headers") "/include") "LDFLAGS=-lm -L../libsupp" (string-append "prefix=" #$output)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-make (lambda _ (substitute* "default.rules" ((" \\$\\(LIBDEPS\\)") "$(filter-out -l%,$(LIBDEPS))")))) (delete 'bootstrap) ; no configure.ac file (delete 'configure)))) ; no configure script (home-page "https://traceroute.sourceforge.net/") (synopsis "Tracks the route taken by packets over an IP network") (description "This package provides a modern, but Linux-specific implementation of the @command{traceroute} command that can be used to follow the route taken by packets on an IP network on their way to a given host. It utilizes the IP protocol's time to live (TTL) field and attempts to elicit an ICMP TIME_EXCEEDED response from each gateway along the path to the host. Compared to other implementations, this @command{traceroute} command allows some traces for unprivileged users.") (license (list license:gpl2+ license:lgpl2.1+)))) ;for the libsupp subdirectory (define-public vde2 (let ((commit "8c65ebc464b2f986d5f1f4e6ae829ef4480c9d5a") (revision "0")) (package (name "vde2") (version (git-version "2.3.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/virtualsquare/vde-2") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0l5xf71sv9zm5zw0wg8xgip58c0wh8zck2bazyc2a8gb67gc3s8y")))) (build-system gnu-build-system) (arguments `(#:parallel-build? #f)) ; Build fails if #t. (native-inputs (list autoconf automake libtool)) (inputs (list python libpcap wolfssl)) (home-page "https://github.com/virtualsquare/vde-2") (synopsis "Virtual Distributed Ethernet") (description "VDE is a set of programs to provide virtual software-defined Ethernet network interface controllers across multiple virtual or physical, local or remote devices. The VDE architecture provides virtual counterparts to hardware components such as switches and cables.") (license (list license:gpl2 license:lgpl2.1 ; libvdeplug (license:non-copyleft ; slirpvde "file://COPYING.slirpvde" "See COPYING.slirpvde in the distribution.")))))) (define-public lldpd (package (name "lldpd") (version "1.0.17") (source (origin (method url-fetch) (uri (string-append "https://media.luffy.cx/files/lldpd/lldpd-" version ".tar.gz")) (sha256 (base32 "1ki7c7ffys42s2wy5c94qriicgwx0wl9bm83xxkclasx2izifhwk")) (modules '((guix build utils))) (snippet '(begin ;; Drop bundled library. (delete-file-recursively "libevent"))))) (arguments (list #:configure-flags #~(list "--with-privsep-user=nobody" "--with-privsep-group=nogroup" "--localstatedir=/var" "--enable-pie" "--disable-static" "--without-embedded-libevent" (string-append "--with-systemdsystemunitdir=" #$output "/lib/systemd/system")))) (build-system gnu-build-system) (inputs (list libevent libxml2 openssl readline)) (native-inputs (list pkg-config)) (home-page "https://vincentbernat.github.io/lldpd/") (synopsis "Locate neighbors of your network equipment") (description "The @dfn{Link Layer Discovery Protocol} (LLDP) is an industry standard protocol designed to supplant proprietary Link-Layer protocols such as EDP or CDP. The goal of LLDP is to provide an inter-vendor compatible mechanism to deliver Link-Layer notifications to adjacent network devices. @code{lldpd} is an implementation of LLDP. It also supports some proprietary protocols.") (license license:isc))) (define-public hashcash (package (name "hashcash") (version "1.22") (source (origin (method url-fetch) (uri (string-append "http://www.hashcash.org/source/hashcash-" version ".tgz")) (sha256 (base32 "15kqaimwb2y8wvzpn73021bvay9mz1gqqfc40gk4hj6f84nz34h1")))) (build-system gnu-build-system) (arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target))) #:phases (modify-phases %standard-phases (delete 'configure) ;; No tests available. (delete 'check) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((outdir (assoc-ref outputs "out")) (bindir (string-append outdir "/bin")) (mandir (string-append outdir "/share/man/man1")) (docdir (string-append outdir "/share/doc/hashcash-" ,version))) ;; Install manually, as we don't need the `sha1' binary (install-file "hashcash" bindir) (install-file "hashcash.1" mandir) (install-file "README" docdir) (install-file "LICENSE" docdir) (install-file "CHANGELOG" docdir) #t)))))) (home-page "https://www.hashcash.org/") (synopsis "Denial-of-service countermeasure") (description "Hashcash is a proof-of-work algorithm, which has been used as a denial-of-service countermeasure technique in a number of systems. A hashcash stamp constitutes a proof-of-work which takes a parametrizable amount of work to compute for the sender. The recipient can verify received hashcash stamps efficiently. This package contains a command-line tool for computing and verifying hashcash stamps.") (license license:public-domain))) (define-public nbd (package (name "nbd") (version "3.25") (source (origin (method url-fetch) (uri (string-append "https://github.com/NetworkBlockDevice/nbd/releases/download/nbd-" version "/nbd-" version ".tar.xz")) (sha256 (base32 "02nxrgq3024g106x9wdyg23f0bj3avrmf3jdb4kckcaprc7zvj7m")))) (build-system gnu-build-system) (inputs (list glib)) (native-inputs (list bison pkg-config which)) (home-page "https://nbd.sourceforge.io/") (synopsis "NBD client and server") (description "This package provides the NBD (Network Block Devices) client and server. It allows you to use remote block devices over a TCP/IP network.") (license license:gpl2))) (define-public ngtcp2 (package (name "ngtcp2") (version "1.7.0") (source (origin (method url-fetch) (uri (string-append "https://github.com/ngtcp2/ngtcp2/" "releases/download/v" version "/" "ngtcp2-" version ".tar.gz")) (sha256 (base32 "0r06ib077n4i7s5bfrdq2f2sh8jc2fck5k73wffsypk1k9fcpp2r")))) (build-system gnu-build-system) (arguments (list #:configure-flags ;; openssl package does not support QUIC interface, so just gnutls #~(list "--with-gnutls"))) (native-inputs (list pkg-config)) (inputs (list gnutls)) (home-page "https://nghttp2.org/ngtcp2/") (synopsis "QUIC protocol implementation") (description "The ngtcp2 project is an effort to implement the RFC9000 (IETF) QUIC protocol.") (license license:expat))) (define-public yggdrasil (package (name "yggdrasil") (version "0.5.8") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/yggdrasil-network/yggdrasil-go") (commit (string-append "v" version)) (recursive? #t))) (file-name (git-file-name name version)) (sha256 (base32 "0qcly06bljlilihrqrylhq53w3l4bfzmqqjq4cbn55nvsz2gbify")) (patches (search-patches "yggdrasil-extra-config.patch")))) (build-system go-build-system) (arguments (list #:import-path "github.com/yggdrasil-network/yggdrasil-go" #:install-source? #f #:phases #~(modify-phases %standard-phases (replace 'build (lambda* (#:key import-path build-flags #:allow-other-keys) (let* ((pkgsrc "github.com/yggdrasil-network/yggdrasil-go/src/version") (ldflags (format #f "-X ~a.buildName=yggdrasil -X ~a.buildVersion=~a" pkgsrc pkgsrc #$version))) (for-each (lambda (directory) ((assoc-ref %standard-phases 'build) #:build-flags `("-ldflags" ,ldflags) #:import-path directory)) (list "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasil" "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasilctl" "github.com/yggdrasil-network/yggdrasil-go/cmd/genkeys"))))) (replace 'check (lambda* (#:key tests? import-path #:allow-other-keys) (when tests? (with-directory-excursion (string-append "src/" import-path) (invoke "go" "test" "-v" "./cmd/..." "./src/...")))))))) (propagated-inputs (list ;; go-golang-org-x-mobile ; Not packed yet, for contrib. ;; go-golang-zx2c4-com-wireguard-windows ; Not packed yet, for tun. go-github-com-arceliar-ironwood go-github-com-arceliar-phony go-github-com-cheggaaa-pb-v3 go-github-com-gologme-log go-github-com-hashicorp-go-syslog go-github-com-hjson-hjson-go-v4 go-github-com-kardianos-minwinsvc go-github-com-olekukonko-tablewriter go-github-com-quic-go-quic-go go-github-com-vishvananda-netlink go-golang-org-x-crypto go-golang-org-x-net go-golang-org-x-sys go-golang-org-x-text go-golang-zx2c4-com-wireguard go-nhooyr-io-websocket)) (home-page "https://yggdrasil-network.github.io/blog.html") (synopsis "Experiment in scalable routing as an encrypted IPv6 overlay network") (description "Yggdrasil is an early-stage implementation of a fully end-to-end encrypted IPv6 network. It is lightweight, self-arranging, supported on multiple platforms and allows pretty much any IPv6-capable application to communicate securely with other Yggdrasil nodes. Yggdrasil does not require you to have IPv6 Internet connectivity - it also works over IPv4.") (license ;; As a special exception to the GNU Lesser General Public License ;; version 3 ("LGPL3"), the copyright holders of this Library give you ;; permission to convey to a third party a Combined Work that links ;; statically or dynamically to this Library without providing any Minimal ;; Corresponding Source or Minimal Application Code as set out in 4d or ;; providing the installation information set out in section 4e, provided ;; that you comply with the other provisions of LGPL3 and provided that you ;; meet, for the Application the terms and conditions of the license(s) ;; which apply to the Application. Except as stated in this special ;; exception, the provisions of LGPL3 will continue to comply in full to ;; this Library. If you modify this Library, you may apply this exception ;; to your version of this Library, but you are not obliged to do so. If ;; you do not wish to do so, delete this exception statement from your ;; version. This exception does not (and cannot) modify any license terms ;; which apply to the Application, with which you must still comply license:lgpl3))) (define-public nebula (package (name "nebula") (version "1.9.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/slackhq/nebula") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "08zzbx2v713zd9p7i4kd1bvcw47xb0092p5apba1x5wg6fpxw5zr")) ;; Remove windows-related binary blobs and files (snippet #~(begin (use-modules (guix build utils)) (delete-file-recursively "dist/windows") (delete-file-recursively "wintun"))))) (build-system go-build-system) (arguments (list #:import-path "github.com/slackhq/nebula" #:install-source? #f #:phases #~(modify-phases %standard-phases (replace 'build (lambda* (#:key import-path #:allow-other-keys) ;; Suggested option to provide build time flags is not supported ;; in Guix for go-build-system. ;; -ldflags "-X main.Build=SOMEVERSION" (substitute* (string-append "src/" import-path "/cmd/nebula/main.go") (("Version: ") (string-append "Version: " #$version))) ;; Build nebula and nebula-cert (let* ((dir "github.com/slackhq/nebula") (nebula-cmd (string-append dir "/cmd/nebula")) (cert-cmd (string-append dir "/cmd/nebula-cert"))) (invoke "go" "build" nebula-cmd) (invoke "go" "build" cert-cmd)))) (replace 'install (lambda _ (let* ((out #$output) (bindir (string-append out "/bin"))) (install-file "nebula" bindir) (install-file "nebula-cert" bindir))))))) (inputs (list go-dario-cat-mergo go-github-com-anmitsu-go-shlex go-github-com-armon-go-radix go-github-com-cespare-xxhash-v2 go-github-com-cyberdelia-go-metrics-graphite go-github-com-flynn-noise go-github-com-gogo-protobuf go-github-com-google-gopacket go-github-com-miekg-dns go-github-com-nbrownus-go-metrics-prometheus go-github-com-prometheus-client-golang go-github-com-prometheus-client-model go-github-com-prometheus-procfs go-github-com-rcrowley-go-metrics go-github-com-sirupsen-logrus go-github-com-skip2-go-qrcode go-github-com-songgao-water go-github-com-stretchr-testify go-golang-org-x-crypto go-golang-org-x-net go-golang-org-x-sys go-golang-org-x-term go-google-golang-org-protobuf go-gopkg-in-yaml-v2 go-github-com-vishvananda-netlink go-github-com-vishvananda-netns)) (home-page "https://github.com/slackhq/nebula") (synopsis "Scalable, peer-to-peer overlay networking tool") (description "Nebula is a peer-to-peer networking tool based on the @url{https://noiseprotocol.org/, Noise Protocol Framework}. It is not a fully decentralized network, but instead uses central discovery nodes and a certificate authority to facilitate direct, encrypted peer-to-peer connections from behind most firewalls and @acronym{NAT, Network Address Translation} layers.") (license license:expat))) (define-public netdiscover (package (name "netdiscover") (version "0.10") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/netdiscover-scanner/netdiscover") (commit version))) (sha256 (base32 "1ljkj280qja9rz0zwkilsa4051fdxsygjqhfch0wpkxxa5zx3prx")) (file-name (string-append "netdiscover-" version)))) (arguments `(#:tests? #f)) ; no tests (build-system gnu-build-system) (inputs (list libnet libpcap)) (native-inputs (list autoconf automake)) (synopsis "Network address discovery tool") (description "Netdiscover is a network address discovery tool developed mainly for wireless networks without a @acronym{DHCP} server. It also works on hub/switched networks. It is based on @acronym{ARP} packets, it will send @acronym{ARP} requests and sniff for replies.") (home-page "https://github.com/netdiscover-scanner/netdiscover") (license license:gpl3+))) (define-public phantomsocks (package (name "phantomsocks") (version "0.0.0-20240125140126-2576269ca69a") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/macronut/phantomsocks") (commit (go-version->git-ref version)))) (file-name (git-file-name name version)) (sha256 (base32 "1kbcr6580a9pi0a3wssnfr3mnxqq2k9w1fg4khikn82lqaljab2f")))) (build-system go-build-system) (arguments (list #:install-source? #f #:import-path "github.com/macronut/phantomsocks" #:build-flags #~'("-tags" #$(if (target-linux?) "rawsocket" "pcap")))) (inputs (append (if (target-linux?) '() (list libpcap)) (list go-github-com-google-gopacket go-github-com-macronut-go-tproxy))) (home-page "https://github.com/macronut/phantomsocks") (synopsis "Internet censorship circumvention tool") (description "Phantomsocks is an Internet censorship circumvention tool based on the desync technique, which was introduced in the 2017 paper @url{https://doi.org/10.1145/3131365.3131374, @cite{Your State is Not Mine: A Closer Look at Evading Stateful Internet Censorship}}. Further information on the usage could be found on the Wikibooks page @url{https://zh.wikibooks.org/wiki/Phantomsocks, @cite{Phantomsocks}}.") (license license:lgpl3+))) (define-public putty (package (name "putty") (version "0.81") (source (origin (method url-fetch) (uri (list (string-append "https://the.earth.li/~sgtatham/putty/" version "/putty-" version ".tar.gz") (string-append "http://www.putty.be/" version "/putty-" version ".tar.gz"))) (sha256 (base32 "1zirfs2zh1jj2i7jcdkyvnq6pliyg8fjipx38pir8d259ylh12yb")))) (build-system cmake-build-system) (arguments `(#:phases (modify-phases %standard-phases (replace 'check ;; As ‘documented’ in ./Buildscr and the 0.76 Makefile.in. (lambda* (#:key tests? #:allow-other-keys) (when tests? (setenv "PUTTY_TESTCRYPT" "./testcrypt") (invoke (string-append "../putty-" ,version "/test/cryptsuite.py")))))))) (inputs (list gtk+)) (native-inputs (list perl pkg-config ;; For tests. python)) (synopsis "Graphical @acronym{SSH, Secure SHell} and telnet client") (description "PuTTY is a graphical text terminal client. It supports @acronym{SSH, Secure SHell}, telnet, and raw socket connections with good terminal emulation. It can authenticate with public keys and Kerberos single-sign-on. It also includes command-line @acronym{SFTP, Secure File Transfer Protocol} and older @acronym{SCP, Secure Copy Protocol} implementations.") (home-page "https://www.chiark.greenend.org.uk/~sgtatham/putty/") (license license:expat))) (define-public vnstat (package (name "vnstat") (version "2.10") (source (origin (method url-fetch) (uri (string-append "https://humdi.net/vnstat/vnstat-" version ".tar.gz")) (sha256 (base32 "09bx8mz9jdq94i0mpmjbc7dis0klvjx85lml5mp3d36dwm21gim9")))) (build-system gnu-build-system) (inputs (list sqlite gd)) (native-inputs (list pkg-config check)) (arguments (list #:phases #~(modify-phases %standard-phases (add-before 'check 'disable-id-tests (lambda _ (substitute* '("Makefile" "tests/vnstat_tests.c") (("tests/id_tests.c \\$") "\\") (("tests/id_tests.h h") "h") (("^.*id_tests.*$") ""))))))) (home-page "https://humdi.net/vnstat/") (synopsis "Network traffic monitoring tool") (description "vnStat is a console-based network traffic monitor that keeps a log of network traffic for the selected interface(s). It uses the network interface statistics provided by the kernel as information source. This means that vnStat won't actually be sniffing any traffic and also ensures light use of system resources regardless of network traffic rate.") (license license:gpl2+))) (define-public dnstracer (package (name "dnstracer") (version "1.10") (source (origin (method url-fetch) (uri (string-append "http://www.mavetju.org/download/" name "-" version ".tar.bz2")) (sha256 (base32 "089bmrjnmsga2n0r4xgw4bwbf41xdqsnmabjxhw8lngg2pns1kb4")))) (build-system gnu-build-system) (arguments (list #:tests? #f ;no test suite #:make-flags #~(list (string-append "PREFIX=" #$output) (string-append "CC=" #$(cc-for-target))) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-makefile (lambda _ (substitute* "Makefile" (("\\$\\{PREFIX}/man") "${PREFIX}/share/man") (("^install:.*" all) (string-append all "\tinstall -d ${BINPREFIX}\n" "\tinstall -d ${MANPREFIX}\n"))))) (delete 'configure)))) (native-inputs (list perl)) ;for pod2man (home-page "http://www.mavetju.org/unix/dnstracer.php") (synopsis "Trace a chain of DNS servers to the source") (description "@command{dnstracer} determines where a given Domain Name Server (DNS) gets its information from, and follows the chain of DNS servers back to the servers which know the data.") (license license:bsd-2))) (define-public dropwatch (package (name "dropwatch") (version "1.5.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nhorman/dropwatch.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1r653y7bx763fpxl1vrflx8bzcrbds98zk4z7yhfikjngrqn1f2d")))) (build-system gnu-build-system) ;; XXX: bfd support isn't finished. ;; https://github.com/nhorman/dropwatch/issues/76#issuecomment-1328345444 (arguments (list #:configure-flags #~(list "--without-bfd"))) (native-inputs (list autoconf automake pkg-config)) (inputs (list libnl libpcap readline)) (home-page "https://github.com/nhorman/dropwatch") (synopsis "Monitor for network packets dropped by the kernel") (description "Dropwatch is an interactive utility for monitoring and recording packets that are dropped by the kernel. It provides the commands @command{dropwatch} and @command{dwdump}.") (license license:gpl2+)))