зеркало из https://github.com/mozilla/pjs.git
1814 строки
35 KiB
Plaintext
1814 строки
35 KiB
Plaintext
/******************************************************************************
|
|
* $Id: API.xs,v 1.19 2007-06-19 11:27:05 gerv%gerv.net Exp $
|
|
*
|
|
* ***** BEGIN LICENSE BLOCK *****
|
|
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
*
|
|
* The contents of this file are subject to the Mozilla Public License Version
|
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
|
* the License. You may obtain a copy of the License at
|
|
* http://www.mozilla.org/MPL/
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
* for the specific language governing rights and limitations under the
|
|
* License.
|
|
*
|
|
* The Original Code is PerLDAP.
|
|
*
|
|
* The Initial Developer of the Original Code is
|
|
* Netscape Communications Corporation.
|
|
* Portions created by the Initial Developer are Copyright (C) 2001
|
|
* the Initial Developer. All Rights Reserved.
|
|
*
|
|
* Contributor(s):
|
|
* Clayton Donley
|
|
*
|
|
* Alternatively, the contents of this file may be used under the terms of
|
|
* either the GNU General Public License Version 2 or later (the "GPL"), or
|
|
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
* in which case the provisions of the GPL or the LGPL are applicable instead
|
|
* of those above. If you wish to allow use of your version of this file only
|
|
* under the terms of either the GPL or the LGPL, and not to allow others to
|
|
* use your version of this file under the terms of the MPL, indicate your
|
|
* decision by deleting the provisions above and replace them with the notice
|
|
* and other provisions required by the GPL or the LGPL. If you do not delete
|
|
* the provisions above, a recipient may use your version of this file under
|
|
* the terms of any one of the MPL, the GPL or the LGPL.
|
|
*
|
|
* ***** END LICENSE BLOCK ***** */
|
|
|
|
/*
|
|
* DESCRIPTION
|
|
* This is the XSUB interface for the API.
|
|
*/
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
/* Perl Include Files */
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
/* LDAP C SDK Include Files */
|
|
#include <lber.h>
|
|
#include <ldap.h>
|
|
|
|
/* SSL is only available in Binary */
|
|
#ifdef USE_SSL
|
|
# include <ldap_ssl.h>
|
|
#endif
|
|
|
|
/* AUTOLOAD methods for LDAP constants */
|
|
#include "constant.h"
|
|
|
|
/* Prototypes */
|
|
static int perldap_init();
|
|
|
|
static void * perldap_malloc(size_t size);
|
|
|
|
static void * perldap_calloc(size_t number, size_t size);
|
|
|
|
static void * perldap_realloc(void *ptr, size_t size);
|
|
|
|
static void perldap_free(void *ptr);
|
|
|
|
static char ** avref2charptrptr(SV *avref);
|
|
|
|
static struct berval ** avref2berptrptr(SV *avref);
|
|
|
|
static SV* charptrptr2avref(char **cppval);
|
|
|
|
static SV* berptrptr2avref(struct berval **bval);
|
|
|
|
static LDAPMod *parse1mod(SV *ldap_value_ref,char *ldap_current_attribute,
|
|
int ldap_add_func,int cont);
|
|
|
|
static int calc_mod_size(HV *ldap_change);
|
|
|
|
static LDAPMod **hash2mod(SV *ldap_change_ref,int ldap_add_func,const char *func);
|
|
|
|
static int StrCaseCmp(const char *s, const char *t);
|
|
|
|
static char * StrDup(const char *source);
|
|
|
|
static int LDAP_CALL internal_rebind_proc(LDAP *ld,char **dnp,char **pwp,
|
|
int *authmethodp,int freeit,void *arg);
|
|
|
|
static int LDAP_CALL ldap_default_rebind_proc(LDAP *ld, char **dn, char **pswd,
|
|
int *auth, int freeit, void *arg);
|
|
|
|
|
|
/* Global Definitions and Variables */
|
|
SV *ldap_perl_rebindproc = NULL;
|
|
static char *ldap_default_rebind_dn = NULL;
|
|
static char *ldap_default_rebind_pwd = NULL;
|
|
static int ldap_default_rebind_auth = LDAP_AUTH_SIMPLE;
|
|
|
|
/* Return a Perl List from a char ** in PPCODE */
|
|
#define RET_CPP(cppvar) \
|
|
int cppindex; \
|
|
if (cppvar) { \
|
|
for (cppindex = 0; cppvar[cppindex] != NULL; cppindex++) \
|
|
{ \
|
|
EXTEND(sp,1); \
|
|
PUSHs(sv_2mortal(newSVpv(cppvar[cppindex],strlen(cppvar[cppindex])))); \
|
|
} \
|
|
ldap_value_free(cppvar); }
|
|
|
|
/* Return a Perl List from a berval ** in PPCODE */
|
|
#define RET_BVPP(bvppvar) \
|
|
int bvppindex; \
|
|
if (bvppvar) { \
|
|
for (bvppindex = 0; bvppvar[bvppindex] != NULL; bvppindex++) \
|
|
{ \
|
|
EXTEND(sp,1); \
|
|
PUSHs(sv_2mortal(newSVpv(bvppvar[bvppindex]->bv_val,bvppvar[bvppindex]->bv_len))); \
|
|
} \
|
|
ldap_value_free_len(bvppvar); }
|
|
|
|
|
|
/*
|
|
* Function Definition
|
|
*/
|
|
|
|
static
|
|
int
|
|
perldap_init()
|
|
{
|
|
struct ldap_memalloc_fns memalloc_fns;
|
|
|
|
memalloc_fns.ldapmem_malloc = perldap_malloc;
|
|
memalloc_fns.ldapmem_calloc = perldap_calloc;
|
|
memalloc_fns.ldapmem_realloc = perldap_realloc;
|
|
memalloc_fns.ldapmem_free = perldap_free;
|
|
|
|
return (ldap_set_option(NULL,
|
|
LDAP_OPT_MEMALLOC_FN_PTRS,
|
|
&memalloc_fns));
|
|
}
|
|
|
|
|
|
static
|
|
void *
|
|
perldap_malloc(size_t size)
|
|
{
|
|
void *new_ptr;
|
|
|
|
New(1, new_ptr, size, char);
|
|
|
|
return (new_ptr);
|
|
}
|
|
|
|
static
|
|
void *
|
|
perldap_calloc(size_t number, size_t size)
|
|
{
|
|
void *new_ptr;
|
|
|
|
Newz(1, new_ptr, (number*size), char);
|
|
|
|
return (new_ptr);
|
|
}
|
|
|
|
static
|
|
void *
|
|
perldap_realloc(void *ptr, size_t size)
|
|
{
|
|
Renew(ptr, size, char);
|
|
|
|
return (ptr);
|
|
}
|
|
|
|
static
|
|
void
|
|
perldap_free(void *ptr)
|
|
{
|
|
Safefree(ptr);
|
|
}
|
|
|
|
|
|
/* Return a char ** when passed a reference to an AV */
|
|
static
|
|
char **
|
|
avref2charptrptr(SV *avref)
|
|
{
|
|
I32 avref_arraylen;
|
|
int ix_av;
|
|
SV **current_val;
|
|
char **tmp_cpp;
|
|
|
|
if ((! SvROK(avref)) ||
|
|
(SvTYPE(SvRV(avref)) != SVt_PVAV) ||
|
|
((avref_arraylen = av_len((AV *)SvRV(avref))) < 0))
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
Newz(1,tmp_cpp,avref_arraylen+2,char *);
|
|
for (ix_av = 0;ix_av <= avref_arraylen;ix_av++)
|
|
{
|
|
current_val = av_fetch((AV *)SvRV(avref),ix_av,0);
|
|
tmp_cpp[ix_av] = StrDup(SvPV(*current_val,na));
|
|
}
|
|
tmp_cpp[ix_av] = NULL;
|
|
|
|
return (tmp_cpp);
|
|
}
|
|
|
|
/* Return a struct berval ** when passed a reference to an AV */
|
|
static
|
|
struct berval **
|
|
avref2berptrptr(SV *avref)
|
|
{
|
|
I32 avref_arraylen;
|
|
int ix_av,val_len;
|
|
SV **current_val;
|
|
char *tmp_char,*tmp2;
|
|
struct berval **tmp_ber;
|
|
|
|
if ((! SvROK(avref)) ||
|
|
(SvTYPE(SvRV(avref)) != SVt_PVAV) ||
|
|
((avref_arraylen = av_len((AV *)SvRV(avref))) < 0))
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
Newz(1,tmp_ber,avref_arraylen+2,struct berval *);
|
|
for (ix_av = 0;ix_av <= avref_arraylen;ix_av++)
|
|
{
|
|
New(1,tmp_ber[ix_av],1,struct berval);
|
|
current_val = av_fetch((AV *)SvRV(avref),ix_av,0);
|
|
|
|
tmp_char = SvPV(*current_val,na);
|
|
val_len = SvCUR(*current_val);
|
|
|
|
Newz(1,tmp2,val_len+1,char);
|
|
Copy(tmp_char,tmp2,val_len,char);
|
|
|
|
tmp_ber[ix_av]->bv_val = tmp2;
|
|
tmp_ber[ix_av]->bv_len = val_len;
|
|
}
|
|
tmp_ber[ix_av] = NULL;
|
|
|
|
return(tmp_ber);
|
|
}
|
|
|
|
/* Return an AV reference when given a char ** */
|
|
|
|
static
|
|
SV*
|
|
charptrptr2avref(char **cppval)
|
|
{
|
|
AV* tmp_av = newAV();
|
|
SV* tmp_ref = newRV((SV*)tmp_av);
|
|
int ix;
|
|
|
|
if (cppval != NULL)
|
|
{
|
|
for (ix = 0; cppval[ix] != NULL; ix++)
|
|
{
|
|
SV* SVval = newSVpv(cppval[ix],0);
|
|
av_push(tmp_av,SVval);
|
|
}
|
|
ldap_value_free(cppval);
|
|
}
|
|
return(tmp_ref);
|
|
}
|
|
|
|
/* Return an AV Reference when given a struct berval ** */
|
|
|
|
static
|
|
SV*
|
|
berptrptr2avref(struct berval **bval)
|
|
{
|
|
AV* tmp_av = newAV();
|
|
SV* tmp_ref = newRV((SV*)tmp_av);
|
|
int ix;
|
|
|
|
if (bval != NULL)
|
|
{
|
|
for(ix = 0; bval[ix] != NULL; ix++)
|
|
{
|
|
SV *SVval = newSVpv(bval[ix]->bv_val,bval[ix]->bv_len);
|
|
av_push(tmp_av,SVval);
|
|
}
|
|
ldap_value_free_len(bval);
|
|
}
|
|
return(tmp_ref);
|
|
}
|
|
|
|
|
|
/* parse1mod - Take a single reference, figure out if it is a HASH, */
|
|
/* ARRAY, or SCALAR, then extract the values and attributes and */
|
|
/* return a single LDAPMod pointer to this data. */
|
|
|
|
static
|
|
LDAPMod *
|
|
parse1mod(SV *ldap_value_ref,char *ldap_current_attribute,
|
|
int ldap_add_func,int cont)
|
|
{
|
|
LDAPMod *ldap_current_mod;
|
|
static HV *ldap_current_values_hv;
|
|
HE *ldap_change_element;
|
|
char *ldap_current_modop;
|
|
SV *ldap_current_value_sv;
|
|
I32 keylen;
|
|
int ldap_isa_ber = 0;
|
|
|
|
if (ldap_current_attribute == NULL)
|
|
return(NULL);
|
|
Newz(1,ldap_current_mod,1,LDAPMod);
|
|
ldap_current_mod->mod_type = StrDup(ldap_current_attribute);
|
|
if (SvROK(ldap_value_ref))
|
|
{
|
|
if (SvTYPE(SvRV(ldap_value_ref)) == SVt_PVHV)
|
|
{
|
|
if (!cont)
|
|
{
|
|
ldap_current_values_hv = (HV *) SvRV(ldap_value_ref);
|
|
hv_iterinit(ldap_current_values_hv);
|
|
}
|
|
if ((ldap_change_element = hv_iternext(ldap_current_values_hv)) == NULL)
|
|
return(NULL);
|
|
ldap_current_modop = hv_iterkey(ldap_change_element,&keylen);
|
|
ldap_current_value_sv = hv_iterval(ldap_current_values_hv,
|
|
ldap_change_element);
|
|
if (ldap_add_func == 1)
|
|
{
|
|
ldap_current_mod->mod_op = 0;
|
|
} else {
|
|
if (strchr(ldap_current_modop,'a') != NULL)
|
|
{
|
|
ldap_current_mod->mod_op = LDAP_MOD_ADD;
|
|
} else if (strchr(ldap_current_modop,'r') != NULL)
|
|
{
|
|
ldap_current_mod->mod_op = LDAP_MOD_REPLACE;
|
|
} else if (strchr(ldap_current_modop,'d') != NULL) {
|
|
ldap_current_mod->mod_op = LDAP_MOD_DELETE;
|
|
} else {
|
|
return(NULL);
|
|
}
|
|
}
|
|
if (strchr(ldap_current_modop,'b') != NULL)
|
|
{
|
|
ldap_isa_ber = 1;
|
|
ldap_current_mod->mod_op = ldap_current_mod->mod_op | LDAP_MOD_BVALUES;
|
|
}
|
|
if (SvTYPE(SvRV(ldap_current_value_sv)) == SVt_PVAV)
|
|
{
|
|
if (ldap_isa_ber == 1)
|
|
{
|
|
ldap_current_mod->mod_bvalues =
|
|
avref2berptrptr(ldap_current_value_sv);
|
|
} else {
|
|
ldap_current_mod->mod_values =
|
|
avref2charptrptr(ldap_current_value_sv);
|
|
}
|
|
}
|
|
} else if (SvTYPE(SvRV(ldap_value_ref)) == SVt_PVAV) {
|
|
if (cont)
|
|
return NULL;
|
|
if (ldap_add_func == 1)
|
|
ldap_current_mod->mod_op = 0;
|
|
else
|
|
ldap_current_mod->mod_op = LDAP_MOD_REPLACE;
|
|
ldap_current_mod->mod_values = avref2charptrptr(ldap_value_ref);
|
|
if (ldap_current_mod->mod_values == NULL)
|
|
{
|
|
ldap_current_mod->mod_op = LDAP_MOD_DELETE;
|
|
}
|
|
}
|
|
} else {
|
|
if (cont)
|
|
return NULL;
|
|
if (strcmp(SvPV(ldap_value_ref,na),"") == 0)
|
|
{
|
|
if (ldap_add_func != 1)
|
|
{
|
|
ldap_current_mod->mod_op = LDAP_MOD_DELETE;
|
|
ldap_current_mod->mod_values = NULL;
|
|
} else {
|
|
return(NULL);
|
|
}
|
|
} else {
|
|
if (ldap_add_func == 1)
|
|
{
|
|
ldap_current_mod->mod_op = 0;
|
|
} else {
|
|
ldap_current_mod->mod_op = LDAP_MOD_REPLACE;
|
|
}
|
|
New(1,ldap_current_mod->mod_values,2,char *);
|
|
ldap_current_mod->mod_values[0] = StrDup(SvPV(ldap_value_ref,na));
|
|
ldap_current_mod->mod_values[1] = NULL;
|
|
}
|
|
}
|
|
return(ldap_current_mod);
|
|
}
|
|
|
|
/* calc_mod_size */
|
|
/* Calculates the number of LDAPMod's buried inside the ldap_change passed */
|
|
/* in. This is used by hash2mod to calculate the size to allocate in Newz */
|
|
static
|
|
int
|
|
calc_mod_size(HV *ldap_change)
|
|
{
|
|
int mod_size = 0;
|
|
HE *ldap_change_element;
|
|
SV *ldap_change_element_value_ref;
|
|
HV *ldap_change_element_value;
|
|
|
|
hv_iterinit(ldap_change);
|
|
|
|
while((ldap_change_element = hv_iternext(ldap_change)) != NULL)
|
|
{
|
|
ldap_change_element_value_ref = hv_iterval(ldap_change,ldap_change_element);
|
|
/* Hashes can take up multiple mod slots. */
|
|
if ( (SvROK(ldap_change_element_value_ref)) &&
|
|
(SvTYPE(SvRV(ldap_change_element_value_ref)) == SVt_PVHV) )
|
|
{
|
|
ldap_change_element_value = (HV *)SvRV(ldap_change_element_value_ref);
|
|
hv_iterinit(ldap_change_element_value);
|
|
while ( hv_iternext(ldap_change_element_value) != NULL )
|
|
{
|
|
mod_size++;
|
|
}
|
|
}
|
|
/* scalars and array references only take up one mod slot */
|
|
else
|
|
{
|
|
mod_size++;
|
|
}
|
|
}
|
|
|
|
return(mod_size);
|
|
}
|
|
|
|
|
|
/* hash2mod - Cycle through all the keys in the hash and properly call */
|
|
/* the appropriate functions to build a NULL terminated list of */
|
|
/* LDAPMod pointers. */
|
|
|
|
static
|
|
LDAPMod **
|
|
hash2mod(SV *ldap_change_ref,int ldap_add_func,const char *func)
|
|
{
|
|
LDAPMod **ldapmod = NULL;
|
|
LDAPMod *ldap_current_mod;
|
|
int ldap_attribute_count = 0;
|
|
HE *ldap_change_element;
|
|
char *ldap_current_attribute;
|
|
SV *ldap_current_value_sv;
|
|
I32 keylen;
|
|
HV *ldap_change;
|
|
|
|
if (!SvROK(ldap_change_ref) || SvTYPE(SvRV(ldap_change_ref)) != SVt_PVHV)
|
|
croak("Mozilla::LDAP::API::%s needs Hash reference as argument 3.",func);
|
|
|
|
ldap_change = (HV *)SvRV(ldap_change_ref);
|
|
|
|
Newz(1,ldapmod,1+calc_mod_size(ldap_change),LDAPMod *);
|
|
hv_iterinit(ldap_change);
|
|
while((ldap_change_element = hv_iternext(ldap_change)) != NULL)
|
|
{
|
|
ldap_current_attribute = hv_iterkey(ldap_change_element,&keylen);
|
|
ldap_current_value_sv = hv_iterval(ldap_change,ldap_change_element);
|
|
ldap_current_mod = parse1mod(ldap_current_value_sv,
|
|
ldap_current_attribute,ldap_add_func,0);
|
|
while (ldap_current_mod != NULL)
|
|
{
|
|
ldap_attribute_count++;
|
|
ldapmod[ldap_attribute_count-1] = (LDAPMod *)ldap_current_mod;
|
|
ldap_current_mod = parse1mod(ldap_current_value_sv,
|
|
ldap_current_attribute,ldap_add_func,1);
|
|
|
|
}
|
|
}
|
|
ldapmod[ldap_attribute_count] = NULL;
|
|
return ldapmod;
|
|
}
|
|
|
|
/* StrCaseCmp - Replacement for strcasecmp, since it doesn't exist on many
|
|
systems, including NT... */
|
|
|
|
static
|
|
int
|
|
StrCaseCmp(const char *s, const char *t)
|
|
{
|
|
while (*s && *t && toupper(*s) == toupper(*t))
|
|
{
|
|
s++; t++;
|
|
}
|
|
return(toupper(*s) - toupper(*t));
|
|
}
|
|
|
|
/*
|
|
* StrDup
|
|
*
|
|
* Duplicates a string, but uses the Perl memory allocation
|
|
* routines (so it can be free by the internal routines
|
|
*/
|
|
static
|
|
char *
|
|
StrDup(const char *source)
|
|
{
|
|
char *dest;
|
|
STRLEN length;
|
|
|
|
if ( source == NULL )
|
|
return(NULL);
|
|
length = strlen(source);
|
|
Newz(1,dest,length+1,char);
|
|
Copy(source,dest,length+1,char);
|
|
|
|
return(dest);
|
|
}
|
|
|
|
/* internal_rebind_proc - Wrapper to call a PERL rebind process */
|
|
|
|
static
|
|
int
|
|
LDAP_CALL
|
|
internal_rebind_proc(LDAP *ld, char **dnp, char **pwp,
|
|
int *authmethodp, int freeit, void *arg)
|
|
{
|
|
if (freeit == 0)
|
|
{
|
|
int count = 0;
|
|
dSP;
|
|
|
|
ENTER ;
|
|
SAVETMPS ;
|
|
count = perl_call_sv(ldap_perl_rebindproc,G_ARRAY|G_NOARGS);
|
|
|
|
SPAGAIN;
|
|
|
|
if (count != 3)
|
|
croak("ldap_perl_rebindproc: Expected DN, PASSWORD, and AUTHTYPE returned.\n");
|
|
|
|
*authmethodp = POPi;
|
|
*pwp = StrDup(POPp);
|
|
*dnp = StrDup(POPp);
|
|
|
|
FREETMPS ;
|
|
LEAVE ;
|
|
} else {
|
|
if (dnp && *dnp)
|
|
{
|
|
Safefree(*dnp);
|
|
}
|
|
if (pwp && *pwp)
|
|
{
|
|
Safefree(*pwp);
|
|
}
|
|
}
|
|
return(LDAP_SUCCESS);
|
|
}
|
|
|
|
/* NT and internal_rebind_proc hate each other, so they need this... */
|
|
|
|
static
|
|
int
|
|
LDAP_CALL
|
|
ldap_default_rebind_proc(LDAP *ld, char **dn, char **pwd,
|
|
int *auth, int freeit, void *arg)
|
|
{
|
|
if (!ldap_default_rebind_dn || !ldap_default_rebind_pwd)
|
|
{
|
|
*dn = NULL;
|
|
*pwd = NULL;
|
|
*auth = 0;
|
|
|
|
return LDAP_OPERATIONS_ERROR;
|
|
}
|
|
|
|
*dn = ldap_default_rebind_dn;
|
|
*pwd = ldap_default_rebind_pwd;
|
|
*auth = ldap_default_rebind_auth;
|
|
|
|
return LDAP_SUCCESS;
|
|
}
|
|
|
|
|
|
MODULE = Mozilla::LDAP::API PACKAGE = Mozilla::LDAP::API
|
|
PROTOTYPES: ENABLE
|
|
|
|
BOOT:
|
|
if ( perldap_init() != 0)
|
|
{
|
|
fprintf(stderr, "Error loading Mozilla::LDAP::API: perldap_init failed\n");
|
|
exit(1);
|
|
}
|
|
|
|
double
|
|
constant(name,arg)
|
|
char * name
|
|
int arg
|
|
|
|
int
|
|
ldap_abandon(ld,msgid)
|
|
LDAP * ld
|
|
int msgid
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_abandon_ext(ld,msgid,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
int msgid
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_add(ld,dn,attrs)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** attrs = hash2mod($arg,1,"$func_name");
|
|
CLEANUP:
|
|
|
|
if (attrs)
|
|
ldap_mods_free(attrs, 1);
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_add_ext(ld,dn,attrs,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** attrs = hash2mod($arg,1,"$func_name");
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_mods_free(attrs, 1);
|
|
|
|
int
|
|
ldap_add_ext_s(ld,dn,attrs,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** attrs = hash2mod($arg,1,"$func_name");
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_mods_free(attrs, 1);
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_add_s(ld,dn,attrs)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** attrs = hash2mod($arg,1,"$func_name");
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_mods_free(attrs, 1);
|
|
|
|
void
|
|
ldap_ber_free(ber,freebuf)
|
|
BerElement * ber
|
|
int freebuf
|
|
CODE:
|
|
{
|
|
if (ber)
|
|
{
|
|
ldap_ber_free(ber, freebuf);
|
|
}
|
|
}
|
|
|
|
int
|
|
ldap_bind(ld,dn,passwd,authmethod)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * passwd
|
|
int authmethod
|
|
|
|
int
|
|
ldap_bind_s(ld,dn,passwd,authmethod)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * passwd
|
|
int authmethod
|
|
|
|
int
|
|
ldap_compare(ld,dn,attr,value)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * attr
|
|
const char * value
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_compare_ext(ld,dn,attr,bvalue,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * attr
|
|
struct berval &bvalue
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
|
|
int
|
|
ldap_compare_ext_s(ld,dn,attr,bvalue,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * attr
|
|
struct berval &bvalue
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_compare_s(ld,dn,attr,value)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * attr
|
|
const char * value
|
|
|
|
#ifdef LDAPV3
|
|
|
|
void
|
|
ldap_control_free(ctrl)
|
|
LDAPControl * ctrl
|
|
|
|
#endif
|
|
|
|
#ifdef CONTROLS_COUNT_WORKS
|
|
int
|
|
ldap_controls_count(ctrls)
|
|
LDAPControl ** ctrls
|
|
|
|
#endif
|
|
|
|
#ifdef LDAPV3
|
|
|
|
void
|
|
ldap_controls_free(ctrls)
|
|
LDAPControl ** ctrls
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_count_entries(ld,result)
|
|
LDAP * ld
|
|
LDAPMessage * result
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_count_messages(ld,result)
|
|
LDAP * ld
|
|
LDAPMessage * result
|
|
|
|
int
|
|
ldap_count_references(ld,result)
|
|
LDAP * ld
|
|
LDAPMessage * result
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_create_filter(buf,buflen,pattern,prefix,suffix,attr,value,valwords)
|
|
char * buf
|
|
unsigned long buflen
|
|
char * pattern
|
|
char * prefix
|
|
char * suffix
|
|
char * attr
|
|
char * value
|
|
char ** valwords
|
|
CLEANUP:
|
|
if (valwords)
|
|
ldap_value_free(valwords);
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_create_persistentsearch_control(ld,changetypes,changesonly,return_echg_ctrls,ctrl_iscritical,ctrlp)
|
|
LDAP * ld
|
|
int changetypes
|
|
int changesonly
|
|
int return_echg_ctrls
|
|
char ctrl_iscritical
|
|
LDAPControl ** ctrlp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
ctrlp
|
|
|
|
int
|
|
ldap_create_sort_control(ld,sortKeyList,ctrl_iscritical,ctrlp)
|
|
LDAP * ld
|
|
LDAPsortkey ** sortKeyList
|
|
char ctrl_iscritical
|
|
LDAPControl ** ctrlp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
ctrlp
|
|
|
|
int
|
|
ldap_create_sort_keylist(sortKeyList,string_rep)
|
|
LDAPsortkey ** &sortKeyList = NO_INIT
|
|
char * string_rep
|
|
OUTPUT:
|
|
RETVAL
|
|
sortKeyList
|
|
|
|
int
|
|
ldap_create_virtuallist_control(ld,ldvlistp,ctrlp)
|
|
LDAP * ld
|
|
LDAPVirtualList *ldvlistp
|
|
LDAPControl ** ctrlp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
ctrlp
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_delete(ld,dn)
|
|
LDAP * ld
|
|
const char * dn
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_delete_ext(ld,dn,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
|
|
int
|
|
ldap_delete_ext_s(ld,dn,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_delete_s(ld,dn)
|
|
LDAP * ld
|
|
const char * dn
|
|
|
|
char *
|
|
ldap_dn2ufn(dn)
|
|
const char * dn
|
|
|
|
char *
|
|
ldap_err2string(err)
|
|
int err
|
|
|
|
void
|
|
ldap_explode_dn(dn,notypes)
|
|
const char * dn
|
|
const int notypes
|
|
PPCODE:
|
|
{
|
|
char **MOZLDAP_VAL = ldap_explode_dn(dn,notypes);
|
|
RET_CPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
void
|
|
ldap_explode_rdn(dn,notypes)
|
|
const char * dn
|
|
int notypes
|
|
PPCODE:
|
|
{
|
|
char **MOZLDAP_VAL = ldap_explode_rdn(dn,notypes);
|
|
RET_CPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_extended_operation(ld,requestoid,requestdata,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * requestoid
|
|
struct berval &requestdata
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
|
|
int
|
|
ldap_extended_operation_s(ld,requestoid,requestdata,serverctrls,clientctrls,retoidp,retdatap)
|
|
LDAP * ld
|
|
const char * requestoid
|
|
struct berval &requestdata
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
char * &retoidp = NO_INIT
|
|
struct berval **retdatap = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
retoidp
|
|
retdatap
|
|
CLEANUP:
|
|
if (retdatap)
|
|
ldap_value_free_len(retdatap);
|
|
|
|
#endif
|
|
|
|
char *
|
|
ldap_first_attribute(ld,entry,ber)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
BerElement * &ber = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
ber
|
|
CLEANUP:
|
|
ldap_memfree(RETVAL);
|
|
|
|
|
|
LDAPMessage *
|
|
ldap_first_entry(ld,chain)
|
|
LDAP * ld
|
|
LDAPMessage * chain
|
|
|
|
#ifdef LDAPV3
|
|
|
|
LDAPMessage *
|
|
ldap_first_message(ld,res)
|
|
LDAP * ld
|
|
LDAPMessage * res
|
|
|
|
LDAPMessage *
|
|
ldap_first_reference(ld,res)
|
|
LDAP * ld
|
|
LDAPMessage * res
|
|
|
|
#endif
|
|
|
|
void
|
|
ldap_free_friendlymap(map)
|
|
FriendlyMap * map
|
|
|
|
#ifdef LDAPV3
|
|
|
|
void
|
|
ldap_free_sort_keylist(sortKeyList)
|
|
LDAPsortkey ** sortKeyList
|
|
|
|
#endif
|
|
|
|
void
|
|
ldap_free_urldesc(ludp)
|
|
LDAPURLDesc * ludp
|
|
|
|
char *
|
|
ldap_friendly_name(filename,name,map)
|
|
char * filename
|
|
char * name
|
|
FriendlyMap * map
|
|
|
|
char *
|
|
ldap_get_dn(ld,entry)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
CLEANUP:
|
|
ldap_memfree(RETVAL);
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_get_entry_controls(ld,entry,serverctrlsp)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
LDAPControl ** &serverctrlsp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
serverctrlsp
|
|
|
|
#endif
|
|
|
|
void
|
|
ldap_getfilter_free(lfdp)
|
|
LDAPFiltDesc * lfdp
|
|
|
|
LDAPFiltInfo *
|
|
ldap_getfirstfilter(lfdp,tagpat,value)
|
|
LDAPFiltDesc * lfdp
|
|
char * tagpat
|
|
char * value
|
|
|
|
#ifdef LDAPV3
|
|
|
|
void
|
|
ldap_get_lang_values(ld,entry,target,type)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
const char * target
|
|
char * type
|
|
PPCODE:
|
|
{
|
|
char ** MOZLDAP_VAL = ldap_get_lang_values(ld,entry,target,&type);
|
|
RET_CPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
void
|
|
ldap_get_lang_values_len(ld,entry,target,type)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
const char * target
|
|
char * type
|
|
PPCODE:
|
|
{
|
|
struct berval ** MOZLDAP_VAL =
|
|
ldap_get_lang_values_len(ld,entry,target,&type);
|
|
RET_BVPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
int
|
|
ldap_get_lderrno(ld, ...)
|
|
LDAP * ld
|
|
CODE:
|
|
{
|
|
char *match = (char *)NULL, *msg = (char *)NULL;
|
|
SV *tmp, *m = (SV *)NULL, *s = (SV *)NULL;
|
|
|
|
if (items > 1)
|
|
{
|
|
m = ST(1);
|
|
if (items > 2)
|
|
s = ST(2);
|
|
}
|
|
|
|
RETVAL = ldap_get_lderrno(ld, (m && SvROK(m)) ? &match : (char **)NULL,
|
|
(s && SvROK(s)) ? &msg : (char **)NULL);
|
|
|
|
if (match)
|
|
{
|
|
tmp = SvRV(m);
|
|
if (SvTYPE(tmp) <= SVt_PV)
|
|
sv_setpv(tmp, match);
|
|
}
|
|
if (msg)
|
|
{
|
|
tmp = SvRV(s);
|
|
if (SvTYPE(tmp) <= SVt_PV)
|
|
sv_setpv(tmp, msg);
|
|
}
|
|
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
LDAPFiltInfo *
|
|
ldap_getnextfilter(lfdp)
|
|
LDAPFiltDesc *lfdp
|
|
|
|
int
|
|
ldap_get_option(ld,option,optdata)
|
|
LDAP * ld
|
|
int option
|
|
int &optdata = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
optdata
|
|
|
|
void
|
|
ldap_get_values(ld,entry,target)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
const char * target
|
|
PPCODE:
|
|
{
|
|
char **MOZLDAP_VAL = ldap_get_values(ld,entry,target);
|
|
RET_CPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
void
|
|
ldap_get_values_len(ld,entry,target)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
const char * target
|
|
PPCODE:
|
|
{
|
|
struct berval **MOZLDAP_VAL = ldap_get_values_len(ld,entry,target);
|
|
RET_BVPP(MOZLDAP_VAL);
|
|
}
|
|
|
|
LDAP *
|
|
ldap_init(host,port)
|
|
const char * host
|
|
int port
|
|
|
|
LDAPFiltDesc *
|
|
ldap_init_getfilter(fname)
|
|
char * fname
|
|
|
|
LDAPFiltDesc *
|
|
ldap_init_getfilter_buf(buf,buflen)
|
|
char * buf
|
|
long buflen
|
|
|
|
int
|
|
ldap_is_ldap_url(url)
|
|
char * url
|
|
|
|
#ifdef LDAPV3
|
|
|
|
void
|
|
ldap_memcache_destroy(cache)
|
|
LDAPMemCache * cache
|
|
|
|
void
|
|
ldap_memcache_flush(cache,dn,scope)
|
|
LDAPMemCache * cache
|
|
char * dn
|
|
int scope
|
|
|
|
int
|
|
ldap_memcache_get(ld,cachep)
|
|
LDAP * ld
|
|
LDAPMemCache ** cachep = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
cachep
|
|
|
|
int
|
|
ldap_memcache_init(ttl,size,baseDNs,cachep)
|
|
unsigned long ttl
|
|
unsigned long size
|
|
char ** baseDNs
|
|
LDAPMemCache ** cachep = NO_INIT
|
|
CODE:
|
|
RETVAL = ldap_memcache_init(ttl,size,baseDNs,NULL,cachep);
|
|
OUTPUT:
|
|
RETVAL
|
|
cachep
|
|
CLEANUP:
|
|
if (baseDNs)
|
|
ldap_value_free(baseDNs);
|
|
|
|
int
|
|
ldap_memcache_set(ld,cache)
|
|
LDAP * ld
|
|
LDAPMemCache * cache
|
|
|
|
void
|
|
ldap_memcache_update(cache)
|
|
LDAPMemCache * cache
|
|
|
|
#endif
|
|
|
|
void
|
|
ldap_memfree(p)
|
|
void * p
|
|
|
|
int
|
|
ldap_modify(ld,dn,mods)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** mods = hash2mod($arg,0,"$func_name");
|
|
CLEANUP:
|
|
if (mods)
|
|
ldap_mods_free(mods, 1);
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_modify_ext(ld,dn,mods,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** mods = hash2mod($arg,0,"$func_name");
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
CLEANUP:
|
|
if (mods)
|
|
ldap_mods_free(mods, 1);
|
|
|
|
int
|
|
ldap_modify_ext_s(ld,dn,mods,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** mods = hash2mod($arg,0,"$func_name");
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
CLEANUP:
|
|
if (mods)
|
|
ldap_mods_free(mods, 1);
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_modify_s(ld,dn,mods)
|
|
LDAP * ld
|
|
const char * dn
|
|
LDAPMod ** mods = hash2mod($arg, 0, "$func_name");
|
|
CLEANUP:
|
|
if (mods)
|
|
ldap_mods_free(mods, 1);
|
|
|
|
int
|
|
ldap_modrdn(ld,dn,newrdn)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
|
|
int
|
|
ldap_modrdn_s(ld,dn,newrdn)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
|
|
int
|
|
ldap_modrdn2(ld,dn,newrdn,deleteoldrdn)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
int deleteoldrdn
|
|
|
|
int
|
|
ldap_modrdn2_s(ld,dn,newrdn,deleteoldrdn)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
int deleteoldrdn
|
|
|
|
void
|
|
ldap_mods_free(mods,freemods)
|
|
LDAPMod ** mods
|
|
int freemods
|
|
|
|
int
|
|
ldap_msgfree(lm)
|
|
LDAPMessage * lm
|
|
CODE:
|
|
{
|
|
if (lm)
|
|
{
|
|
RETVAL = ldap_msgfree(lm);
|
|
}
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
ldap_msgid(lm)
|
|
LDAPMessage * lm
|
|
|
|
int
|
|
ldap_msgtype(lm)
|
|
LDAPMessage * lm
|
|
|
|
int
|
|
ldap_multisort_entries(ld,chain,attr)
|
|
LDAP * ld
|
|
LDAPMessage * chain
|
|
char ** attr
|
|
CODE:
|
|
{
|
|
RETVAL = ldap_multisort_entries(ld,&chain,attr,StrCaseCmp);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
chain
|
|
CLEANUP:
|
|
if (attr)
|
|
ldap_value_free(attr);
|
|
|
|
char *
|
|
ldap_next_attribute(ld,entry,ber)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
BerElement * ber
|
|
OUTPUT:
|
|
RETVAL
|
|
ber
|
|
CLEANUP:
|
|
ldap_memfree(RETVAL);
|
|
|
|
LDAPMessage *
|
|
ldap_next_entry(ld,entry)
|
|
LDAP * ld
|
|
LDAPMessage * entry
|
|
|
|
#ifdef LDAPV3
|
|
|
|
LDAPMessage *
|
|
ldap_next_message(ld,msg)
|
|
LDAP * ld
|
|
LDAPMessage * msg
|
|
|
|
LDAPMessage *
|
|
ldap_next_reference(ld,ref)
|
|
LDAP * ld
|
|
LDAPMessage * ref
|
|
|
|
int
|
|
ldap_parse_entrychange_control(ld,ctrls,chgtypep,prevdnp,chgnumpresentp,chgnump)
|
|
LDAP * ld
|
|
LDAPControl ** ctrls
|
|
int &chgtypep = NO_INIT
|
|
char * &prevdnp = NO_INIT
|
|
int &chgnumpresentp = NO_INIT
|
|
long &chgnump = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
chgtypep
|
|
prevdnp
|
|
chgnumpresentp
|
|
chgnump
|
|
|
|
int
|
|
ldap_parse_extended_result(ld,res,retoidp,retdatap,freeit)
|
|
LDAP * ld
|
|
LDAPMessage * res
|
|
char * &retoidp = NO_INIT
|
|
struct berval **retdatap = NO_INIT
|
|
int freeit
|
|
OUTPUT:
|
|
RETVAL
|
|
retoidp
|
|
retdatap
|
|
|
|
int
|
|
ldap_parse_reference(ld,ref,referalsp,serverctrlsp,freeit)
|
|
LDAP * ld
|
|
LDAPMessage * ref
|
|
char ** &referalsp = NO_INIT
|
|
LDAPControl ** &serverctrlsp = NO_INIT
|
|
int freeit
|
|
OUTPUT:
|
|
RETVAL
|
|
referalsp
|
|
serverctrlsp
|
|
|
|
int
|
|
ldap_parse_result(ld,res,errcodep,matcheddnp,errmsgp,referralsp,serverctrlsp,freeit)
|
|
LDAP * ld
|
|
LDAPMessage * res
|
|
int &errcodep = NO_INIT
|
|
char * &matcheddnp = NO_INIT
|
|
char * &errmsgp = NO_INIT
|
|
char ** &referralsp = NO_INIT
|
|
LDAPControl ** &serverctrlsp = NO_INIT
|
|
int freeit
|
|
OUTPUT:
|
|
RETVAL
|
|
errcodep
|
|
matcheddnp
|
|
errmsgp
|
|
referralsp
|
|
serverctrlsp
|
|
|
|
int
|
|
ldap_parse_sasl_bind_result(ld,res,servercredp,freeit)
|
|
LDAP * ld
|
|
LDAPMessage * res
|
|
struct berval **servercredp = NO_INIT
|
|
int freeit
|
|
OUTPUT:
|
|
RETVAL
|
|
servercredp
|
|
|
|
int
|
|
ldap_parse_sort_control(ld,ctrls,result,attribute)
|
|
LDAP * ld
|
|
LDAPControl ** ctrls
|
|
unsigned long &result = NO_INIT
|
|
char * &attribute = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
result
|
|
attribute
|
|
|
|
int
|
|
ldap_parse_virtuallist_control(ld,ctrls,target_posp,list_sizep,errcodep)
|
|
LDAP * ld
|
|
LDAPControl ** ctrls
|
|
unsigned long &target_posp = NO_INIT
|
|
unsigned long &list_sizep = NO_INIT
|
|
int &errcodep = NO_INIT
|
|
OUTPUT:
|
|
target_posp
|
|
list_sizep
|
|
errcodep
|
|
|
|
#endif
|
|
|
|
void
|
|
ldap_perror(ld,s)
|
|
LDAP * ld
|
|
const char * s
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_rename(ld,dn,newrdn,newparent,deleteoldrdn,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
const char * newparent
|
|
int deleteoldrdn
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
|
|
int
|
|
ldap_rename_s(ld,dn,newrdn,newparent,deleteoldrdn,serverctrls,clientctrls)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * newrdn
|
|
const char * newparent
|
|
int deleteoldrdn
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_result(ld,msgid,all,timeout,result)
|
|
LDAP * ld
|
|
int msgid
|
|
int all
|
|
struct timeval &timeout
|
|
LDAPMessage * &result = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
result
|
|
|
|
int
|
|
ldap_result2error(ld,r,freeit)
|
|
LDAP * ld
|
|
LDAPMessage * r
|
|
int freeit
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_sasl_bind(ld,dn,mechanism,cred,serverctrls,clientctrls,msgidp)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * mechanism
|
|
struct berval &cred
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
|
|
int
|
|
ldap_sasl_bind_s(ld,dn,mechanism,cred,serverctrls,clientctrls,servercredp)
|
|
LDAP * ld
|
|
const char * dn
|
|
const char * mechanism
|
|
struct berval &cred
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
struct berval **servercredp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
servercredp
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_search(ld,base,scope,filter,attrs,attrsonly)
|
|
LDAP * ld
|
|
const char * base
|
|
int scope
|
|
const char * filter
|
|
char ** attrs
|
|
int attrsonly
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_value_free(attrs);
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldap_search_ext(ld,base,scope,filter,attrs,attrsonly,serverctrls,clientctrls,timeoutp,sizelimit,msgidp)
|
|
LDAP * ld
|
|
const char * base
|
|
int scope
|
|
const char * filter
|
|
char ** attrs
|
|
int attrsonly
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
struct timeval &timeoutp
|
|
int sizelimit
|
|
int &msgidp = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
msgidp
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_value_free(attrs);
|
|
|
|
int
|
|
ldap_search_ext_s(ld,base,scope,filter,attrs,attrsonly,serverctrls,clientctrls,timeoutp,sizelimit,res)
|
|
LDAP * ld
|
|
const char * base
|
|
int scope
|
|
const char * filter
|
|
char ** attrs
|
|
int attrsonly
|
|
LDAPControl ** serverctrls
|
|
LDAPControl ** clientctrls
|
|
struct timeval &timeoutp
|
|
int sizelimit
|
|
LDAPMessage * &res = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
res
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_value_free(attrs);
|
|
|
|
#endif
|
|
|
|
int
|
|
ldap_search_s(ld,base,scope,filter,attrs,attrsonly,res)
|
|
LDAP * ld
|
|
const char * base
|
|
int scope
|
|
const char * filter
|
|
char ** attrs
|
|
int attrsonly
|
|
LDAPMessage * &res = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
res
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_value_free(attrs);
|
|
|
|
int
|
|
ldap_search_st(ld,base,scope,filter,attrs,attrsonly,timeout,res)
|
|
LDAP * ld
|
|
const char * base
|
|
int scope
|
|
const char * filter
|
|
char ** attrs
|
|
int attrsonly
|
|
struct timeval &timeout
|
|
LDAPMessage * &res = NO_INIT
|
|
OUTPUT:
|
|
RETVAL
|
|
res
|
|
CLEANUP:
|
|
if (attrs)
|
|
ldap_value_free(attrs);
|
|
|
|
int
|
|
ldap_set_filter_additions(lfdp,prefix,suffix)
|
|
LDAPFiltDesc * lfdp
|
|
char * prefix
|
|
char * suffix
|
|
|
|
int
|
|
ldap_set_lderrno(ld,e,m,s)
|
|
LDAP * ld
|
|
int e
|
|
char * m
|
|
char * s
|
|
|
|
int
|
|
ldap_set_option(ld,option,optdata)
|
|
LDAP * ld
|
|
int option
|
|
int &optdata
|
|
|
|
void
|
|
ldap_set_rebind_proc(ld,rebindproc)
|
|
LDAP * ld
|
|
SV *rebindproc
|
|
CODE:
|
|
{
|
|
if (SvTYPE(SvRV(rebindproc)) != SVt_PVCV)
|
|
{
|
|
ldap_set_rebind_proc(ld,NULL,NULL);
|
|
} else {
|
|
if (ldap_perl_rebindproc == (SV*)NULL)
|
|
ldap_perl_rebindproc = newSVsv(rebindproc);
|
|
else
|
|
SvSetSV(ldap_perl_rebindproc,rebindproc);
|
|
ldap_set_rebind_proc(ld,internal_rebind_proc,NULL);
|
|
}
|
|
}
|
|
|
|
void
|
|
ldap_set_default_rebind_proc(ld, dn, pwd, auth)
|
|
LDAP *ld
|
|
char *dn
|
|
char *pwd
|
|
int auth
|
|
CODE:
|
|
{
|
|
if ( ldap_default_rebind_dn != NULL )
|
|
{
|
|
Safefree(ldap_default_rebind_dn);
|
|
ldap_default_rebind_dn = NULL;
|
|
}
|
|
if ( ldap_default_rebind_pwd != NULL )
|
|
{
|
|
Safefree(ldap_default_rebind_pwd);
|
|
ldap_default_rebind_pwd = NULL;
|
|
}
|
|
ldap_default_rebind_dn = StrDup(dn);
|
|
ldap_default_rebind_pwd = StrDup(pwd);
|
|
ldap_default_rebind_auth = auth;
|
|
|
|
ldap_set_rebind_proc(ld,
|
|
(LDAP_REBINDPROC_CALLBACK *)&ldap_default_rebind_proc,NULL);
|
|
}
|
|
|
|
int
|
|
ldap_simple_bind(ld,who,passwd)
|
|
LDAP * ld
|
|
const char * who
|
|
const char * passwd
|
|
|
|
int
|
|
ldap_simple_bind_s(ld,who,passwd)
|
|
LDAP * ld
|
|
const char * who
|
|
const char * passwd
|
|
|
|
int
|
|
ldap_sort_entries(ld,chain,attr)
|
|
LDAP * ld
|
|
LDAPMessage * chain
|
|
char * attr
|
|
CODE:
|
|
{
|
|
RETVAL = ldap_sort_entries(ld,&chain,attr,StrCaseCmp);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
chain
|
|
|
|
int
|
|
ldap_unbind(ld)
|
|
LDAP * ld
|
|
|
|
int
|
|
ldap_unbind_s(ld)
|
|
LDAP * ld
|
|
|
|
SV *
|
|
ldap_url_parse(url)
|
|
char * url
|
|
CODE:
|
|
{
|
|
LDAPURLDesc *realcomp;
|
|
int count,ret;
|
|
|
|
HV* FullHash = newHV();
|
|
RETVAL = newRV((SV*)FullHash);
|
|
|
|
ret = ldap_url_parse(url,&realcomp);
|
|
if (ret == 0)
|
|
{
|
|
static char *host_key = "host";
|
|
static char *port_key = "port";
|
|
static char *dn_key = "dn";
|
|
static char *attr_key = "attr";
|
|
static char *scope_key = "scope";
|
|
static char *filter_key = "filter";
|
|
static char *options_key = "options";
|
|
SV* options = newSViv(realcomp->lud_options);
|
|
SV* host = newSVpv(realcomp->lud_host,0);
|
|
SV* port = newSViv(realcomp->lud_port);
|
|
SV* dn; /* = newSVpv(realcomp->lud_dn,0); */
|
|
SV* scope = newSViv(realcomp->lud_scope);
|
|
SV* filter = newSVpv(realcomp->lud_filter,0);
|
|
AV* attrarray = newAV();
|
|
SV* attribref = newRV((SV*) attrarray);
|
|
|
|
if (realcomp->lud_dn)
|
|
dn = newSVpv(realcomp->lud_dn,0);
|
|
else
|
|
dn = newSVpv("",0);
|
|
|
|
if (realcomp->lud_attrs != NULL)
|
|
{
|
|
for (count=0; realcomp->lud_attrs[count] != NULL; count++)
|
|
{
|
|
SV* SVval = newSVpv(realcomp->lud_attrs[count],0);
|
|
av_push(attrarray, SVval);
|
|
}
|
|
}
|
|
hv_store(FullHash,host_key,strlen(host_key),host,0);
|
|
hv_store(FullHash,port_key,strlen(port_key),port,0);
|
|
hv_store(FullHash,dn_key,strlen(dn_key),dn,0);
|
|
hv_store(FullHash,attr_key,strlen(attr_key),attribref,0);
|
|
hv_store(FullHash,scope_key,strlen(scope_key),scope,0);
|
|
hv_store(FullHash,filter_key,strlen(filter_key),filter,0);
|
|
hv_store(FullHash,options_key,strlen(options_key),options,0);
|
|
ldap_free_urldesc(realcomp);
|
|
} else {
|
|
RETVAL = &sv_undef;
|
|
}
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
ldap_url_search(ld,url,attrsonly)
|
|
LDAP * ld
|
|
char * url
|
|
int attrsonly
|
|
|
|
int
|
|
ldap_url_search_s(ld,url,attrsonly,res)
|
|
LDAP * ld
|
|
char * url
|
|
int attrsonly
|
|
LDAPMessage * &res
|
|
OUTPUT:
|
|
RETVAL
|
|
res
|
|
|
|
int
|
|
ldap_url_search_st(ld,url,attrsonly,timeout,res)
|
|
LDAP * ld
|
|
char * url
|
|
int attrsonly
|
|
struct timeval &timeout
|
|
LDAPMessage * &res
|
|
OUTPUT:
|
|
RETVAL
|
|
res
|
|
|
|
int
|
|
ldap_version(ver)
|
|
LDAPVersion * ver
|
|
|
|
#ifdef USE_SSL
|
|
|
|
int
|
|
ldapssl_client_init(certdbpath,certdbhandle)
|
|
const char * certdbpath
|
|
void * certdbhandle
|
|
|
|
#ifdef LDAPV3
|
|
|
|
int
|
|
ldapssl_clientauth_init(certdbpath,certdbhandle,needkeydb,keydbpath,keydbhandle)
|
|
char * certdbpath
|
|
void * certdbhandle
|
|
int needkeydb
|
|
char * keydbpath
|
|
void * keydbhandle
|
|
|
|
int
|
|
ldapssl_enable_clientauth(ld,keynickname,keypasswd,certnickname)
|
|
LDAP * ld
|
|
char * keynickname
|
|
char * keypasswd
|
|
char * certnickname
|
|
|
|
#endif
|
|
|
|
LDAP *
|
|
ldapssl_init(host,port,secure)
|
|
const char * host
|
|
int port
|
|
int secure
|
|
|
|
int
|
|
ldapssl_install_routines(ld)
|
|
LDAP * ld
|
|
|
|
#endif
|