]>
Commit | Line | Data |
---|---|---|
d02b48c6 | 1 | /* ssl/bio_ssl.c */ |
58964a49 | 2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
d02b48c6 RE |
3 | * All rights reserved. |
4 | * | |
5 | * This package is an SSL implementation written | |
6 | * by Eric Young (eay@cryptsoft.com). | |
7 | * The implementation was written so as to conform with Netscapes SSL. | |
8 | * | |
9 | * This library is free for commercial and non-commercial use as long as | |
10 | * the following conditions are aheared to. The following conditions | |
11 | * apply to all code found in this distribution, be it the RC4, RSA, | |
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | |
13 | * included with this distribution is covered by the same copyright terms | |
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | |
15 | * | |
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | |
17 | * the code are not to be removed. | |
18 | * If this package is used in a product, Eric Young should be given attribution | |
19 | * as the author of the parts of the library used. | |
20 | * This can be in the form of a textual message at program startup or | |
21 | * in documentation (online or textual) provided with the package. | |
22 | * | |
23 | * Redistribution and use in source and binary forms, with or without | |
24 | * modification, are permitted provided that the following conditions | |
25 | * are met: | |
26 | * 1. Redistributions of source code must retain the copyright | |
27 | * notice, this list of conditions and the following disclaimer. | |
28 | * 2. Redistributions in binary form must reproduce the above copyright | |
29 | * notice, this list of conditions and the following disclaimer in the | |
30 | * documentation and/or other materials provided with the distribution. | |
31 | * 3. All advertising materials mentioning features or use of this software | |
32 | * must display the following acknowledgement: | |
33 | * "This product includes cryptographic software written by | |
34 | * Eric Young (eay@cryptsoft.com)" | |
35 | * The word 'cryptographic' can be left out if the rouines from the library | |
36 | * being used are not cryptographic related :-). | |
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | |
38 | * the apps directory (application code) you must include an acknowledgement: | |
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | |
40 | * | |
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | |
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | |
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
51 | * SUCH DAMAGE. | |
52 | * | |
53 | * The licence and distribution terms for any publically available version or | |
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | |
55 | * copied and put under another distribution licence | |
56 | * [including the GNU Public Licence.] | |
57 | */ | |
58 | ||
59 | #include <stdio.h> | |
58964a49 | 60 | #include <stdlib.h> |
d02b48c6 RE |
61 | #include <string.h> |
62 | #include <errno.h> | |
ec577822 BM |
63 | #include <openssl/crypto.h> |
64 | #include <openssl/bio.h> | |
65 | #include <openssl/err.h> | |
66 | #include <openssl/ssl.h> | |
d02b48c6 | 67 | |
0e1c0612 UM |
68 | static int ssl_write(BIO *h, const char *buf, int num); |
69 | static int ssl_read(BIO *h, char *buf, int size); | |
70 | static int ssl_puts(BIO *h, const char *str); | |
71 | static long ssl_ctrl(BIO *h, int cmd, long arg1, void *arg2); | |
d02b48c6 RE |
72 | static int ssl_new(BIO *h); |
73 | static int ssl_free(BIO *data); | |
13083215 | 74 | static long ssl_callback_ctrl(BIO *h, int cmd, bio_info_cb *fp); |
58964a49 RE |
75 | typedef struct bio_ssl_st |
76 | { | |
77 | SSL *ssl; /* The ssl handle :-) */ | |
78 | /* re-negotiate every time the total number of bytes is this size */ | |
79 | int num_renegotiates; | |
80 | unsigned long renegotiate_count; | |
81 | unsigned long byte_count; | |
82 | unsigned long renegotiate_timeout; | |
83 | unsigned long last_time; | |
84 | } BIO_SSL; | |
85 | ||
d02b48c6 RE |
86 | static BIO_METHOD methods_sslp= |
87 | { | |
88 | BIO_TYPE_SSL,"ssl", | |
89 | ssl_write, | |
90 | ssl_read, | |
91 | ssl_puts, | |
92 | NULL, /* ssl_gets, */ | |
93 | ssl_ctrl, | |
94 | ssl_new, | |
95 | ssl_free, | |
d3442bc7 | 96 | ssl_callback_ctrl, |
a9188d4e RL |
97 | }; |
98 | ||
6b691a5c | 99 | BIO_METHOD *BIO_f_ssl(void) |
d02b48c6 RE |
100 | { |
101 | return(&methods_sslp); | |
102 | } | |
103 | ||
6b691a5c | 104 | static int ssl_new(BIO *bi) |
d02b48c6 | 105 | { |
58964a49 RE |
106 | BIO_SSL *bs; |
107 | ||
26a3a48d | 108 | bs=(BIO_SSL *)OPENSSL_malloc(sizeof(BIO_SSL)); |
58964a49 RE |
109 | if (bs == NULL) |
110 | { | |
111 | BIOerr(BIO_F_SSL_NEW,ERR_R_MALLOC_FAILURE); | |
112 | return(0); | |
113 | } | |
114 | memset(bs,0,sizeof(BIO_SSL)); | |
d02b48c6 | 115 | bi->init=0; |
58964a49 | 116 | bi->ptr=(char *)bs; |
d02b48c6 RE |
117 | bi->flags=0; |
118 | return(1); | |
119 | } | |
120 | ||
6b691a5c | 121 | static int ssl_free(BIO *a) |
d02b48c6 | 122 | { |
58964a49 RE |
123 | BIO_SSL *bs; |
124 | ||
d02b48c6 | 125 | if (a == NULL) return(0); |
58964a49 RE |
126 | bs=(BIO_SSL *)a->ptr; |
127 | if (bs->ssl != NULL) SSL_shutdown(bs->ssl); | |
d02b48c6 RE |
128 | if (a->shutdown) |
129 | { | |
58964a49 RE |
130 | if (a->init && (bs->ssl != NULL)) |
131 | SSL_free(bs->ssl); | |
d02b48c6 RE |
132 | a->init=0; |
133 | a->flags=0; | |
d02b48c6 | 134 | } |
58964a49 | 135 | if (a->ptr != NULL) |
26a3a48d | 136 | OPENSSL_free(a->ptr); |
d02b48c6 RE |
137 | return(1); |
138 | } | |
139 | ||
6b691a5c | 140 | static int ssl_read(BIO *b, char *out, int outl) |
d02b48c6 RE |
141 | { |
142 | int ret=1; | |
58964a49 | 143 | BIO_SSL *sb; |
d02b48c6 RE |
144 | SSL *ssl; |
145 | int retry_reason=0; | |
58964a49 | 146 | int r=0; |
d02b48c6 RE |
147 | |
148 | if (out == NULL) return(0); | |
58964a49 RE |
149 | sb=(BIO_SSL *)b->ptr; |
150 | ssl=sb->ssl; | |
d02b48c6 | 151 | |
58964a49 | 152 | BIO_clear_retry_flags(b); |
d02b48c6 | 153 | |
58964a49 | 154 | #if 0 |
d02b48c6 RE |
155 | if (!SSL_is_init_finished(ssl)) |
156 | { | |
58964a49 | 157 | /* ret=SSL_do_handshake(ssl); */ |
d02b48c6 RE |
158 | if (ret > 0) |
159 | { | |
58964a49 | 160 | |
d02b48c6 RE |
161 | outflags=(BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY); |
162 | ret= -1; | |
163 | goto end; | |
164 | } | |
d02b48c6 | 165 | } |
58964a49 RE |
166 | #endif |
167 | /* if (ret > 0) */ | |
168 | ret=SSL_read(ssl,out,outl); | |
d02b48c6 RE |
169 | |
170 | switch (SSL_get_error(ssl,ret)) | |
171 | { | |
172 | case SSL_ERROR_NONE: | |
173 | if (ret <= 0) break; | |
58964a49 RE |
174 | if (sb->renegotiate_count > 0) |
175 | { | |
176 | sb->byte_count+=ret; | |
177 | if (sb->byte_count > sb->renegotiate_count) | |
178 | { | |
179 | sb->byte_count=0; | |
180 | sb->num_renegotiates++; | |
181 | SSL_renegotiate(ssl); | |
182 | r=1; | |
183 | } | |
184 | } | |
185 | if ((sb->renegotiate_timeout > 0) && (!r)) | |
186 | { | |
187 | unsigned long tm; | |
188 | ||
189 | tm=(unsigned long)time(NULL); | |
190 | if (tm > sb->last_time+sb->renegotiate_timeout) | |
191 | { | |
192 | sb->last_time=tm; | |
193 | sb->num_renegotiates++; | |
194 | SSL_renegotiate(ssl); | |
195 | } | |
196 | } | |
197 | ||
d02b48c6 RE |
198 | break; |
199 | case SSL_ERROR_WANT_READ: | |
58964a49 | 200 | BIO_set_retry_read(b); |
d02b48c6 RE |
201 | break; |
202 | case SSL_ERROR_WANT_WRITE: | |
58964a49 | 203 | BIO_set_retry_write(b); |
d02b48c6 RE |
204 | break; |
205 | case SSL_ERROR_WANT_X509_LOOKUP: | |
58964a49 | 206 | BIO_set_retry_special(b); |
d02b48c6 RE |
207 | retry_reason=BIO_RR_SSL_X509_LOOKUP; |
208 | break; | |
924046ce DSH |
209 | case SSL_ERROR_WANT_ACCEPT: |
210 | BIO_set_retry_special(b); | |
211 | retry_reason=BIO_RR_ACCEPT; | |
212 | break; | |
d02b48c6 | 213 | case SSL_ERROR_WANT_CONNECT: |
58964a49 | 214 | BIO_set_retry_special(b); |
d02b48c6 RE |
215 | retry_reason=BIO_RR_CONNECT; |
216 | break; | |
217 | case SSL_ERROR_SYSCALL: | |
218 | case SSL_ERROR_SSL: | |
219 | case SSL_ERROR_ZERO_RETURN: | |
220 | default: | |
221 | break; | |
222 | } | |
223 | ||
224 | b->retry_reason=retry_reason; | |
d02b48c6 RE |
225 | return(ret); |
226 | } | |
227 | ||
0e1c0612 | 228 | static int ssl_write(BIO *b, const char *out, int outl) |
d02b48c6 | 229 | { |
58964a49 RE |
230 | int ret,r=0; |
231 | int retry_reason=0; | |
d02b48c6 | 232 | SSL *ssl; |
58964a49 | 233 | BIO_SSL *bs; |
d02b48c6 RE |
234 | |
235 | if (out == NULL) return(0); | |
58964a49 RE |
236 | bs=(BIO_SSL *)b->ptr; |
237 | ssl=bs->ssl; | |
d02b48c6 | 238 | |
58964a49 | 239 | BIO_clear_retry_flags(b); |
d02b48c6 | 240 | |
58964a49 RE |
241 | /* ret=SSL_do_handshake(ssl); |
242 | if (ret > 0) */ | |
243 | ret=SSL_write(ssl,out,outl); | |
d02b48c6 RE |
244 | |
245 | switch (SSL_get_error(ssl,ret)) | |
246 | { | |
247 | case SSL_ERROR_NONE: | |
248 | if (ret <= 0) break; | |
58964a49 RE |
249 | if (bs->renegotiate_count > 0) |
250 | { | |
251 | bs->byte_count+=ret; | |
252 | if (bs->byte_count > bs->renegotiate_count) | |
253 | { | |
254 | bs->byte_count=0; | |
255 | bs->num_renegotiates++; | |
256 | SSL_renegotiate(ssl); | |
257 | r=1; | |
258 | } | |
259 | } | |
260 | if ((bs->renegotiate_timeout > 0) && (!r)) | |
261 | { | |
262 | unsigned long tm; | |
263 | ||
264 | tm=(unsigned long)time(NULL); | |
265 | if (tm > bs->last_time+bs->renegotiate_timeout) | |
266 | { | |
267 | bs->last_time=tm; | |
268 | bs->num_renegotiates++; | |
269 | SSL_renegotiate(ssl); | |
270 | } | |
271 | } | |
d02b48c6 RE |
272 | break; |
273 | case SSL_ERROR_WANT_WRITE: | |
58964a49 | 274 | BIO_set_retry_write(b); |
d02b48c6 RE |
275 | break; |
276 | case SSL_ERROR_WANT_READ: | |
58964a49 | 277 | BIO_set_retry_read(b); |
d02b48c6 RE |
278 | break; |
279 | case SSL_ERROR_WANT_X509_LOOKUP: | |
58964a49 | 280 | BIO_set_retry_special(b); |
d02b48c6 RE |
281 | retry_reason=BIO_RR_SSL_X509_LOOKUP; |
282 | break; | |
283 | case SSL_ERROR_WANT_CONNECT: | |
58964a49 | 284 | BIO_set_retry_special(b); |
d02b48c6 RE |
285 | retry_reason=BIO_RR_CONNECT; |
286 | case SSL_ERROR_SYSCALL: | |
287 | case SSL_ERROR_SSL: | |
288 | default: | |
289 | break; | |
290 | } | |
291 | ||
292 | b->retry_reason=retry_reason; | |
d02b48c6 RE |
293 | return(ret); |
294 | } | |
295 | ||
0e1c0612 | 296 | static long ssl_ctrl(BIO *b, int cmd, long num, void *ptr) |
d02b48c6 RE |
297 | { |
298 | SSL **sslp,*ssl; | |
58964a49 | 299 | BIO_SSL *bs; |
d02b48c6 RE |
300 | BIO *dbio,*bio; |
301 | long ret=1; | |
302 | ||
58964a49 RE |
303 | bs=(BIO_SSL *)b->ptr; |
304 | ssl=bs->ssl; | |
305 | if ((ssl == NULL) && (cmd != BIO_C_SET_SSL)) | |
306 | return(0); | |
d02b48c6 RE |
307 | switch (cmd) |
308 | { | |
309 | case BIO_CTRL_RESET: | |
310 | SSL_shutdown(ssl); | |
311 | ||
312 | if (ssl->handshake_func == ssl->method->ssl_connect) | |
313 | SSL_set_connect_state(ssl); | |
314 | else if (ssl->handshake_func == ssl->method->ssl_accept) | |
315 | SSL_set_accept_state(ssl); | |
316 | ||
317 | SSL_clear(ssl); | |
318 | ||
319 | if (b->next_bio != NULL) | |
320 | ret=BIO_ctrl(b->next_bio,cmd,num,ptr); | |
321 | else if (ssl->rbio != NULL) | |
322 | ret=BIO_ctrl(ssl->rbio,cmd,num,ptr); | |
323 | else | |
324 | ret=1; | |
325 | break; | |
d02b48c6 RE |
326 | case BIO_CTRL_INFO: |
327 | ret=0; | |
328 | break; | |
329 | case BIO_C_SSL_MODE: | |
330 | if (num) /* client mode */ | |
331 | SSL_set_connect_state(ssl); | |
332 | else | |
333 | SSL_set_accept_state(ssl); | |
334 | break; | |
58964a49 RE |
335 | case BIO_C_SET_SSL_RENEGOTIATE_TIMEOUT: |
336 | ret=bs->renegotiate_timeout; | |
337 | if (num < 60) num=5; | |
338 | bs->renegotiate_timeout=(unsigned long)num; | |
339 | bs->last_time=(unsigned long)time(NULL); | |
340 | break; | |
341 | case BIO_C_SET_SSL_RENEGOTIATE_BYTES: | |
342 | ret=bs->renegotiate_count; | |
343 | if ((long)num >=512) | |
344 | bs->renegotiate_count=(unsigned long)num; | |
345 | break; | |
346 | case BIO_C_GET_SSL_NUM_RENEGOTIATES: | |
347 | ret=bs->num_renegotiates; | |
348 | break; | |
d02b48c6 | 349 | case BIO_C_SET_SSL: |
58964a49 | 350 | if (ssl != NULL) |
c4b2eb24 | 351 | { |
58964a49 | 352 | ssl_free(b); |
c4b2eb24 DSH |
353 | if (!ssl_new(b)) |
354 | return 0; | |
355 | } | |
d02b48c6 | 356 | b->shutdown=(int)num; |
d02b48c6 | 357 | ssl=(SSL *)ptr; |
58964a49 | 358 | ((BIO_SSL *)b->ptr)->ssl=ssl; |
d02b48c6 RE |
359 | bio=SSL_get_rbio(ssl); |
360 | if (bio != NULL) | |
361 | { | |
362 | if (b->next_bio != NULL) | |
363 | BIO_push(bio,b->next_bio); | |
364 | b->next_bio=bio; | |
58964a49 | 365 | CRYPTO_add(&bio->references,1,CRYPTO_LOCK_BIO); |
d02b48c6 RE |
366 | } |
367 | b->init=1; | |
368 | break; | |
369 | case BIO_C_GET_SSL: | |
370 | if (ptr != NULL) | |
371 | { | |
372 | sslp=(SSL **)ptr; | |
373 | *sslp=ssl; | |
374 | } | |
58964a49 RE |
375 | else |
376 | ret=0; | |
d02b48c6 RE |
377 | break; |
378 | case BIO_CTRL_GET_CLOSE: | |
379 | ret=b->shutdown; | |
380 | break; | |
381 | case BIO_CTRL_SET_CLOSE: | |
382 | b->shutdown=(int)num; | |
383 | break; | |
384 | case BIO_CTRL_WPENDING: | |
385 | ret=BIO_ctrl(ssl->wbio,cmd,num,ptr); | |
386 | break; | |
387 | case BIO_CTRL_PENDING: | |
388 | ret=SSL_pending(ssl); | |
389 | if (ret == 0) | |
390 | ret=BIO_pending(ssl->rbio); | |
391 | break; | |
392 | case BIO_CTRL_FLUSH: | |
393 | BIO_clear_retry_flags(b); | |
394 | ret=BIO_ctrl(ssl->wbio,cmd,num,ptr); | |
395 | BIO_copy_next_retry(b); | |
396 | break; | |
397 | case BIO_CTRL_PUSH: | |
58964a49 | 398 | if ((b->next_bio != NULL) && (b->next_bio != ssl->rbio)) |
d02b48c6 RE |
399 | { |
400 | SSL_set_bio(ssl,b->next_bio,b->next_bio); | |
58964a49 | 401 | CRYPTO_add(&b->next_bio->references,1,CRYPTO_LOCK_BIO); |
d02b48c6 RE |
402 | } |
403 | break; | |
404 | case BIO_CTRL_POP: | |
405 | /* ugly bit of a hack */ | |
406 | if (ssl->rbio != ssl->wbio) /* we are in trouble :-( */ | |
407 | { | |
408 | BIO_free_all(ssl->wbio); | |
409 | } | |
5d780bab RL |
410 | if (b->next_bio != NULL) |
411 | { | |
412 | CRYPTO_add(&b->next_bio->references,1,CRYPTO_LOCK_BIO); | |
413 | } | |
d02b48c6 RE |
414 | ssl->wbio=NULL; |
415 | ssl->rbio=NULL; | |
416 | break; | |
417 | case BIO_C_DO_STATE_MACHINE: | |
418 | BIO_clear_retry_flags(b); | |
419 | ||
420 | b->retry_reason=0; | |
421 | ret=(int)SSL_do_handshake(ssl); | |
422 | ||
423 | switch (SSL_get_error(ssl,(int)ret)) | |
424 | { | |
425 | case SSL_ERROR_WANT_READ: | |
426 | BIO_set_flags(b, | |
427 | BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY); | |
428 | break; | |
429 | case SSL_ERROR_WANT_WRITE: | |
430 | BIO_set_flags(b, | |
431 | BIO_FLAGS_WRITE|BIO_FLAGS_SHOULD_RETRY); | |
432 | break; | |
433 | case SSL_ERROR_WANT_CONNECT: | |
434 | BIO_set_flags(b, | |
435 | BIO_FLAGS_IO_SPECIAL|BIO_FLAGS_SHOULD_RETRY); | |
436 | b->retry_reason=b->next_bio->retry_reason; | |
437 | break; | |
438 | default: | |
439 | break; | |
440 | } | |
441 | break; | |
442 | case BIO_CTRL_DUP: | |
443 | dbio=(BIO *)ptr; | |
58964a49 RE |
444 | if (((BIO_SSL *)dbio->ptr)->ssl != NULL) |
445 | SSL_free(((BIO_SSL *)dbio->ptr)->ssl); | |
446 | ((BIO_SSL *)dbio->ptr)->ssl=SSL_dup(ssl); | |
447 | ((BIO_SSL *)dbio->ptr)->renegotiate_count= | |
448 | ((BIO_SSL *)b->ptr)->renegotiate_count; | |
449 | ((BIO_SSL *)dbio->ptr)->byte_count= | |
450 | ((BIO_SSL *)b->ptr)->byte_count; | |
451 | ((BIO_SSL *)dbio->ptr)->renegotiate_timeout= | |
452 | ((BIO_SSL *)b->ptr)->renegotiate_timeout; | |
453 | ((BIO_SSL *)dbio->ptr)->last_time= | |
454 | ((BIO_SSL *)b->ptr)->last_time; | |
455 | ret=(((BIO_SSL *)dbio->ptr)->ssl != NULL); | |
456 | break; | |
457 | case BIO_C_GET_FD: | |
458 | ret=BIO_ctrl(ssl->rbio,cmd,num,ptr); | |
459 | break; | |
460 | case BIO_CTRL_SET_CALLBACK: | |
a9188d4e | 461 | { |
d3442bc7 | 462 | #if 0 /* FIXME: Should this be used? -- Richard Levitte */ |
aa4ce731 | 463 | SSLerr(SSL_F_SSL_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED); |
d3442bc7 RL |
464 | ret = -1; |
465 | #else | |
466 | ret=0; | |
467 | #endif | |
a9188d4e | 468 | } |
58964a49 RE |
469 | break; |
470 | case BIO_CTRL_GET_CALLBACK: | |
471 | { | |
384dba6e | 472 | void (**fptr)(const SSL *xssl,int type,int val); |
58964a49 | 473 | |
384dba6e | 474 | fptr=(void (**)(const SSL *xssl,int type,int val))ptr; |
58964a49 RE |
475 | *fptr=SSL_get_info_callback(ssl); |
476 | } | |
d02b48c6 RE |
477 | break; |
478 | default: | |
58964a49 | 479 | ret=BIO_ctrl(ssl->rbio,cmd,num,ptr); |
d02b48c6 RE |
480 | break; |
481 | } | |
482 | return(ret); | |
483 | } | |
484 | ||
13083215 | 485 | static long ssl_callback_ctrl(BIO *b, int cmd, bio_info_cb *fp) |
d3442bc7 RL |
486 | { |
487 | SSL *ssl; | |
488 | BIO_SSL *bs; | |
489 | long ret=1; | |
490 | ||
491 | bs=(BIO_SSL *)b->ptr; | |
492 | ssl=bs->ssl; | |
493 | switch (cmd) | |
494 | { | |
495 | case BIO_CTRL_SET_CALLBACK: | |
496 | { | |
45d87a1f BL |
497 | /* FIXME: setting this via a completely different prototype |
498 | seems like a crap idea */ | |
499 | SSL_set_info_callback(ssl,(void (*)(const SSL *,int,int))fp); | |
d3442bc7 RL |
500 | } |
501 | break; | |
502 | default: | |
503 | ret=BIO_callback_ctrl(ssl->rbio,cmd,fp); | |
504 | break; | |
505 | } | |
506 | return(ret); | |
507 | } | |
508 | ||
0e1c0612 | 509 | static int ssl_puts(BIO *bp, const char *str) |
d02b48c6 RE |
510 | { |
511 | int n,ret; | |
512 | ||
513 | n=strlen(str); | |
514 | ret=BIO_write(bp,str,n); | |
515 | return(ret); | |
516 | } | |
517 | ||
6b691a5c | 518 | BIO *BIO_new_buffer_ssl_connect(SSL_CTX *ctx) |
58964a49 | 519 | { |
85d686e7 | 520 | #ifndef OPENSSL_NO_SOCK |
58964a49 RE |
521 | BIO *ret=NULL,*buf=NULL,*ssl=NULL; |
522 | ||
523 | if ((buf=BIO_new(BIO_f_buffer())) == NULL) | |
524 | return(NULL); | |
525 | if ((ssl=BIO_new_ssl_connect(ctx)) == NULL) | |
526 | goto err; | |
527 | if ((ret=BIO_push(buf,ssl)) == NULL) | |
528 | goto err; | |
529 | return(ret); | |
530 | err: | |
531 | if (buf != NULL) BIO_free(buf); | |
532 | if (ssl != NULL) BIO_free(ssl); | |
85d686e7 | 533 | #endif |
58964a49 RE |
534 | return(NULL); |
535 | } | |
536 | ||
6b691a5c | 537 | BIO *BIO_new_ssl_connect(SSL_CTX *ctx) |
58964a49 RE |
538 | { |
539 | BIO *ret=NULL,*con=NULL,*ssl=NULL; | |
540 | ||
541 | if ((con=BIO_new(BIO_s_connect())) == NULL) | |
542 | return(NULL); | |
543 | if ((ssl=BIO_new_ssl(ctx,1)) == NULL) | |
544 | goto err; | |
545 | if ((ret=BIO_push(ssl,con)) == NULL) | |
546 | goto err; | |
547 | return(ret); | |
548 | err: | |
549 | if (con != NULL) BIO_free(con); | |
550 | if (ret != NULL) BIO_free(ret); | |
551 | return(NULL); | |
552 | } | |
553 | ||
6b691a5c | 554 | BIO *BIO_new_ssl(SSL_CTX *ctx, int client) |
d02b48c6 RE |
555 | { |
556 | BIO *ret; | |
557 | SSL *ssl; | |
558 | ||
559 | if ((ret=BIO_new(BIO_f_ssl())) == NULL) | |
560 | return(NULL); | |
561 | if ((ssl=SSL_new(ctx)) == NULL) | |
562 | { | |
563 | BIO_free(ret); | |
564 | return(NULL); | |
565 | } | |
566 | if (client) | |
567 | SSL_set_connect_state(ssl); | |
568 | else | |
569 | SSL_set_accept_state(ssl); | |
570 | ||
571 | BIO_set_ssl(ret,ssl,BIO_CLOSE); | |
572 | return(ret); | |
573 | } | |
574 | ||
6b691a5c | 575 | int BIO_ssl_copy_session_id(BIO *t, BIO *f) |
d02b48c6 RE |
576 | { |
577 | t=BIO_find_type(t,BIO_TYPE_SSL); | |
578 | f=BIO_find_type(f,BIO_TYPE_SSL); | |
579 | if ((t == NULL) || (f == NULL)) | |
580 | return(0); | |
58964a49 RE |
581 | if ( (((BIO_SSL *)t->ptr)->ssl == NULL) || |
582 | (((BIO_SSL *)f->ptr)->ssl == NULL)) | |
d02b48c6 | 583 | return(0); |
58964a49 | 584 | SSL_copy_session_id(((BIO_SSL *)t->ptr)->ssl,((BIO_SSL *)f->ptr)->ssl); |
d02b48c6 RE |
585 | return(1); |
586 | } | |
587 | ||
6b691a5c | 588 | void BIO_ssl_shutdown(BIO *b) |
d02b48c6 RE |
589 | { |
590 | SSL *s; | |
591 | ||
592 | while (b != NULL) | |
593 | { | |
594 | if (b->method->type == BIO_TYPE_SSL) | |
595 | { | |
58964a49 | 596 | s=((BIO_SSL *)b->ptr)->ssl; |
d02b48c6 RE |
597 | SSL_shutdown(s); |
598 | break; | |
599 | } | |
600 | b=b->next_bio; | |
601 | } | |
602 | } |