/****************************************************************************** * $Id: API.xs,v 1.18 2000/10/05 19:47:27 leif%netscape.com Exp $ * * 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 Corp. and Clayton Donley. Portions * created by Netscape are Copyright (C) Netscape Communications * Corp., portions created by Clayton Donley are Copyright (C) Clayton * Donley. All Rights Reserved. * * Contributor(s): * * 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 #include /* SSL is only available in Binary */ #ifdef USE_SSL # include #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