/* Licensed to the Apache Software Foundation (ASF) under one or more

 * contributor license agreements.  See the NOTICE file distributed with

 * this work for additional information regarding copyright ownership.

 * The ASF licenses this file to You under the Apache License, Version 2.0

 * (the "License"); you may not use this file except in compliance with

 * the License.  You may obtain a copy of the License at

 *

 *     http://www.apache.org/licenses/LICENSE-2.0

 *

 * Unless required by applicable law or agreed to in writing, software

 * distributed under the License is distributed on an "AS IS" BASIS,

 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 * See the License for the specific language governing permissions and

 * limitations under the License.

 */

#include <assert.h>

#include <stddef.h>

#include <stdio.h>

#include <stdlib.h>

#include <apr_lib.h>

#include <apr_hash.h>

#include <apr_strings.h>

#include <apr_uri.h>

#include "md.h"

#include "md_crypt.h"

#include "md_log.h"

#include "md_json.h"

#include "md_reg.h"

#include "md_store.h"

#include "md_util.h"

#include "md_acme.h"

#include "md_acme_acct.h"

struct md_reg_t {

    struct md_store_t *store;

    struct apr_hash_t *protos;

    int can_http;

    int can_https;

    const char *proxy_url;

};

/**************************************************************************************************/

/* life cycle */

static apr_status_t load_props(md_reg_t *reg, apr_pool_t *p)

{

    md_json_t *json;

    apr_status_t rv;

    rv = md_store_load(reg->store, MD_SG_NONE, NULL, MD_FN_HTTPD_JSON, 

                       MD_SV_JSON, (void**)&json, p);

    if (APR_SUCCESS == rv) {

        if (md_json_has_key(json, MD_KEY_PROTO, MD_KEY_HTTP, NULL)) {

            reg->can_http = md_json_getb(json, MD_KEY_PROTO, MD_KEY_HTTP, NULL);

        }

        if (md_json_has_key(json, MD_KEY_PROTO, MD_KEY_HTTPS, NULL)) {

            reg->can_https = md_json_getb(json, MD_KEY_PROTO, MD_KEY_HTTPS, NULL);

        }

    }

    else if (APR_STATUS_IS_ENOENT(rv)) {

        rv = APR_SUCCESS;

    }

    return rv;

}

apr_status_t md_reg_init(md_reg_t **preg, apr_pool_t *p, struct md_store_t *store,

                         const char *proxy_url)

{

    md_reg_t *reg;

    apr_status_t rv;

    reg = apr_pcalloc(p, sizeof(*reg));

    reg->store = store;

    reg->protos = apr_hash_make(p);

    reg->can_http = 1;

    reg->can_https = 1;

    reg->proxy_url = proxy_url? apr_pstrdup(p, proxy_url) : NULL;

    if (APR_SUCCESS == (rv = md_acme_protos_add(reg->protos, p))) {

        rv = load_props(reg, p);

    }

    *preg = (rv == APR_SUCCESS)? reg : NULL;

    return rv;

}

struct md_store_t *md_reg_store_get(md_reg_t *reg)

{

    return reg->store;

}

/**************************************************************************************************/

/* checks */

static apr_status_t check_values(md_reg_t *reg, apr_pool_t *p, const md_t *md, int fields)

