nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
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
(add-after 'install 'make-wrapper
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each
(lambda (prog)
(wrap-program (string-append out "/bin/" prog)
`("PERL5LIB" ":" prefix
(,(string-append (assoc-ref inputs "perl-mail-dkim")
"/lib/perl5/site_perl")
,(string-append (assoc-ref inputs "perl-mailtools")
"/lib/perl5/site_perl")
,(string-append
(assoc-ref inputs "perl-mail-authenticationresults")
"/lib/perl5/site_perl")
,(string-append (assoc-ref inputs "perl-crypt-openssl-rsa")
"/lib/perl5/site_perl")
,(string-append (assoc-ref inputs "perl-net-dns")
"/lib/perl5/site_perl")
,(string-append (assoc-ref inputs "perl-net-server")
"/lib/perl5/site_perl")))))
'("dkimproxy.in" "dkimproxy.out")))
#t)))))
(let* ((out (assoc-ref outputs "out"))
(wrap.pl (lambda (scripts keys)
(for-each
(lambda (script)
(wrap-program (string-append out script)
`("PERL5LIB" ":" prefix
,(map (λ (input)
(string-append
(assoc-ref inputs input)
"/lib/perl5/site_perl"))
keys))))
scripts))))
(wrap.pl (list "/bin/dkimproxy.in"
"/bin/dkimproxy.out")
(list "perl-crypt-openssl-rsa"
"perl-io-socket-inet6"
"perl-mailtools"
"perl-mail-authenticationresults"
"perl-mail-dkim"
"perl-net-dns"
"perl-net-server"
"perl-socket6"))
#t))))))
(inputs
`(("perl" ,perl)
("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)