Modified to use libtool's ltdl instead of gmodule

[openldap] / servers / slapd / back-tcl / tcl_util.c

diff --git a/servers/slapd/back-tcl/tcl_util.c b/servers/slapd/back-tcl/tcl_util.c
index 342e75c5f8bb00c63485cc2e35365c5437e1dfdc..879c9c34f80ca2279b2badca4cdab5101cd5d0ae 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.2 1999/02/17 01:05:28 bcollins Exp $
+ * $Id: tcl_util.c,v 1.7 1999/07/16 00:45:52 kdz Exp $
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -47,7 +47,7 @@ interp_send_results (
        if (code != TCL_OK) {
                argcPtr = 0;
                send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
-                       "internal backend error");
+                       "internal backend error", NULL, NULL );
                return -1;
        }
        for (i = 0; i < argcPtr; i++) {
@@ -75,12 +75,12 @@ 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 {
                                send_search_entry (be, conn, op, e, attrs,
-                                       attrsonly);
+                                       attrsonly, NULL );
                                entry_free (e);
                        }
 
@@ -94,7 +94,7 @@ interp_send_results (
         * otherwise, front end will send this result 
         */
        if (err != 0 || op->o_tag != LDAP_REQ_BIND) {
-               send_ldap_result (conn, op, err, matched, info);
+               send_ldap_result (conn, op, err, matched, info, NULL, NULL );
        }
 
        free (buf);
@@ -125,7 +125,7 @@ tcl_clean_entry (
                if (mark1[0] == '\n') {
                        mark1++;
                }
-               dup = (char *) strdup (mark1);
+               dup = (char *) ch_strdup (mark1);
                if (dup[0] != '\0') {
                        if ((mark2 = (char *) strchr (dup, '\n')) != NULL) {
                                mark2[0] = '\0';
@@ -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;
        }