r19392: Use torture_setting_* rather than lp_parm_* where possible.
[sfrench/samba-autobuild/.git] / source4 / torture / rpc / scanner.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    scanner for rpc calls
5
6    Copyright (C) Andrew Tridgell 2003
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 2 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #include "includes.h"
24 #include "torture/torture.h"
25 #include "librpc/gen_ndr/ndr_mgmt_c.h"
26 #include "librpc/rpc/dcerpc_table.h"
27 #include "torture/rpc/rpc.h"
28
29 /*
30   work out how many calls there are for an interface
31  */
32 static BOOL test_num_calls(const struct dcerpc_interface_table *iface,
33                            TALLOC_CTX *mem_ctx,
34                            struct dcerpc_syntax_id *id)
35 {
36         struct dcerpc_pipe *p;
37         NTSTATUS status;
38         int i;
39         DATA_BLOB stub_in, stub_out;
40         int idl_calls;
41         struct dcerpc_interface_table tbl;
42
43         /* FIXME: This should be fixed when torture_rpc_connection 
44          * takes a dcerpc_syntax_id */
45         tbl.name = iface->name;
46         tbl.syntax_id = *id;
47
48         status = torture_rpc_connection(mem_ctx, &p, iface);
49         if (!NT_STATUS_IS_OK(status)) {
50                 char *uuid_str = GUID_string(mem_ctx, &id->uuid);
51                 printf("Failed to connect to '%s' on '%s' - %s\n", 
52                        uuid_str, iface->name, nt_errstr(status));
53                 talloc_free(uuid_str);
54                 return False;
55         }
56
57         /* make null calls */
58         stub_in = data_blob(NULL, 1000);
59         memset(stub_in.data, 0xFF, stub_in.length);
60
61         for (i=0;i<200;i++) {
62                 status = dcerpc_request(p, NULL, False, i, mem_ctx, &stub_in, &stub_out);
63                 if (!NT_STATUS_IS_OK(status) &&
64                     p->last_fault_code == DCERPC_FAULT_OP_RNG_ERROR) {
65                         break;
66                 }
67
68                 if (!NT_STATUS_IS_OK(status) && p->last_fault_code == 5) {
69                         printf("\tpipe disconnected at %d\n", i);
70                         goto done;
71                 }
72
73                 if (!NT_STATUS_IS_OK(status) && p->last_fault_code == 0x80010111) {
74                         printf("\terr 0x80010111 at %d\n", i);
75                         goto done;
76                 }
77         }
78
79         printf("\t%d calls available\n", i);
80         idl_calls = idl_num_calls(&id->uuid, id->if_version);
81         if (idl_calls == -1) {
82                 printf("\tinterface not known in local IDL\n");
83         } else if (i != idl_calls) {
84                 printf("\tWARNING: local IDL defines %u calls\n", idl_calls);
85         } else {
86                 printf("\tOK: matches num_calls in local IDL\n");
87         }
88
89 done:
90         talloc_free(p);
91         return True;
92 }
93
94 /*
95   ask the server what interface IDs are available on this endpoint
96 */
97 static BOOL test_inq_if_ids(struct dcerpc_pipe *p, 
98                             TALLOC_CTX *mem_ctx,
99                             const struct dcerpc_interface_table *iface)
100 {
101         NTSTATUS status;
102         struct mgmt_inq_if_ids r;
103         int i;
104         
105         status = dcerpc_mgmt_inq_if_ids(p, mem_ctx, &r);
106         if (!NT_STATUS_IS_OK(status)) {
107                 printf("inq_if_ids failed - %s\n", nt_errstr(status));
108                 return False;
109         }
110
111         if (!W_ERROR_IS_OK(r.out.result)) {
112                 printf("inq_if_ids gave error code %s\n", win_errstr(r.out.result));
113                 return False;
114         }
115
116         if (!r.out.if_id_vector) {
117                 printf("inq_if_ids gave NULL if_id_vector\n");
118                 return False;
119         }
120
121         for (i=0;i<r.out.if_id_vector->count;i++) {
122                 const char *uuid;
123                 struct dcerpc_syntax_id *id = r.out.if_id_vector->if_id[i].id;
124                 if (!id) continue;
125
126                 uuid = GUID_string(mem_ctx, &id->uuid),
127
128                 printf("\n\tuuid %s  version 0x%08x '%s'\n",
129                        uuid,
130                        id->if_version, idl_pipe_name(&id->uuid, id->if_version));
131
132                 test_num_calls(iface, mem_ctx, id);
133         }
134
135         return True;
136 }
137
138
139 BOOL torture_rpc_scanner(struct torture_context *torture)
140 {
141         NTSTATUS status;
142         struct dcerpc_pipe *p;
143         TALLOC_CTX *mem_ctx, *loop_ctx;
144         BOOL ret = True;
145         const struct dcerpc_interface_list *l;
146         const char *binding = torture_setting_string(torture, "binding", NULL);
147         struct dcerpc_binding *b;
148
149         mem_ctx = talloc_init("torture_rpc_scanner");
150
151         if (!binding) {
152                 talloc_free(mem_ctx);
153                 printf("You must supply a ncacn binding string\n");
154                 return False;
155         }
156         
157         status = dcerpc_parse_binding(mem_ctx, binding, &b);
158         if (!NT_STATUS_IS_OK(status)) {
159                 talloc_free(mem_ctx);
160                 printf("Failed to parse binding '%s'\n", binding);
161                 return False;
162         }
163
164         for (l=librpc_dcerpc_pipes();l;l=l->next) {             
165                 loop_ctx = talloc_named(mem_ctx, 0, "torture_rpc_scanner loop context");
166                 /* some interfaces are not mappable */
167                 if (l->table->num_calls == 0 ||
168                     strcmp(l->table->name, "mgmt") == 0) {
169                         talloc_free(loop_ctx);
170                         continue;
171                 }
172
173                 printf("\nTesting pipe '%s'\n", l->table->name);
174
175                 if (b->transport == NCACN_IP_TCP) {
176                         status = dcerpc_epm_map_binding(mem_ctx, b, l->table, NULL);
177                         if (!NT_STATUS_IS_OK(status)) {
178                                 printf("Failed to map port for uuid %s\n", 
179                                            GUID_string(loop_ctx, &l->table->syntax_id.uuid));
180                                 talloc_free(loop_ctx);
181                                 continue;
182                         }
183                 } else {
184                         b->endpoint = talloc_strdup(b, l->table->name);
185                 }
186
187                 lp_set_cmdline("torture:binding", dcerpc_binding_string(mem_ctx, b));
188
189                 status = torture_rpc_connection(loop_ctx, &p, &dcerpc_table_mgmt);
190                 if (!NT_STATUS_IS_OK(status)) {
191                         talloc_free(loop_ctx);
192                         ret = False;
193                         continue;
194                 }
195         
196                 if (!test_inq_if_ids(p, mem_ctx, l->table)) {
197                         ret = False;
198                 }
199         }
200
201         return ret;
202 }