gnu: Use 'modify-phases' syntax.
[jackhill/guix/guix.git] / gnu / packages / bittorrent.scm
CommitLineData
3963a729 1;;; GNU Guix --- Functional package management for GNU
df66fee7 2;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
07366434 3;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
feb767b2 4;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
e906f4e1 5;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
9c64f76e 6;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
4b67098d 7;;; Copyright © 2016 Tomáš Čech <sleep_walker@gnu.org>
8975d00c 8;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
4e58e9d0 9;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
3963a729
LC
10;;;
11;;; This file is part of GNU Guix.
12;;;
13;;; GNU Guix is free software; you can redistribute it and/or modify it
14;;; under the terms of the GNU General Public License as published by
15;;; the Free Software Foundation; either version 3 of the License, or (at
16;;; your option) any later version.
17;;;
18;;; GNU Guix is distributed in the hope that it will be useful, but
19;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21;;; GNU General Public License for more details.
22;;;
23;;; You should have received a copy of the GNU General Public License
24;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
25
26(define-module (gnu packages bittorrent)
27 #:use-module (guix packages)
28 #:use-module (guix download)
e906f4e1 29 #:use-module (guix git-download)
3963a729 30 #:use-module (guix build-system gnu)
feb767b2 31 #:use-module (guix build-system python)
4cdec09a 32 #:use-module (guix build-system glib-or-gtk)
b5b73a82 33 #:use-module ((guix licenses) #:prefix l:)
3c569804 34 #:use-module (gnu packages)
f66842dc 35 #:use-module (gnu packages adns)
4e58e9d0 36 #:use-module (gnu packages boost)
f66842dc
EF
37 #:use-module (gnu packages check)
38 #:use-module (gnu packages compression)
4b67098d 39 #:use-module (gnu packages crypto)
3963a729 40 #:use-module (gnu packages curl)
f66842dc
EF
41 #:use-module (gnu packages cyrus-sasl)
42 #:use-module (gnu packages databases)
3963a729 43 #:use-module (gnu packages file)
3963a729 44 #:use-module (gnu packages glib)
4b67098d
45 #:use-module (gnu packages gnome)
46 #:use-module (gnu packages gnupg)
47 #:use-module (gnu packages gstreamer)
df66fee7 48 #:use-module (gnu packages gtk)
f66842dc
EF
49 #:use-module (gnu packages libevent)
50 #:use-module (gnu packages linux)
51 #:use-module (gnu packages multiprecision)
52 #:use-module (gnu packages nettle)
2d8dc79c 53 #:use-module (gnu packages ncurses)
f66842dc 54 #:use-module (gnu packages pkg-config)
feb767b2 55 #:use-module (gnu packages python)
f66842dc
EF
56 #:use-module (gnu packages ssh)
57 #:use-module (gnu packages tls)
58 #:use-module (gnu packages xml))
3963a729
LC
59
60(define-public transmission
61 (package
62 (name "transmission")
4f55441f 63 (version "2.92")
3963a729
LC
64 (source (origin
65 (method url-fetch)
66 (uri (string-append
67 "https://transmission.cachefly.net/transmission-"
68 version ".tar.xz"))
69 (sha256
70 (base32
4f55441f 71 "0pykmhi7pdmzq47glbj8i2im6iarp4wnj4l1pyvsrnba61f0939s"))))
4cdec09a 72 (build-system glib-or-gtk-build-system)
3963a729
LC
73 (outputs '("out" ; library and command-line interface
74 "gui")) ; graphical user interface
75 (arguments
4cdec09a 76 '(#:glib-or-gtk-wrap-excluded-outputs '("out")
dc1d3cde
KK
77 #:phases
78 (modify-phases %standard-phases
79 (add-after 'install 'move-gui
80 (lambda* (#:key outputs #:allow-other-keys)
81 ;; Move the GUI to its own output, so that "out" doesn't
82 ;; depend on GTK+.
83 (let ((out (assoc-ref outputs "out"))
84 (gui (assoc-ref outputs "gui")))
85 (mkdir-p (string-append gui "/bin"))
86 (rename-file (string-append out "/bin/transmission-gtk")
87 (string-append gui
88 "/bin/transmission-gtk"))
07366434 89
dc1d3cde
KK
90 ;; Move the '.desktop' file as well.
91 (mkdir (string-append gui "/share"))
92 (rename-file (string-append out "/share/applications")
93 (string-append gui "/share/applications")))
94 #t)))))
3963a729
LC
95 (inputs
96 `(("inotify-tools" ,inotify-tools)
97 ("libevent" ,libevent)
98 ("curl" ,curl)
4f55441f 99 ("cyrus-sasl" ,cyrus-sasl)
3963a729
LC
100 ("openssl" ,openssl)
101 ("file" ,file)
102 ("zlib" ,zlib)
103 ("gtk+" ,gtk+)))
104 (native-inputs
105 `(("intltool" ,intltool)
106 ("pkg-config" ,pkg-config)))
107 (home-page "http://www.transmissionbt.com/")
108 (synopsis "Fast and easy BitTorrent client")
109 (description
110 "Transmission is a BitTorrent client that comes with graphical,
111textual, and Web user interfaces. Transmission also has a daemon for
e881752c 112unattended operations. It supports local peer discovery, full encryption,
3963a729
LC
113DHT, µTP, PEX and Magnet Links.")
114
115 ;; COPYING reads:
116 ;;
117 ;; Transmission can be redistributed and/or modified under the terms of
118 ;; the GNU GPLv2 (http://www.gnu.org/licenses/license-list.html#GPLv2),
119 ;; the GNU GPLv3 (http://www.gnu.org/licenses/license-list.html#GNUGPLv3),
120 ;; or any future license endorsed by Mnemosyne LLC.
121 ;;
122 ;; A few files files carry an MIT/X11 license header.
123 (license l:gpl3+)))
df66fee7
LC
124
125(define-public libtorrent
126 (package
127 (name "libtorrent")
29b4c57b 128 (version "0.13.6")
df66fee7
LC
129 (source (origin
130 (method url-fetch)
131 (uri (string-append
29b4c57b 132 "http://rtorrent.net/downloads/libtorrent-"
df66fee7
LC
133 version ".tar.gz"))
134 (sha256
135 (base32
29b4c57b 136 "012s1nwcvz5m5r4d2z9klgy2n34kpgn9kgwgzxm97zgdjs6a0f18"))))
df66fee7
LC
137 (build-system gnu-build-system)
138 (inputs `(("openssl" ,openssl)
139 ("zlib" ,zlib)))
140 (native-inputs `(("pkg-config" ,pkg-config)
29b4c57b 141 ("cppunit" ,cppunit)))
df66fee7
LC
142 (synopsis "BitTorrent library of rtorrent")
143 (description
144 "LibTorrent is a BitTorrent library used by and developed in parallel
145with the BitTorrent client rtorrent. It is written in C++ with emphasis on
146speed and efficiency.")
9db04bf5 147 (home-page "https://github.com/rakshasa/libtorrent")
df66fee7 148 (license l:gpl2+)))
2d8dc79c
TUBK
149
150(define-public rtorrent
151 (package
152 (name "rtorrent")
9fbd458b 153 (version "0.9.6")
2d8dc79c
TUBK
154 (source (origin
155 (method url-fetch)
156 (uri (string-append
9fbd458b 157 "http://rtorrent.net/downloads/rtorrent-"
2d8dc79c
TUBK
158 version ".tar.gz"))
159 (sha256
160 (base32
9fbd458b 161 "03jvzw9pi2mhcm913h8qg0qw9gwjqc6lhwynb1yz1y163x7w4s8y"))))
2d8dc79c
TUBK
162 (build-system gnu-build-system)
163 (inputs `(("libtorrent" ,libtorrent)
164 ("ncurses" ,ncurses)
165 ("curl" ,curl)
166 ("cyrus-sasl" ,cyrus-sasl)
167 ("openssl" ,openssl)
168 ("zlib" ,zlib)))
169 (native-inputs `(("pkg-config" ,pkg-config)
170 ("cppunit" ,cppunit)))
171 (synopsis "BitTorrent client with ncurses interface")
172 (description
173 "rTorrent is a BitTorrent client with an ncurses interface. It supports
174full encryption, DHT, PEX, and Magnet Links. It can also be controlled via
175XML-RPC over SCGI.")
9db04bf5 176 (home-page "https://github.com/rakshasa/rtorrent")
2d8dc79c 177 (license l:gpl2+)))
e906f4e1
LF
178
179(define-public tremc
180 (let ((commit "401f2303c9b5a6e2e7b0808617d794576d4aa29e")
181 (revision "0"))
182 (package
183 (name "tremc")
aaf111a2 184 (version (string-append "0.9.0-" revision "." (string-take commit 7)))
e906f4e1
LF
185 (source
186 (origin
187 (method git-fetch)
188 (uri (git-reference
189 (url "https://github.com/louipc/tremc.git")
190 (commit commit)))
191 (sha256
192 (base32
193 "1h2720zn35iggmf9av65g119b0bhskwm1ng0zbkjryaf38nfzpin"))))
194 (build-system python-build-system)
195 (arguments
196 `(#:tests? #f ; no test suite
197 #:phases
198 (modify-phases %standard-phases
199 ;; The software is just a Python script that must be
200 ;; copied into place.
201 (delete 'build)
202 (replace 'install
203 (lambda* (#:key outputs #:allow-other-keys)
204 (let* ((out (assoc-ref outputs "out"))
205 (bin (string-append out "/bin"))
206 (man (string-append out "/share/man/man1"))
207 ;; FIXME install zsh completions
208 (completions (string-append out "/etc/bash_completion.d")))
209 (install-file "tremc" bin)
210 (install-file "tremc.1" man)
211 (install-file
212 (string-append
213 "completion/bash/"
214 "transmission-remote-cli-bash-completion.sh")
215 completions)))))))
216 (synopsis "Console client for the Transmission BitTorrent daemon")
217 (description "Tremc is a console client, with a curses interface, for the
218Transmission BitTorrent daemon.")
219 (home-page "https://github.com/louipc/tremc")
220 (license l:gpl3+))))
feb767b2
LF
221
222(define-public transmission-remote-cli
223 (package
224 (name "transmission-remote-cli")
225 (version "1.7.1")
226 (source (origin
227 (method url-fetch)
228 (uri (string-append "https://github.com/fagga/"
229 "transmission-remote-cli/archive/v"
230 version ".tar.gz"))
231 (file-name (string-append name "-" version ".tar.gz"))
232 (sha256
233 (base32
234 "1y0hkpcjf6jw9xig8yf484hbhy63nip0pkchx401yxj81m25l4z9"))))
235 (build-system python-build-system)
236 (arguments
237 `(#:python ,python-2 ; only supports Python 2
238 #:tests? #f ; no test suite
239 #:phases (modify-phases %standard-phases
240 ;; The software is just a Python script that must be
241 ;; copied into place.
242 (delete 'build)
243 (replace 'install
244 (lambda* (#:key outputs #:allow-other-keys)
245 (let* ((out (assoc-ref outputs "out"))
246 (bin (string-append out "/bin"))
247 (man (string-append out "/share/man/man1"))
248 ;; FIXME install zsh completions
249 (completions (string-append out "/etc/bash_completion.d")))
250 (install-file "transmission-remote-cli" bin)
251 (install-file "transmission-remote-cli.1" man)
252 (install-file
253 (string-append
254 "completion/bash/"
255 "transmission-remote-cli-bash-completion.sh")
256 completions)))))))
257 (synopsis "Console client for the Transmission BitTorrent daemon")
258 (description "Transmission-remote-cli is a console client, with a curses
aaf111a2
LF
259interface, for the Transmission BitTorrent daemon. This package is no longer
260maintained upstream.")
feb767b2 261 (home-page "https://github.com/fagga/transmission-remote-cli")
aaf111a2
LF
262 (license l:gpl3+)
263 (properties `((superseded . ,tremc)))))
f66842dc
EF
264
265(define-public aria2
266 (package
267 (name "aria2")
fea00404 268 (version "1.32.0")
f66842dc
EF
269 (source (origin
270 (method url-fetch)
271 (uri (string-append "https://github.com/tatsuhiro-t/aria2/"
272 "releases/download/release-" version "/"
273 name "-" version ".tar.xz"))
274 (sha256
275 (base32
fea00404 276 "0l6whbbcw1qijlczlfqi3mhba3zki0ybjb2prrgncp8km6a92vjl"))))
f66842dc
EF
277 (build-system gnu-build-system)
278 (arguments
d2a7a145
EF
279 `(#:configure-flags (list "--enable-libaria2"
280 (string-append "--with-bashcompletiondir="
281 %output "/etc/bash_completion.d/"))
f66842dc
EF
282 #:phases
283 (modify-phases %standard-phases
284 (add-after 'unpack 'delete-socket-tests
285 (lambda _
286 (substitute* "test/LpdMessageDispatcherTest.cc"
287 (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageDispatcherTest\\);" text)
288 (string-append "// " text)))
289 (substitute* "test/LpdMessageReceiverTest.cc"
290 (("CPPUNIT_TEST_SUITE_REGISTRATION\\(LpdMessageReceiverTest\\);" text)
9c64f76e
EF
291 (string-append "// " text)))
292 #t)))))
f66842dc 293 (native-inputs
5bed95ef
EF
294 `(("cppunit" ,cppunit) ; for the tests
295 ("pkg-config" ,pkg-config)))
f66842dc
EF
296 (inputs
297 `(("c-ares" ,c-ares)
f66842dc
EF
298 ("gnutls" ,gnutls)
299 ("gmp" ,gmp)
300 ("libssh2" ,libssh2)
301 ("libxml2" ,libxml2)
302 ("nettle" ,nettle)
303 ("sqlite" ,sqlite)
304 ("zlib" ,zlib)))
5bed95ef 305 (home-page "https://aria2.github.io/")
f66842dc
EF
306 (synopsis "Utility for parallel downloading files")
307 (description
308 "Aria2 is a lightweight, multi-protocol & multi-source command-line
309download utility. It supports HTTP/HTTPS, FTP, SFTP, BitTorrent and Metalink.
310Aria2 can be manipulated via built-in JSON-RPC and XML-RPC interfaces.")
311 (license l:gpl2+)))
4b67098d 312
4b67098d
313(define-public uget
314 (package
315 (name "uget")
316 (version "2.0.8")
317 (source (origin
318 (method url-fetch)
319 (uri (string-append "mirror://sourceforge/urlget/"
320 "uget%20%28stable%29/" version "/uget-"
321 version ".tar.gz"))
322 (sha256
323 (base32
324 "0919cf7lfk1djdl003cahqjvafdliv7v2l8r5wg95n4isqggdk75"))))
325 (build-system gnu-build-system)
326 (native-inputs
327 `(("intltool" ,intltool)))
328 (inputs
329 `(("curl" ,curl)
330 ("gtk+" ,gtk+)
331 ("glib" ,glib)
332 ("gnutls" ,gnutls)
333 ("gstreamer" ,gstreamer)
334 ("libgcrypt" ,libgcrypt)
335 ("libnotify" ,libnotify)
336 ("openssl" ,openssl)))
337 (native-inputs
c7ad32d9
EF
338 `(("intltool" ,intltool)
339 ("pkg-config" ,pkg-config)))
4b67098d
340 (home-page "http://ugetdm.com/")
341 (synopsis "Universal download manager with GTK+ interface")
342 (description
343 "uGet is portable download manager with GTK+ interface supporting
344HTTP, HTTPS, BitTorrent and Metalink, supporting multi-connection
345downloads, download scheduling, download rate limiting.")
346 (license l:lgpl2.1+)))
8975d00c
TGR
347
348(define-public mktorrent
349 (package
350 (name "mktorrent")
351 (version "1.0")
352 (source (origin
353 (method url-fetch)
354 (uri (string-append "mirror://sourceforge/mktorrent/mktorrent/"
355 version "/" name "-" version ".tar.gz"))
356 (sha256
357 (base32
358 "17qi3nfky240pq6qcmf5qg324mxm83vk9r3nvsdhsvinyqm5d3kg"))))
359 (build-system gnu-build-system)
360 (arguments
361 `(#:phases (modify-phases %standard-phases
362 (delete 'configure)) ; no configure script
363 #:make-flags (list "CC=gcc"
364 (string-append "PREFIX=" (assoc-ref %outputs "out"))
365 "NO_HASH_CHECK=1"
366 "USE_LARGE_FILES=1"
367 "USE_LONG_OPTIONS=1"
368 "USE_PTHREADS=1")
369 #:tests? #f)) ; no tests
370 (home-page "http://mktorrent.sourceforge.net/")
371 (synopsis "Utility to create BitTorrent metainfo files")
372 (description "mktorrent is a simple command-line utility to create
373BitTorrent @dfn{metainfo} files, often known simply as @dfn{torrents}, from
374both single files and whole directories. It can add multiple trackers and web
375seed URLs, and set the @code{private} flag to disallow advertisement through
376the distributed hash table (DHT) and Peer Exchange. Hashing is multi-threaded
377and will take advantage of multiple processor cores where possible.")
378 (license (list l:public-domain ; sha1.*, used to build without OpenSSL
379 l:gpl2+)))) ; with permission to link with OpenSSL
4e58e9d0
JL
380
381(define-public libtorrent-rasterbar
382 (package
383 (name "libtorrent-rasterbar")
3c569804 384 (version "1.1.2")
4e58e9d0
JL
385 (source (origin
386 (method url-fetch)
387 (uri
388 (string-append
389 "https://github.com/arvidn/libtorrent/releases/download/libtorrent-"
3c569804
MB
390 (string-join (string-split version #\.) "_")
391 "/libtorrent-rasterbar-" version ".tar.gz"))
392 (patches
393 (search-patches "libtorrent-rasterbar-boost-compat.patch"))
4e58e9d0
JL
394 (sha256
395 (base32
3c569804 396 "16im9qsmfrmmkhfjpij9739nqpn4s6wgc9cikdxbcyshfhimzra5"))))
4e58e9d0
JL
397 (build-system gnu-build-system)
398 (arguments
399 `(#:configure-flags
400 (list (string-append "--with-boost-libdir="
401 (assoc-ref %build-inputs "boost")
402 "/lib")
403 "--enable-python-binding"
404 "--enable-tests")
405 #:make-flags (list
406 (string-append "LDFLAGS=-Wl,-rpath="
407 (assoc-ref %outputs "out") "/lib"))))
408 (inputs `(("boost" ,boost)
409 ("openssl" ,openssl)))
410 (native-inputs `(("python" ,python-2)
411 ("pkg-config" ,pkg-config)))
412 (home-page "http://www.rasterbar.com/products/libtorrent/")
413 (synopsis "Feature complete BitTorrent implementation")
414 (description
415 "libtorrent-rasterbar is a feature complete C++ BitTorrent implementation
416focusing on efficiency and scalability. It runs on embedded devices as well as
417desktops.")
418 (license l:bsd-2)))
419
420