Modified to use libtool's ltdl instead of gmodule

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

diff --git a/servers/slapd/back-tcl/tcl_init.c b/servers/slapd/back-tcl/tcl_init.c
index e7e71323b8dbb6d9e6b48c6cd2cc23cbd0cd5787..956b9e5c846aa58a3a757dc3e0a55486c0c935ef 100644 (file)
--- a/servers/slapd/back-tcl/tcl_init.c
+++ b/servers/slapd/back-tcl/tcl_init.c
@@ -1,6 +1,6 @@
 /* tcl_init.c - tcl backend initialization
  *
- * $Id: tcl_init.c,v 1.4 1999/02/18 01:18:39 bcollins Exp $
+ * $Id: tcl_init.c,v 1.9 1999/07/05 04:26:30 kdz Exp $
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -21,6 +21,21 @@
 
 ldap_pvt_thread_mutex_t tcl_interpreter_mutex;
 
+#ifdef SLAPD_TCL_DYNAMIC
+#include <gmodule.h>
+
+G_MODULE_EXPORT void init_module(int argc, char *argv[]) {
+   BackendInfo bi;
+
+   memset( &bi, 0, sizeof(bi) );
+   bi.bi_type = "tcl";
+   bi.bi_init = tcl_back_initialize;
+
+   backend_add(&bi);
+}
+
+#endif /* SLAPD_TCL_DYNAMIC */
+
 int
 tcl_back_initialize (
        BackendInfo * bi
@@ -39,7 +54,7 @@ tcl_back_initialize (
        ldap_pvt_thread_mutex_init (&tcl_interpreter_mutex);
 
        bi->bi_open = tcl_back_open;
-       bi->bi_config = NULL;
+       bi->bi_config = 0;
        bi->bi_close = tcl_back_close;
        bi->bi_destroy = tcl_back_destroy;
 
@@ -59,9 +74,10 @@ tcl_back_initialize (
        bi->bi_op_delete = tcl_back_delete;
        bi->bi_op_abandon = tcl_back_abandon;
 
-#ifdef SLAPD_ACLGROUPS
-       bi->bi_acl_group = NULL;
-#endif
+       bi->bi_acl_group = 0;
+
+       bi->bi_connection_init = 0;
+       bi->bi_connection_destroy = 0;
 
        return 0;
 }