source4/dsdb/repl/drepl_ridalloc.c

   1 /*
   2    Unix SMB/CIFS mplementation.
   3
   4    DSDB replication service - RID allocation code
   5
   6    Copyright (C) Andrew Tridgell 2010
   7    Copyright (C) Andrew Bartlett 2010
   8
   9    based on drepl_notify.c
  10
  11    This program is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 3 of the License, or
  14    (at your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful,
  17    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19    GNU General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 */
  25
  26 #include "includes.h"
  27 #include "ldb_module.h"
  28 #include "dsdb/samdb/samdb.h"
  29 #include "smbd/service.h"
  30 #include "dsdb/repl/drepl_service.h"
  31 #include "param/param.h"
  32
  33
  34 /*
  35   create the RID manager source dsa structure
  36  */
  37 static WERROR drepl_create_rid_manager_source_dsa(struct dreplsrv_service *service,
  38                                                   struct ldb_dn *rid_manager_dn, struct ldb_dn *fsmo_role_dn)
  39 {
  40         struct dreplsrv_partition_source_dsa *sdsa;
  41         struct ldb_context *ldb = service->samdb;
  42         int ret;
  43         WERROR werr;
  44
  45         sdsa = talloc_zero(service, struct dreplsrv_partition_source_dsa);
  46         W_ERROR_HAVE_NO_MEMORY(sdsa);
  47
  48         sdsa->partition = talloc_zero(sdsa, struct dreplsrv_partition);
  49         if (!sdsa->partition) {
  50                 talloc_free(sdsa);
  51                 return WERR_NOMEM;
  52         }
  53
  54         sdsa->partition->dn = ldb_get_default_basedn(ldb);
  55         sdsa->partition->nc.dn = ldb_dn_alloc_linearized(sdsa->partition, rid_manager_dn);
  56         ret = dsdb_find_guid_by_dn(ldb, rid_manager_dn, &sdsa->partition->nc.guid);
  57         if (ret != LDB_SUCCESS) {
  58                 DEBUG(0,(__location__ ": Failed to find GUID for %s\n",
  59                          ldb_dn_get_linearized(rid_manager_dn)));
  60                 talloc_free(sdsa);
  61                 return WERR_DS_DRA_INTERNAL_ERROR;
  62         }
  63
  64         sdsa->repsFrom1 = &sdsa->_repsFromBlob.ctr.ctr1;
  65         ret = dsdb_find_guid_attr_by_dn(ldb, fsmo_role_dn, "objectGUID", &sdsa->repsFrom1->source_dsa_obj_guid);
  66         if (ret != LDB_SUCCESS) {
  67                 DEBUG(0,(__location__ ": Failed to find objectGUID for %s\n",
  68                          ldb_dn_get_linearized(fsmo_role_dn)));
  69                 talloc_free(sdsa);
  70                 return WERR_DS_DRA_INTERNAL_ERROR;
  71         }
  72
  73         sdsa->repsFrom1->other_info = talloc_zero(sdsa, struct repsFromTo1OtherInfo);
  74         if (!sdsa->repsFrom1->other_info) {
  75                 talloc_free(sdsa);
  76                 return WERR_NOMEM;
  77         }
  78
  79         sdsa->repsFrom1->other_info->dns_name =
  80                 talloc_asprintf(sdsa->repsFrom1->other_info, "%s._msdcs.%s",
  81                                 GUID_string(sdsa->repsFrom1->other_info, &sdsa->repsFrom1->source_dsa_obj_guid),
  82                                 lpcfg_dnsdomain(service->task->lp_ctx));
  83         if (!sdsa->repsFrom1->other_info->dns_name) {
  84                 talloc_free(sdsa);
  85                 return WERR_NOMEM;
  86         }
  87
  88
  89         werr = dreplsrv_out_connection_attach(service, sdsa->repsFrom1, &sdsa->conn);
  90         if (!W_ERROR_IS_OK(werr)) {
  91                 DEBUG(0,(__location__ ": Failed to attach to RID manager connection\n"));
  92                 talloc_free(sdsa);
  93                 return werr;
  94         }
  95
  96         service->ridalloc.rid_manager_source_dsa = sdsa;
  97         return WERR_OK;
  98 }
  99
 100 /*
 101   called when a rid allocation request has completed
 102  */
 103 static void drepl_new_rid_pool_callback(struct dreplsrv_service *service,
 104                                         WERROR werr,
 105                                         enum drsuapi_DsExtendedError ext_err)
 106 {
 107         if (!W_ERROR_IS_OK(werr)) {
 108                 DEBUG(0,(__location__ ": RID Manager failed RID allocation - %s - extended_ret[0x%X]\n",
 109                          win_errstr(werr), ext_err));
 110         } else {
 111                 DEBUG(3,(__location__ ": RID Manager completed RID allocation OK\n"));
 112         }
 113
 114         /* don't keep the connection open to the RID Manager */
 115         talloc_free(service->ridalloc.rid_manager_source_dsa);
 116         service->ridalloc.rid_manager_source_dsa = NULL;
 117
 118         service->ridalloc.in_progress = false;
 119 }
 120
 121 /*
 122   schedule a getncchanges request to the RID Manager to ask for a new
 123   set of RIDs using DRSUAPI_EXOP_FSMO_RID_ALLOC
 124  */
 125 static WERROR drepl_request_new_rid_pool(struct dreplsrv_service *service,
 126                                          struct ldb_dn *rid_manager_dn, struct ldb_dn *fsmo_role_dn,
 127                                          uint64_t alloc_pool)
 128 {
 129         WERROR werr;
 130
 131         if (service->ridalloc.rid_manager_source_dsa == NULL) {
 132                 /* we need to establish a connection to the RID
 133                    Manager */
 134                 werr = drepl_create_rid_manager_source_dsa(service, rid_manager_dn, fsmo_role_dn);
 135                 W_ERROR_NOT_OK_RETURN(werr);
 136         }
 137
 138         service->ridalloc.in_progress = true;
 139
 140         werr = dreplsrv_schedule_partition_pull_source(service, service->ridalloc.rid_manager_source_dsa,
 141                                                        DRSUAPI_EXOP_FSMO_RID_ALLOC, alloc_pool,
 142                                                        drepl_new_rid_pool_callback);
 143         return werr;
 144 }
 145
 146
 147 /*
 148   see if we are on the last pool we have
 149  */
 150 static int drepl_ridalloc_pool_exhausted(struct ldb_context *ldb,
 151                                          bool *exhausted,
 152                                          uint64_t *_alloc_pool)
 153 {
 154         struct ldb_dn *server_dn, *machine_dn, *rid_set_dn;
 155         TALLOC_CTX *tmp_ctx = talloc_new(ldb);
 156         uint64_t alloc_pool;
 157         uint64_t prev_pool;
 158         uint32_t prev_pool_lo, prev_pool_hi;
 159         uint32_t next_rid;
 160         static const char * const attrs[] = {
 161                 "rIDAllocationPool",
 162                 "rIDPreviousAllocationPool",
 163                 "rIDNextRid",
 164                 NULL
 165         };
 166         int ret;
 167         struct ldb_result *res;
 168
 169         *exhausted = false;
 170         *_alloc_pool = UINT64_MAX;
 171
 172         server_dn = ldb_dn_get_parent(tmp_ctx, samdb_ntds_settings_dn(ldb));
 173         if (!server_dn) {
 174                 talloc_free(tmp_ctx);
 175                 return ldb_operr(ldb);
 176         }
 177
 178         ret = samdb_reference_dn(ldb, tmp_ctx, server_dn, "serverReference", &machine_dn);
 179         if (ret != LDB_SUCCESS) {
 180                 DEBUG(0,(__location__ ": Failed to find serverReference in %s - %s",
 181                          ldb_dn_get_linearized(server_dn), ldb_errstring(ldb)));
 182                 talloc_free(tmp_ctx);
 183                 return ret;
 184         }
 185
 186         ret = samdb_reference_dn(ldb, tmp_ctx, machine_dn, "rIDSetReferences", &rid_set_dn);
 187         if (ret == LDB_ERR_NO_SUCH_ATTRIBUTE) {
 188                 *exhausted = true;
 189                 *_alloc_pool = 0;
 190                 talloc_free(tmp_ctx);
 191                 return LDB_SUCCESS;
 192         }
 193         if (ret != LDB_SUCCESS) {
 194                 DEBUG(0,(__location__ ": Failed to find rIDSetReferences in %s - %s",
 195                          ldb_dn_get_linearized(machine_dn), ldb_errstring(ldb)));
 196                 talloc_free(tmp_ctx);
 197                 return ret;
 198         }
 199
 200         ret = ldb_search(ldb, tmp_ctx, &res, rid_set_dn, LDB_SCOPE_BASE, attrs, NULL);
 201         if (ret != LDB_SUCCESS) {
 202                 DEBUG(0,(__location__ ": Failed to load RID Set attrs from %s - %s",
 203                          ldb_dn_get_linearized(rid_set_dn), ldb_errstring(ldb)));
 204                 talloc_free(tmp_ctx);
 205                 return ret;
 206         }
 207
 208         alloc_pool = ldb_msg_find_attr_as_uint64(res->msgs[0], "rIDAllocationPool", 0);
 209         prev_pool = ldb_msg_find_attr_as_uint64(res->msgs[0], "rIDPreviousAllocationPool", 0);
 210         prev_pool_lo = prev_pool & 0xFFFFFFFF;
 211         prev_pool_hi = prev_pool >> 32;
 212         next_rid = ldb_msg_find_attr_as_uint(res->msgs[0], "rIDNextRid", 0);
 213
 214         if (alloc_pool != prev_pool) {
 215                 talloc_free(tmp_ctx);
 216                 return LDB_SUCCESS;
 217         }
 218
 219         if (next_rid < (prev_pool_hi + prev_pool_lo)/2) {
 220                 talloc_free(tmp_ctx);
 221                 return LDB_SUCCESS;
 222         }
 223
 224         *exhausted = true;
 225         *_alloc_pool = alloc_pool;
 226         talloc_free(tmp_ctx);
 227         return LDB_SUCCESS;
 228 }
 229
 230
 231 /*
 232   see if we are low on RIDs in the RID Set rIDAllocationPool. If we
 233   are, then schedule a replication call with DRSUAPI_EXOP_FSMO_RID_ALLOC
 234   to the RID Manager
 235  */
 236 WERROR dreplsrv_ridalloc_check_rid_pool(struct dreplsrv_service *service)
 237 {
 238         struct ldb_dn *rid_manager_dn, *fsmo_role_dn;
 239         TALLOC_CTX *tmp_ctx = talloc_new(service);
 240         struct ldb_context *ldb = service->samdb;
 241         bool exhausted;
 242         WERROR werr;
 243         int ret;
 244         uint64_t alloc_pool;
 245
 246         if (service->ridalloc.in_progress) {
 247                 talloc_free(tmp_ctx);
 248                 return WERR_OK;
 249         }
 250
 251         /*
 252           steps:
 253             - find who the RID Manager is
 254             - if we are the RID Manager then nothing to do
 255             - find our RID Set object
 256             - load rIDAllocationPool and rIDPreviousAllocationPool
 257             - if rIDAllocationPool != rIDPreviousAllocationPool then
 258               nothing to do
 259             - schedule a getncchanges with DRSUAPI_EXOP_FSMO_RID_ALLOC
 260               to the RID Manager
 261          */
 262
 263         /* work out who is the RID Manager */
 264         ret = samdb_rid_manager_dn(ldb, tmp_ctx, &rid_manager_dn);
 265         if (ret != LDB_SUCCESS) {
 266                 DEBUG(0, (__location__ ": Failed to find RID Manager object - %s", ldb_errstring(ldb)));
 267                 talloc_free(tmp_ctx);
 268                 return WERR_DS_DRA_INTERNAL_ERROR;
 269         }
 270
 271         /* find the DN of the RID Manager */
 272         ret = samdb_reference_dn(ldb, tmp_ctx, rid_manager_dn, "fSMORoleOwner", &fsmo_role_dn);
 273         if (ret != LDB_SUCCESS) {
 274                 DEBUG(0,(__location__ ": Failed to find fSMORoleOwner in RID Manager object - %s",
 275                          ldb_errstring(ldb)));
 276                 talloc_free(tmp_ctx);
 277                 return WERR_DS_DRA_INTERNAL_ERROR;
 278         }
 279
 280         if (ldb_dn_compare(samdb_ntds_settings_dn(ldb), fsmo_role_dn) == 0) {
 281                 /* we are the RID Manager - no need to do a
 282                    DRSUAPI_EXOP_FSMO_RID_ALLOC */
 283                 talloc_free(tmp_ctx);
 284                 return WERR_OK;
 285         }
 286
 287         ret = drepl_ridalloc_pool_exhausted(ldb, &exhausted, &alloc_pool);
 288         if (ret != LDB_SUCCESS) {
 289                 talloc_free(tmp_ctx);
 290                 return WERR_DS_DRA_INTERNAL_ERROR;
 291         }
 292
 293         if (!exhausted) {
 294                 /* don't need a new pool */
 295                 talloc_free(tmp_ctx);
 296                 return WERR_OK;
 297         }
 298
 299         DEBUG(2,(__location__ ": Requesting more RIDs from RID Manager\n"));
 300
 301         werr = drepl_request_new_rid_pool(service, rid_manager_dn, fsmo_role_dn, alloc_pool);
 302         talloc_free(tmp_ctx);
 303         return werr;
 304 }
 305
 306 /* called by the samldb ldb module to tell us to ask for a new RID
 307    pool */
 308 void dreplsrv_allocate_rid(struct messaging_context *msg, void *private_data,
 309                            uint32_t msg_type,
 310                            struct server_id server_id, DATA_BLOB *data)
 311 {
 312         struct dreplsrv_service *service = talloc_get_type(private_data, struct dreplsrv_service);
 313         dreplsrv_ridalloc_check_rid_pool(service);
 314 }