Finish removal of iconv_convenience in public API's.
[bbaumbach/samba-autobuild/.git] / source4 / libnet / libnet_lookup.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    Copyright (C) Rafal Szczesniak 2005
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
20 /*
21   a composite function for name resolving
22 */
23
24 #include "includes.h"
25 #include "lib/events/events.h"
26 #include "libnet/libnet.h"
27 #include "libcli/composite/composite.h"
28 #include "auth/credentials/credentials.h"
29 #include "lib/messaging/messaging.h"
30 #include "lib/messaging/irpc.h"
31 #include "libcli/resolve/resolve.h"
32 #include "libcli/finddcs.h"
33 #include "libcli/security/security.h"
34 #include "librpc/gen_ndr/lsa.h"
35 #include "librpc/gen_ndr/ndr_lsa_c.h"
36
37 #include "param/param.h"
38
39 struct lookup_state {
40         struct nbt_name hostname;
41         const char *address;
42 };
43
44
45 static void continue_name_resolved(struct composite_context *ctx);
46
47
48 /**
49  * Sends asynchronous Lookup request
50  *
51  * @param io arguments and result of the call
52  */
53
54 struct composite_context *libnet_Lookup_send(struct libnet_context *ctx,
55                                              struct libnet_Lookup *io)
56 {
57         struct composite_context *c;
58         struct lookup_state *s;
59         struct composite_context *cresolve_req;
60         struct resolve_context *resolve_ctx;
61
62         /* allocate context and state structures */
63         c = composite_create(ctx, ctx->event_ctx);
64         if (c == NULL) return NULL;
65
66         s = talloc_zero(c, struct lookup_state);
67         if (composite_nomem(s, c)) return c;
68
69         c->private_data = s;
70
71         if (io == NULL || io->in.hostname == NULL) {
72                 composite_error(c, NT_STATUS_INVALID_PARAMETER);
73                 return c;
74         }
75
76         /* parameters */
77         s->hostname.name   = talloc_strdup(s, io->in.hostname);
78         if (composite_nomem(s->hostname.name, c)) return c;
79
80         s->hostname.type   = io->in.type;
81         s->hostname.scope  = NULL;
82
83         /* name resolution methods */
84         if (io->in.resolve_ctx) {
85                 resolve_ctx = io->in.resolve_ctx;
86         } else {
87                 resolve_ctx = ctx->resolve_ctx;
88         }
89
90         /* send resolve request */
91         cresolve_req = resolve_name_send(resolve_ctx, s, &s->hostname, c->event_ctx);
92         if (composite_nomem(cresolve_req, c)) return c;
93
94         composite_continue(c, cresolve_req, continue_name_resolved, c);
95         return c;
96 }
97
98
99 static void continue_name_resolved(struct composite_context *ctx)
100 {
101         struct composite_context *c;
102         struct lookup_state *s;
103
104         c = talloc_get_type(ctx->async.private_data, struct composite_context);
105         s = talloc_get_type(c->private_data, struct lookup_state);
106
107         c->status = resolve_name_recv(ctx, s, &s->address);
108         
109         composite_done(c);
110 }
111
112
113 /**
114  * Waits for and receives results of asynchronous Lookup call
115  *
116  * @param c composite context returned by asynchronous Lookup call
117  * @param mem_ctx memory context of the call
118  * @param io pointer to results (and arguments) of the call
119  * @return nt status code of execution
120  */
121
122 NTSTATUS libnet_Lookup_recv(struct composite_context *c, TALLOC_CTX *mem_ctx,
123                             struct libnet_Lookup *io)
124 {
125         NTSTATUS status;
126         struct lookup_state *s;
127
128         status = composite_wait(c);
129         if (NT_STATUS_IS_OK(status)) {
130                 s = talloc_get_type(c->private_data, struct lookup_state);
131
132                 io->out.address = (const char **)str_list_make_single(mem_ctx, s->address);
133                 NT_STATUS_HAVE_NO_MEMORY(io->out.address);
134         }
135
136         talloc_free(c);
137         return status;
138 }
139
140
141 /**
142  * Synchronous version of Lookup call
143  *
144  * @param mem_ctx memory context for the call
145  * @param io arguments and results of the call
146  * @return nt status code of execution
147  */
148
149 NTSTATUS libnet_Lookup(struct libnet_context *ctx, TALLOC_CTX *mem_ctx,
150                        struct libnet_Lookup *io)
151 {
152         struct composite_context *c = libnet_Lookup_send(ctx, io);
153         return libnet_Lookup_recv(c, mem_ctx, io);
154 }
155
156
157 /*
158  * Shortcut functions to find common types of name
159  * (and skip nbt name type argument)
160  */
161
162
163 /**
164  * Sends asynchronous LookupHost request
165  */
166 struct composite_context* libnet_LookupHost_send(struct libnet_context *ctx,
167                                                  struct libnet_Lookup *io)
168 {
169         io->in.type = NBT_NAME_SERVER;
170         return libnet_Lookup_send(ctx, io);
171 }
172
173
174
175 /**
176  * Synchronous version of LookupHost call
177  */
178 NTSTATUS libnet_LookupHost(struct libnet_context *ctx, TALLOC_CTX *mem_ctx,
179                            struct libnet_Lookup *io)
180 {
181         struct composite_context *c = libnet_LookupHost_send(ctx, io);
182         return libnet_Lookup_recv(c, mem_ctx, io);
183 }
184
185
186 /**
187  * Sends asynchronous LookupDCs request
188  */
189 struct composite_context* libnet_LookupDCs_send(struct libnet_context *ctx,
190                                                 TALLOC_CTX *mem_ctx,
191                                                 struct libnet_LookupDCs *io)
192 {
193         struct composite_context *c;
194         struct messaging_context *msg_ctx = 
195                 messaging_client_init(mem_ctx,
196                                                           lp_messaging_path(mem_ctx, ctx->lp_ctx), 
197                                                           ctx->event_ctx);
198
199         c = finddcs_send(mem_ctx, lp_netbios_name(ctx->lp_ctx),
200                                          lp_nbt_port(ctx->lp_ctx), io->in.domain_name,
201                                          io->in.name_type, NULL, ctx->resolve_ctx,
202                                          ctx->event_ctx, msg_ctx);
203         return c;
204 }
205
206 /**
207  * Waits for and receives results of asynchronous Lookup call
208  *
209  * @param c composite context returned by asynchronous Lookup call
210  * @param mem_ctx memory context of the call
211  * @param io pointer to results (and arguments) of the call
212  * @return nt status code of execution
213  */
214
215 NTSTATUS libnet_LookupDCs_recv(struct composite_context *c, TALLOC_CTX *mem_ctx,
216                                struct libnet_LookupDCs *io)
217 {
218         NTSTATUS status;
219         status = finddcs_recv(c, mem_ctx, &io->out.num_dcs, &io->out.dcs);
220         if (!NT_STATUS_IS_OK(status)) {
221                 return status;
222         }
223         return status;
224 }
225
226
227 /**
228  * Synchronous version of LookupDCs
229  */
230 NTSTATUS libnet_LookupDCs(struct libnet_context *ctx, TALLOC_CTX *mem_ctx,
231                           struct libnet_LookupDCs *io)
232 {
233         struct composite_context *c = libnet_LookupDCs_send(ctx, mem_ctx, io);
234         return libnet_LookupDCs_recv(c, mem_ctx, io);
235 }
236
237
238 struct lookup_name_state {
239         struct libnet_context *ctx;
240         const char *name;
241         uint32_t count;
242         struct libnet_DomainOpen domopen;
243         struct lsa_LookupNames lookup;
244         struct lsa_TransSidArray sids;
245         struct lsa_String *names;
246
247         /* information about the progress */
248         void (*monitor_fn)(struct monitor_msg *);
249 };
250
251
252 static bool prepare_lookup_params(struct libnet_context *ctx,
253                                   struct composite_context *c,
254                                   struct lookup_name_state *s);
255 static void continue_lookup_name(struct composite_context *ctx);
256 static void continue_name_found(struct tevent_req *subreq);
257
258
259 struct composite_context* libnet_LookupName_send(struct libnet_context *ctx,
260                                                  TALLOC_CTX *mem_ctx,
261                                                  struct libnet_LookupName *io,
262                                                  void (*monitor)(struct monitor_msg*))
263 {
264         struct composite_context *c;
265         struct lookup_name_state *s;
266         struct tevent_req *subreq;
267         bool prereq_met = false;
268
269         c = composite_create(mem_ctx, ctx->event_ctx);
270         if (c == NULL) return NULL;
271
272         s = talloc_zero(c, struct lookup_name_state);
273         if (composite_nomem(s, c)) return c;
274
275         c->private_data = s;
276         
277         s->name = talloc_strdup(c, io->in.name);
278         s->monitor_fn = monitor;
279         s->ctx = ctx;
280
281         prereq_met = lsa_domain_opened(ctx, io->in.domain_name, &c, &s->domopen,
282                                        continue_lookup_name, monitor);
283         if (!prereq_met) return c;
284
285         if (!prepare_lookup_params(ctx, c, s)) return c;
286
287         subreq = dcerpc_lsa_LookupNames_r_send(s, c->event_ctx,
288                                                ctx->lsa.pipe->binding_handle,
289                                                &s->lookup);
290         if (composite_nomem(subreq, c)) return c;
291
292         tevent_req_set_callback(subreq, continue_name_found, c);
293         return c;
294 }
295
296
297 static bool prepare_lookup_params(struct libnet_context *ctx,
298                                   struct composite_context *c,
299                                   struct lookup_name_state *s)
300 {
301         const int single_name = 1;
302
303         s->sids.count = 0;
304         s->sids.sids  = NULL;
305         
306         s->names = talloc_array(ctx, struct lsa_String, single_name);
307         if (composite_nomem(s->names, c)) return false;
308         s->names[0].string = s->name;
309         
310         s->lookup.in.handle    = &ctx->lsa.handle;
311         s->lookup.in.num_names = single_name;
312         s->lookup.in.names     = s->names;
313         s->lookup.in.sids      = &s->sids;
314         s->lookup.in.level     = 1;
315         s->lookup.in.count     = &s->count;
316         s->lookup.out.count    = &s->count;
317         s->lookup.out.sids     = &s->sids;
318         s->lookup.out.domains  = talloc_zero(ctx, struct lsa_RefDomainList *);
319         if (composite_nomem(s->lookup.out.domains, c)) return false;
320         
321         return true;
322 }
323
324
325 static void continue_lookup_name(struct composite_context *ctx)
326 {
327         struct composite_context *c;
328         struct lookup_name_state *s;
329         struct tevent_req *subreq;
330
331         c = talloc_get_type(ctx->async.private_data, struct composite_context);
332         s = talloc_get_type(c->private_data, struct lookup_name_state);
333
334         c->status = libnet_DomainOpen_recv(ctx, s->ctx, c, &s->domopen);
335         if (!composite_is_ok(c)) return;
336         
337         if (!prepare_lookup_params(s->ctx, c, s)) return;
338
339         subreq = dcerpc_lsa_LookupNames_r_send(s, c->event_ctx,
340                                                s->ctx->lsa.pipe->binding_handle,
341                                                &s->lookup);
342         if (composite_nomem(subreq, c)) return;
343         
344         tevent_req_set_callback(subreq, continue_name_found, c);
345 }
346
347
348 static void continue_name_found(struct tevent_req *subreq)
349 {
350         struct composite_context *c;
351         struct lookup_name_state *s;
352
353         c = tevent_req_callback_data(subreq, struct composite_context);
354         s = talloc_get_type(c->private_data, struct lookup_name_state);
355
356         c->status = dcerpc_lsa_LookupNames_r_recv(subreq, s);
357         TALLOC_FREE(subreq);
358         if (!composite_is_ok(c)) return;
359
360         c->status = s->lookup.out.result;
361         if (!composite_is_ok(c)) return;
362
363         composite_done(c);
364 }
365
366
367 NTSTATUS libnet_LookupName_recv(struct composite_context *c, TALLOC_CTX *mem_ctx,
368                                 struct libnet_LookupName *io)
369 {
370         NTSTATUS status;
371         struct lookup_name_state *s;
372
373         status = composite_wait(c);
374
375         if (NT_STATUS_IS_OK(status)) {
376                 s = talloc_get_type(c->private_data, struct lookup_name_state);
377
378                 io->out.rid = 0;
379                 io->out.sid = NULL;
380                 io->out.sidstr = NULL;
381
382                 if (*s->lookup.out.count > 0) {
383                         struct lsa_RefDomainList *domains = *s->lookup.out.domains;
384                         struct lsa_TransSidArray *sids = s->lookup.out.sids;
385
386                         if (domains == NULL || sids == NULL) {
387                                 status = NT_STATUS_UNSUCCESSFUL;
388                                 io->out.error_string = talloc_asprintf(mem_ctx, "Error: %s", nt_errstr(status));
389                                 goto done;
390                         }
391
392                         if (sids->count > 0) {
393                                 io->out.rid        = sids->sids[0].rid;
394                                 io->out.sid_type   = sids->sids[0].sid_type;
395                                 if (domains->count > 0) {
396                                         io->out.sid = dom_sid_add_rid(mem_ctx, domains->domains[0].sid, io->out.rid);
397                                         NT_STATUS_HAVE_NO_MEMORY(io->out.sid);
398                                         io->out.sidstr = dom_sid_string(mem_ctx, io->out.sid);
399                                         NT_STATUS_HAVE_NO_MEMORY(io->out.sidstr);
400                                 }
401                         }
402                 }
403
404                 io->out.error_string = talloc_strdup(mem_ctx, "Success");
405
406         } else if (!NT_STATUS_IS_OK(status)) {
407                 io->out.error_string = talloc_asprintf(mem_ctx, "Error: %s", nt_errstr(status));
408         }
409
410 done:
411         talloc_free(c);
412         return status;
413 }
414
415
416 NTSTATUS libnet_LookupName(struct libnet_context *ctx, TALLOC_CTX *mem_ctx,
417                            struct libnet_LookupName *io)
418 {
419         struct composite_context *c;
420         
421         c = libnet_LookupName_send(ctx, mem_ctx, io, NULL);
422         return libnet_LookupName_recv(c, mem_ctx, io);
423 }