]> git.sur5r.net Git - openldap/blobdiff - servers/slapd/modify.c
Remove lint
[openldap] / servers / slapd / modify.c
index c5f7ca98f770ca0f1d133024b27fbb20c4a5e3c4..a00e54dc674491d6e5d75ef7ac8027f64274458a 100644 (file)
 #include "slap.h"
 
 
-#ifndef SLAPD_SCHEMA_NOT_COMPAT
-static int add_modified_attrs( Operation *op, Modifications **modlist );
-#endif
-
 int
 do_modify(
     Connection *conn,
-    Operation  *op
-)
+    Operation  *op )
 {
        char            *dn, *ndn = NULL;
        char            *last;
@@ -49,9 +44,15 @@ do_modify(
        Modifications *mods = NULL;
        Backend         *be;
        int rc;
-       char    *text;
+       const char      *text;
+       int manageDSAit;
 
+#ifdef NEW_LOGGING
+       LDAP_LOG(( "operation", LDAP_LEVEL_ENTRY,
+                  "do_modify: enter\n" ));
+#else
        Debug( LDAP_DEBUG_TRACE, "do_modify\n", 0, 0, 0 );
+#endif
 
        /*
         * Parse the modify request.  It looks like this:
@@ -73,13 +74,25 @@ do_modify(
         */
 
        if ( ber_scanf( op->o_ber, "{a" /*}*/, &dn ) == LBER_ERROR ) {
+#ifdef NEW_LOGGING
+               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                          "do_modify: ber_scanf failed\n" ));
+#else
                Debug( LDAP_DEBUG_ANY, "do_modify: ber_scanf failed\n", 0, 0, 0 );
+#endif
+
                send_ldap_disconnect( conn, op,
                        LDAP_PROTOCOL_ERROR, "decoding error" );
                return SLAPD_DISCONNECT;
        }
 
+#ifdef NEW_LOGGING
+       LDAP_LOG(( "operation", LDAP_LEVEL_ARGS,
+                  "do_modify: dn (%s)\n", dn ));
+#else
        Debug( LDAP_DEBUG_ARGS, "do_modify: dn (%s)\n", dn, 0, 0 );
+#endif
+
 
        /* collect modifications & save for later */
 
@@ -104,9 +117,16 @@ do_modify(
                switch( mop ) {
                case LDAP_MOD_ADD:
                        if ( (*modtail)->ml_bvalues == NULL ) {
+#ifdef NEW_LOGGING
+                               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                                          "do_modify: modify/add operation (%ld) requires values\n",
+                                          (long)mop ));
+#else
                                Debug( LDAP_DEBUG_ANY,
                                        "do_modify: modify/add operation (%ld) requires values\n",
                                        (long) mop, 0, 0 );
+#endif
+
                                send_ldap_result( conn, op, LDAP_PROTOCOL_ERROR,
                                        NULL, "modify/add operation requires values",
                                        NULL, NULL );
@@ -121,9 +141,16 @@ do_modify(
                        break;
 
                default: {
+#ifdef NEW_LOGGING
+                               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                                          "do_modify: invalid modify operation (%ld)\n",
+                                          (long)mop ));
+#else
                                Debug( LDAP_DEBUG_ANY,
                                        "do_modify: invalid modify operation (%ld)\n",
                                        (long) mop, 0, 0 );
+#endif
+
                                send_ldap_result( conn, op, LDAP_PROTOCOL_ERROR,
                                        NULL, "unrecognized modify operation", NULL, NULL );
                                rc = LDAP_PROTOCOL_ERROR;
@@ -132,68 +159,100 @@ do_modify(
                }
 
                (*modtail)->ml_op = mop;
-               
-#ifndef SLAPD_SCHEMA_NOT_COMPAT
-               attr_normalize( (*modtail)->ml_type );
-#endif
-
                modtail = &(*modtail)->ml_next;
        }
        *modtail = NULL;
 
        if( (rc = get_ctrls( conn, op, 1 )) != LDAP_SUCCESS ) {
+#ifdef NEW_LOGGING
+               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                          "do_modify: get_ctrls failed\n" ));
+#else
                Debug( LDAP_DEBUG_ANY, "do_modify: get_ctrls failed\n", 0, 0, 0 );
