[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/04: http-client: Add #:verify-certificate? to 'http-fetch'.

From: Ludovic Courtès
Subject: 03/04: http-client: Add #:verify-certificate? to 'http-fetch'.
Date: Sat, 12 Nov 2016 12:05:32 +0000 (UTC)

civodul pushed a commit to branch master
in repository guix.

commit 17cff9c66214be38de8ece0ce98f707823e25bf2
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 12 12:53:45 2016 +0100

    http-client: Add #:verify-certificate? to 'http-fetch'.
    * guix/http-client.scm (http-fetch): Add #:verify-certificate? parameter
    and pass it to 'open-connection-for-uri'.
 guix/http-client.scm |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/http-client.scm b/guix/http-client.scm
index a8324be..cc3acc9 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -223,7 +223,7 @@ or if EOF is reached."
                 'shutdown (const #f))
 (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
-                     keep-alive?)
+                     keep-alive? (verify-certificate? #t))
   "Return an input port containing the data at URI, and the expected number of
 bytes available or #f.  If TEXT? is true, the data at URI is considered to be
 textual.  Follow any HTTP redirection.  When BUFFERED? is #f, return an
@@ -231,11 +231,15 @@ unbuffered port, suitable for use in `filtered-port'.  
 true, send a 'Connection: keep-alive' HTTP header, in which case PORT may be
 reused for future HTTP requests.
+When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates.
 Raise an '&http-get-error' condition if downloading fails."
   (let loop ((uri (if (string? uri)
                       (string->uri uri)
-    (let ((port (or port (open-connection-for-uri uri)))
+    (let ((port (or port (open-connection-for-uri uri
+                                                  #:verify-certificate?
+                                                  verify-certificate?)))
           (auth-header (match (uri-userinfo uri)
                          ((? string? str)
                           (list (cons 'Authorization

reply via email to

[Prev in Thread] Current Thread [Next in Thread]