2 Samba Unix/Linux SMB client library
4 Copyright (C) 2001 Andrew Tridgell (tridge@samba.org)
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
21 #include "../utils/net.h"
23 int net_lookup_usage(int argc
, const char **argv
)
26 " net lookup host HOSTNAME <type>\n\tgives IP for a hostname\n\n"
27 " net lookup ldap [domain]\n\tgives IP of domain's ldap server\n\n"
28 " net lookup kdc [realm]\n\tgives IP of realm's kerberos KDC\n\n"
29 " net lookup dc [domain]\n\tgives IP of domains Domain Controllers\n\n"
30 " net lookup master [domain|wg]\n\tgive IP of master browser\n\n"
35 /* lookup a hostname giving an IP */
36 static int net_lookup_host(int argc
, const char **argv
)
41 if (argc
== 0) return net_lookup_usage(argc
, argv
);
42 if (argc
> 1) name_type
= strtol(argv
[1], NULL
, 0);
44 if (!resolve_name(argv
[0], &ip
, name_type
)) {
45 /* we deliberately use DEBUG() here to send it to stderr
46 so scripts aren't mucked up */
47 DEBUG(0,("Didn't find %s#%02x\n", argv
[0], name_type
));
51 d_printf("%s\n", inet_ntoa(ip
));
55 static void print_ldap_srvlist(char *srvlist
)
63 next
= strchr(cur
,':');
64 if (next
) *next
++='\0';
65 printit
= resolve_name(cur
, &ip
, 0x20);
67 next
=cur
? strchr(cur
,' ') :NULL
;
71 d_printf("%s:%s\n", inet_ntoa(ip
), cur
?cur
:"");
77 static int net_lookup_ldap(int argc
, const char **argv
)
80 char *srvlist
, *domain
;
83 struct hostent
*hostent
;
88 domain
= opt_target_workgroup
;
90 DEBUG(9, ("Lookup up ldap for domain %s\n", domain
));
91 rc
= ldap_domain2hostlist(domain
, &srvlist
);
92 if ((rc
== LDAP_SUCCESS
) && srvlist
) {
93 print_ldap_srvlist(srvlist
);
97 DEBUG(9, ("Looking up DC for domain %s\n", domain
));
98 if (!get_dc_list(True
, domain
, &addr
, &count
))
101 hostent
= gethostbyaddr((char *) &addr
->s_addr
, sizeof(addr
->s_addr
),
106 DEBUG(9, ("Found DC with DNS name %s\n", hostent
->h_name
));
107 domain
= strchr(hostent
->h_name
, '.');
112 DEBUG(9, ("Looking up ldap for domain %s\n", domain
));
113 rc
= ldap_domain2hostlist(domain
, &srvlist
);
114 if ((rc
== LDAP_SUCCESS
) && srvlist
) {
115 print_ldap_srvlist(srvlist
);
120 DEBUG(1,("No LDAP support\n"));
124 static int net_lookup_dc(int argc
, const char **argv
)
126 struct in_addr
*ip_list
;
127 char *pdc_str
= NULL
;
128 char *domain
=opt_target_workgroup
;
135 if (!get_dc_list(True
, domain
, &ip_list
, &count
))
138 asprintf(&pdc_str
, "%s", inet_ntoa(*ip_list
));
139 d_printf("%s\n", pdc_str
);
141 if (!get_dc_list(False
, domain
, &ip_list
, &count
)) {
145 for (i
=0;i
<count
;i
++) {
146 char *dc_str
= inet_ntoa(ip_list
[i
]);
147 if (!strequal(pdc_str
, dc_str
))
148 d_printf("%s\n", dc_str
);
154 static int net_lookup_master(int argc
, const char **argv
)
156 struct in_addr master_ip
;
157 char *domain
=opt_target_workgroup
;
162 if (!find_master_ip(domain
, &master_ip
))
164 d_printf("%s\n", inet_ntoa(master_ip
));
168 static int net_lookup_kdc(int argc
, const char **argv
)
173 struct sockaddr_in
*addrs
;
178 rc
= krb5_init_context(&ctx
);
180 DEBUG(1,("krb5_init_context failed (%s)\n",
186 realm
.data
= (krb5_pointer
) argv
[0];
187 realm
.length
= strlen(argv
[0]);
188 } else if (lp_realm() && *lp_realm()) {
189 realm
.data
= (krb5_pointer
) lp_realm();
190 realm
.length
= strlen(realm
.data
);
192 rc
= krb5_get_host_realm(ctx
, NULL
, &realms
);
194 DEBUG(1,("krb5_gethost_realm failed (%s)\n",
198 realm
.data
= (krb5_pointer
) *realms
;
199 realm
.length
= strlen(realm
.data
);
202 rc
= krb5_locate_kdc(ctx
, &realm
, &addrs
, &num_kdcs
, 0);
204 DEBUG(1, ("krb5_locate_kdc failed (%s)\n", error_message(rc
)));
207 for (i
=0;i
<num_kdcs
;i
++)
208 if (addrs
[i
].sin_family
== AF_INET
)
209 d_printf("%s:%hd\n", inet_ntoa(addrs
[i
].sin_addr
),
210 ntohs(addrs
[i
].sin_port
));
214 DEBUG(1, ("No kerberos support\n"));
217 /* lookup hosts or IP addresses using internal samba lookup fns */
218 int net_lookup(int argc
, const char **argv
)
220 struct functable func
[] = {
221 {"HOST", net_lookup_host
},
222 {"LDAP", net_lookup_ldap
},
223 {"DC", net_lookup_dc
},
224 {"MASTER", net_lookup_master
},
225 {"KDC", net_lookup_kdc
},
229 return net_run_function(argc
, argv
, func
, net_lookup_usage
);