r18693: Print debug info when DEBUGLEVEL >= 10 in the Samba3 code.

(This used to be commit d28ae3f70ad4f6b09780e600ecb98c39cc62fd24)

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm b/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
index 31ea73f7aae3c0a4cdfa806aa1e9f52bd285d69a..3b75bf33a6578e41b1d183666b0018eb226165b0 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
@@ -52,7 +52,15 @@ sub ParseFunction($$)
                } 
        }
 
+       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 "}";

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index 8ef4529402abb625f14d403075acd88f78e50f17..070ccde8ee97ede84712d3ef8fd5ee909b9f56ab 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
@@ -80,6 +80,9 @@ sub ParseFunction($$)
        pidl "\treturn False;";
        pidl "}";
        pidl "";
+       pidl "if (DEBUGLEVEL >= 10)";
+       pidl "\tNDR_PRINT_IN_DEBUG($fn->{NAME}, &r);";
+       pidl "";
 
        my %env = ();
        my $hasout = 0;
@@ -118,6 +121,9 @@ sub ParseFunction($$)
        pidl_hdr "$proto";
        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) {";