2 Unix SMB/CIFS implementation.
4 Copyright (C) Andrew Tridgell 1994-1998
5 Copyright (C) Jeremy Allison 2007.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>.
23 /* nmbd.c sets this to True. */
24 bool global_in_nmbd
= False
;
26 /****************************
27 * SERVER AFFINITY ROUTINES *
28 ****************************/
30 /* Server affinity is the concept of preferring the last domain
31 controller with whom you had a successful conversation */
33 /****************************************************************************
34 ****************************************************************************/
35 #define SAFKEY_FMT "SAF/DOMAIN/%s"
37 #define SAFJOINKEY_FMT "SAFJOIN/DOMAIN/%s"
38 #define SAFJOIN_TTL 3600
40 static char *saf_key(const char *domain
)
44 asprintf_strupper_m(&keystr
, SAFKEY_FMT
, domain
);
49 static char *saf_join_key(const char *domain
)
53 asprintf_strupper_m(&keystr
, SAFJOINKEY_FMT
, domain
);
58 /****************************************************************************
59 ****************************************************************************/
61 bool saf_store( const char *domain
, const char *servername
)
67 if ( !domain
|| !servername
) {
68 DEBUG(2,("saf_store: "
69 "Refusing to store empty domain or servername!\n"));
73 if ( (strlen(domain
) == 0) || (strlen(servername
) == 0) ) {
74 DEBUG(0,("saf_store: "
75 "refusing to store 0 length domain or servername!\n"));
79 key
= saf_key( domain
);
80 expire
= time( NULL
) + lp_parm_int(-1, "saf","ttl", SAF_TTL
);
82 DEBUG(10,("saf_store: domain = [%s], server = [%s], expire = [%u]\n",
83 domain
, servername
, (unsigned int)expire
));
85 ret
= gencache_set( key
, servername
, expire
);
92 bool saf_join_store( const char *domain
, const char *servername
)
98 if ( !domain
|| !servername
) {
99 DEBUG(2,("saf_join_store: Refusing to store empty domain or servername!\n"));
103 if ( (strlen(domain
) == 0) || (strlen(servername
) == 0) ) {
104 DEBUG(0,("saf_join_store: refusing to store 0 length domain or servername!\n"));
108 key
= saf_join_key( domain
);
109 expire
= time( NULL
) + lp_parm_int(-1, "saf","join ttl", SAFJOIN_TTL
);
111 DEBUG(10,("saf_join_store: domain = [%s], server = [%s], expire = [%u]\n",
112 domain
, servername
, (unsigned int)expire
));
114 ret
= gencache_set( key
, servername
, expire
);
121 bool saf_delete( const char *domain
)
127 DEBUG(2,("saf_delete: Refusing to delete empty domain\n"));
131 key
= saf_join_key(domain
);
132 ret
= gencache_del(key
);
136 DEBUG(10,("saf_delete[join]: domain = [%s]\n", domain
));
139 key
= saf_key(domain
);
140 ret
= gencache_del(key
);
144 DEBUG(10,("saf_delete: domain = [%s]\n", domain
));
150 /****************************************************************************
151 ****************************************************************************/
153 char *saf_fetch( const char *domain
)
160 if ( !domain
|| strlen(domain
) == 0) {
161 DEBUG(2,("saf_fetch: Empty domain name!\n"));
165 key
= saf_join_key( domain
);
167 ret
= gencache_get( key
, &server
, &timeout
);
172 DEBUG(5,("saf_fetch[join]: Returning \"%s\" for \"%s\" domain\n",
177 key
= saf_key( domain
);
179 ret
= gencache_get( key
, &server
, &timeout
);
184 DEBUG(5,("saf_fetch: failed to find server for \"%s\" domain\n",
187 DEBUG(5,("saf_fetch: Returning \"%s\" for \"%s\" domain\n",
194 /****************************************************************************
195 Generate a random trn_id.
196 ****************************************************************************/
198 static int generate_trn_id(void)
202 generate_random_buffer((uint8
*)&id
, sizeof(id
));
204 return id
% (unsigned)0x7FFF;
207 /****************************************************************************
208 Parse a node status response into an array of structures.
209 ****************************************************************************/
211 static NODE_STATUS_STRUCT
*parse_node_status(char *p
,
213 struct node_status_extra
*extra
)
215 NODE_STATUS_STRUCT
*ret
;
218 *num_names
= CVAL(p
,0);
223 ret
= SMB_MALLOC_ARRAY(NODE_STATUS_STRUCT
,*num_names
);
228 for (i
=0;i
< *num_names
;i
++) {
229 StrnCpy(ret
[i
].name
,p
,15);
230 trim_char(ret
[i
].name
,'\0',' ');
231 ret
[i
].type
= CVAL(p
,15);
232 ret
[i
].flags
= p
[16];
234 DEBUG(10, ("%s#%02x: flags = 0x%02x\n", ret
[i
].name
,
235 ret
[i
].type
, ret
[i
].flags
));
238 * Also, pick up the MAC address ...
241 memcpy(&extra
->mac_addr
, p
, 6); /* Fill in the mac addr */
247 /****************************************************************************
248 Do a NBT node status query on an open socket and return an array of
249 structures holding the returned names or NULL if the query failed.
250 **************************************************************************/
252 NODE_STATUS_STRUCT
*node_status_query(int fd
,
253 struct nmb_name
*name
,
254 const struct sockaddr_storage
*to_ss
,
256 struct node_status_extra
*extra
)
260 int retry_time
= 2000;
262 struct packet_struct p
;
263 struct packet_struct
*p2
;
264 struct nmb_packet
*nmb
= &p
.packet
.nmb
;
265 NODE_STATUS_STRUCT
*ret
;
269 if (to_ss
->ss_family
!= AF_INET
) {
270 /* Can't do node status to IPv6 */
273 nmb
->header
.name_trn_id
= generate_trn_id();
274 nmb
->header
.opcode
= 0;
275 nmb
->header
.response
= false;
276 nmb
->header
.nm_flags
.bcast
= false;
277 nmb
->header
.nm_flags
.recursion_available
= false;
278 nmb
->header
.nm_flags
.recursion_desired
= false;
279 nmb
->header
.nm_flags
.trunc
= false;
280 nmb
->header
.nm_flags
.authoritative
= false;
281 nmb
->header
.rcode
= 0;
282 nmb
->header
.qdcount
= 1;
283 nmb
->header
.ancount
= 0;
284 nmb
->header
.nscount
= 0;
285 nmb
->header
.arcount
= 0;
286 nmb
->question
.question_name
= *name
;
287 nmb
->question
.question_type
= 0x21;
288 nmb
->question
.question_class
= 0x1;
290 p
.ip
= ((const struct sockaddr_in
*)to_ss
)->sin_addr
;
294 p
.timestamp
= time(NULL
);
295 p
.packet_type
= NMB_PACKET
;
299 if (!send_packet(&p
))
305 struct timeval tval2
;
306 GetTimeOfDay(&tval2
);
307 if (TvalDiff(&tval
,&tval2
) > retry_time
) {
310 if (!found
&& !send_packet(&p
))
316 if ((p2
=receive_nmb_packet(fd
,90,nmb
->header
.name_trn_id
))) {
317 struct nmb_packet
*nmb2
= &p2
->packet
.nmb
;
318 debug_nmb_packet(p2
);
320 if (nmb2
->header
.opcode
!= 0 ||
321 nmb2
->header
.nm_flags
.bcast
||
322 nmb2
->header
.rcode
||
323 !nmb2
->header
.ancount
||
324 nmb2
->answers
->rr_type
!= 0x21) {
325 /* XXXX what do we do with this? could be a
326 redirect, but we'll discard it for the
332 ret
= parse_node_status(&nmb2
->answers
->rdata
[0],
342 /****************************************************************************
343 Find the first type XX name in a node status reply - used for finding
344 a servers name given its IP. Return the matched name in *name.
345 **************************************************************************/
347 bool name_status_find(const char *q_name
,
350 const struct sockaddr_storage
*to_ss
,
353 char addr
[INET6_ADDRSTRLEN
];
354 struct sockaddr_storage ss
;
355 NODE_STATUS_STRUCT
*status
= NULL
;
356 struct nmb_name nname
;
361 if (lp_disable_netbios()) {
362 DEBUG(5,("name_status_find(%s#%02x): netbios is disabled\n",
367 print_sockaddr(addr
, sizeof(addr
), to_ss
);
369 DEBUG(10, ("name_status_find: looking up %s#%02x at %s\n", q_name
,
372 /* Check the cache first. */
374 if (namecache_status_fetch(q_name
, q_type
, type
, to_ss
, name
)) {
378 if (to_ss
->ss_family
!= AF_INET
) {
379 /* Can't do node status to IPv6 */
383 if (!interpret_string_addr(&ss
, lp_socket_address(),
384 AI_NUMERICHOST
|AI_PASSIVE
)) {
388 sock
= open_socket_in(SOCK_DGRAM
, 0, 3, &ss
, True
);
392 /* W2K PDC's seem not to respond to '*'#0. JRA */
393 make_nmb_name(&nname
, q_name
, q_type
);
394 status
= node_status_query(sock
, &nname
, to_ss
, &count
, NULL
);
399 for (i
=0;i
<count
;i
++) {
400 /* Find first one of the requested type that's not a GROUP. */
401 if (status
[i
].type
== type
&& ! (status
[i
].flags
& 0x80))
407 pull_ascii_nstring(name
, sizeof(fstring
), status
[i
].name
);
409 /* Store the result in the cache. */
410 /* but don't store an entry for 0x1c names here. Here we have
411 a single host and DOMAIN<0x1c> names should be a list of hosts */
413 if ( q_type
!= 0x1c ) {
414 namecache_status_store(q_name
, q_type
, type
, to_ss
, name
);
422 DEBUG(10, ("name_status_find: name %sfound", result
? "" : "not "));
425 DEBUGADD(10, (", name %s ip address is %s", name
, addr
));
433 comparison function used by sort_addr_list
436 static int addr_compare(const struct sockaddr
*ss1
,
437 const struct sockaddr
*ss2
)
439 int max_bits1
=0, max_bits2
=0;
440 int num_interfaces
= iface_count();
443 /* Sort IPv4 addresses first. */
444 if (ss1
->sa_family
!= ss2
->sa_family
) {
445 if (ss2
->sa_family
== AF_INET
) {
452 /* Here we know both addresses are of the same
455 for (i
=0;i
<num_interfaces
;i
++) {
456 const struct sockaddr_storage
*pss
= iface_n_bcast(i
);
457 unsigned char *p_ss1
= NULL
;
458 unsigned char *p_ss2
= NULL
;
459 unsigned char *p_if
= NULL
;
463 if (pss
->ss_family
!= ss1
->sa_family
) {
464 /* Ignore interfaces of the wrong type. */
467 if (pss
->ss_family
== AF_INET
) {
468 p_if
= (unsigned char *)
469 &((const struct sockaddr_in
*)pss
)->sin_addr
;
470 p_ss1
= (unsigned char *)
471 &((const struct sockaddr_in
*)ss1
)->sin_addr
;
472 p_ss2
= (unsigned char *)
473 &((const struct sockaddr_in
*)ss2
)->sin_addr
;
476 #if defined(HAVE_IPV6)
477 if (pss
->ss_family
== AF_INET6
) {
478 p_if
= (unsigned char *)
479 &((const struct sockaddr_in6
*)pss
)->sin6_addr
;
480 p_ss1
= (unsigned char *)
481 &((const struct sockaddr_in6
*)ss1
)->sin6_addr
;
482 p_ss2
= (unsigned char *)
483 &((const struct sockaddr_in6
*)ss2
)->sin6_addr
;
487 if (!p_ss1
|| !p_ss2
|| !p_if
|| len
== 0) {
490 bits1
= matching_len_bits(p_ss1
, p_if
, len
);
491 bits2
= matching_len_bits(p_ss2
, p_if
, len
);
492 max_bits1
= MAX(bits1
, max_bits1
);
493 max_bits2
= MAX(bits2
, max_bits2
);
496 /* Bias towards directly reachable IPs */
497 if (iface_local(ss1
)) {
498 if (ss1
->sa_family
== AF_INET
) {
504 if (iface_local(ss2
)) {
505 if (ss2
->sa_family
== AF_INET
) {
511 return max_bits2
- max_bits1
;
514 /*******************************************************************
515 compare 2 ldap IPs by nearness to our interfaces - used in qsort
516 *******************************************************************/
518 int ip_service_compare(struct ip_service
*ss1
, struct ip_service
*ss2
)
522 if ((result
= addr_compare((struct sockaddr
*)&ss1
->ss
, (struct sockaddr
*)&ss2
->ss
)) != 0) {
526 if (ss1
->port
> ss2
->port
) {
530 if (ss1
->port
< ss2
->port
) {
538 sort an IP list so that names that are close to one of our interfaces
539 are at the top. This prevents the problem where a WINS server returns an IP
540 that is not reachable from our subnet as the first match
543 static void sort_addr_list(struct sockaddr_storage
*sslist
, int count
)
549 qsort(sslist
, count
, sizeof(struct sockaddr_storage
),
550 QSORT_CAST addr_compare
);
553 static void sort_service_list(struct ip_service
*servlist
, int count
)
559 qsort(servlist
, count
, sizeof(struct ip_service
),
560 QSORT_CAST ip_service_compare
);
563 /**********************************************************************
564 Remove any duplicate address/port pairs in the list
565 *********************************************************************/
567 static int remove_duplicate_addrs2(struct ip_service
*iplist
, int count
)
571 DEBUG(10,("remove_duplicate_addrs2: "
572 "looking for duplicate address/port pairs\n"));
574 /* one loop to remove duplicates */
575 for ( i
=0; i
<count
; i
++ ) {
576 if ( is_zero_addr((struct sockaddr
*)&iplist
[i
].ss
)) {
580 for ( j
=i
+1; j
<count
; j
++ ) {
581 if (sockaddr_equal((struct sockaddr
*)&iplist
[i
].ss
, (struct sockaddr
*)&iplist
[j
].ss
) &&
582 iplist
[i
].port
== iplist
[j
].port
) {
583 zero_sockaddr(&iplist
[j
].ss
);
588 /* one loop to clean up any holes we left */
589 /* first ip should never be a zero_ip() */
590 for (i
= 0; i
<count
; ) {
591 if (is_zero_addr((struct sockaddr
*)&iplist
[i
].ss
) ) {
593 memmove(&iplist
[i
], &iplist
[i
+1],
594 (count
- i
- 1)*sizeof(iplist
[i
]));
605 static bool prioritize_ipv4_list(struct ip_service
*iplist
, int count
)
607 TALLOC_CTX
*frame
= talloc_stackframe();
608 struct ip_service
*iplist_new
= TALLOC_ARRAY(frame
, struct ip_service
, count
);
611 if (iplist_new
== NULL
) {
618 /* Copy IPv4 first. */
619 for (i
= 0; i
< count
; i
++) {
620 if (iplist
[i
].ss
.ss_family
== AF_INET
) {
621 iplist_new
[j
++] = iplist
[i
];
626 for (i
= 0; i
< count
; i
++) {
627 if (iplist
[i
].ss
.ss_family
!= AF_INET
) {
628 iplist_new
[j
++] = iplist
[i
];
632 memcpy(iplist
, iplist_new
, sizeof(struct ip_service
)*count
);
637 /****************************************************************************
638 Do a netbios name query to find someones IP.
639 Returns an array of IP addresses or NULL if none.
640 *count will be set to the number of addresses returned.
641 *timed_out is set if we failed by timing out
642 ****************************************************************************/
644 struct sockaddr_storage
*name_query(int fd
,
649 const struct sockaddr_storage
*to_ss
,
656 int retry_time
= bcast
?250:2000;
658 struct packet_struct p
;
659 struct packet_struct
*p2
;
660 struct nmb_packet
*nmb
= &p
.packet
.nmb
;
661 struct sockaddr_storage
*ss_list
= NULL
;
663 if (lp_disable_netbios()) {
664 DEBUG(5,("name_query(%s#%02x): netbios is disabled\n",
669 if (to_ss
->ss_family
!= AF_INET
) {
677 memset((char *)&p
,'\0',sizeof(p
));
681 nmb
->header
.name_trn_id
= generate_trn_id();
682 nmb
->header
.opcode
= 0;
683 nmb
->header
.response
= false;
684 nmb
->header
.nm_flags
.bcast
= bcast
;
685 nmb
->header
.nm_flags
.recursion_available
= false;
686 nmb
->header
.nm_flags
.recursion_desired
= recurse
;
687 nmb
->header
.nm_flags
.trunc
= false;
688 nmb
->header
.nm_flags
.authoritative
= false;
689 nmb
->header
.rcode
= 0;
690 nmb
->header
.qdcount
= 1;
691 nmb
->header
.ancount
= 0;
692 nmb
->header
.nscount
= 0;
693 nmb
->header
.arcount
= 0;
695 make_nmb_name(&nmb
->question
.question_name
,name
,name_type
);
697 nmb
->question
.question_type
= 0x20;
698 nmb
->question
.question_class
= 0x1;
700 p
.ip
= ((struct sockaddr_in
*)to_ss
)->sin_addr
;
704 p
.timestamp
= time(NULL
);
705 p
.packet_type
= NMB_PACKET
;
709 if (!send_packet(&p
))
715 struct timeval tval2
;
717 GetTimeOfDay(&tval2
);
718 if (TvalDiff(&tval
,&tval2
) > retry_time
) {
721 if (!found
&& !send_packet(&p
))
727 if ((p2
=receive_nmb_packet(fd
,90,nmb
->header
.name_trn_id
))) {
728 struct nmb_packet
*nmb2
= &p2
->packet
.nmb
;
729 debug_nmb_packet(p2
);
731 /* If we get a Negative Name Query Response from a WINS
732 * server, we should report it and give up.
734 if( 0 == nmb2
->header
.opcode
/* A query response */
735 && !(bcast
) /* from a WINS server */
736 && nmb2
->header
.rcode
/* Error returned */
739 if( DEBUGLVL( 3 ) ) {
740 /* Only executed if DEBUGLEVEL >= 3 */
741 dbgtext( "Negative name query "
742 "response, rcode 0x%02x: ",
743 nmb2
->header
.rcode
);
744 switch( nmb2
->header
.rcode
) {
747 "was invalidly formatted.\n" );
750 dbgtext( "Problem with NBNS, "
751 "cannot process name.\n");
754 dbgtext( "The name requested "
755 "does not exist.\n" );
758 dbgtext( "Unsupported request "
762 dbgtext( "Query refused "
766 dbgtext( "Unrecognized error "
775 if (nmb2
->header
.opcode
!= 0 ||
776 nmb2
->header
.nm_flags
.bcast
||
777 nmb2
->header
.rcode
||
778 !nmb2
->header
.ancount
) {
780 * XXXX what do we do with this? Could be a
781 * redirect, but we'll discard it for the
788 ss_list
= SMB_REALLOC_ARRAY(ss_list
,
789 struct sockaddr_storage
,
791 nmb2
->answers
->rdlength
/6);
794 DEBUG(0,("name_query: Realloc failed.\n"));
799 DEBUG(2,("Got a positive name query response "
803 for (i
=0;i
<nmb2
->answers
->rdlength
/6;i
++) {
805 putip((char *)&ip
,&nmb2
->answers
->rdata
[2+i
*6]);
806 in_addr_to_sockaddr_storage(&ss_list
[(*count
)],
808 DEBUGADD(2,("%s ",inet_ntoa(ip
)));
815 /* We add the flags back ... */
816 if (nmb2
->header
.response
)
817 (*flags
) |= NM_FLAGS_RS
;
818 if (nmb2
->header
.nm_flags
.authoritative
)
819 (*flags
) |= NM_FLAGS_AA
;
820 if (nmb2
->header
.nm_flags
.trunc
)
821 (*flags
) |= NM_FLAGS_TC
;
822 if (nmb2
->header
.nm_flags
.recursion_desired
)
823 (*flags
) |= NM_FLAGS_RD
;
824 if (nmb2
->header
.nm_flags
.recursion_available
)
825 (*flags
) |= NM_FLAGS_RA
;
826 if (nmb2
->header
.nm_flags
.bcast
)
827 (*flags
) |= NM_FLAGS_B
;
830 * If we're doing a unicast lookup we only
831 * expect one reply. Don't wait the full 2
832 * seconds if we got one. JRA.
839 /* only set timed_out if we didn't fund what we where looking for*/
841 if ( !found
&& timed_out
) {
845 /* sort the ip list so we choose close servers first if possible */
846 sort_addr_list(ss_list
, *count
);
851 /********************************************************
852 convert an array if struct sockaddr_storage to struct ip_service
853 return false on failure. Port is set to PORT_NONE;
854 *********************************************************/
856 static bool convert_ss2service(struct ip_service
**return_iplist
,
857 const struct sockaddr_storage
*ss_list
,
862 if ( count
==0 || !ss_list
)
865 /* copy the ip address; port will be PORT_NONE */
866 if ((*return_iplist
= SMB_MALLOC_ARRAY(struct ip_service
, count
)) ==
868 DEBUG(0,("convert_ip2service: malloc failed "
869 "for %d enetries!\n", count
));
873 for ( i
=0; i
<count
; i
++ ) {
874 (*return_iplist
)[i
].ss
= ss_list
[i
];
875 (*return_iplist
)[i
].port
= PORT_NONE
;
881 /********************************************************
882 Resolve via "bcast" method.
883 *********************************************************/
885 NTSTATUS
name_resolve_bcast(const char *name
,
887 struct ip_service
**return_iplist
,
891 int num_interfaces
= iface_count();
892 struct sockaddr_storage
*ss_list
;
893 struct sockaddr_storage ss
;
896 if (lp_disable_netbios()) {
897 DEBUG(5,("name_resolve_bcast(%s#%02x): netbios is disabled\n",
899 return NT_STATUS_INVALID_PARAMETER
;
902 *return_iplist
= NULL
;
906 * "bcast" means do a broadcast lookup on all the local interfaces.
909 DEBUG(3,("name_resolve_bcast: Attempting broadcast lookup "
910 "for name %s<0x%x>\n", name
, name_type
));
912 if (!interpret_string_addr(&ss
, lp_socket_address(),
913 AI_NUMERICHOST
|AI_PASSIVE
)) {
917 sock
= open_socket_in( SOCK_DGRAM
, 0, 3, &ss
, true );
919 return NT_STATUS_UNSUCCESSFUL
;
922 set_socket_options(sock
,"SO_BROADCAST");
924 * Lookup the name on all the interfaces, return on
925 * the first successful match.
927 for( i
= num_interfaces
-1; i
>= 0; i
--) {
928 const struct sockaddr_storage
*pss
= iface_n_bcast(i
);
931 /* Done this way to fix compiler error on IRIX 5.x */
935 ss_list
= name_query(sock
, name
, name_type
, true,
936 true, pss
, return_count
, &flags
, NULL
);
942 /* failed - no response */
945 return NT_STATUS_UNSUCCESSFUL
;
949 status
= NT_STATUS_OK
;
950 if (!convert_ss2service(return_iplist
, ss_list
, *return_count
) )
951 status
= NT_STATUS_INVALID_PARAMETER
;
958 /********************************************************
959 Resolve via "wins" method.
960 *********************************************************/
962 NTSTATUS
resolve_wins(const char *name
,
964 struct ip_service
**return_iplist
,
969 struct sockaddr_storage src_ss
, *ss_list
= NULL
;
970 struct in_addr src_ip
;
973 if (lp_disable_netbios()) {
974 DEBUG(5,("resolve_wins(%s#%02x): netbios is disabled\n",
976 return NT_STATUS_INVALID_PARAMETER
;
979 *return_iplist
= NULL
;
982 DEBUG(3,("resolve_wins: Attempting wins lookup for name %s<0x%x>\n",
985 if (wins_srv_count() < 1) {
986 DEBUG(3,("resolve_wins: WINS server resolution selected "
987 "and no WINS servers listed.\n"));
988 return NT_STATUS_INVALID_PARAMETER
;
991 /* we try a lookup on each of the WINS tags in turn */
992 wins_tags
= wins_srv_tags();
995 /* huh? no tags?? give up in disgust */
996 return NT_STATUS_INVALID_PARAMETER
;
999 /* the address we will be sending from */
1000 if (!interpret_string_addr(&src_ss
, lp_socket_address(),
1001 AI_NUMERICHOST
|AI_PASSIVE
)) {
1002 zero_sockaddr(&src_ss
);
1005 if (src_ss
.ss_family
!= AF_INET
) {
1006 char addr
[INET6_ADDRSTRLEN
];
1007 print_sockaddr(addr
, sizeof(addr
), &src_ss
);
1008 DEBUG(3,("resolve_wins: cannot receive WINS replies "
1009 "on IPv6 address %s\n",
1011 wins_srv_tags_free(wins_tags
);
1012 return NT_STATUS_INVALID_PARAMETER
;
1015 src_ip
= ((struct sockaddr_in
*)&src_ss
)->sin_addr
;
1017 /* in the worst case we will try every wins server with every
1019 for (t
=0; wins_tags
&& wins_tags
[t
]; t
++) {
1020 int srv_count
= wins_srv_count_tag(wins_tags
[t
]);
1021 for (i
=0; i
<srv_count
; i
++) {
1022 struct sockaddr_storage wins_ss
;
1023 struct in_addr wins_ip
;
1027 wins_ip
= wins_srv_ip_tag(wins_tags
[t
], src_ip
);
1029 if (global_in_nmbd
&& ismyip_v4(wins_ip
)) {
1030 /* yikes! we'll loop forever */
1034 /* skip any that have been unresponsive lately */
1035 if (wins_srv_is_dead(wins_ip
, src_ip
)) {
1039 DEBUG(3,("resolve_wins: using WINS server %s "
1041 inet_ntoa(wins_ip
), wins_tags
[t
]));
1043 sock
= open_socket_in(SOCK_DGRAM
, 0, 3, &src_ss
, true);
1048 in_addr_to_sockaddr_storage(&wins_ss
, wins_ip
);
1049 ss_list
= name_query(sock
,
1059 /* exit loop if we got a list of addresses */
1067 /* Timed out wating for WINS server to respond.
1069 wins_srv_died(wins_ip
, src_ip
);
1071 /* The name definately isn't in this
1072 group of WINS servers.
1073 goto the next group */
1079 wins_srv_tags_free(wins_tags
);
1080 return NT_STATUS_NO_LOGON_SERVERS
;
1084 status
= NT_STATUS_OK
;
1085 if (!convert_ss2service(return_iplist
, ss_list
, *return_count
))
1086 status
= NT_STATUS_INVALID_PARAMETER
;
1089 wins_srv_tags_free(wins_tags
);
1095 /********************************************************
1096 Resolve via "lmhosts" method.
1097 *********************************************************/
1099 static NTSTATUS
resolve_lmhosts(const char *name
, int name_type
,
1100 struct ip_service
**return_iplist
,
1104 * "lmhosts" means parse the local lmhosts file.
1108 char *lmhost_name
= NULL
;
1110 struct sockaddr_storage return_ss
;
1111 NTSTATUS status
= NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND
;
1112 TALLOC_CTX
*ctx
= NULL
;
1114 *return_iplist
= NULL
;
1117 DEBUG(3,("resolve_lmhosts: "
1118 "Attempting lmhosts lookup for name %s<0x%x>\n",
1121 fp
= startlmhosts(get_dyn_LMHOSTSFILE());
1124 return NT_STATUS_NO_SUCH_FILE
;
1126 ctx
= talloc_init("resolve_lmhosts");
1129 return NT_STATUS_NO_MEMORY
;
1132 while (getlmhostsent(ctx
, fp
, &lmhost_name
, &name_type2
, &return_ss
)) {
1134 if (!strequal(name
, lmhost_name
)) {
1135 TALLOC_FREE(lmhost_name
);
1139 if ((name_type2
!= -1) && (name_type
!= name_type2
)) {
1140 TALLOC_FREE(lmhost_name
);
1144 *return_iplist
= SMB_REALLOC_ARRAY((*return_iplist
),
1148 if ((*return_iplist
) == NULL
) {
1151 DEBUG(3,("resolve_lmhosts: malloc fail !\n"));
1152 return NT_STATUS_NO_MEMORY
;
1155 (*return_iplist
)[*return_count
].ss
= return_ss
;
1156 (*return_iplist
)[*return_count
].port
= PORT_NONE
;
1159 /* we found something */
1160 status
= NT_STATUS_OK
;
1162 /* Multiple names only for DC lookup */
1163 if (name_type
!= 0x1c)
1173 /********************************************************
1174 Resolve via "hosts" method.
1175 *********************************************************/
1177 static NTSTATUS
resolve_hosts(const char *name
, int name_type
,
1178 struct ip_service
**return_iplist
,
1182 * "host" means do a localhost, or dns lookup.
1184 struct addrinfo hints
;
1185 struct addrinfo
*ailist
= NULL
;
1186 struct addrinfo
*res
= NULL
;
1190 if ( name_type
!= 0x20 && name_type
!= 0x0) {
1191 DEBUG(5, ("resolve_hosts: not appropriate "
1192 "for name type <0x%x>\n",
1194 return NT_STATUS_INVALID_PARAMETER
;
1197 *return_iplist
= NULL
;
1200 DEBUG(3,("resolve_hosts: Attempting host lookup for name %s<0x%x>\n",
1204 /* By default make sure it supports TCP. */
1205 hints
.ai_socktype
= SOCK_STREAM
;
1206 hints
.ai_flags
= AI_ADDRCONFIG
;
1208 #if !defined(HAVE_IPV6)
1209 /* Unless we have IPv6, we really only want IPv4 addresses back. */
1210 hints
.ai_family
= AF_INET
;
1213 ret
= getaddrinfo(name
,
1218 DEBUG(3,("resolve_hosts: getaddrinfo failed for name %s [%s]\n",
1220 gai_strerror(ret
) ));
1223 for (res
= ailist
; res
; res
= res
->ai_next
) {
1224 struct sockaddr_storage ss
;
1226 if (!res
->ai_addr
|| res
->ai_addrlen
== 0) {
1231 memcpy(&ss
, res
->ai_addr
, res
->ai_addrlen
);
1235 *return_iplist
= SMB_REALLOC_ARRAY(*return_iplist
,
1238 if (!*return_iplist
) {
1239 DEBUG(3,("resolve_hosts: malloc fail !\n"));
1240 freeaddrinfo(ailist
);
1241 return NT_STATUS_NO_MEMORY
;
1243 (*return_iplist
)[i
].ss
= ss
;
1244 (*return_iplist
)[i
].port
= PORT_NONE
;
1248 freeaddrinfo(ailist
);
1250 if (*return_count
) {
1251 return NT_STATUS_OK
;
1253 return NT_STATUS_UNSUCCESSFUL
;
1256 /********************************************************
1257 Resolve via "ADS" method.
1258 *********************************************************/
1260 static NTSTATUS
resolve_ads(const char *name
,
1262 const char *sitename
,
1263 struct ip_service
**return_iplist
,
1269 struct dns_rr_srv
*dcs
= NULL
;
1273 if ((name_type
!= 0x1c) && (name_type
!= KDC_NAME_TYPE
) &&
1274 (name_type
!= 0x1b)) {
1275 return NT_STATUS_INVALID_PARAMETER
;
1278 if ( (ctx
= talloc_init("resolve_ads")) == NULL
) {
1279 DEBUG(0,("resolve_ads: talloc_init() failed!\n"));
1280 return NT_STATUS_NO_MEMORY
;
1283 /* The DNS code needs fixing to find IPv6 addresses... JRA. */
1285 switch (name_type
) {
1287 DEBUG(5,("resolve_ads: Attempting to resolve "
1288 "PDC for %s using DNS\n", name
));
1289 status
= ads_dns_query_pdc(ctx
, name
, &dcs
, &numdcs
);
1293 DEBUG(5,("resolve_ads: Attempting to resolve "
1294 "DCs for %s using DNS\n", name
));
1295 status
= ads_dns_query_dcs(ctx
, name
, sitename
, &dcs
,
1299 DEBUG(5,("resolve_ads: Attempting to resolve "
1300 "KDCs for %s using DNS\n", name
));
1301 status
= ads_dns_query_kdcs(ctx
, name
, sitename
, &dcs
,
1305 status
= NT_STATUS_INVALID_PARAMETER
;
1309 if ( !NT_STATUS_IS_OK( status
) ) {
1310 talloc_destroy(ctx
);
1314 for (i
=0;i
<numdcs
;i
++) {
1315 numaddrs
+= MAX(dcs
[i
].num_ips
,1);
1318 if ((*return_iplist
= SMB_MALLOC_ARRAY(struct ip_service
, numaddrs
)) ==
1320 DEBUG(0,("resolve_ads: malloc failed for %d entries\n",
1322 talloc_destroy(ctx
);
1323 return NT_STATUS_NO_MEMORY
;
1326 /* now unroll the list of IP addresses */
1331 while ( i
< numdcs
&& (*return_count
<numaddrs
) ) {
1332 struct ip_service
*r
= &(*return_iplist
)[*return_count
];
1334 r
->port
= dcs
[i
].port
;
1336 /* If we don't have an IP list for a name, lookup it up */
1339 interpret_string_addr(&r
->ss
, dcs
[i
].hostname
, 0);
1343 /* use the IP addresses from the SRV sresponse */
1345 if ( j
>= dcs
[i
].num_ips
) {
1351 r
->ss
= dcs
[i
].ss_s
[j
];
1355 /* make sure it is a valid IP. I considered checking the
1356 * negative connection cache, but this is the wrong place
1357 * for it. Maybe only as a hack. After think about it, if
1358 * all of the IP addresses returned from DNS are dead, what
1359 * hope does a netbios name lookup have ? The standard reason
1360 * for falling back to netbios lookups is that our DNS server
1361 * doesn't know anything about the DC's -- jerry */
1363 if (!is_zero_addr((struct sockaddr
*)&r
->ss
)) {
1368 talloc_destroy(ctx
);
1369 return NT_STATUS_OK
;
1372 /*******************************************************************
1373 Internal interface to resolve a name into an IP address.
1374 Use this function if the string is either an IP address, DNS
1375 or host name or NetBIOS name. This uses the name switch in the
1376 smb.conf to determine the order of name resolution.
1378 Added support for ip addr/port to support ADS ldap servers.
1379 the only place we currently care about the port is in the
1380 resolve_hosts() when looking up DC's via SRV RR entries in DNS
1381 **********************************************************************/
1383 NTSTATUS
internal_resolve_name(const char *name
,
1385 const char *sitename
,
1386 struct ip_service
**return_iplist
,
1388 const char *resolve_order
)
1392 NTSTATUS status
= NT_STATUS_UNSUCCESSFUL
;
1394 TALLOC_CTX
*frame
= NULL
;
1396 *return_iplist
= NULL
;
1399 DEBUG(10, ("internal_resolve_name: looking up %s#%x (sitename %s)\n",
1400 name
, name_type
, sitename
? sitename
: "(null)"));
1402 if (is_ipaddress(name
)) {
1403 if ((*return_iplist
= SMB_MALLOC_P(struct ip_service
)) ==
1405 DEBUG(0,("internal_resolve_name: malloc fail !\n"));
1406 return NT_STATUS_NO_MEMORY
;
1409 /* ignore the port here */
1410 (*return_iplist
)->port
= PORT_NONE
;
1412 /* if it's in the form of an IP address then get the lib to interpret it */
1413 if (!interpret_string_addr(&(*return_iplist
)->ss
,
1414 name
, AI_NUMERICHOST
)) {
1415 DEBUG(1,("internal_resolve_name: interpret_string_addr "
1418 SAFE_FREE(*return_iplist
);
1419 return NT_STATUS_INVALID_PARAMETER
;
1422 return NT_STATUS_OK
;
1425 /* Check name cache */
1427 if (namecache_fetch(name
, name_type
, return_iplist
, return_count
)) {
1428 /* This could be a negative response */
1429 if (*return_count
> 0) {
1430 return NT_STATUS_OK
;
1432 return NT_STATUS_UNSUCCESSFUL
;
1436 /* set the name resolution order */
1438 if (strcmp( resolve_order
, "NULL") == 0) {
1439 DEBUG(8,("internal_resolve_name: all lookups disabled\n"));
1440 return NT_STATUS_INVALID_PARAMETER
;
1443 if (!resolve_order
[0]) {
1446 ptr
= resolve_order
;
1449 /* iterate through the name resolution backends */
1451 frame
= talloc_stackframe();
1452 while (next_token_talloc(frame
, &ptr
, &tok
, LIST_SEP
)) {
1453 if((strequal(tok
, "host") || strequal(tok
, "hosts"))) {
1454 status
= resolve_hosts(name
, name_type
, return_iplist
,
1456 if (NT_STATUS_IS_OK(status
)) {
1459 } else if(strequal( tok
, "kdc")) {
1460 /* deal with KDC_NAME_TYPE names here.
1461 * This will result in a SRV record lookup */
1462 status
= resolve_ads(name
, KDC_NAME_TYPE
, sitename
,
1463 return_iplist
, return_count
);
1464 if (NT_STATUS_IS_OK(status
)) {
1465 /* Ensure we don't namecache
1466 * this with the KDC port. */
1467 name_type
= KDC_NAME_TYPE
;
1470 } else if(strequal( tok
, "ads")) {
1471 /* deal with 0x1c and 0x1b names here.
1472 * This will result in a SRV record lookup */
1473 status
= resolve_ads(name
, name_type
, sitename
,
1474 return_iplist
, return_count
);
1475 if (NT_STATUS_IS_OK(status
)) {
1478 } else if(strequal( tok
, "lmhosts")) {
1479 status
= resolve_lmhosts(name
, name_type
,
1480 return_iplist
, return_count
);
1481 if (NT_STATUS_IS_OK(status
)) {
1484 } else if(strequal( tok
, "wins")) {
1485 /* don't resolve 1D via WINS */
1486 if (name_type
!= 0x1D) {
1487 status
= resolve_wins(name
, name_type
,
1490 if (NT_STATUS_IS_OK(status
)) {
1494 } else if(strequal( tok
, "bcast")) {
1495 status
= name_resolve_bcast(name
, name_type
,
1498 if (NT_STATUS_IS_OK(status
)) {
1502 DEBUG(0,("resolve_name: unknown name switch type %s\n",
1507 /* All of the resolve_* functions above have returned false. */
1510 SAFE_FREE(*return_iplist
);
1513 return NT_STATUS_UNSUCCESSFUL
;
1517 /* Remove duplicate entries. Some queries, notably #1c (domain
1518 controllers) return the PDC in iplist[0] and then all domain
1519 controllers including the PDC in iplist[1..n]. Iterating over
1520 the iplist when the PDC is down will cause two sets of timeouts. */
1522 if ( *return_count
) {
1523 *return_count
= remove_duplicate_addrs2(*return_iplist
,
1527 /* Save in name cache */
1528 if ( DEBUGLEVEL
>= 100 ) {
1529 for (i
= 0; i
< *return_count
&& DEBUGLEVEL
== 100; i
++) {
1530 char addr
[INET6_ADDRSTRLEN
];
1531 print_sockaddr(addr
, sizeof(addr
),
1532 &(*return_iplist
)[i
].ss
);
1533 DEBUG(100, ("Storing name %s of type %d (%s:%d)\n",
1537 (*return_iplist
)[i
].port
));
1541 namecache_store(name
, name_type
, *return_count
, *return_iplist
);
1543 /* Display some debugging info */
1545 if ( DEBUGLEVEL
>= 10 ) {
1546 DEBUG(10, ("internal_resolve_name: returning %d addresses: ",
1549 for (i
= 0; i
< *return_count
; i
++) {
1550 char addr
[INET6_ADDRSTRLEN
];
1551 print_sockaddr(addr
, sizeof(addr
),
1552 &(*return_iplist
)[i
].ss
);
1553 DEBUGADD(10, ("%s:%d ",
1555 (*return_iplist
)[i
].port
));
1564 /********************************************************
1565 Internal interface to resolve a name into one IP address.
1566 Use this function if the string is either an IP address, DNS
1567 or host name or NetBIOS name. This uses the name switch in the
1568 smb.conf to determine the order of name resolution.
1569 *********************************************************/
1571 bool resolve_name(const char *name
,
1572 struct sockaddr_storage
*return_ss
,
1576 struct ip_service
*ss_list
= NULL
;
1577 char *sitename
= NULL
;
1580 if (is_ipaddress(name
)) {
1581 return interpret_string_addr(return_ss
, name
, AI_NUMERICHOST
);
1584 sitename
= sitename_fetch(lp_realm()); /* wild guess */
1586 if (NT_STATUS_IS_OK(internal_resolve_name(name
, name_type
, sitename
,
1588 lp_name_resolve_order()))) {
1592 for (i
=0; i
<count
; i
++) {
1593 if (!is_zero_addr((struct sockaddr
*)&ss_list
[i
].ss
) &&
1594 !is_broadcast_addr((struct sockaddr
*)&ss_list
[i
].ss
) &&
1595 (ss_list
[i
].ss
.ss_family
== AF_INET
)) {
1596 *return_ss
= ss_list
[i
].ss
;
1598 SAFE_FREE(sitename
);
1604 /* only return valid addresses for TCP connections */
1605 for (i
=0; i
<count
; i
++) {
1606 if (!is_zero_addr((struct sockaddr
*)&ss_list
[i
].ss
) &&
1607 !is_broadcast_addr((struct sockaddr
*)&ss_list
[i
].ss
)) {
1608 *return_ss
= ss_list
[i
].ss
;
1610 SAFE_FREE(sitename
);
1617 SAFE_FREE(sitename
);
1621 /********************************************************
1622 Internal interface to resolve a name into a list of IP addresses.
1623 Use this function if the string is either an IP address, DNS
1624 or host name or NetBIOS name. This uses the name switch in the
1625 smb.conf to determine the order of name resolution.
1626 *********************************************************/
1628 NTSTATUS
resolve_name_list(TALLOC_CTX
*ctx
,
1631 struct sockaddr_storage
**return_ss_arr
,
1632 unsigned int *p_num_entries
)
1634 struct ip_service
*ss_list
= NULL
;
1635 char *sitename
= NULL
;
1638 unsigned int num_entries
;
1642 *return_ss_arr
= NULL
;
1644 if (is_ipaddress(name
)) {
1645 *return_ss_arr
= TALLOC_P(ctx
, struct sockaddr_storage
);
1646 if (!*return_ss_arr
) {
1647 return NT_STATUS_NO_MEMORY
;
1649 if (!interpret_string_addr(*return_ss_arr
, name
, AI_NUMERICHOST
)) {
1650 TALLOC_FREE(*return_ss_arr
);
1651 return NT_STATUS_BAD_NETWORK_NAME
;
1654 return NT_STATUS_OK
;
1657 sitename
= sitename_fetch(lp_realm()); /* wild guess */
1659 status
= internal_resolve_name(name
, name_type
, sitename
,
1661 lp_name_resolve_order());
1662 SAFE_FREE(sitename
);
1664 if (!NT_STATUS_IS_OK(status
)) {
1668 /* only return valid addresses for TCP connections */
1669 for (i
=0, num_entries
= 0; i
<count
; i
++) {
1670 if (!is_zero_addr((struct sockaddr
*)&ss_list
[i
].ss
) &&
1671 !is_broadcast_addr((struct sockaddr
*)&ss_list
[i
].ss
)) {
1675 if (num_entries
== 0) {
1677 return NT_STATUS_BAD_NETWORK_NAME
;
1680 *return_ss_arr
= TALLOC_ARRAY(ctx
,
1681 struct sockaddr_storage
,
1683 if (!(*return_ss_arr
)) {
1685 return NT_STATUS_NO_MEMORY
;
1688 for (i
=0, num_entries
= 0; i
<count
; i
++) {
1689 if (!is_zero_addr((struct sockaddr
*)&ss_list
[i
].ss
) &&
1690 !is_broadcast_addr((struct sockaddr
*)&ss_list
[i
].ss
)) {
1691 (*return_ss_arr
)[num_entries
++] = ss_list
[i
].ss
;
1695 status
= NT_STATUS_OK
;
1696 *p_num_entries
= num_entries
;
1699 return NT_STATUS_OK
;
1702 /********************************************************
1703 Find the IP address of the master browser or DMB for a workgroup.
1704 *********************************************************/
1706 bool find_master_ip(const char *group
, struct sockaddr_storage
*master_ss
)
1708 struct ip_service
*ip_list
= NULL
;
1712 if (lp_disable_netbios()) {
1713 DEBUG(5,("find_master_ip(%s): netbios is disabled\n", group
));
1717 status
= internal_resolve_name(group
, 0x1D, NULL
, &ip_list
, &count
,
1718 lp_name_resolve_order());
1719 if (NT_STATUS_IS_OK(status
)) {
1720 *master_ss
= ip_list
[0].ss
;
1725 status
= internal_resolve_name(group
, 0x1B, NULL
, &ip_list
, &count
,
1726 lp_name_resolve_order());
1727 if (NT_STATUS_IS_OK(status
)) {
1728 *master_ss
= ip_list
[0].ss
;
1737 /********************************************************
1738 Get the IP address list of the primary domain controller
1740 *********************************************************/
1742 bool get_pdc_ip(const char *domain
, struct sockaddr_storage
*pss
)
1744 struct ip_service
*ip_list
= NULL
;
1746 NTSTATUS status
= NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND
;
1748 /* Look up #1B name */
1750 if (lp_security() == SEC_ADS
) {
1751 status
= internal_resolve_name(domain
, 0x1b, NULL
, &ip_list
,
1755 if (!NT_STATUS_IS_OK(status
) || count
== 0) {
1756 status
= internal_resolve_name(domain
, 0x1b, NULL
, &ip_list
,
1758 lp_name_resolve_order());
1759 if (!NT_STATUS_IS_OK(status
)) {
1764 /* if we get more than 1 IP back we have to assume it is a
1765 multi-homed PDC and not a mess up */
1768 DEBUG(6,("get_pdc_ip: PDC has %d IP addresses!\n", count
));
1769 sort_service_list(ip_list
, count
);
1772 *pss
= ip_list
[0].ss
;
1777 /* Private enum type for lookups. */
1779 enum dc_lookup_type
{ DC_NORMAL_LOOKUP
, DC_ADS_ONLY
, DC_KDC_ONLY
};
1781 /********************************************************
1782 Get the IP address list of the domain controllers for
1784 *********************************************************/
1786 static NTSTATUS
get_dc_list(const char *domain
,
1787 const char *sitename
,
1788 struct ip_service
**ip_list
,
1790 enum dc_lookup_type lookup_type
,
1793 char *resolve_order
= NULL
;
1794 char *saf_servername
= NULL
;
1795 char *pserver
= NULL
;
1797 char *port_str
= NULL
;
1800 int num_addresses
= 0;
1801 int local_count
, i
, j
;
1802 struct ip_service
*return_iplist
= NULL
;
1803 struct ip_service
*auto_ip_list
= NULL
;
1804 bool done_auto_lookup
= false;
1807 TALLOC_CTX
*ctx
= talloc_init("get_dc_list");
1813 return NT_STATUS_NO_MEMORY
;
1818 /* if we are restricted to solely using DNS for looking
1819 up a domain controller, make sure that host lookups
1820 are enabled for the 'name resolve order'. If host lookups
1821 are disabled and ads_only is True, then set the string to
1824 resolve_order
= talloc_strdup(ctx
, lp_name_resolve_order());
1825 if (!resolve_order
) {
1826 status
= NT_STATUS_NO_MEMORY
;
1829 strlower_m(resolve_order
);
1830 if (lookup_type
== DC_ADS_ONLY
) {
1831 if (strstr( resolve_order
, "host")) {
1832 resolve_order
= talloc_strdup(ctx
, "ads");
1834 /* DNS SRV lookups used by the ads resolver
1835 are already sorted by priority and weight */
1838 resolve_order
= talloc_strdup(ctx
, "NULL");
1840 } else if (lookup_type
== DC_KDC_ONLY
) {
1841 /* DNS SRV lookups used by the ads/kdc resolver
1842 are already sorted by priority and weight */
1844 resolve_order
= talloc_strdup(ctx
, "kdc");
1846 if (!resolve_order
) {
1847 status
= NT_STATUS_NO_MEMORY
;
1851 /* fetch the server we have affinity for. Add the
1852 'password server' list to a search for our domain controllers */
1854 saf_servername
= saf_fetch( domain
);
1856 if (strequal(domain
, lp_workgroup()) || strequal(domain
, lp_realm())) {
1857 pserver
= talloc_asprintf(NULL
, "%s, %s",
1858 saf_servername
? saf_servername
: "",
1859 lp_passwordserver());
1861 pserver
= talloc_asprintf(NULL
, "%s, *",
1862 saf_servername
? saf_servername
: "");
1865 SAFE_FREE(saf_servername
);
1867 status
= NT_STATUS_NO_MEMORY
;
1871 /* if we are starting from scratch, just lookup DOMAIN<0x1c> */
1874 DEBUG(10,("get_dc_list: no preferred domain controllers.\n"));
1875 status
= internal_resolve_name(domain
, 0x1C, sitename
, ip_list
,
1876 count
, resolve_order
);
1880 DEBUG(3,("get_dc_list: preferred server list: \"%s\"\n", pserver
));
1883 * if '*' appears in the "password server" list then add
1884 * an auto lookup to the list of manually configured
1885 * DC's. If any DC is listed by name, then the list should be
1886 * considered to be ordered
1890 while (next_token_talloc(ctx
, &p
, &name
, LIST_SEP
)) {
1891 if (!done_auto_lookup
&& strequal(name
, "*")) {
1892 status
= internal_resolve_name(domain
, 0x1C, sitename
,
1896 if (NT_STATUS_IS_OK(status
)) {
1897 num_addresses
+= auto_count
;
1899 done_auto_lookup
= true;
1900 DEBUG(8,("Adding %d DC's from auto lookup\n",
1907 /* if we have no addresses and haven't done the auto lookup, then
1908 just return the list of DC's. Or maybe we just failed. */
1910 if ((num_addresses
== 0)) {
1911 if (done_auto_lookup
) {
1912 DEBUG(4,("get_dc_list: no servers found\n"));
1913 status
= NT_STATUS_NO_LOGON_SERVERS
;
1916 status
= internal_resolve_name(domain
, 0x1C, sitename
, ip_list
,
1917 count
, resolve_order
);
1921 if ((return_iplist
= SMB_MALLOC_ARRAY(struct ip_service
,
1922 num_addresses
)) == NULL
) {
1923 DEBUG(3,("get_dc_list: malloc fail !\n"));
1924 status
= NT_STATUS_NO_MEMORY
;
1931 /* fill in the return list now with real IP's */
1933 while ((local_count
<num_addresses
) &&
1934 next_token_talloc(ctx
, &p
, &name
, LIST_SEP
)) {
1935 struct sockaddr_storage name_ss
;
1937 /* copy any addersses from the auto lookup */
1939 if (strequal(name
, "*")) {
1940 for (j
=0; j
<auto_count
; j
++) {
1941 char addr
[INET6_ADDRSTRLEN
];
1942 print_sockaddr(addr
,
1944 &auto_ip_list
[j
].ss
);
1945 /* Check for and don't copy any
1946 * known bad DC IP's. */
1947 if(!NT_STATUS_IS_OK(check_negative_conn_cache(
1950 DEBUG(5,("get_dc_list: "
1951 "negative entry %s removed "
1956 return_iplist
[local_count
].ss
=
1958 return_iplist
[local_count
].port
=
1959 auto_ip_list
[j
].port
;
1965 /* added support for address:port syntax for ads
1966 * (not that I think anyone will ever run the LDAP
1967 * server in an AD domain on something other than
1970 port
= (lp_security() == SEC_ADS
) ? LDAP_PORT
: PORT_NONE
;
1971 if ((port_str
=strchr(name
, ':')) != NULL
) {
1974 port
= atoi(port_str
);
1977 /* explicit lookup; resolve_name() will
1978 * handle names & IP addresses */
1979 if (resolve_name( name
, &name_ss
, 0x20, true )) {
1980 char addr
[INET6_ADDRSTRLEN
];
1981 print_sockaddr(addr
,
1985 /* Check for and don't copy any known bad DC IP's. */
1986 if( !NT_STATUS_IS_OK(check_negative_conn_cache(domain
,
1988 DEBUG(5,("get_dc_list: negative entry %s "
1989 "removed from DC list\n",
1994 return_iplist
[local_count
].ss
= name_ss
;
1995 return_iplist
[local_count
].port
= port
;
2001 /* need to remove duplicates in the list if we have any
2002 explicit password servers */
2005 local_count
= remove_duplicate_addrs2(return_iplist
,
2009 /* For DC's we always prioritize IPv4 due to W2K3 not
2010 * supporting LDAP, KRB5 or CLDAP over IPv6. */
2012 if (local_count
&& return_iplist
) {
2013 prioritize_ipv4_list(return_iplist
, local_count
);
2016 if ( DEBUGLEVEL
>= 4 ) {
2017 DEBUG(4,("get_dc_list: returning %d ip addresses "
2018 "in an %sordered list\n",
2020 *ordered
? "":"un"));
2021 DEBUG(4,("get_dc_list: "));
2022 for ( i
=0; i
<local_count
; i
++ ) {
2023 char addr
[INET6_ADDRSTRLEN
];
2024 print_sockaddr(addr
,
2026 &return_iplist
[i
].ss
);
2027 DEBUGADD(4,("%s:%d ", addr
, return_iplist
[i
].port
));
2032 *ip_list
= return_iplist
;
2033 *count
= local_count
;
2035 status
= ( *count
!= 0 ? NT_STATUS_OK
: NT_STATUS_NO_LOGON_SERVERS
);
2039 if (!NT_STATUS_IS_OK(status
)) {
2040 SAFE_FREE(return_iplist
);
2045 SAFE_FREE(auto_ip_list
);
2050 /*********************************************************************
2051 Small wrapper function to get the DC list and sort it if neccessary.
2052 *********************************************************************/
2054 NTSTATUS
get_sorted_dc_list( const char *domain
,
2055 const char *sitename
,
2056 struct ip_service
**ip_list
,
2060 bool ordered
= false;
2062 enum dc_lookup_type lookup_type
= DC_NORMAL_LOOKUP
;
2067 DEBUG(8,("get_sorted_dc_list: attempting lookup "
2068 "for name %s (sitename %s) using [%s]\n",
2070 sitename
? sitename
: "NULL",
2071 (ads_only
? "ads" : lp_name_resolve_order())));
2074 lookup_type
= DC_ADS_ONLY
;
2077 status
= get_dc_list(domain
, sitename
, ip_list
,
2078 count
, lookup_type
, &ordered
);
2079 if (NT_STATUS_EQUAL(status
, NT_STATUS_NO_LOGON_SERVERS
)
2081 DEBUG(3,("get_sorted_dc_list: no server for name %s available"
2082 " in site %s, fallback to all servers\n",
2084 status
= get_dc_list(domain
, NULL
, ip_list
,
2085 count
, lookup_type
, &ordered
);
2088 if (!NT_STATUS_IS_OK(status
)) {
2089 SAFE_FREE(*ip_list
);
2094 /* only sort if we don't already have an ordered list */
2096 sort_service_list(*ip_list
, *count
);
2099 return NT_STATUS_OK
;
2102 /*********************************************************************
2103 Get the KDC list - re-use all the logic in get_dc_list.
2104 *********************************************************************/
2106 NTSTATUS
get_kdc_list( const char *realm
,
2107 const char *sitename
,
2108 struct ip_service
**ip_list
,
2117 status
= get_dc_list(realm
, sitename
, ip_list
,
2118 count
, DC_KDC_ONLY
, &ordered
);
2120 if (!NT_STATUS_IS_OK(status
)) {
2121 SAFE_FREE(*ip_list
);
2126 /* only sort if we don't already have an ordered list */
2128 sort_service_list(*ip_list
, *count
);
2131 return NT_STATUS_OK
;