+#endif
+
                goto cleanup;
        }
 
        ndn = ch_strdup( dn );
 
        if(     dn_normalize( ndn ) == NULL ) {
+#ifdef NEW_LOGGING
+               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                          "do_modify:  invalid dn (%s)\n", dn ));
+#else
                Debug( LDAP_DEBUG_ANY, "do_modify: invalid dn (%s)\n", dn, 0, 0 );
+#endif
+
                send_ldap_result( conn, op, rc = LDAP_INVALID_DN_SYNTAX, NULL,
                    "invalid DN", NULL, NULL );
                goto cleanup;
        }
 
+       if( *ndn == '\0' ) {
+#ifdef NEW_LOGGING
+               LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
+                          "do_modify: attempt to modify root DSE.\n" ));
+#else
+               Debug( LDAP_DEBUG_ANY, "do_modify: root dse!\n", 0, 0, 0 );
+#endif
+
+               send_ldap_result( conn, op, rc = LDAP_UNWILLING_TO_PERFORM,
+                       NULL, "modify upon the root DSE not supported", NULL, NULL );
+               goto cleanup;
+       }
+
 #ifdef LDAP_DEBUG
+#ifdef NEW_LOGGING
+       LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
+                  "do_modify: modifications:\n" ));
+#else
        Debug( LDAP_DEBUG_ARGS, "modifications:\n", 0, 0, 0 );
+#endif
+
        for ( tmp = modlist; tmp != NULL; tmp = tmp->ml_next ) {
+#ifdef NEW_LOGGING
+               LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
+                          "\t%s:  %s\n", tmp->ml_op == LDAP_MOD_ADD ?
+                          "add" : (tmp->ml_op == LDAP_MOD_DELETE ?
+                                   "delete" : "replace"), tmp->ml_type ));
+#else
                Debug( LDAP_DEBUG_ARGS, "\t%s: %s\n",
                        tmp->ml_op == LDAP_MOD_ADD
                                ? "add" : (tmp->ml_op == LDAP_MOD_DELETE
                                        ? "delete" : "replace"), tmp->ml_type, 0 );
-       }
 #endif
 
+       }
+#endif
 
        Statslog( LDAP_DEBUG_STATS, "conn=%ld op=%d MOD dn=\"%s\"\n",
            op->o_connid, op->o_opid, dn, 0, 0 );
 
+       manageDSAit = get_manageDSAit( op );
+
        /*
         * We could be serving multiple database backends.  Select the
         * appropriate one, or send a referral to our "referral server"
         * if we don't hold it.
         */
