From 1c0e08f0a6f93941b4850d4b6a84ab9792e1deab Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Sat, 17 Nov 2012 02:33:55 -0500
Subject: [PATCH] do security-guard check in ssl-load...

---
 collects/openssl/mzssl.rkt | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/collects/openssl/mzssl.rkt b/collects/openssl/mzssl.rkt
index cb854c9e68..4b538bea73 100644
--- a/collects/openssl/mzssl.rkt
+++ b/collects/openssl/mzssl.rkt
@@ -18,6 +18,7 @@
   (require ffi/unsafe
            ffi/unsafe/define
            ffi/unsafe/atomic
+           ffi/file
            racket/port
            racket/tcp
            racket/string
@@ -425,15 +426,17 @@
 	(raise-argument-error 'ssl-load-certificate-chain!
                               "path-string?"
                               pathname))
-      (let ([path (path->bytes
-		   (path->complete-path (cleanse-path pathname)
-					(current-directory)))])
-        (atomically ;; for to connect ERR_get_error to `load-it'
-         (let ([n (load-it ctx path)])
-           (unless (= n 1)
-             (error who "load failed from: ~e ~a"
-                    pathname
-                    (get-error-message (ERR_get_error)))))))))
+      (let ([path 
+             (path->complete-path (cleanse-path pathname)
+                                  (current-directory))])
+        (security-guard-check-file who path '(read))
+        (let ([path (path->bytes path)])
+          (atomically ;; for to connect ERR_get_error to `load-it'
+           (let ([n (load-it ctx path)])
+             (unless (= n 1)
+               (error who "load failed from: ~e ~a"
+                      pathname
+                      (get-error-message (ERR_get_error))))))))))
 
   (define (ssl-load-certificate-chain! ssl-context-or-listener pathname)
     (ssl-load-... 'ssl-load-certificate-chain!