From: Ben Collins Date: Sun, 28 Feb 1999 05:55:48 +0000 (+0000) Subject: Changed general debug levels too LDAP_DEBUG_SHELL X-Git-Tag: OPENLDAP_SLAPD_BACK_LDAP~542 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=b14d7b35ed151673db7024ae11256b468cde4a98;p=openldap Changed general debug levels too LDAP_DEBUG_SHELL --- diff --git a/servers/slapd/back-tcl/README.back-tcl b/servers/slapd/back-tcl/README.back-tcl index 6fcfcf8425..f3bcef886f 100644 --- a/servers/slapd/back-tcl/README.back-tcl +++ b/servers/slapd/back-tcl/README.back-tcl @@ -194,6 +194,7 @@ proc ldap:search { args } { NOTE: Newlines in the return value is acceptible in search entries (ie. when returning base64 encoded binary entries). + ------------------------------------- Synopsis of Builtin Commands and Vars ------------------------------------- @@ -203,4 +204,3 @@ ldap:debug Allows you to send debug messages through OpenLDAP's native debuging system, this is sent as a LDAP_DEBUG_ANY and will be logged. Useful for debugging scripts or logging bind failures. - diff --git a/servers/slapd/back-tcl/tcl_abandon.c b/servers/slapd/back-tcl/tcl_abandon.c index 21ecd3cf8f..12bfb729db 100644 --- a/servers/slapd/back-tcl/tcl_abandon.c +++ b/servers/slapd/back-tcl/tcl_abandon.c @@ -1,6 +1,6 @@ /* abandon.c - tcl abandon routine * - * $Id: tcl_abandon.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_abandon.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -50,7 +50,7 @@ tcl_back_abandon ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_abandon_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_abandon_error: %s\n", results, 0, 0); } diff --git a/servers/slapd/back-tcl/tcl_add.c b/servers/slapd/back-tcl/tcl_add.c index 0abb6dae9c..d964dc8060 100644 --- a/servers/slapd/back-tcl/tcl_add.c +++ b/servers/slapd/back-tcl/tcl_add.c @@ -1,6 +1,6 @@ /* add.c - tcl add routine * - * $Id: tcl_add.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_add.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -56,7 +56,7 @@ tcl_back_add ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_add_error: %s\n", results, 0, 0); + Debug (LDAP_DEBUG_SHELL, "tcl_add_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); } diff --git a/servers/slapd/back-tcl/tcl_bind.c b/servers/slapd/back-tcl/tcl_bind.c index 1a466b2f6f..10a1d0a25f 100644 --- a/servers/slapd/back-tcl/tcl_bind.c +++ b/servers/slapd/back-tcl/tcl_bind.c @@ -1,6 +1,6 @@ /* bind.c - tcl bind routines * - * $Id: tcl_bind.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_bind.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -59,7 +59,7 @@ tcl_back_bind ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_bind_error: %s\n", results, 0, 0); + Debug (LDAP_DEBUG_SHELL, "tcl_bind_error: %s\n", results, 0, 0); } else { err = interp_send_results (be, conn, op, results, NULL, 0); } diff --git a/servers/slapd/back-tcl/tcl_compare.c b/servers/slapd/back-tcl/tcl_compare.c index 3eee8f8607..7cd87affda 100644 --- a/servers/slapd/back-tcl/tcl_compare.c +++ b/servers/slapd/back-tcl/tcl_compare.c @@ -1,6 +1,6 @@ /* compare.c - tcl compare routines * - * $Id: tcl_compare.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_compare.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -55,7 +55,7 @@ tcl_back_compare ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_compare_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_compare_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); diff --git a/servers/slapd/back-tcl/tcl_delete.c b/servers/slapd/back-tcl/tcl_delete.c index 653a33d2cb..8052978332 100644 --- a/servers/slapd/back-tcl/tcl_delete.c +++ b/servers/slapd/back-tcl/tcl_delete.c @@ -1,6 +1,6 @@ /* delete.c - tcl delete routines * - * $Id: tcl_delete.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_delete.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -51,7 +51,7 @@ tcl_back_delete ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_delete_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_delete_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); diff --git a/servers/slapd/back-tcl/tcl_modify.c b/servers/slapd/back-tcl/tcl_modify.c index 9817f9590b..047a7fbd41 100644 --- a/servers/slapd/back-tcl/tcl_modify.c +++ b/servers/slapd/back-tcl/tcl_modify.c @@ -1,6 +1,6 @@ /* modify.c - tcl modify routines * - * $Id: tcl_modify.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_modify.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -102,7 +102,7 @@ tcl_back_modify ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_modify_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_modify_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); diff --git a/servers/slapd/back-tcl/tcl_modrdn.c b/servers/slapd/back-tcl/tcl_modrdn.c index 4f48d62234..27e4360714 100644 --- a/servers/slapd/back-tcl/tcl_modrdn.c +++ b/servers/slapd/back-tcl/tcl_modrdn.c @@ -1,6 +1,6 @@ /* modrdn.c - tcl modify rdn routines * - * $Id: tcl_modrdn.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_modrdn.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -55,7 +55,7 @@ tcl_back_modrdn ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_modrdn_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_modrdn_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); diff --git a/servers/slapd/back-tcl/tcl_search.c b/servers/slapd/back-tcl/tcl_search.c index 62eeca165d..bbf95dad3c 100644 --- a/servers/slapd/back-tcl/tcl_search.c +++ b/servers/slapd/back-tcl/tcl_search.c @@ -1,6 +1,6 @@ /* search.c - tcl search routines * - * $Id: tcl_search.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_search.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -72,7 +72,7 @@ tcl_back_search ( if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; - Debug (LDAP_DEBUG_ANY, "tcl_search_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_search_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); diff --git a/servers/slapd/back-tcl/tcl_unbind.c b/servers/slapd/back-tcl/tcl_unbind.c index 1f70c629ff..d30aea3f1b 100644 --- a/servers/slapd/back-tcl/tcl_unbind.c +++ b/servers/slapd/back-tcl/tcl_unbind.c @@ -1,6 +1,6 @@ /* unbind.c - tcl unbind routines * - * $Id: tcl_unbind.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_unbind.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -51,7 +51,7 @@ tcl_back_unbind ( free (command); if (code != TCL_OK) { - Debug (LDAP_DEBUG_ANY, "tcl_unbind_error: %s\n", results, + Debug (LDAP_DEBUG_SHELL, "tcl_unbind_error: %s\n", results, 0, 0); } diff --git a/servers/slapd/back-tcl/tcl_util.c b/servers/slapd/back-tcl/tcl_util.c index c7e61b0fa0..3163abcdbc 100644 --- a/servers/slapd/back-tcl/tcl_util.c +++ b/servers/slapd/back-tcl/tcl_util.c @@ -1,6 +1,6 @@ /* result.c - tcl backend utility functions * - * $Id: tcl_util.c,v 1.3 1999/02/18 01:18:39 bcollins Exp $ + * $Id: tcl_util.c,v 1.4 1999/02/19 06:55:20 bcollins Exp $ * * Copyright 1999, Ben Collins , All rights reserved. * @@ -75,7 +75,7 @@ interp_send_results ( break; } if ((e = str2entry (buf)) == NULL) { - Debug (LDAP_DEBUG_ANY, + Debug (LDAP_DEBUG_SHELL, "str2entry(%s) failed\n", buf, 0, 0); } else { @@ -159,7 +159,7 @@ tcl_ldap_debug ( ) { if (argv[1] != NULL) { - Debug (LDAP_DEBUG_ANY, "tcl_debug: %s\n", argv[1], 0, 0); + Debug (LDAP_DEBUG_SHELL, "tcl_debug: %s\n", argv[1], 0, 0); } return TCL_OK; } @@ -174,16 +174,16 @@ readtclscript ( f = fopen (script, "r"); if (f == NULL) { - Debug (LDAP_DEBUG_ANY, "Could not open scriptpath %s\n", script, + Debug (LDAP_DEBUG_SHELL, "Could not open scriptpath %s\n", script, 0, 0); return; } fclose (f); code = Tcl_EvalFile (my_tcl, script); if (code != TCL_OK) { - Debug (LDAP_DEBUG_ANY, "%s: %s\n", script, + Debug (LDAP_DEBUG_SHELL, "%s: %s\n", script, Tcl_GetVar (my_tcl, "errorInfo", TCL_GLOBAL_ONLY), 0); - Debug (LDAP_DEBUG_ANY, "%s: error at line\n", script, + Debug (LDAP_DEBUG_SHELL, "%s: error at line\n", script, my_tcl->errorLine, 0); return; }