Changeset 36534 in project
- Timestamp:
- 09/06/18 22:10:04 (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/openssl/trunk/openssl.scm
r36533 r36534 28 28 ssl-peer-verified? 29 29 ssl-peer-subject-name ssl-peer-issuer-name 30 ssl-default-certificate-authorities 30 31 ssl-default-certificate-authority-directory 31 32 ssl-make-i/o-ports … … 879 880 ;;; wrappers with secure defaults 880 881 882 (define ssl-default-certificate-authorities 883 (make-parameter 884 (cond-expand 885 (macosx "/opt/local/etc/openssl/cert.pem") 886 (else #f)))) 887 881 888 (define ssl-default-certificate-authority-directory 882 889 (make-parameter … … 887 894 (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)) 888 895 (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))) 890 898 (let ((ctx (ssl-make-client-context protocol))) 891 899 (ssl-set-cipher-list! ctx cipher-list)
Note: See TracChangeset
for help on using the changeset viewer.