Free IDL_CACHE locks

[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 b602de35b70af6011eb1c94034a80d35401b3d90..120f46ffb44450f33aed44972301cfc63cd6fcd6 100644 (file)
--- a/servers/slapd/back-tcl/tcl_init.c
+++ b/servers/slapd/back-tcl/tcl_init.c
@@ -1,5 +1,5 @@
-/*
- * tcl_init.c - tcl backend initialization
+/* $OpenLDAP$ */
+/* tcl_init.c - tcl backend initialization
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -20,13 +20,28 @@
 
 ldap_pvt_thread_mutex_t tcl_interpreter_mutex;
 
+#ifdef SLAPD_TCL_DYNAMIC
+
+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;
+
+   backend_add(&bi);
+}
+
+#endif /* SLAPD_TCL_DYNAMIC */
+
 int
-tcl_back_initialize(
-       BackendInfo     *bi
+tcl_back_initialize (
+       BackendInfo * bi
 )
 {
        /* Initialize the global interpreter array */
        global_i = (struct i_info *) ch_malloc (sizeof (struct i_info));
+
        global_i->count = 0;
        global_i->name = "default";
        global_i->next = NULL;
@@ -34,16 +49,17 @@ tcl_back_initialize(
        Tcl_Init (global_i->interp);
 
        /* Initialize the global interpreter lock */
-       ldap_pvt_thread_mutex_init( &tcl_interpreter_mutex );
-       bi->bi_open = NULL;
-       bi->bi_config = NULL;
-       bi->bi_close = NULL;
-       bi->bi_destroy = NULL;
+       ldap_pvt_thread_mutex_init (&tcl_interpreter_mutex);
+
+       bi->bi_open = tcl_back_open;
+       bi->bi_config = 0;
+       bi->bi_close = tcl_back_close;
+       bi->bi_destroy = tcl_back_destroy;
 
        bi->bi_db_init = tcl_back_db_init;
        bi->bi_db_config = tcl_back_db_config;
        bi->bi_db_open = tcl_back_db_open;
-       bi->bi_db_close = NULL;
+       bi->bi_db_close = tcl_back_db_close;
        bi->bi_db_destroy = tcl_back_db_destroy;
 
        bi->bi_op_bind = tcl_back_bind;
@@ -56,33 +72,76 @@ tcl_back_initialize(
        bi->bi_op_delete = tcl_back_delete;
        bi->bi_op_abandon = tcl_back_abandon;
 
-       bi->bi_acl_group = NULL;
+       bi->bi_chk_referrals = 0;
+
+       bi->bi_connection_init = 0;
+       bi->bi_connection_destroy = 0;
 
        return 0;
 }
 
 int
-tcl_back_db_init(
-       Backend *be
+tcl_back_open (
+       BackendInfo * bi
 )
 {
-       struct tclinfo  *ti;
+       /* Initialize the global interpreter array */
+       global_i = (struct i_info *) ch_malloc (sizeof (struct i_info));
+
+       global_i->count = 0;
+       global_i->name = "default";
+       global_i->next = NULL;
+       global_i->interp = Tcl_CreateInterp ();
+       Tcl_Init (global_i->interp);
 
-       ti = (struct tclinfo *) ch_calloc( 1, sizeof(struct tclinfo) );
+       /* Initialize the global interpreter lock */
+       ldap_pvt_thread_mutex_init (&tcl_interpreter_mutex);
+
+       return (0);
+}
+
+int
+tcl_back_db_init (
+       Backend * be
+)
+{
+       struct tclinfo *ti;
+
+       ti = (struct tclinfo *) ch_calloc (1, sizeof (struct tclinfo));
+
+       ti->ti_script_path.bv_len = 0;
+       ti->ti_script_path.bv_val = NULL;
 
        /*
         * For some reason this causes problems
         * specifically set to NULL
         */
-       ti->ti_bind = NULL;
-       ti->ti_unbind = NULL;
-       ti->ti_search = NULL;
-       ti->ti_compare = NULL;
-       ti->ti_modify = NULL;
-       ti->ti_modrdn = NULL;
-       ti->ti_add = NULL;
-       ti->ti_delete = NULL;
-       ti->ti_abandon = NULL;
+       ti->ti_bind.bv_len = 0;
+       ti->ti_bind.bv_val = NULL;
+
+       ti->ti_unbind.bv_len = 0;
+       ti->ti_unbind.bv_val = NULL;
+
+       ti->ti_search.bv_len = 0;
+       ti->ti_search.bv_val = NULL;
+
+       ti->ti_compare.bv_len = 0;
+       ti->ti_compare.bv_val = NULL;
+
+       ti->ti_modify.bv_len = 0;
+       ti->ti_modify.bv_val = NULL;
+
+       ti->ti_modrdn.bv_len = 0;
+       ti->ti_modrdn.bv_val = NULL;
+
+       ti->ti_add.bv_len = 0;
+       ti->ti_add.bv_val = NULL;
+
+       ti->ti_delete.bv_len = 0;
+       ti->ti_delete.bv_val = NULL;
+
+       ti->ti_abandon.bv_len = 0;
+       ti->ti_abandon.bv_val = NULL;
 
        be->be_private = ti;
 
@@ -90,10 +149,26 @@ tcl_back_db_init(
 }
 
 int
-tcl_back_db_destroy(
-       Backend *be
+tcl_back_db_open (
+       BackendDB * bd
 )
 {
-       free( be->be_private );
+       struct tclinfo *ti = (struct tclinfo *) bd->be_private;
+
+       if (ti->ti_ii->interp == NULL) {        /* we need to make a new one */
+               ti->ti_ii->interp = Tcl_CreateInterp ();
+               Tcl_Init (ti->ti_ii->interp);
+       }
+
+       /* raise that count for the interpreter */
+       ti->ti_ii->count++;
+
+       /* now let's (try to) load the script */
+       readtclscript (ti->ti_script_path.bv_val, ti->ti_ii->interp);
+
+       /* install the debug command */
+       Tcl_CreateCommand (ti->ti_ii->interp, "ldap:debug", &tcl_ldap_debug,
+               NULL, NULL);
+
        return 0;
 }