Changeset 36534 in project


Ignore:
Timestamp:
09/06/18 22:10:04 (2 weeks ago)
Author:
wasamasa
Message:

use macports’ curl’ ca bundle on macosx (Kooda)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/openssl/trunk/openssl.scm

    r36533 r36534  
    2828   ssl-peer-verified?
    2929   ssl-peer-subject-name ssl-peer-issuer-name
     30   ssl-default-certificate-authorities
    3031   ssl-default-certificate-authority-directory
    3132   ssl-make-i/o-ports
     
    879880;;; wrappers with secure defaults
    880881
     882(define ssl-default-certificate-authorities
     883  (make-parameter
     884   (cond-expand
     885    (macosx "/opt/local/etc/openssl/cert.pem")
     886    (else #f))))
     887
    881888(define ssl-default-certificate-authority-directory
    882889  (make-parameter
     
    887894(define (ssl-make-client-context* #!key (protocol 'tlsv12) (cipher-list "DEFAULT") certificate private-key (private-key-type 'rsa) private-key-asn1? certificate-authorities certificate-authority-directory (verify? #t))
    888895  (unless (or certificate-authorities certificate-authority-directory)
    889     (set! certificate-authority-directory (ssl-default-certificate-authority-directory)))
     896    (set! certificate-authority-directory (ssl-default-certificate-authority-directory))
     897    (set! certificate-authorities (ssl-default-certificate-authorities)))
    890898  (let ((ctx (ssl-make-client-context protocol)))
    891899    (ssl-set-cipher-list! ctx cipher-list)
Note: See TracChangeset for help on using the changeset viewer.