Backend *be,
Connection *conn,
Operation *op,
- char *base,
- char *nbase,
+ const char *base,
+ const char *nbase,
int scope,
int deref,
int sizelimit,
int timelimit,
Filter *filter,
- char *filterstr,
- char **attrs,
+ const char *filterstr,
+ AttributeName *attrs,
int attrsonly
)
{
int err = 0;
char *matched = NULL, *info = NULL;
PerlBackend *perl_back = (PerlBackend *)be->be_private;
+ AttributeName *an;
Entry *e;
char *buf;
int i;
XPUSHs(sv_2mortal(newSViv( timelimit )));
XPUSHs(sv_2mortal(newSViv( attrsonly )));
- for ( i = 0; attrs != NULL && attrs[i] != NULL; i++ ) {
- XPUSHs(sv_2mortal(newSVpv( attrs[i] , 0)));
+ for ( an = attrs; an; an = an->an_next ) {
+ XPUSHs(sv_2mortal(newSVpv( an->an_name.bv_val , 0)));
}
PUTBACK;