+}
+
+/* This implementation seems somewhat ugly, but it's the way the
+ * GnuTLS implements the same thing internally, so it should probably
+ * be interoperable, at least. */
+static int readcrtchain(struct certbuffer *ret, struct charbuf *pem)
+{
+ static char *headers[] = {"-----BEGIN CERTIFICATE", "-----BEGIN X509 CERTIFICATE"};
+ int i, rv;
+ char *p, *p2, *f;
+ gnutls_x509_crt_t crt;
+
+ for(i = 0, p = NULL; i < sizeof(headers) / sizeof(*headers); i++) {
+ f = memmem(pem->b, pem->d, headers[i], strlen(headers[i]));
+ if((f != NULL) && ((p == NULL) || (f < p)))
+ p = f;
+ }
+ if(p == NULL)
+ return(-GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE);
+ do {
+ if((rv = gnutls_x509_crt_init(&crt)) < 0)
+ goto error;
+ if((rv = gnutls_x509_crt_import(crt, &(gnutls_datum_t){.data = (unsigned char *)p, .size = pem->d - (p - pem->b)}, GNUTLS_X509_FMT_PEM)) < 0) {
+ gnutls_x509_crt_deinit(crt);
+ goto error;
+ }
+ bufadd(*ret, crt);
+ for(i = 0, p2 = NULL; i < sizeof(headers) / sizeof(*headers); i++) {
+ f = memmem(p + 1, pem->d - (p + 1 - pem->b), headers[i], strlen(headers[i]));
+ if((f != NULL) && ((p2 == NULL) || (f < p2)))
+ p2 = f;
+ }
+ } while((p = p2) != NULL);
+ return(0);
+error:
+ for(i = 0; i < ret->d; i++)
+ gnutls_x509_crt_deinit(ret->b[i]);
+ ret->d = 0;
+ return(rv);
+}
+
+static struct namedcreds *readncreds(char *file, gnutls_x509_privkey_t defkey)
+{
+ int i, fd, ret;
+ struct namedcreds *nc;
+ struct certbuffer crts;
+ gnutls_x509_privkey_t key;
+ char cn[1024];
+ size_t cnl;
+ struct charbuf keybuf;
+ struct charvbuf names;
+ unsigned int type;
+
+ bufinit(keybuf);
+ bufinit(crts);
+ bufinit(names);
+ if((fd = open(file, O_RDONLY)) < 0) {
+ flog(LOG_ERR, "ssl: %s: %s", file, strerror(errno));
+ exit(1);
+ }
+ while(1) {
+ sizebuf(keybuf, keybuf.d + 1024);
+ ret = read(fd, keybuf.b + keybuf.d, keybuf.s - keybuf.d);
+ if(ret < 0) {
+ flog(LOG_ERR, "ssl: reading from %s: %s", file, strerror(errno));
+ exit(1);
+ } else if(ret == 0) {
+ break;
+ }
+ keybuf.d += ret;
+ }
+ close(fd);
+ if((ret = readcrtchain(&crts, &keybuf)) != 0) {
+ flog(LOG_ERR, "ssl: could not load certificate chain from %s: %s", file, gnutls_strerror(ret));
+ exit(1);
+ }
+ cnl = sizeof(cn) - 1;
+ if((ret = gnutls_x509_crt_get_dn_by_oid(crts.b[0], GNUTLS_OID_X520_COMMON_NAME, 0, 0, cn, &cnl)) != 0) {
+ flog(LOG_ERR, "ssl: could not read common name from %s: %s", file, gnutls_strerror(ret));
+ exit(1);
+ }
+ cn[cnl] = 0;
+ bufadd(names, sstrdup(cn));
+ for(i = 0; 1; i++) {
+ cnl = sizeof(cn) - 1;
+ if(gnutls_x509_crt_get_subject_alt_name2(crts.b[0], i, cn, &cnl, &type, NULL) < 0)
+ break;
+ cn[cnl] = 0;
+ if(type == GNUTLS_SAN_DNSNAME)
+ bufadd(names, sstrdup(cn));
+ }
+ gnutls_x509_privkey_init(&key);
+ if((ret = gnutls_x509_privkey_import(key, &(gnutls_datum_t){.data = (unsigned char *)keybuf.b, .size = keybuf.d}, GNUTLS_X509_FMT_PEM)) != 0) {
+ if(ret == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE) {
+ gnutls_x509_privkey_deinit(key);
+ key = defkey;
+ } else {
+ flog(LOG_ERR, "ssl: could not load key from %s: %s", file, gnutls_strerror(ret));
+ exit(1);
+ }
+ }
+ buffree(keybuf);
+ bufadd(names, NULL);
+ omalloc(nc);
+ nc->names = names.b;
+ gnutls_certificate_allocate_credentials(&nc->creds);
+ if((ret = gnutls_certificate_set_x509_key(nc->creds, crts.b, crts.d, key)) != 0) {
+ flog(LOG_ERR, "ssl: could not use certificate from %s: %s", file, gnutls_strerror(ret));
+ exit(1);
+ }
+ gnutls_certificate_set_dh_params(nc->creds, dhparams());
+ return(nc);
+}
+
+static void readncdir(struct ncredbuf *buf, char *dir, gnutls_x509_privkey_t defkey)
+{
+ DIR *d;
+ struct dirent *e;
+ size_t es;
+
+ if((d = opendir(dir)) == NULL) {
+ flog(LOG_ERR, "ssl: could not read certificate directory %s: %s", dir, strerror(errno));