mirror of
https://git.openldap.org/openldap/openldap.git
synced 2024-12-21 03:10:25 +08:00
66 lines
1.4 KiB
C
66 lines
1.4 KiB
C
/* $OpenLDAP$ */
|
|
/* tcl_back.h - tcl backend header (structs, functions)
|
|
*
|
|
* Copyright 1999, Ben Collins <bcollins@debian.org>, 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.
|
|
*/
|
|
|
|
#include <tcl.h>
|
|
|
|
#ifndef SLAPD_TCL_H
|
|
#define SLAPD_TCL_H
|
|
|
|
#include <ldap_cdefs.h>
|
|
#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 {
|
|
struct berval ti_script_path;
|
|
struct i_info *ti_ii;
|
|
struct berval ti_bind;
|
|
struct berval ti_unbind;
|
|
struct berval ti_search;
|
|
struct berval ti_compare;
|
|
struct berval ti_modify;
|
|
struct berval ti_modrdn;
|
|
struct berval ti_add;
|
|
struct berval ti_delete;
|
|
struct berval ti_abandon;
|
|
};
|
|
|
|
void readtclscript (char *script, Tcl_Interp * my_tcl);
|
|
char *tcl_clean_entry (Entry * e);
|
|
struct berval *tcl_merge_bvlist (BerVarray bvlist, struct berval *out);
|
|
|
|
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,
|
|
AttributeName *attrs,
|
|
int attrsonly
|
|
);
|
|
|
|
#endif
|