]> git.sur5r.net Git - openldap/blob - servers/slapd/back-bdb/modify.c
edaf3720b56155e346c09874d33a4fcd711cbb41
[openldap] / servers / slapd / back-bdb / modify.c
1 /* modify.c - bdb backend modify routine */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2000-2005 The OpenLDAP Foundation.
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted only as authorized by the OpenLDAP
10  * Public License.
11  *
12  * A copy of this license is available in the file LICENSE in the
13  * top-level directory of the distribution or, alternatively, at
14  * <http://www.OpenLDAP.org/license.html>.
15  */
16
17 #include "portable.h"
18
19 #include <stdio.h>
20 #include <ac/string.h>
21 #include <ac/time.h>
22
23 #include "back-bdb.h"
24
25 static struct berval scbva[] = {
26         BER_BVC("glue"),
27         BER_BVNULL
28 };
29
30 int bdb_modify_internal(
31         Operation *op,
32         DB_TXN *tid,
33         Modifications *modlist,
34         Entry *e,
35         const char **text,
36         char *textbuf,
37         size_t textlen )
38 {
39         int rc, err;
40         Modification    *mod;
41         Modifications   *ml;
42         Attribute       *save_attrs;
43         Attribute       *ap;
44         int                     glue_attr_delete = 0;
45         int     manage=0;
46
47         Debug( LDAP_DEBUG_TRACE, "bdb_modify_internal: 0x%08lx: %s\n",
48                 e->e_id, e->e_dn, 0);
49
50         if( get_manageDIT(op) ) {
51                 AttributeDescription *entry = slap_schema.si_ad_entry;
52                 if( !access_allowed( op, e, entry, NULL, ACL_MANAGE, NULL )) {
53                         *text = "not authorized to manage entry";
54                         return LDAP_INSUFFICIENT_ACCESS;
55                 }
56
57                 manage = 1;
58         }
59
60         if ( !acl_check_modlist( op, e, modlist )) {
61                 return LDAP_INSUFFICIENT_ACCESS;
62         }
63
64         /* save_attrs will be disposed of by bdb_cache_modify */
65         save_attrs = e->e_attrs;
66         e->e_attrs = attrs_dup( e->e_attrs );
67
68         for ( ml = modlist; ml != NULL; ml = ml->sml_next ) {
69                 int match;
70                 mod = &ml->sml_mod;
71                 switch( mod->sm_op ) {
72                 case LDAP_MOD_ADD:
73                 case LDAP_MOD_REPLACE:
74                         if ( mod->sm_desc == slap_schema.si_ad_structuralObjectClass ) {
75                                 value_match( &match, slap_schema.si_ad_structuralObjectClass,
76                                         slap_schema.si_ad_structuralObjectClass->
77                                                 ad_type->sat_equality,
78                                         SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX,
79                                         &mod->sm_values[0], &scbva[0], text );
80                                 if ( !match ) glue_attr_delete = 1;
81                         }
82                 }
83                 if ( glue_attr_delete )
84                         break;
85         }
86
87         if ( glue_attr_delete ) {
88                 Attribute       **app = &e->e_attrs;
89                 while ( *app != NULL ) {
90                         if ( !is_at_operational( (*app)->a_desc->ad_type )) {
91                                 Attribute *save = *app;
92                                 *app = (*app)->a_next;
93                                 attr_free( save );
94                                 continue;
95                         }
96                         app = &(*app)->a_next;
97                 }
98         }
99
100         for ( ml = modlist; ml != NULL; ml = ml->sml_next ) {
101                 mod = &ml->sml_mod;
102
103                 switch ( mod->sm_op ) {
104                 case LDAP_MOD_ADD:
105                         Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: add\n", 0, 0, 0);
106                         err = modify_add_values( e, mod, get_permissiveModify(op),
107                                 text, textbuf, textlen );
108                         if( err != LDAP_SUCCESS ) {
109                                 Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: %d %s\n",
110                                         err, *text, 0);
111                         }
112                         break;
113
114                 case LDAP_MOD_DELETE:
115                         if ( glue_attr_delete ) {
116                                 err = LDAP_SUCCESS;
117                                 break;
118                         }
119
120                         Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: delete\n", 0, 0, 0);
121                         err = modify_delete_values( e, mod, get_permissiveModify(op),
122                                 text, textbuf, textlen );
123                         assert( err != LDAP_TYPE_OR_VALUE_EXISTS );
124                         if( err != LDAP_SUCCESS ) {
125                                 Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: %d %s\n",
126                                         err, *text, 0);
127                         }
128                         break;
129
130                 case LDAP_MOD_REPLACE:
131                         Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: replace\n", 0, 0, 0);
132                         err = modify_replace_values( e, mod, get_permissiveModify(op),
133                                 text, textbuf, textlen );
134                         if( err != LDAP_SUCCESS ) {
135                                 Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: %d %s\n",
136                                         err, *text, 0);
137                         }
138                         break;
139
140                 case LDAP_MOD_INCREMENT:
141                         Debug(LDAP_DEBUG_ARGS,
142                                 "bdb_modify_internal: increment\n", 0, 0, 0);
143                         err = modify_increment_values( e, mod, get_permissiveModify(op),
144                                 text, textbuf, textlen );
145                         if( err != LDAP_SUCCESS ) {
146                                 Debug(LDAP_DEBUG_ARGS,
147                                         "bdb_modify_internal: %d %s\n",
148                                         err, *text, 0);
149                         }
150                         break;
151
152                 case SLAP_MOD_SOFTADD:
153                         Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: softadd\n", 0, 0, 0);
154                         /* Avoid problems in index_add_mods()
155                          * We need to add index if necessary.
156                          */
157                         mod->sm_op = LDAP_MOD_ADD;
158
159                         err = modify_add_values( e, mod, get_permissiveModify(op),
160                                 text, textbuf, textlen );
161
162                         mod->sm_op = SLAP_MOD_SOFTADD;
163
164                         if ( err == LDAP_TYPE_OR_VALUE_EXISTS ) {
165                                 err = LDAP_SUCCESS;
166                         }
167
168                         if( err != LDAP_SUCCESS ) {
169                                 Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: %d %s\n",
170                                         err, *text, 0);
171                         }
172                         break;
173
174                 default:
175                         Debug(LDAP_DEBUG_ANY, "bdb_modify_internal: invalid op %d\n",
176                                 mod->sm_op, 0, 0);
177                         *text = "Invalid modify operation";
178                         err = LDAP_OTHER;
179                         Debug(LDAP_DEBUG_ARGS, "bdb_modify_internal: %d %s\n",
180                                 err, *text, 0);
181                 }
182
183                 if ( err != LDAP_SUCCESS ) {
184                         attrs_free( e->e_attrs );
185                         e->e_attrs = save_attrs;
186                         /* unlock entry, delete from cache */
187                         return err; 
188                 }
189
190                 /* If objectClass was modified, reset the flags */
191                 if ( mod->sm_desc == slap_schema.si_ad_objectClass ) {
192                         e->e_ocflags = 0;
193                 }
194
195                 if ( glue_attr_delete ) e->e_ocflags = 0;
196
197                 /* check if modified attribute was indexed
198                  * but not in case of NOOP... */
199                 err = bdb_index_is_indexed( op->o_bd, mod->sm_desc );
200                 if ( err == LDAP_SUCCESS && !op->o_noop ) {
201                         ap = attr_find( save_attrs, mod->sm_desc );
202                         if ( ap ) ap->a_flags |= SLAP_ATTR_IXDEL;
203
204                         ap = attr_find( e->e_attrs, mod->sm_desc );
205                         if ( ap ) ap->a_flags |= SLAP_ATTR_IXADD;
206                 }
207         }
208
209         /* check that the entry still obeys the schema */
210         rc = entry_schema_check( op->o_bd, e, save_attrs, manage,
211                 text, textbuf, textlen );
212         if ( rc != LDAP_SUCCESS || op->o_noop ) {
213                 attrs_free( e->e_attrs );
214                 /* clear the indexing flags */
215                 for ( ap = save_attrs; ap != NULL; ap = ap->a_next ) {
216                         ap->a_flags = 0;
217                 }
218                 e->e_attrs = save_attrs;
219
220                 if ( rc != LDAP_SUCCESS ) {
221                         Debug( LDAP_DEBUG_ANY,
222                                 "entry failed schema check: %s\n",
223                                 *text, 0, 0 );
224                 }
225
226                 /* if NOOP then silently revert to saved attrs */
227                 return rc;
228         }
229
230         /* update the indices of the modified attributes */
231
232         /* start with deleting the old index entries */
233         for ( ap = save_attrs; ap != NULL; ap = ap->a_next ) {
234                 if ( ap->a_flags & SLAP_ATTR_IXDEL ) {
235                         rc = bdb_index_values( op, tid, ap->a_desc,
236                                 ap->a_nvals,
237                                 e->e_id, SLAP_INDEX_DELETE_OP );
238                         if ( rc != LDAP_SUCCESS ) {
239                                 attrs_free( e->e_attrs );
240                                 e->e_attrs = save_attrs;
241                                 Debug( LDAP_DEBUG_ANY,
242                                        "Attribute index delete failure",
243                                        0, 0, 0 );
244                                 return rc;
245                         }
246                         ap->a_flags &= ~SLAP_ATTR_IXDEL;
247                 }
248         }
249
250         /* add the new index entries */
251         for ( ap = e->e_attrs; ap != NULL; ap = ap->a_next ) {
252                 if (ap->a_flags & SLAP_ATTR_IXADD) {
253                         rc = bdb_index_values( op, tid, ap->a_desc,
254                                 ap->a_nvals,
255                                 e->e_id, SLAP_INDEX_ADD_OP );
256                         if ( rc != LDAP_SUCCESS ) {
257                                 attrs_free( e->e_attrs );
258                                 e->e_attrs = save_attrs;
259                                 Debug( LDAP_DEBUG_ANY,
260                                        "Attribute index add failure",
261                                        0, 0, 0 );
262                                 return rc;
263                         }
264                         ap->a_flags &= ~SLAP_ATTR_IXADD;
265                 }
266         }
267
268         return rc;
269 }
270
271
272 int
273 bdb_modify( Operation *op, SlapReply *rs )
274 {
275         struct bdb_info *bdb = (struct bdb_info *) op->o_bd->be_private;
276         Entry           *e = NULL;
277         EntryInfo       *ei = NULL;
278         int             manageDSAit = get_manageDSAit( op );
279         char textbuf[SLAP_TEXT_BUFLEN];
280         size_t textlen = sizeof textbuf;
281         DB_TXN  *ltid = NULL, *lt2;
282         struct bdb_op_info opinfo = {0};
283         Entry           dummy = {0};
284         int                     fakeroot = 0;
285
286         u_int32_t       locker = 0;
287         DB_LOCK         lock;
288
289         int             num_retries = 0;
290
291         LDAPControl **preread_ctrl = NULL;
292         LDAPControl **postread_ctrl = NULL;
293         LDAPControl *ctrls[SLAP_MAX_RESPONSE_CONTROLS];
294         int num_ctrls = 0;
295
296         int rc;
297
298         Debug( LDAP_DEBUG_ARGS, LDAP_XSTRING(bdb_modify) ": %s\n",
299                 op->o_req_dn.bv_val, 0, 0 );
300
301         ctrls[num_ctrls] = NULL;
302
303         if( 0 ) {
304 retry:  /* transaction retry */
305                 if ( dummy.e_attrs ) {
306                         attrs_free( dummy.e_attrs );
307                         dummy.e_attrs = NULL;
308                 }
309                 if( e != NULL ) {
310                         bdb_unlocked_cache_return_entry_w(&bdb->bi_cache, e);
311                         e = NULL;
312                 }
313                 Debug(LDAP_DEBUG_TRACE,
314                         LDAP_XSTRING(bdb_modify) ": retrying...\n", 0, 0, 0);
315
316                 rs->sr_err = TXN_ABORT( ltid );
317                 ltid = NULL;
318                 op->o_private = NULL;
319                 op->o_do_not_cache = opinfo.boi_acl_cache;
320                 if( rs->sr_err != 0 ) {
321                         rs->sr_err = LDAP_OTHER;
322                         rs->sr_text = "internal error";
323                         goto return_results;
324                 }
325                 if ( op->o_abandon ) {
326                         rs->sr_err = SLAPD_ABANDON;
327                         goto return_results;
328                 }
329                 ldap_pvt_thread_yield();
330                 bdb_trans_backoff( ++num_retries );
331         }
332
333         /* begin transaction */
334         rs->sr_err = TXN_BEGIN( bdb->bi_dbenv, NULL, &ltid, 
335                 bdb->bi_db_opflags );
336         rs->sr_text = NULL;
337         if( rs->sr_err != 0 ) {
338                 Debug( LDAP_DEBUG_TRACE,
339                         LDAP_XSTRING(bdb_modify) ": txn_begin failed: "
340                         "%s (%d)\n", db_strerror(rs->sr_err), rs->sr_err, 0 );
341                 rs->sr_err = LDAP_OTHER;
342                 rs->sr_text = "internal error";
343                 goto return_results;
344         }
345
346         locker = TXN_ID ( ltid );
347
348         opinfo.boi_bdb = op->o_bd;
349         opinfo.boi_txn = ltid;
350         opinfo.boi_locker = locker;
351         opinfo.boi_err = 0;
352         opinfo.boi_acl_cache = op->o_do_not_cache;
353         op->o_private = &opinfo;
354
355         /* get entry or ancestor */
356         rs->sr_err = bdb_dn2entry( op, ltid, &op->o_req_ndn, &ei, 1,
357                 locker, &lock );
358
359         e = ei->bei_e;
360
361         if ( rs->sr_err != 0 ) {
362                 Debug( LDAP_DEBUG_TRACE,
363                         LDAP_XSTRING(bdb_modify) ": dn2entry failed (%d)\n",
364                         rs->sr_err, 0, 0 );
365                 switch( rs->sr_err ) {
366                 case DB_LOCK_DEADLOCK:
367                 case DB_LOCK_NOTGRANTED:
368                         goto retry;
369                 case DB_NOTFOUND:
370                         if ( BER_BVISEMPTY( &op->o_req_ndn )) {
371                                 struct berval gluebv = BER_BVC("glue");
372                                 e = ch_calloc( 1, sizeof(Entry));
373                                 e->e_name.bv_val = ch_strdup( "" );
374                                 ber_dupbv( &e->e_nname, &e->e_name );
375                                 attr_merge_one( e, slap_schema.si_ad_objectClass,
376                                         &gluebv, NULL );
377                                 attr_merge_one( e, slap_schema.si_ad_structuralObjectClass,
378                                         &gluebv, NULL );
379                                 e->e_private = ei;
380                                 fakeroot = 1;
381                                 rs->sr_err = 0;
382                         }
383                         break;
384                 case LDAP_BUSY:
385                         rs->sr_text = "ldap server busy";
386                         goto return_results;
387                 default:
388                         rs->sr_err = LDAP_OTHER;
389                         rs->sr_text = "internal error";
390                         goto return_results;
391                 }
392         }
393
394         /* acquire and lock entry */
395         /* FIXME: dn2entry() should return non-glue entry */
396         if (( rs->sr_err == DB_NOTFOUND ) ||
397                 ( !manageDSAit && e && is_entry_glue( e )))
398         {
399                 if ( e != NULL ) {
400                         rs->sr_matched = ch_strdup( e->e_dn );
401                         rs->sr_ref = is_entry_referral( e )
402                                 ? get_entry_referrals( op, e )
403                                 : NULL;
404                         bdb_unlocked_cache_return_entry_r (&bdb->bi_cache, e);
405                         e = NULL;
406
407                 } else {
408                         rs->sr_ref = referral_rewrite( default_referral, NULL,
409                                 &op->o_req_dn, LDAP_SCOPE_DEFAULT );
410                 }
411
412                 rs->sr_err = LDAP_REFERRAL;
413                 send_ldap_result( op, rs );
414
415                 if ( rs->sr_ref != default_referral ) {
416                         ber_bvarray_free( rs->sr_ref );
417                 }
418                 free( (char *)rs->sr_matched );
419                 rs->sr_ref = NULL;
420                 rs->sr_matched = NULL;
421
422                 goto done;
423         }
424
425         if ( !manageDSAit && is_entry_referral( e ) ) {
426                 /* entry is a referral, don't allow modify */
427                 rs->sr_ref = get_entry_referrals( op, e );
428
429                 Debug( LDAP_DEBUG_TRACE,
430                         LDAP_XSTRING(bdb_modify) ": entry is referral\n",
431                         0, 0, 0 );
432
433                 rs->sr_err = LDAP_REFERRAL;
434                 rs->sr_matched = e->e_name.bv_val;
435                 send_ldap_result( op, rs );
436
437                 ber_bvarray_free( rs->sr_ref );
438                 rs->sr_ref = NULL;
439                 rs->sr_matched = NULL;
440                 goto done;
441         }
442
443         if ( get_assert( op ) &&
444                 ( test_filter( op, e, get_assertion( op )) != LDAP_COMPARE_TRUE ))
445         {
446                 rs->sr_err = LDAP_ASSERTION_FAILED;
447                 goto return_results;
448         }
449
450         if( op->o_preread ) {
451                 if( preread_ctrl == NULL ) {
452                         preread_ctrl = &ctrls[num_ctrls++];
453                         ctrls[num_ctrls] = NULL;
454                 }
455                 if ( slap_read_controls( op, rs, e,
456                         &slap_pre_read_bv, preread_ctrl ) )
457                 {
458                         Debug( LDAP_DEBUG_TRACE,
459                                 "<=- " LDAP_XSTRING(bdb_modify) ": pre-read failed!\n",
460                                 0, 0, 0 );
461                         goto return_results;
462                 }
463         }
464
465         /* nested transaction */
466         rs->sr_err = TXN_BEGIN( bdb->bi_dbenv, ltid, &lt2, bdb->bi_db_opflags );
467         rs->sr_text = NULL;
468         if( rs->sr_err != 0 ) {
469                 Debug( LDAP_DEBUG_TRACE,
470                         LDAP_XSTRING(bdb_modify) ": txn_begin(2) failed: " "%s (%d)\n",
471                         db_strerror(rs->sr_err), rs->sr_err, 0 );
472                 rs->sr_err = LDAP_OTHER;
473                 rs->sr_text = "internal error";
474                 goto return_results;
475         }
476         /* Modify the entry */
477         dummy = *e;
478         rs->sr_err = bdb_modify_internal( op, lt2, op->oq_modify.rs_modlist,
479                 &dummy, &rs->sr_text, textbuf, textlen );
480
481         if( rs->sr_err != LDAP_SUCCESS ) {
482                 Debug( LDAP_DEBUG_TRACE,
483                         LDAP_XSTRING(bdb_modify) ": modify failed (%d)\n",
484                         rs->sr_err, 0, 0 );
485                 if ( (rs->sr_err == LDAP_INSUFFICIENT_ACCESS) && opinfo.boi_err ) {
486                         rs->sr_err = opinfo.boi_err;
487                 }
488                 /* Only free attrs if they were dup'd.  */
489                 if ( dummy.e_attrs == e->e_attrs ) dummy.e_attrs = NULL;
490                 switch( rs->sr_err ) {
491                 case DB_LOCK_DEADLOCK:
492                 case DB_LOCK_NOTGRANTED:
493                         goto retry;
494                 }
495                 goto return_results;
496         }
497
498         /* change the entry itself */
499         rs->sr_err = bdb_id2entry_update( op->o_bd, lt2, &dummy );
500         if ( rs->sr_err != 0 ) {
501                 Debug( LDAP_DEBUG_TRACE,
502                         LDAP_XSTRING(bdb_modify) ": id2entry update failed " "(%d)\n",
503                         rs->sr_err, 0, 0 );
504                 switch( rs->sr_err ) {
505                 case DB_LOCK_DEADLOCK:
506                 case DB_LOCK_NOTGRANTED:
507                         goto retry;
508                 }
509                 rs->sr_text = "entry update failed";
510                 goto return_results;
511         }
512
513         if ( TXN_COMMIT( lt2, 0 ) != 0 ) {
514                 rs->sr_err = LDAP_OTHER;
515                 rs->sr_text = "txn_commit(2) failed";
516                 goto return_results;
517         }
518
519         if( op->o_postread ) {
520                 if( postread_ctrl == NULL ) {
521                         postread_ctrl = &ctrls[num_ctrls++];
522                         ctrls[num_ctrls] = NULL;
523                 }
524                 if( slap_read_controls( op, rs, &dummy,
525                         &slap_post_read_bv, postread_ctrl ) )
526                 {
527                         Debug( LDAP_DEBUG_TRACE,
528                                 "<=- " LDAP_XSTRING(bdb_modify)
529                                 ": post-read failed!\n", 0, 0, 0 );
530                         goto return_results;
531                 }
532         }
533
534         if( op->o_noop ) {
535                 if ( ( rs->sr_err = TXN_ABORT( ltid ) ) != 0 ) {
536                         rs->sr_text = "txn_abort (no-op) failed";
537                 } else {
538                         rs->sr_err = LDAP_NO_OPERATION;
539                         goto return_results;
540                 }
541         } else {
542                 /* may have changed in bdb_modify_internal() */
543                 e->e_ocflags = dummy.e_ocflags;
544                 if ( fakeroot ) {
545                         e->e_private = NULL;
546                         entry_free( e );
547                 } else {
548                         rc = bdb_cache_modify( e, dummy.e_attrs, bdb->bi_dbenv, locker, &lock );
549                         switch( rc ) {
550                         case DB_LOCK_DEADLOCK:
551                         case DB_LOCK_NOTGRANTED:
552                                 goto retry;
553                         }
554                 }
555                 dummy.e_attrs = NULL;
556
557                 rs->sr_err = TXN_COMMIT( ltid, 0 );
558         }
559         ltid = NULL;
560         op->o_private = NULL;
561
562         if( rs->sr_err != 0 ) {
563                 Debug( LDAP_DEBUG_TRACE,
564                         LDAP_XSTRING(bdb_modify) ": txn_%s failed: %s (%d)\n",
565                         op->o_noop ? "abort (no-op)" : "commit",
566                         db_strerror(rs->sr_err), rs->sr_err );
567                 rs->sr_err = LDAP_OTHER;
568                 rs->sr_text = "commit failed";
569
570                 goto return_results;
571         }
572
573         Debug( LDAP_DEBUG_TRACE,
574                 LDAP_XSTRING(bdb_modify) ": updated%s id=%08lx dn=\"%s\"\n",
575                 op->o_noop ? " (no-op)" : "",
576                 dummy.e_id, op->o_req_dn.bv_val );
577
578         rs->sr_err = LDAP_SUCCESS;
579         rs->sr_text = NULL;
580         if( num_ctrls ) rs->sr_ctrls = ctrls;
581
582 return_results:
583         if( dummy.e_attrs ) {
584                 attrs_free( dummy.e_attrs );
585         }
586         send_ldap_result( op, rs );
587
588         if( rs->sr_err == LDAP_SUCCESS && bdb->bi_txn_cp ) {
589                 ldap_pvt_thread_yield();
590                 TXN_CHECKPOINT( bdb->bi_dbenv,
591                         bdb->bi_txn_cp_kbyte, bdb->bi_txn_cp_min, 0 );
592         }
593
594 done:
595         if( ltid != NULL ) {
596                 TXN_ABORT( ltid );
597                 op->o_private = NULL;
598         }
599
600         if( e != NULL ) {
601                 bdb_unlocked_cache_return_entry_w (&bdb->bi_cache, e);
602         }
603
604         if( preread_ctrl != NULL ) {
605                 slap_sl_free( (*preread_ctrl)->ldctl_value.bv_val, op->o_tmpmemctx );
606                 slap_sl_free( *preread_ctrl, op->o_tmpmemctx );
607         }
608         if( postread_ctrl != NULL ) {
609                 slap_sl_free( (*postread_ctrl)->ldctl_value.bv_val, op->o_tmpmemctx );
610                 slap_sl_free( *postread_ctrl, op->o_tmpmemctx );
611         }
612         return rs->sr_err;
613 }