mirror/openldap
2
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2025-03-01 14:15:49 +08:00
Code Issues Packages Projects Releases Wiki Activity

Changed general debug levels too LDAP_DEBUG_SHELL

Browse Source
This commit is contained in:
Ben Collins 1999-02-28 05:55:48 +00:00
parent e26de67770
commit b14d7b35ed
11 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
servers/slapd/back-tcl/README.back-tcl
View File

@ -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 <msg>
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.

4
servers/slapd/back-tcl/tcl_abandon.c
View File

@ -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 <bcollins@debian.org>, 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);
}

4
servers/slapd/back-tcl/tcl_add.c
View File

@ -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 <bcollins@debian.org>, 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);
}

4
servers/slapd/back-tcl/tcl_bind.c
View File

@ -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 <bcollins@debian.org>, 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);
}

4
servers/slapd/back-tcl/tcl_compare.c
View File

@ -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 <bcollins@debian.org>, 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);

4
servers/slapd/back-tcl/tcl_delete.c
View File

@ -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 <bcollins@debian.org>, 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);

4
servers/slapd/back-tcl/tcl_modify.c
View File

@ -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 <bcollins@debian.org>, 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);

4
servers/slapd/back-tcl/tcl_modrdn.c
View File

@ -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 <bcollins@debian.org>, 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);

4
servers/slapd/back-tcl/tcl_search.c
View File

@ -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 <bcollins@debian.org>, 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);

4
servers/slapd/back-tcl/tcl_unbind.c
View File

@ -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 <bcollins@debian.org>, 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);
}

12
servers/slapd/back-tcl/tcl_util.c
View File

@ -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 <bcollins@debian.org>, 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;
}