Skip to content
Browse files

rfe11153: pass crl-file and crl-check through

From do-http-request and start to make-ssl-client-stream sock and
make-ssl-server-stream socket respectively.

Bump version to 1.3.15.

Update defpatch form (v14).

Tests run:  t-aserve

<release-note>
do-http-request, make-http-client-request, start take two new
arguments: crl-file and crl-check. Refer to the documentation of
make-ssl-{client,server}-stream for more information.
</release-note>

Change-Id: Ib719ae0bf12cc6ac356c7e4c36b3ce268bcf60a8
  • Loading branch information...
1 parent 66f6232 commit 34ddd4373c60ab3b7513218dd1f1491d9220085a Gabor Melis committed with dklayer Jan 24, 2012
Showing with 21 additions and 6 deletions.
  1. +9 −1 client.cl
  2. +7 −3 main.cl
  3. +5 −2 packages.cl
View
10 client.cl
@@ -316,6 +316,8 @@
certificate-password
ca-file
ca-directory
+ crl-file
+ crl-check
verify
max-depth
connection ; existing socket to the server
@@ -352,6 +354,8 @@
:certificate-password certificate-password
:ca-file ca-file
:ca-directory ca-directory
+ :crl-file crl-file
+ :crl-check crl-check
:verify verify
:max-depth max-depth
:connection connection
@@ -672,6 +676,8 @@
certificate-password
ca-file
ca-directory
+ crl-file
+ crl-check
verify
max-depth
connection
@@ -681,7 +687,7 @@
(declare (ignorable timeout certificate key certificate-password ca-file
- ca-directory verify max-depth ssl-method))
+ ca-directory crl-file crl-check verify max-depth ssl-method))
(if* (and connection (not use-socket))
@@ -777,6 +783,8 @@ or \"foo.com:8000\", not ~s" proxy))
:certificate-password certificate-password
:ca-file ca-file
:ca-directory ca-directory
+ :crl-file crl-file
+ :crl-check crl-check
:verify verify
:method (or ssl-method :sslv23)
:max-depth max-depth))
View
10 main.cl
@@ -38,7 +38,7 @@
#+ignore
(check-smp-consistency)
-(defparameter *aserve-version* '(1 3 14))
+(defparameter *aserve-version* '(1 3 15))
(eval-when (eval load)
(require :sock)
@@ -954,6 +954,8 @@ by keyword symbols and not by strings"
verify
ca-file
ca-directory
+ crl-file
+ crl-check
max-depth
os-processes ; to fork and run multiple instances
(external-format nil efp); to set external format
@@ -969,8 +971,8 @@ by keyword symbols and not by strings"
(declare (ignore debug)) ; for now
- (declare (ignorable ssl-key verify ca-file ca-directory max-depth
- ssl-method))
+ (declare (ignorable ssl-key verify ca-file ca-directory crl-file crl-check
+ max-depth ssl-method))
(if* debug-stream
then (setq *aserve-debug-stream*
@@ -1001,6 +1003,8 @@ by keyword symbols and not by strings"
:verify verify
:ca-file ca-file
:ca-directory ca-directory
+ :crl-file crl-file
+ :crl-check crl-check
:method ssl-method
:max-depth max-depth)
#-(version>= 8 0)
View
7 packages.cl
@@ -1,5 +1,5 @@
#+(version= 8 2)
-(sys:defpatch "aserve" 12
+(sys:defpatch "aserve" 13
"v1: version 1.2.67, implement keep-alive in allegroserve client;
v2: 1.2.68, obey keep-alive requests for PUT and POST requests;
v3: 1.2.69, make logging though method specialized on wserver class;
@@ -17,7 +17,10 @@ v8: 1.3.8: fix problem w/response handler using string output streams;
v9: 1.3.9: speed up unchunking-streams;
v10: 1.3.10: fix buffer boundary error in unchunking-streams.
v11: 1.3.11: fix log reporting of content-length when using keep-alive.
-v12: 1.3.12: make aserve compatible with patch inflate.003."
+v12: 1.3.12: make aserve compatible with patch inflate.003.
+v13: 1.3.13: request-query cache includes external-format as a key,
+ send cookies on one line as per rfc6265,
+ add support for ssl CRLs."
:type :system
:post-loadable t)

0 comments on commit 34ddd43

Please sign in to comment.
Something went wrong with that request. Please try again.