Work with -pedantic!
[oweals/openssl.git] / crypto / x509v3 / v3_alt.c
index 0e8211b0075abcf013ffd8975fc08b66a401e049..e1b768fdd2a45b331f23f9f51e7b8452c78b3295 100644 (file)
  */
 
 #include <stdio.h>
-#include <stdlib.h>
-#include <pem.h>
-#include <asn1_mac.h>
-#include <err.h>
-#include <objects.h>
-#include <conf.h>
+#include "cryptlib.h"
+#include "conf.h"
 #include "x509v3.h"
 
+#ifndef NOPROTO
+static STACK_OF(GENERAL_NAME) *v2i_subject_alt(X509V3_EXT_METHOD *method, X509V3_CTX *ctx, STACK *nval);
+static STACK_OF(GENERAL_NAME) *v2i_issuer_alt(X509V3_EXT_METHOD *method, X509V3_CTX *ctx, STACK *nval);
+static int copy_email(X509V3_CTX *ctx, STACK_OF(GENERAL_NAME) *gens);
+static int copy_issuer(X509V3_CTX *ctx, STACK_OF(GENERAL_NAME) *gens);
+#else
+static STACK *v2i_issuer_alt();
+static STACK *v2i_subject_alt();
+static int copy_email();
+static int copy_issuer();
+#endif
+
 X509V3_EXT_METHOD v3_alt[] = {
 { NID_subject_alt_name, 0,
 (X509V3_EXT_NEW)GENERAL_NAMES_new,
@@ -73,8 +81,8 @@ GENERAL_NAMES_free,
 i2d_GENERAL_NAMES,
 NULL, NULL,
 (X509V3_EXT_I2V)i2v_GENERAL_NAMES,
-(X509V3_EXT_V2I)v2i_GENERAL_NAMES,
-NULL, NULL},
+(X509V3_EXT_V2I)v2i_subject_alt,
+NULL, NULL, NULL},
 { NID_issuer_alt_name, 0,
 (X509V3_EXT_NEW)GENERAL_NAMES_new,
 GENERAL_NAMES_free,
@@ -82,29 +90,25 @@ GENERAL_NAMES_free,
 i2d_GENERAL_NAMES,
 NULL, NULL,
 (X509V3_EXT_I2V)i2v_GENERAL_NAMES,
-(X509V3_EXT_V2I)v2i_GENERAL_NAMES,
-NULL, NULL},
+(X509V3_EXT_V2I)v2i_issuer_alt,
+NULL, NULL, NULL},
 EXT_END
 };
 
