Back to index

openldap  2.4.31
Functions
mods.c File Reference
#include "portable.h"
#include <ac/string.h>
#include "slap.h"
#include "lutil.h"

Go to the source code of this file.

Functions

int modify_add_values (Entry *e, Modification *mod, int permissive, const char **text, char *textbuf, size_t textlen)
int modify_delete_values (Entry *e, Modification *m, int perm, const char **text, char *textbuf, size_t textlen)
int modify_delete_vindex (Entry *e, Modification *mod, int permissive, const char **text, char *textbuf, size_t textlen, int *idx)
int modify_replace_values (Entry *e, Modification *mod, int permissive, const char **text, char *textbuf, size_t textlen)
int modify_increment_values (Entry *e, Modification *mod, int permissive, const char **text, char *textbuf, size_t textlen)
void slap_mod_free (Modification *mod, int freeit)
void slap_mods_free (Modifications *ml, int freevals)

Function Documentation

int modify_add_values ( Entry e,
Modification mod,
int  permissive,
const char **  text,
char *  textbuf,
size_t  textlen 
)

Definition at line 34 of file mods.c.

{
       int           rc;
       const char    *op;
       Attribute     *a;
       Modification  pmod = *mod;

       switch ( mod->sm_op ) {
       case LDAP_MOD_ADD:
              op = "add";
              break;
       case LDAP_MOD_REPLACE:
              op = "replace";
              break;
       default:
              op = "?";
              assert( 0 );
       }

       /* FIXME: Catch old code that doesn't set sm_numvals.
        */
       if ( !BER_BVISNULL( &mod->sm_values[mod->sm_numvals] )) {
              unsigned i;
              for ( i = 0; !BER_BVISNULL( &mod->sm_values[i] ); i++ );
              assert( mod->sm_numvals == i );
       }

       /* check if values to add exist in attribute */
       a = attr_find( e->e_attrs, mod->sm_desc );
       if ( a != NULL ) {
              MatchingRule  *mr;
              struct berval *cvals;
              int           rc;
              unsigned i, p, flags;

              mr = mod->sm_desc->ad_type->sat_equality;
              if( mr == NULL || !mr->smr_match ) {
                     /* do not allow add of additional attribute
                            if no equality rule exists */
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/%s: %s: no equality matching rule",
                            op, mod->sm_desc->ad_cname.bv_val );
                     return LDAP_INAPPROPRIATE_MATCHING;
              }

              if ( permissive ) {
                     i = mod->sm_numvals;
                     pmod.sm_values = (BerVarray)ch_malloc(
                            (i + 1) * sizeof( struct berval ));
                     if ( pmod.sm_nvalues != NULL ) {
                            pmod.sm_nvalues = (BerVarray)ch_malloc(
                                   (i + 1) * sizeof( struct berval ));
                     }
              }

              /* no normalization is done in this routine nor
               * in the matching routines called by this routine. 
               * values are now normalized once on input to the
               * server (whether from LDAP or from the underlying
               * database).
               */
              if ( a->a_desc == slap_schema.si_ad_objectClass ) {
                     /* Needed by ITS#5517 */
                     flags = SLAP_MR_EQUALITY | SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX;

              } else {
                     flags = SLAP_MR_EQUALITY | SLAP_MR_VALUE_OF_ASSERTION_SYNTAX;
              }
              if ( mod->sm_nvalues ) {
                     flags |= SLAP_MR_ASSERTED_VALUE_NORMALIZED_MATCH |
                            SLAP_MR_ATTRIBUTE_VALUE_NORMALIZED_MATCH;
                     cvals = mod->sm_nvalues;
              } else {
                     cvals = mod->sm_values;
              }
              for ( p = i = 0; i < mod->sm_numvals; i++ ) {
                     unsigned      slot;

                     rc = attr_valfind( a, flags, &cvals[i], &slot, NULL );
                     if ( rc == LDAP_SUCCESS ) {
                            if ( !permissive ) {
                                   /* value already exists */
                                   *text = textbuf;
                                   snprintf( textbuf, textlen,
                                          "modify/%s: %s: value #%u already exists",
                                          op, mod->sm_desc->ad_cname.bv_val, i );
                                   return LDAP_TYPE_OR_VALUE_EXISTS;
                            }
                     } else if ( rc != LDAP_NO_SUCH_ATTRIBUTE ) {
                            return rc;
                     }

                     if ( permissive && rc ) {
                            if ( pmod.sm_nvalues ) {
                                   pmod.sm_nvalues[p] = mod->sm_nvalues[i];
                            }
                            pmod.sm_values[p++] = mod->sm_values[i];
                     }
              }

              if ( permissive ) {
                     if ( p == 0 ) {
                            /* all new values match exist */
                            ch_free( pmod.sm_values );
                            if ( pmod.sm_nvalues ) ch_free( pmod.sm_nvalues );
                            return LDAP_SUCCESS;
                     }

                     BER_BVZERO( &pmod.sm_values[p] );
                     if ( pmod.sm_nvalues ) {
                            BER_BVZERO( &pmod.sm_nvalues[p] );
                     }
              }
       }

       /* no - add them */
       if ( mod->sm_desc->ad_type->sat_flags & SLAP_AT_ORDERED_VAL ) {
              rc = ordered_value_add( e, mod->sm_desc, a,
                     pmod.sm_values, pmod.sm_nvalues );
       } else {
              rc = attr_merge( e, mod->sm_desc, pmod.sm_values, pmod.sm_nvalues );
       }

       if ( a != NULL && permissive ) {
              ch_free( pmod.sm_values );
              if ( pmod.sm_nvalues ) ch_free( pmod.sm_nvalues );
       }

       if ( rc != 0 ) {
              /* this should return result of attr_merge */
              *text = textbuf;
              snprintf( textbuf, textlen,
                     "modify/%s: %s: merge error (%d)",
                     op, mod->sm_desc->ad_cname.bv_val, rc );
              return LDAP_OTHER;
       }

       return LDAP_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int modify_delete_values ( Entry e,
Modification m,
int  perm,
const char **  text,
char *  textbuf,
size_t  textlen 
)

