git.sur5r.net Git - openldap/blob - servers/slapd/back-tcl/tcl_back.h

   1 /*
   2  * tcl_back.h - tcl backend header (structs, functions)
   3  *
   4  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms are permitted only
   7  * as authorized by the OpenLDAP Public License.  A copy of this
   8  * license is available at http://www.OpenLDAP.org/license.html or
   9  * in file LICENSE in the top-level directory of the distribution.
  10  *
  11  * $Id$
  12  *
  13  * $Log$
  14  */
  15
  16 #include <tcl.h>
  17
  18 #ifndef SLAPD_TCL_H
  19 #define SLAPD_TCL_H
  20
  21 #include <ldap_cdefs.h>
  22 #include "external.h"
  23
  24 extern ldap_pvt_thread_mutex_t  tcl_interpreter_mutex;
  25
  26 struct i_info {
  27     Tcl_Interp *interp;
  28     char *name;
  29     struct i_info *next;
  30     int count;
  31 };
  32
  33 extern struct i_info *global_i;
  34
  35 struct tclinfo {
  36     char *script_path;
  37     struct i_info *ti_ii;
  38     char *ti_bind;
  39     char *ti_unbind;
  40     char *ti_search;
  41     char *ti_compare;
  42     char *ti_modify;
  43     char *ti_modrdn;
  44     char *ti_add;
  45     char *ti_delete;
  46     char *ti_abandon;
  47 };
  48
  49 void readtclscript (char *script, Tcl_Interp * my_tcl);
  50 char *tcl_clean_entry (Entry *e);
  51 int tcl_ldap_debug (
  52     ClientData clientData,
  53     Tcl_Interp *interp,
  54     int argc,
  55     char *argv[]
  56 );
  57
  58 int interp_send_results(
  59     Backend     *be,
  60     Connection  *conn,
  61     Operation   *op,
  62     char        *result,
  63     char        **attrs,
  64     int         attrsonly
  65 );
  66
  67 #endif
  68