source: branches/samba-3.5.x/source4/torture/rpc/scanner.c

/* 
   Unix SMB/CIFS implementation.

   scanner for rpc calls

   Copyright (C) Andrew Tridgell 2003
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "includes.h"
#include "torture/torture.h"
#include "librpc/gen_ndr/ndr_mgmt_c.h"
#include "librpc/ndr/ndr_table.h"
#include "torture/rpc/rpc.h"
#include "param/param.h"
#include "librpc/rpc/dcerpc_proto.h"

/*
  work out how many calls there are for an interface
 */
static bool test_num_calls(struct torture_context *tctx, 
                           const struct ndr_interface_table *iface,
                           TALLOC_CTX *mem_ctx,
                           struct ndr_syntax_id *id)
{
        struct dcerpc_pipe *p;
        NTSTATUS status;
        int i;
        DATA_BLOB stub_in, stub_out;
        int idl_calls;
        struct ndr_interface_table tbl;

        /* FIXME: This should be fixed when torture_rpc_connection 
         * takes a ndr_syntax_id */
        tbl.name = iface->name;
        tbl.syntax_id = *id;

        status = torture_rpc_connection(tctx, &p, iface);
        if (!NT_STATUS_IS_OK(status)) {
                char *uuid_str = GUID_string(mem_ctx, &id->uuid);
                printf("Failed to connect to '%s' on '%s' - %s\n", 
                       uuid_str, iface->name, nt_errstr(status));
                talloc_free(uuid_str);
                return true;
        }

        /* make null calls */
        stub_in = data_blob(NULL, 1000);
        memset(stub_in.data, 0xFF, stub_in.length);

        for (i=0;i<200;i++) {
                status = dcerpc_request(p, NULL, i, mem_ctx, &stub_in, &stub_out);
                if (!NT_STATUS_IS_OK(status) &&
                    p->last_fault_code == DCERPC_FAULT_OP_RNG_ERROR) {
                        break;
                }

                if (!NT_STATUS_IS_OK(status) && p->last_fault_code == 5) {
                        printf("\tpipe disconnected at %d\n", i);
                        goto done;
                }

                if (!NT_STATUS_IS_OK(status) && p->last_fault_code == 0x80010111) {
                        printf("\terr 0x80010111 at %d\n", i);
                        goto done;
                }
        }

        printf("\t%d calls available\n", i);
        idl_calls = ndr_interface_num_calls(&id->uuid, id->if_version);
        if (idl_calls == -1) {
                printf("\tinterface not known in local IDL\n");
        } else if (i != idl_calls) {
                printf("\tWARNING: local IDL defines %u calls\n", idl_calls);
        } else {
                printf("\tOK: matches num_calls in local IDL\n");
        }

done:
        talloc_free(p);
        return true;
}



bool torture_rpc_scanner(struct torture_context *torture)
{
        NTSTATUS status;
        struct dcerpc_pipe *p;
        TALLOC_CTX *loop_ctx;
        bool ret = true;
        const struct ndr_interface_list *l;
        struct dcerpc_binding *b;

        status = torture_rpc_binding(torture, &b);
        if (!NT_STATUS_IS_OK(status)) {
                return false;
        }

        for (l=ndr_table_list();l;l=l->next) {          
                loop_ctx = talloc_named(torture, 0, "torture_rpc_scanner loop context");
                /* some interfaces are not mappable */
                if (l->table->num_calls == 0 ||
                    strcmp(l->table->name, "mgmt") == 0) {
                        talloc_free(loop_ctx);
                        continue;
                }

                printf("\nTesting pipe '%s'\n", l->table->name);

                if (b->transport == NCACN_IP_TCP) {
                        status = dcerpc_epm_map_binding(torture, b, l->table, NULL, torture->lp_ctx);
                        if (!NT_STATUS_IS_OK(status)) {
                                printf("Failed to map port for uuid %s\n", 
                                           GUID_string(loop_ctx, &l->table->syntax_id.uuid));
                                talloc_free(loop_ctx);
                                continue;
                        }
                } else {
                        b->endpoint = talloc_strdup(b, l->table->name);
                }

                lp_set_cmdline(torture->lp_ctx, "torture:binding", dcerpc_binding_string(torture, b));

                status = torture_rpc_connection(torture, &p, &ndr_table_mgmt);
                if (!NT_STATUS_IS_OK(status)) {
                        talloc_free(loop_ctx);
                        ret = false;
                        continue;
                }
        
                if (!test_inq_if_ids(torture, p, torture, test_num_calls, l->table)) {
                        ret = false;
                }
        }

        return ret;
}