/* tcl_init.c - tcl backend initialization
*
- * $Id: tcl_init.c,v 1.7 1999/06/23 10:31:37 bastiaan Exp $
+ * $Id: tcl_init.c,v 1.10 1999/08/06 11:16:27 hyc Exp $
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
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[]) {
+void back_tcl_LTX_init_module(int argc, char *argv[]) {
BackendInfo bi;
+ memset( &bi, 0, sizeof(bi) );
bi.bi_type = "tcl";
bi.bi_init = tcl_back_initialize;
bi->bi_op_delete = tcl_back_delete;
bi->bi_op_abandon = tcl_back_abandon;
-#ifdef SLAPD_ACLGROUPS
bi->bi_acl_group = 0;
-#endif
bi->bi_connection_init = 0;
bi->bi_connection_destroy = 0;