2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4 * Copyright 1998-2018 The OpenLDAP Foundation.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted only as authorized by the OpenLDAP
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>.
19 #include <ac/stdlib.h>
21 #include <ac/socket.h>
22 #include <ac/string.h>
29 ldap_build_extended_req(
31 LDAP_CONST char *reqoid,
32 struct berval *reqdata,
40 /* create a message to send */
41 if ( (ber = ldap_alloc_ber_with_options( ld )) == NULL ) {
45 LDAP_NEXT_MSGID( ld, *msgidp );
46 if ( reqdata != NULL ) {
47 rc = ber_printf( ber, "{it{tstON}", /* '}' */
48 *msgidp, LDAP_REQ_EXTENDED,
49 LDAP_TAG_EXOP_REQ_OID, reqoid,
50 LDAP_TAG_EXOP_REQ_VALUE, reqdata );
53 rc = ber_printf( ber, "{it{tsN}", /* '}' */
54 *msgidp, LDAP_REQ_EXTENDED,
55 LDAP_TAG_EXOP_REQ_OID, reqoid );
59 ld->ld_errno = LDAP_ENCODING_ERROR;
64 /* Put Server Controls */
65 if( ldap_int_put_controls( ld, sctrls, ber ) != LDAP_SUCCESS ) {
70 if ( ber_printf( ber, /*{*/ "N}" ) == -1 ) {
71 ld->ld_errno = LDAP_ENCODING_ERROR;
80 * LDAPv3 Extended Operation Request
81 * ExtendedRequest ::= [APPLICATION 23] SEQUENCE {
82 * requestName [0] LDAPOID,
83 * requestValue [1] OCTET STRING OPTIONAL
86 * LDAPv3 Extended Operation Response
87 * ExtendedResponse ::= [APPLICATION 24] SEQUENCE {
88 * COMPONENTS OF LDAPResult,
89 * responseName [10] LDAPOID OPTIONAL,
90 * response [11] OCTET STRING OPTIONAL
97 ldap_extended_operation(
99 LDAP_CONST char *reqoid,
100 struct berval *reqdata,
101 LDAPControl **sctrls,
102 LDAPControl **cctrls,
108 Debug( LDAP_DEBUG_TRACE, "ldap_extended_operation\n", 0, 0, 0 );
110 assert( ld != NULL );
111 assert( LDAP_VALID( ld ) );
112 assert( reqoid != NULL && *reqoid != '\0' );
113 assert( msgidp != NULL );
115 /* must be version 3 (or greater) */
116 if ( ld->ld_version < LDAP_VERSION3 ) {
117 ld->ld_errno = LDAP_NOT_SUPPORTED;
118 return( ld->ld_errno );
121 ber = ldap_build_extended_req( ld, reqoid, reqdata,
122 sctrls, cctrls, &id );
124 return( ld->ld_errno );
126 /* send the message */
127 *msgidp = ldap_send_initial_request( ld, LDAP_REQ_EXTENDED, NULL, ber, id );
129 return( *msgidp < 0 ? ld->ld_errno : LDAP_SUCCESS );
133 ldap_extended_operation_s(
135 LDAP_CONST char *reqoid,
136 struct berval *reqdata,
137 LDAPControl **sctrls,
138 LDAPControl **cctrls,
140 struct berval **retdatap )
146 Debug( LDAP_DEBUG_TRACE, "ldap_extended_operation_s\n", 0, 0, 0 );
148 assert( ld != NULL );
149 assert( LDAP_VALID( ld ) );
150 assert( reqoid != NULL && *reqoid != '\0' );
152 rc = ldap_extended_operation( ld, reqoid, reqdata,
153 sctrls, cctrls, &msgid );
155 if ( rc != LDAP_SUCCESS ) {
159 if ( ldap_result( ld, msgid, LDAP_MSG_ALL, (struct timeval *) NULL, &res ) == -1 || !res ) {
160 return( ld->ld_errno );
163 if ( retoidp != NULL ) *retoidp = NULL;
164 if ( retdatap != NULL ) *retdatap = NULL;
166 rc = ldap_parse_extended_result( ld, res, retoidp, retdatap, 0 );
168 if( rc != LDAP_SUCCESS ) {
173 return( ldap_result2error( ld, res, 1 ) );
176 /* Parse an extended result */
178 ldap_parse_extended_result (
182 struct berval **retdatap,
189 struct berval *resdata;
193 assert( ld != NULL );
194 assert( LDAP_VALID( ld ) );
195 assert( res != NULL );
197 Debug( LDAP_DEBUG_TRACE, "ldap_parse_extended_result\n", 0, 0, 0 );
199 if( ld->ld_version < LDAP_VERSION3 ) {
200 ld->ld_errno = LDAP_NOT_SUPPORTED;
204 if( res->lm_msgtype != LDAP_RES_EXTENDED ) {
205 ld->ld_errno = LDAP_PARAM_ERROR;
209 if( retoidp != NULL ) *retoidp = NULL;
210 if( retdatap != NULL ) *retdatap = NULL;
212 if ( ld->ld_error ) {
213 LDAP_FREE( ld->ld_error );
217 if ( ld->ld_matched ) {
218 LDAP_FREE( ld->ld_matched );
219 ld->ld_matched = NULL;
222 ber = ber_dup( res->lm_ber );
225 ld->ld_errno = LDAP_NO_MEMORY;
229 rc = ber_scanf( ber, "{eAA" /*}*/, &errcode,
230 &ld->ld_matched, &ld->ld_error );
232 if( rc == LBER_ERROR ) {
233 ld->ld_errno = LDAP_DECODING_ERROR;
241 tag = ber_peek_tag( ber, &len );
243 if( tag == LDAP_TAG_REFERRAL ) {
244 /* skip over referral */
245 if( ber_scanf( ber, "x" ) == LBER_ERROR ) {
246 ld->ld_errno = LDAP_DECODING_ERROR;
251 tag = ber_peek_tag( ber, &len );
254 if( tag == LDAP_TAG_EXOP_RES_OID ) {
255 /* we have a resoid */
256 if( ber_scanf( ber, "a", &resoid ) == LBER_ERROR ) {
257 ld->ld_errno = LDAP_DECODING_ERROR;
262 assert( resoid[ 0 ] != '\0' );
264 tag = ber_peek_tag( ber, &len );
267 if( tag == LDAP_TAG_EXOP_RES_VALUE ) {
268 /* we have a resdata */
269 if( ber_scanf( ber, "O", &resdata ) == LBER_ERROR ) {
270 ld->ld_errno = LDAP_DECODING_ERROR;
272 if( resoid != NULL ) LDAP_FREE( resoid );
279 if( retoidp != NULL ) {
285 if( retdatap != NULL ) {
288 ber_bvfree( resdata );
291 ld->ld_errno = errcode;
301 /* Parse an extended partial */
303 ldap_parse_intermediate (
307 struct berval **retdatap,
308 LDAPControl ***serverctrls,
314 struct berval *resdata;
317 assert( ld != NULL );
318 assert( LDAP_VALID( ld ) );
319 assert( res != NULL );
321 Debug( LDAP_DEBUG_TRACE, "ldap_parse_intermediate\n", 0, 0, 0 );
323 if( ld->ld_version < LDAP_VERSION3 ) {
324 ld->ld_errno = LDAP_NOT_SUPPORTED;
328 if( res->lm_msgtype != LDAP_RES_INTERMEDIATE ) {
329 ld->ld_errno = LDAP_PARAM_ERROR;
333 if( retoidp != NULL ) *retoidp = NULL;
334 if( retdatap != NULL ) *retdatap = NULL;
335 if( serverctrls != NULL ) *serverctrls = NULL;
337 ber = ber_dup( res->lm_ber );
340 ld->ld_errno = LDAP_NO_MEMORY;
344 tag = ber_scanf( ber, "{" /*}*/ );
346 if( tag == LBER_ERROR ) {
347 ld->ld_errno = LDAP_DECODING_ERROR;
355 tag = ber_peek_tag( ber, &len );
358 * NOTE: accept intermediate and extended response tag values
359 * as older versions of slapd(8) incorrectly used extended
361 * Should be removed when 2.2 is moved to Historic.
363 if( tag == LDAP_TAG_IM_RES_OID || tag == LDAP_TAG_EXOP_RES_OID ) {
364 /* we have a resoid */
365 if( ber_scanf( ber, "a", &resoid ) == LBER_ERROR ) {
366 ld->ld_errno = LDAP_DECODING_ERROR;
371 assert( resoid[ 0 ] != '\0' );
373 tag = ber_peek_tag( ber, &len );
376 if( tag == LDAP_TAG_IM_RES_VALUE || tag == LDAP_TAG_EXOP_RES_VALUE ) {
377 /* we have a resdata */
378 if( ber_scanf( ber, "O", &resdata ) == LBER_ERROR ) {
379 ld->ld_errno = LDAP_DECODING_ERROR;
381 if( resoid != NULL ) LDAP_FREE( resoid );
386 if ( serverctrls == NULL ) {
387 ld->ld_errno = LDAP_SUCCESS;
388 goto free_and_return;
391 if ( ber_scanf( ber, /*{*/ "}" ) == LBER_ERROR ) {
392 ld->ld_errno = LDAP_DECODING_ERROR;
393 goto free_and_return;
396 ld->ld_errno = ldap_pvt_get_controls( ber, serverctrls );
401 if( retoidp != NULL ) {
407 if( retdatap != NULL ) {
410 ber_bvfree( resdata );