diff options
Diffstat (limited to 'gnu/packages/networking.scm')
| -rw-r--r-- | gnu/packages/networking.scm | 720 |
1 files changed, 430 insertions, 290 deletions
diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index f7557fc331..c6788e8d86 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2014, 2017, 2018 Ludovic Courtès <[email protected]> ;;; Copyright © 2015, 2016, 2017, 2018, 2020 Ricardo Wurmus <[email protected]> ;;; Copyright © 2015 Mark H Weaver <[email protected]> -;;; Copyright © 2015, 2016, 2017 Stefan Reichör <[email protected]> +;;; Copyright © 2015, 2016, 2017, 2021 Stefan Reichör <[email protected]> ;;; Copyright © 2016 Raimon Grau <[email protected]> ;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <[email protected]> ;;; Copyright © 2016 John Darrington <[email protected]> @@ -13,36 +13,37 @@ ;;; Copyright © 2016 Benz Schenk <[email protected]> ;;; Copyright © 2016, 2017 Pjotr Prins <[email protected]> ;;; Copyright © 2017 Mathieu Othacehe <[email protected]> -;;; Copyright © 2017, 2020 Leo Famulari <[email protected]> +;;; Copyright © 2017, 2020, 2021 Leo Famulari <[email protected]> ;;; Copyright © 2017, 2018, 2019, 2020 Efraim Flashner <[email protected]> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <[email protected]> ;;; Copyright © 2017, 2019 Gábor Boskovits <[email protected]> ;;; Copyright © 2017 Thomas Danckaert <[email protected]> ;;; Copyright © 2018 Adam Van Ymeren <[email protected]> ;;; Copyright © 2018 Fis Trivial <[email protected]> -;;; Copyright © 2018 Tonton <[email protected]> +;;; Copyright © 2018, 2019 Tonton <[email protected]> ;;; Copyright © 2018 Clément Lassieur <[email protected]> ;;; Copyright © 2018 Theodoros Foradis <[email protected]> -;;; Copyright © 2018, 2020 Marius Bakke <[email protected]> -;;; Copyright © 2018, 2020 Oleg Pykhalov <[email protected]> +;;; Copyright © 2018, 2020, 2021 Marius Bakke <[email protected]> +;;; Copyright © 2018, 2020, 2021 Oleg Pykhalov <[email protected]> ;;; Copyright © 2018 Pierre Neidhardt <[email protected]> ;;; Copyright © 2019, 2020, 2021 Maxim Cournoyer <[email protected]> ;;; Copyright © 2019 Vasile Dumitrascu <[email protected]> ;;; Copyright © 2019 Julien Lepiller <[email protected]> ;;; Copyright © 2019 Timotej Lazar <[email protected]> -;;; Copyright © 2019 Brice Waegeneire <[email protected]> -;;; Copyright © 2019 Tonton <[email protected]> +;;; Copyright © 2019, 2020, 2021 Brice Waegeneire <[email protected]> ;;; Copyright © 2019, 2020 Alex Griffin <[email protected]> ;;; Copyright © 2019, 2020 Jan Wielkiewicz <[email protected]> ;;; Copyright © 2019 Daniel Schaefer <[email protected]> ;;; Copyright © 2019 Diego N. Barbato <[email protected]> -;;; Copyright © 2020 Vincent Legoll <[email protected]> -;;; Copyright © 2020 Brice Waegeneire <[email protected]> +;;; Copyright © 2020, 2021 Vincent Legoll <[email protected]> ;;; Copyright © 2020 Jakub Kądziołka <[email protected]> ;;; Copyright © 2020 Jesse Dowell <[email protected]> ;;; Copyright © 2020 Hamzeh Nasajpour <[email protected]> ;;; Copyright © 2020 Michael Rohleder <[email protected]> ;;; Copyright © 2021 Hartmut Goebel <[email protected]> +;;; Copyright © 2021 Justin Veilleux <[email protected]> +;;; Copyright © 2021 Vinicius Monego <[email protected]> +;;; Copyright © 2021 Milkey Mouse <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -108,7 +109,6 @@ #:use-module (gnu packages libidn) #:use-module (gnu packages linux) #:use-module (gnu packages lua) - #:use-module (gnu packages multiprecision) #:use-module (gnu packages kerberos) #:use-module (gnu packages ncurses) #:use-module (gnu packages nettle) @@ -255,7 +255,7 @@ protocols.") ("gnutls" ,gnutls) ("libtiff" ,libtiff) ("openssl" ,openssl) - ("qt5" ,qtbase) + ("qt5" ,qtbase-5) ("udev" ,eudev))) (synopsis "Camera stack and framework") (description "LibCamera is a complex camera support library for GNU+Linux, @@ -384,10 +384,34 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.") ;; Others. license:gpl2+))))) +(define-public slurm-monitor + (package + (name "slurm-monitor") + (version "0.4.3") + (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 "1n6pgrcs8gwrcq5fch1q3yk3jipjwrf21s9a13fbjrl903g5zzv9")))) + (build-system cmake-build-system) + (arguments `(#:tests? #f)) ;no tests + (inputs `(("ncurses" ,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.2") + (version "1.4.3") (source (origin (method git-fetch) @@ -397,7 +421,7 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "01nx3a35hzq2x0dvp2n2b86phpdy1z83kdraag7aq3hmc7f8iagg")))) + (base32 "1f60vlfxhh9bhafws82c3301whjlz5gy92jz9a9ymwfg5h53bv1j")))) (build-system cmake-build-system) (arguments `(#:configure-flags @@ -440,7 +464,7 @@ performance across unpredictable networks, such as the Internet.") (define-public lksctp-tools (package (name "lksctp-tools") - (version "1.0.18") + (version "1.0.19") (source (origin (method git-fetch) @@ -449,10 +473,8 @@ performance across unpredictable networks, such as the Internet.") (url "https://github.com/sctp/lksctp-tools") (commit (string-append "v" version)))) (file-name (git-file-name name version)) - (patches - (search-patches "lksctp-tools-1.0.18-fix-header-file-name.patch")) (sha256 - (base32 "1x4fwzrlzvfa3vcpja97m8w5g9ir2zrh4zs7zksminrnmdrs0dsr")))) + (base32 "1jfq58j365mlgssavyw5wcal42n0xjkr40vmj9b8w265wgs28j20")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) @@ -461,11 +483,14 @@ performance across unpredictable networks, such as the Internet.") ("pkg-config" ,pkg-config))) (inputs `(("linux-headers" ,linux-libre-headers))) - (synopsis "Linux SCTP helper library") - (description "Lksctp-tools project provides a user space library for SCTP -(libsctp) including C language header files (netinet/sctp.h) for accessing SCTP -specific application programming interfaces not provided by the standard -sockets, and also some helper utilities around SCTP.") + (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 "http://lksctp.sourceforge.net/") (license (list @@ -509,15 +534,19 @@ SCTP-aware kernel (most are).") (define-public knockd (package (name "knockd") - (version "0.7") + (version "0.8") (source (origin (method url-fetch) (uri (string-append "https://www.zeroflux.org/proj/knock/files/knock-" version ".tar.gz")) (sha256 (base32 - "193qcpsy7v51c6awhg9652l5blyz8vp6n7y6fi7l4rhh6af4ff4r")))) + "1iv9h7a9l81ilbld3pi0dmzkizjss1755x1x3v5jxsi4asb8r3b9")))) (build-system gnu-build-system) + (arguments + `(#:configure-flags + (list (string-append "--docdir=" (assoc-ref %outputs "out") + "/share/doc/" ,name "-" ,version)))) (inputs `(("libpcap" ,libpcap))) (home-page "https://www.zeroflux.org/projects/knock") @@ -615,14 +644,14 @@ systems with no further dependencies.") (define-public blueman (package (name "blueman") - (version "2.1.4") + (version "2.2.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/blueman-project/blueman/releases" "/download/" version "/blueman-" version ".tar.xz")) (sha256 - (base32 "1nk46s1s8yrlqv37sc7la05nnn7sdgqhkrcdm98qin34llwkv70x")))) + (base32 "0whs1bqnn1fgzrq7y2w1d06ldvfafq6h2xzmcfncbwmyb4i0mhgw")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags (list "--enable-polkit" @@ -636,8 +665,7 @@ systems with no further dependencies.") (lambda* (#:key inputs #:allow-other-keys) (with-directory-excursion "apps" (substitute* '("blueman-adapters.in" "blueman-applet.in" - "blueman-assistant.in" "blueman-manager.in" - "blueman-mechanism.in" "blueman-report.in" + "blueman-manager.in" "blueman-mechanism.in" "blueman-rfcomm-watcher.in" "blueman-sendto.in" "blueman-services.in" "blueman-tray.in") (("@PYTHON@") (string-append (assoc-ref inputs "python") @@ -648,7 +676,7 @@ systems with no further dependencies.") ;; Fix loading of external programs. (add-after 'unpack 'patch-external-programs (lambda* (#:key inputs #:allow-other-keys) - (substitute* '("apps/blueman-report.in" "blueman/main/NetConf.py" + (substitute* '("blueman/main/NetConf.py" "blueman/main/PPPConnection.py") (("/usr/sbin/bluetoothd") (string-append (assoc-ref inputs "bluez") @@ -689,7 +717,7 @@ systems with no further dependencies.") `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))) (append (map (lambda (prog) (string-append bin prog)) - '("adapters" "applet" "assistant" "manager" "report" + '("adapters" "applet" "manager" "sendto" "services" "tray")) (map (lambda (prog) (string-append libexec prog)) '("mechanism" "rfcomm-watcher")))) @@ -904,6 +932,38 @@ 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 "20210328") + (source (origin + (method url-fetch) + (uri (string-append + "http://www.maier-komor.de/software/mbuffer/mbuffer-" + version ".tgz")) + (sha256 + (base32 + "0pfw9xw4ph18yss07fl6w8fbqiwy1w9r1knzw5gsb4c993cbidai")))) + (build-system gnu-build-system) + (inputs `(("openssl" ,openssl))) + (home-page "http://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") @@ -994,7 +1054,8 @@ transparently check connection attempts against an access control list.") (sha256 (base32 "1rf3jmi36ms8jh2g5cvi253h43l6xdfq0r7mvp95va7mi4d014y5")))) (build-system gnu-build-system) - (arguments '(#:configure-flags '("--disable-static"))) + (arguments '(#:configure-flags '("--disable-static" + "--enable-drafts"))) (home-page "https://zeromq.org") (synopsis "Library for message-based applications") (description @@ -1021,20 +1082,7 @@ more.") "0fdclvd7fcwixp0k57ccv7d159v3slasyhvndxfn8n1a9hh0lwjx")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--enable-drafts") - #:phases (modify-phases %standard-phases - (add-before 'check 'patch-tests - (lambda _ - (substitute* "src/czmq_selftest.c" - ;; Disable the zproc test, which fails on some hardware - ;; (see: https://github.com/zeromq/czmq/issues/2007). - (("\\{ \"zproc\", zproc_test.*") - "") - ;; Also disable the zarmour test, which fails as well - ;; (see: https://github.com/zeromq/czmq/issues/2125). - (("\\{ \"zarmour\", zarmour_test.*") - "")) - #t))))) + '(#:configure-flags '("--enable-drafts"))) (inputs `(("zeromq" ,zeromq))) (home-page "https://zeromq.org") @@ -1150,14 +1198,14 @@ containing both Producer and Consumer support.") (define-public libndp (package (name "libndp") - (version "1.7") + (version "1.8") (source (origin (method url-fetch) (uri (string-append "https://libndp.org/files/" "libndp-" version ".tar.gz")) (sha256 (base32 - "1dlinhl39va00v55qygjc9ap77yqf7xvn4rwmvdr49xhzzxhlj1c")))) + "0ay0n0d85254zdmv8znmn399gfiqpk6ga0jwdwa7ylpbw9pbdzw8")))) (build-system gnu-build-system) (home-page "https://libndp.org/") (synopsis "Library for Neighbor Discovery Protocol") @@ -1170,14 +1218,14 @@ receiving NDP messages.") (define-public ethtool (package (name "ethtool") - (version "5.10") + (version "5.12") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/software/network/" "ethtool/ethtool-" version ".tar.xz")) (sha256 (base32 - "1kygjg6g90017k53b8342i59cpwgidalqpa3gdilqyrhm6b56zc1")))) + "01vgyczgldrfss98cqrgjz8krj6kwb29xjf8p08q0g85fnfgmpgm")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config))) @@ -1339,7 +1387,7 @@ and min/max network usage.") "0gh17kcxxi37k65zm4gqsvbk3aw7yphcs3c02pn1c4s2y6n40axd")))) (build-system gnu-build-system) (arguments - '(#:phases + `(#:phases (modify-phases %standard-phases (delete 'configure) (add-before 'build 'fix-ifconfig-path @@ -1357,7 +1405,7 @@ and min/max network usage.") test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);") "")) #t))) - #:make-flags (list "CC=gcc" + #:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "prefix=" (assoc-ref %outputs "out"))) #:test-target "test")) (inputs `(("net-tools" ,net-tools) @@ -1376,7 +1424,7 @@ and up to 1 Mbit/s downstream.") (define-public whois (package (name "whois") - (version "5.5.8") + (version "5.5.10") (source (origin (method git-fetch) @@ -1385,7 +1433,7 @@ and up to 1 Mbit/s downstream.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "12lhl2q1pa1qkbv0l1cpy8hn4wh5i99bqc68rlm4f7jyqlj2l82r")))) + (base32 "179hgmh9yqk8jq26ybik4cr3lgryd5p6kdwccc3r7mfssk3yp8lz")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no test suite @@ -1421,14 +1469,14 @@ of the same name.") (define-public wireshark (package (name "wireshark") - (version "3.4.4") + (version "3.4.8") (source (origin (method url-fetch) (uri (string-append "https://www.wireshark.org/download/src/wireshark-" version ".tar.xz")) (sha256 - (base32 "0aad3m8nh4i75dgjs68217135bzqmhmlgjklmpjh1ihmjwgd373j")))) + (base32 "09fpvfj4m7glisj6p4zb8wylkrjkqqw69xnwnz4ah410zs6zm9sq")))) (build-system cmake-build-system) (arguments `(#:phases @@ -1441,8 +1489,7 @@ of the same name.") (lambda _ (substitute* "CMakeLists.txt" (("suite_unittests" all) (string-append "# " all)) - (("suite_extcaps" all) (string-append "# " all))) - #t))) + (("suite_extcaps" all) (string-append "# " all)))))) ;; Build process chokes during `validate-runpath' phase. ;; ;; Errors are like the following: @@ -1459,6 +1506,7 @@ of the same name.") `(("c-ares" ,c-ares) ("glib" ,glib) ("gnutls" ,gnutls) + ("google-brotli" ,google-brotli) ("libcap" ,libcap) ("libgcrypt" ,libgcrypt) ("libnl" ,libnl) @@ -1468,12 +1516,15 @@ of the same name.") ("lz4" ,lz4) ("lua" ,lua-5.2) ;Lua 5.3 unsupported ("krb5" ,mit-krb5) - ("qtbase" ,qtbase) + ("nghttp2:lib" ,nghttp2 "lib") + ("minizip" ,minizip) + ("qtbase" ,qtbase-5) ("qtmultimedia" ,qtmultimedia) ("qtsvg" ,qtsvg) ("sbc" ,sbc) ("snappy" ,snappy) - ("zlib" ,zlib))) + ("zlib" ,zlib) + ("zstd:lib" ,zstd "lib"))) (native-inputs `(("bison" ,bison) ("doxygen" ,doxygen) @@ -1639,7 +1690,7 @@ transmission protocol (SCTP) in a Go application.") ("ncurses" ,ncurses) ("openssl" ,openssl))) (arguments - `(#:make-flags (list "CC=gcc" + `(#:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "DESTDIR=" (assoc-ref %outputs "out")) "PREFIX=") #:tests? #f)) ; no tests @@ -1694,14 +1745,14 @@ TCP connection, TLS handshake and so on) in the terminal.") (define-public squid (package (name "squid") - (version "4.14") + (version "4.15") (source (origin (method url-fetch) (uri (string-append "http://www.squid-cache.org/Versions/v4/squid-" version ".tar.xz")) (sha256 - (base32 "1z4zf98q24ps19fq840n0hwh6z1la65rf061kcapr29lcjm7s2gi")))) + (base32 "09aaz0hi7q4s5jalgl5i5fakmgzv5akf03gnajlah498mgjs94xn")))) (build-system gnu-build-system) (arguments '(#:configure-flags @@ -1840,8 +1891,8 @@ allows for heavy scripting.") "07nym6bqml0k9v29vnj003nrgnwrywgjvnljb7cdpsvnwilhbp64")))) (build-system gnu-build-system) (arguments - '(#:make-flags - (list "CC=gcc" + `(#:make-flags + (list ,(string-append "CC=" (cc-for-target)) (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:phases (modify-phases %standard-phases @@ -1957,7 +2008,7 @@ private (reserved).") (define-public perl-net-dns (package (name "perl-net-dns") - (version "1.30") + (version "1.31") (source (origin (method url-fetch) @@ -1968,7 +2019,7 @@ private (reserved).") (string-append "mirror://cpan/authors/id/N/NL/NLNETLABS/Net-DNS-" version ".tar.gz"))) (sha256 - (base32 "1nm560xjg173wvv736ai3ib1gwssyy41gi0yv4j5fqamfav70ph5")))) + (base32 "05f6rzvvmm6xd0p100k5y9kczdzqgala09ra8bccc18n6y74l0h0")))) (build-system perl-build-system) (inputs `(("perl-digest-hmac" ,perl-digest-hmac))) @@ -2168,7 +2219,7 @@ It is intended primarily for use in testing.") `(("perl-module-build" ,perl-module-build) ("perl-test-pod" ,perl-test-pod) ("perl-test-pod-coverage" ,perl-test-pod-coverage))) - (inputs `(("perl-socket6" ,perl-socket6))) + (propagated-inputs `(("perl-socket6" ,perl-socket6))) (arguments `(;; Need network socket API #:tests? #f)) (home-page @@ -2299,7 +2350,7 @@ library remains flexible, portable, and easily embeddable.") ("pcre" ,pcre) ("tcp-wrappers" ,tcp-wrappers))) (arguments - '(#:phases + `(#:phases (modify-phases %standard-phases (delete 'configure) ; no configure script (add-before 'check 'fix-tests @@ -2321,7 +2372,7 @@ library remains flexible, portable, and easily embeddable.") (append (find-files "." "\\.cfg") (find-files "scripts")))) #t))) - #:make-flags (list "CC=gcc" + #:make-flags (list ,(string-append "CC=" (cc-for-target)) "USELIBCAP=1" "USELIBWRAP=1" (string-append "PREFIX=" (assoc-ref %outputs "out"))) @@ -2343,15 +2394,20 @@ that block port 22.") (define-public iperf (package (name "iperf") - (version "3.9") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.es.net/pub/iperf" - "/iperf-" version ".tar.gz")) - (sha256 - (base32 - "0f601avdmzpwsa3lbi0ppjhkrdipm5wifhhxy5czf99370k3mdi4")))) + (version "3.10.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 "0svkrmxki6ckn2a8xysh5x0bw68mqnvl3w64j6d45fxs97dca2vq")))) (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 @@ -2384,7 +2440,7 @@ the bandwidth, loss, and other parameters.") `(("libpcap" ,libpcap) ("ncurses" ,ncurses))) (arguments - `(#:make-flags `("CC=gcc" + `(#:make-flags `(,,(string-append "CC=" (cc-for-target)) ,(string-append "PREFIX=" %output) ,(string-append "VERSION=" ,version)) #:phases @@ -2405,7 +2461,7 @@ gone wild and are suddenly taking up your bandwidth.") (define-public nzbget (package (name "nzbget") - (version "21.0") + (version "21.1") (source (origin (method url-fetch) @@ -2413,16 +2469,7 @@ gone wild and are suddenly taking up your bandwidth.") "/download/v" version "/nzbget-" version "-src.tar.gz")) (sha256 - (base32 - "0lwd0pfrs4a5ms193hgz2qiyf7grrc925dw6y0nfc0gkp27db9b5")) - (modules '((guix build utils))) - (snippet - ;; Reported upstream as <https://github.com/nzbget/nzbget/pull/414>. - '(begin - (substitute* "daemon/connect/TlsSocket.cpp" - (("gnutls_certificate-verification_status_print") - "gnutls_certificate_verification_status_print")) - #t)))) + (base32 "09900x1k0yf4yi2cc0k093advvadyhrkm8rnd8nszhhdp2zc33sf")))) (arguments `(#:configure-flags (list @@ -2572,33 +2619,6 @@ enabled due to license conflicts between the BSD advertising clause and the GPL. ;; distribution for clarification. (license (list license:bsd-3 license:bsd-4)))) -(define-public pidentd - (package - (name "pidentd") - (version "3.0.19") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ptrrkssn/pidentd") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1k4rr0b4ygxssbnsykzjvz4hjhazzz4j5arlilyc1iq7b1wzsk7i")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f)) ; No tests are included - (inputs - `(("openssl" ,openssl-1.0))) ;for the DES library - (home-page "https://www.lysator.liu.se/~pen/pidentd/") - (synopsis "Small Ident Daemon") - (description - "@dfn{Pidentd} (Peter's Ident Daemon) is an identd, which implements a -identification server. Pidentd looks up specific TCP/IP connections and -returns the user name and other information about the connection.") - (license license:public-domain))) - (define-public spiped (package (name "spiped") @@ -2612,11 +2632,11 @@ returns the user name and other information about the connection.") "04rpnc53whfky7pp2m9h35gwzwn6788pnl6c1qd576mpknbqjw4d")))) (build-system gnu-build-system) (arguments - '(#:test-target "test" + `(#:test-target "test" #:make-flags (let* ((out (assoc-ref %outputs "out")) (bindir (string-append out "/bin")) (man1dir (string-append out "/share/man/man1"))) - (list "CC=gcc" ; It tries to invoke `c99`. + (list ,(string-append "CC=" (cc-for-target)) ; It tries to invoke `c99`. (string-append "BINDIR=" bindir) (string-append "MAN1DIR=" man1dir))) #:phases @@ -2824,88 +2844,10 @@ 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 strongswan - (package - (name "strongswan") - (version "5.8.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://download.strongswan.org/strongswan-" - version ".tar.bz2")) - (sha256 - (base32 "0g2m08gmgdi3qvvqz6zy7n16np53sp232xd0rdc2vdhk73img6id")))) - (build-system gnu-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'patch-command-file-names - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "src/libstrongswan/utils/process.c" - (("/bin/sh") - (string-append (assoc-ref inputs "bash") "/bin/sh"))) - - (substitute* "src/libstrongswan/tests/suites/test_process.c" - (("/bin/sh") (which "sh")) - (("/bin/echo") (which "echo")) - (("cat") (which "cat"))) - #t)) - (add-before 'check 'set-up-test-environment - (lambda* (#:key inputs #:allow-other-keys) - (setenv "TZDIR" (string-append (assoc-ref inputs "tzdata") - "/share/zoneinfo")) - #t))) - #:configure-flags - (list - ;; Disable bsd-4 licensed plugins. - "--disable-des" - "--disable-blowfish"))) - (inputs - `(("curl" ,curl) - ("gmp" ,gmp) - ("libgcrypt" ,libgcrypt) - ("openssl" ,openssl))) - (native-inputs - `(("coreutils" ,coreutils) - ("tzdata" ,tzdata-for-tests))) - (synopsis "IKEv1/v2 keying daemon") - (description "StrongSwan is an IPsec implementation originally based upon -the FreeS/WAN project. It contains support for IKEv1, IKEv2, MOBIKE, IPv6, -NAT-T and more.") - (home-page "https://strongswan.org/") - (license - (list license:gpl2+ - ;; src/aikgen/* - ;; src/libcharon/plugins/dnscert/* - ;; src/libcharon/plugins/ext_auth/* - ;; src/libcharon/plugins/vici/ruby/* - ;; src/libcharon/plugins/xauth_pam/xauth_pam_listener.[ch] - license:expat - ;; src/inclue/sys/* - license:bsd-3 - ;; src/libstrongswan/plugins/sha3/sha3_keccak.c - license:public-domain - ;; src/libstrongswan/plugins/pkcs11/pkcs11.h - (license:non-copyleft - "file://src/libstrongswan/plugins/pkcs11/pkcs11.h" - "pkcs11 contains a unknown permissive license. View the specific -file for more details.") - ;; These files are not included in the - ;; build, they are disabled through - ;; options to ./configure - ;; - ;; src/libstrongswan/plugins/blowfish/bf_enc.c - ;; src/libstrongswan/plugins/blowfish/bf_locl.h - ;; src/libstrongswan/plugins/blowfish/bf_pi.h - ;; src/libstrongswan/plugins/blowfish/bf_skey.c - ;; src/libstrongswan/plugins/blowfish/blowfish_crypter.c - ;; src/libstrongswan/plugins/des/des_crypter.c - license:bsd-4)))) - (define-public amule (package (name "amule") - (version "2.3.2") + (version "2.3.3") (source (origin (method git-fetch) (uri (git-reference @@ -2914,9 +2856,7 @@ file for more details.") (file-name (git-file-name name version)) (sha256 (base32 - "010wxm6g9f92x6fympj501zbnjka32rzbx0sk3a2y4zpih5d2nsn")) - ;; Patch for adopting crypto++ >= 6.0. - (patches (search-patches "amule-crypto-6.patch")))) + "1nm4vxgmisn1b6l3drmz0q04x067j2i8lw5rnf0acaapwlp8qwvi")))) (build-system gnu-build-system) (arguments `(#:phases @@ -2952,7 +2892,7 @@ file for more details.") ("crypto++" ,crypto++) ("libpng" ,libpng) ("wxwidgets-gtk2" ,wxwidgets-gtk2))) - (home-page "http://amule.org/") + (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 @@ -3035,7 +2975,7 @@ from user-space. It requires a kernel built with SocketCAN support.") (build-system gnu-build-system) (arguments `(#:tests? #f ; No tests exist. - #:make-flags (list "CC=gcc" + #:make-flags (list ,(string-append "CC=" (cc-for-target)) (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:phases @@ -3090,14 +3030,14 @@ asynchronous model using a modern C++ approach.") (define-public asio (package (inherit asio-1.12) - (version "1.18.1") + (version "1.18.2") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/asio/asio/" version " (Stable)/asio-" version ".tar.bz2")) (sha256 - (base32 "04wi69d72l1p5c7d63z1dz06zn8pdqsbgx1if98dszs9ymfqgyaa")))))) + (base32 "1wpr4ymv63a192fmymwyxd7v0bv575v022gz53y0mcflhr2mvh1s")))))) (define-public shadowsocks ;; There are some security fixes after the last release. @@ -3148,14 +3088,14 @@ Features: (define-public net-snmp (package (name "net-snmp") - (version "5.9") + (version "5.9.1") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/net-snmp/net-snmp/" version "/net-snmp-" version ".tar.gz")) (sha256 (base32 - "0wb0vyafpspw3mcifkjjmf17r1r80kjvslycscb8nvaxz1k3lc04")) + "0gwcyi9qk707jgfsgmdr9w2w3r892fnqaam9v7zxpkg69njd8zzb")) (modules '((guix build utils))) (snippet '(begin @@ -3172,6 +3112,7 @@ Features: (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"))) @@ -3288,7 +3229,7 @@ Ethernet and TAP interfaces is supported. Packet capture is also supported.") ("zlib" ,zlib))) (arguments `(#:make-flags - (list "CC=gcc" + (list ,(string-append "CC=" (cc-for-target)) (string-append "INSTALLDIR=" (assoc-ref %outputs "out") "/bin")) #:tests? #f ; no test suite #:phases @@ -3339,15 +3280,14 @@ and check if the WLAN key or the master key was transmitted unencrypted.") (define-public dante (package (name "dante") - (version "1.4.2") + (version "1.4.3") (source (origin (method url-fetch) (uri (string-append "https://www.inet.no/dante/files/dante-" version ".tar.gz")) (sha256 - (base32 - "19rqzj167q73ag20zxpvswhkk0bj56r5maf83v5016sw7vrcz5sc")))) + (base32 "0pbahkj43rx7rmv2x40mf5p3g3x9d6i2sz7pzglarf54w5ghd2j1")))) (build-system gnu-build-system) (arguments ;; XXX: The dynamic socks library doesn't work with 'libc.so' (GNU ld @@ -3458,58 +3398,117 @@ and targeted primarily for asynchronous processing of HTTP-requests.") (license license:bsd-3))) (define-public opendht - (package - (name "opendht") - (version "2.2.0rc4") ;jami requires >= 2.2.0 - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/savoirfairelinux/opendht") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1wc0f6cnvnlmhxnx64nxqgsx93k4g7ljdaqjl40ml74jg3nqrzcl")))) - ;; Since 2.0, the gnu-build-system does not seem to work anymore, upstream bug? - (build-system cmake-build-system) - (inputs - `(("argon2" ,argon2) - ("nettle" ,nettle-3.7) - ("readline" ,readline) - ("jsoncpp" ,jsoncpp) - ("openssl" ,openssl) ;required for the DHT proxy - ("fmt" ,fmt))) - (propagated-inputs - `(("gnutls" ,gnutls) ;included in opendht/crypto.h - ("msgpack" ,msgpack) ;included in several installed headers - ("restinio" ,restinio))) ;included in opendht/http.h - (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("pkg-config" ,pkg-config) - ("libtool" ,libtool) - ("cppunit" ,cppunit))) - (arguments - `(#:tests? #f ; Tests require network connection. - #:configure-flags - '(;;"-DOPENDHT_TESTS=on" - "-DOPENDHT_TOOLS=off" - "-DOPENDHT_PYTHON=off" - "-DOPENDHT_PROXY_SERVER=on" - "-DOPENDHT_PUSH_NOTIFICATIONS=on" - "-DOPENDHT_PROXY_SERVER_IDENTITY=on" - "-DOPENDHT_PROXY_CLIENT=on"))) - (home-page "https://github.com/savoirfairelinux/opendht/") - (synopsis "Distributed Hash Table (DHT) library") - (description "OpenDHT is a Distributed Hash Table (DHT) library. It may -be used to manage peer-to-peer network connections as needed for real time -communication.") - (license license:gpl3+))) + (let ((commit "6c58d4f2e9b7f1de15db8d3a736c8cf1ea5f2886") + (revision "1")) + (package + (name "opendht") + (version (git-version "2.3.0" 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 + "06l0z1dmxyjh8gdrmxyq4vnfnv3x400bhx0lxm7l90f8zc5r2bim")))) + ;; Since 2.0, the gnu-build-system does not seem to work anymore, upstream bug? + (outputs '("out" "tools" "debug")) + (build-system cmake-build-system) + (inputs + `(("argon2" ,argon2) + ("nettle" ,nettle-3.7) + ("readline" ,readline) + ("jsoncpp" ,jsoncpp) + ("openssl" ,openssl) ;required for the DHT proxy + ("fmt" ,fmt))) + (propagated-inputs + `(("gnutls" ,gnutls) ;included in opendht/crypto.h + ("msgpack" ,msgpack) ;included in several installed headers + ("restinio" ,restinio))) ;included in opendht/http.h + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("pkg-config" ,pkg-config) + ("python" ,python) + ("python-cython" ,python-cython) + ("libtool" ,libtool) + ("cppunit" ,cppunit))) + (arguments + `(#:imported-modules ((guix build python-build-system) ;for site-packages + ,@%cmake-build-system-modules) + #:modules (((guix build python-build-system) #:prefix python:) + (guix build cmake-build-system) + (guix build utils)) + #:tests? #f ; Tests require network connection. + #:configure-flags + '( ;;"-DOPENDHT_TESTS=on" + "-DOPENDHT_STATIC=off" + "-DOPENDHT_TOOLS=on" + "-DOPENDHT_PYTHON=on" + "-DOPENDHT_PROXY_SERVER=on" + "-DOPENDHT_PUSH_NOTIFICATIONS=on" + "-DOPENDHT_PROXY_SERVER_IDENTITY=on" + "-DOPENDHT_PROXY_CLIENT=on") + #:phases + (modify-phases %standard-phases + (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* (#:key inputs outputs #:allow-other-keys) + (substitute* "python/CMakeLists.txt" + (("--root=\\\\\\$ENV\\{DESTDIR\\}") + (string-append "--root=/ --single-version-externally-managed " + "--prefix=${CMAKE_INSTALL_PREFIX}"))))) + (add-after 'unpack 'specify-runpath-for-python-module + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (substitute* "python/setup.py.in" + (("extra_link_args=\\[(.*)\\]" _ args) + (string-append "extra_link_args=[" args + ", '-Wl,-rpath=" out "/lib']")))))) + (add-after 'install 'move-and-wrap-tools + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (tools (assoc-ref outputs "tools")) + (site-packages (python:site-packages inputs outputs))) + (mkdir tools) + (rename-file (string-append out "/bin") + (string-append tools "/bin")) + (wrap-program (string-append tools "/bin/dhtcluster") + `("PYTHONPATH" prefix (,site-packages))))))))) + (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 frrouting (package (name "frrouting") - (version "7.5") + (version "7.5.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/FRRouting/frr/releases/" @@ -3517,7 +3516,7 @@ communication.") ".tar.xz")) (sha256 (base32 - "1a27wvxmc51sr0kchy0hjfpv19imlgrr3s9k48lik9k01g71yrdr")))) + "1r7gh5h27ii7d1d0z0x48wx7hs8vvympv3gqvy3cwzg05q5vk9xs")))) (build-system gnu-build-system) (inputs `(("c-ares" ,c-ares) @@ -3536,31 +3535,62 @@ communication.") protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP. ") (license license:gpl2+))) +(define-public bird + (package + (name "bird") + (version "2.0.8") + (source (origin + (method url-fetch) + (uri (string-append "ftp://bird.network.cz/pub/bird/bird-" + version ".tar.gz")) + (sha256 + (base32 + "1xp7f0im1v8pqqx3xqyfkd1nsxk8vnbqgrdrwnwhg8r5xs1xxlhr")))) + (inputs + `(("libssh" ,libssh) + ("readline" ,readline))) + (native-inputs + `(("bison" ,bison) + ("flex" ,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 "http://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 "0.21") + (version "1.15") (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)) + ;; FIXME: We're using the bootstrapped sources because + ;; otherwise using an external ell library is impossible. + ;; How to bootstrap with Guix? + (method url-fetch) + (uri (string-append "https://www.kernel.org/pub/linux/network" + "/wireless/iwd-" version ".tar.xz")) (sha256 (base32 - "001dikinsa6kshwscjbvwipavzwpqnpvx9fpshcn63gbvbhyd393")))) + "0ngng9a9ra5w0mp2813yy2ihfibyx10ns6v5icdcp99db608xax7")))) (build-system gnu-build-system) (inputs `(("dbus" ,dbus) ("ell" ,ell) ("readline" ,readline))) (native-inputs - `(("asciidoc" ,asciidoc) - ("autoconf" ,autoconf) - ("automake" ,automake) - ("libtool" ,libtool) - ("pkgconfig" ,pkg-config) + `(("pkgconfig" ,pkg-config) ("python" ,python) + ("rst2man" ,python-docutils) ("openssl" ,openssl))) (arguments `(#:configure-flags @@ -3570,22 +3600,17 @@ protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP. ") "--enable-hwsim" "--enable-tools" "--enable-wired" - "--enable-docs" "--localstatedir=/var" (string-append "--with-dbus-datadir=" dbus "/share/") (string-append "--with-dbus-busdir=" dbus "/share/dbus-1/system-services"))) #:phases (modify-phases %standard-phases - (add-before 'bootstrap 'pre-bootstrap + (add-after 'configure 'patch-Makefile (lambda _ - (substitute* "Makefile.am" - ;; Test disabled because it needs the kernel module - ;; 'pkcs8_key_parser' loaded. - (("unit\\/test-eapol.*? ") "") + (substitute* "Makefile" ;; Don't try to 'mkdir /var'. - (("\\$\\(MKDIR_P\\) -m 700") "true")) - #t))))) + (("\\$\\(MKDIR_P\\) -m 700") "true"))))))) (home-page "https://git.kernel.org/pub/scm/network/wireless/iwd.git/") (synopsis "Internet Wireless Daemon") (description "iwd is a wireless daemon for Linux that aims to replace WPA @@ -3624,14 +3649,14 @@ written (and providing API) in C. Current implementation covers YANG 1.0 (RFC (define-public batctl (package (name "batctl") - (version "2020.4") + (version "2021.3") (source (origin (method url-fetch) (uri (string-append "https://downloads.open-mesh.org/batman/releases/batman-adv-" version "/batctl-" version ".tar.gz")) (sha256 - (base32 "05rrpfbpdhxn5zgdps849qls2ifis6a94cjryb60d4y1nc2n0d7w")))) + (base32 "087w8xxxpqxs5cz4aj4l9wzbh0ga8163nh7qy44ld2lgqbplnbzj")))) (inputs `(("libnl" ,libnl))) (native-inputs @@ -3646,7 +3671,7 @@ written (and providing API) in C. Current implementation covers YANG 1.0 (RFC (list (string-append "PREFIX=" (assoc-ref %outputs "out")) (string-append "PKG_CONFIG=" (assoc-ref %build-inputs "pkg-config") "/bin/pkg-config") - "CC=gcc"))) + ,(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 @@ -3793,23 +3818,75 @@ simulation, and a number of other applications.") 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.0") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/traceroute/traceroute/" + "traceroute-" version "/traceroute-" + version ".tar.gz")) + (sha256 + (base32 "1dh32vcfawkl1p9g4ral1p0camds4paqr8db1kaqxwyk6hmd4s9n")))) + (build-system gnu-build-system) + (arguments + `(#: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=" (assoc-ref %outputs "out"))) + #: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 "http://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 "2.3.2") + (version (git-version "2.3.2" revision commit)) (source (origin - (method url-fetch) - (uri "mirror://sourceforge/vde/vde2/2.3.2/vde2-2.3.2.tar.gz") + (method git-fetch) + (uri (git-reference + (url "https://github.com/virtualsquare/vde-2") + (commit commit))) + (file-name (git-file-name name version)) (sha256 - (base32 "14xga0ib6p1wrv3hkl4sa89yzjxv7f1vfqaxsch87j6scdm59pr2")))) + (base32 "0l5xf71sv9zm5zw0wg8xgip58c0wh8zck2bazyc2a8gb67gc3s8y")))) (build-system gnu-build-system) (arguments `(#:parallel-build? #f)) ; Build fails if #t. + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool))) (inputs `(("python" ,python) ("libpcap" ,libpcap) - ("openssl" ,openssl-1.0))) ; Build fails with 1.1. + ("wolfssl" ,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 @@ -3821,7 +3898,7 @@ cables.") license:lgpl2.1 ; libvdeplug (license:non-copyleft ; slirpvde "file://COPYING.slirpvde" - "See COPYING.slirpvde in the distribution."))))) + "See COPYING.slirpvde in the distribution.")))))) (define-public haproxy (package @@ -3869,14 +3946,14 @@ thousands of connections is clearly realistic with today's hardware.") (define-public lldpd (package (name "lldpd") - (version "1.0.10") + (version "1.0.12") (source (origin (method url-fetch) (uri (string-append "https://media.luffy.cx/files/lldpd/lldpd-" version ".tar.gz")) (sha256 - (base32 "08kppk49f9wmdf2gw29sm8pi027g54gzrqa07p8fpwvy0dv2sns4")) + (base32 "1wfs50b0694dm60ryjfmxgkxxsqpp9sxqbc4laad364wbddwd56i")) (modules '((guix build utils))) (snippet '(begin @@ -4075,3 +4152,66 @@ IPv6 Internet connectivity - it also works over IPv4.") ;; 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 netdiscover + (package + (name "netdiscover") + (version "0.7") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/netdiscover-scanner/netdiscover") + (commit version))) + (sha256 + (base32 "0g8w8rlg16dsibxi4dnyn7v7r8wwi5ypd51c4w59j0ps2id0w8yj")) + (file-name (string-append "netdiscover-" version)))) + (arguments + `(#:tests? #f)) ;; no tests + (build-system gnu-build-system) + (inputs + `(("libnet" ,libnet) + ("libpcap" ,libpcap))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,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 putty + (package + (name "putty") + (version "0.75") + (source + (origin + (method url-fetch) + (uri (string-append "http://www.putty.be/" version + "/putty-" version ".tar.gz")) + (sha256 + (base32 + "1xgrr1fbirw79zafspg2b6crzfmlfw910y79md4r7gnxgq1kn5yk")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'chdir + (lambda _ + (chdir "unix") + #t))))) + (inputs + `(("gtk+" ,gtk+))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python" ,python))) ; for tests + (synopsis "Graphical @acronym{SSH} and telnet client") + (description "Putty is a terminal client. It supports @acronym{SSH}, +telnet, and raw socket connections with good terminal emulation. It supports +public key authentication and Kerberos single-sign-on. It also includes +command-line @acronym{SFTP} and @acronym{SCP} implementations.") + (home-page "https://www.chiark.greenend.org.uk/~sgtatham/putty/") + (license license:expat))) |