dsgetdcname: store client sitename for mailslot and cldap replies.
[Samba.git] / source / libsmb / dsgetdcname.c
blobd57689cd4834a6262610622a75fa3769c39ba214
1 /*
2 Unix SMB/CIFS implementation.
4 dsgetdcname
6 Copyright (C) Gerald Carter 2006
7 Copyright (C) Guenther Deschner 2007-2008
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.
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.
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/>.
23 #include "includes.h"
25 #define DSGETDCNAME_FMT "DSGETDCNAME/DOMAIN/%s"
26 /* 15 minutes */
27 #define DSGETDCNAME_CACHE_TTL 60*15
29 struct ip_service_name {
30 struct sockaddr_storage ss;
31 unsigned port;
32 const char *hostname;
35 static NTSTATUS make_dc_info_from_cldap_reply(TALLOC_CTX *mem_ctx,
36 uint32_t flags,
37 struct sockaddr_storage *ss,
38 uint32_t nt_version,
39 union nbt_cldap_netlogon *r,
40 struct netr_DsRGetDCNameInfo **info);
42 /****************************************************************
43 ****************************************************************/
45 void debug_dsdcinfo_flags(int lvl, uint32_t flags)
47 DEBUG(lvl,("debug_dsdcinfo_flags: 0x%08x\n\t", flags));
49 if (flags & DS_FORCE_REDISCOVERY)
50 DEBUGADD(lvl,("DS_FORCE_REDISCOVERY "));
51 if (flags & 0x000000002)
52 DEBUGADD(lvl,("0x00000002 "));
53 if (flags & 0x000000004)
54 DEBUGADD(lvl,("0x00000004 "));
55 if (flags & 0x000000008)
56 DEBUGADD(lvl,("0x00000008 "));
57 if (flags & DS_DIRECTORY_SERVICE_REQUIRED)
58 DEBUGADD(lvl,("DS_DIRECTORY_SERVICE_REQUIRED "));
59 if (flags & DS_DIRECTORY_SERVICE_PREFERRED)
60 DEBUGADD(lvl,("DS_DIRECTORY_SERVICE_PREFERRED "));
61 if (flags & DS_GC_SERVER_REQUIRED)
62 DEBUGADD(lvl,("DS_GC_SERVER_REQUIRED "));
63 if (flags & DS_PDC_REQUIRED)
64 DEBUGADD(lvl,("DS_PDC_REQUIRED "));
65 if (flags & DS_BACKGROUND_ONLY)
66 DEBUGADD(lvl,("DS_BACKGROUND_ONLY "));
67 if (flags & DS_IP_REQUIRED)
68 DEBUGADD(lvl,("DS_IP_REQUIRED "));
69 if (flags & DS_KDC_REQUIRED)
70 DEBUGADD(lvl,("DS_KDC_REQUIRED "));
71 if (flags & DS_TIMESERV_REQUIRED)
72 DEBUGADD(lvl,("DS_TIMESERV_REQUIRED "));
73 if (flags & DS_WRITABLE_REQUIRED)
74 DEBUGADD(lvl,("DS_WRITABLE_REQUIRED "));
75 if (flags & DS_GOOD_TIMESERV_PREFERRED)
76 DEBUGADD(lvl,("DS_GOOD_TIMESERV_PREFERRED "));
77 if (flags & DS_AVOID_SELF)
78 DEBUGADD(lvl,("DS_AVOID_SELF "));
79 if (flags & DS_ONLY_LDAP_NEEDED)
80 DEBUGADD(lvl,("DS_ONLY_LDAP_NEEDED "));
81 if (flags & DS_IS_FLAT_NAME)
82 DEBUGADD(lvl,("DS_IS_FLAT_NAME "));
83 if (flags & DS_IS_DNS_NAME)
84 DEBUGADD(lvl,("DS_IS_DNS_NAME "));
85 if (flags & 0x00040000)
86 DEBUGADD(lvl,("0x00040000 "));
87 if (flags & 0x00080000)
88 DEBUGADD(lvl,("0x00080000 "));
89 if (flags & 0x00100000)
90 DEBUGADD(lvl,("0x00100000 "));
91 if (flags & 0x00200000)
92 DEBUGADD(lvl,("0x00200000 "));
93 if (flags & 0x00400000)
94 DEBUGADD(lvl,("0x00400000 "));
95 if (flags & 0x00800000)
96 DEBUGADD(lvl,("0x00800000 "));
97 if (flags & 0x01000000)
98 DEBUGADD(lvl,("0x01000000 "));
99 if (flags & 0x02000000)
100 DEBUGADD(lvl,("0x02000000 "));
101 if (flags & 0x04000000)
102 DEBUGADD(lvl,("0x04000000 "));
103 if (flags & 0x08000000)
104 DEBUGADD(lvl,("0x08000000 "));
105 if (flags & 0x10000000)
106 DEBUGADD(lvl,("0x10000000 "));
107 if (flags & 0x20000000)
108 DEBUGADD(lvl,("0x20000000 "));
109 if (flags & DS_RETURN_DNS_NAME)
110 DEBUGADD(lvl,("DS_RETURN_DNS_NAME "));
111 if (flags & DS_RETURN_FLAT_NAME)
112 DEBUGADD(lvl,("DS_RETURN_FLAT_NAME "));
113 if (flags)
114 DEBUGADD(lvl,("\n"));
117 /****************************************************************
118 ****************************************************************/
120 static char *dsgetdcname_cache_key(TALLOC_CTX *mem_ctx, const char *domain)
122 if (!mem_ctx || !domain) {
123 return NULL;
126 return talloc_asprintf_strupper_m(mem_ctx, DSGETDCNAME_FMT, domain);
129 /****************************************************************
130 ****************************************************************/
132 static NTSTATUS dsgetdcname_cache_delete(TALLOC_CTX *mem_ctx,
133 const char *domain_name)
135 char *key;
137 if (!gencache_init()) {
138 return NT_STATUS_INTERNAL_DB_ERROR;
141 key = dsgetdcname_cache_key(mem_ctx, domain_name);
142 if (!key) {
143 return NT_STATUS_NO_MEMORY;
146 if (!gencache_del(key)) {
147 return NT_STATUS_UNSUCCESSFUL;
150 return NT_STATUS_OK;
153 /****************************************************************
154 ****************************************************************/
156 static NTSTATUS dsgetdcname_cache_store(TALLOC_CTX *mem_ctx,
157 const char *domain_name,
158 const DATA_BLOB *blob)
160 time_t expire_time;
161 char *key;
162 bool ret = false;
164 if (!gencache_init()) {
165 return NT_STATUS_INTERNAL_DB_ERROR;
168 key = dsgetdcname_cache_key(mem_ctx, domain_name);
169 if (!key) {
170 return NT_STATUS_NO_MEMORY;
173 expire_time = time(NULL) + DSGETDCNAME_CACHE_TTL;
175 if (gencache_lock_entry(key) != 0) {
176 return NT_STATUS_LOCK_NOT_GRANTED;
179 ret = gencache_set_data_blob(key, blob, expire_time);
181 gencache_unlock_entry(key);
183 return ret ? NT_STATUS_OK : NT_STATUS_UNSUCCESSFUL;
186 /****************************************************************
187 ****************************************************************/
189 #define SET_STRING(x) \
190 talloc_strdup(mem_ctx, x); \
191 NT_STATUS_HAVE_NO_MEMORY(x);
193 static NTSTATUS map_logon29_from_cldap_reply(TALLOC_CTX *mem_ctx,
194 uint32_t flags,
195 struct sockaddr_storage *ss,
196 uint32_t nt_version,
197 union nbt_cldap_netlogon *r,
198 struct nbt_cldap_netlogon_29 *p)
200 char addr[INET6_ADDRSTRLEN];
202 ZERO_STRUCTP(p);
204 print_sockaddr(addr, sizeof(addr), ss);
206 /* FIXME */
207 p->dc_sock_addr_size = 0x10; /* the w32 winsock addr size */
208 p->dc_sock_addr.sa_family = 2; /* AF_INET */
209 p->dc_sock_addr.pdc_ip = talloc_strdup(mem_ctx, addr);
211 switch (nt_version & 0x0000001f) {
212 case 0:
213 return NT_STATUS_INVALID_PARAMETER;
214 case 1:
215 case 16:
216 case 17:
217 p->pdc_name = SET_STRING(r->logon1.pdc_name);
218 p->domain = SET_STRING(r->logon1.domain_name);
220 if (flags & DS_PDC_REQUIRED) {
221 p->server_type = NBT_SERVER_WRITABLE |
222 NBT_SERVER_PDC;
224 break;
225 case 2:
226 case 3:
227 case 18:
228 case 19:
229 p->pdc_name = SET_STRING(r->logon3.pdc_name);
230 p->domain = SET_STRING(r->logon3.domain_name);
231 p->pdc_dns_name = SET_STRING(r->logon3.pdc_dns_name);
232 p->dns_domain = SET_STRING(r->logon3.dns_domain);
233 p->server_type = r->logon3.server_type;
234 p->forest = SET_STRING(r->logon3.forest);
235 p->domain_uuid = r->logon3.domain_uuid;
237 break;
238 case 4:
239 case 5:
240 case 6:
241 case 7:
242 p->pdc_name = SET_STRING(r->logon5.pdc_name);
243 p->domain = SET_STRING(r->logon5.domain);
244 p->pdc_dns_name = SET_STRING(r->logon5.pdc_dns_name);
245 p->dns_domain = SET_STRING(r->logon5.dns_domain);
246 p->server_type = r->logon5.server_type;
247 p->forest = SET_STRING(r->logon5.forest);
248 p->domain_uuid = r->logon5.domain_uuid;
249 p->server_site = SET_STRING(r->logon5.server_site);
250 p->client_site = SET_STRING(r->logon5.client_site);
252 break;
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 p->pdc_name = SET_STRING(r->logon13.pdc_name);
262 p->domain = SET_STRING(r->logon13.domain);
263 p->pdc_dns_name = SET_STRING(r->logon13.pdc_dns_name);
264 p->dns_domain = SET_STRING(r->logon13.dns_domain);
265 p->server_type = r->logon13.server_type;
266 p->forest = SET_STRING(r->logon13.forest);
267 p->domain_uuid = r->logon13.domain_uuid;
268 p->server_site = SET_STRING(r->logon13.server_site);
269 p->client_site = SET_STRING(r->logon13.client_site);
271 break;
272 case 20:
273 case 21:
274 case 22:
275 case 23:
276 case 24:
277 case 25:
278 case 26:
279 case 27:
280 case 28:
281 p->pdc_name = SET_STRING(r->logon15.pdc_name);
282 p->domain = SET_STRING(r->logon15.domain);
283 p->pdc_dns_name = SET_STRING(r->logon15.pdc_dns_name);
284 p->dns_domain = SET_STRING(r->logon15.dns_domain);
285 p->server_type = r->logon15.server_type;
286 p->forest = SET_STRING(r->logon15.forest);
287 p->domain_uuid = r->logon15.domain_uuid;
288 p->server_site = SET_STRING(r->logon15.server_site);
289 p->client_site = SET_STRING(r->logon15.client_site);
291 break;
292 case 29:
293 case 30:
294 case 31:
295 p->pdc_name = SET_STRING(r->logon29.pdc_name);
296 p->domain = SET_STRING(r->logon29.domain);
297 p->pdc_dns_name = SET_STRING(r->logon29.pdc_dns_name);
298 p->dns_domain = SET_STRING(r->logon29.dns_domain);
299 p->server_type = r->logon29.server_type;
300 p->forest = SET_STRING(r->logon29.forest);
301 p->domain_uuid = r->logon29.domain_uuid;
302 p->server_site = SET_STRING(r->logon29.server_site);
303 p->client_site = SET_STRING(r->logon29.client_site);
304 p->next_closest_site = SET_STRING(r->logon29.next_closest_site);
306 break;
307 default:
308 return NT_STATUS_INVALID_PARAMETER;
311 return NT_STATUS_OK;
314 /****************************************************************
315 ****************************************************************/
317 static NTSTATUS store_cldap_reply(TALLOC_CTX *mem_ctx,
318 uint32_t flags,
319 struct sockaddr_storage *ss,
320 uint32_t nt_version,
321 union nbt_cldap_netlogon *r)
323 DATA_BLOB blob;
324 enum ndr_err_code ndr_err;
325 NTSTATUS status;
326 struct nbt_cldap_netlogon_29 logon29;
328 status = map_logon29_from_cldap_reply(mem_ctx, flags, ss,
329 nt_version, r, &logon29);
330 if (!NT_STATUS_IS_OK(status)) {
331 return status;
334 ndr_err = ndr_push_struct_blob(&blob, mem_ctx, &logon29,
335 (ndr_push_flags_fn_t)ndr_push_nbt_cldap_netlogon_29);
336 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
337 return ndr_map_error2ntstatus(ndr_err);
340 if (logon29.domain) {
341 status = dsgetdcname_cache_store(mem_ctx, logon29.domain, &blob);
342 if (!NT_STATUS_IS_OK(status)) {
343 goto done;
345 if (logon29.client_site) {
346 sitename_store(logon29.domain, logon29.client_site);
349 if (logon29.dns_domain) {
350 status = dsgetdcname_cache_store(mem_ctx, logon29.dns_domain, &blob);
351 if (!NT_STATUS_IS_OK(status)) {
352 goto done;
354 if (logon29.client_site) {
355 sitename_store(logon29.dns_domain, logon29.client_site);
359 done:
360 data_blob_free(&blob);
362 return status;
365 /****************************************************************
366 ****************************************************************/
368 static NTSTATUS dsgetdcname_cache_refresh(TALLOC_CTX *mem_ctx,
369 struct messaging_context *msg_ctx,
370 const char *domain_name,
371 struct GUID *domain_guid,
372 uint32_t flags,
373 const char *site_name,
374 struct netr_DsRGetDCNameInfo *info)
376 struct netr_DsRGetDCNameInfo *dc_info;
378 return dsgetdcname(mem_ctx,
379 msg_ctx,
380 domain_name,
381 domain_guid,
382 site_name,
383 flags | DS_FORCE_REDISCOVERY,
384 &dc_info);
387 /****************************************************************
388 ****************************************************************/
390 static uint32_t get_cldap_reply_server_flags(union nbt_cldap_netlogon *r,
391 uint32_t nt_version)
393 switch (nt_version & 0x0000001f) {
394 case 0:
395 case 1:
396 case 16:
397 case 17:
398 return 0;
399 case 2:
400 case 3:
401 case 18:
402 case 19:
403 return r->logon3.server_type;
404 case 4:
405 case 5:
406 case 6:
407 case 7:
408 return r->logon5.server_type;
409 case 8:
410 case 9:
411 case 10:
412 case 11:
413 case 12:
414 case 13:
415 case 14:
416 case 15:
417 return r->logon13.server_type;
418 case 20:
419 case 21:
420 case 22:
421 case 23:
422 case 24:
423 case 25:
424 case 26:
425 case 27:
426 case 28:
427 return r->logon15.server_type;
428 case 29:
429 case 30:
430 case 31:
431 return r->logon29.server_type;
432 default:
433 return 0;
437 /****************************************************************
438 ****************************************************************/
440 #define RETURN_ON_FALSE(x) if (!x) return false;
442 static bool check_cldap_reply_required_flags(uint32_t ret_flags,
443 uint32_t req_flags)
445 if (ret_flags == 0) {
446 return true;
449 if (req_flags & DS_PDC_REQUIRED)
450 RETURN_ON_FALSE(ret_flags & NBT_SERVER_PDC);
452 if (req_flags & DS_GC_SERVER_REQUIRED)
453 RETURN_ON_FALSE(ret_flags & NBT_SERVER_GC);
455 if (req_flags & DS_ONLY_LDAP_NEEDED)
456 RETURN_ON_FALSE(ret_flags & NBT_SERVER_LDAP);
458 if ((req_flags & DS_DIRECTORY_SERVICE_REQUIRED) ||
459 (req_flags & DS_DIRECTORY_SERVICE_PREFERRED))
460 RETURN_ON_FALSE(ret_flags & NBT_SERVER_DS);
462 if (req_flags & DS_KDC_REQUIRED)
463 RETURN_ON_FALSE(ret_flags & NBT_SERVER_KDC);
465 if (req_flags & DS_TIMESERV_REQUIRED)
466 RETURN_ON_FALSE(ret_flags & NBT_SERVER_TIMESERV);
468 if (req_flags & DS_WRITABLE_REQUIRED)
469 RETURN_ON_FALSE(ret_flags & NBT_SERVER_WRITABLE);
471 return true;
474 /****************************************************************
475 ****************************************************************/
477 static NTSTATUS dsgetdcname_cache_fetch(TALLOC_CTX *mem_ctx,
478 const char *domain_name,
479 struct GUID *domain_guid,
480 uint32_t flags,
481 const char *site_name,
482 struct netr_DsRGetDCNameInfo **info_p,
483 bool *expired)
485 char *key;
486 DATA_BLOB blob;
487 enum ndr_err_code ndr_err;
488 struct netr_DsRGetDCNameInfo *info;
489 union nbt_cldap_netlogon p;
490 struct nbt_cldap_netlogon_29 r;
491 NTSTATUS status;
493 if (!gencache_init()) {
494 return NT_STATUS_INTERNAL_DB_ERROR;
497 key = dsgetdcname_cache_key(mem_ctx, domain_name);
498 if (!key) {
499 return NT_STATUS_NO_MEMORY;
502 if (!gencache_get_data_blob(key, &blob, expired)) {
503 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
506 info = TALLOC_ZERO_P(mem_ctx, struct netr_DsRGetDCNameInfo);
507 if (!info) {
508 return NT_STATUS_NO_MEMORY;
511 ndr_err = ndr_pull_struct_blob(&blob, mem_ctx, &r,
512 (ndr_pull_flags_fn_t)ndr_pull_nbt_cldap_netlogon_29);
514 data_blob_free(&blob);
515 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
516 dsgetdcname_cache_delete(mem_ctx, domain_name);
517 return ndr_map_error2ntstatus(ndr_err);
520 p.logon29 = r;
522 status = make_dc_info_from_cldap_reply(mem_ctx, flags, NULL,
524 &p, &info);
525 if (!NT_STATUS_IS_OK(status)) {
526 return status;
529 if (DEBUGLEVEL >= 10) {
530 NDR_PRINT_DEBUG(netr_DsRGetDCNameInfo, info);
533 /* check flags */
534 if (!check_cldap_reply_required_flags(info->dc_flags, flags)) {
535 DEBUG(10,("invalid flags\n"));
536 return NT_STATUS_INVALID_PARAMETER;
539 if ((flags & DS_IP_REQUIRED) &&
540 (info->dc_address_type != DS_ADDRESS_TYPE_INET)) {
541 return NT_STATUS_INVALID_PARAMETER_MIX;
544 *info_p = info;
546 return NT_STATUS_OK;
549 /****************************************************************
550 ****************************************************************/
552 static NTSTATUS dsgetdcname_cached(TALLOC_CTX *mem_ctx,
553 struct messaging_context *msg_ctx,
554 const char *domain_name,
555 struct GUID *domain_guid,
556 uint32_t flags,
557 const char *site_name,
558 struct netr_DsRGetDCNameInfo **info)
560 NTSTATUS status;
561 bool expired = false;
563 status = dsgetdcname_cache_fetch(mem_ctx, domain_name, domain_guid,
564 flags, site_name, info, &expired);
565 if (!NT_STATUS_IS_OK(status)) {
566 DEBUG(10,("dsgetdcname_cached: cache fetch failed with: %s\n",
567 nt_errstr(status)));
568 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
571 if (flags & DS_BACKGROUND_ONLY) {
572 return status;
575 if (expired) {
576 status = dsgetdcname_cache_refresh(mem_ctx, msg_ctx,
577 domain_name,
578 domain_guid, flags,
579 site_name, *info);
580 if (!NT_STATUS_IS_OK(status)) {
581 return status;
585 return status;
588 /****************************************************************
589 ****************************************************************/
591 static bool check_allowed_required_flags(uint32_t flags,
592 const char *site_name)
594 uint32_t return_type = flags & (DS_RETURN_FLAT_NAME|DS_RETURN_DNS_NAME);
595 uint32_t offered_type = flags & (DS_IS_FLAT_NAME|DS_IS_DNS_NAME);
596 uint32_t query_type = flags & (DS_BACKGROUND_ONLY|DS_FORCE_REDISCOVERY);
598 /* FIXME: check for DSGETDC_VALID_FLAGS and check for excluse bits
599 * (DS_PDC_REQUIRED, DS_KDC_REQUIRED, DS_GC_SERVER_REQUIRED) */
601 debug_dsdcinfo_flags(10, flags);
603 if ((flags & DS_TRY_NEXTCLOSEST_SITE) && site_name) {
604 return false;
607 if (return_type == (DS_RETURN_FLAT_NAME|DS_RETURN_DNS_NAME)) {
608 return false;
611 if (offered_type == (DS_IS_DNS_NAME|DS_IS_FLAT_NAME)) {
612 return false;
615 if (query_type == (DS_BACKGROUND_ONLY|DS_FORCE_REDISCOVERY)) {
616 return false;
619 #if 0
620 if ((flags & DS_RETURN_DNS_NAME) && (!(flags & DS_IP_REQUIRED))) {
621 printf("gd: here5 \n");
622 return false;
624 #endif
625 return true;
628 /****************************************************************
629 ****************************************************************/
631 static NTSTATUS discover_dc_netbios(TALLOC_CTX *mem_ctx,
632 const char *domain_name,
633 uint32_t flags,
634 struct ip_service_name **returned_dclist,
635 int *returned_count)
637 NTSTATUS status;
638 enum nbt_name_type name_type = NBT_NAME_LOGON;
639 struct ip_service *iplist;
640 int i;
641 struct ip_service_name *dclist = NULL;
642 int count;
644 *returned_dclist = NULL;
645 *returned_count = 0;
647 if (lp_disable_netbios()) {
648 return NT_STATUS_NOT_SUPPORTED;
651 if (flags & DS_PDC_REQUIRED) {
652 name_type = NBT_NAME_PDC;
655 status = internal_resolve_name(domain_name, name_type, NULL,
656 &iplist, &count,
657 "lmhosts wins bcast");
658 if (!NT_STATUS_IS_OK(status)) {
659 DEBUG(10,("discover_dc_netbios: failed to find DC\n"));
660 return status;
663 dclist = TALLOC_ZERO_ARRAY(mem_ctx, struct ip_service_name, count);
664 if (!dclist) {
665 return NT_STATUS_NO_MEMORY;
668 for (i=0; i<count; i++) {
670 char addr[INET6_ADDRSTRLEN];
671 struct ip_service_name *r = &dclist[i];
673 print_sockaddr(addr, sizeof(addr),
674 &iplist[i].ss);
676 r->ss = iplist[i].ss;
677 r->port = iplist[i].port;
678 r->hostname = talloc_strdup(mem_ctx, addr);
679 if (!r->hostname) {
680 return NT_STATUS_NO_MEMORY;
685 *returned_dclist = dclist;
686 *returned_count = count;
688 return NT_STATUS_OK;
691 /****************************************************************
692 ****************************************************************/
694 static NTSTATUS discover_dc_dns(TALLOC_CTX *mem_ctx,
695 const char *domain_name,
696 struct GUID *domain_guid,
697 uint32_t flags,
698 const char *site_name,
699 struct ip_service_name **returned_dclist,
700 int *return_count)
702 int i, j;
703 NTSTATUS status;
704 struct dns_rr_srv *dcs = NULL;
705 int numdcs = 0;
706 int numaddrs = 0;
707 struct ip_service_name *dclist = NULL;
708 int count = 0;
710 if (flags & DS_PDC_REQUIRED) {
711 status = ads_dns_query_pdc(mem_ctx, domain_name,
712 &dcs, &numdcs);
713 } else if (flags & DS_GC_SERVER_REQUIRED) {
714 status = ads_dns_query_gcs(mem_ctx, domain_name, site_name,
715 &dcs, &numdcs);
716 } else if (flags & DS_KDC_REQUIRED) {
717 status = ads_dns_query_kdcs(mem_ctx, domain_name, site_name,
718 &dcs, &numdcs);
719 } else if (flags & DS_DIRECTORY_SERVICE_REQUIRED) {
720 status = ads_dns_query_dcs(mem_ctx, domain_name, site_name,
721 &dcs, &numdcs);
722 } else if (domain_guid) {
723 status = ads_dns_query_dcs_guid(mem_ctx, domain_name,
724 domain_guid, &dcs, &numdcs);
725 } else {
726 status = ads_dns_query_dcs(mem_ctx, domain_name, site_name,
727 &dcs, &numdcs);
730 if (!NT_STATUS_IS_OK(status)) {
731 return status;
734 if (numdcs == 0) {
735 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
738 for (i=0;i<numdcs;i++) {
739 numaddrs += MAX(dcs[i].num_ips,1);
742 dclist = TALLOC_ZERO_ARRAY(mem_ctx,
743 struct ip_service_name,
744 numaddrs);
745 if (!dclist) {
746 return NT_STATUS_NO_MEMORY;
749 /* now unroll the list of IP addresses */
751 *return_count = 0;
752 i = 0;
753 j = 0;
755 while ((i < numdcs) && (count < numaddrs)) {
757 struct ip_service_name *r = &dclist[count];
759 r->port = dcs[count].port;
760 r->hostname = dcs[count].hostname;
762 /* If we don't have an IP list for a name, lookup it up */
764 if (!dcs[i].ss_s) {
765 interpret_string_addr(&r->ss, dcs[i].hostname, 0);
766 i++;
767 j = 0;
768 } else {
769 /* use the IP addresses from the SRV sresponse */
771 if (j >= dcs[i].num_ips) {
772 i++;
773 j = 0;
774 continue;
777 r->ss = dcs[i].ss_s[j];
778 j++;
781 /* make sure it is a valid IP. I considered checking the
782 * negative connection cache, but this is the wrong place for
783 * it. Maybe only as a hac. After think about it, if all of
784 * the IP addresses retuend from DNS are dead, what hope does a
785 * netbios name lookup have? The standard reason for falling
786 * back to netbios lookups is that our DNS server doesn't know
787 * anything about the DC's -- jerry */
789 if (!is_zero_addr(&r->ss)) {
790 count++;
791 continue;
795 *returned_dclist = dclist;
796 *return_count = count;
798 if (count > 0) {
799 return NT_STATUS_OK;
802 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
805 /****************************************************************
806 ****************************************************************/
808 static NTSTATUS make_domain_controller_info(TALLOC_CTX *mem_ctx,
809 const char *dc_unc,
810 const char *dc_address,
811 uint32_t dc_address_type,
812 const struct GUID *domain_guid,
813 const char *domain_name,
814 const char *forest_name,
815 uint32_t flags,
816 const char *dc_site_name,
817 const char *client_site_name,
818 struct netr_DsRGetDCNameInfo **info_out)
820 struct netr_DsRGetDCNameInfo *info;
822 info = TALLOC_ZERO_P(mem_ctx, struct netr_DsRGetDCNameInfo);
823 NT_STATUS_HAVE_NO_MEMORY(info);
825 if (dc_unc) {
826 info->dc_unc = talloc_strdup(mem_ctx, dc_unc);
827 NT_STATUS_HAVE_NO_MEMORY(info->dc_unc);
830 if (dc_address) {
831 if (!(dc_address[0] == '\\' && dc_address[1] == '\\')) {
832 info->dc_address = talloc_asprintf(mem_ctx, "\\\\%s",
833 dc_address);
834 } else {
835 info->dc_address = talloc_strdup(mem_ctx, dc_address);
837 NT_STATUS_HAVE_NO_MEMORY(info->dc_address);
840 info->dc_address_type = dc_address_type;
842 if (domain_guid) {
843 info->domain_guid = *domain_guid;
846 if (domain_name) {
847 info->domain_name = talloc_strdup(mem_ctx, domain_name);
848 NT_STATUS_HAVE_NO_MEMORY(info->domain_name);
851 if (forest_name && *forest_name) {
852 info->forest_name = talloc_strdup(mem_ctx, forest_name);
853 NT_STATUS_HAVE_NO_MEMORY(info->forest_name);
854 flags |= DS_DNS_FOREST;
857 info->dc_flags = flags;
859 if (dc_site_name) {
860 info->dc_site_name = talloc_strdup(mem_ctx, dc_site_name);
861 NT_STATUS_HAVE_NO_MEMORY(info->dc_site_name);
864 if (client_site_name) {
865 info->client_site_name = talloc_strdup(mem_ctx,
866 client_site_name);
867 NT_STATUS_HAVE_NO_MEMORY(info->client_site_name);
870 *info_out = info;
872 return NT_STATUS_OK;
875 /****************************************************************
876 ****************************************************************/
878 static void map_dc_and_domain_names(uint32_t flags,
879 const char *dc_name,
880 const char *domain_name,
881 const char *dns_dc_name,
882 const char *dns_domain_name,
883 uint32_t *dc_flags,
884 const char **hostname_p,
885 const char **domain_p)
887 switch (flags & 0xf0000000) {
888 case DS_RETURN_FLAT_NAME:
889 if (dc_name && domain_name &&
890 *dc_name && *domain_name) {
891 *hostname_p = dc_name;
892 *domain_p = domain_name;
893 break;
895 case DS_RETURN_DNS_NAME:
896 default:
897 if (dns_dc_name && dns_domain_name &&
898 *dns_dc_name && *dns_domain_name) {
899 *hostname_p = dns_dc_name;
900 *domain_p = dns_domain_name;
901 *dc_flags |= DS_DNS_DOMAIN | DS_DNS_CONTROLLER;
902 break;
904 if (dc_name && domain_name &&
905 *dc_name && *domain_name) {
906 *hostname_p = dc_name;
907 *domain_p = domain_name;
908 break;
913 /****************************************************************
914 ****************************************************************/
916 static NTSTATUS make_dc_info_from_cldap_reply(TALLOC_CTX *mem_ctx,
917 uint32_t flags,
918 struct sockaddr_storage *ss,
919 uint32_t nt_version,
920 union nbt_cldap_netlogon *r,
921 struct netr_DsRGetDCNameInfo **info)
923 const char *dc_hostname, *dc_domain_name;
924 const char *dc_address = NULL;
925 const char *dc_forest = NULL;
926 uint32_t dc_address_type = 0;
927 uint32_t dc_flags = 0;
928 struct GUID *dc_domain_guid = NULL;
929 const char *dc_server_site = NULL;
930 const char *dc_client_site = NULL;
932 char addr[INET6_ADDRSTRLEN];
934 if (ss) {
935 print_sockaddr(addr, sizeof(addr), ss);
936 dc_address = addr;
937 dc_address_type = DS_ADDRESS_TYPE_INET;
940 switch (nt_version & 0x0000001f) {
941 case 0:
942 case 1:
943 case 16:
944 case 17:
945 if (!ss) {
946 dc_address = r->logon1.pdc_name;
947 dc_address_type = DS_ADDRESS_TYPE_NETBIOS;
950 map_dc_and_domain_names(flags,
951 r->logon1.pdc_name,
952 r->logon1.domain_name,
953 NULL,
954 NULL,
955 &dc_flags,
956 &dc_hostname,
957 &dc_domain_name);
959 if (flags & DS_PDC_REQUIRED) {
960 dc_flags = NBT_SERVER_WRITABLE | NBT_SERVER_PDC;
962 break;
963 case 2:
964 case 3:
965 case 18:
966 case 19:
967 if (!ss) {
968 dc_address = r->logon3.pdc_ip;
969 dc_address_type = DS_ADDRESS_TYPE_INET;
972 map_dc_and_domain_names(flags,
973 r->logon3.pdc_name,
974 r->logon3.domain_name,
975 r->logon3.pdc_dns_name,
976 r->logon3.dns_domain,
977 &dc_flags,
978 &dc_hostname,
979 &dc_domain_name);
981 dc_flags |= r->logon3.server_type;
982 dc_forest = r->logon3.forest;
983 dc_domain_guid = &r->logon3.domain_uuid;
985 break;
986 case 4:
987 case 5:
988 case 6:
989 case 7:
990 if (!ss) {
991 dc_address = r->logon5.pdc_name;
992 dc_address_type = DS_ADDRESS_TYPE_NETBIOS;
995 map_dc_and_domain_names(flags,
996 r->logon5.pdc_name,
997 r->logon5.domain,
998 r->logon5.pdc_dns_name,
999 r->logon5.dns_domain,
1000 &dc_flags,
1001 &dc_hostname,
1002 &dc_domain_name);
1004 dc_flags |= r->logon5.server_type;
1005 dc_forest = r->logon5.forest;
1006 dc_domain_guid = &r->logon5.domain_uuid;
1007 dc_server_site = r->logon5.server_site;
1008 dc_client_site = r->logon5.client_site;
1010 break;
1011 case 8:
1012 case 9:
1013 case 10:
1014 case 11:
1015 case 12:
1016 case 13:
1017 case 14:
1018 case 15:
1019 if (!ss) {
1020 dc_address = r->logon13.dc_sock_addr.pdc_ip;
1021 dc_address_type = DS_ADDRESS_TYPE_INET;
1024 map_dc_and_domain_names(flags,
1025 r->logon13.pdc_name,
1026 r->logon13.domain,
1027 r->logon13.pdc_dns_name,
1028 r->logon13.dns_domain,
1029 &dc_flags,
1030 &dc_hostname,
1031 &dc_domain_name);
1033 dc_flags |= r->logon13.server_type;
1034 dc_forest = r->logon13.forest;
1035 dc_domain_guid = &r->logon13.domain_uuid;
1036 dc_server_site = r->logon13.server_site;
1037 dc_client_site = r->logon13.client_site;
1039 break;
1040 case 20:
1041 case 21:
1042 case 22:
1043 case 23:
1044 case 24:
1045 case 25:
1046 case 26:
1047 case 27:
1048 case 28:
1049 if (!ss) {
1050 dc_address = r->logon15.pdc_name;
1051 dc_address_type = DS_ADDRESS_TYPE_NETBIOS;
1054 map_dc_and_domain_names(flags,
1055 r->logon15.pdc_name,
1056 r->logon15.domain,
1057 r->logon15.pdc_dns_name,
1058 r->logon15.dns_domain,
1059 &dc_flags,
1060 &dc_hostname,
1061 &dc_domain_name);
1063 dc_flags |= r->logon15.server_type;
1064 dc_forest = r->logon15.forest;
1065 dc_domain_guid = &r->logon15.domain_uuid;
1066 dc_server_site = r->logon15.server_site;
1067 dc_client_site = r->logon15.client_site;
1069 break;
1070 case 29:
1071 case 30:
1072 case 31:
1073 if (!ss) {
1074 dc_address = r->logon29.dc_sock_addr.pdc_ip;
1075 dc_address_type = DS_ADDRESS_TYPE_INET;
1078 map_dc_and_domain_names(flags,
1079 r->logon29.pdc_name,
1080 r->logon29.domain,
1081 r->logon29.pdc_dns_name,
1082 r->logon29.dns_domain,
1083 &dc_flags,
1084 &dc_hostname,
1085 &dc_domain_name);
1087 dc_flags |= r->logon29.server_type;
1088 dc_forest = r->logon29.forest;
1089 dc_domain_guid = &r->logon29.domain_uuid;
1090 dc_server_site = r->logon29.server_site;
1091 dc_client_site = r->logon29.client_site;
1093 break;
1094 default:
1095 return NT_STATUS_INVALID_PARAMETER;
1098 return make_domain_controller_info(mem_ctx,
1099 dc_hostname,
1100 dc_address,
1101 dc_address_type,
1102 dc_domain_guid,
1103 dc_domain_name,
1104 dc_forest,
1105 dc_flags,
1106 dc_server_site,
1107 dc_client_site,
1108 info);
1111 /****************************************************************
1112 ****************************************************************/
1114 static uint32_t map_ds_flags_to_nt_version(uint32_t flags)
1116 uint32_t nt_version = 0;
1118 if (flags & DS_PDC_REQUIRED) {
1119 nt_version |= NETLOGON_VERSION_PDC;
1122 if (flags & DS_GC_SERVER_REQUIRED) {
1123 nt_version |= NETLOGON_VERSION_GC;
1126 if (flags & DS_TRY_NEXTCLOSEST_SITE) {
1127 nt_version |= NETLOGON_VERSION_WITH_CLOSEST_SITE;
1130 if (flags & DS_IP_REQUIRED) {
1131 nt_version |= NETLOGON_VERSION_IP;
1134 return nt_version;
1137 /****************************************************************
1138 ****************************************************************/
1140 static NTSTATUS process_dc_dns(TALLOC_CTX *mem_ctx,
1141 const char *domain_name,
1142 uint32_t flags,
1143 struct ip_service_name *dclist,
1144 int num_dcs,
1145 struct netr_DsRGetDCNameInfo **info)
1147 int i = 0;
1148 bool valid_dc = false;
1149 union nbt_cldap_netlogon *r = NULL;
1150 uint32_t nt_version = NETLOGON_VERSION_5 |
1151 NETLOGON_VERSION_5EX;
1152 uint32_t ret_flags = 0;
1153 NTSTATUS status;
1155 nt_version |= map_ds_flags_to_nt_version(flags);
1157 for (i=0; i<num_dcs; i++) {
1159 DEBUG(10,("LDAP ping to %s\n", dclist[i].hostname));
1161 if (ads_cldap_netlogon(mem_ctx, dclist[i].hostname,
1162 domain_name,
1163 &nt_version,
1164 &r))
1166 ret_flags = get_cldap_reply_server_flags(r, nt_version);
1168 if (check_cldap_reply_required_flags(ret_flags, flags)) {
1169 valid_dc = true;
1170 break;
1174 continue;
1177 if (!valid_dc) {
1178 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1181 status = make_dc_info_from_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1182 nt_version, r, info);
1183 if (NT_STATUS_IS_OK(status)) {
1184 return store_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1185 nt_version, r);
1188 return status;
1191 /****************************************************************
1192 ****************************************************************/
1194 static struct event_context *ev_context(void)
1196 static struct event_context *ctx;
1198 if (!ctx && !(ctx = event_context_init(NULL))) {
1199 smb_panic("Could not init event context");
1201 return ctx;
1204 /****************************************************************
1205 ****************************************************************/
1207 static struct messaging_context *msg_context(TALLOC_CTX *mem_ctx)
1209 static struct messaging_context *ctx;
1211 if (!ctx && !(ctx = messaging_init(mem_ctx, server_id_self(),
1212 ev_context()))) {
1213 smb_panic("Could not init messaging context");
1215 return ctx;
1218 /****************************************************************
1219 ****************************************************************/
1221 static NTSTATUS process_dc_netbios(TALLOC_CTX *mem_ctx,
1222 struct messaging_context *msg_ctx,
1223 const char *domain_name,
1224 uint32_t flags,
1225 struct ip_service_name *dclist,
1226 int num_dcs,
1227 struct netr_DsRGetDCNameInfo **info)
1229 struct sockaddr_storage ss;
1230 struct ip_service ip_list;
1231 enum nbt_name_type name_type = NBT_NAME_LOGON;
1232 NTSTATUS status;
1233 int i;
1234 const char *dc_name = NULL;
1235 fstring tmp_dc_name;
1236 union nbt_cldap_netlogon *r = NULL;
1237 bool store_cache = false;
1238 uint32_t nt_version = NETLOGON_VERSION_1 |
1239 NETLOGON_VERSION_5 |
1240 NETLOGON_VERSION_5EX_WITH_IP;
1242 if (!msg_ctx) {
1243 msg_ctx = msg_context(mem_ctx);
1246 if (flags & DS_PDC_REQUIRED) {
1247 name_type = NBT_NAME_PDC;
1250 nt_version |= map_ds_flags_to_nt_version(flags);
1252 DEBUG(10,("process_dc_netbios\n"));
1254 for (i=0; i<num_dcs; i++) {
1256 ip_list.ss = dclist[i].ss;
1257 ip_list.port = 0;
1259 if (!interpret_string_addr(&ss, dclist[i].hostname, AI_NUMERICHOST)) {
1260 return NT_STATUS_UNSUCCESSFUL;
1263 if (send_getdc_request(mem_ctx, msg_ctx,
1264 &dclist[i].ss, domain_name,
1265 NULL, nt_version))
1267 int k;
1268 smb_msleep(300);
1269 for (k=0; k<5; k++) {
1270 if (receive_getdc_response(mem_ctx,
1271 &dclist[i].ss,
1272 domain_name,
1273 &nt_version,
1274 &dc_name,
1275 &r)) {
1276 store_cache = true;
1277 namecache_store(dc_name, NBT_NAME_SERVER, 1, &ip_list);
1278 goto make_reply;
1280 smb_msleep(1500);
1284 if (name_status_find(domain_name,
1285 name_type,
1286 NBT_NAME_SERVER,
1287 &dclist[i].ss,
1288 tmp_dc_name))
1290 struct nbt_cldap_netlogon_1 logon1;
1292 r = TALLOC_ZERO_P(mem_ctx, union nbt_cldap_netlogon);
1293 NT_STATUS_HAVE_NO_MEMORY(r);
1295 ZERO_STRUCT(logon1);
1297 nt_version = NETLOGON_VERSION_1;
1299 logon1.nt_version = nt_version;
1300 logon1.pdc_name = tmp_dc_name;
1301 logon1.domain_name = talloc_strdup_upper(mem_ctx, domain_name);
1302 NT_STATUS_HAVE_NO_MEMORY(logon1.domain_name);
1304 r->logon1 = logon1;
1306 namecache_store(tmp_dc_name, NBT_NAME_SERVER, 1, &ip_list);
1308 goto make_reply;
1312 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1314 make_reply:
1316 status = make_dc_info_from_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1317 nt_version, r, info);
1318 if (NT_STATUS_IS_OK(status) && store_cache) {
1319 return store_cldap_reply(mem_ctx, flags, &dclist[i].ss,
1320 nt_version, r);
1323 return status;
1326 /****************************************************************
1327 ****************************************************************/
1329 static NTSTATUS dsgetdcname_rediscover(TALLOC_CTX *mem_ctx,
1330 struct messaging_context *msg_ctx,
1331 const char *domain_name,
1332 struct GUID *domain_guid,
1333 uint32_t flags,
1334 const char *site_name,
1335 struct netr_DsRGetDCNameInfo **info)
1337 NTSTATUS status = NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1338 struct ip_service_name *dclist = NULL;
1339 int num_dcs;
1341 DEBUG(10,("dsgetdcname_rediscover\n"));
1343 if (flags & DS_IS_FLAT_NAME) {
1345 status = discover_dc_netbios(mem_ctx, domain_name, flags,
1346 &dclist, &num_dcs);
1347 NT_STATUS_NOT_OK_RETURN(status);
1349 return process_dc_netbios(mem_ctx, msg_ctx, domain_name, flags,
1350 dclist, num_dcs, info);
1353 if (flags & DS_IS_DNS_NAME) {
1355 status = discover_dc_dns(mem_ctx, domain_name, domain_guid,
1356 flags, site_name, &dclist, &num_dcs);
1357 NT_STATUS_NOT_OK_RETURN(status);
1359 return process_dc_dns(mem_ctx, domain_name, flags,
1360 dclist, num_dcs, info);
1363 status = discover_dc_dns(mem_ctx, domain_name, domain_guid, flags,
1364 site_name, &dclist, &num_dcs);
1366 if (NT_STATUS_IS_OK(status) && num_dcs != 0) {
1368 status = process_dc_dns(mem_ctx, domain_name, flags, dclist,
1369 num_dcs, info);
1370 if (NT_STATUS_IS_OK(status)) {
1371 return status;
1375 status = discover_dc_netbios(mem_ctx, domain_name, flags, &dclist,
1376 &num_dcs);
1377 NT_STATUS_NOT_OK_RETURN(status);
1379 return process_dc_netbios(mem_ctx, msg_ctx, domain_name, flags, dclist,
1380 num_dcs, info);
1383 /********************************************************************
1384 dsgetdcname.
1386 This will be the only public function here.
1387 ********************************************************************/
1389 NTSTATUS dsgetdcname(TALLOC_CTX *mem_ctx,
1390 struct messaging_context *msg_ctx,
1391 const char *domain_name,
1392 struct GUID *domain_guid,
1393 const char *site_name,
1394 uint32_t flags,
1395 struct netr_DsRGetDCNameInfo **info)
1397 NTSTATUS status = NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1398 struct netr_DsRGetDCNameInfo *myinfo = NULL;
1399 char *query_site = NULL;
1401 DEBUG(10,("dsgetdcname: domain_name: %s, "
1402 "domain_guid: %s, site_name: %s, flags: 0x%08x\n",
1403 domain_name,
1404 domain_guid ? GUID_string(mem_ctx, domain_guid) : "(null)",
1405 site_name, flags));
1407 *info = NULL;
1409 if (!check_allowed_required_flags(flags, site_name)) {
1410 DEBUG(0,("invalid flags specified\n"));
1411 return NT_STATUS_INVALID_PARAMETER;
1414 if (!site_name) {
1415 query_site = sitename_fetch(domain_name);
1416 } else {
1417 query_site = SMB_STRDUP(site_name);
1420 if (flags & DS_FORCE_REDISCOVERY) {
1421 goto rediscover;
1424 status = dsgetdcname_cached(mem_ctx, msg_ctx, domain_name, domain_guid,
1425 flags, query_site, &myinfo);
1426 if (NT_STATUS_IS_OK(status)) {
1427 *info = myinfo;
1428 goto done;
1431 if (flags & DS_BACKGROUND_ONLY) {
1432 goto done;
1435 rediscover:
1436 status = dsgetdcname_rediscover(mem_ctx, msg_ctx, domain_name,
1437 domain_guid, flags, query_site,
1438 &myinfo);
1440 if (NT_STATUS_IS_OK(status)) {
1441 *info = myinfo;
1444 done:
1445 SAFE_FREE(query_site);
1447 return status;