Started conversion of lsa server code to canonical format (as srv_reg and
[ira/wip.git] / source / rpc_parse / parse_lsa.c
1 /* 
2  *  Unix SMB/Netbios implementation.
3  *  Version 1.9.
4  *  RPC Pipe client / server routines
5  *  Copyright (C) Andrew Tridgell              1992-1997,
6  *  Copyright (C) Luke Kenneth Casson Leighton 1996-1997,
7  *  Copyright (C) Paul Ashton                       1997.
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 2 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, write to the Free Software
21  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22  */
23
24 #include "includes.h"
25
26 extern int DEBUGLEVEL;
27
28 static BOOL lsa_io_trans_names(char *desc, LSA_TRANS_NAME_ENUM *trn, prs_struct *ps, int depth);
29
30 /*******************************************************************
31  Inits a LSA_TRANS_NAME structure.
32 ********************************************************************/
33
34 void init_lsa_trans_name(LSA_TRANS_NAME *trn, UNISTR2 *uni_name,
35                          uint16 sid_name_use, char *name, uint32 idx)
36 {
37         int len_name = strlen(name);
38
39         if(len_name == 0)
40                 len_name = 1;
41
42         trn->sid_name_use = sid_name_use;
43         init_uni_hdr(&trn->hdr_name, len_name);
44         init_unistr2(uni_name, name, len_name);
45         trn->domain_idx = idx;
46 }
47
48 /*******************************************************************
49  Reads or writes a LSA_TRANS_NAME structure.
50 ********************************************************************/
51
52 static BOOL lsa_io_trans_name(char *desc, LSA_TRANS_NAME *trn, prs_struct *ps, 
53                               int depth)
54 {
55         prs_debug(ps, depth, desc, "lsa_io_trans_name");
56         depth++;
57
58         if(!prs_align(ps))
59                 return False;
60         
61         if(!prs_uint16("sid_name_use", ps, depth, &trn->sid_name_use))
62                 return False;
63         if(!prs_align(ps))
64                 return False;
65         
66         if(!smb_io_unihdr ("hdr_name", &trn->hdr_name, ps, depth))
67                 return False;
68         if(!prs_uint32("domain_idx  ", ps, depth, &trn->domain_idx))
69                 return False;
70
71         return True;
72 }
73
74 /*******************************************************************
75  Reads or writes a DOM_R_REF structure.
76 ********************************************************************/
77
78 static BOOL lsa_io_dom_r_ref(char *desc, DOM_R_REF *r_r, prs_struct *ps, 
79                              int depth)
80 {
81         int i;
82
83         prs_debug(ps, depth, desc, "lsa_io_dom_r_ref");
84         depth++;
85
86         if(!prs_align(ps))
87                 return False;
88         
89         if(!prs_uint32("num_ref_doms_1", ps, depth, &r_r->num_ref_doms_1)) /* num referenced domains? */
90                 return False;
91         if(!prs_uint32("ptr_ref_dom   ", ps, depth, &r_r->ptr_ref_dom)) /* undocumented buffer pointer. */
92                 return False;
93         if(!prs_uint32("max_entries   ", ps, depth, &r_r->max_entries)) /* 32 - max number of entries */
94                 return False;
95
96         SMB_ASSERT_ARRAY(r_r->hdr_ref_dom, r_r->num_ref_doms_1);
97
98         if (r_r->ptr_ref_dom != 0) {
99
100                 if(!prs_uint32("num_ref_doms_2", ps, depth, &r_r->num_ref_doms_2)) /* 4 - num referenced domains? */
101                         return False;
102
103                 SMB_ASSERT_ARRAY(r_r->ref_dom, r_r->num_ref_doms_2);
104
105                 for (i = 0; i < r_r->num_ref_doms_1; i++) {
106                         fstring t;
107
108                         slprintf(t, sizeof(t) - 1, "dom_ref[%d] ", i);
109                         if(!smb_io_unihdr(t, &r_r->hdr_ref_dom[i].hdr_dom_name, ps, depth))
110                                 return False;
111
112                         slprintf(t, sizeof(t) - 1, "sid_ptr[%d] ", i);
113                         if(!prs_uint32(t, ps, depth, &r_r->hdr_ref_dom[i].ptr_dom_sid))
114                                 return False;
115                 }
116
117                 for (i = 0; i < r_r->num_ref_doms_2; i++) {
118                         fstring t;
119
120                         if (r_r->hdr_ref_dom[i].hdr_dom_name.buffer != 0) {
121                                 slprintf(t, sizeof(t) - 1, "dom_ref[%d] ", i);
122                                 if(!smb_io_unistr2(t, &r_r->ref_dom[i].uni_dom_name, True, ps, depth)) /* domain name unicode string */
123                                         return False;
124                                 if(!prs_align(ps))
125                                         return False;
126                         }
127
128                         if (r_r->hdr_ref_dom[i].ptr_dom_sid != 0) {
129                                 slprintf(t, sizeof(t) - 1, "sid_ptr[%d] ", i);
130                                 if(!smb_io_dom_sid2(t, &r_r->ref_dom[i].ref_dom, ps, depth)) /* referenced domain SIDs */
131                                         return False;
132                         }
133                 }
134         }
135
136         return True;
137 }
138
139 /*******************************************************************
140  Inits an LSA_SEC_QOS structure.
141 ********************************************************************/
142
143 void init_lsa_sec_qos(LSA_SEC_QOS *qos, uint16 imp_lev, uint8 ctxt, uint8 eff,
144                       uint32 unknown)
145 {
146         DEBUG(5, ("init_lsa_sec_qos\n"));
147
148         qos->len = 0x0c; /* length of quality of service block, in bytes */
149         qos->sec_imp_level = imp_lev;
150         qos->sec_ctxt_mode = ctxt;
151         qos->effective_only = eff;
152         qos->unknown = unknown;
153 }
154
155 /*******************************************************************
156  Reads or writes an LSA_SEC_QOS structure.
157 ********************************************************************/
158
159 static BOOL lsa_io_sec_qos(char *desc,  LSA_SEC_QOS *qos, prs_struct *ps, 
160                            int depth)
161 {
162         uint32 start;
163
164         prs_debug(ps, depth, desc, "lsa_io_obj_qos");
165         depth++;
166
167         if(!prs_align(ps))
168                 return False;
169         
170         start = prs_offset(ps);
171
172         /* these pointers had _better_ be zero, because we don't know
173            what they point to!
174          */
175         if(!prs_uint32("len           ", ps, depth, &qos->len)) /* 0x18 - length (in bytes) inc. the length field. */
176                 return False;
177         if(!prs_uint16("sec_imp_level ", ps, depth, &qos->sec_imp_level ))
178                 return False;
179         if(!prs_uint8 ("sec_ctxt_mode ", ps, depth, &qos->sec_ctxt_mode ))
180                 return False;
181         if(!prs_uint8 ("effective_only", ps, depth, &qos->effective_only))
182                 return False;
183         if(!prs_uint32("unknown       ", ps, depth, &qos->unknown))
184                 return False;
185
186         if (qos->len != prs_offset(ps) - start) {
187                 DEBUG(3,("lsa_io_sec_qos: length %x does not match size %x\n",
188                          qos->len, prs_offset(ps) - start));
189                 return False;
190         }
191
192         return True;
193 }
194
195 /*******************************************************************
196  Inits an LSA_OBJ_ATTR structure.
197 ********************************************************************/
198
199 void init_lsa_obj_attr(LSA_OBJ_ATTR *attr, uint32 attributes, LSA_SEC_QOS *qos)
200 {
201         DEBUG(5, ("init_lsa_obj_attr\n"));
202
203         attr->len = 0x18; /* length of object attribute block, in bytes */
204         attr->ptr_root_dir = 0;
205         attr->ptr_obj_name = 0;
206         attr->attributes = attributes;
207         attr->ptr_sec_desc = 0;
208         
209         if (qos != NULL) {
210                 attr->ptr_sec_qos = 1;
211                 attr->sec_qos = qos;
212         } else {
213                 attr->ptr_sec_qos = 0;
214                 attr->sec_qos = NULL;
215         }
216 }
217
218 /*******************************************************************
219  Reads or writes an LSA_OBJ_ATTR structure.
220 ********************************************************************/
221
222 static BOOL lsa_io_obj_attr(char *desc, LSA_OBJ_ATTR *attr, prs_struct *ps, 
223                             int depth)
224 {
225         uint32 start;
226
227         prs_debug(ps, depth, desc, "lsa_io_obj_attr");
228         depth++;
229
230         if(!prs_align(ps))
231                 return False;
232         
233         start = prs_offset(ps);
234
235         /* these pointers had _better_ be zero, because we don't know
236            what they point to!
237          */
238         if(!prs_uint32("len         ", ps, depth, &attr->len)) /* 0x18 - length (in bytes) inc. the length field. */
239                 return False;
240         if(!prs_uint32("ptr_root_dir", ps, depth, &attr->ptr_root_dir)) /* 0 - root directory (pointer) */
241                 return False;
242         if(!prs_uint32("ptr_obj_name", ps, depth, &attr->ptr_obj_name)) /* 0 - object name (pointer) */
243                 return False;
244         if(!prs_uint32("attributes  ", ps, depth, &attr->attributes)) /* 0 - attributes (undocumented) */
245                 return False;
246         if(!prs_uint32("ptr_sec_desc", ps, depth, &attr->ptr_sec_desc)) /* 0 - security descriptior (pointer) */
247                 return False;
248         if(!prs_uint32("ptr_sec_qos ", ps, depth, &attr->ptr_sec_qos )) /* security quality of service (pointer) */
249                 return False;
250
251         if (attr->len != prs_offset(ps) - start) {
252                 DEBUG(3,("lsa_io_obj_attr: length %x does not match size %x\n",
253                          attr->len, prs_offset(ps) - start));
254                 return False;
255         }
256
257         if (attr->ptr_sec_qos != 0 && attr->sec_qos != NULL) {
258                 if(!lsa_io_sec_qos("sec_qos", attr->sec_qos, ps, depth))
259                         return False;
260         }
261
262         return True;
263 }
264
265
266 /*******************************************************************
267  Inits an LSA_Q_OPEN_POL structure.
268 ********************************************************************/
269
270 void init_q_open_pol(LSA_Q_OPEN_POL *r_q, uint16 system_name,
271                      uint32 attributes, uint32 desired_access,
272                      LSA_SEC_QOS *qos)
273 {
274         DEBUG(5, ("init_open_pol: attr:%d da:%d\n", attributes, 
275                   desired_access));
276
277         r_q->ptr = 1; /* undocumented pointer */
278
279         if (qos == NULL)
280                 r_q->des_access = desired_access;
281
282         r_q->system_name = system_name;
283         init_lsa_obj_attr(&r_q->attr, attributes, qos);
284 }
285
286 /*******************************************************************
287  Reads or writes an LSA_Q_OPEN_POL structure.
288 ********************************************************************/
289
290 BOOL lsa_io_q_open_pol(char *desc, LSA_Q_OPEN_POL *r_q, prs_struct *ps, 
291                        int depth)
292 {
293         prs_debug(ps, depth, desc, "lsa_io_q_open_pol");
294         depth++;
295
296         if(!prs_uint32("ptr       ", ps, depth, &r_q->ptr))
297                 return False;
298         if(!prs_uint16("system_name", ps, depth, &r_q->system_name))
299                 return False;
300         if(!prs_align( ps ))
301                 return False;
302
303         if(!lsa_io_obj_attr("", &r_q->attr, ps, depth))
304                 return False;
305
306         if (r_q->attr.ptr_sec_qos == 0) {
307                 if(!prs_uint32("des_access", ps, depth, &r_q->des_access))
308                         return False;
309         }
310
311         return True;
312 }
313
314 /*******************************************************************
315  Reads or writes an LSA_R_OPEN_POL structure.
316 ********************************************************************/
317
318 BOOL lsa_io_r_open_pol(char *desc, LSA_R_OPEN_POL *r_p, prs_struct *ps, 
319                        int depth)
320 {
321         prs_debug(ps, depth, desc, "lsa_io_r_open_pol");
322         depth++;
323
324         if(!smb_io_pol_hnd("", &r_p->pol, ps, depth))
325                 return False;
326
327         if(!prs_uint32("status", ps, depth, &r_p->status))
328                 return False;
329
330         return True;
331 }
332
333 /*******************************************************************
334  Inits an LSA_Q_OPEN_POL2 structure.
335 ********************************************************************/
336
337 void init_q_open_pol2(LSA_Q_OPEN_POL2 *r_q, char *server_name,
338                         uint32 attributes, uint32 desired_access,
339                         LSA_SEC_QOS *qos)
340 {
341         DEBUG(5, ("init_q_open_pol2: attr:%d da:%d\n", attributes, 
342                   desired_access));
343
344         r_q->ptr = 1; /* undocumented pointer */
345
346         if (qos == NULL)
347                 r_q->des_access = desired_access;
348
349         init_unistr2(&r_q->uni_server_name, server_name, 
350                      strlen(server_name) + 1);
351
352         init_lsa_obj_attr(&r_q->attr, attributes, qos);
353 }
354
355 /*******************************************************************
356  Reads or writes an LSA_Q_OPEN_POL2 structure.
357 ********************************************************************/
358
359 BOOL lsa_io_q_open_pol2(char *desc, LSA_Q_OPEN_POL2 *r_q, prs_struct *ps, 
360                         int depth)
361 {
362         prs_debug(ps, depth, desc, "lsa_io_q_open_pol2");
363         depth++;
364
365         if(!prs_uint32("ptr       ", ps, depth, &r_q->ptr))
366                 return False;
367
368         if(!smb_io_unistr2 ("", &r_q->uni_server_name, r_q->ptr, ps, depth))
369                 return False;
370         if(!lsa_io_obj_attr("", &r_q->attr, ps, depth))
371                 return False;
372
373         if (r_q->attr.ptr_sec_qos == 0) {
374                 if(!prs_uint32("des_access", ps, depth, &r_q->des_access))
375                         return False;
376         }
377
378         return True;
379 }
380
381 /*******************************************************************
382  Reads or writes an LSA_R_OPEN_POL2 structure.
383 ********************************************************************/
384
385 BOOL lsa_io_r_open_pol2(char *desc, LSA_R_OPEN_POL2 *r_p, prs_struct *ps, 
386                         int depth)
387 {
388         prs_debug(ps, depth, desc, "lsa_io_r_open_pol2");
389         depth++;
390
391         if(!smb_io_pol_hnd("", &r_p->pol, ps, depth))
392                 return False;
393
394         if(!prs_uint32("status", ps, depth, &r_p->status))
395                 return False;
396
397         return True;
398 }
399
400 /*******************************************************************
401 makes an LSA_Q_QUERY_SEC_OBJ structure.
402 ********************************************************************/
403
404 void init_q_query_sec_obj(LSA_Q_QUERY_SEC_OBJ *q_q, const POLICY_HND *hnd, 
405                           uint32 sec_info)
406 {
407         DEBUG(5, ("init_q_query_sec_obj\n"));
408
409         q_q->pol = *hnd;
410         q_q->sec_info = sec_info;
411
412         return;
413 }
414
415 /*******************************************************************
416  Reads or writes an LSA_Q_QUERY_SEC_OBJ structure.
417 ********************************************************************/
418
419 BOOL lsa_io_q_query_sec_obj(char *desc, LSA_Q_QUERY_SEC_OBJ *q_q, 
420                             prs_struct *ps, int depth)
421 {
422         prs_debug(ps, depth, desc, "lsa_io_q_query_sec_obj");
423         depth++;
424
425         if (!smb_io_pol_hnd("", &q_q->pol, ps, depth))
426                 return False;
427
428         if (!prs_uint32("sec_info", ps, depth, &q_q->sec_info))
429                 return False;
430
431         return True;
432
433
434 /*******************************************************************
435  Reads or writes a LSA_R_QUERY_SEC_OBJ structure.
436 ********************************************************************/
437
438 BOOL lsa_io_r_query_sec_obj(char *desc, LSA_R_QUERY_SEC_OBJ *r_u, 
439                             prs_struct *ps, int depth)
440 {
441         prs_debug(ps, depth, desc, "lsa_io_r_query_sec_obj");
442         depth++;
443
444         if (!prs_align(ps))
445                 return False;
446
447         if (!prs_uint32("ptr", ps, depth, &r_u->ptr))
448                 return False;
449
450         if (r_u->ptr != 0) {
451                 if (!sec_io_desc_buf("sec", &r_u->buf, ps, depth))
452                         return False;
453         }
454
455         if (!prs_uint32("status", ps, depth, &r_u->status))
456                 return False;
457
458         return True;
459 }
460
461 /*******************************************************************
462  Inits an LSA_Q_QUERY_INFO structure.
463 ********************************************************************/
464
465 void init_q_query(LSA_Q_QUERY_INFO *q_q, POLICY_HND *hnd, uint16 info_class)
466 {
467         DEBUG(5, ("init_q_query\n"));
468
469         memcpy(&q_q->pol, hnd, sizeof(q_q->pol));
470
471         q_q->info_class = info_class;
472 }
473
474 /*******************************************************************
475  Reads or writes an LSA_Q_QUERY_INFO structure.
476 ********************************************************************/
477
478 BOOL lsa_io_q_query(char *desc, LSA_Q_QUERY_INFO *q_q, prs_struct *ps, 
479                     int depth)
480 {
481         prs_debug(ps, depth, desc, "lsa_io_q_query");
482         depth++;
483
484         if(!smb_io_pol_hnd("", &q_q->pol, ps, depth))
485                 return False;
486
487         if(!prs_uint16("info_class", ps, depth, &q_q->info_class))
488                 return False;
489
490         return True;
491 }
492
493 /*******************************************************************
494 makes an LSA_Q_ENUM_TRUST_DOM structure.
495 ********************************************************************/
496 BOOL init_q_enum_trust_dom(LSA_Q_ENUM_TRUST_DOM * q_e, POLICY_HND *pol,
497                            uint32 enum_context, uint32 preferred_len)
498 {
499         DEBUG(5, ("init_q_enum_trust_dom\n"));
500
501         q_e->pol = *pol;
502         q_e->enum_context = enum_context;
503         q_e->preferred_len = preferred_len;
504
505         return True;
506 }
507
508 /*******************************************************************
509  Reads or writes an LSA_Q_ENUM_TRUST_DOM structure.
510 ********************************************************************/
511
512 BOOL lsa_io_q_enum_trust_dom(char *desc, LSA_Q_ENUM_TRUST_DOM *q_e, 
513                              prs_struct *ps, int depth)
514 {
515         prs_debug(ps, depth, desc, "lsa_io_q_enum_trust_dom");
516         depth++;
517
518         if(!smb_io_pol_hnd("", &q_e->pol, ps, depth))
519                 return False;
520
521         if(!prs_uint32("enum_context ", ps, depth, &q_e->enum_context))
522                 return False;
523         if(!prs_uint32("preferred_len", ps, depth, &q_e->preferred_len))
524                 return False;
525
526         return True;
527 }
528
529 /*******************************************************************
530  Inits an LSA_R_ENUM_TRUST_DOM structure.
531 ********************************************************************/
532
533 void init_r_enum_trust_dom(LSA_R_ENUM_TRUST_DOM *r_e, uint32 enum_context, 
534                            char *domain_name, DOM_SID *domain_sid,
535                            uint32 status)
536 {
537         DEBUG(5, ("init_r_enum_trust_dom\n"));
538         
539         r_e->enum_context = enum_context;
540         
541         if (status == 0) {
542                 int len_domain_name = strlen(domain_name) + 1;
543                 
544                 r_e->num_domains  = 1;
545                 r_e->ptr_enum_domains = 1;
546                 r_e->num_domains2 = 1;
547                 
548                 if (!(r_e->hdr_domain_name = (UNIHDR2 *)
549                       malloc(sizeof(UNIHDR2)))) return;
550
551                 if (!(r_e->uni_domain_name = (UNISTR2 *)
552                       malloc(sizeof(UNISTR2)))) return;
553
554                 if (!(r_e->domain_sid = (DOM_SID2 *)
555                       malloc(sizeof(DOM_SID2)))) return;
556
557                 init_uni_hdr2(&r_e->hdr_domain_name[0], len_domain_name);
558                 init_unistr2 (&r_e->uni_domain_name[0], domain_name, 
559                               len_domain_name);
560                 init_dom_sid2(&r_e->domain_sid[0], domain_sid);
561         } else {
562                 r_e->num_domains = 0;
563                 r_e->ptr_enum_domains = 0;
564         }
565         
566         r_e->status = status;
567 }
568
569 /*******************************************************************
570  Reads or writes an LSA_R_ENUM_TRUST_DOM structure.
571 ********************************************************************/
572
573 BOOL lsa_io_r_enum_trust_dom(char *desc, LSA_R_ENUM_TRUST_DOM *r_e, 
574                              prs_struct *ps, int depth)
575 {
576         prs_debug(ps, depth, desc, "lsa_io_r_enum_trust_dom");
577         depth++;
578
579         if(!prs_uint32("enum_context    ", ps, depth, &r_e->enum_context))
580                 return False;
581         if(!prs_uint32("num_domains     ", ps, depth, &r_e->num_domains))
582                 return False;
583         if(!prs_uint32("ptr_enum_domains", ps, depth, &r_e->ptr_enum_domains))
584                 return False;
585
586         if (r_e->ptr_enum_domains) {
587                 int i, num_domains;
588
589                 if(!prs_uint32("num_domains2", ps, depth, &r_e->num_domains2))
590                         return False;
591
592                 num_domains = r_e->num_domains2;
593
594                 if (!(r_e->hdr_domain_name = (UNIHDR2 *)
595                       malloc(sizeof(UNIHDR2) * num_domains)))
596                         return False;
597
598                 if (!(r_e->uni_domain_name = (UNISTR2 *)
599                       malloc(sizeof(UNISTR2) * num_domains)))
600                         return False;
601
602                 if (!(r_e->domain_sid = (DOM_SID2 *)
603                       malloc(sizeof(DOM_SID2) * num_domains)))
604                         return False;
605
606                 for (i = 0; i < num_domains; i++) {
607                         if(!smb_io_unihdr2 ("", &r_e->hdr_domain_name[i], ps, 
608                                             depth))
609                                 return False;
610                 }
611                 
612                 for (i = 0; i < num_domains; i++) {
613                         if(!smb_io_unistr2 ("", &r_e->uni_domain_name[i],
614                                             r_e->hdr_domain_name[i].buffer, 
615                                             ps, depth))
616                                 return False;
617                         if(!smb_io_dom_sid2("", &r_e->domain_sid[i], ps, 
618                                             depth))
619                                 return False;
620                 }
621         }
622
623         if(!prs_uint32("status", ps, depth, &r_e->status))
624                 return False;
625
626         return True;
627 }
628
629 void lsa_free_r_enum_trust_dom(LSA_R_ENUM_TRUST_DOM * r_e)
630 {
631         safe_free(r_e->uni_domain_name);
632         safe_free(r_e->hdr_domain_name);
633         safe_free(r_e->domain_sid);
634
635         r_e->uni_domain_name = NULL;
636         r_e->hdr_domain_name = NULL;
637         r_e->domain_sid = NULL;
638
639         r_e->num_domains = 0;
640         r_e->ptr_enum_domains = 0;
641 }
642
643 /*******************************************************************
644 reads or writes a dom query structure.
645 ********************************************************************/
646
647 static BOOL lsa_io_dom_query(char *desc, DOM_QUERY *d_q, prs_struct *ps, int depth)
648 {
649         if (d_q == NULL)
650                 return False;
651
652         prs_debug(ps, depth, desc, "lsa_io_dom_query");
653         depth++;
654
655         if(!prs_align(ps))
656                 return False;
657
658         if(!prs_uint16("uni_dom_max_len", ps, depth, &d_q->uni_dom_max_len)) /* domain name string length * 2 */
659                 return False;
660         if(!prs_uint16("uni_dom_str_len", ps, depth, &d_q->uni_dom_str_len)) /* domain name string length * 2 */
661                 return False;
662
663         if(!prs_uint32("buffer_dom_name", ps, depth, &d_q->buffer_dom_name)) /* undocumented domain name string buffer pointer */
664                 return False;
665         if(!prs_uint32("buffer_dom_sid ", ps, depth, &d_q->buffer_dom_sid)) /* undocumented domain SID string buffer pointer */
666                 return False;
667
668         if(!smb_io_unistr2("unistr2", &d_q->uni_domain_name, d_q->buffer_dom_name, ps, depth)) /* domain name (unicode string) */
669                 return False;
670
671         if(!prs_align(ps))
672                 return False;
673
674         if (d_q->buffer_dom_sid != 0) {
675                 if(!smb_io_dom_sid2("", &d_q->dom_sid, ps, depth)) /* domain SID */
676                         return False;
677         } else {
678                 memset((char *)&d_q->dom_sid, '\0', sizeof(d_q->dom_sid));
679         }
680
681         return True;
682 }
683
684 /*******************************************************************
685 reads or writes a structure.
686 ********************************************************************/
687
688 static BOOL lsa_io_dom_query_2(char *desc, DOM_QUERY_2 *d_q, prs_struct *ps, int depth)
689 {
690         uint32 ptr = 1;
691
692         if (d_q == NULL)
693                 return False;
694
695         prs_debug(ps, depth, desc, "lsa_io_dom_query_2");
696         depth++;
697
698         if (!prs_align(ps))
699                 return False;
700
701         if (!prs_uint32("auditing_enabled", ps, depth, &d_q->auditing_enabled))
702                 return False;
703         if (!prs_uint32("ptr   ", ps, depth, &ptr))
704                 return False;
705         if (!prs_uint32("count1", ps, depth, &d_q->count1))
706                 return False;
707         if (!prs_uint32("count2", ps, depth, &d_q->count2))
708                 return False;
709
710         if (UNMARSHALLING(ps)) {
711                 d_q->auditsettings = (uint32 *)talloc(ps->mem_ctx, d_q->count2 * sizeof(uint32));
712         }
713
714         if (d_q->auditsettings == NULL) {
715                 DEBUG(1, ("lsa_io_dom_query_2: NULL auditsettings!\n"));
716                 return False;
717         }
718
719         if (!prs_uint32s(False, "auditsettings", ps, depth, d_q->auditsettings, d_q->count2))
720                 return False;
721
722     return True;
723 }
724
725 /*******************************************************************
726  Reads or writes a dom query structure.
727 ********************************************************************/
728
729 static BOOL lsa_io_dom_query_3(char *desc, DOM_QUERY_3 *d_q, prs_struct *ps, int depth)
730 {
731         return lsa_io_dom_query("", d_q, ps, depth);
732 }
733
734 /*******************************************************************
735  Reads or writes a dom query structure.
736 ********************************************************************/
737
738 BOOL lsa_io_dom_query_5(char *desc, DOM_QUERY_5 *d_q, prs_struct *ps, int depth)
739 {
740         return lsa_io_dom_query("", d_q, ps, depth);
741 }
742
743 /*******************************************************************
744  Reads or writes a dom query structure.
745 ********************************************************************/
746
747 static BOOL lsa_io_dom_query_6(char *desc, DOM_QUERY_6 *d_q, prs_struct *ps, int depth)
748 {
749         if (d_q == NULL)
750                 return False;
751
752         prs_debug(ps, depth, desc, "lsa_io_dom_query_6");
753         depth++;
754
755         if (!prs_uint16("server_role", ps, depth, &d_q->server_role))
756                 return False;
757
758         return True;
759 }
760
761 /*******************************************************************
762  Reads or writes an LSA_Q_QUERY_INFO structure.
763 ********************************************************************/
764
765 BOOL lsa_io_r_query(char *desc, LSA_R_QUERY_INFO *r_q, prs_struct *ps,
766                     int depth)
767 {
768         prs_debug(ps, depth, desc, "lsa_io_r_query");
769         depth++;
770
771         if(!prs_uint32("undoc_buffer", ps, depth, &r_q->undoc_buffer))
772                 return False;
773
774         if (r_q->undoc_buffer != 0) {
775                 if(!prs_uint16("info_class", ps, depth, &r_q->info_class))
776                         return False;
777
778                 if(!prs_align(ps))
779                         return False;
780
781                 switch (r_q->info_class) {
782                 case 2:
783                         if(!lsa_io_dom_query_2("", &r_q->dom.id2, ps, depth))
784                                 return False;
785                         break;
786                 case 3:
787                         if(!lsa_io_dom_query_3("", &r_q->dom.id3, ps, depth))
788                                 return False;
789                         break;
790                 case 5:
791                         if(!lsa_io_dom_query_5("", &r_q->dom.id5, ps, depth))
792                                 return False;
793                         break;
794                 case 6:
795                         if(!lsa_io_dom_query_6("", &r_q->dom.id6, ps, depth))
796                                 return False;
797                         break;
798                 default:
799                         /* PANIC! */
800                         break;
801                 }
802         }
803
804         if(!prs_align(ps))
805                 return False;
806
807         if(!prs_uint32("status", ps, depth, &r_q->status))
808                 return False;
809
810         return True;
811 }
812
813 /*******************************************************************
814  Inits a LSA_SID_ENUM structure.
815 ********************************************************************/
816
817 void init_lsa_sid_enum(TALLOC_CTX *mem_ctx, LSA_SID_ENUM *sen, 
818                        int num_entries, DOM_SID *sids)
819 {
820         int i;
821
822         DEBUG(5, ("init_lsa_sid_enum\n"));
823
824         sen->num_entries  = num_entries;
825         sen->ptr_sid_enum = (num_entries != 0);
826         sen->num_entries2 = num_entries;
827
828         /* Allocate memory for sids and sid pointers */
829
830         if (num_entries == 0) return;
831
832         if ((sen->ptr_sid = (uint32 *)talloc(mem_ctx, num_entries * 
833                                              sizeof(uint32))) == NULL) {
834                 DEBUG(3, ("init_lsa_sid_enum(): out of memory for ptr_sid\n"));
835                 return;
836         }
837
838         if ((sen->sid = (DOM_SID2 *)talloc(mem_ctx, num_entries * 
839                                            sizeof(DOM_SID2))) == NULL) {
840                 DEBUG(3, ("init_lsa_sid_enum(): out of memory for sids\n"));
841                 return;
842         }
843
844         /* Copy across SIDs and SID pointers */
845
846         for (i = 0; i < num_entries; i++) {
847                 sen->ptr_sid[i] = 1;
848                 init_dom_sid2(&sen->sid[i], &sids[i]);
849         }
850 }
851
852 /*******************************************************************
853  Reads or writes a LSA_SID_ENUM structure.
854 ********************************************************************/
855
856 static BOOL lsa_io_sid_enum(char *desc, LSA_SID_ENUM *sen, prs_struct *ps, 
857                             int depth)
858 {
859         int i;
860
861         prs_debug(ps, depth, desc, "lsa_io_sid_enum");
862         depth++;
863
864         if(!prs_align(ps))
865                 return False;
866         
867         if(!prs_uint32("num_entries ", ps, depth, &sen->num_entries))
868                 return False;
869         if(!prs_uint32("ptr_sid_enum", ps, depth, &sen->ptr_sid_enum))
870                 return False;
871         if(!prs_uint32("num_entries2", ps, depth, &sen->num_entries2))
872                 return False;
873
874         /* Mallocate memory if we're unpacking from the wire */
875
876         if (UNMARSHALLING(ps)) {
877                 if ((sen->ptr_sid = (uint32 *)prs_alloc_mem( ps,
878                         sen->num_entries * sizeof(uint32))) == NULL) {
879                         DEBUG(3, ("init_lsa_sid_enum(): out of memory for "
880                                   "ptr_sid\n"));
881                         return False;
882                 }
883
884                 if ((sen->sid = (DOM_SID2 *)prs_alloc_mem( ps,
885                         sen->num_entries * sizeof(DOM_SID2))) == NULL) {
886                         DEBUG(3, ("init_lsa_sid_enum(): out of memory for "
887                                   "sids\n"));
888                         return False;
889                 }
890         }
891
892         for (i = 0; i < sen->num_entries; i++) {        
893                 fstring temp;
894
895                 slprintf(temp, sizeof(temp) - 1, "ptr_sid[%d]", i);
896                 if(!prs_uint32(temp, ps, depth, &sen->ptr_sid[i])) {
897                         return False;
898                 }
899         }
900
901         for (i = 0; i < sen->num_entries; i++) {
902                 fstring temp;
903
904                 slprintf(temp, sizeof(temp) - 1, "sid[%d]", i);
905                 if(!smb_io_dom_sid2(temp, &sen->sid[i], ps, depth)) {
906                         return False;
907                 }
908         }
909
910         return True;
911 }
912
913 /*******************************************************************
914  Inits an LSA_R_ENUM_TRUST_DOM structure.
915 ********************************************************************/
916
917 void init_q_lookup_sids(TALLOC_CTX *mem_ctx, LSA_Q_LOOKUP_SIDS *q_l, 
918                         POLICY_HND *hnd, int num_sids, DOM_SID *sids,
919                         uint16 level)
920 {
921         DEBUG(5, ("init_r_enum_trust_dom\n"));
922
923         ZERO_STRUCTP(q_l);
924
925         memcpy(&q_l->pol, hnd, sizeof(q_l->pol));
926         init_lsa_sid_enum(mem_ctx, &q_l->sids, num_sids, sids);
927         
928         q_l->level.value = level;
929 }
930
931 /*******************************************************************
932  Reads or writes a LSA_Q_LOOKUP_SIDS structure.
933 ********************************************************************/
934
935 BOOL lsa_io_q_lookup_sids(char *desc, LSA_Q_LOOKUP_SIDS *q_s, prs_struct *ps,
936                           int depth)
937 {
938         prs_debug(ps, depth, desc, "lsa_io_q_lookup_sids");
939         depth++;
940
941         if(!prs_align(ps))
942                 return False;
943         
944         if(!smb_io_pol_hnd("pol_hnd", &q_s->pol, ps, depth)) /* policy handle */
945                 return False;
946         if(!lsa_io_sid_enum("sids   ", &q_s->sids, ps, depth)) /* sids to be looked up */
947                 return False;
948         if(!lsa_io_trans_names("names  ", &q_s->names, ps, depth)) /* translated names */
949                 return False;
950         if(!smb_io_lookup_level("switch ", &q_s->level, ps, depth)) /* lookup level */
951                 return False;
952
953         if(!prs_uint32("mapped_count", ps, depth, &q_s->mapped_count))
954                 return False;
955
956         return True;
957 }
958
959 /*******************************************************************
960  Reads or writes a structure.
961 ********************************************************************/
962
963 static BOOL lsa_io_trans_names(char *desc, LSA_TRANS_NAME_ENUM *trn,
964                 prs_struct *ps, int depth)
965 {
966         int i;
967
968         prs_debug(ps, depth, desc, "lsa_io_trans_names");
969         depth++;
970
971         if(!prs_align(ps))
972                 return False;
973    
974         if(!prs_uint32("num_entries    ", ps, depth, &trn->num_entries))
975                 return False;
976         if(!prs_uint32("ptr_trans_names", ps, depth, &trn->ptr_trans_names))
977                 return False;
978
979         if (trn->ptr_trans_names != 0) {
980                 if(!prs_uint32("num_entries2   ", ps, depth, 
981                                &trn->num_entries2))
982                         return False;
983
984                 if (UNMARSHALLING(ps)) {
985                         if ((trn->name = (LSA_TRANS_NAME *)
986                              prs_alloc_mem(ps, trn->num_entries * 
987                                     sizeof(LSA_TRANS_NAME))) == NULL) {
988                                 return False;
989                         }
990
991                         if ((trn->uni_name = (UNISTR2 *)
992                              prs_alloc_mem(ps, trn->num_entries *
993                                     sizeof(UNISTR2))) == NULL) {
994                                 return False;
995                         }
996                 }
997
998                 for (i = 0; i < trn->num_entries2; i++) {
999                         fstring t;
1000                         slprintf(t, sizeof(t) - 1, "name[%d] ", i);
1001
1002                         if(!lsa_io_trans_name(t, &trn->name[i], ps, depth)) /* translated name */
1003                                 return False;
1004                 }
1005
1006                 for (i = 0; i < trn->num_entries2; i++) {
1007                         fstring t;
1008                         slprintf(t, sizeof(t) - 1, "name[%d] ", i);
1009
1010                         if(!smb_io_unistr2(t, &trn->uni_name[i], trn->name[i].hdr_name.buffer, ps, depth))
1011                                 return False;
1012                         if(!prs_align(ps))
1013                                 return False;
1014                 }
1015         }
1016
1017         return True;
1018 }
1019
1020 /*******************************************************************
1021  Reads or writes a structure.
1022 ********************************************************************/
1023
1024 BOOL lsa_io_r_lookup_sids(char *desc, LSA_R_LOOKUP_SIDS *r_s, 
1025                           prs_struct *ps, int depth)
1026 {
1027         prs_debug(ps, depth, desc, "lsa_io_r_lookup_sids");
1028         depth++;
1029
1030         if(!prs_align(ps))
1031                 return False;
1032         
1033         if(!prs_uint32("ptr_dom_ref", ps, depth, &r_s->ptr_dom_ref))
1034                 return False;
1035
1036         if (r_s->ptr_dom_ref != 0)
1037                 if(!lsa_io_dom_r_ref ("dom_ref", r_s->dom_ref, ps, depth)) /* domain reference info */
1038                         return False;
1039
1040         if(!lsa_io_trans_names("names  ", r_s->names, ps, depth)) /* translated names */
1041                 return False;
1042
1043         if(!prs_align(ps))
1044                 return False;
1045
1046         if(!prs_uint32("mapped_count", ps, depth, &r_s->mapped_count))
1047                 return False;
1048
1049         if(!prs_uint32("status      ", ps, depth, &r_s->status))
1050                 return False;
1051
1052         return True;
1053 }
1054
1055 /*******************************************************************
1056 makes a structure.
1057 ********************************************************************/
1058
1059 void init_q_lookup_names(TALLOC_CTX *mem_ctx, LSA_Q_LOOKUP_NAMES *q_l, 
1060                          POLICY_HND *hnd, int num_names, char **names)
1061 {
1062         int i;
1063
1064         DEBUG(5, ("init_q_lookup_names\n"));
1065
1066         ZERO_STRUCTP(q_l);
1067
1068         q_l->pol = *hnd;
1069         q_l->num_entries = num_names;
1070         q_l->num_entries2 = num_names;
1071         q_l->lookup_level = 1;
1072
1073         if ((q_l->uni_name = (UNISTR2 *)talloc(
1074                 mem_ctx, num_names * sizeof(UNISTR2))) == NULL) {
1075                 DEBUG(3, ("init_q_lookup_names(): out of memory\n"));
1076                 return;
1077         }
1078
1079         if ((q_l->hdr_name = (UNIHDR *)talloc(
1080                 mem_ctx, num_names * sizeof(UNIHDR))) == NULL) {
1081                 DEBUG(3, ("init_q_lookup_names(): out of memory\n"));
1082                 return;
1083         }
1084
1085         for (i = 0; i < num_names; i++) {
1086                 char* name = names[i];
1087                 int len = strlen(name);
1088
1089                 init_uni_hdr(&q_l->hdr_name[i], len);
1090                 init_unistr2(&q_l->uni_name[i], name, len);
1091         }
1092 }
1093
1094 /*******************************************************************
1095 reads or writes a structure.
1096 ********************************************************************/
1097
1098 BOOL lsa_io_q_lookup_names(char *desc, LSA_Q_LOOKUP_NAMES *q_r, 
1099                            prs_struct *ps, int depth)
1100 {
1101         int i;
1102
1103         prs_debug(ps, depth, desc, "lsa_io_q_lookup_names");
1104         depth++;
1105
1106         if(!prs_align(ps))
1107                 return False;
1108
1109         if(!smb_io_pol_hnd("", &q_r->pol, ps, depth)) /* policy handle */
1110                 return False;
1111
1112         if(!prs_align(ps))
1113                 return False;
1114         if(!prs_uint32("num_entries    ", ps, depth, &q_r->num_entries))
1115                 return False;
1116         if(!prs_uint32("num_entries2   ", ps, depth, &q_r->num_entries2))
1117                 return False;
1118
1119         if (UNMARSHALLING(ps)) {
1120                 if (q_r->num_entries) {
1121                         if ((q_r->hdr_name = (UNIHDR *)prs_alloc_mem(ps,
1122                                         q_r->num_entries * sizeof(UNIHDR))) == NULL)
1123                                 return False;
1124                         if ((q_r->uni_name = (UNISTR2 *)prs_alloc_mem(ps,
1125                                         q_r->num_entries * sizeof(UNISTR2))) == NULL)
1126                                 return False;
1127                 }
1128         }
1129
1130         for (i = 0; i < q_r->num_entries; i++) {
1131                 if(!prs_align(ps))
1132                         return False;
1133                 if(!smb_io_unihdr("hdr_name", &q_r->hdr_name[i], ps, depth)) /* pointer names */
1134                         return False;
1135         }
1136
1137         for (i = 0; i < q_r->num_entries; i++) {
1138                 if(!prs_align(ps))
1139                         return False;
1140                 if(!smb_io_unistr2("dom_name", &q_r->uni_name[i], q_r->hdr_name[i].buffer, ps, depth)) /* names to be looked up */
1141                         return False;
1142         }
1143
1144         if(!prs_align(ps))
1145                 return False;
1146         if(!prs_uint32("num_trans_entries ", ps, depth, &q_r->num_trans_entries))
1147                 return False;
1148         if(!prs_uint32("ptr_trans_sids ", ps, depth, &q_r->ptr_trans_sids))
1149                 return False;
1150         if(!prs_uint32("lookup_level   ", ps, depth, &q_r->lookup_level))
1151                 return False;
1152         if(!prs_uint32("mapped_count   ", ps, depth, &q_r->mapped_count))
1153                 return False;
1154
1155         return True;
1156 }
1157
1158 /*******************************************************************
1159 reads or writes a structure.
1160 ********************************************************************/
1161
1162 BOOL lsa_io_r_lookup_names(char *desc, LSA_R_LOOKUP_NAMES *r_r, 
1163                            prs_struct *ps, int depth)
1164 {
1165         int i;
1166
1167         prs_debug(ps, depth, desc, "lsa_io_r_lookup_names");
1168         depth++;
1169
1170         if(!prs_align(ps))
1171                 return False;
1172
1173         if(!prs_uint32("ptr_dom_ref", ps, depth, &r_r->ptr_dom_ref))
1174                 return False;
1175
1176         if (r_r->ptr_dom_ref != 0)
1177                 if(!lsa_io_dom_r_ref("", r_r->dom_ref, ps, depth))
1178                         return False;
1179
1180         if(!prs_uint32("num_entries", ps, depth, &r_r->num_entries))
1181                 return False;
1182         if(!prs_uint32("ptr_entries", ps, depth, &r_r->ptr_entries))
1183                 return False;
1184
1185         if (r_r->ptr_entries != 0) {
1186                 if(!prs_uint32("num_entries2", ps, depth, &r_r->num_entries2))
1187                         return False;
1188
1189                 if (r_r->num_entries2 != r_r->num_entries) {
1190                         /* RPC fault */
1191                         return False;
1192                 }
1193
1194                 if (UNMARSHALLING(ps)) {
1195                         if ((r_r->dom_rid = (DOM_RID2 *)prs_alloc_mem(ps, r_r->num_entries2 * sizeof(DOM_RID2)))
1196                             == NULL) {
1197                                 DEBUG(3, ("lsa_io_r_lookup_names(): out of memory\n"));
1198                                 return False;
1199                         }
1200                 }
1201
1202                 for (i = 0; i < r_r->num_entries2; i++)
1203                         if(!smb_io_dom_rid2("", &r_r->dom_rid[i], ps, depth)) /* domain RIDs being looked up */
1204                                 return False;
1205         }
1206
1207         if(!prs_uint32("mapped_count", ps, depth, &r_r->mapped_count))
1208                 return False;
1209
1210         if(!prs_uint32("status      ", ps, depth, &r_r->status))
1211                 return False;
1212
1213         return True;
1214 }
1215
1216
1217 /*******************************************************************
1218  Inits an LSA_Q_CLOSE structure.
1219 ********************************************************************/
1220
1221 void init_lsa_q_close(LSA_Q_CLOSE *q_c, POLICY_HND *hnd)
1222 {
1223         DEBUG(5, ("init_lsa_q_close\n"));
1224
1225         memcpy(&q_c->pol, hnd, sizeof(q_c->pol));
1226 }
1227
1228 /*******************************************************************
1229  Reads or writes an LSA_Q_CLOSE structure.
1230 ********************************************************************/
1231
1232 BOOL lsa_io_q_close(char *desc, LSA_Q_CLOSE *q_c, prs_struct *ps, int depth)
1233 {
1234         prs_debug(ps, depth, desc, "lsa_io_q_close");
1235         depth++;
1236
1237         if(!smb_io_pol_hnd("", &q_c->pol, ps, depth))
1238                 return False;
1239
1240         return True;
1241 }
1242
1243 /*******************************************************************
1244  Reads or writes an LSA_R_CLOSE structure.
1245 ********************************************************************/
1246
1247 BOOL lsa_io_r_close(char *desc,  LSA_R_CLOSE *r_c, prs_struct *ps, int depth)
1248 {
1249         prs_debug(ps, depth, desc, "lsa_io_r_close");
1250         depth++;
1251
1252         if(!smb_io_pol_hnd("", &r_c->pol, ps, depth))
1253                 return False;
1254
1255         if(!prs_uint32("status", ps, depth, &r_c->status))
1256                 return False;
1257
1258         return True;
1259 }
1260
1261 /*******************************************************************
1262  Reads or writes an LSA_Q_OPEN_SECRET structure.
1263 ********************************************************************/
1264
1265 BOOL lsa_io_q_open_secret(char *desc, LSA_Q_OPEN_SECRET *q_c, prs_struct *ps, int depth)
1266 {
1267         prs_debug(ps, depth, desc, "lsa_io_q_open_secret");
1268         depth++;
1269
1270         /* Don't bother to read or write at present... */
1271         return True;
1272 }
1273
1274 /*******************************************************************
1275  Reads or writes an LSA_R_OPEN_SECRET structure.
1276 ********************************************************************/
1277
1278 BOOL lsa_io_r_open_secret(char *desc, LSA_R_OPEN_SECRET *r_c, prs_struct *ps, int depth)
1279 {
1280         prs_debug(ps, depth, desc, "lsa_io_r_open_secret");
1281         depth++;
1282
1283         if(!prs_align(ps))
1284                 return False;
1285    
1286         if(!prs_uint32("dummy1", ps, depth, &r_c->dummy1))
1287                 return False;
1288         if(!prs_uint32("dummy2", ps, depth, &r_c->dummy2))
1289                 return False;
1290         if(!prs_uint32("dummy3", ps, depth, &r_c->dummy3))
1291                 return False;
1292         if(!prs_uint32("dummy4", ps, depth, &r_c->dummy4))
1293                 return False;
1294         if(!prs_uint32("status", ps, depth, &r_c->status))
1295                 return False;
1296
1297         return True;
1298 }