@@ 46,6 46,7 @@
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
+;;; Copyright © 2021 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ 118,6 119,7 @@
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages lua)
+ #:use-module (gnu packages m4)
#:use-module (gnu packages mail)
#:use-module (gnu packages man)
#:use-module (gnu packages mcrypt)
@@ 4819,3 4821,39 @@ FIFO and UNIX interprocess communication.")
exit code reports successful or failed execution to
@url{https://healthchecks.io,https://healthchecks.io} or your private instance.")
(license license:bsd-0)))
+
+(define-public udpcast
+ (package
+ (name "udpcast")
+ (version "20200328")
+ (source
+ (origin
+ (method url-fetch)
+ ;; XXX: Original server is at https://www.udpcast.linux.lu is not
+ ;; reliable.
+ (uri (list (string-append
+ "http://sources.buildroot.net/udpcast/udpcast-"
+ version ".tar.gz")
+ (string-append
+ "https://fossies.org/linux/privat/udpcast-"
+ version ".tar.gz")
+ (string-append
+ "https://www.udpcast.linux.lu/download/udpcast-"
+ version ".tar.gz")))
+ (sha256
+ (base32 "06pj86nbi9hx7abbb0z2c5ynhfq0rv89b7nmy0kq3xz2lsxfw6cw"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ (list autoconf automake m4 perl))
+ (arguments `(#:tests? #f)) ;no test suite
+ (synopsis "Multicast file transfer tool")
+ (description
+ "UDPcast is a file transfer tool that can send data simultaneously to
+many destinations on a LAN. This can for instance be used to install entire
+classrooms of PC's at once. The advantage of UDPcast over using other
+methods (nfs, ftp, whatever) is that UDPcast uses UDP's multicast abilities:
+it won't take longer to install 15 machines than it would to install just 2.")
+ (home-page "https://www.udpcast.linux.lu")
+ (license license:gpl2+)))
+
+