;;; Copyright © 2014 John Darrington <jmd@gnu.org>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
-;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
+;;; Copyright © 2016 Francesco Frassinelli <fraph24@gmail.com>
+;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;;
;;; This file is part of GNU Guix.
;;;
(define-module (gnu packages telephony)
#:use-module (gnu packages)
+ #:use-module (gnu packages autotools)
+ #:use-module (gnu packages avahi)
+ #:use-module (gnu packages boost)
+ #:use-module (gnu packages protobuf)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages linux)
+ #:use-module (gnu packages multiprecision)
+ #:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages pulseaudio)
+ #:use-module (gnu packages qt)
+ #:use-module (gnu packages speech)
#:use-module (gnu packages tls)
- #:use-module (guix licenses)
+ #:use-module (gnu packages xiph)
+ #:use-module (gnu packages xorg)
+ #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
communications via sockets, and various methods for data handling, such as
serialization and XML parsing. It includes the uCommon C++ library, a smaller
reimplementation.")
- (license gpl2+) ; plus runtime exception
+ (license license:gpl2+) ; plus runtime exception
(home-page "http://www.gnu.org/software/commoncpp")))
(define-public ucommon
to facilitate using C++ design patterns even for very deeply embedded
applications, such as for systems using uclibc along with posix threading
support.")
- (license gpl3+)
+ (license license:gpl3+)
(home-page "http://www.gnu.org/software/commoncpp")
(properties '((ftp-directory . "/gnu/commoncpp")))))
personal client applications. It is flexible in its design, allowing it to
function as a framework for the framework, rather than just being a
packet-manipulation library.")
- (license gpl2+) ; plus runtime exception
+ (license license:gpl2+) ; plus runtime exception
(home-page "http://www.gnu.org/software/ccrtp")))
(description "GNU oSIP is an implementation of the SIP protocol. It is
used to provide multimedia and telecom software developers with an interface
to initiate and control SIP sessions.")
- (license lgpl2.1+)
+ (license license:lgpl2.1+)
(home-page "http://www.gnu.org/software/osip")))
(version "4.1.0")
(source (origin
(method url-fetch)
- (uri (string-append
- "http://download.savannah.gnu.org/releases/exosip/libeXosip2-"
- version ".tar.gz"))
+ (uri (string-append "mirror://savannah/exosip/libeXosip2-"
+ version ".tar.gz"))
(sha256 (base32
"17cna8kpc8nk1si419vgr6r42k2lda0rdk50vlxrw8rzg0xp2xrw"))))
(build-system gnu-build-system)
be used by VoIP telephony applications (endpoints or conference server) but
might be also useful for any application that wish to establish sessions like
multiplayer games.")
- (license gpl2+)
+ (license license:gpl2+)
;; (plus OpenSSL linking exception)
;; http://git.savannah.gnu.org/cgit/exosip.git/plain/LICENSE.OpenSSL
(home-page "http://savannah.nongnu.org/projects/exosip")))
there is no central point for media intercept or capture and thus it can be
used to construct a secure telephone system that operates over the public
internet.")
- (license gpl3+)
+ (license license:gpl3+)
(home-page "http://www.gnu.org/software/sipwitch")))
(define-public libsrtp
(method url-fetch)
(uri (string-append "https://github.com/cisco/libsrtp/archive/v"
version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1w2g623qkd7gdyydglx2hr4s2y237lg0nszjmy7z8d2iq8hvb9sn"))))
(native-inputs
- `(("procps" ,procps)))
+ `(("psmisc" ,psmisc) ;some tests require 'killall'
+ ("procps" ,procps)))
(build-system gnu-build-system)
(arguments
- `(#:test-target "runtest"))
+ '(#:test-target "runtest"
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-mips-variable-in-testsuite
+ ;; This comes from https://github.com/cisco/libsrtp/pull/151
+ (lambda _
+ (substitute* "test/srtp_driver.c"
+ (("mips ") "mips_est ")
+ (("mips\\)") "mips_est)"))
+ #t))
+ (add-after 'unpack 'patch-dictionary-location
+ ;; With the above changes, the rtpw_test.sh test finally runs, and fails
+ (lambda _
+ (substitute* "test/rtpw.c"
+ (("/usr/share/dict/words")
+ (string-append (assoc-ref %build-inputs "procps")
+ "/share/doc/procps-ng/FAQ"))
+ (("words.txt") "FAQ"))
+ #t)))))
(synopsis "Secure RTP (SRTP) Reference Implementation")
(description "This package provides an implementation of the Secure
Real-time Transport Protocol (SRTP), the Universal Security Transform (UST),
and a supporting cryptographic kernel.")
(home-page "https://github.com/cisco/libsrtp")
- (license bsd-3)))
+ (license license:bsd-3)))
+
+(define-public libiax2
+ (let ((commit "0e5980f1d78ce462e2d1ed6bc39ff35c8341f201"))
+ ;; This is the commit used by the Ring Project.
+ (package
+ (name "libiax2")
+ (version (string-append "0.0.0-1." (string-take commit 7)))
+ (source
+ (origin
+ (method url-fetch)
+ (uri
+ (string-append
+ "https://gitlab.savoirfairelinux.com/sflphone/libiax2/"
+ "repository/archive.tar.gz?ref="
+ commit))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0cj5293bixp3k5x3hjwyd0iq7z8w5p7yavxvvkqk5817hjq386y2"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)))
+ (arguments
+ `(#:phases (modify-phases %standard-phases
+ (add-before 'configure 'autoconf
+ (lambda _
+ (zero? (system* "autoreconf" "-vfi")))))))
+ (home-page "https://gitlab.savoirfairelinux.com/sflphone/libiax2")
+ (synopsis "Inter-Asterisk-Protocol library")
+ (description "LibIAX2 implements the Inter-Asterisk-Protocol for relaying
+Voice-over-IP (VoIP) communications.")
+ ;; The file 'src/md5.c' is released into the public domain by RSA Data
+ ;; Security. The files 'src/answer.h', 'src/miniphone.c',
+ ;; 'src/options.c', 'src/options.h', 'src/ring10.h', 'src/winiphone.c' are
+ ;; covered under the 'GPL'.
+ ;; The package as a whole is distributed under the LGPL 2.0.
+ (license (list license:lgpl2.0
+ license:public-domain
+ license:gpl2+)))))
+
+(define-public seren
+ (package
+ (name "seren")
+ (version "0.0.21")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "http://holdenc.altervista.org/"
+ "seren/downloads/seren-" version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "06mams6bng7ib7p2zpfq88kdr4ffril9svzc9lprkb0wjgmkglk9"))))
+ (build-system gnu-build-system)
+ (arguments '(#:tests? #f)) ; no "check" target
+ (inputs
+ `(("alsa-lib" ,alsa-lib)
+ ("gmp" ,gmp)
+ ("libogg" ,libogg)
+ ("ncurses" ,ncurses)
+ ("opus" ,opus)))
+ (synopsis "Simple VoIP program to create conferences from the terminal")
+ (description
+ "Seren is a simple VoIP program based on the Opus codec that allows you
+to create a voice conference from the terminal, with up to 10 participants,
+without having to register accounts, exchange emails, or add people to contact
+lists. All you need to join an existing conference is the host name or IP
+address of one of the participants.")
+ (home-page "http://holdenc.altervista.org/seren/")
+ (license license:gpl3+)))
+
+(define-public mumble
+ (package
+ (name "mumble")
+ (version "1.2.19")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://mumble.info/snapshot/"
+ name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1s60vaici3v034jzzi20x23hsj6mkjlc0glipjq4hffrg9qgnizh"))
+ (modules '((guix build utils)))
+ (snippet
+ `(begin
+ ;; Remove bundled software.
+ (for-each delete-file-recursively '("3rdparty"
+ "speex"
+ "speexbuild"
+ "opus-build"
+ "opus-src"
+ "sbcelt-helper-build"
+ "sbcelt-lib-build"
+ "sbcelt-src"))
+ ;; TODO: Celt is still bundled. It has been merged into Opus
+ ;; and will be removed after 1.3.0.
+ ;; https://github.com/mumble-voip/mumble/issues/1999
+ #t))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no "check" target
+ #:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key outputs #:allow-other-keys)
+ (zero? (system* "qmake" "main.pro" "-recursive"
+ (string-append "CONFIG+="
+ (string-join
+ (list "no-update"
+ "no-ice"
+ "no-embed-qt-translations"
+ "no-bundled-speex"
+ "pch"
+ "no-bundled-opus"
+ "no-celt"
+ "no-alsa"
+ "no-oss"
+ "no-portaudio"
+ "speechd"
+ "no-g15"
+ "no-bonjour"
+ "release")))
+ (string-append "DEFINES+="
+ "PLUGIN_PATH="
+ (assoc-ref outputs "out")
+ "/lib/mumble")))))
+ (add-before 'configure 'fix-libspeechd-include
+ (lambda _
+ (substitute* "src/mumble/TextToSpeech_unix.cpp"
+ (("libspeechd.h") "speech-dispatcher/libspeechd.h"))))
+ (replace 'install ; install phase does not exist
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (etc (string-append out "/etc/murmur"))
+ (dbus (string-append out "/etc/dbus-1/system.d/"))
+ (bin (string-append out "/bin"))
+ (services (string-append out "/share/services"))
+ (applications (string-append out "/share/applications"))
+ (icons (string-append out "/share/icons/hicolor/scalable/apps"))
+ (man (string-append out "/share/man/man1"))
+ (lib (string-append out "/lib/mumble")))
+ (install-file "release/mumble" bin)
+ (install-file "scripts/mumble-overlay" bin)
+ (install-file "scripts/mumble.protocol" services)
+ (install-file "scripts/mumble.desktop" applications)
+ (install-file "icons/mumble.svg" icons)
+ (install-file "man/mumble-overlay.1" man)
+ (install-file "man/mumble.1" man)
+ (install-file "release/murmurd" bin)
+ (install-file "scripts/murmur.ini.system" etc)
+ (rename-file (string-append etc "/murmur.ini.system")
+ (string-append etc "/murmur.ini"))
+ (install-file "scripts/murmur.conf" dbus)
+ (install-file "man/murmurd.1" man)
+ (for-each (lambda (file) (install-file file lib))
+ (find-files "." "\\.so\\."))
+ (for-each (lambda (file) (install-file file lib))
+ (find-files "release/plugins" "\\.so$"))))))))
+ (inputs
+ `(("avahi" ,avahi)
+ ("protobuf" ,protobuf)
+ ("openssl" ,openssl)
+ ("libsndfile" ,libsndfile)
+ ("boost" ,boost)
+ ("opus" ,opus)
+ ("speex" ,speex)
+ ("speech-dispatcher" ,speech-dispatcher)
+ ("libx11" ,libx11)
+ ("libxi" ,libxi)
+ ("qt-4" ,qt-4)
+ ("alsa-lib" ,alsa-lib)
+ ("pulseaudio" ,pulseaudio)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (synopsis "Low-latency, high quality voice chat software")
+ (description
+ "Mumble is an low-latency, high quality voice chat
+software primarily intended for use while gaming.
+Mumble consists of two applications for separate usage:
+@code{mumble} for the client, and @code{murmur} for the server.")
+ (home-page "https://wiki.mumble.info/wiki/Main_Page")
+ (license (list license:bsd-3
+ ;; The bundled celt is bsd-2. Remove after 1.3.0.
+ license:bsd-2))))