1 /* $NetBSD: getattr.c,v 1.3 2021/08/14 16:14:56 christos Exp $ */
2
3 /* $OpenLDAP$ */
4 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
5 *
6 * Copyright 1998-2021 The OpenLDAP Foundation.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted only as authorized by the OpenLDAP
11 * Public License.
12 *
13 * A copy of this license is available in the file LICENSE in the
14 * top-level directory of the distribution or, alternatively, at
15 * <http://www.OpenLDAP.org/license.html>.
16 */
17 /* Portions Copyright (c) 1990 Regents of the University of Michigan.
18 * All rights reserved.
19 */
20
21 #include <sys/cdefs.h>
22 __RCSID("$NetBSD: getattr.c,v 1.3 2021/08/14 16:14:56 christos Exp $");
23
24 #include "portable.h"
25
26 #include <stdio.h>
27 #include <ac/stdlib.h>
28
29 #include <ac/socket.h>
30 #include <ac/string.h>
31 #include <ac/time.h>
32
33 #include "ldap-int.h"
34
35 char *
ldap_first_attribute(LDAP * ld,LDAPMessage * entry,BerElement ** berout)36 ldap_first_attribute( LDAP *ld, LDAPMessage *entry, BerElement **berout )
37 {
38 int rc;
39 ber_tag_t tag;
40 ber_len_t len = 0;
41 char *attr;
42 BerElement *ber;
43
44 Debug0( LDAP_DEBUG_TRACE, "ldap_first_attribute\n" );
45
46 assert( ld != NULL );
47 assert( LDAP_VALID( ld ) );
48 assert( entry != NULL );
49 assert( berout != NULL );
50
51 *berout = NULL;
52
53 ber = ldap_alloc_ber_with_options( ld );
54 if( ber == NULL ) {
55 return NULL;
56 }
57
58 *ber = *entry->lm_ber;
59
60 /*
61 * Skip past the sequence, dn, sequence of sequence leaving
62 * us at the first attribute.
63 */
64
65 tag = ber_scanf( ber, "{xl{" /*}}*/, &len );
66 if( tag == LBER_ERROR ) {
67 ld->ld_errno = LDAP_DECODING_ERROR;
68 ber_free( ber, 0 );
69 return NULL;
70 }
71
72 /* set the length to avoid overrun */
73 rc = ber_set_option( ber, LBER_OPT_REMAINING_BYTES, &len );
74 if( rc != LBER_OPT_SUCCESS ) {
75 ld->ld_errno = LDAP_LOCAL_ERROR;
76 ber_free( ber, 0 );
77 return NULL;
78 }
79
80 if ( ber_pvt_ber_remaining( ber ) == 0 ) {
81 assert( len == 0 );
82 ber_free( ber, 0 );
83 return NULL;
84 }
85 assert( len != 0 );
86
87 /* snatch the first attribute */
88 tag = ber_scanf( ber, "{ax}", &attr );
89 if( tag == LBER_ERROR ) {
90 ld->ld_errno = LDAP_DECODING_ERROR;
91 ber_free( ber, 0 );
92 return NULL;
93 }
94
95 *berout = ber;
96 return attr;
97 }
98
99 /* ARGSUSED */
100 char *
ldap_next_attribute(LDAP * ld,LDAPMessage * entry,BerElement * ber)101 ldap_next_attribute( LDAP *ld, LDAPMessage *entry, BerElement *ber )
102 {
103 ber_tag_t tag;
104 char *attr;
105
106 Debug0( LDAP_DEBUG_TRACE, "ldap_next_attribute\n" );
107
108 assert( ld != NULL );
109 assert( LDAP_VALID( ld ) );
110 assert( entry != NULL );
111 assert( ber != NULL );
112
113 if ( ber_pvt_ber_remaining( ber ) == 0 ) {
114 return NULL;
115 }
116
117 /* skip sequence, snarf attribute type, skip values */
118 tag = ber_scanf( ber, "{ax}", &attr );
119 if( tag == LBER_ERROR ) {
120 ld->ld_errno = LDAP_DECODING_ERROR;
121 return NULL;
122 }
123
124 return attr;
125 }
126
127 /* Fetch attribute type and optionally fetch values. The type
128 * and values are referenced in-place from the BerElement, they are
129 * not dup'd into malloc'd memory.
130 */
131 /* ARGSUSED */
132 int
ldap_get_attribute_ber(LDAP * ld,LDAPMessage * entry,BerElement * ber,BerValue * attr,BerVarray * vals)133 ldap_get_attribute_ber( LDAP *ld, LDAPMessage *entry, BerElement *ber,
134 BerValue *attr, BerVarray *vals )
135 {
136 ber_tag_t tag;
137 int rc = LDAP_SUCCESS;
138
139 Debug0( LDAP_DEBUG_TRACE, "ldap_get_attribute_ber\n" );
140
141 assert( ld != NULL );
142 assert( LDAP_VALID( ld ) );
143 assert( entry != NULL );
144 assert( ber != NULL );
145 assert( attr != NULL );
146
147 attr->bv_val = NULL;
148 attr->bv_len = 0;
149
150 if ( ber_pvt_ber_remaining( ber ) ) {
151 ber_len_t siz = sizeof( BerValue );
152
153 /* skip sequence, snarf attribute type */
154 tag = ber_scanf( ber, vals ? "{mM}" : "{mx}", attr, vals,
155 &siz, (ber_len_t)0 );
156 if( tag == LBER_ERROR ) {
157 rc = ld->ld_errno = LDAP_DECODING_ERROR;
158 }
159 }
160
161 return rc;
162 }
163