21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
+
+
+
+
|
*
*/
#include "tlsInt.h"
#include "tclOpts.h"
#include <stdlib.h>
#if TCL_MAJOR_VERSION < 9
typedef int Tcl_Size;
#endif
/*
* External functions
*/
/*
* Forward declarations
*/
|
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
|
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
-
+
|
*-------------------------------------------------------------------
*/
static int
VerifyCallback(int ok, X509_STORE_CTX *ctx)
{
Tcl_Obj *cmdPtr, *result;
char *errStr, *string;
int length;
Tcl_Size length;
SSL *ssl = (SSL*)X509_STORE_CTX_get_ex_data(ctx, SSL_get_ex_data_X509_STORE_CTX_idx());
X509 *cert = X509_STORE_CTX_get_current_cert(ctx);
State *statePtr = (State*)SSL_get_app_data(ssl);
int depth = X509_STORE_CTX_get_error_depth(ctx);
int err = X509_STORE_CTX_get_error(ctx);
dprintf("Verify: %d", ok);
|