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