suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix for ssl-set-verify-hostname!

Browse Source
This commit is contained in:
Ryan Culpepper 2012-11-17 16:46:10 -05:00
parent c5f8aa41ee
commit ba1f4a6b22
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/openssl/mzssl.rkt
View File

@ -1087,7 +1087,7 @@
(unless hostname (unless hostname
(error/ssl who "~a failed (hostname not provided for verification)" (error/ssl who "~a failed (hostname not provided for verification)"
(if connect? "connect" "accept"))) (if connect? "connect" "accept")))
(unless (hostname-in-cert? (SSL_get_peer_certificate ssl)) (unless (hostname-in-cert? hostname (SSL_get_peer_certificate ssl))
(error/ssl who "~a failed (certificate not valid for hostname)" (error/ssl who "~a failed (certificate not valid for hostname)"
(if connect? "connect" "accept")))) (if connect? "connect" "accept"))))
;; Connection complete; make ports ;; Connection complete; make ports