]> git.sur5r.net Git - openldap/blob - servers/slapd/back-bdb/add.c
22da9a6a37f7e848fdda7eb3b2f54a2b5c734914
[openldap] / servers / slapd / back-bdb / add.c
1 /* add.c - ldap BerkeleyDB back-end add routine */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2000-2004 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
22 #include "back-bdb.h"
23 #include "external.h"
24
25 int
26 bdb_add(Operation *op, SlapReply *rs )
27 {
28         struct bdb_info *bdb = (struct bdb_info *) op->o_bd->be_private;
29         struct berval   pdn;
30         Entry           *p;
31         EntryInfo       *ei;
32         char textbuf[SLAP_TEXT_BUFLEN];
33         size_t textlen = sizeof textbuf;
34         AttributeDescription *children = slap_schema.si_ad_children;
35         AttributeDescription *entry = slap_schema.si_ad_entry;
36         DB_TXN          *ltid = NULL, *lt2;
37         struct bdb_op_info opinfo;
38 #ifdef BDB_SUBENTRIES
39         int subentry;
40 #endif
41         u_int32_t       locker = 0;
42         DB_LOCK         lock;
43
44         int             num_retries = 0;
45
46         Operation* ps_list;
47         int             rc;
48         EntryInfo       *suffix_ei = NULL;
49         Entry           *ctxcsn_e;
50         int                     ctxcsn_added = 0;
51
52         LDAPControl *ctrls[SLAP_MAX_RESPONSE_CONTROLS];
53         int num_ctrls = 0;
54
55 #ifdef NEW_LOGGING
56         LDAP_LOG ( OPERATION, ARGS, "==> bdb_add: %s\n",
57                 op->oq_add.rs_e->e_name.bv_val, 0, 0 );
58 #else
59         Debug(LDAP_DEBUG_ARGS, "==> bdb_add: %s\n",
60                 op->oq_add.rs_e->e_name.bv_val, 0, 0);
61 #endif
62
63         /* check entry's schema */
64         rs->sr_err = entry_schema_check( op->o_bd, op->oq_add.rs_e,
65                 NULL, &rs->sr_text, textbuf, textlen );
66         if ( rs->sr_err != LDAP_SUCCESS ) {
67 #ifdef NEW_LOGGING
68                 LDAP_LOG ( OPERATION, ERR, 
69                         "bdb_add: entry failed schema check: %s (%d)\n",
70                         rs->sr_text, rs->sr_err, 0 );
71 #else
72                 Debug( LDAP_DEBUG_TRACE,
73                         "bdb_add: entry failed schema check: %s (%d)\n",
74                         rs->sr_text, rs->sr_err, 0 );
75 #endif
76                 goto return_results;
77         }
78
79 #ifdef BDB_SUBENTRIES
80         subentry = is_entry_subentry( op->oq_add.rs_e );
81 #endif
82
83         /*
84          * acquire an ID outside of the operation transaction
85          * to avoid serializing adds.
86          */
87         rs->sr_err = bdb_next_id( op->o_bd, NULL, &op->oq_add.rs_e->e_id );
88         if( rs->sr_err != 0 ) {
89 #ifdef NEW_LOGGING
90                 LDAP_LOG ( OPERATION, ERR, 
91                         "bdb_add: next_id failed (%d)\n", rs->sr_err, 0, 0 );
92 #else
93                 Debug( LDAP_DEBUG_TRACE,
94                         "bdb_add: next_id failed (%d)\n", rs->sr_err, 0, 0 );
95 #endif
96                 rs->sr_err = LDAP_OTHER;
97                 rs->sr_text = "internal error";
98                 goto return_results;
99         }
100
101         if( 0 ) {
102 retry:  /* transaction retry */
103                 if( p ) {
104                         /* free parent and reader lock */
105                         bdb_unlocked_cache_return_entry_r( &bdb->bi_cache, p );
106                         p = NULL;
107                 }
108                 rs->sr_err = TXN_ABORT( ltid );
109                 ltid = NULL;
110                 op->o_private = NULL;
111                 op->o_do_not_cache = opinfo.boi_acl_cache;
112                 if( rs->sr_err != 0 ) {
113                         rs->sr_err = LDAP_OTHER;
114                         rs->sr_text = "internal error";
115                         goto return_results;
116                 }
117                 ldap_pvt_thread_yield();
118                 bdb_trans_backoff( ++num_retries );
119         }
120
121         /* begin transaction */
122         rs->sr_err = TXN_BEGIN( bdb->bi_dbenv, NULL, &ltid, 
123                 bdb->bi_db_opflags );
124         rs->sr_text = NULL;
125         if( rs->sr_err != 0 ) {
126 #ifdef NEW_LOGGING
127                 LDAP_LOG ( OPERATION, ERR, 
128                         "bdb_add: txn_begin failed: %s (%d)\n",
129                         db_strerror(rs->sr_err), rs->sr_err, 0 );
130 #else
131                 Debug( LDAP_DEBUG_TRACE,
132                         "bdb_add: txn_begin failed: %s (%d)\n",
133                         db_strerror(rs->sr_err), rs->sr_err, 0 );
134 #endif
135                 rs->sr_err = LDAP_OTHER;
136                 rs->sr_text = "internal error";
137                 goto return_results;
138         }
139
140         locker = TXN_ID ( ltid );
141
142         opinfo.boi_bdb = op->o_bd;
143         opinfo.boi_txn = ltid;
144         opinfo.boi_locker = locker;
145         opinfo.boi_err = 0;
146         opinfo.boi_acl_cache = op->o_do_not_cache;
147         op->o_private = &opinfo;
148         
149         /*
150          * Get the parent dn and see if the corresponding entry exists.
151          */
152         if ( be_issuffix( op->o_bd, &op->oq_add.rs_e->e_nname ) ) {
153                 pdn = slap_empty_bv;
154         } else {
155                 dnParent( &op->oq_add.rs_e->e_nname, &pdn );
156         }
157
158         /* get entry or parent */
159         rs->sr_err = bdb_dn2entry( op, ltid, &op->ora_e->e_nname, &ei,
160                 1, locker, &lock );
161         switch( rs->sr_err ) {
162         case 0:
163                 rs->sr_err = LDAP_ALREADY_EXISTS;
164                 goto return_results;
165         case DB_NOTFOUND:
166                 break;
167         case DB_LOCK_DEADLOCK:
168         case DB_LOCK_NOTGRANTED:
169                 goto retry;
170         case LDAP_BUSY:
171                 rs->sr_text = "ldap server busy";
172                 goto return_results;
173         default:
174                 rs->sr_err = LDAP_OTHER;
175                 rs->sr_text = "internal error";
176                 goto return_results;
177         }
178
179         p = ei->bei_e;
180         if ( p ) {
181                 if ( !bvmatch( &pdn, &p->e_nname ) ) {
182                         rs->sr_matched = ber_strdup_x( p->e_name.bv_val,
183                                 op->o_tmpmemctx );
184                         rs->sr_ref = is_entry_referral( p )
185                                 ? get_entry_referrals( op, p )
186                                 : NULL;
187                         bdb_unlocked_cache_return_entry_r( &bdb->bi_cache, p );
188                         p = NULL;
189 #ifdef NEW_LOGGING
190                         LDAP_LOG ( OPERATION, DETAIL1, "bdb_add: parent does not exist\n",
191                                 0, 0, 0 );
192 #else
193                         Debug( LDAP_DEBUG_TRACE, "bdb_add: parent does not exist\n",
194                                 0, 0, 0 );
195 #endif
196
197                         rs->sr_err = LDAP_REFERRAL;
198                         send_ldap_result( op, rs );
199
200                         ber_bvarray_free( rs->sr_ref );
201                         op->o_tmpfree( (char *)rs->sr_matched, op->o_tmpmemctx );
202                         rs->sr_ref = NULL;
203                         rs->sr_matched = NULL;
204
205                         goto done;
206                 }
207
208                 rs->sr_err = access_allowed( op, p,
209                         children, NULL, ACL_WRITE, NULL );
210
211                 if ( ! rs->sr_err ) {
212                         switch( opinfo.boi_err ) {
213                         case DB_LOCK_DEADLOCK:
214                         case DB_LOCK_NOTGRANTED:
215                                 goto retry;
216                         }
217
218 #ifdef NEW_LOGGING
219                         LDAP_LOG ( OPERATION, DETAIL1, 
220                                 "bdb_add: no write access to parent\n", 0, 0, 0 );
221 #else
222                         Debug( LDAP_DEBUG_TRACE,
223                                 "bdb_add: no write access to parent\n", 0, 0, 0 );
224 #endif
225                         rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
226                         rs->sr_text = "no write access to parent";
227                         goto return_results;;
228                 }
229
230 #ifdef BDB_SUBENTRIES
231                 if ( is_entry_subentry( p ) ) {
232                         /* parent is a subentry, don't allow add */
233 #ifdef NEW_LOGGING
234                         LDAP_LOG ( OPERATION, DETAIL1, 
235                                 "bdb_add: parent is subentry\n", 0, 0, 0 );
236 #else
237                         Debug( LDAP_DEBUG_TRACE, "bdb_add: parent is subentry\n",
238                                 0, 0, 0 );
239 #endif
240                         rs->sr_err = LDAP_OBJECT_CLASS_VIOLATION;
241                         rs->sr_text = "parent is a subentry";
242                         goto return_results;;
243                 }
244 #endif
245 #ifdef BDB_ALIASES
246                 if ( is_entry_alias( p ) ) {
247                         /* parent is an alias, don't allow add */
248 #ifdef NEW_LOGGING
249                         LDAP_LOG ( OPERATION, DETAIL1, 
250                                 "bdb_add: parent is alias\n", 0, 0, 0 );
251 #else
252                         Debug( LDAP_DEBUG_TRACE, "bdb_add: parent is alias\n",
253                                 0, 0, 0 );
254 #endif
255                         rs->sr_err = LDAP_ALIAS_PROBLEM;
256                         rs->sr_text = "parent is an alias";
257                         goto return_results;;
258                 }
259 #endif
260
261                 if ( is_entry_referral( p ) ) {
262                         /* parent is a referral, don't allow add */
263                         rs->sr_matched = p->e_name.bv_val;
264                         rs->sr_ref = get_entry_referrals( op, p );
265
266 #ifdef NEW_LOGGING
267                         LDAP_LOG ( OPERATION, DETAIL1, 
268                                 "bdb_add: parent is referral\n", 0, 0, 0 );
269 #else
270                         Debug( LDAP_DEBUG_TRACE, "bdb_add: parent is referral\n",
271                                 0, 0, 0 );
272 #endif
273
274                         rs->sr_err = LDAP_REFERRAL;
275                         send_ldap_result( op, rs );
276
277                         ber_bvarray_free( rs->sr_ref );
278                         bdb_unlocked_cache_return_entry_r( &bdb->bi_cache, p );
279                         rs->sr_ref = NULL;
280                         rs->sr_matched = NULL;
281                         p = NULL;
282                         goto done;
283                 }
284
285 #ifdef BDB_SUBENTRIES
286                 if ( subentry ) {
287                         /* FIXME: */
288                         /* parent must be an administrative point of the required kind */
289                 }
290 #endif
291
292                 /* free parent and reader lock */
293                 bdb_unlocked_cache_return_entry_r( &bdb->bi_cache, p );
294                 p = NULL;
295
296         } else {
297                 /*
298                  * no parent!
299                  *  if not attempting to add entry at suffix or with parent ""
300                  */
301                 if ((( !be_isroot( op ) && !be_shadow_update(op) )
302                         || pdn.bv_len > 0 ) && !is_entry_glue( op->oq_add.rs_e ))
303                 {
304 #ifdef NEW_LOGGING
305                         LDAP_LOG ( OPERATION, DETAIL1, "bdb_add: %s denied\n", 
306                                 pdn.bv_len == 0 ? "suffix" : "entry at root", 0, 0 );
307 #else
308                         Debug( LDAP_DEBUG_TRACE, "bdb_add: %s denied\n",
309                                 pdn.bv_len == 0 ? "suffix" : "entry at root",
310                                 0, 0 );
311 #endif
312                         rs->sr_err = LDAP_NO_SUCH_OBJECT;
313                         goto return_results;
314                 }
315         }
316
317         if ( get_assert( op ) &&
318                 ( test_filter( op, op->oq_add.rs_e, get_assertion( op ))
319                         != LDAP_COMPARE_TRUE ))
320         {
321                 rs->sr_err = LDAP_ASSERTION_FAILED;
322                 goto return_results;
323         }
324
325         rs->sr_err = access_allowed( op, op->oq_add.rs_e,
326                 entry, NULL, ACL_WRITE, NULL );
327
328         if ( ! rs->sr_err ) {
329                 switch( opinfo.boi_err ) {
330                 case DB_LOCK_DEADLOCK:
331                 case DB_LOCK_NOTGRANTED:
332                         goto retry;
333                 }
334
335 #ifdef NEW_LOGGING
336                 LDAP_LOG ( OPERATION, DETAIL1, 
337                         "bdb_add: no write access to entry\n", 0, 0, 0 );
338 #else
339                 Debug( LDAP_DEBUG_TRACE, "bdb_add: no write access to entry\n",
340                         0, 0, 0 );
341 #endif
342                 rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
343                 rs->sr_text = "no write access to entry";
344                 goto return_results;;
345         }
346
347         /* post-read */
348         if( op->o_postread ) {
349                 if ( slap_read_controls( op, rs, op->oq_add.rs_e,
350                         &slap_post_read_bv, &ctrls[num_ctrls] ) )
351                 {
352 #ifdef NEW_LOGGING
353                         LDAP_LOG ( OPERATION, DETAIL1, 
354                                 "<=- bdb_add: post-read failed!\n", 0, 0, 0 );
355 #else
356                         Debug( LDAP_DEBUG_TRACE,
357                                 "<=- bdb_add: post-read failed!\n", 0, 0, 0 );
358 #endif
359                         goto return_results;
360                 }
361                 ctrls[++num_ctrls] = NULL;
362         }
363
364         /* nested transaction */
365         rs->sr_err = TXN_BEGIN( bdb->bi_dbenv, ltid, &lt2, 
366                 bdb->bi_db_opflags );
367         rs->sr_text = NULL;
368         if( rs->sr_err != 0 ) {
369 #ifdef NEW_LOGGING
370                 LDAP_LOG ( OPERATION, ERR, 
371                         "bdb_add: txn_begin(2) failed: %s (%d)\n",
372                         db_strerror(rs->sr_err), rs->sr_err, 0 );
373 #else
374                 Debug( LDAP_DEBUG_TRACE,
375                         "bdb_add: txn_begin(2) failed: %s (%d)\n",
376                         db_strerror(rs->sr_err), rs->sr_err, 0 );
377 #endif
378                 rs->sr_err = LDAP_OTHER;
379                 rs->sr_text = "internal error";
380                 goto return_results;
381         }
382
383         /* This is the first add to a root DB, need to make the suffix glue */
384         if ( op->o_bd->be_nsuffix[0].bv_len == 0 && ei->bei_id == 0 ) {
385                 Entry e_root = {0};
386                 e_root.e_name.bv_val = "";
387                 e_root.e_nname.bv_val = "";
388                 e_root.e_id = 1;
389                 rs->sr_err = bdb_dn2id_add( op, lt2, ei, &e_root );
390
391                 /* Just give up on any failure. */
392                 if ( rs->sr_err ) {
393                         rs->sr_err = LDAP_OTHER;
394                         goto return_results;
395                 }
396
397                 /* Get a new ID for the actual entry */
398                 if ( op->oq_add.rs_e->e_id == 1 ) {
399                         rs->sr_err = bdb_next_id( op->o_bd, NULL, &op->oq_add.rs_e->e_id );
400                         if (rs->sr_err) {
401                                 rs->sr_err = LDAP_OTHER;
402                                 goto return_results;
403                         }
404                 }
405
406                 /* Get new EntryInfo */
407                 rs->sr_err = bdb_dn2entry( op, ltid, &op->ora_e->e_nname, &ei,
408                 1, locker, &lock );
409                 if (rs->sr_err != DB_NOTFOUND) {
410                         rs->sr_err = LDAP_OTHER;
411                         goto return_results;
412                 }
413         }
414
415         /* dn2id index */
416         rs->sr_err = bdb_dn2id_add( op, lt2, ei, op->oq_add.rs_e );
417         if ( rs->sr_err != 0 ) {
418 #ifdef NEW_LOGGING
419                 LDAP_LOG ( OPERATION, ERR, 
420                         "bdb_add: dn2id_add failed: %s (%d)\n",
421                         db_strerror(rs->sr_err), rs->sr_err, 0 );
422 #else
423                 Debug( LDAP_DEBUG_TRACE, "bdb_add: dn2id_add failed: %s (%d)\n",
424                         db_strerror(rs->sr_err), rs->sr_err, 0 );
425 #endif
426
427                 switch( rs->sr_err ) {
428                 case DB_LOCK_DEADLOCK:
429                 case DB_LOCK_NOTGRANTED:
430                         goto retry;
431                 case DB_KEYEXIST:
432                         rs->sr_err = LDAP_ALREADY_EXISTS;
433                         break;
434                 default:
435                         rs->sr_err = LDAP_OTHER;
436                 }
437                 goto return_results;
438         }
439
440         /* id2entry index */
441         rs->sr_err = bdb_id2entry_add( op->o_bd, lt2, op->oq_add.rs_e );
442         if ( rs->sr_err != 0 ) {
443 #ifdef NEW_LOGGING
444                 LDAP_LOG ( OPERATION, ERR, "bdb_add: id2entry_add failed\n", 0, 0, 0 );
445 #else
446                 Debug( LDAP_DEBUG_TRACE, "bdb_add: id2entry_add failed\n",
447                         0, 0, 0 );
448 #endif
449                 switch( rs->sr_err ) {
450                 case DB_LOCK_DEADLOCK:
451                 case DB_LOCK_NOTGRANTED:
452                         goto retry;
453                 default:
454                         rs->sr_err = LDAP_OTHER;
455                 }
456                 rs->sr_text = "entry store failed";
457                 goto return_results;
458         }
459
460         /* attribute indexes */
461         rs->sr_err = bdb_index_entry_add( op, lt2, op->oq_add.rs_e );
462         if ( rs->sr_err != LDAP_SUCCESS ) {
463 #ifdef NEW_LOGGING
464                 LDAP_LOG ( OPERATION, ERR, 
465                         "bdb_add: index_entry_add failed\n", 0, 0, 0 );
466 #else
467                 Debug( LDAP_DEBUG_TRACE, "bdb_add: index_entry_add failed\n",
468                         0, 0, 0 );
469 #endif
470                 switch( rs->sr_err ) {
471                 case DB_LOCK_DEADLOCK:
472                 case DB_LOCK_NOTGRANTED:
473                         goto retry;
474                 default:
475                         rs->sr_err = LDAP_OTHER;
476                 }
477                 rs->sr_text = "index generation failed";
478                 goto return_results;
479         }
480         if ( TXN_COMMIT( lt2, 0 ) != 0 ) {
481                 rs->sr_err = LDAP_OTHER;
482                 rs->sr_text = "txn_commit(2) failed";
483                 goto return_results;
484         }
485
486         if ( LDAP_STAILQ_EMPTY( &op->o_bd->be_syncinfo )) {
487                 rc = bdb_csn_commit( op, rs, ltid, ei, &suffix_ei,
488                         &ctxcsn_e, &ctxcsn_added, locker );
489                 switch ( rc ) {
490                 case BDB_CSN_ABORT :
491                         goto return_results;
492                 case BDB_CSN_RETRY :
493                         goto retry;
494                 }
495         }
496
497         if ( op->o_noop ) {
498                 if (( rs->sr_err=TXN_ABORT( ltid )) != 0 ) {
499                         rs->sr_text = "txn_abort (no-op) failed";
500                 } else {
501                         rs->sr_err = LDAP_NO_OPERATION;
502                         goto return_results;
503                 }
504
505         } else {
506                 struct berval nrdn;
507                 Entry *e = entry_dup( op->ora_e );
508
509                 if (pdn.bv_len) {
510                         nrdn.bv_val = e->e_nname.bv_val;
511                         nrdn.bv_len = pdn.bv_val - op->ora_e->e_nname.bv_val - 1;
512                 } else {
513                         nrdn = e->e_nname;
514                 }
515
516                 bdb_cache_add( bdb, ei, e, &nrdn, locker );
517
518                 if ( suffix_ei == NULL ) {
519                         suffix_ei = BEI(e);
520                 }
521
522                 if ( LDAP_STAILQ_EMPTY( &op->o_bd->be_syncinfo )) {
523                         if ( ctxcsn_added ) {
524                                 bdb_cache_add( bdb, suffix_ei, ctxcsn_e,
525                                         (struct berval *)&slap_ldapsync_cn_bv, locker );
526                         }
527                 }
528
529                 if ( rs->sr_err == LDAP_SUCCESS && !op->o_no_psearch ) {
530                         ldap_pvt_thread_rdwr_rlock( &bdb->bi_pslist_rwlock );
531                         assert( BEI(e) );
532                         LDAP_LIST_FOREACH ( ps_list, &bdb->bi_psearch_list, o_ps_link ) {
533                                 bdb_psearch( op, rs, ps_list, e,
534                                         LDAP_PSEARCH_BY_ADD );
535                         }
536                         ldap_pvt_thread_rdwr_runlock( &bdb->bi_pslist_rwlock );
537                 }
538
539                 if(( rs->sr_err=TXN_COMMIT( ltid, 0 )) != 0 ) {
540                         rs->sr_text = "txn_commit failed";
541                 } else {
542                         rs->sr_err = LDAP_SUCCESS;
543                 }
544         }
545
546         ltid = NULL;
547         op->o_private = NULL;
548
549         if ( rs->sr_err != LDAP_SUCCESS ) {
550 #ifdef NEW_LOGGING
551                 LDAP_LOG ( OPERATION, ERR, "bdb_add: %s : %s (%d)\n",
552                         rs->sr_text, db_strerror(rs->sr_err), rs->sr_err );
553 #else
554                 Debug( LDAP_DEBUG_TRACE, "bdb_add: %s : %s (%d)\n",
555                         rs->sr_text, db_strerror(rs->sr_err), rs->sr_err );
556 #endif
557                 rs->sr_err = LDAP_OTHER;
558                 goto return_results;
559         }
560
561 #ifdef NEW_LOGGING
562         LDAP_LOG ( OPERATION, RESULTS, 
563                 "bdb_add: added%s id=%08lx dn=\"%s\"\n", 
564                 op->o_noop ? " (no-op)" : "",
565                 op->oq_add.rs_e->e_id, op->oq_add.rs_e->e_dn );
566 #else
567         Debug(LDAP_DEBUG_TRACE, "bdb_add: added%s id=%08lx dn=\"%s\"\n",
568                 op->o_noop ? " (no-op)" : "",
569                 op->oq_add.rs_e->e_id, op->oq_add.rs_e->e_dn );
570 #endif
571
572         rs->sr_text = NULL;
573         if( num_ctrls ) rs->sr_ctrls = ctrls;
574
575 return_results:
576         send_ldap_result( op, rs );
577
578         if( rs->sr_err == LDAP_SUCCESS && bdb->bi_txn_cp ) {
579                 ldap_pvt_thread_yield();
580                 TXN_CHECKPOINT( bdb->bi_dbenv,
581                         bdb->bi_txn_cp_kbyte, bdb->bi_txn_cp_min, 0 );
582         }
583
584 done:
585         if( ltid != NULL ) {
586                 TXN_ABORT( ltid );
587                 op->o_private = NULL;
588         }
589
590         return rs->sr_err;
591 }