Definition at line 182 of file mods.c.

{
       return modify_delete_vindex( e, m, perm, text, textbuf, textlen, NULL );
}

Here is the call graph for this function:

Here is the caller graph for this function:

int modify_delete_vindex ( Entry e,
Modification mod,
int  permissive,
const char **  text,
char *  textbuf,
size_t  textlen,
int idx 
)

Definition at line 193 of file mods.c.

{
       Attribute     *a;
       MatchingRule  *mr = mod->sm_desc->ad_type->sat_equality;
       struct berval *cvals;
       int           *id2 = NULL;
       int           rc = 0;
       unsigned i, j, flags;
       char          dummy = '\0';

       /*
        * If permissive is set, then the non-existence of an 
        * attribute is not treated as an error.
        */

       /* delete the entire attribute */
       if ( mod->sm_values == NULL ) {
              rc = attr_delete( &e->e_attrs, mod->sm_desc );

              if( permissive ) {
                     rc = LDAP_SUCCESS;
              } else if( rc != LDAP_SUCCESS ) {
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/delete: %s: no such attribute",
                            mod->sm_desc->ad_cname.bv_val );
                     rc = LDAP_NO_SUCH_ATTRIBUTE;
              }
              return rc;
       }

       /* FIXME: Catch old code that doesn't set sm_numvals.
        */
       if ( !BER_BVISNULL( &mod->sm_values[mod->sm_numvals] )) {
              for ( i = 0; !BER_BVISNULL( &mod->sm_values[i] ); i++ );
              assert( mod->sm_numvals == i );
       }
       if ( !idx ) {
              id2 = ch_malloc( mod->sm_numvals * sizeof( int ));
              idx = id2;
       }

       if( mr == NULL || !mr->smr_match ) {
              /* disallow specific attributes from being deleted if
                     no equality rule */
              *text = textbuf;
              snprintf( textbuf, textlen,
                     "modify/delete: %s: no equality matching rule",
                     mod->sm_desc->ad_cname.bv_val );
              rc = LDAP_INAPPROPRIATE_MATCHING;
              goto return_result;
       }

       /* delete specific values - find the attribute first */
       if ( (a = attr_find( e->e_attrs, mod->sm_desc )) == NULL ) {
              if( permissive ) {
                     rc = LDAP_SUCCESS;
                     goto return_result;
              }
              *text = textbuf;
              snprintf( textbuf, textlen,
                     "modify/delete: %s: no such attribute",
                     mod->sm_desc->ad_cname.bv_val );
              rc = LDAP_NO_SUCH_ATTRIBUTE;
              goto return_result;
       }

       if ( a->a_desc == slap_schema.si_ad_objectClass ) {
              /* Needed by ITS#5517,ITS#5963 */
              flags = SLAP_MR_EQUALITY | SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX;

       } else {
              flags = SLAP_MR_EQUALITY | SLAP_MR_VALUE_OF_ASSERTION_SYNTAX;
       }
       if ( mod->sm_nvalues ) {
              flags |= SLAP_MR_ASSERTED_VALUE_NORMALIZED_MATCH
                     | SLAP_MR_ATTRIBUTE_VALUE_NORMALIZED_MATCH;
              cvals = mod->sm_nvalues;
       } else {
              cvals = mod->sm_values;
       }

       /* Locate values to delete */
       for ( i = 0; !BER_BVISNULL( &mod->sm_values[i] ); i++ ) {
              unsigned sort;
              rc = attr_valfind( a, flags, &cvals[i], &sort, NULL );
              if ( rc == LDAP_SUCCESS ) {
                     idx[i] = sort;
              } else if ( rc == LDAP_NO_SUCH_ATTRIBUTE ) {
                     if ( permissive ) {
                            idx[i] = -1;
                            continue;
                     }
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/delete: %s: no such value",
                            mod->sm_desc->ad_cname.bv_val );
                     goto return_result;
              } else {
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/delete: %s: matching rule failed",
                            mod->sm_desc->ad_cname.bv_val );
                     goto return_result;
              }
       }

       /* Delete the values */
       for ( i = 0; i < mod->sm_numvals; i++ ) {
              /* Skip permissive values that weren't found */
              if ( idx[i] < 0 )
                     continue;
              /* Skip duplicate delete specs */
              if ( a->a_vals[idx[i]].bv_val == &dummy )
                     continue;
              /* delete value and mark it as gone */
              free( a->a_vals[idx[i]].bv_val );
              a->a_vals[idx[i]].bv_val = &dummy;
              if( a->a_nvals != a->a_vals ) {
                     free( a->a_nvals[idx[i]].bv_val );
                     a->a_nvals[idx[i]].bv_val = &dummy;
              }
              a->a_numvals--;
       }

       /* compact array skipping dummies */
       for ( i = 0, j = 0; !BER_BVISNULL( &a->a_vals[i] ); i++ ) {
              /* skip dummies */
              if( a->a_vals[i].bv_val == &dummy ) {
                     assert( a->a_nvals[i].bv_val == &dummy );
                     continue;
              }
              if ( j != i ) {
                     a->a_vals[ j ] = a->a_vals[ i ];
                     if (a->a_nvals != a->a_vals) {
                            a->a_nvals[ j ] = a->a_nvals[ i ];
                     }
              }
              j++;
       }

       BER_BVZERO( &a->a_vals[j] );
       if (a->a_nvals != a->a_vals) {
              BER_BVZERO( &a->a_nvals[j] );
       }

       /* if no values remain, delete the entire attribute */
       if ( !a->a_numvals ) {
              if ( attr_delete( &e->e_attrs, mod->sm_desc ) ) {
                     /* Can never happen */
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/delete: %s: no such attribute",
                            mod->sm_desc->ad_cname.bv_val );
                     rc = LDAP_NO_SUCH_ATTRIBUTE;
              }
       } else if ( a->a_desc->ad_type->sat_flags & SLAP_AT_ORDERED_VAL ) {
              /* For an ordered attribute, renumber the value indices */
              ordered_value_sort( a, 1 );
       }
