svn commit: samba r18693 - in
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3: .
jelmer at samba.org
jelmer at samba.org
Tue Sep 19 22:39:49 GMT 2006
Author: jelmer
Date: 2006-09-19 22:39:49 +0000 (Tue, 19 Sep 2006)
New Revision: 18693
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=18693
Log:
Print debug info when DEBUGLEVEL >= 10 in the Samba3 code.
Modified:
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm 2006-09-19 22:39:15 UTC (rev 18692)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm 2006-09-19 22:39:49 UTC (rev 18693)
@@ -52,7 +52,15 @@
}
}
+ pidl "";
+ pidl "if (DEBUGLEVEL >= 10)";
+ pidl "\tNDR_PRINT_IN_DEBUG($fn->{NAME}, &r);";
+ pidl "";
pidl "status = cli_do_rpc_ndr(cli, mem_ctx, PI_$uif, $ufn, &r, (ndr_pull_flags_fn_t)ndr_pull_$fn->{NAME}, (ndr_push_flags_fn_t)ndr_push_$fn->{NAME});";
+ pidl "";
+ pidl "if (DEBUGLEVEL >= 10)";
+ pidl "\tNDR_PRINT_OUT_DEBUG($fn->{NAME}, &r);";
+ pidl "";
pidl "if (NT_STATUS_IS_ERR(status)) {";
pidl "\treturn status;";
pidl "}";
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm 2006-09-19 22:39:15 UTC (rev 18692)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm 2006-09-19 22:39:49 UTC (rev 18693)
@@ -80,6 +80,9 @@
pidl "\treturn False;";
pidl "}";
pidl "";
+ pidl "if (DEBUGLEVEL >= 10)";
+ pidl "\tNDR_PRINT_IN_DEBUG($fn->{NAME}, &r);";
+ pidl "";
my %env = ();
my $hasout = 0;
@@ -119,6 +122,9 @@
pidl "$ret;";
pidl "";
+ pidl "if (DEBUGLEVEL >= 10)";
+ pidl "\tNDR_PRINT_OUT_DEBUG($fn->{NAME}, &r);";
+ pidl "";
pidl "push = ndr_push_init_ctx(mem_ctx);";
pidl "if (push == NULL) {";
pidl "\ttalloc_free(mem_ctx);";
More information about the samba-cvs
mailing list