Fix all warnings in source3 with gcc4.3.
[ira/wip.git] / source3 / utils / net_lookup.c
1 /*
2    Samba Unix/Linux SMB client library
3    net lookup command
4    Copyright (C) 2001 Andrew Tridgell (tridge@samba.org)
5
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 3 of the License, or
9    (at your option) any later version.
10
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.
15
16    You should have received a copy of the GNU General Public License
17    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
18
19 #include "includes.h"
20 #include "utils/net.h"
21
22 int net_lookup_usage(struct net_context *c, int argc, const char **argv)
23 {
24         d_printf(
25 "  net lookup [host] HOSTNAME[#<type>]\n\tgives IP for a hostname\n\n"
26 "  net lookup ldap [domain]\n\tgives IP of domain's ldap server\n\n"
27 "  net lookup kdc [realm]\n\tgives IP of realm's kerberos KDC\n\n"
28 "  net lookup pdc [domain|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"
31 "  net lookup name [name]\n\tLookup name's sid and type\n\n"
32 "  net lookup sid [sid]\n\tGive sid's name and type\n\n"
33 "  net lookup dsgetdcname [name] [flags] [sitename]\n\n"
34 );
35         return -1;
36 }
37
38 /* lookup a hostname giving an IP */
39 static int net_lookup_host(struct net_context *c, int argc, const char **argv)
40 {
41         struct sockaddr_storage ss;
42         int name_type = 0x20;
43         char addr[INET6_ADDRSTRLEN];
44         const char *name = argv[0];
45         char *p;
46
47         if (argc == 0)
48                 return net_lookup_usage(c, argc, argv);
49
50         p = strchr_m(name,'#');
51         if (p) {
52                 *p = '\0';
53                 sscanf(++p,"%x",&name_type);
54         }
55
56         if (!resolve_name(name, &ss, name_type)) {
57                 /* we deliberately use DEBUG() here to send it to stderr
58                    so scripts aren't mucked up */
59                 DEBUG(0,("Didn't find %s#%02x\n", name, name_type));
60                 return -1;
61         }
62
63         print_sockaddr(addr, sizeof(addr), &ss);
64         d_printf("%s\n", addr);
65         return 0;
66 }
67
68 #ifdef HAVE_ADS
69 static void print_ldap_srvlist(struct dns_rr_srv *dclist, int numdcs )
70 {
71         struct sockaddr_storage ss;
72         int i;
73
74         for ( i=0; i<numdcs; i++ ) {
75                 if (resolve_name(dclist[i].hostname, &ss, 0x20) ) {
76                         char addr[INET6_ADDRSTRLEN];
77                         print_sockaddr(addr, sizeof(addr), &ss);
78 #ifdef HAVE_IPV6
79                         if (ss.ss_family == AF_INET6) {
80                                 d_printf("[%s]:%d\n", addr, dclist[i].port);
81                         }
82 #endif
83                         if (ss.ss_family == AF_INET) {
84                                 d_printf("%s:%d\n", addr, dclist[i].port);
85                         }
86                 }
87         }
88 }
89 #endif
90
91 static int net_lookup_ldap(struct net_context *c, int argc, const char **argv)
92 {
93 #ifdef HAVE_ADS
94         const char *domain;
95         struct sockaddr_storage ss;
96         struct dns_rr_srv *dcs = NULL;
97         int numdcs = 0;
98         char *sitename;
99         TALLOC_CTX *ctx;
100         NTSTATUS status;
101         int ret;
102         char h_name[MAX_DNS_NAME_LENGTH];
103
104         if (argc > 0)
105                 domain = argv[0];
106         else
107                 domain = c->opt_target_workgroup;
108
109         sitename = sitename_fetch(domain);
110
111         if ( (ctx = talloc_init("net_lookup_ldap")) == NULL ) {
112                 d_fprintf(stderr, "net_lookup_ldap: talloc_init() failed!\n");
113                 SAFE_FREE(sitename);
114                 return -1;
115         }
116
117         DEBUG(9, ("Lookup up ldap for domain %s\n", domain));
118
119         status = ads_dns_query_dcs( ctx, domain, sitename, &dcs, &numdcs );
120         if ( NT_STATUS_IS_OK(status) && numdcs ) {
121                 print_ldap_srvlist(dcs, numdcs);
122                 TALLOC_FREE( ctx );
123                 SAFE_FREE(sitename);
124                 return 0;
125         }
126
127         DEBUG(9, ("Looking up PDC for domain %s\n", domain));
128         if (!get_pdc_ip(domain, &ss)) {
129                 TALLOC_FREE( ctx );
130                 SAFE_FREE(sitename);
131                 return -1;
132         }
133
134         ret = sys_getnameinfo((struct sockaddr *)&ss,
135                         sizeof(struct sockaddr_storage),
136                         h_name, sizeof(h_name),
137                         NULL, 0,
138                         NI_NAMEREQD);
139
140         if (ret) {
141                 TALLOC_FREE( ctx );
142                 SAFE_FREE(sitename);
143                 return -1;
144         }
145
146         DEBUG(9, ("Found PDC with DNS name %s\n", h_name));
147         domain = strchr(h_name, '.');
148         if (!domain) {
149                 TALLOC_FREE( ctx );
150                 SAFE_FREE(sitename);
151                 return -1;
152         }
153         domain++;
154
155         DEBUG(9, ("Looking up ldap for domain %s\n", domain));
156
157         status = ads_dns_query_dcs( ctx, domain, sitename, &dcs, &numdcs );
158         if ( NT_STATUS_IS_OK(status) && numdcs ) {
159                 print_ldap_srvlist(dcs, numdcs);
160                 TALLOC_FREE( ctx );
161                 SAFE_FREE(sitename);
162                 return 0;
163         }
164
165         TALLOC_FREE( ctx );
166         SAFE_FREE(sitename);
167
168         return -1;
169 #endif
170         DEBUG(1,("No ADS support\n"));
171         return -1;
172 }
173
174 static int net_lookup_dc(struct net_context *c, int argc, const char **argv)
175 {
176         struct ip_service *ip_list;
177         struct sockaddr_storage ss;
178         char *pdc_str = NULL;
179         const char *domain = NULL;
180         char *sitename = NULL;
181         int count, i;
182         char addr[INET6_ADDRSTRLEN];
183         bool sec_ads = (lp_security() == SEC_ADS);
184
185         if (sec_ads) {
186                 domain = lp_realm();
187         } else {
188                 domain = c->opt_target_workgroup;
189         }
190
191         if (argc > 0)
192                 domain=argv[0];
193
194         /* first get PDC */
195         if (!get_pdc_ip(domain, &ss))
196                 return -1;
197
198         print_sockaddr(addr, sizeof(addr), &ss);
199         if (asprintf(&pdc_str, "%s", addr) == -1) {
200                 return -1;
201         }
202         d_printf("%s\n", pdc_str);
203
204         sitename = sitename_fetch(domain);
205         if (!NT_STATUS_IS_OK(get_sorted_dc_list(domain, sitename,
206                                         &ip_list, &count, sec_ads))) {
207                 SAFE_FREE(pdc_str);
208                 SAFE_FREE(sitename);
209                 return 0;
210         }
211         SAFE_FREE(sitename);
212         for (i=0;i<count;i++) {
213                 print_sockaddr(addr, sizeof(addr), &ip_list[i].ss);
214                 if (!strequal(pdc_str, addr))
215                         d_printf("%s\n", addr);
216         }
217         SAFE_FREE(pdc_str);
218         return 0;
219 }
220
221 static int net_lookup_pdc(struct net_context *c, int argc, const char **argv)
222 {
223         struct sockaddr_storage ss;
224         char *pdc_str = NULL;
225         const char *domain;
226         char addr[INET6_ADDRSTRLEN];
227
228         if (lp_security() == SEC_ADS) {
229                 domain = lp_realm();
230         } else {
231                 domain = c->opt_target_workgroup;
232         }
233
234         if (argc > 0)
235                 domain=argv[0];
236
237         /* first get PDC */
238         if (!get_pdc_ip(domain, &ss))
239                 return -1;
240
241         print_sockaddr(addr, sizeof(addr), &ss);
242         if (asprintf(&pdc_str, "%s", addr) == -1) {
243                 return -1;
244         }
245         d_printf("%s\n", pdc_str);
246         SAFE_FREE(pdc_str);
247         return 0;
248 }
249
250
251 static int net_lookup_master(struct net_context *c, int argc, const char **argv)
252 {
253         struct sockaddr_storage master_ss;
254         const char *domain = c->opt_target_workgroup;
255         char addr[INET6_ADDRSTRLEN];
256
257         if (argc > 0)
258                 domain=argv[0];
259
260         if (!find_master_ip(domain, &master_ss))
261                 return -1;
262         print_sockaddr(addr, sizeof(addr), &master_ss);
263         d_printf("%s\n", addr);
264         return 0;
265 }
266
267 static int net_lookup_kdc(struct net_context *c, int argc, const char **argv)
268 {
269 #ifdef HAVE_KRB5
270         krb5_error_code rc;
271         krb5_context ctx;
272         struct sockaddr_in *addrs;
273         int num_kdcs,i;
274         krb5_data realm;
275         char **realms;
276
277         initialize_krb5_error_table();
278         rc = krb5_init_context(&ctx);
279         if (rc) {
280                 DEBUG(1,("krb5_init_context failed (%s)\n",
281                          error_message(rc)));
282                 return -1;
283         }
284
285         if (argc>0) {
286                 realm.data = CONST_DISCARD(char *, argv[0]);
287                 realm.length = strlen(argv[0]);
288         } else if (lp_realm() && *lp_realm()) {
289                 realm.data = lp_realm();
290                 realm.length = strlen((const char *)realm.data);
291         } else {
292                 rc = krb5_get_host_realm(ctx, NULL, &realms);
293                 if (rc) {
294                         DEBUG(1,("krb5_gethost_realm failed (%s)\n",
295                                  error_message(rc)));
296                         return -1;
297                 }
298                 realm.data = (char *) *realms;
299                 realm.length = strlen((const char *)realm.data);
300         }
301
302         rc = smb_krb5_locate_kdc(ctx, &realm, (struct sockaddr **)(void *)&addrs, &num_kdcs, 0);
303         if (rc) {
304                 DEBUG(1, ("smb_krb5_locate_kdc failed (%s)\n", error_message(rc)));
305                 return -1;
306         }
307         for (i=0;i<num_kdcs;i++)
308                 if (addrs[i].sin_family == AF_INET) 
309                         d_printf("%s:%hd\n", inet_ntoa(addrs[i].sin_addr),
310                                  ntohs(addrs[i].sin_port));
311         return 0;
312
313 #endif  
314         DEBUG(1, ("No kerberos support\n"));
315         return -1;
316 }
317
318 static int net_lookup_name(struct net_context *c, int argc, const char **argv)
319 {
320         const char *dom, *name;
321         DOM_SID sid;
322         enum lsa_SidType type;
323
324         if (argc != 1) {
325                 d_printf("usage: net lookup name <name>\n");
326                 return -1;
327         }
328
329         if (!lookup_name(talloc_tos(), argv[0], LOOKUP_NAME_ALL,
330                          &dom, &name, &sid, &type)) {
331                 d_printf("Could not lookup name %s\n", argv[0]);
332                 return -1;
333         }
334
335         d_printf("%s %d (%s) %s\\%s\n", sid_string_tos(&sid),
336                  type, sid_type_lookup(type), dom, name);
337         return 0;
338 }
339
340 static int net_lookup_sid(struct net_context *c, int argc, const char **argv)
341 {
342         const char *dom, *name;
343         DOM_SID sid;
344         enum lsa_SidType type;
345
346         if (argc != 1) {
347                 d_printf("usage: net lookup sid <sid>\n");
348                 return -1;
349         }
350
351         if (!string_to_sid(&sid, argv[0])) {
352                 d_printf("Could not convert %s to SID\n", argv[0]);
353                 return -1;
354         }
355
356         if (!lookup_sid(talloc_tos(), &sid,
357                         &dom, &name, &type)) {
358                 d_printf("Could not lookup name %s\n", argv[0]);
359                 return -1;
360         }
361
362         d_printf("%s %d (%s) %s\\%s\n", sid_string_tos(&sid),
363                  type, sid_type_lookup(type), dom, name);
364         return 0;
365 }
366
367 static int net_lookup_dsgetdcname(struct net_context *c, int argc, const char **argv)
368 {
369         NTSTATUS status;
370         const char *domain_name = NULL;
371         const char *site_name = NULL;
372         uint32_t flags = 0;
373         struct netr_DsRGetDCNameInfo *info = NULL;
374         TALLOC_CTX *mem_ctx;
375         char *s = NULL;
376
377         if (argc < 1 || argc > 3) {
378                 d_printf("usage: net lookup dsgetdcname "
379                          "<name> <flags> <sitename>\n");
380                 return -1;
381         }
382
383         mem_ctx = talloc_init("net_lookup_dsgetdcname");
384         if (!mem_ctx) {
385                 return -1;
386         }
387
388         domain_name = argv[0];
389
390         if (argc >= 2)
391                 sscanf(argv[1], "%x", &flags);
392
393         if (!flags) {
394                 flags |= DS_DIRECTORY_SERVICE_REQUIRED;
395         }
396
397         if (argc == 3) {
398                 site_name = argv[2];
399         }
400
401         status = dsgetdcname(mem_ctx, NULL, domain_name, NULL, site_name,
402                              flags, &info);
403         if (!NT_STATUS_IS_OK(status)) {
404                 d_printf("failed with: %s\n", nt_errstr(status));
405                 TALLOC_FREE(mem_ctx);
406                 return -1;
407         }
408
409         s = NDR_PRINT_STRUCT_STRING(mem_ctx, netr_DsRGetDCNameInfo, info);
410         printf("%s\n", s);
411         TALLOC_FREE(s);
412
413         TALLOC_FREE(mem_ctx);
414         return 0;
415 }
416
417
418 /* lookup hosts or IP addresses using internal samba lookup fns */
419 int net_lookup(struct net_context *c, int argc, const char **argv)
420 {
421         int i;
422
423         struct functable table[] = {
424                 {"HOST", net_lookup_host},
425                 {"LDAP", net_lookup_ldap},
426                 {"DC", net_lookup_dc},
427                 {"PDC", net_lookup_pdc},
428                 {"MASTER", net_lookup_master},
429                 {"KDC", net_lookup_kdc},
430                 {"NAME", net_lookup_name},
431                 {"SID", net_lookup_sid},
432                 {"DSGETDCNAME", net_lookup_dsgetdcname},
433                 {NULL, NULL}
434         };
435
436         if (argc < 1) {
437                 d_printf("\nUsage: \n");
438                 return net_lookup_usage(c, argc, argv);
439         }
440         for (i=0; table[i].funcname; i++) {
441                 if (StrCaseCmp(argv[0], table[i].funcname) == 0)
442                         return table[i].fn(c, argc-1, argv+1);
443         }
444
445         /* Default to lookup a hostname so 'net lookup foo#1b' can be
446            used instead of 'net lookup host foo#1b'.  The host syntax
447            is a bit confusing as non #00 names can't really be
448            considered hosts as such. */
449
450         return net_lookup_host(c, argc, argv);
451 }