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