mirror of
https://git.openldap.org/openldap/openldap.git
synced 2024-12-21 03:10:25 +08:00
8667671d17
* Fixed unfree'd 'char *results' in all tcl_* functions (only unfree'd in certain cases, moved the free to the actual function) so no more mem leaks. Tested this with over 500,000 access's for testing :) * Miscellaneous source style and tabulation fixes
66 lines
1.3 KiB
C
66 lines
1.3 KiB
C
/* tcl_back.h - tcl backend header (structs, functions)
|
|
*
|
|
* $Id: tcl_back.h,v 1.1 1999/02/17 01:23:18 bcollins Exp $
|
|
*
|
|
* 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 {
|
|
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
|