contrib/bind-9.5.2/lib/dns/rdata/generic/cert_37.c

   1 /*
   2  * Copyright (C) 2004, 2005, 2007  Internet Systems Consortium, Inc. ("ISC")
   3  * Copyright (C) 1999-2003  Internet Software Consortium.
   4  *
   5  * Permission to use, copy, modify, and/or distribute this software for any
   6  * purpose with or without fee is hereby granted, provided that the above
   7  * copyright notice and this permission notice appear in all copies.
   8  *
   9  * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
  10  * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  11  * AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
  12  * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  13  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  14  * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15  * PERFORMANCE OF THIS SOFTWARE.
  16  */
  17
  18 /* $Id: cert_37.c,v 1.50 2007/06/19 23:47:17 tbox Exp $ */
  19
  20 /* Reviewed: Wed Mar 15 21:14:32 EST 2000 by tale */
  21
  22 /* RFC2538 */
  23
  24 #ifndef RDATA_GENERIC_CERT_37_C
  25 #define RDATA_GENERIC_CERT_37_C
  26
  27 #define RRTYPE_CERT_ATTRIBUTES (0)
  28
  29 static inline isc_result_t
  30 fromtext_cert(ARGS_FROMTEXT) {
  31         isc_token_t token;
  32         dns_secalg_t secalg;
  33         dns_cert_t cert;
  34
  35         REQUIRE(type == 37);
  36
  37         UNUSED(type);
  38         UNUSED(rdclass);
  39         UNUSED(origin);
  40         UNUSED(options);
  41         UNUSED(callbacks);
  42
  43         /*
  44          * Cert type.
  45          */
  46         RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,
  47                                       ISC_FALSE));
  48         RETTOK(dns_cert_fromtext(&cert, &token.value.as_textregion));
  49         RETERR(uint16_tobuffer(cert, target));
  50
  51         /*
  52          * Key tag.
  53          */
  54         RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_number,
  55                                       ISC_FALSE));
  56         if (token.value.as_ulong > 0xffffU)
  57                 RETTOK(ISC_R_RANGE);
  58         RETERR(uint16_tobuffer(token.value.as_ulong, target));
  59
  60         /*
  61          * Algorithm.
  62          */
  63         RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,
  64                                       ISC_FALSE));
  65         RETTOK(dns_secalg_fromtext(&secalg, &token.value.as_textregion));
  66         RETERR(mem_tobuffer(target, &secalg, 1));
  67
  68         return (isc_base64_tobuffer(lexer, target, -1));
  69 }
  70
  71 static inline isc_result_t
  72 totext_cert(ARGS_TOTEXT) {
  73         isc_region_t sr;
  74         char buf[sizeof("64000 ")];
  75         unsigned int n;
  76
  77         REQUIRE(rdata->type == 37);
  78         REQUIRE(rdata->length != 0);
  79
  80         UNUSED(tctx);
  81
  82         dns_rdata_toregion(rdata, &sr);
  83
  84         /*
  85          * Type.
  86          */
  87         n = uint16_fromregion(&sr);
  88         isc_region_consume(&sr, 2);
  89         RETERR(dns_cert_totext((dns_cert_t)n, target));
  90         RETERR(str_totext(" ", target));
  91
  92         /*
  93          * Key tag.
  94          */
  95         n = uint16_fromregion(&sr);
  96         isc_region_consume(&sr, 2);
  97         sprintf(buf, "%u ", n);
  98         RETERR(str_totext(buf, target));
  99
 100         /*
 101          * Algorithm.
 102          */
 103         RETERR(dns_secalg_totext(sr.base[0], target));
 104         isc_region_consume(&sr, 1);
 105
 106         /*
 107          * Cert.
 108          */
 109         if ((tctx->flags & DNS_STYLEFLAG_MULTILINE) != 0)
 110                 RETERR(str_totext(" (", target));
 111         RETERR(str_totext(tctx->linebreak, target));
 112         RETERR(isc_base64_totext(&sr, tctx->width - 2,
 113                                  tctx->linebreak, target));
 114         if ((tctx->flags & DNS_STYLEFLAG_MULTILINE) != 0)
 115                 RETERR(str_totext(" )", target));
 116         return (ISC_R_SUCCESS);
 117 }
 118
 119 static inline isc_result_t
 120 fromwire_cert(ARGS_FROMWIRE) {
 121         isc_region_t sr;
 122
 123         REQUIRE(type == 37);
 124
 125         UNUSED(type);
 126         UNUSED(rdclass);
 127         UNUSED(dctx);
 128         UNUSED(options);
 129
 130         isc_buffer_activeregion(source, &sr);
 131         if (sr.length < 5)
 132                 return (ISC_R_UNEXPECTEDEND);
 133
 134         isc_buffer_forward(source, sr.length);
 135         return (mem_tobuffer(target, sr.base, sr.length));
 136 }
 137
 138 static inline isc_result_t
 139 towire_cert(ARGS_TOWIRE) {
 140         isc_region_t sr;
 141
 142         REQUIRE(rdata->type == 37);
 143         REQUIRE(rdata->length != 0);
 144
 145         UNUSED(cctx);
 146
 147         dns_rdata_toregion(rdata, &sr);
 148         return (mem_tobuffer(target, sr.base, sr.length));
 149 }
 150
 151 static inline int
 152 compare_cert(ARGS_COMPARE) {
 153         isc_region_t r1;
 154         isc_region_t r2;
 155
 156         REQUIRE(rdata1->type == rdata2->type);
 157         REQUIRE(rdata1->rdclass == rdata2->rdclass);
 158         REQUIRE(rdata1->type == 37);
 159         REQUIRE(rdata1->length != 0);
 160         REQUIRE(rdata2->length != 0);
 161
 162         dns_rdata_toregion(rdata1, &r1);
 163         dns_rdata_toregion(rdata2, &r2);
 164         return (isc_region_compare(&r1, &r2));
 165 }
 166
 167 static inline isc_result_t
 168 fromstruct_cert(ARGS_FROMSTRUCT) {
 169         dns_rdata_cert_t *cert = source;
 170
 171         REQUIRE(type == 37);
 172         REQUIRE(source != NULL);
 173         REQUIRE(cert->common.rdtype == type);
 174         REQUIRE(cert->common.rdclass == rdclass);
 175
 176         UNUSED(type);
 177         UNUSED(rdclass);
 178
 179         RETERR(uint16_tobuffer(cert->type, target));
 180         RETERR(uint16_tobuffer(cert->key_tag, target));
 181         RETERR(uint8_tobuffer(cert->algorithm, target));
 182
 183         return (mem_tobuffer(target, cert->certificate, cert->length));
 184 }
 185
 186 static inline isc_result_t
 187 tostruct_cert(ARGS_TOSTRUCT) {
 188         dns_rdata_cert_t *cert = target;
 189         isc_region_t region;
 190
 191         REQUIRE(rdata->type == 37);
 192         REQUIRE(target != NULL);
 193         REQUIRE(rdata->length != 0);
 194
 195         cert->common.rdclass = rdata->rdclass;
 196         cert->common.rdtype = rdata->type;
 197         ISC_LINK_INIT(&cert->common, link);
 198
 199         dns_rdata_toregion(rdata, &region);
 200
 201         cert->type = uint16_fromregion(&region);
 202         isc_region_consume(&region, 2);
 203         cert->key_tag = uint16_fromregion(&region);
 204         isc_region_consume(&region, 2);
 205         cert->algorithm = uint8_fromregion(&region);
 206         isc_region_consume(&region, 1);
 207         cert->length = region.length;
 208
 209         cert->certificate = mem_maybedup(mctx, region.base, region.length);
 210         if (cert->certificate == NULL)
 211                 return (ISC_R_NOMEMORY);
 212
 213         cert->mctx = mctx;
 214         return (ISC_R_SUCCESS);
 215 }
 216
 217 static inline void
 218 freestruct_cert(ARGS_FREESTRUCT) {
 219         dns_rdata_cert_t *cert = source;
 220
 221         REQUIRE(cert != NULL);
 222         REQUIRE(cert->common.rdtype == 37);
 223
 224         if (cert->mctx == NULL)
 225                 return;
 226
 227         if (cert->certificate != NULL)
 228                 isc_mem_free(cert->mctx, cert->certificate);
 229         cert->mctx = NULL;
 230 }
 231
 232 static inline isc_result_t
 233 additionaldata_cert(ARGS_ADDLDATA) {
 234         REQUIRE(rdata->type == 37);
 235
 236         UNUSED(rdata);
 237         UNUSED(add);
 238         UNUSED(arg);
 239
 240         return (ISC_R_SUCCESS);
 241 }
 242
 243 static inline isc_result_t
 244 digest_cert(ARGS_DIGEST) {
 245         isc_region_t r;
 246
 247         REQUIRE(rdata->type == 37);
 248
 249         dns_rdata_toregion(rdata, &r);
 250
 251         return ((digest)(arg, &r));
 252 }
 253
 254 static inline isc_boolean_t
 255 checkowner_cert(ARGS_CHECKOWNER) {
 256
 257         REQUIRE(type == 37);
 258
 259         UNUSED(name);
 260         UNUSED(type);
 261         UNUSED(rdclass);
 262         UNUSED(wildcard);
 263
 264         return (ISC_TRUE);
 265 }
 266
 267 static inline isc_boolean_t
 268 checknames_cert(ARGS_CHECKNAMES) {
 269
 270         REQUIRE(rdata->type == 37);
 271
 272         UNUSED(rdata);
 273         UNUSED(owner);
 274         UNUSED(bad);
 275
 276         return (ISC_TRUE);
 277 }
 278
 279 #endif  /* RDATA_GENERIC_CERT_37_C */
 280