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 cdff332fc3d95a2a4fb41fc440674ed4acec9179..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.5 1999/02/28 04:55:49 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++) {
@@ -80,7 +80,7 @@ interp_send_results (
                                        buf, 0, 0);
                        } else {
                                send_search_entry (be, conn, op, e, attrs,
-                                       attrsonly, 0 );
+                                       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);