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