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 6fcfcf8425d465117202879ee574a6ddc311d2df..f3bcef886f355b6fba0dedc6a2323cb584b18e44 100644 (file)
--- 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 <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.
-

diff --git a/servers/slapd/back-tcl/tcl_abandon.c b/servers/slapd/back-tcl/tcl_abandon.c
index 21ecd3cf8f0b85a259b0c139778ebb96e9a4c7e3..12bfb729dbcb3a34ac2fb29fc56bc404fa0bc87a 100644 (file)
--- 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 <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);
        }
 

diff --git a/servers/slapd/back-tcl/tcl_add.c b/servers/slapd/back-tcl/tcl_add.c
index 0abb6dae9c011943be657319ec259d119ecaf907..d964dc80609f6f6a62d3e51b79efcd388047d9d3 100644 (file)
--- 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 <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);
        }

diff --git a/servers/slapd/back-tcl/tcl_bind.c b/servers/slapd/back-tcl/tcl_bind.c
index 1a466b2f6ffdc9cfa33581ee792b82fb0d8ee53a..10a1d0a25f44e43e8df3af47fb62849e5a01b352 100644 (file)
--- 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 <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);
        }

diff --git a/servers/slapd/back-tcl/tcl_compare.c b/servers/slapd/back-tcl/tcl_compare.c
index 3eee8f86077552cd5f70c8b891c4212cd735e386..7cd87affda03b5e0c564ec1143558565506e5a1f 100644 (file)
--- 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 <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);

diff --git a/servers/slapd/back-tcl/tcl_delete.c b/servers/slapd/back-tcl/tcl_delete.c
index 653a33d2cbb33c88b09e3b456ad44614dd60c4fc..805297833244b859abe15230621af22c1b248791 100644 (file)
--- 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 <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);

diff --git a/servers/slapd/back-tcl/tcl_modify.c b/servers/slapd/back-tcl/tcl_modify.c
index 9817f9590bc6f37276be996157096517a5b46e59..047a7fbd41f740cbd3dddf6505c83c755bfaad0f 100644 (file)
--- 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 <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);

diff --git a/servers/slapd/back-tcl/tcl_modrdn.c b/servers/slapd/back-tcl/tcl_modrdn.c
index 4f48d62234d26a0cb7f49850652bb95ddb2b7be6..27e43607143d5c3bb5126440d50ed7ee6cacebda 100644 (file)
--- 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 <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);

diff --git a/servers/slapd/back-tcl/tcl_search.c b/servers/slapd/back-tcl/tcl_search.c
index 62eeca165d2376e6570e732be72a9e52324511f3..bbf95dad3c1f950afbd1d774fffb27d8db0eb339 100644 (file)
--- 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 <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);

diff --git a/servers/slapd/back-tcl/tcl_unbind.c b/servers/slapd/back-tcl/tcl_unbind.c
index 1f70c629ff7006b332dd2ab4061aa04cd3d33312..d30aea3f1ba0718cd5ab7bd234bd91cefd792c25 100644 (file)
--- 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 <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);
        }
 

diff --git a/servers/slapd/back-tcl/tcl_util.c b/servers/slapd/back-tcl/tcl_util.c
index c7e61b0fa05ea0ce654dd267eae3e7f1b93eaf89..3163abcdbc047cb9b65b4f690b41f584046fe22b 100644 (file)
--- 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 <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;
        }