- ;; copy the .pem files into the output
- (for-each
- (lambda (file)
- (copy-file file (string-append certsdir file)))
- ;; FIXME: Some of the file names are UTF8 (?) and cause an
- ;; error message such as
- ;; find-files:
- ;; ./EBG_Elektronik_Sertifika_Hizmet_Sa??lay??c??s??:2.8.76.175.115.66.28.142.116.2.pem:
- ;; No such file or directory
- (find-files "." ".*\\.pem")))
- (with-directory-excursion certsdir
- ;; create symbolic links for and by openssl
- ;; Strangely, the call (system* "c_rehash" certsdir)
- ;; from inside the build dir fails with
- ;; "Usage error; try -help."
- ;; This looks like a bug in openssl-1.0.2, but we can also
- ;; switch into the target directory.
- (system* "c_rehash" "."))))
+ ;; copy selected .pem files into the output
+ (for-each maybe-install-cert
+ (find-files "." ".*\\.pem")))
+
+ (with-directory-excursion certsdir
+ ;; create symbolic links for and by openssl
+ ;; Strangely, the call (system* "c_rehash" certsdir)
+ ;; from inside the build dir fails with
+ ;; "Usage error; try -help."
+ ;; This looks like a bug in openssl-1.0.2, but we can also
+ ;; switch into the target directory.
+ (system* "c_rehash" "."))))
+