/* * mod_vhostdb_ldap - virtual hosts mapping from backend LDAP database * * Copyright(c) 2017 Glenn Strauss gstrauss()gluelogic.com All rights reserved * License: BSD 3-clause (same as lighttpd) */ #include "first.h" #include #include #include #include "mod_vhostdb_api.h" #include "base.h" #include "log.h" #include "plugin.h" /* * virtual host plugin using LDAP for domain to directory lookups */ typedef struct { LDAP *ldap; const buffer *filter; log_error_st *errh; const char *attr; const char *host; const char *basedn; const char *binddn; const char *bindpw; const char *cafile; unsigned short starttls; struct timeval timeout; } vhostdb_config; typedef struct { void *vdata; } plugin_config; typedef struct { PLUGIN_DATA; plugin_config defaults; plugin_config conf; } plugin_data; static const char *default_cafile; static void mod_vhostdb_dbconf_free (void *vdata) { vhostdb_config *dbconf = (vhostdb_config *)vdata; if (!dbconf) return; if (NULL != dbconf->ldap) ldap_unbind_ext_s(dbconf->ldap, NULL, NULL); free(dbconf); } /*(copied from mod_authn_ldap.c)*/ static void mod_vhostdb_dbconf_add_scheme (server *srv, buffer *host) { if (!buffer_is_blank(host)) { /* reformat hostname(s) as LDAP URIs (scheme://host:port) */ static const char *schemes[] = { "ldap://", "ldaps://", "ldapi://", "cldap://" }; char *b, *e = host->ptr; buffer * const tb = srv->tmp_buf; buffer_clear(tb); while (*(b = e)) { unsigned int j; while (*b==' '||*b=='\t'||*b=='\r'||*b=='\n'||*b==',') ++b; if (*b == '\0') break; e = b; while (*e!=' '&&*e!='\t'&&*e!='\r'&&*e!='\n'&&*e!=','&&*e!='\0') ++e; if (!buffer_is_blank(tb)) buffer_append_char(tb, ','); for (j = 0; j < sizeof(schemes)/sizeof(char *); ++j) { if (buffer_eq_icase_ssn(b, schemes[j], strlen(schemes[j]))) { break; } } if (j == sizeof(schemes)/sizeof(char *)) buffer_append_string_len(tb, CONST_STR_LEN("ldap://")); buffer_append_string_len(tb, b, (size_t)(e - b)); } buffer_copy_buffer(host, tb); } } static int mod_vhostdb_dbconf_setup (server *srv, const array *opts, void **vdata) { const buffer *filter = NULL; const char *attr = "documentRoot"; const char *basedn=NULL,*binddn=NULL,*bindpw=NULL,*host=NULL,*cafile=NULL; unsigned short starttls = 0; long timeout = 2000000; /* set 2 sec default timeout (instead of infinite) */ for (size_t i = 0; i < opts->used; ++i) { data_string *ds = (data_string *)opts->data[i]; if (ds->type == TYPE_STRING) { if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("filter"))) { filter = &ds->value; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("attr"))) { if (!buffer_is_blank(&ds->value)) attr = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("host"))) { mod_vhostdb_dbconf_add_scheme(srv, &ds->value); host = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("base-dn"))) { if (!buffer_is_blank(&ds->value)) basedn = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("bind-dn"))) { if (!buffer_is_blank(&ds->value)) binddn = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("bind-pw"))) { bindpw = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("ca-file"))) { if (!buffer_is_blank(&ds->value)) cafile = ds->value.ptr; } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("starttls"))) { starttls = config_plugin_value_tobool((data_unset *)ds, 1); } else if (buffer_is_equal_caseless_string(&ds->key, CONST_STR_LEN("timeout"))) { timeout = strtol(ds->value.ptr, NULL, 10); } } } /* required: * - host * - filter (LDAP query) * - base-dn * * optional: * - attr (LDAP attribute with docroot; default "documentRoot") * - bind-dn * - bind-pw * - ca-file * - starttls */ if (NULL != filter && !buffer_is_blank(filter) && NULL != host && NULL != basedn) { vhostdb_config *dbconf; if (NULL == strchr(filter->ptr, '?')) { log_error(srv->errh, __FILE__, __LINE__, "ldap: filter is missing a replace-operator '?'"); return -1; } /* openldap sets FD_CLOEXEC on database socket descriptors * (still race between creation of socket and fcntl FD_CLOEXEC) * (YMMV with other LDAP client libraries) */ dbconf = (vhostdb_config *)ck_calloc(1, sizeof(*dbconf)); dbconf->ldap = NULL; dbconf->filter = filter; dbconf->attr = attr; dbconf->host = host; dbconf->basedn = basedn; dbconf->binddn = binddn; dbconf->bindpw = bindpw; dbconf->cafile = cafile; dbconf->starttls = starttls; dbconf->timeout.tv_sec = timeout / 1000000; dbconf->timeout.tv_usec = timeout % 1000000; *vdata = dbconf; } return 0; } /* * Note: a large portion of the LDAP code is copied verbatim from mod_authn_ldap * with only changes being use of vhostdb_config instead of plugin_config struct * and (const char *) strings in vhostdb_config instead of (buffer *). */ __attribute_cold__ static void mod_authn_ldap_err(log_error_st *errh, const char *file, unsigned long line, const char *fn, int err) { log_error(errh, file, line, "ldap: %s: %s", fn, ldap_err2string(err)); } __attribute_cold__ static void mod_authn_ldap_opt_err(log_error_st *errh, const char *file, unsigned long line, const char *fn, LDAP *ld) { int err; ldap_get_option(ld, LDAP_OPT_ERROR_NUMBER, &err); mod_authn_ldap_err(errh, file, line, fn, err); } static void mod_authn_append_ldap_filter_escape(buffer * const filter, const buffer * const raw) { /* [RFC4515] 3. String Search Filter Definition * * [...] * * The rule ensures that the entire filter string is a * valid UTF-8 string and provides that the octets that represent the * ASCII characters "*" (ASCII 0x2a), "(" (ASCII 0x28), ")" (ASCII * 0x29), "\" (ASCII 0x5c), and NUL (ASCII 0x00) are represented as a * backslash "\" (ASCII 0x5c) followed by the two hexadecimal digits * representing the value of the encoded octet. * * [...] * * As indicated by the rule, implementations MUST escape * all octets greater than 0x7F that are not part of a valid UTF-8 * encoding sequence when they generate a string representation of a * search filter. Implementations SHOULD accept as input strings that * are not valid UTF-8 strings. This is necessary because RFC 2254 did * not clearly define the term "string representation" (and in * particular did not mention that the string representation of an LDAP * search filter is a string of UTF-8-encoded Unicode characters). * * * https://www.ldap.com/ldap-filters * Although not required, you may escape any other characters that you want * in the assertion value (or substring component) of a filter. This may be * accomplished by prefixing the hexadecimal representation of each byte of * the UTF-8 encoding of the character to escape with a backslash character. */ const char * const b = raw->ptr; const size_t rlen = buffer_clen(raw); for (size_t i = 0; i < rlen; ++i) { size_t len = i; char *f; do { /* encode all UTF-8 chars with high bit set * (instead of validating UTF-8 and escaping only invalid UTF-8) */ if (((unsigned char *)b)[len] > 0x7f) break; switch (b[len]) { default: continue; case '\0': case '(': case ')': case '*': case '\\': break; } break; } while (++len < rlen); len -= i; if (len) { buffer_append_string_len(filter, b+i, len); if ((i += len) == rlen) break; } /* escape * ( ) \ NUL ('\0') (and all UTF-8 chars with high bit set) */ f = buffer_extend(filter, 3); f[0] = '\\'; f[1] = "0123456789abcdef"[(((unsigned char *)b)[i] >> 4) & 0xf]; f[2] = "0123456789abcdef"[(((unsigned char *)b)[i] ) & 0xf]; } } static LDAP * mod_authn_ldap_host_init(log_error_st *errh, vhostdb_config *s) { LDAP *ld; int ret; ret = ldap_initialize(&ld, s->host); if (LDAP_SUCCESS != ret) { log_perror(errh, __FILE__, __LINE__, "ldap: ldap_initialize()"); return NULL; } ret = LDAP_VERSION3; ret = ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION, &ret); if (LDAP_OPT_SUCCESS != ret) { mod_authn_ldap_err(errh, __FILE__, __LINE__, "ldap_set_options()", ret); ldap_destroy(ld); return NULL; } /* restart ldap functions if interrupted by a signal, e.g. SIGCHLD */ ldap_set_option(ld, LDAP_OPT_RESTART, LDAP_OPT_ON); #ifdef LDAP_OPT_NETWORK_TIMEOUT /* OpenLDAP-specific */ ldap_set_option(ld, LDAP_OPT_NETWORK_TIMEOUT, &s->timeout); #endif #ifdef LDAP_OPT_TIMEOUT /* OpenLDAP-specific; OpenLDAP 2.4+ */ ldap_set_option(ld, LDAP_OPT_TIMEOUT, &s->timeout); #endif if (s->starttls) { /* if no CA file is given, it is ok, as we will use encryption * if the server requires a CAfile it will tell us */ if (s->cafile && (!default_cafile || 0 != strcmp(s->cafile, default_cafile))) { ret = ldap_set_option(ld, LDAP_OPT_X_TLS_CACERTFILE, s->cafile); if (LDAP_OPT_SUCCESS != ret) { mod_authn_ldap_err(errh, __FILE__, __LINE__, "ldap_set_option(LDAP_OPT_X_TLS_CACERTFILE)", ret); ldap_destroy(ld); return NULL; } } ret = ldap_start_tls_s(ld, NULL, NULL); if (LDAP_OPT_SUCCESS != ret) { mod_authn_ldap_err(errh,__FILE__,__LINE__,"ldap_start_tls_s()",ret); ldap_destroy(ld); return NULL; } } return ld; } static int mod_authn_ldap_bind(log_error_st *errh, LDAP *ld, const char *dn, const char *pw) { struct berval creds; int ret; if (NULL != pw) { *((const char **)&creds.bv_val) = pw; /*(cast away const)*/ creds.bv_len = strlen(pw); } else { creds.bv_val = NULL; creds.bv_len = 0; } /* RFE: add functionality: LDAP_SASL_EXTERNAL (or GSS-SPNEGO, etc.) */ ret = ldap_sasl_bind_s(ld,dn,LDAP_SASL_SIMPLE,&creds,NULL,NULL,NULL); if (ret != LDAP_SUCCESS) { mod_authn_ldap_err(errh, __FILE__, __LINE__, "ldap_sasl_bind_s()", ret); } return ret; } static int mod_authn_ldap_rebind_proc (LDAP *ld, LDAP_CONST char *url, ber_tag_t ldap_request, ber_int_t msgid, void *params) { vhostdb_config *s = (vhostdb_config *)params; UNUSED(url); UNUSED(ldap_request); UNUSED(msgid); return mod_authn_ldap_bind(s->errh, ld, s->binddn, s->bindpw); } static LDAPMessage * mod_authn_ldap_search(log_error_st *errh, vhostdb_config *s, char *base, char *filter) { LDAPMessage *lm = NULL; char *attrs[] = { LDAP_NO_ATTRS, NULL }; int ret; /* * 1. connect anonymously (if not already connected) * (ldap connection is kept open unless connection-level error occurs) * 2. issue search using filter */ if (s->ldap != NULL) { ret = ldap_search_ext_s(s->ldap, base, LDAP_SCOPE_SUBTREE, filter, attrs, 0, NULL, NULL, NULL, 0, &lm); if (LDAP_SUCCESS == ret) { return lm; } else if (LDAP_SERVER_DOWN != ret) { /* try again (or initial request); * ldap lib sometimes fails for the first call but reconnects */ ret = ldap_search_ext_s(s->ldap, base, LDAP_SCOPE_SUBTREE, filter, attrs, 0, NULL, NULL, NULL, 0, &lm); if (LDAP_SUCCESS == ret) { return lm; } } ldap_unbind_ext_s(s->ldap, NULL, NULL); } s->ldap = mod_authn_ldap_host_init(errh, s); if (NULL == s->ldap) { return NULL; } ldap_set_rebind_proc(s->ldap, mod_authn_ldap_rebind_proc, s); ret = mod_authn_ldap_bind(errh, s->ldap, s->binddn, s->bindpw); if (LDAP_SUCCESS != ret) { ldap_destroy(s->ldap); s->ldap = NULL; return NULL; } ret = ldap_search_ext_s(s->ldap, base, LDAP_SCOPE_SUBTREE, filter, attrs, 0, NULL, NULL, NULL, 0, &lm); if (LDAP_SUCCESS != ret) { log_error(errh, __FILE__, __LINE__, "ldap: %s; filter: %s", ldap_err2string(ret), filter); ldap_unbind_ext_s(s->ldap, NULL, NULL); s->ldap = NULL; return NULL; } return lm; } static void mod_vhostdb_patch_config (request_st * const r, plugin_data * const p); static int mod_vhostdb_ldap_query(request_st * const r, void *p_d, buffer *docroot) { plugin_data *p = (plugin_data *)p_d; vhostdb_config *dbconf; LDAP *ld; LDAPMessage *lm, *first; struct berval **vals; int count; char *basedn; const buffer *template; /*(reuse buffer for ldap query before generating docroot result)*/ buffer *filter = docroot; buffer_clear(filter); /*(also resets docroot (alias))*/ mod_vhostdb_patch_config(r, p); if (NULL == p->conf.vdata) return 0; /*(after resetting docroot)*/ dbconf = (vhostdb_config *)p->conf.vdata; log_error_st * const errh = r->conf.errh; dbconf->errh = errh; template = dbconf->filter; for (char *b = template->ptr, *d; *b; b = d+1) { if (NULL != (d = strchr(b, '?'))) { buffer_append_string_len(filter, b, (size_t)(d - b)); mod_authn_append_ldap_filter_escape(filter, &r->uri.authority); } else { d = template->ptr + buffer_clen(template); buffer_append_string_len(filter, b, (size_t)(d - b)); break; } } /* (cast away const for poor LDAP ldap_search_ext_s() prototype) */ *(const char **)&basedn = dbconf->basedn; /* ldap_search (synchronous; blocking) */ lm = mod_authn_ldap_search(errh, dbconf, basedn, filter->ptr); if (NULL == lm) { return -1; } /*(must be after mod_authn_ldap_search(); might reconnect)*/ ld = dbconf->ldap; count = ldap_count_entries(ld, lm); if (count > 1) { log_error(errh, __FILE__, __LINE__, "ldap: more than one record returned. " "you might have to refine the filter: %s", filter->ptr); } buffer_clear(docroot); /*(reset buffer to store result)*/ if (0 == count) { /*(no entries found)*/ ldap_msgfree(lm); return 0; } if (NULL == (first = ldap_first_entry(ld, lm))) { mod_authn_ldap_opt_err(errh,__FILE__,__LINE__,"ldap_first_entry()",ld); ldap_msgfree(lm); return -1; } if (NULL != (vals = ldap_get_values_len(ld, first, dbconf->attr))) { buffer_copy_string_len(docroot, vals[0]->bv_val, vals[0]->bv_len); ldap_value_free_len(vals); } ldap_msgfree(lm); return 0; } INIT_FUNC(mod_vhostdb_init) { static http_vhostdb_backend_t http_vhostdb_backend_ldap = { "ldap", mod_vhostdb_ldap_query, NULL }; plugin_data *p = ck_calloc(1, sizeof(*p)); /* register http_vhostdb_backend_ldap */ http_vhostdb_backend_ldap.p_d = p; http_vhostdb_backend_set(&http_vhostdb_backend_ldap); return p; } FREE_FUNC(mod_vhostdb_cleanup) { plugin_data * const p = p_d; if (NULL == p->cvlist) return; /* (init i to 0 if global context; to 1 to skip empty global context) */ for (int i = !p->cvlist[0].v.u2[1], used = p->nconfig; i < used; ++i) { config_plugin_value_t *cpv = p->cvlist + p->cvlist[i].v.u2[0]; for (; -1 != cpv->k_id; ++cpv) { if (cpv->vtype != T_CONFIG_LOCAL || NULL == cpv->v.v) continue; switch (cpv->k_id) { case 0: /* vhostdb. */ mod_vhostdb_dbconf_free(cpv->v.v); break; default: break; } } } default_cafile = NULL; } static void mod_vhostdb_merge_config_cpv(plugin_config * const pconf, const config_plugin_value_t * const cpv) { switch (cpv->k_id) { /* index into static config_plugin_keys_t cpk[] */ case 0: /* vhostdb. */ if (cpv->vtype == T_CONFIG_LOCAL) pconf->vdata = cpv->v.v; break; default:/* should not happen */ return; } } static void mod_vhostdb_merge_config(plugin_config * const pconf, const config_plugin_value_t *cpv) { do { mod_vhostdb_merge_config_cpv(pconf, cpv); } while ((++cpv)->k_id != -1); } static void mod_vhostdb_patch_config(request_st * const r, plugin_data * const p) { p->conf = p->defaults; /* copy small struct instead of memcpy() */ /*memcpy(&p->conf, &p->defaults, sizeof(plugin_config));*/ for (int i = 1, used = p->nconfig; i < used; ++i) { if (config_check_cond(r, (uint32_t)p->cvlist[i].k_id)) mod_vhostdb_merge_config(&p->conf,p->cvlist + p->cvlist[i].v.u2[0]); } } SETDEFAULTS_FUNC(mod_vhostdb_set_defaults) { static const config_plugin_keys_t cpk[] = { { CONST_STR_LEN("vhostdb.ldap"), T_CONFIG_ARRAY_KVSTRING, T_CONFIG_SCOPE_CONNECTION } ,{ NULL, 0, T_CONFIG_UNSET, T_CONFIG_SCOPE_UNSET } }; plugin_data * const p = p_d; if (!config_plugin_values_init(srv, p, cpk, "mod_vhostdb_ldap")) return HANDLER_ERROR; /* process and validate config directives * (init i to 0 if global context; to 1 to skip empty global context) */ for (int i = !p->cvlist[0].v.u2[1]; i < p->nconfig; ++i) { config_plugin_value_t *cpv = p->cvlist + p->cvlist[i].v.u2[0]; for (; -1 != cpv->k_id; ++cpv) { switch (cpv->k_id) { case 0: /* vhostdb. */ if (cpv->v.a->used) { if (0 != mod_vhostdb_dbconf_setup(srv, cpv->v.a, &cpv->v.v)) return HANDLER_ERROR; if (NULL != cpv->v.v) cpv->vtype = T_CONFIG_LOCAL; } break; default:/* should not happen */ break; } } } /* initialize p->defaults from global config context */ if (p->nconfig > 0 && p->cvlist->v.u2[1]) { const config_plugin_value_t *cpv = p->cvlist + p->cvlist->v.u2[0]; if (-1 != cpv->k_id) mod_vhostdb_merge_config(&p->defaults, cpv); } vhostdb_config * const dbconf = (vhostdb_config *)p->defaults.vdata; if (dbconf && dbconf->starttls && dbconf->cafile) { const int ret = ldap_set_option(NULL, LDAP_OPT_X_TLS_CACERTFILE, dbconf->cafile); if (LDAP_OPT_SUCCESS != ret) { mod_authn_ldap_err(srv->errh, __FILE__, __LINE__, "ldap_set_option(LDAP_OPT_X_TLS_CACERTFILE)", ret); return HANDLER_ERROR; } default_cafile = dbconf->cafile; } return HANDLER_GO_ON; } __attribute_cold__ __declspec_dllexport__ int mod_vhostdb_ldap_plugin_init (plugin *p); int mod_vhostdb_ldap_plugin_init (plugin *p) { p->version = LIGHTTPD_VERSION_ID; p->name = "vhostdb_ldap"; p->init = mod_vhostdb_init; p->cleanup = mod_vhostdb_cleanup; p->set_defaults = mod_vhostdb_set_defaults; return 0; }