/*
Unix SMB/CIFS implementation.
async sids2xids
Copyright (C) Volker Lendecke 2011
Copyright (C) Michael Adam 2012
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see .
*/
#include "includes.h"
#include "winbindd.h"
#include "../libcli/security/security.h"
#include "idmap_cache.h"
#include "librpc/gen_ndr/ndr_winbind_c.h"
#include "librpc/gen_ndr/ndr_netlogon.h"
#include "lsa.h"
struct wb_sids2xids_state {
struct tevent_context *ev;
const struct wb_parent_idmap_config *cfg;
struct dom_sid *sids;
uint32_t num_sids;
struct wbint_TransIDArray all_ids;
/* Used to translated the idx back into all_ids.ids[idx] */
uint32_t *tmp_idx;
uint32_t lookup_count;
struct dom_sid *lookup_sids;
struct wbint_TransIDArray map_ids_in;
struct wbint_TransIDArray map_ids_out;
/*
* Domain array to use for the idmap call. The output from
* lookupsids cannot be used directly since for migrated
* objects the returned domain SID can be different than the
* original one. The new domain SID cannot be combined with
* the RID from the previous domain.
*
* The proper way would be asking for the correct RID in the
* new domain, but this approach avoids id mappings for
* invalid SIDs.
*/
struct lsa_RefDomainList idmap_doms;
uint32_t dom_index;
struct lsa_RefDomainList idmap_dom;
bool tried_dclookup;
};
static void wb_sids2xids_idmap_setup_done(struct tevent_req *subreq);
static bool wb_sids2xids_in_cache(struct dom_sid *sid, struct id_map *map);
static void wb_sids2xids_lookupsids_done(struct tevent_req *subreq);
static void wb_sids2xids_done(struct tevent_req *subreq);
static void wb_sids2xids_gotdc(struct tevent_req *subreq);
static void wb_sids2xids_next_sids2unix(struct tevent_req *req);
static enum id_type lsa_SidType_to_id_type(const enum lsa_SidType sid_type);
struct tevent_req *wb_sids2xids_send(TALLOC_CTX *mem_ctx,
struct tevent_context *ev,
const struct dom_sid *sids,
const uint32_t num_sids)
{
struct tevent_req *req, *subreq;
struct wb_sids2xids_state *state;
uint32_t i;
uint32_t num_valid = 0;
req = tevent_req_create(mem_ctx, &state,
struct wb_sids2xids_state);
if (req == NULL) {
return NULL;
}
D_INFO("WB command sids2xids start.\n"
"Resolving %"PRIu32" SID(s).\n", num_sids);
state->ev = ev;
state->num_sids = num_sids;
state->sids = talloc_zero_array(state, struct dom_sid, num_sids);
if (tevent_req_nomem(state->sids, req)) {
return tevent_req_post(req, ev);
}
for (i = 0; i < num_sids; i++) {
sid_copy(&state->sids[i], &sids[i]);
}
state->all_ids.num_ids = num_sids;
state->all_ids.ids = talloc_zero_array(state, struct wbint_TransID, num_sids);
if (tevent_req_nomem(state->all_ids.ids, req)) {
return tevent_req_post(req, ev);
}
state->tmp_idx = talloc_zero_array(state, uint32_t, num_sids);
if (tevent_req_nomem(state->tmp_idx, req)) {
return tevent_req_post(req, ev);
}
state->lookup_sids = talloc_zero_array(state, struct dom_sid, num_sids);
if (tevent_req_nomem(state->lookup_sids, req)) {
return tevent_req_post(req, ev);
}
state->map_ids_in.ids = talloc_zero_array(state, struct wbint_TransID, num_sids);
if (tevent_req_nomem(state->map_ids_in.ids, req)) {
return tevent_req_post(req, ev);
}
/*
* Extract those sids that can not be resolved from cache
* into a separate list to be handed to id mapping, keeping
* the same index.
*/
for (i=0; inum_sids; i++) {
struct wbint_TransID *cur_id = &state->all_ids.ids[i];
struct dom_sid domain_sid;
struct dom_sid_buf buf;
struct id_map map = { .status = ID_UNMAPPED, };
uint32_t rid = 0;
bool in_cache;
sid_copy(&domain_sid, &state->sids[i]);
sid_split_rid(&domain_sid, &rid);
/*
* Start with an invalid entry.
*/
*cur_id = (struct wbint_TransID) {
.type_hint = ID_TYPE_NOT_SPECIFIED,
.domain_index = UINT32_MAX - 1, /* invalid */
.rid = rid,
.xid = {
.id = UINT32_MAX,
.type = ID_TYPE_NOT_SPECIFIED,
},
};
D_DEBUG("%"PRIu32": SID %s\n",
i, dom_sid_str_buf(&state->sids[i], &buf));
in_cache = wb_sids2xids_in_cache(&state->sids[i], &map);
if (in_cache) {
/*
* We used to ignore map.status and just rely
* on map.xid.type.
*
* Lets keep this logic for now...
*/
cur_id->xid = map.xid;
cur_id->domain_index = UINT32_MAX; /* this marks it as filled entry */
num_valid += 1;
continue;
}
}
D_DEBUG("Found %"PRIu32" (out of %"PRIu32") SID(s) in cache.\n",
num_valid, num_sids);
if (num_valid == num_sids) {
tevent_req_done(req);
return tevent_req_post(req, ev);
}
subreq = wb_parent_idmap_setup_send(state, state->ev);
if (tevent_req_nomem(subreq, req)) {
return tevent_req_post(req, ev);
}
tevent_req_set_callback(subreq, wb_sids2xids_idmap_setup_done, req);
return req;
}
static void wb_sids2xids_idmap_setup_done(struct tevent_req *subreq)
{
struct tevent_req *req = tevent_req_callback_data(
subreq, struct tevent_req);
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
NTSTATUS status;
uint32_t i;
status = wb_parent_idmap_setup_recv(subreq, &state->cfg);
TALLOC_FREE(subreq);
if (tevent_req_nterror(req, status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return;
}
SMB_ASSERT(state->cfg->num_doms > 0);
D_DEBUG("We will loop over %"PRIu32" SID(s) (skipping those already resolved via cache) and over %"PRIu32" domain(s).\n",
state->num_sids,
state->cfg->num_doms);
/*
* Now we build a list with all domain
* with non cached entries
*/
for (i=0; inum_sids; i++) {
struct wbint_TransID *t = &state->all_ids.ids[i];
struct dom_sid domain_sid;
const char *domain_name = NULL;
int domain_index;
uint32_t rid = 0;
uint32_t di;
struct dom_sid_buf buf0, buf1;
D_DEBUG("%"PRIu32": Processing SID %s\n",
i,
dom_sid_str_buf(&state->sids[i], &buf0));
if (t->domain_index == UINT32_MAX) {
/* ignore already filled entries */
D_DEBUG("%"PRIu32": Ignoring already resolved SID %s\n",
i,
dom_sid_str_buf(&state->sids[i], &buf0));
continue;
}
sid_copy(&domain_sid, &state->sids[i]);
sid_split_rid(&domain_sid, &rid);
D_DEBUG("%"PRIu32": Split SID %s into domain SID %s and RID %"PRIu32"\n",
i,
dom_sid_str_buf(&state->sids[i], &buf0),
dom_sid_str_buf(&domain_sid, &buf1),
rid);
if (t->type_hint == ID_TYPE_NOT_SPECIFIED) {
const char *tmp_name = NULL;
enum lsa_SidType sid_type = SID_NAME_USE_NONE;
const struct dom_sid *tmp_authority_sid = NULL;
const char *tmp_authority_name = NULL;
/*
* Try to get a type hint from for predefined sids
*/
status = dom_sid_lookup_predefined_sid(&state->sids[i],
&tmp_name,
&sid_type,
&tmp_authority_sid,
&tmp_authority_name);
if (NT_STATUS_IS_OK(status)) {
t->type_hint = lsa_SidType_to_id_type(sid_type);
D_DEBUG("Got a type hint: %d from predefined SID.\n",
t->type_hint);
}
}
D_DEBUG("Looping over %"PRIu32" domain(s) to find domain SID %s.\n",
state->cfg->num_doms,
dom_sid_str_buf(&domain_sid, &buf0));
for (di = 0; di < state->cfg->num_doms; di++) {
struct wb_parent_idmap_config_dom *dom =
&state->cfg->doms[di];
bool match;
match = dom_sid_equal(&domain_sid, &dom->sid);
if (!match) {
continue;
}
domain_name = dom->name;
D_DEBUG("Found domain '%s'.\n", domain_name);
break;
}
if (domain_name == NULL) {
struct winbindd_domain *wb_domain = NULL;
D_DEBUG("Could not find a domain for domain SID %s. Trying to fill the domain name from list of known domains.\n",
dom_sid_str_buf(&domain_sid, &buf0));
/*
* Try to fill the name if we already know it
*/
wb_domain = find_domain_from_sid_noinit(&state->sids[i]);
if (wb_domain != NULL) {
domain_name = wb_domain->name;
D_DEBUG("Found domain '%s' in list of known domains.\n", domain_name);
}
}
if (domain_name == NULL) {
domain_name = "";
D_DEBUG("Not found domain in list of known domains, setting empty domain name.\n");
}
if (t->type_hint == ID_TYPE_NOT_SPECIFIED) {
if (domain_name[0] != '\0') {
/*
* We know the domain, we indicate this
* by passing ID_TYPE_BOTH as a hint
*
* Maybe that's already enough for the backend
*/
t->type_hint = ID_TYPE_BOTH;
D_DEBUG("Setting type hint ID_TYPE_BOTH for domain '%s'.\n", domain_name);
}
}
domain_index = init_lsa_ref_domain_list(state,
&state->idmap_doms,
domain_name,
&domain_sid);
if (domain_index == -1) {
tevent_req_oom(req);
return;
}
t->domain_index = domain_index;
}
/*
* We defer lookupsids because it requires domain controller
* interaction.
*
* First we ask the idmap child without explicit type hints.
* In most cases mappings already exist in the backend and
* a type_hint is not needed.
*/
wb_sids2xids_next_sids2unix(req);
}
static bool wb_sids2xids_in_cache(struct dom_sid *sid, struct id_map *map)
{
struct unixid id;
bool expired;
if (!winbindd_use_idmap_cache()) {
return false;
}
if (idmap_cache_find_sid2unixid(sid, &id, &expired)) {
if (expired && is_domain_online(find_our_domain())) {
return false;
}
map->sid = sid;
map->xid = id;
map->status = ID_MAPPED;
return true;
}
return false;
}
static void wb_sids2xids_lookupsids_done(struct tevent_req *subreq)
{
struct tevent_req *req = tevent_req_callback_data(
subreq, struct tevent_req);
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
struct lsa_RefDomainList *domains = NULL;
struct lsa_TransNameArray *names = NULL;
NTSTATUS status;
uint32_t li;
status = wb_lookupsids_recv(subreq, state, &domains, &names);
TALLOC_FREE(subreq);
if (tevent_req_nterror(req, status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return;
}
if (domains == NULL) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Failed with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
if (names == NULL) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Failed with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
for (li = 0; li < state->lookup_count; li++) {
struct lsa_TranslatedName *n = &names->names[li];
uint32_t ai = state->tmp_idx[li];
struct wbint_TransID *t = &state->all_ids.ids[ai];
enum id_type type_hint;
type_hint = lsa_SidType_to_id_type(n->sid_type);
if (type_hint != ID_TYPE_NOT_SPECIFIED) {
/*
* We know it's a valid user or group.
*/
t->type_hint = type_hint;
continue;
}
if (n->sid_index == UINT32_MAX) {
/*
* The domain is not known, there's
* no point to try mapping again.
* mark is done and add a negative cache
* entry.
*/
t->domain_index = UINT32_MAX; /* mark as valid */
idmap_cache_set_sid2unixid(&state->sids[ai], &t->xid);
continue;
}
if (n->sid_index >= domains->count) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Failed with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
if (domains->domains[n->sid_index].name.string == NULL) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Failed with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
if (domains->domains[n->sid_index].sid == NULL) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Failed with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
if (t->type_hint != ID_TYPE_NOT_SPECIFIED) {
/*
* We already tried with a type hint there's
* no point to try mapping again with ID_TYPE_BOTH.
*
* Mark is done and add a negative cache entry.
*/
t->domain_index = UINT32_MAX; /* mark as valid */
idmap_cache_set_sid2unixid(&state->sids[ai], &t->xid);
continue;
}
/*
* We only know the domain exists, but the user doesn't
*/
t->type_hint = ID_TYPE_BOTH;
}
TALLOC_FREE(names);
TALLOC_FREE(domains);
/*
* Now that we have type_hints for the remaining sids,
* we need to restart with the first domain.
*/
state->dom_index = 0;
wb_sids2xids_next_sids2unix(req);
}
static void wb_sids2xids_next_sids2unix(struct tevent_req *req)
{
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
struct tevent_req *subreq = NULL;
struct dcerpc_binding_handle *child_binding_handle = NULL;
const struct wbint_TransIDArray *src = NULL;
struct wbint_TransIDArray *dst = NULL;
uint32_t si;
next_domain:
state->tried_dclookup = false;
D_DEBUG("Processing next domain (dom_index=%"PRIu32", idmap_doms.count=%"PRIu32", lookup_count=%"PRIu32").\n",
state->dom_index,
state->idmap_doms.count,
state->lookup_count);
if (state->dom_index == state->idmap_doms.count) {
if (state->lookup_count != 0) {
/*
* We already called wb_lookupsids_send()
* before, so we're done.
*/
D_DEBUG("We already called wb_lookupsids_send() before, so we're done.\n");
tevent_req_done(req);
return;
}
for (si=0; si < state->num_sids; si++) {
struct wbint_TransID *t = &state->all_ids.ids[si];
if (t->domain_index == UINT32_MAX) {
/* ignore already filled entries */
continue;
}
state->tmp_idx[state->lookup_count] = si;
sid_copy(&state->lookup_sids[state->lookup_count],
&state->sids[si]);
state->lookup_count += 1;
}
D_DEBUG("Prepared %"PRIu32" SID(s) for lookup wb_lookupsids_send().\n",
state->lookup_count);
if (state->lookup_count == 0) {
/*
* no wb_lookupsids_send() needed...
*/
tevent_req_done(req);
return;
}
subreq = wb_lookupsids_send(state,
state->ev,
state->lookup_sids,
state->lookup_count);
if (tevent_req_nomem(subreq, req)) {
return;
}
tevent_req_set_callback(subreq, wb_sids2xids_lookupsids_done, req);
return;
}
src = &state->all_ids;
dst = &state->map_ids_in;
dst->num_ids = 0;
for (si=0; si < src->num_ids; si++) {
if (src->ids[si].domain_index != state->dom_index) {
continue;
}
state->tmp_idx[dst->num_ids] = si;
dst->ids[dst->num_ids] = src->ids[si];
dst->ids[dst->num_ids].domain_index = 0;
dst->num_ids += 1;
}
if (dst->num_ids == 0) {
state->dom_index += 1;
D_DEBUG("Go to next domain.\n");
goto next_domain;
}
state->idmap_dom = (struct lsa_RefDomainList) {
.count = 1,
.domains = &state->idmap_doms.domains[state->dom_index],
.max_size = 1
};
/*
* dcerpc_wbint_Sids2UnixIDs_send/recv will
* allocate a new array for the response
* and overwrite _ids->ids pointer.
*
* So we better make a temporary copy
* of state->map_ids_in (which contains the request array)
* into state->map_ids_out.
*
* That makes it possible to reuse the pre-allocated
* state->map_ids_in.ids array.
*/
state->map_ids_out = state->map_ids_in;
child_binding_handle = idmap_child_handle();
subreq = dcerpc_wbint_Sids2UnixIDs_send(
state, state->ev, child_binding_handle, &state->idmap_dom,
&state->map_ids_out);
if (tevent_req_nomem(subreq, req)) {
return;
}
tevent_req_set_callback(subreq, wb_sids2xids_done, req);
}
static enum id_type lsa_SidType_to_id_type(const enum lsa_SidType sid_type)
{
enum id_type type;
switch(sid_type) {
case SID_NAME_COMPUTER:
case SID_NAME_USER:
type = ID_TYPE_UID;
break;
case SID_NAME_DOM_GRP:
case SID_NAME_ALIAS:
case SID_NAME_WKN_GRP:
type = ID_TYPE_GID;
break;
default:
type = ID_TYPE_NOT_SPECIFIED;
break;
}
return type;
}
static void wb_sids2xids_done(struct tevent_req *subreq)
{
struct tevent_req *req = tevent_req_callback_data(
subreq, struct tevent_req);
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
NTSTATUS status, result;
const struct wbint_TransIDArray *src = NULL;
struct wbint_TransIDArray *dst = NULL;
uint32_t si;
status = dcerpc_wbint_Sids2UnixIDs_recv(subreq, state, &result);
TALLOC_FREE(subreq);
if (tevent_req_nterror(req, status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return;
}
if (NT_STATUS_EQUAL(result, NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND) &&
!state->tried_dclookup) {
struct lsa_DomainInfo *d;
D_DEBUG("Domain controller not found. Calling wb_dsgetdcname_send() to get it.\n");
d = &state->idmap_doms.domains[state->dom_index];
subreq = wb_dsgetdcname_send(
state, state->ev, d->name.string, NULL, NULL,
DS_RETURN_DNS_NAME);
if (tevent_req_nomem(subreq, req)) {
return;
}
tevent_req_set_callback(subreq, wb_sids2xids_gotdc, req);
return;
}
src = &state->map_ids_out;
dst = &state->all_ids;
if (any_nt_status_not_ok(status, result, &status)) {
D_DEBUG("Either status %s or result %s is not ok. Report SIDs as not mapped.\n",
nt_errstr(status),
nt_errstr(result));
/*
* All we can do here is to report "not mapped"
*/
src = &state->map_ids_in;
for (si=0; si < src->num_ids; si++) {
src->ids[si].xid.type = ID_TYPE_NOT_SPECIFIED;
}
}
if (src->num_ids != state->map_ids_in.num_ids) {
tevent_req_nterror(req, NT_STATUS_INTERNAL_ERROR);
D_WARNING("Number of mapped SIDs does not match. Failing with NT_STATUS_INTERNAL_ERROR.\n");
return;
}
for (si=0; si < src->num_ids; si++) {
uint32_t di = state->tmp_idx[si];
if (src->ids[si].xid.type == ID_TYPE_WB_REQUIRE_TYPE) {
if (state->lookup_count == 0) {
D_DEBUG("The backend asks for more information (a type_hint), we'll do a lookupsids later.\n");
/*
* The backend asks for more information
* (a type_hint), we'll do a lookupsids
* later.
*/
continue;
}
/*
* lookupsids was not able to provide a type_hint that
* satisfied the backend.
*
* Make sure we don't expose ID_TYPE_WB_REQUIRE_TYPE
* outside of winbindd!
*/
D_DEBUG("lookupsids was not able to provide a type_hint that satisfied the backend. Make sure we don't expose ID_TYPE_WB_REQUIRE_TYPE outside of winbindd!\n");
src->ids[si].xid.type = ID_TYPE_NOT_SPECIFIED;
}
if (src->ids[si].xid.type != ID_TYPE_NOT_SPECIFIED) {
dst->ids[di].xid = src->ids[si].xid;
D_DEBUG("%"PRIu32": Setting XID %"PRIu32"\n",
si, src->ids[si].xid.id);
}
dst->ids[di].domain_index = UINT32_MAX; /* mark as valid */
idmap_cache_set_sid2unixid(&state->sids[di], &dst->ids[di].xid);
}
state->map_ids_in.num_ids = 0;
if (NT_STATUS_IS_OK(status)) {
/*
* If we got a valid response, we expect
* state->map_ids_out.ids to be a new allocated
* array, which we want to free early.
*/
SMB_ASSERT(state->map_ids_out.ids != state->map_ids_in.ids);
TALLOC_FREE(state->map_ids_out.ids);
}
state->map_ids_out = (struct wbint_TransIDArray) { .num_ids = 0, };
state->dom_index += 1;
wb_sids2xids_next_sids2unix(req);
}
static void wb_sids2xids_gotdc(struct tevent_req *subreq)
{
struct tevent_req *req = tevent_req_callback_data(
subreq, struct tevent_req);
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
struct dcerpc_binding_handle *child_binding_handle = NULL;
struct netr_DsRGetDCNameInfo *dcinfo;
NTSTATUS status;
status = wb_dsgetdcname_recv(subreq, state, &dcinfo);
TALLOC_FREE(subreq);
if (tevent_req_nterror(req, status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return;
}
state->tried_dclookup = true;
{
struct lsa_DomainInfo *d =
&state->idmap_doms.domains[state->dom_index];
const char *dom_name = d->name.string;
status = wb_dsgetdcname_gencache_set(dom_name, dcinfo);
if (tevent_req_nterror(req, status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return;
}
}
/*
* dcerpc_wbint_Sids2UnixIDs_send/recv will
* allocate a new array for the response
* and overwrite _ids->ids pointer.
*
* So we better make a temporary copy
* of state->map_ids_in (which contains the request array)
* into state->map_ids_out.
*
* That makes it possible to reuse the pre-allocated
* state->map_ids_in.ids array.
*/
state->map_ids_out = state->map_ids_in;
child_binding_handle = idmap_child_handle();
subreq = dcerpc_wbint_Sids2UnixIDs_send(
state, state->ev, child_binding_handle, &state->idmap_dom,
&state->map_ids_out);
if (tevent_req_nomem(subreq, req)) {
return;
}
tevent_req_set_callback(subreq, wb_sids2xids_done, req);
}
NTSTATUS wb_sids2xids_recv(struct tevent_req *req,
struct unixid xids[], uint32_t num_xids)
{
struct wb_sids2xids_state *state = tevent_req_data(
req, struct wb_sids2xids_state);
NTSTATUS status;
uint32_t i;
if (tevent_req_is_nterror(req, &status)) {
D_WARNING("Failed with %s.\n", nt_errstr(status));
return status;
}
if (num_xids != state->num_sids) {
D_WARNING("Error. We have resolved only %"PRIu32" XID(s), but caller asked for %"PRIu32".\n",
state->num_sids, num_xids);
return NT_STATUS_INTERNAL_ERROR;
}
D_INFO("WB command sids2xids end.\n");
for (i=0; inum_sids; i++) {
struct dom_sid_buf buf;
xids[i] = state->all_ids.ids[i].xid;
D_INFO("%"PRIu32": Found XID %"PRIu32" for SID %s\n",
i,
xids[i].id,
dom_sid_str_buf(&state->sids[i], &buf));
}
return NT_STATUS_OK;
}