/* 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.
*
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
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;
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;
}