{

    apr_status_t rv = APR_SUCCESS;

    const char *err = NULL;

    if (MD_UPD_DOMAINS & fields) {

        const md_t *other;

        const char *domain;

        int i;

        if (!md->domains || md->domains->nelts <= 0) {

            md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, APR_EINVAL, p, 

                          "empty domain list: %s", md->name);

            return APR_EINVAL;

        }

        for (i = 0; i < md->domains->nelts; ++i) {

            domain = APR_ARRAY_IDX(md->domains, i, const char *);

            if (!md_util_is_dns_name(p, domain, 1)) {

                md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, p, 

                              "md %s with invalid domain name: %s", md->name, domain);

                return APR_EINVAL;

            }

        }

        if (NULL != (other = md_reg_find_overlap(reg, md, &domain, p))) {

            md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, p, 

                          "md %s shares domain '%s' with md %s", 

                          md->name, domain, other->name);

            return APR_EINVAL;

        }

    }

    if (MD_UPD_CONTACTS & fields) {

        const char *contact;

        int i;

        for (i = 0; i < md->contacts->nelts && !err; ++i) {

            contact = APR_ARRAY_IDX(md->contacts, i, const char *);

            rv = md_util_abs_uri_check(p, contact, &err;;

            if (err) {

                md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, p, 

                              "contact for %s invalid (%s): %s", md->name, err, contact);

                return APR_EINVAL;

            }

        }

    }

    if ((MD_UPD_CA_URL & fields) && md->ca_url) { /* setting to empty is ok */

        rv = md_util_abs_uri_check(p, md->ca_url, &err;;

        if (err) {

            md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, p, 

                          "CA url for %s invalid (%s): %s", md->name, err, md->ca_url);

            return APR_EINVAL;

        }

    }

    if ((MD_UPD_CA_PROTO & fields) && md->ca_proto) { /* setting to empty is ok */

        /* Do we want to restrict this to "known" protocols? */

    }

    if ((MD_UPD_CA_ACCOUNT & fields) && md->ca_account) { /* setting to empty is ok */

        /* hmm, in case we know the protocol, some checks could be done */

    }

    if ((MD_UPD_AGREEMENT & fields) && md->ca_agreement) { /* setting to empty is ok */

        rv = md_util_abs_uri_check(p, md->ca_agreement, &err;;

        if (err) {

            md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, p, 

                          "CA url for %s invalid (%s): %s", md->name, err, md->ca_agreement);

            return APR_EINVAL;

        }

    }

    return rv;

}

/**************************************************************************************************/

/* state assessment */

static apr_status_t state_init(md_reg_t *reg, apr_pool_t *p, md_t *md, int save_changes)

{

    md_state_t state = MD_S_UNKNOWN;

    const md_creds_t *creds;

    const md_cert_t *cert;

    apr_time_t expires = 0, valid_from = 0;

    apr_status_t rv;

    int i;

    if (APR_SUCCESS == (rv = md_reg_creds_get(&creds, reg, MD_SG_DOMAINS, md, p))) {

        state = MD_S_INCOMPLETE;

        if (!creds->privkey) {

            md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                          "md{%s}: incomplete, without private key", md->name);

        }

        else if (!creds->cert) {

            md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                          "md{%s}: incomplete, has key but no certificate", md->name);

        }

        else {

            valid_from = md_cert_get_not_before(creds->cert);

            expires = md_cert_get_not_after(creds->cert);

            if (md_cert_has_expired(creds->cert)) {

                state = MD_S_EXPIRED;

                md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                              "md{%s}: expired, certificate has expired", md->name);

                goto out;

            }

            if (!md_cert_is_valid_now(creds->cert)) {

                state = MD_S_ERROR;

                md_log_perror(MD_LOG_MARK, MD_LOG_ERR, rv, p, 

                              "md{%s}: error, certificate valid in future (clock wrong?)", 

                              md->name);

                goto out;

            }

            if (!md_cert_covers_md(creds->cert, md)) {

                state = MD_S_INCOMPLETE;

                md_log_perror(MD_LOG_MARK, MD_LOG_INFO, rv, p, 

                              "md{%s}: incomplete, cert no longer covers all domains, "

                              "needs sign up for a new certificate", md->name);

                goto out;

            }

            if (!md->must_staple != !md_cert_must_staple(creds->cert)) {

                state = MD_S_INCOMPLETE;

                md_log_perror(MD_LOG_MARK, MD_LOG_INFO, rv, p, 

                              "md{%s}: OCSP Stapling is%s requested, but certificate "

                              "has it%s enabled. Need to get a new certificate.", md->name,

                              md->must_staple? "" : " not", 

                              !md->must_staple? "" : " not");

                goto out;

            }

            for (i = 1; i < creds->pubcert->nelts; ++i) {

                cert = APR_ARRAY_IDX(creds->pubcert, i, const md_cert_t *);

                if (!md_cert_is_valid_now(cert)) {

                    state = MD_S_ERROR;

                    md_log_perror(MD_LOG_MARK, MD_LOG_ERR, rv, p, 

                                  "md{%s}: error, the certificate itself is valid, however the %d. "

                                  "certificate in the chain is not valid now (clock wrong?).", 

                                  md->name, i);

                    goto out;

                }

            } 

            state = MD_S_COMPLETE;

            md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, "md{%s}: is complete", md->name);

        }

    }

