From a3c9bec0c553b19e68ce4b222a6cf10ba7cad8ec Mon Sep 17 00:00:00 2001 From: Ben Collins Date: Wed, 17 Feb 1999 02:23:18 +0000 Subject: [PATCH] Missing file --- servers/slapd/back-tcl/tcl_back.h | 68 +++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 servers/slapd/back-tcl/tcl_back.h diff --git a/servers/slapd/back-tcl/tcl_back.h b/servers/slapd/back-tcl/tcl_back.h new file mode 100644 index 0000000000..60e6cd00dc --- /dev/null +++ b/servers/slapd/back-tcl/tcl_back.h @@ -0,0 +1,68 @@ +/* + * tcl_back.h - tcl backend header (structs, functions) + * + * Copyright 1999, Ben Collins , All rights reserved. + * + * Redistribution and use in source and binary forms are permitted only + * as authorized by the OpenLDAP Public License. A copy of this + * license is available at http://www.OpenLDAP.org/license.html or + * in file LICENSE in the top-level directory of the distribution. + * + * $Id$ + * + * $Log$ + */ + +#include + +#ifndef SLAPD_TCL_H +#define SLAPD_TCL_H + +#include +#include "external.h" + +extern ldap_pvt_thread_mutex_t tcl_interpreter_mutex; + +struct i_info { + Tcl_Interp *interp; + char *name; + struct i_info *next; + int count; +}; + +extern struct i_info *global_i; + +struct tclinfo { + char *script_path; + struct i_info *ti_ii; + char *ti_bind; + char *ti_unbind; + char *ti_search; + char *ti_compare; + char *ti_modify; + char *ti_modrdn; + char *ti_add; + char *ti_delete; + char *ti_abandon; +}; + +void readtclscript (char *script, Tcl_Interp * my_tcl); +char *tcl_clean_entry (Entry *e); +int tcl_ldap_debug ( + ClientData clientData, + Tcl_Interp *interp, + int argc, + char *argv[] +); + +int interp_send_results( + Backend *be, + Connection *conn, + Operation *op, + char *result, + char **attrs, + int attrsonly +); + +#endif + -- 2.39.5