return_result:
       if ( id2 )
              ch_free( id2 );
       return rc;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int modify_increment_values ( Entry e,
Modification mod,
int  permissive,
const char **  text,
char *  textbuf,
size_t  textlen 
)

Definition at line 383 of file mods.c.

{
       Attribute *a;

       a = attr_find( e->e_attrs, mod->sm_desc );
       if( a == NULL ) {
              if ( permissive ) {
                     Modification modReplace = *mod;

                     modReplace.sm_op = LDAP_MOD_REPLACE;

                     return modify_add_values(e, &modReplace, permissive, text, textbuf, textlen);
              } else {
                     *text = textbuf;
                     snprintf( textbuf, textlen,
                            "modify/increment: %s: no such attribute",
                            mod->sm_desc->ad_cname.bv_val );
                     return LDAP_NO_SUCH_ATTRIBUTE;
              }
       }

       if ( !strcmp( a->a_desc->ad_type->sat_syntax_oid, SLAPD_INTEGER_SYNTAX )) {
              int i;
              char str[sizeof(long)*3 + 2]; /* overly long */
              long incr;

              if ( lutil_atol( &incr, mod->sm_values[0].bv_val ) != 0 ) {
                     *text = "modify/increment: invalid syntax of increment";
                     return LDAP_INVALID_SYNTAX;
              }

              /* treat zero and errors as a no-op */
              if( incr == 0 ) {
                     return LDAP_SUCCESS;
              }

              for( i = 0; !BER_BVISNULL( &a->a_nvals[i] ); i++ ) {
                     char *tmp;
                     long value;
                     size_t strln;
                     if ( lutil_atol( &value, a->a_nvals[i].bv_val ) != 0 ) {
                            *text = "modify/increment: invalid syntax of original value";
                            return LDAP_INVALID_SYNTAX;
                     }
                     strln = snprintf( str, sizeof(str), "%ld", value+incr );

                     tmp = SLAP_REALLOC( a->a_nvals[i].bv_val, strln+1 );
                     if( tmp == NULL ) {
                            *text = "modify/increment: reallocation error";
                            return LDAP_OTHER;
                     }
                     a->a_nvals[i].bv_val = tmp;
                     a->a_nvals[i].bv_len = strln;

                     AC_MEMCPY( a->a_nvals[i].bv_val, str, strln+1 );
              }

       } else {
              snprintf( textbuf, textlen,
                     "modify/increment: %s: increment not supported for value syntax %s",
                     mod->sm_desc->ad_cname.bv_val,
                     a->a_desc->ad_type->sat_syntax_oid );
              return LDAP_CONSTRAINT_VIOLATION;
       }

       return LDAP_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int modify_replace_values ( Entry e,
Modification mod,
int  permissive,
const char **  text,
char *  textbuf,
size_t  textlen 
)

Definition at line 366 of file mods.c.

{
       (void) attr_delete( &e->e_attrs, mod->sm_desc );

       if ( mod->sm_values ) {
              return modify_add_values( e, mod, permissive, text, textbuf, textlen );
       }

       return LDAP_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void slap_mod_free ( Modification mod,
int  freeit 
)

Definition at line 457 of file mods.c.

{
       if ( mod->sm_values != NULL ) ber_bvarray_free( mod->sm_values );
       mod->sm_values = NULL;

       if ( mod->sm_nvalues != NULL ) ber_bvarray_free( mod->sm_nvalues );
       mod->sm_nvalues = NULL;

       if( freeit ) free( mod );
}

Here is the call graph for this function:

Here is the caller graph for this function:

void slap_mods_free ( Modifications ml,
int  freevals 
)

Definition at line 471 of file mods.c.

{
       Modifications *next;

       for ( ; ml != NULL; ml = next ) {
              next = ml->sml_next;

              if ( freevals )
                     slap_mod_free( &ml->sml_mod, 0 );
              free( ml );
       }
}

Here is the call graph for this function:

Here is the caller graph for this function: