diff options
author | Petter <petter@mykolab.ch> | 2017-10-25 10:08:55 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2017-10-25 10:49:38 +0200 |
commit | 15b0844257fef0a9dc27fc75a41766ca0effd2f8 (patch) | |
tree | 74e280e9035050f74ad9b840486a236c04def723 /gnu | |
parent | 985c41458db5a573a8d638a420dc369b84081839 (diff) |
gnu: Add parcimonie.
* gnu/packages/gnupg.scm (parcimonie): New variable.
Co-authored-by: Ricardo Wurmus <rekado@elephly.net>
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/gnupg.scm | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index d332158e27..326b2b9acb 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -53,6 +53,9 @@ #:use-module (gnu packages security-token) #:use-module (gnu packages swig) #:use-module (gnu packages tls) + #:use-module (gnu packages tor) + #:use-module (gnu packages web) + #:use-module (gnu packages xml) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) @@ -888,3 +891,90 @@ designed to provide an object-oriented method for interacting with GnuPG, being able to perform functions such as but not limited to encrypting, signing, decryption, verification, and key-listing parsing.") (license license:perl-license))) + +(define-public parcimonie + (package + (name "parcimonie") + (version "0.10.3") + (source (origin + (method url-fetch) + (uri (string-append "https://gaffer.ptitcanardnoir.org/" + "intrigeri/files/parcimonie/App-Parcimonie-" + version ".tar.gz")) + (sha256 + (base32 + "1kf891117s1f3k6lxvbjdb21va9gxh29vlp9bd664ssgw266rcyb")))) + (build-system perl-build-system) + (inputs + `(("gnupg" ,gnupg-1) ; This is the version used by perl-gnupg-interface + ("perl-config-general" ,perl-config-general) + ("perl-clone" ,perl-clone) + ("perl-data" ,perl-data) + ("perl-exporter-tiny" ,perl-exporter-tiny) + ("perl-file-homedir" ,perl-file-homedir) + ("perl-file-sharedir" ,perl-file-sharedir) + ("perl-file-which" ,perl-file-which) + ("perl-getopt-long-descriptive" ,perl-getopt-long-descriptive) + ("perl-gnupg-interface" ,perl-gnupg-interface) + ("perl-ipc-system-simple" ,perl-ipc-system-simple) + ("perl-list-moreutils" ,perl-list-moreutils) + ("perl-libintl-perl" ,perl-libintl-perl) ; Locale::TextDomain + ("perl-lwp-online" ,perl-lwp-online) + ("perl-module-build" ,perl-module-build) + ("perl-module-pluggable-object" ,perl-module-pluggable) + ("perl-moo" ,perl-moo) + ("perl-moox-handlesvia" ,perl-moox-handlesvia) + ("perl-moox-late" ,perl-moox-late) + ("perl-moox-options" ,perl-moox-options) + ("perl-namespace-clean" ,perl-namespace-clean) + ("perl-net-dbus" ,perl-net-dbus) + ("perl-net-dbus-glib" ,perl-net-dbus-glib) + ("perl-path-tiny" ,perl-path-tiny) + ("perl-test-most" ,perl-test-most) + ("perl-test-trap" ,perl-test-trap) + ("perl-time-duration" ,perl-time-duration) + ("perl-time-duration-parse" ,perl-time-duration-parse) + ("perl-try-tiny" ,perl-try-tiny) + ("perl-type-tiny" ,perl-type-tiny) + ("perl-types-path-tiny" ,perl-types-path-tiny) + ("perl-unicode-linebreak" ,perl-unicode-linebreak) + ("perl-xml-parser" ,perl-xml-parser) + ("perl-xml-twig" ,perl-xml-twig) + ("torsocks" ,torsocks))) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Needed for using gpg-connect-agent during tests. + (add-before 'check 'set-HOME + (lambda _ (setenv "HOME" "/tmp") #t)) + (add-before 'install 'fix-references + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* "lib/App/Parcimonie/GnuPG/Interface.pm" + (("gpg2") "gpg") + ;; Skip check whether dependencies are in the PATH + (("defined which.*") "") + (("call\\('parcimonie-torified-gpg'\\)") + (string-append "call('" (assoc-ref outputs "out") + "/bin/parcimonie-torified-gpg')"))) + (substitute* "bin/parcimonie-torified-gpg" + (("torsocks") (string-append (assoc-ref inputs "torsocks") + "/bin/torsocks"))) + #t)) + (add-after 'install 'wrap-program + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (perllib (string-append out "/lib/perl5/site_perl/" + ,(package-version perl)))) + (wrap-program (string-append out "/bin/parcimonie") + `("PERL5LIB" ":" + prefix (,(string-append perllib ":" (getenv "PERL5LIB"))))) + #t)))))) + (home-page "https://gaffer.ptitcanardnoir.org/intrigeri/code/parcimonie/") + (synopsis "Incrementally refreshes a GnuPG keyring") + (description "Parcimonie incrementaly refreshes a GnuPG keyring in a way +that makes it hard to correlate the keyring content to an individual, and +makes it hard to locate an individual based on an identifying subset of her +keyring content. Parcimonie is a daemon that fetches one key at a time using +the Tor network, waits a bit, changes the Tor circuit being used, and starts +over.") + (license license:gpl1+))) |