Minor tweaks and improvements to the tunala demo.
[openssl.git] / demos / tunala / cb.c
1 #include "tunala.h"
2
3 #ifndef NO_OPENSSL
4
5 /* For callbacks generating output, here are their file-descriptors. */
6 static FILE *fp_cb_ssl_info = NULL;
7
8 /* This function is largely borrowed from the one used in OpenSSL's "s_client"
9  * and "s_server" utilities. */
10 void cb_ssl_info(SSL *s, int where, int ret)
11 {
12         char *str1, *str2;
13         int w;
14
15         if(!fp_cb_ssl_info)
16                 return;
17
18         w = where & ~SSL_ST_MASK;
19         str1 = (w & SSL_ST_CONNECT ? "SSL_connect" : (w & SSL_ST_ACCEPT ?
20                                 "SSL_accept" : "undefined")),
21         str2 = SSL_state_string_long(s);
22
23         if (where & SSL_CB_LOOP)
24                 fprintf(stderr, "%s:%s\n", str1, str2);
25         else if (where & SSL_CB_EXIT) {
26                 if (ret == 0)
27                         fprintf(stderr, "%s:failed in %s\n", str1, str2);
28                 else if (ret < 0)
29                         fprintf(stderr, "%s:error in %s\n", str1, str2);
30         }
31 }
32
33 void cb_ssl_info_set_output(FILE *fp)
34 {
35         fp_cb_ssl_info = fp;
36 }
37
38 #endif /* !defined(NO_OPENSSL) */
39