-STACK *i2v_GENERAL_NAMES(method, gens, ret)
-X509V3_EXT_METHOD *method;
-STACK *gens;
-STACK *ret;
+STACK *i2v_GENERAL_NAMES(X509V3_EXT_METHOD *method,
+                                STACK_OF(GENERAL_NAME) *gens, STACK *ret)
 {
        int i;
        GENERAL_NAME *gen;
-       for(i = 0; i < sk_num(gens); i++) {
-               gen = (GENERAL_NAME *)sk_value(gens, i);
+       for(i = 0; i < sk_GENERAL_NAME_num(gens); i++) {
+               gen = sk_GENERAL_NAME_value(gens, i);
                ret = i2v_GENERAL_NAME(method, gen, ret);
        }
        return ret;
 }
 
-STACK *i2v_GENERAL_NAME(method, gen, ret)
-X509V3_EXT_METHOD *method;
-GENERAL_NAME *gen;
-STACK *ret;
+STACK *i2v_GENERAL_NAME(X509V3_EXT_METHOD *method, GENERAL_NAME *gen,
+                                                                STACK *ret)
 {
        char oline[256];
        unsigned char *p;
@@ -123,15 +127,15 @@ STACK *ret;
                break;
 
                case GEN_EMAIL:
-               X509V3_add_value("email",gen->d.ia5->data, &ret);
+               X509V3_add_value_uchar("email",gen->d.ia5->data, &ret);
                break;
 
                case GEN_DNS:
-               X509V3_add_value("DNS",gen->d.ia5->data, &ret);
+               X509V3_add_value_uchar("DNS",gen->d.ia5->data, &ret);
                break;
 
                case GEN_URI:
-               X509V3_add_value("URI",gen->d.ia5->data, &ret);
+               X509V3_add_value_uchar("URI",gen->d.ia5->data, &ret);
                break;
 
                case GEN_DIRNAME:
@@ -158,34 +162,173 @@ STACK *ret;
        return ret;
 }
 
-STACK *v2i_GENERAL_NAMES(method, ctx, nval)
-X509V3_EXT_METHOD *method;
-X509V3_CTX *ctx;
-STACK *nval;
+static STACK_OF(GENERAL_NAME) *v2i_issuer_alt(X509V3_EXT_METHOD *method,
+                                                X509V3_CTX *ctx, STACK *nval)
+{
+       STACK_OF(GENERAL_NAME) *gens = NULL;
+       CONF_VALUE *cnf;
+       int i;
+       if(!(gens = sk_GENERAL_NAME_new(NULL))) {
+               X509V3err(X509V3_F_V2I_GENERAL_NAMES,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       for(i = 0; i < sk_num(nval); i++) {
+               cnf = (CONF_VALUE *)sk_value(nval, i);
+               if(!name_cmp(cnf->name, "issuer") && cnf->value &&
+                                               !strcmp(cnf->value, "copy")) {
+                       if(!copy_issuer(ctx, gens)) goto err;
+               } else {
+                       GENERAL_NAME *gen;
+                       if(!(gen = v2i_GENERAL_NAME(method, ctx, cnf)))
+                                                                goto err; 
+                       sk_GENERAL_NAME_push(gens, gen);
+               }
+       }
+       return gens;
+       err:
+       sk_GENERAL_NAME_pop_free(gens, GENERAL_NAME_free);
+       return NULL;
+}
+
+/* Append subject altname of issuer to issuer alt name of subject */
+
+static int copy_issuer(X509V3_CTX *ctx, STACK_OF(GENERAL_NAME) *gens)
+{
+       STACK_OF(GENERAL_NAME) *ialt;
+       GENERAL_NAME *gen;
+       X509_EXTENSION *ext;
+       int i;
+       if(ctx && (ctx->flags == CTX_TEST)) return 1;
+       if(!ctx || !ctx->issuer_cert) {
+               X509V3err(X509V3_F_COPY_ISSUER,X509V3_R_NO_ISSUER_DETAILS);
+               goto err;
+       }
+        i = X509_get_ext_by_NID(ctx->issuer_cert, NID_subject_alt_name, -1);
+       if(i < 0) return 1;
+        if(!(ext = X509_get_ext(ctx->issuer_cert, i)) ||
+                        !(ialt = X509V3_EXT_d2i(ext)) ) {
+               X509V3err(X509V3_F_COPY_ISSUER,X509V3_R_ISSUER_DECODE_ERROR);
+               goto err;
+       }
+
+       for(i = 0; i < sk_GENERAL_NAME_num(ialt); i++) {
+               gen = sk_GENERAL_NAME_value(ialt, i);
+               if(!sk_GENERAL_NAME_push(gens, gen)) {
+                       X509V3err(X509V3_F_COPY_ISSUER,ERR_R_MALLOC_FAILURE);
+                       goto err;
+               }
+       }
+       sk_GENERAL_NAME_free(ialt);
+
+       return 1;
+               
+       err:
+       return 0;
+       
+}
+
+static STACK_OF(GENERAL_NAME) *v2i_subject_alt(X509V3_EXT_METHOD *method,
+                                                X509V3_CTX *ctx, STACK *nval)
+{
+       STACK_OF(GENERAL_NAME) *gens = NULL;
+       CONF_VALUE *cnf;
+       int i;
+       if(!(gens = sk_GENERAL_NAME_new(NULL))) {
+               X509V3err(X509V3_F_V2I_GENERAL_NAMES,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       for(i = 0; i < sk_num(nval); i++) {
+               cnf = (CONF_VALUE *)sk_value(nval, i);
+               if(!name_cmp(cnf->name, "email") && cnf->value &&
+                                               !strcmp(cnf->value, "copy")) {
+                       if(!copy_email(ctx, gens)) goto err;
+               } else {
+                       GENERAL_NAME *gen;
+                       if(!(gen = v2i_GENERAL_NAME(method, ctx, cnf)))
+                                                                goto err; 
+                       sk_GENERAL_NAME_push(gens, gen);
+               }
+       }
+       return gens;
+       err:
+       sk_GENERAL_NAME_pop_free(gens, GENERAL_NAME_free);
+       return NULL;
+}
+
+/* Copy any email addresses in a certificate or request to 
+ * GENERAL_NAMES
+ */
+
+static int copy_email(X509V3_CTX *ctx, STACK_OF(GENERAL_NAME) *gens)
+{
+       X509_NAME *nm;
+       ASN1_IA5STRING *email = NULL;
+       X509_NAME_ENTRY *ne;
+       GENERAL_NAME *gen = NULL;
+       int i;
+       if(ctx->flags == CTX_TEST) return 1;
+       if(!ctx || (!ctx->subject_cert && !ctx->subject_req)) {
+               X509V3err(X509V3_F_COPY_EMAIL,X509V3_R_NO_SUBJECT_DETAILS);
+               goto err;
+       }
+       /* Find the subject name */
+       if(ctx->subject_cert) nm = X509_get_subject_name(ctx->subject_cert);
+       else nm = X509_REQ_get_subject_name(ctx->subject_req);
+
+       /* Now add any email address(es) to STACK */
+       i = -1;
+       while((i = X509_NAME_get_index_by_NID(nm,
+                                        NID_pkcs9_emailAddress, i)) > 0) {
+               ne = X509_NAME_get_entry(nm, i);
+               email = ASN1_IA5STRING_dup(X509_NAME_ENTRY_get_data(ne));
+               if(!email || !(gen = GENERAL_NAME_new())) {
+                       X509V3err(X509V3_F_COPY_EMAIL,ERR_R_MALLOC_FAILURE);
+                       goto err;
+               }
+               gen->d.ia5 = email;
+               email = NULL;
+               gen->type = GEN_EMAIL;
+               if(!sk_GENERAL_NAME_push(gens, gen)) {
+                       X509V3err(X509V3_F_COPY_EMAIL,ERR_R_MALLOC_FAILURE);
+                       goto err;
+               }
+               gen = NULL;
+       }
+
+       
+       return 1;
+               
+       err:
+       GENERAL_NAME_free(gen);
+       ASN1_IA5STRING_free(email);
+       return 0;
+       
+}
+
+STACK_OF(GENERAL_NAME) *v2i_GENERAL_NAMES(X509V3_EXT_METHOD *method,
+                                                X509V3_CTX *ctx, STACK *nval)
 {
        GENERAL_NAME *gen;
-       STACK *gens = NULL;
+       STACK_OF(GENERAL_NAME) *gens = NULL;
        CONF_VALUE *cnf;
        int i;
-       if(!(gens = sk_new(NULL))) {
+       if(!(gens = sk_GENERAL_NAME_new(NULL))) {
                X509V3err(X509V3_F_V2I_GENERAL_NAMES,ERR_R_MALLOC_FAILURE);
                return NULL;
        }
        for(i = 0; i < sk_num(nval); i++) {
                cnf = (CONF_VALUE *)sk_value(nval, i);
                if(!(gen = v2i_GENERAL_NAME(method, ctx, cnf))) goto err; 
-               sk_push(gens, (char *)gen);
+               sk_GENERAL_NAME_push(gens, gen);
        }
        return gens;
        err:
-       sk_pop_free(gens, GENERAL_NAME_free);
+       sk_GENERAL_NAME_pop_free(gens, GENERAL_NAME_free);
        return NULL;
 }
 
-GENERAL_NAME *v2i_GENERAL_NAME(method, ctx, cnf)
-X509V3_EXT_METHOD *method;
-X509V3_CTX *ctx;
-CONF_VALUE *cnf;
+GENERAL_NAME *v2i_GENERAL_NAME(X509V3_EXT_METHOD *method, X509V3_CTX *ctx,
+                                                        CONF_VALUE *cnf)
 {
 char is_string = 0;
 int type;
@@ -196,6 +339,11 @@ char *name, *value;
 name = cnf->name;
 value = cnf->value;
 
+if(!value) {
+       X509V3err(X509V3_F_V2I_GENERAL_NAME,X509V3_R_MISSING_VALUE);
+       return NULL;
+}
+
 if(!(gen = GENERAL_NAME_new())) {
        X509V3err(X509V3_F_V2I_GENERAL_NAME,ERR_R_MALLOC_FAILURE);
        return NULL;
@@ -244,7 +392,8 @@ if(!name_cmp(name, "email")) {
 
 if(is_string) {
        if(!(gen->d.ia5 = ASN1_IA5STRING_new()) ||
-                     !ASN1_STRING_set(gen->d.ia5, value, strlen(value))) {
+                     !ASN1_STRING_set(gen->d.ia5, (unsigned char*)value,
+                                      strlen(value))) {
                X509V3err(X509V3_F_V2I_GENERAL_NAME,ERR_R_MALLOC_FAILURE);
                goto err;
        }