out:    

    if (APR_SUCCESS != rv) {

        state = MD_S_ERROR;

        md_log_perror(MD_LOG_MARK, MD_LOG_WARNING, rv, p, "md{%s}: error", md->name);

    }

    if (save_changes && md->state == state

        && md->valid_from == valid_from && md->expires == expires) {

        save_changes = 0;

    }

    md->state = state;

    md->valid_from = valid_from;

    md->expires = expires;

    if (save_changes && APR_SUCCESS == rv) {

        return md_save(reg->store, p, MD_SG_DOMAINS, md, 0);

    }

    return rv;

}

apr_status_t md_reg_assess(md_reg_t *reg, md_t *md, int *perrored, int *prenew, apr_pool_t *p)

{

    int renew = 0;

    int errored = 0;

    (void)reg;

    switch (md->state) {

        case MD_S_UNKNOWN:

            md_log_perror( MD_LOG_MARK, MD_LOG_ERR, 0, p, "md(%s): in unknown state.", md->name);

            break;

        case MD_S_ERROR:

            md_log_perror( MD_LOG_MARK, MD_LOG_ERR, 0, p,  

                         "md(%s): in error state, unable to drive forward. If unable to "

                         " detect the cause, you may remove the staging or even domain "

                         " sub-directory for this MD and start all over.", md->name);

            errored = 1;

            break;

        case MD_S_COMPLETE:

            if (!md->expires) {

                md_log_perror( MD_LOG_MARK, MD_LOG_WARNING, 0, p,  

                             "md(%s): looks complete, but has unknown expiration date.", md->name);

                errored = 1;

            }

            else if (md->expires <= apr_time_now()) {

                /* Maybe we hibernated in the meantime? */

                md->state = MD_S_EXPIRED;

                renew = 1;

            }

            else {

                renew = md_should_renew(md);

            }

            break;

        case MD_S_INCOMPLETE:

        case MD_S_EXPIRED:

            renew = 1;

            break;

        case MD_S_MISSING:

            break;

    }

    *prenew = renew;

    *perrored = errored;

    return APR_SUCCESS;

}

/**************************************************************************************************/

/* iteration */

typedef struct {

    md_reg_t *reg;

    md_reg_do_cb *cb;

    void *baton;

    const char *exclude;

    const void *result;

} reg_do_ctx;

static int reg_md_iter(void *baton, md_store_t *store, md_t *md, apr_pool_t *ptemp)

{

    reg_do_ctx *ctx = baton;

    (void)store;

    if (!ctx->exclude || strcmp(ctx->exclude, md->name)) {

        state_init(ctx->reg, ptemp, (md_t*)md, 1);

        return ctx->cb(ctx->baton, ctx->reg, md);

    }

    return 1;

}

static int reg_do(md_reg_do_cb *cb, void *baton, md_reg_t *reg, apr_pool_t *p, const char *exclude)

{

    reg_do_ctx ctx;

    ctx.reg = reg;

    ctx.cb = cb;

    ctx.baton = baton;

    ctx.exclude = exclude;

    return md_store_md_iter(reg_md_iter, &ctx, reg->store, p, MD_SG_DOMAINS, "*");

}

