1 /* $OpenLDAP: pkg/ldap/libraries/libldap/getvalues.c,v 1.26.2.3 2008/02/11 23:26:41 kurt Exp $ */ 2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>. 3 * 4 * Copyright 1998-2008 The OpenLDAP Foundation. 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted only as authorized by the OpenLDAP 9 * Public License. 10 * 11 * A copy of this license is available in the file LICENSE in the 12 * top-level directory of the distribution or, alternatively, at 13 * <http://www.OpenLDAP.org/license.html>. 14 */ 15 /* Portions Copyright (c) 1990 Regents of the University of Michigan. 16 * All rights reserved. 17 */ 18 19 #include "portable.h" 20 21 #include <stdio.h> 22 23 #include <ac/stdlib.h> 24 25 #include <ac/ctype.h> 26 #include <ac/socket.h> 27 #include <ac/string.h> 28 #include <ac/time.h> 29 30 #include "ldap-int.h" 31 32 char ** 33 ldap_get_values( LDAP *ld, LDAPMessage *entry, LDAP_CONST char *target ) 34 { 35 BerElement ber; 36 char *attr; 37 int found = 0; 38 char **vals; 39 40 assert( ld != NULL ); 41 assert( LDAP_VALID( ld ) ); 42 assert( entry != NULL ); 43 assert( target != NULL ); 44 45 Debug( LDAP_DEBUG_TRACE, "ldap_get_values\n", 0, 0, 0 ); 46 47 ber = *entry->lm_ber; 48 49 /* skip sequence, dn, sequence of, and snag the first attr */ 50 if ( ber_scanf( &ber, "{x{{a" /*}}}*/, &attr ) == LBER_ERROR ) { 51 ld->ld_errno = LDAP_DECODING_ERROR; 52 return( NULL ); 53 } 54 55 if ( strcasecmp( target, attr ) == 0 ) 56 found = 1; 57 58 /* break out on success, return out on error */ 59 while ( ! found ) { 60 LDAP_FREE(attr); 61 attr = NULL; 62 63 if ( ber_scanf( &ber, /*{*/ "x}{a" /*}*/, &attr ) == LBER_ERROR ) { 64 ld->ld_errno = LDAP_DECODING_ERROR; 65 return( NULL ); 66 } 67 68 if ( strcasecmp( target, attr ) == 0 ) 69 break; 70 71 } 72 73 LDAP_FREE(attr); 74 attr = NULL; 75 76 /* 77 * if we get this far, we've found the attribute and are sitting 78 * just before the set of values. 79 */ 80 81 if ( ber_scanf( &ber, "[v]", &vals ) == LBER_ERROR ) { 82 ld->ld_errno = LDAP_DECODING_ERROR; 83 return( NULL ); 84 } 85 86 return( vals ); 87 } 88 89 struct berval ** 90 ldap_get_values_len( LDAP *ld, LDAPMessage *entry, LDAP_CONST char *target ) 91 { 92 BerElement ber; 93 char *attr; 94 int found = 0; 95 struct berval **vals; 96 97 assert( ld != NULL ); 98 assert( LDAP_VALID( ld ) ); 99 assert( entry != NULL ); 100 assert( target != NULL ); 101 102 Debug( LDAP_DEBUG_TRACE, "ldap_get_values_len\n", 0, 0, 0 ); 103 104 ber = *entry->lm_ber; 105 106 /* skip sequence, dn, sequence of, and snag the first attr */ 107 if ( ber_scanf( &ber, "{x{{a" /* }}} */, &attr ) == LBER_ERROR ) { 108 ld->ld_errno = LDAP_DECODING_ERROR; 109 return( NULL ); 110 } 111 112 if ( strcasecmp( target, attr ) == 0 ) 113 found = 1; 114 115 /* break out on success, return out on error */ 116 while ( ! found ) { 117 LDAP_FREE( attr ); 118 attr = NULL; 119 120 if ( ber_scanf( &ber, /*{*/ "x}{a" /*}*/, &attr ) == LBER_ERROR ) { 121 ld->ld_errno = LDAP_DECODING_ERROR; 122 return( NULL ); 123 } 124 125 if ( strcasecmp( target, attr ) == 0 ) 126 break; 127 } 128 129 LDAP_FREE( attr ); 130 attr = NULL; 131 132 /* 133 * if we get this far, we've found the attribute and are sitting 134 * just before the set of values. 135 */ 136 137 if ( ber_scanf( &ber, "[V]", &vals ) == LBER_ERROR ) { 138 ld->ld_errno = LDAP_DECODING_ERROR; 139 return( NULL ); 140 } 141 142 return( vals ); 143 } 144 145 int 146 ldap_count_values( char **vals ) 147 { 148 int i; 149 150 if ( vals == NULL ) 151 return( 0 ); 152 153 for ( i = 0; vals[i] != NULL; i++ ) 154 ; /* NULL */ 155 156 return( i ); 157 } 158 159 int 160 ldap_count_values_len( struct berval **vals ) 161 { 162 return( ldap_count_values( (char **) vals ) ); 163 } 164 165 void 166 ldap_value_free( char **vals ) 167 { 168 LDAP_VFREE( vals ); 169 } 170 171 void 172 ldap_value_free_len( struct berval **vals ) 173 { 174 ber_bvecfree( vals ); 175 } 176 177 char ** 178 ldap_value_dup( char *const *vals ) 179 { 180 char **new; 181 int i; 182 183 if( vals == NULL ) { 184 return NULL; 185 } 186 187 for( i=0; vals[i]; i++ ) { 188 ; /* Count the number of values */ 189 } 190 191 if( i == 0 ) { 192 return NULL; 193 } 194 195 new = LDAP_MALLOC( (i+1)*sizeof(char *) ); /* Alloc array of pointers */ 196 if( new == NULL ) { 197 return NULL; 198 } 199 200 for( i=0; vals[i]; i++ ) { 201 new[i] = LDAP_STRDUP( vals[i] ); /* Dup each value */ 202 if( new[i] == NULL ) { 203 LDAP_VFREE( new ); 204 return NULL; 205 } 206 } 207 new[i] = NULL; 208 209 return new; 210 } 211 212