git.sur5r.net Git - openldap/blob - servers/slapd/back-mdb/delete.c

   1 /* delete.c - mdb backend delete routine */
   2 /* $OpenLDAP$ */
   3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   4  *
   5  * Copyright 2000-2012 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 "lutil.h"
  23 #include "back-mdb.h"
  24
  25 int
  26 mdb_delete( Operation *op, SlapReply *rs )
  27 {
  28         struct mdb_info *mdb = (struct mdb_info *) op->o_bd->be_private;
  29         struct berval   pdn = {0, NULL};
  30         Entry   *e = NULL;
  31         Entry   *p = NULL;
  32         int             manageDSAit = get_manageDSAit( op );
  33         AttributeDescription *children = slap_schema.si_ad_children;
  34         AttributeDescription *entry = slap_schema.si_ad_entry;
  35         MDB_txn         *txn = NULL;
  36         MDB_cursor      *mc;
  37         mdb_op_info opinfo = {{{ 0 }}}, *moi = &opinfo;
  38
  39         LDAPControl **preread_ctrl = NULL;
  40         LDAPControl *ctrls[SLAP_MAX_RESPONSE_CONTROLS];
  41         int num_ctrls = 0;
  42
  43         int     parent_is_glue = 0;
  44         int parent_is_leaf = 0;
  45
  46 #ifdef LDAP_X_TXN
  47         int settle = 0;
  48 #endif
  49
  50         Debug( LDAP_DEBUG_ARGS, "==> " LDAP_XSTRING(mdb_delete) ": %s\n",
  51                 op->o_req_dn.bv_val, 0, 0 );
  52
  53 #ifdef LDAP_X_TXN
  54         if( op->o_txnSpec ) {
  55                 /* acquire connection lock */
  56                 ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
  57                 if( op->o_conn->c_txn == CONN_TXN_INACTIVE ) {
  58                         rs->sr_text = "invalid transaction identifier";
  59                         rs->sr_err = LDAP_X_TXN_ID_INVALID;
  60                         goto txnReturn;
  61                 } else if( op->o_conn->c_txn == CONN_TXN_SETTLE ) {
  62                         settle=1;
  63                         goto txnReturn;
  64                 }
  65
  66                 if( op->o_conn->c_txn_backend == NULL ) {
  67                         op->o_conn->c_txn_backend = op->o_bd;
  68
  69                 } else if( op->o_conn->c_txn_backend != op->o_bd ) {
  70                         rs->sr_text = "transaction cannot span multiple database contexts";
  71                         rs->sr_err = LDAP_AFFECTS_MULTIPLE_DSAS;
  72                         goto txnReturn;
  73                 }
  74
  75                 /* insert operation into transaction */
  76
  77                 rs->sr_text = "transaction specified";
  78                 rs->sr_err = LDAP_X_TXN_SPECIFY_OKAY;
  79
  80 txnReturn:
  81                 /* release connection lock */
  82                 ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
  83
  84                 if( !settle ) {
  85                         send_ldap_result( op, rs );
  86                         return rs->sr_err;
  87                 }
  88         }
  89 #endif
  90
  91         ctrls[num_ctrls] = 0;
  92
  93         /* allocate CSN */
  94         if ( BER_BVISNULL( &op->o_csn ) ) {
  95                 struct berval csn;
  96                 char csnbuf[LDAP_PVT_CSNSTR_BUFSIZE];
  97
  98                 csn.bv_val = csnbuf;
  99                 csn.bv_len = sizeof(csnbuf);
 100                 slap_get_csn( op, &csn, 1 );
 101         }
 102
 103         /* begin transaction */
 104         rs->sr_err = mdb_opinfo_get( op, mdb, 0, &moi );
 105         rs->sr_text = NULL;
 106         if( rs->sr_err != 0 ) {
 107                 Debug( LDAP_DEBUG_TRACE,
 108                         LDAP_XSTRING(mdb_delete) ": txn_begin failed: "
 109                         "%s (%d)\n", mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 110                 rs->sr_err = LDAP_OTHER;
 111                 rs->sr_text = "internal error";
 112                 goto return_results;
 113         }
 114
 115         txn = moi->moi_txn;
 116
 117         if ( !be_issuffix( op->o_bd, &op->o_req_ndn ) ) {
 118                 dnParent( &op->o_req_ndn, &pdn );
 119         }
 120
 121         rs->sr_err = mdb_cursor_open( txn, mdb->mi_dn2id, &mc );
 122         if ( rs->sr_err ) {
 123                 rs->sr_err = LDAP_OTHER;
 124                 rs->sr_text = "internal error";
 125                 goto return_results;
 126         }
 127         /* get parent */
 128         rs->sr_err = mdb_dn2entry( op, txn, mc, &pdn, &p, 1 );
 129         switch( rs->sr_err ) {
 130         case 0:
 131         case MDB_NOTFOUND:
 132                 break;
 133         case LDAP_BUSY:
 134                 rs->sr_text = "ldap server busy";
 135                 goto return_results;
 136         default:
 137                 rs->sr_err = LDAP_OTHER;
 138                 rs->sr_text = "internal error";
 139                 goto return_results;
 140         }
 141         if ( rs->sr_err == MDB_NOTFOUND ) {
 142                 Debug( LDAP_DEBUG_ARGS,
 143                         "<=- " LDAP_XSTRING(mdb_delete) ": no such object %s\n",
 144                         op->o_req_dn.bv_val, 0, 0);
 145
 146                 if ( p && !BER_BVISEMPTY( &p->e_name )) {
 147                         rs->sr_matched = ch_strdup( p->e_name.bv_val );
 148                         if ( is_entry_referral( p )) {
 149                                 BerVarray ref = get_entry_referrals( op, p );
 150                                 rs->sr_ref = referral_rewrite( ref, &p->e_name,
 151                                         &op->o_req_dn, LDAP_SCOPE_DEFAULT );
 152                                 ber_bvarray_free( ref );
 153                         } else {
 154                                 rs->sr_ref = NULL;
 155                         }
 156                 } else {
 157                         rs->sr_ref = referral_rewrite( default_referral, NULL,
 158                                         &op->o_req_dn, LDAP_SCOPE_DEFAULT );
 159                 }
 160                 if ( p ) {
 161                         mdb_entry_return( op, p );
 162                         p = NULL;
 163                 }
 164
 165                 rs->sr_err = LDAP_REFERRAL;
 166                 rs->sr_flags = REP_MATCHED_MUSTBEFREED | REP_REF_MUSTBEFREED;
 167                 goto return_results;
 168         }
 169
 170         /* get entry */
 171         rs->sr_err = mdb_dn2entry( op, txn, mc, &op->o_req_ndn, &e, 0 );
 172         switch( rs->sr_err ) {
 173         case MDB_NOTFOUND:
 174                 e = p;
 175                 p = NULL;
 176         case 0:
 177                 break;
 178         case LDAP_BUSY:
 179                 rs->sr_text = "ldap server busy";
 180                 goto return_results;
 181         default:
 182                 rs->sr_err = LDAP_OTHER;
 183                 rs->sr_text = "internal error";
 184                 goto return_results;
 185         }
 186
 187         /* FIXME : dn2entry() should return non-glue entry */
 188         if ( rs->sr_err == MDB_NOTFOUND || ( !manageDSAit && is_entry_glue( e ))) {
 189                 Debug( LDAP_DEBUG_ARGS,
 190                         "<=- " LDAP_XSTRING(mdb_delete) ": no such object %s\n",
 191                         op->o_req_dn.bv_val, 0, 0);
 192
 193                 rs->sr_matched = ch_strdup( e->e_dn );
 194                 if ( is_entry_referral( e )) {
 195                         BerVarray ref = get_entry_referrals( op, e );
 196                         rs->sr_ref = referral_rewrite( ref, &e->e_name,
 197                                 &op->o_req_dn, LDAP_SCOPE_DEFAULT );
 198                         ber_bvarray_free( ref );
 199                 } else {
 200                         rs->sr_ref = NULL;
 201                 }
 202                 mdb_entry_return( op, e );
 203                 e = NULL;
 204
 205                 rs->sr_err = LDAP_REFERRAL;
 206                 rs->sr_flags = REP_MATCHED_MUSTBEFREED | REP_REF_MUSTBEFREED;
 207                 goto return_results;
 208         }
 209
 210         if ( pdn.bv_len != 0 ) {
 211                 /* check parent for "children" acl */
 212                 rs->sr_err = access_allowed( op, p,
 213                         children, NULL, ACL_WDEL, NULL );
 214
 215                 if ( !rs->sr_err  ) {
 216                         Debug( LDAP_DEBUG_TRACE,
 217                                 "<=- " LDAP_XSTRING(mdb_delete) ": no write "
 218                                 "access to parent\n", 0, 0, 0 );
 219                         rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
 220                         rs->sr_text = "no write access to parent";
 221                         goto return_results;
 222                 }
 223
 224         } else {
 225                 /* no parent, must be root to delete */
 226                 if( ! be_isroot( op ) ) {
 227                         if ( be_issuffix( op->o_bd, (struct berval *)&slap_empty_bv )
 228                                 || be_shadow_update( op ) ) {
 229                                 p = (Entry *)&slap_entry_root;
 230
 231                                 /* check parent for "children" acl */
 232                                 rs->sr_err = access_allowed( op, p,
 233                                         children, NULL, ACL_WDEL, NULL );
 234
 235                                 p = NULL;
 236
 237                                 if ( !rs->sr_err  ) {
 238                                         Debug( LDAP_DEBUG_TRACE,
 239                                                 "<=- " LDAP_XSTRING(mdb_delete)
 240                                                 ": no access to parent\n",
 241                                                 0, 0, 0 );
 242                                         rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
 243                                         rs->sr_text = "no write access to parent";
 244                                         goto return_results;
 245                                 }
 246
 247                         } else {
 248                                 Debug( LDAP_DEBUG_TRACE,
 249                                         "<=- " LDAP_XSTRING(mdb_delete)
 250                                         ": no parent and not root\n", 0, 0, 0 );
 251                                 rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
 252                                 goto return_results;
 253                         }
 254                 }
 255         }
 256
 257         if ( get_assert( op ) &&
 258                 ( test_filter( op, e, get_assertion( op )) != LDAP_COMPARE_TRUE ))
 259         {
 260                 rs->sr_err = LDAP_ASSERTION_FAILED;
 261                 goto return_results;
 262         }
 263
 264         rs->sr_err = access_allowed( op, e,
 265                 entry, NULL, ACL_WDEL, NULL );
 266
 267         if ( !rs->sr_err  ) {
 268                 Debug( LDAP_DEBUG_TRACE,
 269                         "<=- " LDAP_XSTRING(mdb_delete) ": no write access "
 270                         "to entry\n", 0, 0, 0 );
 271                 rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
 272                 rs->sr_text = "no write access to entry";
 273                 goto return_results;
 274         }
 275
 276         if ( !manageDSAit && is_entry_referral( e ) ) {
 277                 /* entry is a referral, don't allow delete */
 278                 rs->sr_ref = get_entry_referrals( op, e );
 279
 280                 Debug( LDAP_DEBUG_TRACE,
 281                         LDAP_XSTRING(mdb_delete) ": entry is referral\n",
 282                         0, 0, 0 );
 283
 284                 rs->sr_err = LDAP_REFERRAL;
 285                 rs->sr_matched = ch_strdup( e->e_name.bv_val );
 286                 rs->sr_flags = REP_MATCHED_MUSTBEFREED | REP_REF_MUSTBEFREED;
 287                 goto return_results;
 288         }
 289
 290         /* pre-read */
 291         if( op->o_preread ) {
 292                 if( preread_ctrl == NULL ) {
 293                         preread_ctrl = &ctrls[num_ctrls++];
 294                         ctrls[num_ctrls] = NULL;
 295                 }
 296                 if( slap_read_controls( op, rs, e,
 297                         &slap_pre_read_bv, preread_ctrl ) )
 298                 {
 299                         Debug( LDAP_DEBUG_TRACE,
 300                                 "<=- " LDAP_XSTRING(mdb_delete) ": pre-read "
 301                                 "failed!\n", 0, 0, 0 );
 302                         if ( op->o_preread & SLAP_CONTROL_CRITICAL ) {
 303                                 /* FIXME: is it correct to abort
 304                                  * operation if control fails? */
 305                                 goto return_results;
 306                         }
 307                 }
 308         }
 309
 310         rs->sr_text = NULL;
 311
 312         /* Can't do it if we have kids */
 313         rs->sr_err = mdb_dn2id_children( op, txn, e );
 314         if( rs->sr_err != MDB_NOTFOUND ) {
 315                 switch( rs->sr_err ) {
 316                 case 0:
 317                         Debug(LDAP_DEBUG_ARGS,
 318                                 "<=- " LDAP_XSTRING(mdb_delete)
 319                                 ": non-leaf %s\n",
 320                                 op->o_req_dn.bv_val, 0, 0);
 321                         rs->sr_err = LDAP_NOT_ALLOWED_ON_NONLEAF;
 322                         rs->sr_text = "subordinate objects must be deleted first";
 323                         break;
 324                 default:
 325                         Debug(LDAP_DEBUG_ARGS,
 326                                 "<=- " LDAP_XSTRING(mdb_delete)
 327                                 ": has_children failed: %s (%d)\n",
 328                                 mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 329                         rs->sr_err = LDAP_OTHER;
 330                         rs->sr_text = "internal error";
 331                 }
 332                 goto return_results;
 333         }
 334
 335         /* delete from dn2id */
 336         rs->sr_err = mdb_dn2id_delete( op, mc, e->e_id );
 337         mdb_cursor_close( mc );
 338         if ( rs->sr_err != 0 ) {
 339                 Debug(LDAP_DEBUG_TRACE,
 340                         "<=- " LDAP_XSTRING(mdb_delete) ": dn2id failed: "
 341                         "%s (%d)\n", mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 342                 rs->sr_text = "DN index delete failed";
 343                 rs->sr_err = LDAP_OTHER;
 344                 goto return_results;
 345         }
 346
 347         /* delete indices for old attributes */
 348         rs->sr_err = mdb_index_entry_del( op, txn, e );
 349         if ( rs->sr_err != LDAP_SUCCESS ) {
 350                 Debug(LDAP_DEBUG_TRACE,
 351                         "<=- " LDAP_XSTRING(mdb_delete) ": index failed: "
 352                         "%s (%d)\n", mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 353                 rs->sr_text = "entry index delete failed";
 354                 rs->sr_err = LDAP_OTHER;
 355                 goto return_results;
 356         }
 357
 358         /* fixup delete CSN */
 359         if ( !SLAP_SHADOW( op->o_bd )) {
 360                 struct berval vals[2];
 361
 362                 assert( !BER_BVISNULL( &op->o_csn ) );
 363                 vals[0] = op->o_csn;
 364                 BER_BVZERO( &vals[1] );
 365                 rs->sr_err = mdb_index_values( op, txn, slap_schema.si_ad_entryCSN,
 366                         vals, 0, SLAP_INDEX_ADD_OP );
 367                 if ( rs->sr_err != LDAP_SUCCESS ) {
 368                         rs->sr_text = "entryCSN index update failed";
 369                         rs->sr_err = LDAP_OTHER;
 370                         goto return_results;
 371                 }
 372         }
 373
 374         /* delete from id2entry */
 375         rs->sr_err = mdb_id2entry_delete( op->o_bd, txn, e );
 376         if ( rs->sr_err != 0 ) {
 377                 Debug( LDAP_DEBUG_TRACE,
 378                         "<=- " LDAP_XSTRING(mdb_delete) ": id2entry failed: "
 379                         "%s (%d)\n", mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 380                 rs->sr_text = "entry delete failed";
 381                 rs->sr_err = LDAP_OTHER;
 382                 goto return_results;
 383         }
 384
 385         if ( pdn.bv_len != 0 ) {
 386                 parent_is_glue = is_entry_glue(p);
 387                 rs->sr_err = mdb_dn2id_children( op, txn, p );
 388                 if ( rs->sr_err != MDB_NOTFOUND ) {
 389                         switch( rs->sr_err ) {
 390                         case 0:
 391                                 break;
 392                         default:
 393                                 Debug(LDAP_DEBUG_ARGS,
 394                                         "<=- " LDAP_XSTRING(mdb_delete)
 395                                         ": has_children failed: %s (%d)\n",
 396                                         mdb_strerror(rs->sr_err), rs->sr_err, 0 );
 397                                 rs->sr_err = LDAP_OTHER;
 398                                 rs->sr_text = "internal error";
 399                                 goto return_results;
 400                         }
 401                         parent_is_leaf = 1;
 402                 }
 403                 mdb_entry_return( op, p );
 404                 p = NULL;
 405         }
 406
 407         if( moi == &opinfo ) {
 408                 LDAP_SLIST_REMOVE( &op->o_extra, &opinfo.moi_oe, OpExtra, oe_next );
 409                 opinfo.moi_oe.oe_key = NULL;
 410                 if( op->o_noop ) {
 411                         mdb_txn_abort( txn );
 412                         rs->sr_err = LDAP_X_NO_OPERATION;
 413                         txn = NULL;
 414                         goto return_results;
 415                 } else {
 416                         rs->sr_err = mdb_txn_commit( txn );
 417                 }
 418                 txn = NULL;
 419         }
 420
 421         if( rs->sr_err != 0 ) {
 422                 Debug( LDAP_DEBUG_TRACE,
 423                         LDAP_XSTRING(mdb_delete) ": txn_%s failed: %s (%d)\n",
 424                         op->o_noop ? "abort (no-op)" : "commit",
 425                         mdb_strerror(rs->sr_err), rs->sr_err );
 426                 rs->sr_err = LDAP_OTHER;
 427                 rs->sr_text = "commit failed";
 428
 429                 goto return_results;
 430         }
 431
 432         Debug( LDAP_DEBUG_TRACE,
 433                 LDAP_XSTRING(mdb_delete) ": deleted%s id=%08lx dn=\"%s\"\n",
 434                 op->o_noop ? " (no-op)" : "",
 435                 e->e_id, op->o_req_dn.bv_val );
 436         rs->sr_err = LDAP_SUCCESS;
 437         rs->sr_text = NULL;
 438         if( num_ctrls ) rs->sr_ctrls = ctrls;
 439
 440 return_results:
 441         if ( rs->sr_err == LDAP_SUCCESS && parent_is_glue && parent_is_leaf ) {
 442                 op->o_delete_glue_parent = 1;
 443         }
 444
 445         if ( p != NULL ) {
 446                 mdb_entry_return( op, p );
 447         }
 448
 449         /* free entry */
 450         if( e != NULL ) {
 451                 mdb_entry_return( op, e );
 452         }
 453
 454         if( moi == &opinfo ) {
 455                 if( txn != NULL ) {
 456                         mdb_txn_abort( txn );
 457                 }
 458                 if ( opinfo.moi_oe.oe_key ) {
 459                         LDAP_SLIST_REMOVE( &op->o_extra, &opinfo.moi_oe, OpExtra, oe_next );
 460                 }
 461         }
 462
 463         send_ldap_result( op, rs );
 464         slap_graduate_commit_csn( op );
 465
 466         if( preread_ctrl != NULL && (*preread_ctrl) != NULL ) {
 467                 slap_sl_free( (*preread_ctrl)->ldctl_value.bv_val, op->o_tmpmemctx );
 468                 slap_sl_free( *preread_ctrl, op->o_tmpmemctx );
 469         }
 470
 471 #if 0
 472         if( rs->sr_err == LDAP_SUCCESS && mdb->bi_txn_cp_kbyte ) {
 473                 TXN_CHECKPOINT( mdb->bi_dbenv,
 474                         mdb->bi_txn_cp_kbyte, mdb->bi_txn_cp_min, 0 );
 475         }
 476 #endif
 477         return rs->sr_err;
 478 }