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