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

rekahsoft-gnu: Update imapsync to 2.229

Browse Source 
* rekahsoft-gnu/packages/perl.scm: Additionally, wrap the imapsync program so
inputs do not need to be propagated.
This commit is contained in:
Collin J. Doering 2024-10-22 18:31:59 -04:00
parent 9043987a95
commit e4a205daa8
Signed by: rekahsoft
GPG Key ID: F77E319397CDA716
1 changed files with 68 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
rekahsoft-gnu/packages/perl.scm
View File

@ -438,7 +438,7 @@
(define-public imapsync (define-public imapsync
(package (package
(name "imapsync") (name "imapsync")
(version "2.140") (version "2.229")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -447,11 +447,10 @@
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1k4rf582c3434yxj9brsjz0awakd84xwikghyq0h54darqwfm23j")))) "01z2x2j317g51p2ffsf8d3yy7lfxd0j0g4gl22nlcqvpwly5wlwy"))))
(build-system gnu-build-system) (build-system perl-build-system)
(native-inputs (list inetutils perl)) (native-inputs (list inetutils perl))
;; TODO: these should be normal inputs, but currently the executable produced is not wrapped, so it fails to load the required libs (inputs (list perl-cgi
(propagated-inputs (list perl-cgi
perl-app-cpanminus perl-app-cpanminus
perl-crypt-openssl-rsa perl-crypt-openssl-rsa
perl-data-uniqid perl-data-uniqid
@ -474,6 +473,7 @@
perl-ntlm perl-ntlm
perl-package-stash perl-package-stash
perl-par-packer perl-par-packer
perl-proc-processtable
perl-parse-recdescent perl-parse-recdescent
perl-readonly perl-readonly
perl-regexp-common perl-regexp-common
@ -489,20 +489,33 @@
perl-uri perl-uri
perl-try-tiny)) perl-try-tiny))
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases
(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (invoke "make")))
(bin (string-append out "/bin")))
(invoke "make") #t)))
(delete 'check) (delete 'check)
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out"))
(mkdir-p "./W") ;make install fails unless a W directory exists (bin (string-append out "/bin"))
;; Get all input names that start with "perl-"
(perl-inputs (filter (lambda (input)
(string-prefix? "perl-"
(car input)))
inputs)))
;; Create required directory for make install
(mkdir-p "W")
(invoke "make" "install" "PREFIX=/" (invoke "make" "install" "PREFIX=/"
(string-append "DESTDIR=" out)) #t)))))) (string-append "DESTDIR=" out))
;; Create and wrap the new script
(wrap-program (string-append bin "/imapsync")
`("PERL5LIB" ":" prefix
,(map (lambda (input)
(string-append (cdr input)
"/lib/perl5/site_perl"))
perl-inputs)))))))))
(synopsis "Imapsync is an IMAP transfers tool") (synopsis "Imapsync is an IMAP transfers tool")
(description (description
"Imapsync is an IMAP transfers tool. The purpose of imapsync is to "Imapsync is an IMAP transfers tool. The purpose of imapsync is to