mirror of
https://git.openldap.org/openldap/openldap.git
synced 2024-12-15 03:01:09 +08:00
403f4479bc
Replace old Id as needed (back-tcl). Leave updating of contribWare to contributors (for now).
170 lines
3.1 KiB
C
170 lines
3.1 KiB
C
/* $OpenLDAP$ */
|
|
/*
|
|
* Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
|
|
* COPYING RESTRICTIONS APPLY, see COPYRIGHT file
|
|
*/
|
|
/* Portions
|
|
* Copyright (c) 1990 Regents of the University of Michigan.
|
|
* All rights reserved.
|
|
*
|
|
* getvalues.c
|
|
*/
|
|
|
|
#include "portable.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <ac/stdlib.h>
|
|
|
|
#include <ac/ctype.h>
|
|
#include <ac/socket.h>
|
|
#include <ac/string.h>
|
|
#include <ac/time.h>
|
|
|
|
#include "ldap-int.h"
|
|
|
|
char **
|
|
ldap_get_values( LDAP *ld, LDAPMessage *entry, LDAP_CONST char *target )
|
|
{
|
|
BerElement ber;
|
|
char *attr;
|
|
int found = 0;
|
|
char **vals;
|
|
|
|
assert( ld != NULL );
|
|
assert( LDAP_VALID( ld ) );
|
|
assert( entry != NULL );
|
|
assert( target != NULL );
|
|
|
|
Debug( LDAP_DEBUG_TRACE, "ldap_get_values\n", 0, 0, 0 );
|
|
|
|
ber = *entry->lm_ber;
|
|
|
|
/* skip sequence, dn, sequence of, and snag the first attr */
|
|
if ( ber_scanf( &ber, "{x{{a" /*}}}*/, &attr ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
if ( strcasecmp( target, attr ) == 0 )
|
|
found = 1;
|
|
|
|
/* break out on success, return out on error */
|
|
while ( ! found ) {
|
|
LDAP_FREE(attr);
|
|
attr = NULL;
|
|
|
|
if ( ber_scanf( &ber, /*{*/ "x}{a" /*}*/, &attr ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
if ( strcasecmp( target, attr ) == 0 )
|
|
break;
|
|
|
|
}
|
|
|
|
LDAP_FREE(attr);
|
|
attr = NULL;
|
|
|
|
/*
|
|
* if we get this far, we've found the attribute and are sitting
|
|
* just before the set of values.
|
|
*/
|
|
|
|
if ( ber_scanf( &ber, "[v]", &vals ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
return( vals );
|
|
}
|
|
|
|
struct berval **
|
|
ldap_get_values_len( LDAP *ld, LDAPMessage *entry, LDAP_CONST char *target )
|
|
{
|
|
BerElement ber;
|
|
char *attr;
|
|
int found = 0;
|
|
struct berval **vals;
|
|
|
|
assert( ld != NULL );
|
|
assert( LDAP_VALID( ld ) );
|
|
assert( entry != NULL );
|
|
assert( target != NULL );
|
|
|
|
Debug( LDAP_DEBUG_TRACE, "ldap_get_values_len\n", 0, 0, 0 );
|
|
|
|
ber = *entry->lm_ber;
|
|
|
|
/* skip sequence, dn, sequence of, and snag the first attr */
|
|
if ( ber_scanf( &ber, "{x{{a" /* }}} */, &attr ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
if ( strcasecmp( target, attr ) == 0 )
|
|
found = 1;
|
|
|
|
/* break out on success, return out on error */
|
|
while ( ! found ) {
|
|
LDAP_FREE( attr );
|
|
attr = NULL;
|
|
|
|
if ( ber_scanf( &ber, /*{*/ "x}{a" /*}*/, &attr ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
if ( strcasecmp( target, attr ) == 0 )
|
|
break;
|
|
}
|
|
|
|
LDAP_FREE( attr );
|
|
attr = NULL;
|
|
|
|
/*
|
|
* if we get this far, we've found the attribute and are sitting
|
|
* just before the set of values.
|
|
*/
|
|
|
|
if ( ber_scanf( &ber, "[V]", &vals ) == LBER_ERROR ) {
|
|
ld->ld_errno = LDAP_DECODING_ERROR;
|
|
return( NULL );
|
|
}
|
|
|
|
return( vals );
|
|
}
|
|
|
|
int
|
|
ldap_count_values( char **vals )
|
|
{
|
|
int i;
|
|
|
|
if ( vals == NULL )
|
|
return( 0 );
|
|
|
|
for ( i = 0; vals[i] != NULL; i++ )
|
|
; /* NULL */
|
|
|
|
return( i );
|
|
}
|
|
|
|
int
|
|
ldap_count_values_len( struct berval **vals )
|
|
{
|
|
return( ldap_count_values( (char **) vals ) );
|
|
}
|
|
|
|
void
|
|
ldap_value_free( char **vals )
|
|
{
|
|
LDAP_VFREE( vals );
|
|
}
|
|
|
|
void
|
|
ldap_value_free_len( struct berval **vals )
|
|
{
|
|
ber_bvecfree( vals );
|
|
}
|