EXPERIMENTAL ldap_extended_operation() and ldap_parse_extended_result()

include/ldap.h

@@ -548,8 +548,8 @@ ldap_controls_free LDAP_P((
 LDAP_F( int )
 ldap_extended_operation LDAP_P((
 	LDAP			*ld,
-	LDAP_CONST char	*exoid,
-	struct berval	*exdata,
+	LDAP_CONST char	*reqoid,
+	struct berval	*reqdata,
 	LDAPControl		**serverctrls,
 	LDAPControl		**clientctrls,
 	int				*msgidp ));
@@ -557,8 +557,8 @@ ldap_extended_operation LDAP_P((
 LDAP_F( int )
 ldap_extended_operation_s LDAP_P((
 	LDAP			*ld,
-	LDAP_CONST char	*exoid,
-	struct berval	*exdata,
+	LDAP_CONST char	*reqoid,
+	struct berval	*reqdata,
 	LDAPControl		**serverctrls,
 	LDAPControl		**clientctrls,
 	char			**retoidp,

libraries/libldap/extended.c

@@ -33,27 +33,213 @@
 int
 ldap_extended_operation(
 	LDAP			*ld,
-	LDAP_CONST char	*exoid,
-	struct berval	*exdata,
+	LDAP_CONST char	*reqoid,
+	struct berval	*reqdata,
 	LDAPControl		**sctrls,
 	LDAPControl		**cctrls,
 	int				*msgidp )
 {
+	BerElement *ber;
+
 	Debug( LDAP_DEBUG_TRACE, "ldap_extended_operation\n", 0, 0, 0 );
-	return LDAP_NOT_SUPPORTED;
+
+	assert( ld != NULL );
+	assert( LDAP_VALID( ld ) );
+	assert( reqoid != NULL || *reqoid == '\0' );
+	assert( msgidp != NULL );
+
+	/* must be version 3 (or greater) */
+	if ( ld->ld_version == 0 ) {
+		ld->ld_version = LDAP_VERSION3;
+	}
+
+	if ( ld->ld_version < LDAP_VERSION3 ) {
+		ld->ld_errno = LDAP_NOT_SUPPORTED;
+		return( ld->ld_errno );
+	}
+
+	if( reqoid == NULL || *reqoid == '\0' || msgidp == NULL ) {
+		ld->ld_errno = LDAP_PARAM_ERROR;
+		return( ld->ld_errno );
+	}
+
+	/* create a message to send */
+	if ( (ber = ldap_alloc_ber_with_options( ld )) == NULLBER ) {
+		ld->ld_errno = LDAP_NO_MEMORY;
+		return( ld->ld_errno );
+	}
+
+	if ( ber_printf( ber, "{it{tstO}", /* leave '}' for later */
+		++ld->ld_msgid, LDAP_REQ_EXTENDED, LDAP_TAG_EXOP_REQ_OID,
+			reqoid, LDAP_TAG_EXOP_REQ_VALUE, reqdata ) == -1 )
+	{
+		ld->ld_errno = LDAP_ENCODING_ERROR;
+		ber_free( ber, 1 );
+		return( ld->ld_errno );
+	}
+
+	/* Put Server Controls */
+	if( ldap_int_put_controls( ld, sctrls, ber ) != LDAP_SUCCESS ) {
+		ber_free( ber, 1 );
+		return ld->ld_errno;
+	}
+
+	if ( ber_printf( ber, /*{*/ "}" ) == -1 ) {
+		ld->ld_errno = LDAP_ENCODING_ERROR;
+		ber_free( ber, 1 );
+		return( ld->ld_errno );
+	}
+
+	/* send the message */
+	*msgidp = ldap_send_initial_request( ld, LDAP_REQ_EXTENDED, NULL, ber );
+
+	return( *msgidp < 0 ? ld->ld_errno : LDAP_SUCCESS );
 }
 
 int
 ldap_extended_operation_s(
 	LDAP			*ld,
-	LDAP_CONST char	*exoid,
-	struct berval	*exdata,
+	LDAP_CONST char	*reqoid,
+	struct berval	*reqdata,
 	LDAPControl		**sctrls,
 	LDAPControl		**cctrls,
 	char			**retoidp,
 	struct berval	**retdatap )
 {
+    int     rc;
+    int     msgid;
+    LDAPMessage *res;
+
 	Debug( LDAP_DEBUG_TRACE, "ldap_extended_operation_s\n", 0, 0, 0 );
-	return LDAP_NOT_SUPPORTED;
+
+	assert( ld != NULL );
+	assert( LDAP_VALID( ld ) );
+	assert( reqoid != NULL || *reqoid == '\0' );
+	assert( retoidp != NULL || retdatap != NULL );
+
+	if( retoidp == NULL || retdatap == NULL ) {
+		ld->ld_errno = LDAP_PARAM_ERROR;
+		return( ld->ld_errno );
+	}
+
+    rc = ldap_extended_operation( ld, reqoid, reqdata,
+		sctrls, cctrls, &msgid );
+        
+    if ( rc != LDAP_SUCCESS ) {
+        return( rc );
+	}
+ 
+    if ( ldap_result( ld, msgid, 1, (struct timeval *) NULL, &res ) == -1 ) {
+        return( ld->ld_errno );
+	}
+
+	*retoidp = NULL;
+	*retdatap = NULL;
+
+	rc = ldap_parse_extended_result( ld, res, retoidp, retdatap, 0 );
+
+	if( rc != LDAP_SUCCESS ) {
+		ldap_msgfree( res );
+		return rc;
+	}
+
+    return( ldap_result2error( ld, res, 1 ) );
 }
 
+/* Parse an extended result */
+int
+ldap_parse_extended_result (
+	LDAP			*ld,
+	LDAPMessage		*res,
+	char			**retoidp,
+	struct berval	**retdatap,
+	int				freeit )
+{
+	BerElement *ber;
+	int rc;
+	unsigned long tag, len;
+	struct berval *resdata;
+	long errcode;
+	char *resoid;
+
+	assert( ld != NULL );
+	assert( LDAP_VALID( ld ) );
+	assert( res != NULL );
+
+	Debug( LDAP_DEBUG_TRACE, "ldap_parse_extended_result\n", 0, 0, 0 );
+
+	if( ld->ld_version < LDAP_VERSION3 ) {
+		ld->ld_errno = LDAP_NOT_SUPPORTED;
+		return ld->ld_errno;
+	}
+
+	if( retoidp != NULL ) *retoidp = NULL;
+	if( retdatap != NULL ) *retdatap = NULL;
+
+	ber = ber_dup( res->lm_ber );
+
+	if ( ld->ld_error ) {
+		LDAP_FREE( ld->ld_error );
+		ld->ld_error = NULL;
+	}
+
+	if ( ld->ld_matched ) {
+		LDAP_FREE( ld->ld_matched );
+		ld->ld_matched = NULL;
+	}
+
+	rc = ber_scanf( ber, "{iaa", &errcode,
+		&ld->ld_matched, &ld->ld_matched );
+
+	if( rc == LBER_ERROR ) {
+		ld->ld_errno = LDAP_DECODING_ERROR;
+		ber_free( ber, 0 );
+		return ld->ld_errno;
+	}
+
+	resoid = NULL;
+	resdata = NULL;
+
+	tag = ber_peek_tag( ber, &len );
+
+	if( tag == LDAP_TAG_EXOP_RES_OID ) {
+		/* we have a resoid */
+		if( ber_scanf( ber, "a", &resoid ) == LBER_ERROR ) {
+			ld->ld_errno = LDAP_DECODING_ERROR;
+			ber_free( ber, 0 );
+			return ld->ld_errno;
+		}
+
+		tag = ber_peek_tag( ber, &len );
+	}
+
+	if( tag == LDAP_TAG_EXOP_RES_VALUE ) {
+		/* we have a resdata */
+		if( ber_scanf( ber, "O", &resoid ) == LBER_ERROR ) {
+			ld->ld_errno = LDAP_DECODING_ERROR;
+			ber_free( ber, 0 );
+			if( resoid != NULL ) LDAP_FREE( resoid );
+			return ld->ld_errno;
+		}
+	}
+
+	if( retoidp != NULL ) {
+		*retoidp = resoid;
+	} else {
+		LDAP_FREE( resoid );
+	}
+
+	if( retdatap != NULL ) {
+		*retdatap = resdata;
+	} else {
+		ber_bvfree( resdata );
+	}
+
+	ld->ld_errno = errcode;
+
+	if( freeit ) {
+		ldap_msgfree( res );
+	}
+
+	return LDAP_SUCCESS;
+}