int md_reg_do(md_reg_do_cb *cb, void *baton, md_reg_t *reg, apr_pool_t *p)

{

    return reg_do(cb, baton, reg, p, NULL);

}

/**************************************************************************************************/

/* lookup */

md_t *md_reg_get(md_reg_t *reg, const char *name, apr_pool_t *p)

{

    md_t *md;

    if (APR_SUCCESS == md_load(reg->store, MD_SG_DOMAINS, name, &md, p)) {

        state_init(reg, p, md, 1);

        return md;

    }

    return NULL;

}

typedef struct {

    const char *domain;

    md_t *md;

} find_domain_ctx;

static int find_domain(void *baton, md_reg_t *reg, md_t *md)

{

    find_domain_ctx *ctx = baton;

    (void)reg;

    if (md_contains(md, ctx->domain, 0)) {

        ctx->md = md;

        return 0;

    }

    return 1;

}

md_t *md_reg_find(md_reg_t *reg, const char *domain, apr_pool_t *p)

{

    find_domain_ctx ctx;

    ctx.domain = domain;

    ctx.md = NULL;

    md_reg_do(find_domain, &ctx, reg, p);

    if (ctx.md) {

        state_init(reg, p, ctx.md, 1);

    }

    return ctx.md;

}

typedef struct {

    const md_t *md_checked;

    md_t *md;

    const char *s;

} find_overlap_ctx;

static int find_overlap(void *baton, md_reg_t *reg, md_t *md)

{

    find_overlap_ctx *ctx = baton;

    const char *overlap;

    (void)reg;

    if ((overlap = md_common_name(ctx->md_checked, md))) {

        ctx->md = md;

        ctx->s = overlap;

        return 0;

    }

    return 1;

}

md_t *md_reg_find_overlap(md_reg_t *reg, const md_t *md, const char **pdomain, apr_pool_t *p)

{

    find_overlap_ctx ctx;

    ctx.md_checked = md;

    ctx.md = NULL;

    ctx.s = NULL;

    reg_do(find_overlap, &ctx, reg, p, md->name);

    if (pdomain && ctx.s) {

        *pdomain = ctx.s;

    }

    if (ctx.md) {

        state_init(reg, p, ctx.md, 1);

    }

    return ctx.md;

}

apr_status_t md_reg_get_cred_files(md_reg_t *reg, const md_t *md, apr_pool_t *p,

                                   const char **pkeyfile, const char **pcertfile)

{

    apr_status_t rv;

    rv = md_store_get_fname(pkeyfile, reg->store, MD_SG_DOMAINS, md->name, MD_FN_PRIVKEY, p);

    if (APR_SUCCESS == rv) {

        rv = md_store_get_fname(pcertfile, reg->store, MD_SG_DOMAINS, md->name, MD_FN_PUBCERT, p);

    }

    return rv;

}

/**************************************************************************************************/

/* manipulation */

static apr_status_t p_md_add(void *baton, apr_pool_t *p, apr_pool_t *ptemp, va_list ap)

{

    md_reg_t *reg = baton;

    apr_status_t rv = APR_SUCCESS;

    md_t *md, *mine;

    md = va_arg(ap, md_t *);

    mine = md_clone(ptemp, md);

    if (APR_SUCCESS == (rv = check_values(reg, ptemp, md, MD_UPD_ALL))

        && APR_SUCCESS == (rv = state_init(reg, ptemp, mine, 0))

        && APR_SUCCESS == (rv = md_save(reg->store, p, MD_SG_DOMAINS, mine, 1))) {

    }

    return rv;

}

apr_status_t md_reg_add(md_reg_t *reg, md_t *md, apr_pool_t *p)

{

    return md_util_pool_vdo(p_md_add, reg, p, md, NULL);

}

static apr_status_t p_md_update(void *baton, apr_pool_t *p, apr_pool_t *ptemp, va_list ap)

