me
/
guix
Archived
1
0
Fork 0
Code

gnu: dkimproxy: Factorise wrapping. 

This is a follow-up to 66e39000c6, in a
way, since it adds the forgotten *6 inputs.

* gnu/packages/mail.scm (dkimproxy)[arguments]: Refactor ’make-wrapper’ phase.
Add perl-io-socket-inet6 and perl-socket6 to the list.
master
Tobias Geerinckx-Rice 2019-07-25 23:27:52 +02:00
parent d045dce16d
commit 8c07824c52
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
gnu/packages/mail.scm
View File

@ -1976,26 +1976,29 @@ DKIM and/or DomainKeys.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'make-wrapper (add-after 'install 'make-wrapper
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out"))
(for-each (wrap.pl (lambda (scripts keys)
(lambda (prog) (for-each
(wrap-program (string-append out "/bin/" prog) (lambda (script)
`("PERL5LIB" ":" prefix (wrap-program (string-append out script)
(,(string-append (assoc-ref inputs "perl-mail-dkim") `("PERL5LIB" ":" prefix
"/lib/perl5/site_perl") ,(map (λ (input)
,(string-append (assoc-ref inputs "perl-mailtools") (string-append
"/lib/perl5/site_perl") (assoc-ref inputs input)
,(string-append "/lib/perl5/site_perl"))
(assoc-ref inputs "perl-mail-authenticationresults") keys))))
"/lib/perl5/site_perl") scripts))))
,(string-append (assoc-ref inputs "perl-crypt-openssl-rsa") (wrap.pl (list "/bin/dkimproxy.in"
"/lib/perl5/site_perl") "/bin/dkimproxy.out")
,(string-append (assoc-ref inputs "perl-net-dns") (list "perl-crypt-openssl-rsa"
"/lib/perl5/site_perl") "perl-io-socket-inet6"
,(string-append (assoc-ref inputs "perl-net-server") "perl-mailtools"
"/lib/perl5/site_perl"))))) "perl-mail-authenticationresults"
'("dkimproxy.in" "dkimproxy.out"))) "perl-mail-dkim"
#t))))) "perl-net-dns"
"perl-net-server"
"perl-socket6"))
#t))))))
(inputs (inputs
`(("perl" ,perl) `(("perl" ,perl)
("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa) ("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)