;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Eric Bavier ;;; Copyright © 2014 Ian Denhardt ;;; Copyright © 2015, 2016 Leo Famulari ;;; Copyright © 2017 Tobias Geerinckx-Rice ;;; Copyright © 2017 Thomas Danckaert ;;; Copyright © 2017 Arun Isaac ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Pu
aboutsummaryrefslogtreecommitdiff
blob: 0458fd787c506be345e42623d97cf32308bf1d3b (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Contributor Code of Conduct

  Note: In the sequel, "project" refers to GNU Guix, and "project
  maintainer(s)" refers to maintainer(s) of GNU Guix.

As contributors and maintainers of this project, and in the interest of
fostering an open and welcoming community, we pledge to respect all
people who contribute through reporting issues, posting feature
requests, updating documentation, submitting pull requests or patches,
and other activities.

We are committed to making participation in this project a
harassment-free experience for everyone, regardless of level of
experience, gender, gender identity and expression, sexual orientation,
disability, personal appearance, body size, race, ethnicity, age,
religion, or nationality.

Examples of unacceptable behavior by participants include:

* The use of sexualized language or imagery
* Personal attacks
* Trolling or insulting/derogatory comments
* Public or private harassment
* Publishing other's private information, such as physical or electronic
addresses, without explicit permission
* Other unethical or unprofessional conduct

Project maintainers have the right and responsibility to remove, edit,
or reject comments, commits, code, wiki edits, issues, and other
contributions that are not aligned to this Code of Conduct, or to ban
temporarily or permanently any contributor for other behaviors that they
deem inappropriate, threatening, offensive, or harmful.

By adopting this Code of Conduct, project maintainers commit themselves
to fairly and consistently applying these principles to every aspect of
managing this project. Project maintainers who do not follow or enforce
the Code of Conduct may be permanently removed from the project team.

This Code of Conduct applies both within project spaces and in public
spaces when an individual is representing the project or its community.

Instances of abusive, harassing, or otherwise unacceptable behavior may
be reported by contacting a project maintainer at guix-maintainers@gnu.org.
All complaints will be reviewed and investigated and will
result in a response that is deemed necessary and appropriate to the
circumstances. Maintainers are obligated to maintain confidentiality
with regard to the reporter of an incident.

This Code of Conduct is adapted from the Contributor Covenant
(http://contributor-covenant.org), version 1.3.0, available at
http://contributor-covenant.org/version/1/3/0/
zop) ("mcrypt" ,mcrypt) ("openssh" ,openssh) ("gnupg" ,gnupg-1))) (arguments `(#:configure-flags `(,(string-append "--sbindir=" (assoc-ref %outputs "out") "/bin")) #:tests? #f)) (home-page "http://archive.miek.nl/projects/hdup/index.html") (synopsis "Simple incremental backup tool") (description "Hdup2 is a backup utility, its aim is to make backup really simple. The backup scheduling is done by means of a cron job. It supports an include/exclude mechanism, remote backups, encrypted backups and split backups (called chunks) to allow easy burning to CD/DVD.") (license license:gpl2))) (define-public libarchive (package (name "libarchive") (version "3.2.1") (source (origin (method url-fetch) (uri (string-append "http://libarchive.org/downloads/libarchive-" version ".tar.gz")) (patches (search-patches "libarchive-7zip-heap-overflow.patch" "libarchive-fix-symlink-check.patch" "libarchive-fix-filesystem-attacks.patch" "libarchive-safe_fprintf-buffer-overflow.patch")) (sha256 (base32 "1lngng84k1kkljl74q0cdqc3s82vn2kimfm02dgm4d6m7x71mvkj")))) (build-system gnu-build-system) ;; TODO: Add -L/path/to/nettle in libarchive.pc. (inputs `(("zlib" ,zlib) ("nettle" ,nettle) ("lzo" ,lzo) ("bzip2" ,bzip2) ("libxml2" ,libxml2) ("xz" ,xz))) (arguments `(#:phases (alist-cons-before 'build 'patch-pwd (lambda _ (substitute* "Makefile" (("/bin/pwd") (which "pwd")))) (alist-replace 'check (lambda _ ;; XXX: The test_owner_parse, test_read_disk, and ;; test_write_disk_lookup tests expect user 'root' to exist, but ;; the chroot's /etc/passwd doesn't have it. Turn off those tests. ;; ;; The tests allow one to disable tests matching a globbing pattern. (and (zero? (system* "make" "libarchive_test" "bsdcpio_test" "bsdtar_test")) ;; XXX: This glob disables too much. (zero? (system* "./libarchive_test" "^test_*_disk*")) (zero? (system* "./bsdcpio_test" "^test_owner_parse")) (zero? (system* "./bsdtar_test")))) %standard-phases)) ;; libarchive/test/test_write_format_gnutar_filenames.c needs to be ;; compiled with C99 or C11 or a gnu variant. #:configure-flags '("CFLAGS=-O2 -g -std=c99"))) (home-page "http://libarchive.org/") (synopsis "Multi-format archive and compression library") (description "Libarchive provides a flexible interface for reading and writing archives in various formats such as tar and cpio. Libarchive also supports reading and writing archives compressed using various compression filters such as gzip and bzip2. The library is inherently stream-oriented; readers serially iterate through the archive, writers serially add things to the archive. In particular, note that there is currently no built-in support for random access nor for in-place modification.") (license license:bsd-2))) (define-public rdup (package (name "rdup") (version "1.1.14") (source (origin (method url-fetch) (uri (string-append "http://archive.miek.nl/projects/rdup/rdup-" version ".tar.bz2")) (sha256 (base32 "0aklwd9v7ix0m4ayl762sil685f42cwljzx3jz5skrnjaq32npmj")) (modules '((guix build utils))) (snippet ;; Some test scripts are missing shebangs, which cause "could not ;; execute" errors. Add shebangs. '(for-each (lambda (testscript) (with-atomic-file-replacement (string-append "testsuite/rdup/" testscript) (lambda (in out) (begin (format out "#!/bin/sh\n" ) (dump-port in out))))) '("rdup.hardlink.helper" "rdup.hardlink-strip.helper" "rdup.hardlink-strip2.helper" "rdup.pipeline.helper"))))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("dejagnu" ,dejagnu))) (inputs `(("glib" ,glib) ("pcre" ,pcre) ("libarchive" ,libarchive) ("nettle" ,nettle))) (arguments `(#:parallel-build? #f ;race conditions #:phases (alist-cons-before 'build 'remove-Werror ;; rdup uses a deprecated function from libarchive (lambda _ (substitute* "GNUmakefile" (("^(CFLAGS=.*)-Werror" _ front) front))) (alist-cons-before 'check 'pre-check (lambda _ (setenv "HOME" (getcwd)) (substitute* "testsuite/rdup/rdup.rdup-up-t-with-file.exp" (("/bin/cat") (which "cat")))) %standard-phases)))) (home-page "http://archive.miek.nl/projects/rdup/index.html") (synopsis "Provide a list of files to backup") (description "Rdup is a utility inspired by rsync and the plan9 way of doing backups. Rdup itself does not backup anything, it only print a list of absolute file names to standard output. Auxiliary scripts are needed that act on this list and implement the backup strategy.") (license license:gpl3+))) (define-public btar (package (name "btar") (version "1.1.1") (source (origin (method url-fetch) (uri (string-append "http://vicerveza.homeunix.net/~viric/soft/btar/" "btar-" version ".tar.gz")) (sha256 (base32 "0miklk4bqblpyzh1bni4x6lqn88fa8fjn15x1k1n8bxkx60nlymd")))) (build-system gnu-build-system) (inputs `(("librsync" ,librsync))) (arguments `(#:make-flags `(,(string-append "PREFIX=" (assoc-ref %outputs "out")) "CC=gcc") #:tests? #f ;test input not distributed #:phases (alist-delete 'configure ;no configure phase %standard-phases))) (home-page "http://viric.name/cgi-bin/btar/doc/trunk/doc/home.wiki") (synopsis "Tar-compatible archiver") (description "Btar is a tar-compatible archiver which allows arbitrary compression and ciphering, redundancy, differential backup, indexed extraction, multicore compression, input and output serialisation, and tolerance to partial archive errors.") (license license:gpl3+))) (define-public rdiff-backup (package (name "rdiff-backup") (version "1.2.8") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/rdiff-backup/rdiff-backup-" version ".tar.gz")) (sha256 (base32 "1nwmmh816f96h0ff1jxk95ad38ilbhbdl5dgibx1d4cl81dsi48d")))) (build-system python-build-system) (inputs `(("python" ,python-2) ("librsync" ,librsync))) (arguments `(#:python ,python-2 #:tests? #f)) (home-page "http://www.nongnu.org/rdiff-backup/") (synopsis "Local/remote mirroring+incremental backup") (description "Rdiff-backup backs up one directory to another, possibly over a network. The target directory ends up a copy of the source directory, but extra reverse diffs are stored in a special subdirectory of that target directory, so you can still recover files lost some time ago. The idea is to combine the best features of a mirror and an incremental backup. Rdiff-backup also preserves subdirectories, hard links, dev files, permissions, uid/gid ownership, modification times, extended attributes, acls, and resource forks. Also, rdiff-backup can operate in a bandwidth efficient manner over a pipe, like rsync. Thus you can use rdiff-backup and ssh to securely back a hard drive up to a remote location, and only the differences will be transmitted. Finally, rdiff-backup is easy to use and settings have sensible defaults.") (license license:gpl2+))) (define-public rsnapshot (package (name "rsnapshot") (version "1.4.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/rsnapshot/rsnapshot/releases/download/" version "/rsnapshot-" version ".tar.gz")) (sha256 (base32 "05jfy99a0xs6lvsjfp3wz21z0myqhmwl2grn3jr9clijbg282ah4")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (replace 'check (lambda _ (substitute* '("t/cmd-post_pre-exec/conf/pre-true-post-true.conf" "t/backup_exec/conf/backup_exec_fail.conf" "t/backup_exec/conf/backup_exec.conf") (("/bin/true") (which "true")) (("/bin/false") (which "false"))) (zero? (system* "make" "test"))))))) (inputs `(("perl" ,perl) ("rsync" ,rsync))) (home-page "http://rsnapshot.org") (synopsis "Deduplicating snapshot backup utility based on rsync") (description "rsnapshot is a filesystem snapshot utility based on rsync. rsnapshot makes it easy to make periodic snapshots of local machines, and remote machines over SSH. To reduce the disk space required for each backup, rsnapshot uses hard links to deduplicate identical files.") (license license:gpl2+))) (define-public libchop (package (name "libchop") (version "0.5.2") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/libchop/libchop-" version ".tar.gz")) (sha256 (base32 "0fpdyxww41ba52d98blvnf543xvirq1v9xz1i3x1gm9lzlzpmc2g")) (patches (search-patches "diffutils-gets-undeclared.patch")))) (build-system gnu-build-system) (native-inputs `(("guile" ,guile-2.0) ("gperf" ,gperf) ("pkg-config" ,pkg-config))) (inputs `(("guile" ,guile-2.0) ("util-linux" ,util-linux) ("gnutls" ,gnutls) ("tdb" ,tdb) ("bdb" ,bdb) ("gdbm" ,gdbm) ("libgcrypt" ,libgcrypt) ("lzo" ,lzo) ("bzip2" ,bzip2) ("zlib" ,zlib))) (home-page "http://nongnu.org/libchop/") (synopsis "Tools & library for data backup and distributed storage") (description "Libchop is a set of utilities and library for data backup and distributed storage. Its main application is @command{chop-backup}, an encrypted backup program that supports data integrity checks, versioning, distribution among several sites, selective sharing of stored data, adaptive compression, and more. The library itself implements storage techniques such as content-addressable storage, content hash keys, Merkle trees, similarity detection, and lossless compression.") (license license:gpl3+))) (define-public borg (package (name "borg") (version "1.0.10") (source (origin (method url-fetch) (uri (pypi-uri "borgbackup" version)) (sha256 (base32 "1sarmpzwr8dhbg0hsvaclcsjfax36ssb32d9klhhah4j8kqji3wp")) (modules '((guix build utils))) (snippet '(for-each delete-file (find-files "borg" "^(c|h|p).*\\.c$"))))) (build-system python-build-system) (arguments `(#:modules ((srfi srfi-26) ; for cut (guix build utils) (guix build python-build-system)) #:phases (modify-phases %standard-phases (add-after 'unpack 'set-env (lambda* (#:key inputs #:allow-other-keys) (let ((openssl (assoc-ref inputs "openssl")) (lz4 (assoc-ref inputs "lz4"))) (setenv "BORG_OPENSSL_PREFIX" openssl) (setenv "BORG_LZ4_PREFIX" lz4) (setenv "PYTHON_EGG_CACHE" "/tmp") ;; The test 'test_return_codes[python]' fails when ;; HOME=/homeless-shelter. (setenv "HOME" "/tmp") #t))) ;; The tests need to be run after Borg is installed. (delete 'check) (add-after 'install 'check (lambda* (#:key inputs outputs #:allow-other-keys) ;; Make the installed package available for the test suite. (add-installed-pythonpath inputs outputs) ;; The tests should be run in an empty directory. (mkdir-p "tests") (with-directory-excursion "tests" (zero? (system* "py.test" "-v" "--pyargs" "borg.testsuite" "-k" (string-append ;; These tests need to write to '/var'. "not test_get_cache_dir " "and not test_get_keys_dir " "and not test_get_security_dir " ;; These tests assume there is a root user in ;; '/etc/passwd'. "and not test_access_acl " "and not test_default_acl " "and not test_non_ascii_acl " ;; This test needs the unpackaged pytest-benchmark. "and not benchmark " ;; These tests assume the kernel supports FUSE. "and not test_fuse " "and not test_fuse_allow_damaged_files")))))) (add-after 'install 'install-doc (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (man (string-append out "/share/man/man1")) (misc (string-append out "/share/borg/misc"))) (for-each (cut install-file <> misc) '("docs/misc/create_chunker-params.txt" "docs/misc/internals-picture.txt" "docs/misc/prune-example.txt")) (and (zero? (system* "python3" "setup.py" "build_ext" "--inplace")) (zero? (system* "make" "-C" "docs" "man")) (begin (install-file "docs/_build/man/borg.1" man) #t)))))))) (native-inputs `(("python-cython" ,python-cython) ("python-setuptools-scm" ,python-setuptools-scm) ;; Borg 1.0.8's test suite uses 'tmpdir_factory', which was introduced in ;; pytest 2.8. ("python-pytest" ,python-pytest-3.0) ;; For generating the documentation. ("python-sphinx" ,python-sphinx) ("python-sphinx-rtd-theme" ,python-sphinx-rtd-theme))) (inputs `(("acl" ,acl) ("lz4" ,lz4) ("openssl" ,openssl) ("python-llfuse" ,python-llfuse) ("python-msgpack" ,python-msgpack))) (synopsis "Deduplicated, encrypted, authenticated and compressed backups") (description "Borg is a deduplicating backup program. Optionally, it supports compression and authenticated encryption. The main goal of Borg is to provide an efficient and secure way to backup data. The data deduplication technique used makes Borg suitable for daily backups since only changes are stored. The authenticated encryption technique makes it suitable for backups to not fully trusted targets. Borg is a fork of Attic.") (home-page "https://borgbackup.github.io/borgbackup/") (license license:bsd-3))) (define-public attic (package (name "attic") (version "0.16") (source (origin (method url-fetch) (uri (string-append "https://pypi.python.org/packages/source/A/Attic/Attic-" version ".tar.gz")) (sha256 (base32 "0b5skd36r4c0915lwpkqg5hxm49gls9pprs1b7hc40910wlcsl36")))) (build-system python-build-system) (arguments `(;; The tests assume they are run as root: ;; https://github.com/jborg/attic/issues/7 #:tests? #f #:phases (modify-phases %standard-phases (add-before 'build 'set-openssl-prefix (lambda* (#:key inputs #:allow-other-keys) (setenv "ATTIC_OPENSSL_PREFIX" (assoc-ref inputs "openssl")) #t))))) (inputs `(("acl" ,acl) ("openssl" ,openssl) ("python-msgpack" ,python-msgpack) ;; Attic is probably incompatible with llfuse > 0.41. ;; These links are to discussions of llfuse compatibility from ;; the borg project. Borg is a recent fork of attic, and attic ;; has not been updated since the fork, so it's likely that ;; llfuse compatibility requirements are still the same. ;; https://github.com/borgbackup/borg/issues/642 ;; https://github.com/borgbackup/borg/issues/643 ("python-llfuse" ,python-llfuse-0.41))) (synopsis "Deduplicating backup program") (description "Attic is a deduplicating backup program. The main goal of Attic is to provide an efficient and secure way to backup data. The data deduplication technique used makes Attic suitable for daily backups since only changes are stored.") (home-page "https://attic-backup.org/") (license license:bsd-3) (properties `((superseded . ,borg))))) (define-public wimlib (package (name "wimlib") (version "1.10.0") (source (origin (method url-fetch) (uri (string-append "https://wimlib.net/downloads/" name "-" version ".tar.gz")) (sha256 (base32 "0mbz03smlc054i2m9q2sbqymml9m897kfs84q7g81i26y811p6wq")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config))) (inputs `(("fuse" ,fuse) ("libxml2" ,libxml2) ("ntfs-3g" ,ntfs-3g) ("openssl" ,openssl))) (arguments `(#:configure-flags (list "--enable-test-support"))) (home-page "https://wimlib.net/") (synopsis "WIM file manipulation library and utilities") (description "wimlib is a C library and set of command-line utilities for creating, modifying, extracting, and mounting archives in the Windows Imaging Format (@dfn{WIM files}). It can capture and apply WIMs directly from and to NTFS volumes using @code{ntfs-3g}, preserving NTFS-specific attributes.") ;; wimlib is dual-licenced under version 3 or later of either the GPL or ;; LGPL, except those files explicitly marked as being released into the ;; public domain (CC0) in their headers. (license (list license:gpl3+ license:lgpl3+ license:cc0)))) (define-public obnam (package (name "obnam") (version "1.21") (source (origin (method url-fetch) (uri (string-append "http://code.liw.fi/debian/pool/main/o/obnam/obnam_" version ".orig.tar.xz")) (sha256 (base32 "0qlipsq50hca71zc0dp1mg9zs12qm0sbblw7qfzl0hj6mk2rv1by")))) (build-system python-build-system) (arguments `(#:python ,python-2 #:phases (modify-phases %standard-phases (replace 'check (lambda _ (substitute* "obnamlib/vfs_local_tests.py" ;; Check for the nobody user instead of root (("self.fs.get_username\\(0\\), 'root'") "self.fs.get_username(65534), 'nobody'") ;; Disable tests checking for root group (("self.fs.get_groupname\\(0\\)") "'root'")) (substitute* "obnamlib/vfs_local.py" ;; Don't cover get_groupname function (("def get_groupname\\(self, gid\\):") "def get_groupname(self, gid): # pragma: no cover")) ;; Can't run network tests (zero? (system* "./check" "--unit-tests"))))))) (inputs `(("python2-cliapp" ,python2-cliapp) ("python2-larch" ,python2-larch) ("python2-paramiko" ,python2-paramiko) ("python2-pyaml" ,python2-pyaml) ("python2-tracing" ,python2-tracing) ("python2-ttystatus" ,python2-ttystatus))) (native-inputs `(("gnupg" ,gnupg) ("python2-coverage" ,python2-coverage) ("python2-coverage-test-runner" ,python2-coverage-test-runner) ("python2-pep8" ,python2-pep8) ("python2-pylint" ,python2-pylint))) (home-page "https://obnam.org/") (synopsis "Easy and secure backup program") (description "Obnam is an easy, secure backup program. Features include snapshot backups, data de-duplication and encrypted backups using GnuPG. Backups can be stored on local hard disks, or online via the SSH SFTP protocol. The backup server, if used, does not require any special software, on top of SSH.") (license license:gpl3+)))