mirror of
https://git.openldap.org/openldap/openldap.git
synced 2025-01-06 10:46:21 +08:00
4a8ab5dbf2
ITS#1677 - cast away const warnings
ITS#1678 - unsigned char args to ctype funcs
ITS#1682 - don't redefine ldap_debug
ITS#1683 - uninitialized vars
ITS#1703 - ldo_debug initialization
ITS#1705 - unsigned testing
ITS#1706 - socklen_t args
ITS#1719 - back-tcl update (other cleanups/fixes/improvements; yet untested)
ITS#1724 - integerNormalize/integerFilter/integerIndexer bugs
ITS#1725 - libdes not required
Implement back-null (/dev/null style backend)
Cleanup some misc warnings ("%lu" format, unused/uninitialized vars,
ambiguous operator precedence)
Kurt, please regenerate configure
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 (struct berval **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
|