{

    md_reg_t *reg = baton;

    apr_status_t rv = APR_SUCCESS;

    const char *name;

    const md_t *md, *updates;

    int fields;

    md_t *nmd;

    name = va_arg(ap, const char *);

    updates = va_arg(ap, const md_t *);

    fields = va_arg(ap, int);

    if (NULL == (md = md_reg_get(reg, name, ptemp))) {

        md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, APR_ENOENT, ptemp, "md %s", name);

        return APR_ENOENT;

    }

    md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, 0, ptemp, "update md %s", name);

    if (APR_SUCCESS != (rv = check_values(reg, ptemp, updates, fields))) {

        return rv;

    }

    nmd = md_copy(ptemp, md);

    if (MD_UPD_DOMAINS & fields) {

        nmd->domains = updates->domains;

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update domains: %s", name);

    }

    if (MD_UPD_CA_URL & fields) {

        nmd->ca_url = updates->ca_url;

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update ca url: %s", name);

    }

    if (MD_UPD_CA_PROTO & fields) {

        nmd->ca_proto = updates->ca_proto;

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update ca protocol: %s", name);

    }

    if (MD_UPD_CA_ACCOUNT & fields) {

        nmd->ca_account = updates->ca_account;

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update account: %s", name);

    }

    if (MD_UPD_CONTACTS & fields) {

        nmd->contacts = updates->contacts;

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update contacts: %s", name);

    }

    if (MD_UPD_AGREEMENT & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update agreement: %s", name);

        nmd->ca_agreement = updates->ca_agreement;

    }

    if (MD_UPD_CERT_URL & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update cert url: %s", name);

        nmd->cert_url = updates->cert_url;

    }

    if (MD_UPD_DRIVE_MODE & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update drive-mode: %s", name);

        nmd->drive_mode = updates->drive_mode;

    }

    if (MD_UPD_RENEW_WINDOW & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update renew-window: %s", name);

        nmd->renew_norm = updates->renew_norm;

        nmd->renew_window = updates->renew_window;

    }

    if (MD_UPD_CA_CHALLENGES & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update ca challenges: %s", name);

        nmd->ca_challenges = (updates->ca_challenges? 

                              apr_array_copy(p, updates->ca_challenges) : NULL);

    }

    if (MD_UPD_PKEY_SPEC & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update pkey spec: %s", name);

        nmd->pkey_spec = NULL;

        if (updates->pkey_spec) {

            nmd->pkey_spec = apr_pmemdup(p, updates->pkey_spec, sizeof(md_pkey_spec_t));

        }

    }

    if (MD_UPD_REQUIRE_HTTPS & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update require-https: %s", name);

        nmd->require_https = updates->require_https;

    }

    if (MD_UPD_TRANSITIVE & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update transitive: %s", name);

        nmd->transitive = updates->transitive;

    }

    if (MD_UPD_MUST_STAPLE & fields) {

        md_log_perror(MD_LOG_MARK, MD_LOG_TRACE1, 0, ptemp, "update must-staple: %s", name);

        nmd->must_staple = updates->must_staple;

    }

    if (fields && APR_SUCCESS == (rv = md_save(reg->store, p, MD_SG_DOMAINS, nmd, 0))) {

        rv = state_init(reg, ptemp, nmd, 0);

    }

    return rv;

}

apr_status_t md_reg_update(md_reg_t *reg, apr_pool_t *p, 

                           const char *name, const md_t *md, int fields)

{

    return md_util_pool_vdo(p_md_update, reg, p, name, md, fields, NULL);

}

/**************************************************************************************************/

/* certificate related */

static int ok_or_noent(apr_status_t rv) 

{

    return (APR_SUCCESS == rv || APR_ENOENT == rv);

}

static apr_status_t creds_load(void *baton, apr_pool_t *p, apr_pool_t *ptemp, va_list ap)

