source3/libsmb/dsgetdcname.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    dsgetdcname
   5
   6    Copyright (C) Gerald Carter 2006
   7    Copyright (C) Guenther Deschner 2007-2008
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 #include "includes.h"
  24
  25 #define DSGETDCNAME_FMT "DSGETDCNAME/DOMAIN/%s"
  26 /* 15 minutes */
  27 #define DSGETDCNAME_CACHE_TTL   60*15
  28
  29 struct ip_service_name {
  30         struct sockaddr_storage ss;
  31         unsigned port;
  32         const char *hostname;
  33 };
  34
  35 static NTSTATUS make_dc_info_from_cldap_reply(TALLOC_CTX *mem_ctx,
  36                                               uint32_t flags,
  37                                               struct sockaddr_storage *ss,
  38                                               struct NETLOGON_SAM_LOGON_RESPONSE_EX *r,
  39                                               struct netr_DsRGetDCNameInfo **info);
  40
  41 /****************************************************************
  42 ****************************************************************/
  43
  44 void debug_dsdcinfo_flags(int lvl, uint32_t flags)
  45 {
  46         DEBUG(lvl,("debug_dsdcinfo_flags: 0x%08x\n\t", flags));
  47
  48         if (flags & DS_FORCE_REDISCOVERY)
  49                 DEBUGADD(lvl,("DS_FORCE_REDISCOVERY "));
  50         if (flags & 0x000000002)
  51                 DEBUGADD(lvl,("0x00000002 "));
  52         if (flags & 0x000000004)
  53                 DEBUGADD(lvl,("0x00000004 "));
  54         if (flags & 0x000000008)
  55                 DEBUGADD(lvl,("0x00000008 "));
  56         if (flags & DS_DIRECTORY_SERVICE_REQUIRED)
  57                 DEBUGADD(lvl,("DS_DIRECTORY_SERVICE_REQUIRED "));
  58         if (flags & DS_DIRECTORY_SERVICE_PREFERRED)
  59                 DEBUGADD(lvl,("DS_DIRECTORY_SERVICE_PREFERRED "));
  60         if (flags & DS_GC_SERVER_REQUIRED)
  61                 DEBUGADD(lvl,("DS_GC_SERVER_REQUIRED "));
  62         if (flags & DS_PDC_REQUIRED)
  63                 DEBUGADD(lvl,("DS_PDC_REQUIRED "));
  64         if (flags & DS_BACKGROUND_ONLY)
  65                 DEBUGADD(lvl,("DS_BACKGROUND_ONLY "));
  66         if (flags & DS_IP_REQUIRED)
  67                 DEBUGADD(lvl,("DS_IP_REQUIRED "));
  68         if (flags & DS_KDC_REQUIRED)
  69                 DEBUGADD(lvl,("DS_KDC_REQUIRED "));
  70         if (flags & DS_TIMESERV_REQUIRED)
  71                 DEBUGADD(lvl,("DS_TIMESERV_REQUIRED "));
  72         if (flags & DS_WRITABLE_REQUIRED)
  73                 DEBUGADD(lvl,("DS_WRITABLE_REQUIRED "));
  74         if (flags & DS_GOOD_TIMESERV_PREFERRED)
  75                 DEBUGADD(lvl,("DS_GOOD_TIMESERV_PREFERRED "));
  76         if (flags & DS_AVOID_SELF)
  77                 DEBUGADD(lvl,("DS_AVOID_SELF "));
  78         if (flags & DS_ONLY_LDAP_NEEDED)
  79                 DEBUGADD(lvl,("DS_ONLY_LDAP_NEEDED "));
  80         if (flags & DS_IS_FLAT_NAME)
  81                 DEBUGADD(lvl,("DS_IS_FLAT_NAME "));
  82         if (flags & DS_IS_DNS_NAME)
  83                 DEBUGADD(lvl,("DS_IS_DNS_NAME "));
  84         if (flags & 0x00040000)
  85                 DEBUGADD(lvl,("0x00040000 "));
  86         if (flags & 0x00080000)
  87                 DEBUGADD(lvl,("0x00080000 "));
  88         if (flags & 0x00100000)
  89                 DEBUGADD(lvl,("0x00100000 "));
  90         if (flags & 0x00200000)
  91                 DEBUGADD(lvl,("0x00200000 "));
  92         if (flags & 0x00400000)
  93                 DEBUGADD(lvl,("0x00400000 "));
  94         if (flags & 0x00800000)
  95                 DEBUGADD(lvl,("0x00800000 "));
  96         if (flags & 0x01000000)
  97                 DEBUGADD(lvl,("0x01000000 "));
  98         if (flags & 0x02000000)
  99                 DEBUGADD(lvl,("0x02000000 "));
 100         if (flags & 0x04000000)
 101                 DEBUGADD(lvl,("0x04000000 "));
 102         if (flags & 0x08000000)
 103                 DEBUGADD(lvl,("0x08000000 "));
 104         if (flags & 0x10000000)
 105                 DEBUGADD(lvl,("0x10000000 "));
 106         if (flags & 0x20000000)
 107                 DEBUGADD(lvl,("0x20000000 "));
 108         if (flags & DS_RETURN_DNS_NAME)
 109                 DEBUGADD(lvl,("DS_RETURN_DNS_NAME "));
 110         if (flags & DS_RETURN_FLAT_NAME)
 111                 DEBUGADD(lvl,("DS_RETURN_FLAT_NAME "));
 112         if (flags)
 113                 DEBUGADD(lvl,("\n"));
 114 }
 115
 116 /****************************************************************
 117 ****************************************************************/
 118
 119 static char *dsgetdcname_cache_key(TALLOC_CTX *mem_ctx, const char *domain)
 120 {
 121         if (!domain) {
 122                 return NULL;
 123         }
 124
 125         return talloc_asprintf_strupper_m(mem_ctx, DSGETDCNAME_FMT, domain);
 126 }
 127
 128 /****************************************************************
 129 ****************************************************************/
 130
 131 static NTSTATUS dsgetdcname_cache_delete(TALLOC_CTX *mem_ctx,
 132                                         const char *domain_name)
 133 {
 134         char *key;
 135
 136         if (!gencache_init()) {
 137                 return NT_STATUS_INTERNAL_DB_ERROR;
 138         }
 139
 140         key = dsgetdcname_cache_key(mem_ctx, domain_name);
 141         if (!key) {
 142                 return NT_STATUS_NO_MEMORY;
 143         }
 144
 145         if (!gencache_del(key)) {
 146                 return NT_STATUS_UNSUCCESSFUL;
 147         }
 148
 149         return NT_STATUS_OK;
 150 }
 151
 152 /****************************************************************
 153 ****************************************************************/
 154
 155 static NTSTATUS dsgetdcname_cache_store(TALLOC_CTX *mem_ctx,
 156                                         const char *domain_name,
 157                                         const DATA_BLOB *blob)
 158 {
 159         time_t expire_time;
 160         char *key;
 161         bool ret = false;
 162
 163         if (!gencache_init()) {
 164                 return NT_STATUS_INTERNAL_DB_ERROR;
 165         }
 166
 167         key = dsgetdcname_cache_key(mem_ctx, domain_name);
 168         if (!key) {
 169                 return NT_STATUS_NO_MEMORY;
 170         }
 171
 172         expire_time = time(NULL) + DSGETDCNAME_CACHE_TTL;
 173
 174         if (gencache_lock_entry(key) != 0) {
 175                 return NT_STATUS_LOCK_NOT_GRANTED;
 176         }
 177
 178         ret = gencache_set_data_blob(key, blob, expire_time);
 179
 180         gencache_unlock_entry(key);
 181
 182         return ret ? NT_STATUS_OK : NT_STATUS_UNSUCCESSFUL;
 183 }
 184
 185 /****************************************************************
 186 ****************************************************************/
 187
 188 static NTSTATUS store_cldap_reply(TALLOC_CTX *mem_ctx,
 189                                   uint32_t flags,
 190                                   struct sockaddr_storage *ss,
 191                                   uint32_t nt_version,
 192                                   struct NETLOGON_SAM_LOGON_RESPONSE_EX *r)
 193 {
 194         DATA_BLOB blob;
 195         enum ndr_err_code ndr_err;
 196         NTSTATUS status;
 197         char addr[INET6_ADDRSTRLEN];
 198
 199        print_sockaddr(addr, sizeof(addr), ss);
 200
 201         /* FIXME */
 202         r->sockaddr_size = 0x10; /* the w32 winsock addr size */
 203         r->sockaddr.sa_family = 2; /* AF_INET */
 204         r->sockaddr.pdc_ip = talloc_strdup(mem_ctx, addr);
 205
 206         ndr_err = ndr_push_struct_blob(&blob, mem_ctx, NULL, r,
 207                        (ndr_push_flags_fn_t)ndr_push_NETLOGON_SAM_LOGON_RESPONSE_EX);
 208         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
 209                 return ndr_map_error2ntstatus(ndr_err);
 210         }
 211
 212         if (r->domain) {
 213                 status = dsgetdcname_cache_store(mem_ctx, r->domain, &blob);
 214                 if (!NT_STATUS_IS_OK(status)) {
 215                         goto done;
 216                 }
 217                 if (r->client_site) {
 218                         sitename_store(r->domain, r->client_site);
 219                 }
 220         }
 221         if (r->dns_domain) {
 222                 status = dsgetdcname_cache_store(mem_ctx, r->dns_domain, &blob);
 223                 if (!NT_STATUS_IS_OK(status)) {
 224                         goto done;
 225                 }
 226                 if (r->client_site) {
 227                         sitename_store(r->dns_domain, r->client_site);
 228                 }
 229         }
 230
 231  done:
 232         data_blob_free(&blob);
 233
 234         return status;
 235 }
 236
 237 /****************************************************************
 238 ****************************************************************/
 239
 240 static NTSTATUS dsgetdcname_cache_refresh(TALLOC_CTX *mem_ctx,
 241                                           struct messaging_context *msg_ctx,
 242                                           const char *domain_name,
 243                                           struct GUID *domain_guid,
 244                                           uint32_t flags,
 245                                           const char *site_name,
 246                                           struct netr_DsRGetDCNameInfo *info)
 247 {
 248         struct netr_DsRGetDCNameInfo *dc_info;
 249
 250         return dsgetdcname(mem_ctx,
 251                            msg_ctx,
 252                            domain_name,
 253                            domain_guid,
 254                            site_name,
 255                            flags | DS_FORCE_REDISCOVERY,
 256                            &dc_info);
 257 }
 258
 259 /****************************************************************
 260 ****************************************************************/
 261
 262 static uint32_t get_cldap_reply_server_flags(struct netlogon_samlogon_response *r,
 263                                              uint32_t nt_version)
 264 {
 265         switch (nt_version & 0x0000001f) {
 266                 case 0:
 267                 case 1:
 268                 case 16:
 269                 case 17:
 270                         return 0;
 271                 case 2:
 272                 case 3:
 273                 case 18:
 274                 case 19:
 275                         return r->nt5.server_type;
 276                 case 4:
 277                 case 5:
 278                 case 6:
 279                 case 7:
 280                         return r->nt5_ex.server_type;
 281                 case 8:
 282                 case 9:
 283                 case 10:
 284                 case 11:
 285                 case 12:
 286                 case 13:
 287                 case 14:
 288                 case 15:
 289                         return r->nt5_ex.server_type;
 290                 case 20:
 291                 case 21:
 292                 case 22:
 293                 case 23:
 294                 case 24:
 295                 case 25:
 296                 case 26:
 297                 case 27:
 298                 case 28:
 299                         return r->nt5_ex.server_type;
 300                 case 29:
 301                 case 30:
 302                 case 31:
 303                         return r->nt5_ex.server_type;
 304                 default:
 305                         return 0;
 306         }
 307 }
 308
 309 /****************************************************************
 310 ****************************************************************/
 311
 312 #define RETURN_ON_FALSE(x) if (!x) return false;
 313
 314 static bool check_cldap_reply_required_flags(uint32_t ret_flags,
 315                                              uint32_t req_flags)
 316 {
 317         if (ret_flags == 0) {
 318                 return true;
 319         }
 320
 321         if (req_flags & DS_PDC_REQUIRED)
 322                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_PDC);
 323
 324         if (req_flags & DS_GC_SERVER_REQUIRED)
 325                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_GC);
 326
 327         if (req_flags & DS_ONLY_LDAP_NEEDED)
 328                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_LDAP);
 329
 330         if ((req_flags & DS_DIRECTORY_SERVICE_REQUIRED) ||
 331             (req_flags & DS_DIRECTORY_SERVICE_PREFERRED))
 332                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_DS);
 333
 334         if (req_flags & DS_KDC_REQUIRED)
 335                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_KDC);
 336
 337         if (req_flags & DS_TIMESERV_REQUIRED)
 338                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_TIMESERV);
 339
 340         if (req_flags & DS_WRITABLE_REQUIRED)
 341                 RETURN_ON_FALSE(ret_flags & NBT_SERVER_WRITABLE);
 342
 343         return true;
 344 }
 345
 346 /****************************************************************
 347 ****************************************************************/
 348
 349 static NTSTATUS dsgetdcname_cache_fetch(TALLOC_CTX *mem_ctx,
 350                                         const char *domain_name,
 351                                         struct GUID *domain_guid,
 352                                         uint32_t flags,
 353                                         const char *site_name,
 354                                         struct netr_DsRGetDCNameInfo **info_p,
 355                                         bool *expired)
 356 {
 357         char *key;
 358         DATA_BLOB blob;
 359         enum ndr_err_code ndr_err;
 360         struct netr_DsRGetDCNameInfo *info;
 361         struct NETLOGON_SAM_LOGON_RESPONSE_EX r;
 362         NTSTATUS status;
 363
 364         if (!gencache_init()) {
 365                 return NT_STATUS_INTERNAL_DB_ERROR;
 366         }
 367
 368         key = dsgetdcname_cache_key(mem_ctx, domain_name);
 369         if (!key) {
 370                 return NT_STATUS_NO_MEMORY;
 371         }
 372
 373         if (!gencache_get_data_blob(key, &blob, expired)) {
 374                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 375         }
 376
 377         info = TALLOC_ZERO_P(mem_ctx, struct netr_DsRGetDCNameInfo);
 378         if (!info) {
 379                 return NT_STATUS_NO_MEMORY;
 380         }
 381
 382         ndr_err = ndr_pull_struct_blob(&blob, mem_ctx, NULL, &r,
 383                       (ndr_pull_flags_fn_t)ndr_pull_NETLOGON_SAM_LOGON_RESPONSE_EX);
 384
 385         data_blob_free(&blob);
 386         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
 387                 dsgetdcname_cache_delete(mem_ctx, domain_name);
 388                 return ndr_map_error2ntstatus(ndr_err);
 389         }
 390
 391         status = make_dc_info_from_cldap_reply(mem_ctx, flags, NULL,
 392                                                &r, &info);
 393         if (!NT_STATUS_IS_OK(status)) {
 394                 return status;
 395         }
 396
 397         if (DEBUGLEVEL >= 10) {
 398                 NDR_PRINT_DEBUG(netr_DsRGetDCNameInfo, info);
 399         }
 400
 401         /* check flags */
 402         if (!check_cldap_reply_required_flags(info->dc_flags, flags)) {
 403                 DEBUG(10,("invalid flags\n"));
 404                 return NT_STATUS_INVALID_PARAMETER;
 405         }
 406
 407         if ((flags & DS_IP_REQUIRED) &&
 408             (info->dc_address_type != DS_ADDRESS_TYPE_INET)) {
 409                 return NT_STATUS_INVALID_PARAMETER_MIX;
 410         }
 411
 412         *info_p = info;
 413
 414         return NT_STATUS_OK;
 415 }
 416
 417 /****************************************************************
 418 ****************************************************************/
 419
 420 static NTSTATUS dsgetdcname_cached(TALLOC_CTX *mem_ctx,
 421                                    struct messaging_context *msg_ctx,
 422                                    const char *domain_name,
 423                                    struct GUID *domain_guid,
 424                                    uint32_t flags,
 425                                    const char *site_name,
 426                                    struct netr_DsRGetDCNameInfo **info)
 427 {
 428         NTSTATUS status;
 429         bool expired = false;
 430
 431         status = dsgetdcname_cache_fetch(mem_ctx, domain_name, domain_guid,
 432                                          flags, site_name, info, &expired);
 433         if (!NT_STATUS_IS_OK(status)) {
 434                 DEBUG(10,("dsgetdcname_cached: cache fetch failed with: %s\n",
 435                         nt_errstr(status)));
 436                 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
 437         }
 438
 439         if (flags & DS_BACKGROUND_ONLY) {
 440                 return status;
 441         }
 442
 443         if (expired) {
 444                 status = dsgetdcname_cache_refresh(mem_ctx, msg_ctx,
 445                                                    domain_name,
 446                                                    domain_guid, flags,
 447                                                    site_name, *info);
 448                 if (!NT_STATUS_IS_OK(status)) {
 449                         return status;
 450                 }
 451         }
 452
 453         return status;
 454 }
 455
 456 /****************************************************************
 457 ****************************************************************/
 458
 459 static bool check_allowed_required_flags(uint32_t flags,
 460                                          const char *site_name)
 461 {
 462         uint32_t return_type = flags & (DS_RETURN_FLAT_NAME|DS_RETURN_DNS_NAME);
 463         uint32_t offered_type = flags & (DS_IS_FLAT_NAME|DS_IS_DNS_NAME);
 464         uint32_t query_type = flags & (DS_BACKGROUND_ONLY|DS_FORCE_REDISCOVERY);
 465
 466         /* FIXME: check for DSGETDC_VALID_FLAGS and check for excluse bits
 467          * (DS_PDC_REQUIRED, DS_KDC_REQUIRED, DS_GC_SERVER_REQUIRED) */
 468
 469         debug_dsdcinfo_flags(10, flags);
 470
 471         if ((flags & DS_TRY_NEXTCLOSEST_SITE) && site_name) {
 472                 return false;
 473         }
 474
 475         if (return_type == (DS_RETURN_FLAT_NAME|DS_RETURN_DNS_NAME)) {
 476                 return false;
 477         }
 478
 479         if (offered_type == (DS_IS_DNS_NAME|DS_IS_FLAT_NAME)) {
 480                 return false;
 481         }
 482
 483         if (query_type == (DS_BACKGROUND_ONLY|DS_FORCE_REDISCOVERY)) {
 484                 return false;
 485         }
 486
 487 #if 0
 488         if ((flags & DS_RETURN_DNS_NAME) && (!(flags & DS_IP_REQUIRED))) {
 489                 printf("gd: here5 \n");
 490                 return false;
 491         }
 492 #endif
 493         return true;
 494 }
 495
 496 /****************************************************************
 497 ****************************************************************/
 498
 499 static NTSTATUS discover_dc_netbios(TALLOC_CTX *mem_ctx,
 500                                     const char *domain_name,
 501                                     uint32_t flags,
 502                                     struct ip_service_name **returned_dclist,
 503                                     int *returned_count)
 504 {
 505         NTSTATUS status;
 506         enum nbt_name_type name_type = NBT_NAME_LOGON;
 507         struct ip_service *iplist;
 508         int i;
 509         struct ip_service_name *dclist = NULL;
 510         int count;
 511
 512         *returned_dclist = NULL;
 513         *returned_count = 0;
 514
 515         if (lp_disable_netbios()) {
 516                 return NT_STATUS_NOT_SUPPORTED;
 517         }
 518
 519         if (flags & DS_PDC_REQUIRED) {
 520                 name_type = NBT_NAME_PDC;
 521         }
 522
 523         status = internal_resolve_name(domain_name, name_type, NULL,
 524                                        &iplist, &count,
 525                                        "lmhosts wins bcast");
 526         if (!NT_STATUS_IS_OK(status)) {
 527                 DEBUG(10,("discover_dc_netbios: failed to find DC\n"));
 528                 return status;
 529         }
 530
 531         dclist = TALLOC_ZERO_ARRAY(mem_ctx, struct ip_service_name, count);
 532         if (!dclist) {
 533                 return NT_STATUS_NO_MEMORY;
 534         }
 535
 536         for (i=0; i<count; i++) {
 537
 538                 char addr[INET6_ADDRSTRLEN];
 539                 struct ip_service_name *r = &dclist[i];
 540
 541                 print_sockaddr(addr, sizeof(addr),
 542                                &iplist[i].ss);
 543
 544                 r->ss   = iplist[i].ss;
 545                 r->port = iplist[i].port;
 546                 r->hostname = talloc_strdup(mem_ctx, addr);
 547                 if (!r->hostname) {
 548                         return NT_STATUS_NO_MEMORY;
 549                 }
 550
 551         }
 552
 553         *returned_dclist = dclist;
 554         *returned_count = count;
 555
 556         return NT_STATUS_OK;
 557 }
 558
 559 /****************************************************************
 560 ****************************************************************/
 561
 562 static NTSTATUS discover_dc_dns(TALLOC_CTX *mem_ctx,
 563                                 const char *domain_name,
 564                                 struct GUID *domain_guid,
 565                                 uint32_t flags,
 566                                 const char *site_name,
 567                                 struct ip_service_name **returned_dclist,
 568                                 int *return_count)
 569 {
 570         int i, j;
 571         NTSTATUS status;
 572         struct dns_rr_srv *dcs = NULL;
 573         int numdcs = 0;
 574         int numaddrs = 0;
 575         struct ip_service_name *dclist = NULL;
 576         int count = 0;
 577
 578         if (flags & DS_PDC_REQUIRED) {
 579                 status = ads_dns_query_pdc(mem_ctx, domain_name,
 580                                            &dcs, &numdcs);
 581         } else if (flags & DS_GC_SERVER_REQUIRED) {
 582                 status = ads_dns_query_gcs(mem_ctx, domain_name, site_name,
 583                                            &dcs, &numdcs);
 584         } else if (flags & DS_KDC_REQUIRED) {
 585                 status = ads_dns_query_kdcs(mem_ctx, domain_name, site_name,
 586                                             &dcs, &numdcs);
 587         } else if (flags & DS_DIRECTORY_SERVICE_REQUIRED) {
 588                 status = ads_dns_query_dcs(mem_ctx, domain_name, site_name,
 589                                            &dcs, &numdcs);
 590         } else if (domain_guid) {
 591                 status = ads_dns_query_dcs_guid(mem_ctx, domain_name,
 592                                                 domain_guid, &dcs, &numdcs);
 593         } else {
 594                 status = ads_dns_query_dcs(mem_ctx, domain_name, site_name,
 595                                            &dcs, &numdcs);
 596         }
 597
 598         if (!NT_STATUS_IS_OK(status)) {
 599                 return status;
 600         }
 601
 602         if (numdcs == 0) {
 603                 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
 604         }
 605
 606         for (i=0;i<numdcs;i++) {
 607                 numaddrs += MAX(dcs[i].num_ips,1);
 608         }
 609
 610         dclist = TALLOC_ZERO_ARRAY(mem_ctx,
 611                                    struct ip_service_name,
 612                                    numaddrs);
 613         if (!dclist) {
 614                 return NT_STATUS_NO_MEMORY;
 615         }
 616
 617         /* now unroll the list of IP addresses */
 618
 619         *return_count = 0;
 620         i = 0;
 621         j = 0;
 622
 623         while ((i < numdcs) && (count < numaddrs)) {
 624
 625                 struct ip_service_name *r = &dclist[count];
 626
 627                 r->port = dcs[count].port;
 628                 r->hostname = dcs[count].hostname;
 629
 630                 /* If we don't have an IP list for a name, lookup it up */
 631
 632                 if (!dcs[i].ss_s) {
 633                         interpret_string_addr(&r->ss, dcs[i].hostname, 0);
 634                         i++;
 635                         j = 0;
 636                 } else {
 637                         /* use the IP addresses from the SRV sresponse */
 638
 639                         if (j >= dcs[i].num_ips) {
 640                                 i++;
 641                                 j = 0;
 642                                 continue;
 643                         }
 644
 645                         r->ss = dcs[i].ss_s[j];
 646                         j++;
 647                 }
 648
 649                 /* make sure it is a valid IP.  I considered checking the
 650                  * negative connection cache, but this is the wrong place for
 651                  * it.  Maybe only as a hac.  After think about it, if all of
 652                  * the IP addresses retuend from DNS are dead, what hope does a
 653                  * netbios name lookup have?  The standard reason for falling
 654                  * back to netbios lookups is that our DNS server doesn't know
 655                  * anything about the DC's   -- jerry */
 656
 657                 if (!is_zero_addr(&r->ss)) {
 658                         count++;
 659                         continue;
 660                 }
 661         }
 662
 663         *returned_dclist = dclist;
 664         *return_count = count;
 665
 666         if (count > 0) {
 667                 return NT_STATUS_OK;
 668         }
 669
 670         return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
 671 }
 672
 673 /****************************************************************
 674 ****************************************************************/
 675
 676 static NTSTATUS make_domain_controller_info(TALLOC_CTX *mem_ctx,
 677                                             const char *dc_unc,
 678                                             const char *dc_address,
 679                                             uint32_t dc_address_type,
 680                                             const struct GUID *domain_guid,
 681                                             const char *domain_name,
 682                                             const char *forest_name,
 683                                             uint32_t flags,
 684                                             const char *dc_site_name,
 685                                             const char *client_site_name,
 686                                             struct netr_DsRGetDCNameInfo **info_out)
 687 {
 688         struct netr_DsRGetDCNameInfo *info;
 689
 690         info = TALLOC_ZERO_P(mem_ctx, struct netr_DsRGetDCNameInfo);
 691         NT_STATUS_HAVE_NO_MEMORY(info);
 692
 693         if (dc_unc) {
 694                 info->dc_unc = talloc_strdup(mem_ctx, dc_unc);
 695                 NT_STATUS_HAVE_NO_MEMORY(info->dc_unc);
 696         }
 697
 698         if (dc_address) {
 699                 if (!(dc_address[0] == '\\' && dc_address[1] == '\\')) {
 700                         info->dc_address = talloc_asprintf(mem_ctx, "\\\\%s",
 701                                                            dc_address);
 702                 } else {
 703                         info->dc_address = talloc_strdup(mem_ctx, dc_address);
 704                 }
 705                 NT_STATUS_HAVE_NO_MEMORY(info->dc_address);
 706         }
 707
 708         info->dc_address_type = dc_address_type;
 709
 710         if (domain_guid) {
 711                 info->domain_guid = *domain_guid;
 712         }
 713
 714         if (domain_name) {
 715                 info->domain_name = talloc_strdup(mem_ctx, domain_name);
 716                 NT_STATUS_HAVE_NO_MEMORY(info->domain_name);
 717         }
 718
 719         if (forest_name && *forest_name) {
 720                 info->forest_name = talloc_strdup(mem_ctx, forest_name);
 721                 NT_STATUS_HAVE_NO_MEMORY(info->forest_name);
 722                 flags |= DS_DNS_FOREST;
 723         }
 724
 725         info->dc_flags = flags;
 726
 727         if (dc_site_name) {
 728                 info->dc_site_name = talloc_strdup(mem_ctx, dc_site_name);
 729                 NT_STATUS_HAVE_NO_MEMORY(info->dc_site_name);
 730         }
 731
 732         if (client_site_name) {
 733                 info->client_site_name = talloc_strdup(mem_ctx,
 734                                                        client_site_name);
 735                 NT_STATUS_HAVE_NO_MEMORY(info->client_site_name);
 736         }
 737
 738         *info_out = info;
 739
 740         return NT_STATUS_OK;
 741 }
 742
 743 /****************************************************************
 744 ****************************************************************/
 745
 746 static void map_dc_and_domain_names(uint32_t flags,
 747                                     const char *dc_name,
 748                                     const char *domain_name,
 749                                     const char *dns_dc_name,
 750                                     const char *dns_domain_name,
 751                                     uint32_t *dc_flags,
 752                                     const char **hostname_p,
 753                                     const char **domain_p)
 754 {
 755         switch (flags & 0xf0000000) {
 756                 case DS_RETURN_FLAT_NAME:
 757                         if (dc_name && domain_name &&
 758                             *dc_name && *domain_name) {
 759                                 *hostname_p = dc_name;
 760                                 *domain_p = domain_name;
 761                                 break;
 762                         }
 763                 case DS_RETURN_DNS_NAME:
 764                 default:
 765                         if (dns_dc_name && dns_domain_name &&
 766                             *dns_dc_name && *dns_domain_name) {
 767                                 *hostname_p = dns_dc_name;
 768                                 *domain_p = dns_domain_name;
 769                                 *dc_flags |= DS_DNS_DOMAIN | DS_DNS_CONTROLLER;
 770                                 break;
 771                         }
 772                         if (dc_name && domain_name &&
 773                             *dc_name && *domain_name) {
 774                                 *hostname_p = dc_name;
 775                                 *domain_p = domain_name;
 776                                 break;
 777                         }
 778         }
 779 }
 780
 781 /****************************************************************
 782 ****************************************************************/
 783
 784 static NTSTATUS make_dc_info_from_cldap_reply(TALLOC_CTX *mem_ctx,
 785                                               uint32_t flags,
 786                                               struct sockaddr_storage *ss,
 787                                               struct NETLOGON_SAM_LOGON_RESPONSE_EX *r,
 788                                               struct netr_DsRGetDCNameInfo **info)
 789 {
 790         const char *dc_hostname = NULL;
 791         const char *dc_domain_name = NULL;
 792         const char *dc_address = NULL;
 793         const char *dc_forest = NULL;
 794         uint32_t dc_address_type = 0;
 795         uint32_t dc_flags = 0;
 796         struct GUID *dc_domain_guid = NULL;
 797         const char *dc_server_site = NULL;
 798         const char *dc_client_site = NULL;
 799
 800         char addr[INET6_ADDRSTRLEN];
 801
 802         if (ss) {
 803                 print_sockaddr(addr, sizeof(addr), ss);
 804                 dc_address = addr;
 805                 dc_address_type = DS_ADDRESS_TYPE_INET;
 806         }
 807
 808         if (!ss && r->sockaddr.pdc_ip) {
 809                 dc_address      = r->sockaddr.pdc_ip;
 810                 dc_address_type = DS_ADDRESS_TYPE_INET;
 811         } else {
 812                 dc_address      = r->pdc_name;
 813                 dc_address_type = DS_ADDRESS_TYPE_NETBIOS;
 814         }
 815
 816         map_dc_and_domain_names(flags,
 817                                 r->pdc_name,
 818                                 r->domain,
 819                                 r->pdc_dns_name,
 820                                 r->dns_domain,
 821                                 &dc_flags,
 822                                 &dc_hostname,
 823                                 &dc_domain_name);
 824
 825         dc_flags        |= r->server_type;
 826         dc_forest       = r->forest;
 827         dc_domain_guid  = &r->domain_uuid;
 828         dc_server_site  = r->server_site;
 829         dc_client_site  = r->client_site;
 830
 831         return make_domain_controller_info(mem_ctx,
 832                                            dc_hostname,
 833                                            dc_address,
 834                                            dc_address_type,
 835                                            dc_domain_guid,
 836                                            dc_domain_name,
 837                                            dc_forest,
 838                                            dc_flags,
 839                                            dc_server_site,
 840                                            dc_client_site,
 841                                            info);
 842 }
 843
 844 /****************************************************************
 845 ****************************************************************/
 846
 847 static uint32_t map_ds_flags_to_nt_version(uint32_t flags)
 848 {
 849         uint32_t nt_version = 0;
 850
 851         if (flags & DS_PDC_REQUIRED) {
 852                 nt_version |= NETLOGON_NT_VERSION_PDC;
 853         }
 854
 855         if (flags & DS_GC_SERVER_REQUIRED) {
 856                 nt_version |= NETLOGON_NT_VERSION_GC;
 857         }
 858
 859         if (flags & DS_TRY_NEXTCLOSEST_SITE) {
 860                 nt_version |= NETLOGON_NT_VERSION_WITH_CLOSEST_SITE;
 861         }
 862
 863         if (flags & DS_IP_REQUIRED) {
 864                 nt_version |= NETLOGON_NT_VERSION_IP;
 865         }
 866
 867         return nt_version;
 868 }
 869
 870 /****************************************************************
 871 ****************************************************************/
 872
 873 static NTSTATUS process_dc_dns(TALLOC_CTX *mem_ctx,
 874                                const char *domain_name,
 875                                uint32_t flags,
 876                                struct ip_service_name *dclist,
 877                                int num_dcs,
 878                                struct netr_DsRGetDCNameInfo **info)
 879 {
 880         int i = 0;
 881         bool valid_dc = false;
 882         struct netlogon_samlogon_response *r = NULL;
 883         uint32_t nt_version = NETLOGON_NT_VERSION_5 |
 884                               NETLOGON_NT_VERSION_5EX;
 885         uint32_t ret_flags = 0;
 886         NTSTATUS status;
 887
 888         nt_version |= map_ds_flags_to_nt_version(flags);
 889
 890         for (i=0; i<num_dcs; i++) {
 891
 892                 DEBUG(10,("LDAP ping to %s\n", dclist[i].hostname));
 893
 894                 if (ads_cldap_netlogon(mem_ctx, dclist[i].hostname,
 895                                         domain_name,
 896                                         nt_version,
 897                                         &r))
 898                 {
 899                         nt_version = r->ntver;
 900                         ret_flags = get_cldap_reply_server_flags(r, nt_version);
 901
 902                         if (check_cldap_reply_required_flags(ret_flags, flags)) {
 903                                 valid_dc = true;
 904                                 break;
 905                         }
 906                 }
 907
 908                 continue;
 909         }
 910
 911         if (!valid_dc) {
 912                 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
 913         }
 914
 915         status = make_dc_info_from_cldap_reply(mem_ctx, flags, &dclist[i].ss,
 916                                                &r->nt5_ex, info);
 917         if (NT_STATUS_IS_OK(status)) {
 918                 return store_cldap_reply(mem_ctx, flags, &dclist[i].ss,
 919                                          nt_version, &r->nt5_ex);
 920         }
 921
 922         return status;
 923 }
 924
 925 /****************************************************************
 926 ****************************************************************/
 927
 928 static struct event_context *ev_context(void)
 929 {
 930         static struct event_context *ctx;
 931
 932         if (!ctx && !(ctx = event_context_init(NULL))) {
 933                 smb_panic("Could not init event context");
 934         }
 935         return ctx;
 936 }
 937
 938 /****************************************************************
 939 ****************************************************************/
 940
 941 static struct messaging_context *msg_context(TALLOC_CTX *mem_ctx)
 942 {
 943         static struct messaging_context *ctx;
 944
 945         if (!ctx && !(ctx = messaging_init(mem_ctx, server_id_self(),
 946                                            ev_context()))) {
 947                 smb_panic("Could not init messaging context");
 948         }
 949         return ctx;
 950 }
 951
 952 /****************************************************************
 953 ****************************************************************/
 954
 955 static NTSTATUS process_dc_netbios(TALLOC_CTX *mem_ctx,
 956                                    struct messaging_context *msg_ctx,
 957                                    const char *domain_name,
 958                                    uint32_t flags,
 959                                    struct ip_service_name *dclist,
 960                                    int num_dcs,
 961                                    struct netr_DsRGetDCNameInfo **info)
 962 {
 963         struct sockaddr_storage ss;
 964         struct ip_service ip_list;
 965         enum nbt_name_type name_type = NBT_NAME_LOGON;
 966         NTSTATUS status;
 967         int i;
 968         const char *dc_name = NULL;
 969         fstring tmp_dc_name;
 970         struct netlogon_samlogon_response *r = NULL;
 971         bool store_cache = false;
 972         uint32_t nt_version = NETLOGON_NT_VERSION_1 |
 973                               NETLOGON_NT_VERSION_5 |
 974                               NETLOGON_NT_VERSION_5EX_WITH_IP;
 975
 976         if (!msg_ctx) {
 977                 msg_ctx = msg_context(mem_ctx);
 978         }
 979
 980         if (flags & DS_PDC_REQUIRED) {
 981                 name_type = NBT_NAME_PDC;
 982         }
 983
 984         nt_version |= map_ds_flags_to_nt_version(flags);
 985
 986         DEBUG(10,("process_dc_netbios\n"));
 987
 988         for (i=0; i<num_dcs; i++) {
 989
 990                 ip_list.ss = dclist[i].ss;
 991                 ip_list.port = 0;
 992
 993                 if (!interpret_string_addr(&ss, dclist[i].hostname, AI_NUMERICHOST)) {
 994                         return NT_STATUS_UNSUCCESSFUL;
 995                 }
 996
 997                 if (send_getdc_request(mem_ctx, msg_ctx,
 998                                        &dclist[i].ss, domain_name,
 999                                        NULL, nt_version))
1000                 {
1001                         int k;
1002                         smb_msleep(300);
1003                         for (k=0; k<5; k++) {
1004                                 if (receive_getdc_response(mem_ctx,
1005                                                            &dclist[i].ss,
1006                                                            domain_name,
1007                                                            &nt_version,
1008                                                            &dc_name,
1009                                                            &r)) {
1010                                         store_cache = true;
1011                                         namecache_store(dc_name, NBT_NAME_SERVER, 1, &ip_list);
1012                                         goto make_reply;
1013                                 }
1014                                 smb_msleep(1500);
1015                         }
1016                 }
1017
1018                 if (name_status_find(domain_name,
1019                                      name_type,
1020                                      NBT_NAME_SERVER,
1021                                      &dclist[i].ss,
1022                                      tmp_dc_name))
1023                 {
1024                         struct NETLOGON_SAM_LOGON_RESPONSE_NT40 logon1;
1025
1026                         r = TALLOC_ZERO_P(mem_ctx, struct netlogon_samlogon_response);
1027                         NT_STATUS_HAVE_NO_MEMORY(r);
1028
1029                         ZERO_STRUCT(logon1);
1030
1031                         nt_version = NETLOGON_NT_VERSION_1;
1032
1033                         logon1.nt_version = nt_version;
1034                         logon1.server = tmp_dc_name;
1035                         logon1.domain = talloc_strdup_upper(mem_ctx, domain_name);
1036                         NT_STATUS_HAVE_NO_MEMORY(logon1.domain);
1037
1038                         r->nt4 = logon1;
1039                         r->ntver = nt_version;
1040
1041                         namecache_store(tmp_dc_name, NBT_NAME_SERVER, 1, &ip_list);
1042
1043                         goto make_reply;
1044                 }
1045         }
1046
1047         return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1048
1049  make_reply:
1050
1051         status = make_dc_info_from_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1052                                                &r->nt5_ex, info);
1053         if (NT_STATUS_IS_OK(status) && store_cache) {
1054                 return store_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1055                                          nt_version, &r->nt5_ex);
1056         }
1057
1058         return status;
1059 }
1060
1061 /****************************************************************
1062 ****************************************************************/
1063
1064 static NTSTATUS dsgetdcname_rediscover(TALLOC_CTX *mem_ctx,
1065                                        struct messaging_context *msg_ctx,
1066                                        const char *domain_name,
1067                                        struct GUID *domain_guid,
1068                                        uint32_t flags,
1069                                        const char *site_name,
1070                                        struct netr_DsRGetDCNameInfo **info)
1071 {
1072         NTSTATUS status = NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1073         struct ip_service_name *dclist = NULL;
1074         int num_dcs;
1075
1076         DEBUG(10,("dsgetdcname_rediscover\n"));
1077
1078         if (flags & DS_IS_FLAT_NAME) {
1079
1080                 status = discover_dc_netbios(mem_ctx, domain_name, flags,
1081                                              &dclist, &num_dcs);
1082                 NT_STATUS_NOT_OK_RETURN(status);
1083
1084                 return process_dc_netbios(mem_ctx, msg_ctx, domain_name, flags,
1085                                           dclist, num_dcs, info);
1086         }
1087
1088         if (flags & DS_IS_DNS_NAME) {
1089
1090                 status = discover_dc_dns(mem_ctx, domain_name, domain_guid,
1091                                          flags, site_name, &dclist, &num_dcs);
1092                 NT_STATUS_NOT_OK_RETURN(status);
1093
1094                 return process_dc_dns(mem_ctx, domain_name, flags,
1095                                       dclist, num_dcs, info);
1096         }
1097
1098         status = discover_dc_dns(mem_ctx, domain_name, domain_guid, flags,
1099                                  site_name, &dclist, &num_dcs);
1100
1101         if (NT_STATUS_IS_OK(status) && num_dcs != 0) {
1102
1103                 status = process_dc_dns(mem_ctx, domain_name, flags, dclist,
1104                                         num_dcs, info);
1105                 if (NT_STATUS_IS_OK(status)) {
1106                         return status;
1107                 }
1108         }
1109
1110         status = discover_dc_netbios(mem_ctx, domain_name, flags, &dclist,
1111                                      &num_dcs);
1112         NT_STATUS_NOT_OK_RETURN(status);
1113
1114         return process_dc_netbios(mem_ctx, msg_ctx, domain_name, flags, dclist,
1115                                   num_dcs, info);
1116 }
1117
1118 /********************************************************************
1119  dsgetdcname.
1120
1121  This will be the only public function here.
1122 ********************************************************************/
1123
1124 NTSTATUS dsgetdcname(TALLOC_CTX *mem_ctx,
1125                      struct messaging_context *msg_ctx,
1126                      const char *domain_name,
1127                      struct GUID *domain_guid,
1128                      const char *site_name,
1129                      uint32_t flags,
1130                      struct netr_DsRGetDCNameInfo **info)
1131 {
1132         NTSTATUS status = NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1133         struct netr_DsRGetDCNameInfo *myinfo = NULL;
1134         char *query_site = NULL;
1135
1136         DEBUG(10,("dsgetdcname: domain_name: %s, "
1137                   "domain_guid: %s, site_name: %s, flags: 0x%08x\n",
1138                   domain_name,
1139                   domain_guid ? GUID_string(mem_ctx, domain_guid) : "(null)",
1140                   site_name, flags));
1141
1142         *info = NULL;
1143
1144         if (!check_allowed_required_flags(flags, site_name)) {
1145                 DEBUG(0,("invalid flags specified\n"));
1146                 return NT_STATUS_INVALID_PARAMETER;
1147         }
1148
1149         if (!site_name) {
1150                 query_site = sitename_fetch(domain_name);
1151         } else {
1152                 query_site = SMB_STRDUP(site_name);
1153         }
1154
1155         if (flags & DS_FORCE_REDISCOVERY) {
1156                 goto rediscover;
1157         }
1158
1159         status = dsgetdcname_cached(mem_ctx, msg_ctx, domain_name, domain_guid,
1160                                     flags, query_site, &myinfo);
1161         if (NT_STATUS_IS_OK(status)) {
1162                 *info = myinfo;
1163                 goto done;
1164         }
1165
1166         if (flags & DS_BACKGROUND_ONLY) {
1167                 goto done;
1168         }
1169
1170  rediscover:
1171         status = dsgetdcname_rediscover(mem_ctx, msg_ctx, domain_name,
1172                                         domain_guid, flags, query_site,
1173                                         &myinfo);
1174
1175         if (NT_STATUS_IS_OK(status)) {
1176                 *info = myinfo;
1177         }
1178
1179  done:
1180         SAFE_FREE(query_site);
1181
1182         return status;
1183 }