-       if ( (be = select_backend( ndn )) == NULL ) {
+       if ( (be = select_backend( ndn, manageDSAit )) == NULL ) {
                send_ldap_result( conn, op, rc = LDAP_REFERRAL,
                        NULL, NULL, default_referral, NULL );
                goto cleanup;
        }
 
-       /* make sure this backend recongizes critical controls */
-       rc = backend_check_controls( be, conn, op, &text ) ;
-
+       /* check restrictions */
+       rc = backend_check_restrictions( be, conn, op, NULL, &text ) ;
        if( rc != LDAP_SUCCESS ) {
                send_ldap_result( conn, op, rc,
                        NULL, text, NULL, NULL );
                goto cleanup;
        }
 
-       if ( global_readonly || be->be_readonly ) {
-               Debug( LDAP_DEBUG_ANY, "do_modify: database is read-only\n",
-                      0, 0, 0 );
-               send_ldap_result( conn, op, rc = LDAP_UNWILLING_TO_PERFORM,
-                                 NULL, "directory is read-only", NULL, NULL );
+       /* check for referrals */
+       rc = backend_check_referrals( be, conn, op, dn, ndn );
+       if ( rc != LDAP_SUCCESS ) {
                goto cleanup;
        }
 
@@ -208,38 +267,40 @@ do_modify(
         */
        if ( be->be_modify ) {
                /* do the update here */
+               int repl_user = (be->be_update_ndn != NULL &&
+                       strcmp( be->be_update_ndn, op->o_ndn ) == 0);
 #ifndef SLAPD_MULTIMASTER
-               /* we don't have to check for replicator dn
-                * because we accept each modify request
+               /* Multimaster slapd does not have to check for replicator dn
+                * because it accepts each modify request
                 */
-               if ( be->be_update_ndn == NULL ||
-                       strcmp( be->be_update_ndn, op->o_ndn ) == 0 )
+               if ( be->be_update_ndn == NULL || repl_user )
 #endif
                {
                        int update = be->be_update_ndn != NULL;
-#ifdef SLAPD_SCHEMA_NOT_COMPAT
-                       char *text;
-                       rc = slap_modlist2mods( modlist, update, &mods, &text );
+                       const char *text;
+                       char textbuf[SLAP_TEXT_BUFLEN];
+                       size_t textlen = sizeof textbuf;
+
+                       rc = slap_modlist2mods( modlist, update, &mods, &text,
+                               textbuf, textlen );
 
                        if( rc != LDAP_SUCCESS ) {
                                send_ldap_result( conn, op, rc,
                                        NULL, text, NULL, NULL );
                                goto cleanup;
                        }
-#else
-                       mods = modlist;
-                       modlist = NULL;
-#endif
 
                        if ( (be->be_lastmod == ON || (be->be_lastmod == UNDEFINED &&
-                               global_lastmod == ON)) && !update )
+                               global_lastmod == ON)) && !repl_user )
                        {
-#ifdef SLAPD_SCHEMA_NOT_COMPAT
-                               rc = slap_mods_opattrs( op, &mods, &text );
-#else
-                               char *text = "no-user-modification attribute type";
-                               rc = add_modified_attrs( op, &mods );
-#endif
+                               Modifications **modstail;
+                               for( modstail = &mods;
+                                       *modstail != NULL;
+                                       modstail = &(*modstail)->sml_next )
+                               {
+                                       /* empty */
+                               }
+                               rc = slap_mods_opattrs( op, modstail, &text );
 
                                if( rc != LDAP_SUCCESS ) {
                                        send_ldap_result( conn, op, rc,
@@ -251,8 +312,7 @@ do_modify(
 
                        if ( (*be->be_modify)( be, conn, op, dn, ndn, mods ) == 0 
 #ifdef SLAPD_MULTIMASTER
-                               && ( be->be_update_ndn == NULL ||
-                                       strcmp( be->be_update_ndn, op->o_ndn ) != 0 )
+                               && !repl_user
 #endif
                        ) {
                                /* but we log only the ones not from a replicator user */
@@ -269,7 +329,7 @@ do_modify(
                }
        } else {
                send_ldap_result( conn, op, rc = LDAP_UNWILLING_TO_PERFORM,
-                   NULL, "modify function not implemented", NULL, NULL );
+                   NULL, "operation not supported within namingContext", NULL, NULL );
        }
 
 cleanup:
@@ -282,7 +342,6 @@ cleanup:
        return rc;
 }
 
-#ifdef SLAPD_SCHEMA_NOT_COMPAT
 /*
  * convert a raw list of modifications to internal format
  * Do basic attribute type checking and syntax validation.
@@ -291,41 +350,83 @@ int slap_modlist2mods(
        LDAPModList *ml,
        int update,
        Modifications **mods,
-       char **text )
+       const char **text,
+       char *textbuf,
+       size_t textlen )
 {
        int rc;
        Modifications **modtail = mods;
 
        for( ; ml != NULL; ml = ml->ml_next ) {
                Modifications *mod;
-               AttributeDescription *ad;
+               AttributeDescription *ad = NULL;
 
                mod = (Modifications *)
                        ch_calloc( 1, sizeof(Modifications) );
 
-               ad = mod->sml_desc;
+               /* copy the op */
+               mod->sml_op = ml->ml_op;
 
                /* convert to attribute description */
-               rc = slap_str2ad( ml->ml_type, &ad, text );
+               rc = slap_str2ad( ml->ml_type, &mod->sml_desc, text );
 
                if( rc != LDAP_SUCCESS ) {
                        slap_mods_free( mod );
+                       snprintf( textbuf, textlen, "%s: %s",
+                               ml->ml_type, *text );
+                       *text = textbuf;
                        return rc;
                }
 
-               if((ad->ad_type->sat_syntax->ssyn_flags & SLAP_SYNTAX_BINARY)
-                       && !( ad->ad_flags & SLAP_DESC_BINARY ))
+               ad = mod->sml_desc;
+
+               if( slap_syntax_is_binary( ad->ad_type->sat_syntax )
+                       && !slap_ad_is_binary( ad ))
+               {
+                       /* attribute requires binary transfer */
+                       slap_mods_free( mod );
+
+                       snprintf( textbuf, textlen,
+                               "%s: requires ;binary transfer",
+                               ml->ml_type );
+                       *text = textbuf;
+                       return LDAP_UNDEFINED_TYPE;
+               }
+
+               if( !slap_syntax_is_binary( ad->ad_type->sat_syntax )
+                       && slap_ad_is_binary( ad ))
                {
                        /* attribute requires binary transfer */
                        slap_mods_free( mod );
-                       *text = "attribute requires ;binary transfer";
+                       snprintf( textbuf, textlen,
+                               "%s: disallows ;binary transfer",
+                               ml->ml_type );
+                       *text = textbuf;
                        return LDAP_UNDEFINED_TYPE;
                }
 
                if (!update && is_at_no_user_mod( ad->ad_type )) {
                        /* user modification disallowed */
                        slap_mods_free( mod );
-                       *text = "no user modification allowed";
+                       snprintf( textbuf, textlen,
+                               "%s: no user modification allowed",
+                               ml->ml_type );
+                       *text = textbuf;
+                       return LDAP_CONSTRAINT_VIOLATION;
+               }
+
+               if ( is_at_obsolete( ad->ad_type ) &&
+                       ( mod->sml_op == LDAP_MOD_ADD || ml->ml_bvalues != NULL ) )
+               {
+                       /*
+                        * attribute is obsolete,
+                        * only allow replace/delete with no values
+                        */
+                       slap_mods_free( mod );
+                       snprintf( textbuf, textlen,
+                               "%s: attribute is obsolete",
+                               ml->ml_type );
+                       *text = textbuf;
                        return LDAP_CONSTRAINT_VIOLATION;
                }
 
@@ -337,6 +438,17 @@ int slap_modlist2mods(
                        slap_syntax_validate_func *validate =
                                ad->ad_type->sat_syntax->ssyn_validate;
 
+                       if( !validate ) {
+                               slap_mods_free( mod );
+                               *text = "no validator for syntax";
+                               snprintf( textbuf, textlen,
+                                       "%s: no validator for syntax %s",
+                                       ml->ml_type,
+                                       ad->ad_type->sat_syntax->ssyn_oid );
+                               *text = textbuf;
+                               return LDAP_INVALID_SYNTAX;
+                       }
+
                        /*
                         * check that each value is valid per syntax
                         */
@@ -345,7 +457,10 @@ int slap_modlist2mods(
 
                                if( rc != 0 ) {
                                        slap_mods_free( mod );
-                                       *text = "value contains invalid data";
+                                       snprintf( textbuf, textlen,
+                                               "%s: value #%ld invalid per syntax",
+                                               ml->ml_type, (long) nvals );
+                                       *text = textbuf;
                                        return LDAP_INVALID_SYNTAX;
                                }
                        }
@@ -354,12 +469,15 @@ int slap_modlist2mods(
                         * a rough single value check... an additional check is needed
                         * to catch add of single value to existing single valued attribute
                         */
-                       if( ( ml->ml_op == LDAP_MOD_ADD || ml->ml_op == LDAP_MOD_REPLACE )
+                       if( ( mod->sml_op == LDAP_MOD_ADD || mod->sml_op == LDAP_MOD_REPLACE )
                                && nvals > 1 && is_at_single_value( ad->ad_type ))
                        {
                                slap_mods_free( mod );
-                               *text = "multiple values provided";
-                               return LDAP_INVALID_SYNTAX;
+                               snprintf( textbuf, textlen,
+                                       "%s: multiple value provided",
+                                       ml->ml_type );
+                               *text = textbuf;
+                               return LDAP_CONSTRAINT_VIOLATION;
                        }
                }
 
@@ -376,19 +494,20 @@ int slap_modlist2mods(
 int slap_mods_opattrs(
        Operation *op,
        Modifications **modtail,
-       char **text )
+       const char **text )
 {
-       int rc;
        struct berval name, timestamp;
        time_t now = slap_get_time();
        char timebuf[22];
        struct tm *ltm;
        Modifications *mod;
-       AttributeDescription *ad;
 
        int mop = op->o_tag == LDAP_REQ_ADD
                ? LDAP_MOD_ADD : LDAP_MOD_REPLACE;
 
+       assert( modtail != NULL );
+       assert( *modtail == NULL );
+
        ldap_pvt_thread_mutex_lock( &gmtime_mutex );
        ltm = gmtime( &now );
        strftime( timebuf, sizeof(timebuf), "%Y%m%d%H%M%SZ", ltm );
@@ -397,57 +516,27 @@ int slap_mods_opattrs(
        timestamp.bv_len = strlen(timebuf);
 
        if( op->o_dn == NULL || op->o_dn[0] == '\0' ) {
-               name.bv_val = "<anonymous>";
-               name.bv_len = sizeof("<anonymous>")-1;
+               name.bv_val = SLAPD_ANONYMOUS;
+               name.bv_len = sizeof(SLAPD_ANONYMOUS)-1;
        } else {
                name.bv_val = op->o_dn;
                name.bv_len = strlen( op->o_dn );
        }
 
        if( op->o_tag == LDAP_REQ_ADD ) {
-               rc = slap_str2ad( "creatorsName", &ad, text );
-               if( rc == LDAP_SUCCESS ) {
-                       mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
-                       mod->sml_op = mop;
-                       mod->sml_desc = ad;
-                       mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
-                       mod->sml_bvalues[0] = ber_bvdup( &name );
-                       mod->sml_bvalues[1] = NULL;
-
-                       *modtail = mod;
-                       modtail = &mod->sml_next;
-               }
-
-               rc = slap_str2ad( "createTimeStamp", &ad, text );
-               if( rc == LDAP_SUCCESS ) {
-                       mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
-                       mod->sml_op = mop;
-                       mod->sml_desc = ad;
-                       mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
-                       mod->sml_bvalues[0] = ber_bvdup( &timestamp );
-                       mod->sml_bvalues[1] = NULL;
-                       *modtail = mod;
-                       modtail = &mod->sml_next;
-               }
-       }
-
-       rc = slap_str2ad( "modifiersName", &ad, text );
-       if( rc == LDAP_SUCCESS ) {
                mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
                mod->sml_op = mop;
-               mod->sml_desc = ad;
+               mod->sml_desc = ad_dup( slap_schema.si_ad_creatorsName );
                mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
                mod->sml_bvalues[0] = ber_bvdup( &name );
                mod->sml_bvalues[1] = NULL;
+
                *modtail = mod;
                modtail = &mod->sml_next;
-       }
 
-       rc = slap_str2ad( "modifyTimeStamp", &ad, text );
-       if( rc == LDAP_SUCCESS ) {
                mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
                mod->sml_op = mop;
-               mod->sml_desc = ad;
+               mod->sml_desc = ad_dup( slap_schema.si_ad_createTimestamp );
                mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
                mod->sml_bvalues[0] = ber_bvdup( &timestamp );
                mod->sml_bvalues[1] = NULL;
@@ -455,117 +544,24 @@ int slap_mods_opattrs(
                modtail = &mod->sml_next;
        }
 
-       return LDAP_SUCCESS;
-}
-
-#else
-static int
-add_modified_attrs( Operation *op, Modifications **modlist )
-{
-       char            buf[22];
-       struct berval   bv;
-       struct berval   *bvals[2];
-       Modifications           *m;
-       struct tm       *ltm;
-       time_t          currenttime;
-
-       bvals[0] = &bv;
-       bvals[1] = NULL;
-
-       /* remove any attempts by the user to modify these attrs */
-       for ( m = *modlist; m != NULL; m = m->ml_next ) {
-               if ( oc_check_op_no_usermod_attr( m->ml_type ) ) {
-                       return LDAP_CONSTRAINT_VIOLATION;
-               }
-       }
-
-       if ( op->o_dn == NULL || op->o_dn[0] == '\0' ) {
-               bv.bv_val = "<anonymous>";
-               bv.bv_len = sizeof("<anonymous>")-1;
-       } else {
-               bv.bv_val = op->o_dn;
-               bv.bv_len = strlen( bv.bv_val );
-       }
-       m = (Modifications *) ch_calloc( 1, sizeof(Modifications) );
-       m->ml_type = ch_strdup( "modifiersname" );
-       m->ml_op = LDAP_MOD_REPLACE;
-       m->ml_bvalues = (struct berval **) ch_calloc(2, sizeof(struct berval *));
-       m->ml_bvalues[0] = ber_bvdup( &bv );
-       m->ml_next = *modlist;
-       *modlist = m;
-
-       currenttime = slap_get_time();
-       ldap_pvt_thread_mutex_lock( &gmtime_mutex );
-       ltm = gmtime( &currenttime );
-       strftime( buf, sizeof(buf), "%Y%m%d%H%M%SZ", ltm );
-       ldap_pvt_thread_mutex_unlock( &gmtime_mutex );
-
-       bv.bv_val = buf;
-       bv.bv_len = strlen( bv.bv_val );
-       m = (Modifications *) ch_calloc( 1, sizeof(Modifications) );
-       m->ml_type = ch_strdup( "modifytimestamp" );
-       m->ml_op = LDAP_MOD_REPLACE;
-       m->ml_bvalues = (struct berval **) ch_calloc(2, sizeof(struct berval *));
-       m->ml_bvalues[0] = ber_bvdup( &bv );
-       m->ml_next = *modlist;
-       *modlist = m;
+       mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
+       mod->sml_op = mop;
+       mod->sml_desc = ad_dup( slap_schema.si_ad_modifiersName );
+       mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
+       mod->sml_bvalues[0] = ber_bvdup( &name );
+       mod->sml_bvalues[1] = NULL;
+       *modtail = mod;
+       modtail = &mod->sml_next;
+
+       mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ) );
+       mod->sml_op = mop;
+       mod->sml_desc = ad_dup( slap_schema.si_ad_modifyTimestamp );
+       mod->sml_bvalues = (struct berval **) malloc( 2 * sizeof( struct berval * ) );
+       mod->sml_bvalues[0] = ber_bvdup( &timestamp );
+       mod->sml_bvalues[1] = NULL;
+       *modtail = mod;
+       modtail = &mod->sml_next;
 
        return LDAP_SUCCESS;
 }
-#endif
-
-void
-slap_mod_free(
-       Modification    *mod,
-       int                             freeit
-)
-{
-#ifdef SLAPD_SCHEMA_NOT_COMPAT
-       ad_free( mod->sm_desc, 1 );
-#else
-       if (mod->sm_desc) {
-               free( mod->sm_desc );
-       }
-#endif
-
-       if ( mod->sm_bvalues != NULL )
-               ber_bvecfree( mod->sm_bvalues );
-
-       if( freeit )
-               free( mod );
-}
-
-void
-slap_mods_free(
-    Modifications      *ml
-)
-{
-       Modifications *next;
-
-       for ( ; ml != NULL; ml = next ) {
-               next = ml->sml_next;
-
-               slap_mod_free( &ml->sml_mod, 0 );
-               free( ml );
-       }
-}
 
-void
-slap_modlist_free(
-    LDAPModList        *ml
-)
-{
-       LDAPModList *next;
-
-       for ( ; ml != NULL; ml = next ) {
-               next = ml->ml_next;
-
-               if (ml->ml_type)
-                       free( ml->ml_type );
-
-               if ( ml->ml_bvalues != NULL )
-                       ber_bvecfree( ml->ml_bvalues );
-
-               free( ml );
-       }
-}