{

    md_reg_t *reg = baton;

    md_pkey_t *privkey;

    apr_array_header_t *pubcert;

    md_creds_t *creds, **pcreds;

    const md_t *md;

    md_cert_state_t cert_state;

    md_store_group_t group;

    apr_status_t rv;

    pcreds = va_arg(ap, md_creds_t **);

    group = (md_store_group_t)va_arg(ap, int);

    md = va_arg(ap, const md_t *);

    if (ok_or_noent(rv = md_pkey_load(reg->store, group, md->name, &privkey, p))

        && ok_or_noent(rv = md_pubcert_load(reg->store, group, md->name, &pubcert, p))) {

        rv = APR_SUCCESS;

        creds = apr_pcalloc(p, sizeof(*creds));

        creds->privkey = privkey;

        if (pubcert && pubcert->nelts > 0) {

            creds->pubcert = pubcert;

            creds->cert = APR_ARRAY_IDX(pubcert, 0, md_cert_t *);

        }

        if (creds->cert) {

            switch ((cert_state = md_cert_state_get(creds->cert))) {

                case MD_CERT_VALID:

                    creds->expired = 0;

                    break;

                case MD_CERT_EXPIRED:

                    creds->expired = 1;

                    break;

                default:

                    md_log_perror(MD_LOG_MARK, MD_LOG_ERR, APR_EINVAL, ptemp, 

                                  "md %s has unexpected cert state: %d", md->name, cert_state);

                    rv = APR_ENOTIMPL;

                    break;

            }

        }

    }

    *pcreds = (APR_SUCCESS == rv)? creds : NULL;

    return rv;

}

apr_status_t md_reg_creds_get(const md_creds_t **pcreds, md_reg_t *reg, 

                              md_store_group_t group, const md_t *md, apr_pool_t *p)

{

    apr_status_t rv = APR_SUCCESS;

    md_creds_t *creds;

    rv = md_util_pool_vdo(creds_load, reg, p, &creds, group, md, NULL);

    *pcreds = (APR_SUCCESS == rv)? creds : NULL;

    return rv;

}

/**************************************************************************************************/

/* synching */

typedef struct {

    apr_pool_t *p;

    apr_array_header_t *store_mds;

} sync_ctx;

static int do_add_md(void *baton, md_store_t *store, md_t *md, apr_pool_t *ptemp)

{

    sync_ctx *ctx = baton;

    (void)store;

    (void)ptemp;

    APR_ARRAY_PUSH(ctx->store_mds, const md_t*) = md_clone(ctx->p, md);

    return 1;

}

static apr_status_t read_store_mds(md_reg_t *reg, sync_ctx *ctx)

{

    int rv;

    apr_array_clear(ctx->store_mds);

    rv = md_store_md_iter(do_add_md, ctx, reg->store, ctx->p, MD_SG_DOMAINS, "*");

    if (APR_STATUS_IS_ENOENT(rv)) {

        rv = APR_SUCCESS;

    }

    return rv;

}

apr_status_t md_reg_set_props(md_reg_t *reg, apr_pool_t *p, int can_http, int can_https)

{

    if (reg->can_http != can_http || reg->can_https != can_https) {

        md_json_t *json;

        reg->can_http = can_http;

        reg->can_https = can_https;

        json = md_json_create(p);

        md_json_setb(can_http, json, MD_KEY_PROTO, MD_KEY_HTTP, NULL);

        md_json_setb(can_https, json, MD_KEY_PROTO, MD_KEY_HTTPS, NULL);

        return md_store_save(reg->store, p, MD_SG_NONE, NULL, MD_FN_HTTPD_JSON, MD_SV_JSON, json, 0);

    }

    return APR_SUCCESS;

}

/**

 * Procedure:

 * 1. Collect all defined "managed domains" (MD). It does not matter where a MD is defined. 

 *    All MDs need to be unique and have no overlaps in their domain names. 

 *    Fail the config otherwise. Also, if a vhost matches an MD, it

 *    needs to *only* have ServerAliases from that MD. There can be no more than one

 *    matching MD for a vhost. But an MD can apply to several vhosts.

 * 2. Synchronize with the persistent store. Iterate over all configured MDs and 

 *   a. create them in the store if they do not already exist, neither under the

 *      name or with a common domain.

 *   b. compare domain lists from store and config, if

 *      - store has dns name in other MD than from config, remove dns name from store def,

 *        issue WARNING.

 *      - store misses dns name from config, add dns name and update store

 *   c. compare MD acme url/protocol, update if changed

 */

