Add SSL_get_client_certificate_types.

openssl/ssl/ssl_cert.c

 /*! \file ssl/ssl_cert.c */
 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  * All rights reserved.
  *
  * This package is an SSL implementation written
  * by Eric Young (eay@cryptsoft.com).
  * The implementation was written so as to conform with Netscapes SSL.
  * 
  * This library is free for commercial and non-commercial use as long as
  * the following conditions are aheared to.  The following conditions
@@ skipping 637 matching lines @@
 int SSL_add_client_CA(SSL *ssl,X509 *x)
         {
         return(add_client_CA(&(ssl->client_CA),x));
         }
 
 int SSL_CTX_add_client_CA(SSL_CTX *ctx,X509 *x)
         {
         return(add_client_CA(&(ctx->client_CA),x));
         }
 
+void SSL_get_client_certificate_types(const SSL *s, const unsigned char **ctype,
+        size_t *ctype_num)
+        {
+        if (s->s3 == NULL)
+                {
+                *ctype = NULL;
+                *ctype_num = 0;
+                return;
+                }
+
+        /* This always returns nothing for the server. */
+        *ctype = s->s3->tmp.ctype;
+        *ctype_num = s->s3->tmp.ctype_num;
+        }
+
 static int xname_cmp(const X509_NAME * const *a, const X509_NAME * const *b)
         {
         return(X509_NAME_cmp(*a,*b));
         }
 
 #ifndef OPENSSL_NO_STDIO
 /*!
  * Load CA certs from a file into a ::STACK. Note that it is somewhat misnamed;
  * it doesn't really have anything to do with clients (except that a common use
  * for a stack of CAs is to send it to the client). Actually, it doesn't have
@@ skipping 176 matching lines @@
                 }
 
         ret = 1;
 
 err:
         if (d) OPENSSL_DIR_end(&d);
         CRYPTO_w_unlock(CRYPTO_LOCK_READDIR);
         return ret;
         }