Commit | Line | Data |
---|---|---|
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 TČ |
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, | |
111 | textual, and Web user interfaces. Transmission also has a daemon for | |
e881752c | 112 | unattended operations. It supports local peer discovery, full encryption, |
3963a729 LC |
113 | DHT, µ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 | |
145 | with the BitTorrent client rtorrent. It is written in C++ with emphasis on | |
146 | speed 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 | |
174 | full encryption, DHT, PEX, and Magnet Links. It can also be controlled via | |
175 | XML-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 | |
218 | Transmission 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 |
259 | interface, for the Transmission BitTorrent daemon. This package is no longer |
260 | maintained 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 | |
309 | download utility. It supports HTTP/HTTPS, FTP, SFTP, BitTorrent and Metalink. | |
310 | Aria2 can be manipulated via built-in JSON-RPC and XML-RPC interfaces.") | |
311 | (license l:gpl2+))) | |
4b67098d | 312 | |
4b67098d TČ |
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 TČ |
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 | |
344 | HTTP, HTTPS, BitTorrent and Metalink, supporting multi-connection | |
345 | downloads, 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 | |
373 | BitTorrent @dfn{metainfo} files, often known simply as @dfn{torrents}, from | |
374 | both single files and whole directories. It can add multiple trackers and web | |
375 | seed URLs, and set the @code{private} flag to disallow advertisement through | |
376 | the distributed hash table (DHT) and Peer Exchange. Hashing is multi-threaded | |
377 | and 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 | |
416 | focusing on efficiency and scalability. It runs on embedded devices as well as | |
417 | desktops.") | |
418 | (license l:bsd-2))) | |
419 | ||
420 |