apr_status_t md_reg_sync(md_reg_t *reg, apr_pool_t *p, apr_pool_t *ptemp, 

                         apr_array_header_t *master_mds) 

{

    sync_ctx ctx;

    apr_status_t rv;

    ctx.p = ptemp;

    ctx.store_mds = apr_array_make(ptemp,100, sizeof(md_t *));

    rv = read_store_mds(reg, &ctx;;

    md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                  "sync: found %d mds in store", ctx.store_mds->nelts);

    if (APR_SUCCESS == rv) {

        int i, fields;

        md_t *md, *config_md, *smd, *omd;

        const char *common;

        for (i = 0; i < master_mds->nelts; ++i) {

            md = APR_ARRAY_IDX(master_mds, i, md_t *);

            /* find the store md that is closest match for the configured md */

            smd = md_find_closest_match(ctx.store_mds, md);

            if (smd) {

                fields = 0;

                /* Once stored, we keep the name */

                if (strcmp(md->name, smd->name)) {

                    md->name = apr_pstrdup(p, smd->name);

                }

                /* Make the stored domain list *exactly* the same, even if

                 * someone only changed upper/lowercase, we'd like to persist that. */

                if (!md_equal_domains(md, smd, 1)) {

                    md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                                 "%s: domains changed", smd->name);

                    smd->domains = md_array_str_clone(ptemp, md->domains);

                    fields |= MD_UPD_DOMAINS;

                }

                /* Look for other store mds which have domains now being part of smd */

                while (APR_SUCCESS == rv && (omd = md_get_by_dns_overlap(ctx.store_mds, md))) {

                    /* find the name now duplicate */

                    common = md_common_name(md, omd);

                    assert(common);

                    /* Is this md still configured or has it been abandoned in the config? */

                    config_md = md_get_by_name(master_mds, omd->name);

                    if (config_md && md_contains(config_md, common, 0)) {

                        /* domain used in two configured mds, not allowed */

                        rv = APR_EINVAL;

                        md_log_perror(MD_LOG_MARK, MD_LOG_ERR, rv, p, 

                                      "domain %s used in md %s and %s", 

                                      common, md->name, omd->name);

                    }

                    else {

                        /* remove it from the other md and update store, or, if it

                         * is now empty, move it into the archive */

                        omd->domains = md_array_str_remove(ptemp, omd->domains, common, 0);

                        if (apr_is_empty_array(omd->domains)) {

                            md_log_perror(MD_LOG_MARK, MD_LOG_WARNING, rv, p, 

                                          "All domains of the MD %s have moved elsewhere, "

                                          " moving it to the archive. ", omd->name);

                            md_reg_remove(reg, ptemp, omd->name, 1); /* best effort */

                        }

                        else {

                            rv = md_reg_update(reg, ptemp, omd->name, omd, MD_UPD_DOMAINS);

                        }

                    }

                }

                if (MD_SVAL_UPDATE(md, smd, ca_url)) {

                    smd->ca_url = md->ca_url;

                    fields |= MD_UPD_CA_URL;

                }

                if (MD_SVAL_UPDATE(md, smd, ca_proto)) {

                    smd->ca_proto = md->ca_proto;

                    fields |= MD_UPD_CA_PROTO;

                }

                if (MD_SVAL_UPDATE(md, smd, ca_agreement)) {

                    smd->ca_agreement = md->ca_agreement;

                    fields |= MD_UPD_AGREEMENT;

                }

                if (MD_VAL_UPDATE(md, smd, transitive)) {

                    smd->transitive = md->transitive;

                    fields |= MD_UPD_TRANSITIVE;

                }

                if (MD_VAL_UPDATE(md, smd, drive_mode)) {

                    smd->drive_mode = md->drive_mode;

                    fields |= MD_UPD_DRIVE_MODE;

                }

                if (!apr_is_empty_array(md->contacts) 

                    && !md_array_str_eq(md->contacts, smd->contacts, 0)) {

                    smd->contacts = md->contacts;

                    fields |= MD_UPD_CONTACTS;

                }

                if (MD_VAL_UPDATE(md, smd, renew_window) 

                    || MD_VAL_UPDATE(md, smd, renew_norm)) {

                    md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, 

                                  "%s: update renew norm=%ld, window=%ld", 

                                  smd->name, (long)md->renew_norm, (long)md->renew_window);

                    smd->renew_norm = md->renew_norm;

                    smd->renew_window = md->renew_window;

                    fields |= MD_UPD_RENEW_WINDOW;

                }

                if (md->ca_challenges) {

                    md->ca_challenges = md_array_str_compact(p, md->ca_challenges, 0);

                    if (!smd->ca_challenges 

                        || !md_array_str_eq(md->ca_challenges, smd->ca_challenges, 0)) {

                        smd->ca_challenges = apr_array_copy(ptemp, md->ca_challenges);

                        fields |= MD_UPD_CA_CHALLENGES;

                    }

                }

                else if (smd->ca_challenges) {

                    smd->ca_challenges = NULL;

                    fields |= MD_UPD_CA_CHALLENGES;

                }

                if (!md_pkey_spec_eq(md->pkey_spec, smd->pkey_spec)) {

                    fields |= MD_UPD_PKEY_SPEC;

                    smd->pkey_spec = NULL;

                    if (md->pkey_spec) {

                        smd->pkey_spec = apr_pmemdup(p, md->pkey_spec, sizeof(md_pkey_spec_t));

                    }

                }

                if (MD_VAL_UPDATE(md, smd, require_https)) {

                    smd->require_https = md->require_https;

                    fields |= MD_UPD_REQUIRE_HTTPS;

                }

                if (MD_VAL_UPDATE(md, smd, must_staple)) {

                    smd->must_staple = md->must_staple;

                    fields |= MD_UPD_MUST_STAPLE;

                }

                if (fields) {

                    rv = md_reg_update(reg, ptemp, smd->name, smd, fields);

                    md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, "md %s updated", smd->name);

                }

            }

            else {

                /* new managed domain */

                rv = md_reg_add(reg, md, ptemp);

                md_log_perror(MD_LOG_MARK, MD_LOG_DEBUG, rv, p, "new md %s added", md->name);

            }

        }

    }

    else {

        md_log_perror(MD_LOG_MARK, MD_LOG_ERR, rv, p, "loading mds");

    }

    return rv;

}

apr_status_t md_reg_remove(md_reg_t *reg, apr_pool_t *p, const char *name, int archive)

{

    return md_store_move(reg->store, p, MD_SG_DOMAINS, MD_SG_ARCHIVE, name, archive);

}

/**************************************************************************************************/

/* driving */

static apr_status_t init_proto_driver(md_proto_driver_t *driver, const md_proto_t *proto, 

                                      md_reg_t *reg, const md_t *md, 

                                      const char *challenge, int reset, apr_pool_t *p) 

{

    apr_status_t rv = APR_SUCCESS;

    /* If this registry instance was not synched before (and obtained server

     * properties that way), read them from the store.

     */

    driver->proto = proto;

    driver->p = p;

    driver->challenge = challenge;

    driver->can_http = reg->can_http;

    driver->can_https = reg->can_https;

    driver->reg = reg;

    driver->store = md_reg_store_get(reg);

    driver->proxy_url = reg->proxy_url;

    driver->md = md;

    driver->reset = reset;

    return rv;

}

static apr_status_t run_stage(void *baton, apr_pool_t *p, apr_pool_t *ptemp, va_list ap)

{