git.sur5r.net Git - openldap/blob - servers/slapd/overlays/rwm.c

   1 /* rwm.c - rewrite/remap operations */
   2 /* $OpenLDAP$ */
   3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   4  *
   5  * Copyright 2003-2011 The OpenLDAP Foundation.
   6  * Portions Copyright 2003 Pierangelo Masarati.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted only as authorized by the OpenLDAP
  11  * Public License.
  12  *
  13  * A copy of this license is available in the file LICENSE in the
  14  * top-level directory of the distribution or, alternatively, at
  15  * <http://www.OpenLDAP.org/license.html>.
  16  */
  17
  18 #include "portable.h"
  19
  20 #ifdef SLAPD_OVER_RWM
  21
  22 #include <stdio.h>
  23
  24 #include <ac/string.h>
  25
  26 #include "slap.h"
  27 #include "config.h"
  28 #include "lutil.h"
  29 #include "rwm.h"
  30
  31 typedef struct rwm_op_state {
  32         ber_tag_t r_tag;
  33         struct berval ro_dn;
  34         struct berval ro_ndn;
  35         struct berval r_dn;
  36         struct berval r_ndn;
  37         struct berval rx_dn;
  38         struct berval rx_ndn;
  39         AttributeName *mapped_attrs;
  40         OpRequest o_request;
  41 } rwm_op_state;
  42
  43 typedef struct rwm_op_cb {
  44         slap_callback cb;
  45         rwm_op_state ros;
  46 } rwm_op_cb;
  47
  48 static int
  49 rwm_db_destroy( BackendDB *be, ConfigReply *cr );
  50
  51 static int
  52 rwm_send_entry( Operation *op, SlapReply *rs );
  53
  54 static void
  55 rwm_op_rollback( Operation *op, SlapReply *rs, rwm_op_state *ros )
  56 {
  57         /* in case of successful extended operation cleanup
  58          * gets called *after* (ITS#6632); this hack counts
  59          * on others to cleanup our o_req_dn/o_req_ndn,
  60          * while we cleanup theirs. */
  61         if ( ros->r_tag == LDAP_REQ_EXTENDED && rs->sr_err == LDAP_SUCCESS ) {
  62                 if ( !BER_BVISNULL( &ros->rx_dn ) ) {
  63                         ch_free( ros->rx_dn.bv_val );
  64                 }
  65                 if ( !BER_BVISNULL( &ros->rx_ndn ) ) {
  66                         ch_free( ros->rx_ndn.bv_val );
  67                 }
  68
  69         } else {
  70                 if ( !BER_BVISNULL( &ros->ro_dn ) ) {
  71                         op->o_req_dn = ros->ro_dn;
  72                 }
  73                 if ( !BER_BVISNULL( &ros->ro_ndn ) ) {
  74                         op->o_req_ndn = ros->ro_ndn;
  75                 }
  76
  77                 if ( !BER_BVISNULL( &ros->r_dn )
  78                         && ros->r_dn.bv_val != ros->ro_dn.bv_val )
  79                 {
  80                         assert( ros->r_dn.bv_val != ros->r_ndn.bv_val );
  81                         ch_free( ros->r_dn.bv_val );
  82                 }
  83
  84                 if ( !BER_BVISNULL( &ros->r_ndn )
  85                         && ros->r_ndn.bv_val != ros->ro_ndn.bv_val )
  86                 {
  87                         ch_free( ros->r_ndn.bv_val );
  88                 }
  89         }
  90
  91         BER_BVZERO( &ros->r_dn );
  92         BER_BVZERO( &ros->r_ndn );
  93         BER_BVZERO( &ros->ro_dn );
  94         BER_BVZERO( &ros->ro_ndn );
  95         BER_BVZERO( &ros->rx_dn );
  96         BER_BVZERO( &ros->rx_ndn );
  97
  98         switch( ros->r_tag ) {
  99         case LDAP_REQ_COMPARE:
 100                 if ( op->orc_ava->aa_value.bv_val != ros->orc_ava->aa_value.bv_val )
 101                         op->o_tmpfree( op->orc_ava->aa_value.bv_val, op->o_tmpmemctx );
 102                 op->orc_ava = ros->orc_ava;
 103                 break;
 104         case LDAP_REQ_MODIFY:
 105                 slap_mods_free( op->orm_modlist, 1 );
 106                 op->orm_modlist = ros->orm_modlist;
 107                 break;
 108         case LDAP_REQ_MODRDN:
 109                 if ( op->orr_newSup != ros->orr_newSup ) {
 110                         ch_free( op->orr_newSup->bv_val );
 111                         ch_free( op->orr_nnewSup->bv_val );
 112                         op->o_tmpfree( op->orr_newSup, op->o_tmpmemctx );
 113                         op->o_tmpfree( op->orr_nnewSup, op->o_tmpmemctx );
 114                         op->orr_newSup = ros->orr_newSup;
 115                         op->orr_nnewSup = ros->orr_nnewSup;
 116                 }
 117                 if ( op->orr_newrdn.bv_val != ros->orr_newrdn.bv_val ) {
 118                         ch_free( op->orr_newrdn.bv_val );
 119                         ch_free( op->orr_nnewrdn.bv_val );
 120                         op->orr_newrdn = ros->orr_newrdn;
 121                         op->orr_nnewrdn = ros->orr_nnewrdn;
 122                 }
 123                 break;
 124         case LDAP_REQ_SEARCH:
 125                 op->o_tmpfree( ros->mapped_attrs, op->o_tmpmemctx );
 126                 filter_free_x( op, op->ors_filter, 1 );
 127                 op->o_tmpfree( op->ors_filterstr.bv_val, op->o_tmpmemctx );
 128                 op->ors_attrs = ros->ors_attrs;
 129                 op->ors_filter = ros->ors_filter;
 130                 op->ors_filterstr = ros->ors_filterstr;
 131                 break;
 132         case LDAP_REQ_EXTENDED:
 133                 if ( op->ore_reqdata != ros->ore_reqdata ) {
 134                         ber_bvfree( op->ore_reqdata );
 135                         op->ore_reqdata = ros->ore_reqdata;
 136                 }
 137                 break;
 138         case LDAP_REQ_BIND:
 139                 if ( rs->sr_err == LDAP_SUCCESS ) {
 140 #if 0
 141                         ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
 142                         /* too late, c_mutex released */
 143                         Debug( LDAP_DEBUG_ANY, "*** DN: \"%s\" => \"%s\"\n",
 144                                 op->o_conn->c_ndn.bv_val,
 145                                 op->o_req_ndn.bv_val );
 146                         ber_bvreplace( &op->o_conn->c_ndn,
 147                                 &op->o_req_ndn );
 148                         ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
 149 #endif
 150                 }
 151                 break;
 152         default:        break;
 153         }
 154 }
 155
 156 static int
 157 rwm_op_cleanup( Operation *op, SlapReply *rs )
 158 {
 159         slap_callback   *cb = op->o_callback;
 160         rwm_op_state *ros = cb->sc_private;
 161
 162         if ( rs->sr_type == REP_RESULT || rs->sr_type == REP_EXTENDED ||
 163                 op->o_abandon || rs->sr_err == SLAPD_ABANDON )
 164         {
 165                 rwm_op_rollback( op, rs, ros );
 166
 167                 op->o_callback = op->o_callback->sc_next;
 168                 op->o_tmpfree( cb, op->o_tmpmemctx );
 169         }
 170
 171         return SLAP_CB_CONTINUE;
 172 }
 173
 174 static rwm_op_cb *
 175 rwm_callback_get( Operation *op )
 176 {
 177         rwm_op_cb       *roc;
 178
 179         roc = op->o_tmpalloc( sizeof( struct rwm_op_cb ), op->o_tmpmemctx );
 180         roc->cb.sc_cleanup = rwm_op_cleanup;
 181         roc->cb.sc_response = NULL;
 182         roc->cb.sc_next = op->o_callback;
 183         roc->cb.sc_private = &roc->ros;
 184         roc->ros.r_tag = op->o_tag;
 185         roc->ros.ro_dn = op->o_req_dn;
 186         roc->ros.ro_ndn = op->o_req_ndn;
 187         BER_BVZERO( &roc->ros.r_dn );
 188         BER_BVZERO( &roc->ros.r_ndn );
 189         BER_BVZERO( &roc->ros.rx_dn );
 190         BER_BVZERO( &roc->ros.rx_ndn );
 191         roc->ros.mapped_attrs = NULL;
 192         roc->ros.o_request = op->o_request;
 193
 194         return roc;
 195 }
 196
 197
 198 static int
 199 rwm_op_dn_massage( Operation *op, SlapReply *rs, void *cookie,
 200         rwm_op_state *ros )
 201 {
 202         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 203         struct ldaprwmap        *rwmap =
 204                         (struct ldaprwmap *)on->on_bi.bi_private;
 205
 206         struct berval           dn = BER_BVNULL,
 207                                 ndn = BER_BVNULL;
 208         int                     rc = 0;
 209         dncookie                dc;
 210
 211         /*
 212          * Rewrite the dn if needed
 213          */
 214         dc.rwmap = rwmap;
 215         dc.conn = op->o_conn;
 216         dc.rs = rs;
 217         dc.ctx = (char *)cookie;
 218
 219         /* NOTE: in those cases where only the ndn is available,
 220          * and the caller sets op->o_req_dn = op->o_req_ndn,
 221          * only rewrite the op->o_req_ndn and use it as
 222          * op->o_req_dn as well */
 223         ndn = op->o_req_ndn;
 224         if ( op->o_req_dn.bv_val != op->o_req_ndn.bv_val ) {
 225                 dn = op->o_req_dn;
 226                 rc = rwm_dn_massage_pretty_normalize( &dc, &op->o_req_dn, &dn, &ndn );
 227         } else {
 228                 rc = rwm_dn_massage_normalize( &dc, &op->o_req_ndn, &ndn );
 229         }
 230
 231         if ( rc != LDAP_SUCCESS ) {
 232                 return rc;
 233         }
 234
 235         if ( ( op->o_req_dn.bv_val != op->o_req_ndn.bv_val && dn.bv_val == op->o_req_dn.bv_val )
 236                         || ndn.bv_val == op->o_req_ndn.bv_val )
 237         {
 238                 return LDAP_SUCCESS;
 239         }
 240
 241         if ( op->o_req_dn.bv_val != op->o_req_ndn.bv_val ) {
 242                 op->o_req_dn = dn;
 243                 assert( BER_BVISNULL( &ros->r_dn ) );
 244                 ros->r_dn = dn;
 245         } else {
 246                 op->o_req_dn = ndn;
 247         }
 248         op->o_req_ndn = ndn;
 249         assert( BER_BVISNULL( &ros->r_ndn ) );
 250         ros->r_ndn = ndn;
 251
 252         if ( ros->r_tag == LDAP_REQ_EXTENDED ) {
 253                 ros->rx_dn = ros->r_dn;
 254                 ros->rx_ndn = ros->r_ndn;
 255         }
 256
 257         return LDAP_SUCCESS;
 258 }
 259
 260 static int
 261 rwm_op_add( Operation *op, SlapReply *rs )
 262 {
 263         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 264         struct ldaprwmap        *rwmap =
 265                         (struct ldaprwmap *)on->on_bi.bi_private;
 266
 267         int                     rc,
 268                                 i;
 269         Attribute               **ap = NULL;
 270         char                    *olddn = op->o_req_dn.bv_val;
 271         int                     isupdate;
 272
 273         rwm_op_cb               *roc = rwm_callback_get( op );
 274
 275         rc = rwm_op_dn_massage( op, rs, "addDN", &roc->ros );
 276         if ( rc != LDAP_SUCCESS ) {
 277                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 278                 send_ldap_error( op, rs, rc, "addDN massage error" );
 279                 return -1;
 280         }
 281
 282         if ( olddn != op->o_req_dn.bv_val ) {
 283                 ber_bvreplace( &op->ora_e->e_name, &op->o_req_dn );
 284                 ber_bvreplace( &op->ora_e->e_nname, &op->o_req_ndn );
 285         }
 286
 287         /* Count number of attributes in entry */
 288         isupdate = be_shadow_update( op );
 289         for ( i = 0, ap = &op->oq_add.rs_e->e_attrs; *ap; ) {
 290                 Attribute       *a;
 291
 292                 if ( (*ap)->a_desc == slap_schema.si_ad_objectClass ||
 293                                 (*ap)->a_desc == slap_schema.si_ad_structuralObjectClass )
 294                 {
 295                         int             j, last;
 296
 297                         last = (*ap)->a_numvals - 1;
 298                         for ( j = 0; !BER_BVISNULL( &(*ap)->a_vals[ j ] ); j++ ) {
 299                                 struct ldapmapping      *mapping = NULL;
 300
 301                                 ( void )rwm_mapping( &rwmap->rwm_oc, &(*ap)->a_vals[ j ],
 302                                                 &mapping, RWM_MAP );
 303                                 if ( mapping == NULL ) {
 304                                         if ( rwmap->rwm_at.drop_missing ) {
 305                                                 /* FIXME: we allow to remove objectClasses as well;
 306                                                  * if the resulting entry is inconsistent, that's
 307                                                  * the relayed database's business...
 308                                                  */
 309                                                 ch_free( (*ap)->a_vals[ j ].bv_val );
 310                                                 if ( last > j ) {
 311                                                         (*ap)->a_vals[ j ] = (*ap)->a_vals[ last ];
 312                                                 }
 313                                                 BER_BVZERO( &(*ap)->a_vals[ last ] );
 314                                                 (*ap)->a_numvals--;
 315                                                 last--;
 316                                                 j--;
 317                                         }
 318
 319                                 } else {
 320                                         ch_free( (*ap)->a_vals[ j ].bv_val );
 321                                         ber_dupbv( &(*ap)->a_vals[ j ], &mapping->m_dst );
 322                                 }
 323                         }
 324
 325                 } else if ( !isupdate && !get_relax( op ) && (*ap)->a_desc->ad_type->sat_no_user_mod )
 326                 {
 327                         goto next_attr;
 328
 329                 } else {
 330                         struct ldapmapping      *mapping = NULL;
 331
 332                         ( void )rwm_mapping( &rwmap->rwm_at, &(*ap)->a_desc->ad_cname,
 333                                         &mapping, RWM_MAP );
 334                         if ( mapping == NULL ) {
 335                                 if ( rwmap->rwm_at.drop_missing ) {
 336                                         goto cleanup_attr;
 337                                 }
 338                         }
 339
 340                         if ( (*ap)->a_desc->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName
 341                                         || ( mapping != NULL && mapping->m_dst_ad->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName ) )
 342                         {
 343                                 /*
 344                                  * FIXME: rewrite could fail; in this case
 345                                  * the operation should give up, right?
 346                                  */
 347                                 rc = rwm_dnattr_rewrite( op, rs, "addAttrDN",
 348                                                 (*ap)->a_vals,
 349                                                 (*ap)->a_nvals ? &(*ap)->a_nvals : NULL );
 350                                 if ( rc ) {
 351                                         goto cleanup_attr;
 352                                 }
 353
 354                         } else if ( (*ap)->a_desc == slap_schema.si_ad_ref ) {
 355                                 rc = rwm_referral_rewrite( op, rs, "referralAttrDN",
 356                                                 (*ap)->a_vals,
 357                                                 (*ap)->a_nvals ? &(*ap)->a_nvals : NULL );
 358                                 if ( rc != LDAP_SUCCESS ) {
 359                                         goto cleanup_attr;
 360                                 }
 361                         }
 362
 363                         if ( mapping != NULL ) {
 364                                 assert( mapping->m_dst_ad != NULL );
 365                                 (*ap)->a_desc = mapping->m_dst_ad;
 366                         }
 367                 }
 368
 369 next_attr:;
 370                 ap = &(*ap)->a_next;
 371                 continue;
 372
 373 cleanup_attr:;
 374                 /* FIXME: leaking attribute/values? */
 375                 a = *ap;
 376
 377                 *ap = (*ap)->a_next;
 378                 attr_free( a );
 379         }
 380
 381         op->o_callback = &roc->cb;
 382
 383         return SLAP_CB_CONTINUE;
 384 }
 385
 386 static int
 387 rwm_conn_init( BackendDB *be, Connection *conn )
 388 {
 389         slap_overinst           *on = (slap_overinst *) be->bd_info;
 390         struct ldaprwmap        *rwmap =
 391                         (struct ldaprwmap *)on->on_bi.bi_private;
 392
 393         ( void )rewrite_session_init( rwmap->rwm_rw, conn );
 394
 395         return SLAP_CB_CONTINUE;
 396 }
 397
 398 static int
 399 rwm_conn_destroy( BackendDB *be, Connection *conn )
 400 {
 401         slap_overinst           *on = (slap_overinst *) be->bd_info;
 402         struct ldaprwmap        *rwmap =
 403                         (struct ldaprwmap *)on->on_bi.bi_private;
 404
 405         ( void )rewrite_session_delete( rwmap->rwm_rw, conn );
 406
 407         return SLAP_CB_CONTINUE;
 408 }
 409
 410 static int
 411 rwm_op_bind( Operation *op, SlapReply *rs )
 412 {
 413         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 414         int                     rc;
 415
 416         rwm_op_cb               *roc = rwm_callback_get( op );
 417
 418         rc = rwm_op_dn_massage( op, rs, "bindDN", &roc->ros );
 419         if ( rc != LDAP_SUCCESS ) {
 420                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 421                 send_ldap_error( op, rs, rc, "bindDN massage error" );
 422                 return -1;
 423         }
 424
 425         overlay_callback_after_backover( op, &roc->cb, 1 );
 426
 427         return SLAP_CB_CONTINUE;
 428 }
 429
 430 static int
 431 rwm_op_unbind( Operation *op, SlapReply *rs )
 432 {
 433         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 434         struct ldaprwmap        *rwmap =
 435                         (struct ldaprwmap *)on->on_bi.bi_private;
 436
 437         rewrite_session_delete( rwmap->rwm_rw, op->o_conn );
 438
 439         return SLAP_CB_CONTINUE;
 440 }
 441
 442 static int
 443 rwm_op_compare( Operation *op, SlapReply *rs )
 444 {
 445         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 446         struct ldaprwmap        *rwmap =
 447                         (struct ldaprwmap *)on->on_bi.bi_private;
 448
 449         int                     rc;
 450         struct berval           mapped_vals[2] = { BER_BVNULL, BER_BVNULL };
 451
 452         rwm_op_cb               *roc = rwm_callback_get( op );
 453
 454         rc = rwm_op_dn_massage( op, rs, "compareDN", &roc->ros );
 455         if ( rc != LDAP_SUCCESS ) {
 456                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 457                 send_ldap_error( op, rs, rc, "compareDN massage error" );
 458                 return -1;
 459         }
 460
 461         /* if the attribute is an objectClass, try to remap its value */
 462         if ( op->orc_ava->aa_desc == slap_schema.si_ad_objectClass
 463                         || op->orc_ava->aa_desc == slap_schema.si_ad_structuralObjectClass )
 464         {
 465                 rwm_map( &rwmap->rwm_oc, &op->orc_ava->aa_value,
 466                                 &mapped_vals[0], RWM_MAP );
 467                 if ( BER_BVISNULL( &mapped_vals[0] ) || BER_BVISEMPTY( &mapped_vals[0] ) )
 468                 {
 469                         op->o_bd->bd_info = (BackendInfo *)on->on_info;
 470                         send_ldap_error( op, rs, LDAP_OTHER, "compare objectClass map error" );
 471                         return -1;
 472
 473                 } else if ( mapped_vals[0].bv_val != op->orc_ava->aa_value.bv_val ) {
 474                         ber_dupbv_x( &op->orc_ava->aa_value, &mapped_vals[0],
 475                                 op->o_tmpmemctx );
 476                 }
 477
 478         } else {
 479                 struct ldapmapping      *mapping = NULL;
 480                 AttributeDescription    *ad = op->orc_ava->aa_desc;
 481
 482                 ( void )rwm_mapping( &rwmap->rwm_at, &op->orc_ava->aa_desc->ad_cname,
 483                                 &mapping, RWM_MAP );
 484                 if ( mapping == NULL ) {
 485                         if ( rwmap->rwm_at.drop_missing ) {
 486                                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 487                                 send_ldap_error( op, rs, LDAP_OTHER, "compare attributeType map error" );
 488                                 return -1;
 489                         }
 490
 491                 } else {
 492                         assert( mapping->m_dst_ad != NULL );
 493                         ad = mapping->m_dst_ad;
 494                 }
 495
 496                 if ( op->orc_ava->aa_desc->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName
 497                                 || ( mapping != NULL && mapping->m_dst_ad->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName ) )
 498                 {
 499                         struct berval   *mapped_valsp[2];
 500
 501                         mapped_valsp[0] = &mapped_vals[0];
 502                         mapped_valsp[1] = &mapped_vals[1];
 503
 504                         mapped_vals[0] = op->orc_ava->aa_value;
 505
 506                         rc = rwm_dnattr_rewrite( op, rs, "compareAttrDN", NULL, mapped_valsp );
 507
 508                         if ( rc != LDAP_SUCCESS ) {
 509                                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 510                                 send_ldap_error( op, rs, rc, "compareAttrDN massage error" );
 511                                 return -1;
 512                         }
 513
 514                         if ( mapped_vals[ 0 ].bv_val != op->orc_ava->aa_value.bv_val ) {
 515                                 /* NOTE: if we get here, rwm_dnattr_rewrite()
 516                                  * already freed the old value, so now
 517                                  * it's invalid */
 518                                 ber_dupbv_x( &op->orc_ava->aa_value, &mapped_vals[0],
 519                                         op->o_tmpmemctx );
 520                                 ber_memfree_x( mapped_vals[ 0 ].bv_val, NULL );
 521                         }
 522                 }
 523                 op->orc_ava->aa_desc = ad;
 524         }
 525
 526         op->o_callback = &roc->cb;
 527
 528         return SLAP_CB_CONTINUE;
 529 }
 530
 531 static int
 532 rwm_op_delete( Operation *op, SlapReply *rs )
 533 {
 534         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 535         int                     rc;
 536
 537         rwm_op_cb               *roc = rwm_callback_get( op );
 538
 539         rc = rwm_op_dn_massage( op, rs, "deleteDN", &roc->ros );
 540         if ( rc != LDAP_SUCCESS ) {
 541                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 542                 send_ldap_error( op, rs, rc, "deleteDN massage error" );
 543                 return -1;
 544         }
 545
 546         op->o_callback = &roc->cb;
 547
 548         return SLAP_CB_CONTINUE;
 549 }
 550
 551 static int
 552 rwm_op_modify( Operation *op, SlapReply *rs )
 553 {
 554         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 555         struct ldaprwmap        *rwmap =
 556                         (struct ldaprwmap *)on->on_bi.bi_private;
 557
 558         int                     isupdate;
 559         Modifications           **mlp;
 560         int                     rc;
 561
 562         rwm_op_cb               *roc = rwm_callback_get( op );
 563
 564         rc = rwm_op_dn_massage( op, rs, "modifyDN", &roc->ros );
 565         if ( rc != LDAP_SUCCESS ) {
 566                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 567                 send_ldap_error( op, rs, rc, "modifyDN massage error" );
 568                 return -1;
 569         }
 570
 571         isupdate = be_shadow_update( op );
 572         for ( mlp = &op->orm_modlist; *mlp; ) {
 573                 int                     is_oc = 0;
 574                 Modifications           *ml = *mlp;
 575                 struct ldapmapping      *mapping = NULL;
 576
 577                 /* ml points to a temporary mod until needs duplication */
 578                 if ( ml->sml_desc == slap_schema.si_ad_objectClass
 579                                 || ml->sml_desc == slap_schema.si_ad_structuralObjectClass )
 580                 {
 581                         is_oc = 1;
 582
 583                 } else if ( !isupdate && !get_relax( op ) && ml->sml_desc->ad_type->sat_no_user_mod  )
 584                 {
 585                         ml = ch_malloc( sizeof( Modifications ) );
 586                         *ml = **mlp;
 587                         if ( (*mlp)->sml_values ) {
 588                                 ber_bvarray_dup_x( &ml->sml_values, (*mlp)->sml_values, NULL );
 589                                 if ( (*mlp)->sml_nvalues ) {
 590                                         ber_bvarray_dup_x( &ml->sml_nvalues, (*mlp)->sml_nvalues, NULL );
 591                                 }
 592                         }
 593                         *mlp = ml;
 594                         goto next_mod;
 595
 596                 } else {
 597                         int                     drop_missing;
 598
 599                         drop_missing = rwm_mapping( &rwmap->rwm_at,
 600                                         &ml->sml_desc->ad_cname,
 601                                         &mapping, RWM_MAP );
 602                         if ( drop_missing || ( mapping != NULL && BER_BVISNULL( &mapping->m_dst ) ) )
 603                         {
 604                                 goto skip_mod;
 605                         }
 606                 }
 607
 608                 /* duplicate the modlist */
 609                 ml = ch_malloc( sizeof( Modifications ));
 610                 *ml = **mlp;
 611                 *mlp = ml;
 612
 613                 if ( ml->sml_values != NULL ) {
 614                         int i, num;
 615                         struct berval *bva;
 616
 617                         for ( num = 0; !BER_BVISNULL( &ml->sml_values[ num ] ); num++ )
 618                                 /* count values */ ;
 619
 620                         bva = ch_malloc( (num+1) * sizeof( struct berval ));
 621                         for (i=0; i<num; i++)
 622                                 ber_dupbv( &bva[i], &ml->sml_values[i] );
 623                         BER_BVZERO( &bva[i] );
 624                         ml->sml_values = bva;
 625
 626                         if ( ml->sml_nvalues ) {
 627                                 bva = ch_malloc( (num+1) * sizeof( struct berval ));
 628                                 for (i=0; i<num; i++)
 629                                         ber_dupbv( &bva[i], &ml->sml_nvalues[i] );
 630                                 BER_BVZERO( &bva[i] );
 631                                 ml->sml_nvalues = bva;
 632                         }
 633
 634                         if ( is_oc ) {
 635                                 int     last, j;
 636
 637                                 last = num-1;
 638
 639                                 for ( j = 0; !BER_BVISNULL( &ml->sml_values[ j ] ); j++ ) {
 640                                         struct ldapmapping      *oc_mapping = NULL;
 641
 642                                         ( void )rwm_mapping( &rwmap->rwm_oc, &ml->sml_values[ j ],
 643                                                         &oc_mapping, RWM_MAP );
 644                                         if ( oc_mapping == NULL ) {
 645                                                 if ( rwmap->rwm_at.drop_missing ) {
 646                                                         /* FIXME: we allow to remove objectClasses as well;
 647                                                          * if the resulting entry is inconsistent, that's
 648                                                          * the relayed database's business...
 649                                                          */
 650                                                         if ( last > j ) {
 651                                                                 ch_free( ml->sml_values[ j ].bv_val );
 652                                                                 ml->sml_values[ j ] = ml->sml_values[ last ];
 653                                                         }
 654                                                         BER_BVZERO( &ml->sml_values[ last ] );
 655                                                         last--;
 656                                                         j--;
 657                                                 }
 658
 659                                         } else {
 660                                                 ch_free( ml->sml_values[ j ].bv_val );
 661                                                 ber_dupbv( &ml->sml_values[ j ], &oc_mapping->m_dst );
 662                                         }
 663                                 }
 664
 665                         } else {
 666                                 if ( ml->sml_desc->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName
 667                                                 || ( mapping != NULL && mapping->m_dst_ad->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName ) )
 668                                 {
 669                                         rc = rwm_dnattr_rewrite( op, rs, "modifyAttrDN",
 670                                                         ml->sml_values,
 671                                                         ml->sml_nvalues ? &ml->sml_nvalues : NULL );
 672
 673                                 } else if ( ml->sml_desc == slap_schema.si_ad_ref ) {
 674                                         rc = rwm_referral_rewrite( op, rs,
 675                                                         "referralAttrDN",
 676                                                         ml->sml_values,
 677                                                         ml->sml_nvalues ? &ml->sml_nvalues : NULL );
 678                                         if ( rc != LDAP_SUCCESS ) {
 679                                                 goto cleanup_mod;
 680                                         }
 681                                 }
 682
 683                                 if ( rc != LDAP_SUCCESS ) {
 684                                         goto cleanup_mod;
 685                                 }
 686                         }
 687                 }
 688
 689 next_mod:;
 690                 if ( mapping != NULL ) {
 691                         /* use new attribute description */
 692                         assert( mapping->m_dst_ad != NULL );
 693                         ml->sml_desc = mapping->m_dst_ad;
 694                 }
 695
 696                 mlp = &ml->sml_next;
 697                 continue;
 698
 699 skip_mod:;
 700                 *mlp = (*mlp)->sml_next;
 701                 continue;
 702
 703 cleanup_mod:;
 704                 ml = *mlp;
 705                 *mlp = (*mlp)->sml_next;
 706                 slap_mod_free( &ml->sml_mod, 0 );
 707                 free( ml );
 708         }
 709
 710         op->o_callback = &roc->cb;
 711
 712         return SLAP_CB_CONTINUE;
 713 }
 714
 715 static int
 716 rwm_op_modrdn( Operation *op, SlapReply *rs )
 717 {
 718         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 719         struct ldaprwmap        *rwmap =
 720                         (struct ldaprwmap *)on->on_bi.bi_private;
 721
 722         int                     rc;
 723         dncookie                dc;
 724
 725         rwm_op_cb               *roc = rwm_callback_get( op );
 726
 727         if ( op->orr_newSup ) {
 728                 struct berval   nnewSup = BER_BVNULL;
 729                 struct berval   newSup = BER_BVNULL;
 730
 731                 /*
 732                  * Rewrite the new superior, if defined and required
 733                  */
 734                 dc.rwmap = rwmap;
 735                 dc.conn = op->o_conn;
 736                 dc.rs = rs;
 737                 dc.ctx = "newSuperiorDN";
 738                 newSup = *op->orr_newSup;
 739                 nnewSup = *op->orr_nnewSup;
 740                 rc = rwm_dn_massage_pretty_normalize( &dc, op->orr_newSup, &newSup, &nnewSup );
 741                 if ( rc != LDAP_SUCCESS ) {
 742                         op->o_bd->bd_info = (BackendInfo *)on->on_info;
 743                         send_ldap_error( op, rs, rc, "newSuperiorDN massage error" );
 744                         return -1;
 745                 }
 746
 747                 if ( op->orr_newSup->bv_val != newSup.bv_val ) {
 748                         op->orr_newSup = op->o_tmpalloc( sizeof( struct berval ),
 749                                 op->o_tmpmemctx );
 750                         op->orr_nnewSup = op->o_tmpalloc( sizeof( struct berval ),
 751                                 op->o_tmpmemctx );
 752                         *op->orr_newSup = newSup;
 753                         *op->orr_nnewSup = nnewSup;
 754                 }
 755         }
 756
 757         /*
 758          * Rewrite the newRDN, if needed
 759          */
 760         {
 761                 struct berval   newrdn = BER_BVNULL;
 762                 struct berval   nnewrdn = BER_BVNULL;
 763
 764                 dc.rwmap = rwmap;
 765                 dc.conn = op->o_conn;
 766                 dc.rs = rs;
 767                 dc.ctx = "newRDN";
 768                 newrdn = op->orr_newrdn;
 769                 nnewrdn = op->orr_nnewrdn;
 770                 rc = rwm_dn_massage_pretty_normalize( &dc, &op->orr_newrdn, &newrdn, &nnewrdn );
 771                 if ( rc != LDAP_SUCCESS ) {
 772                         op->o_bd->bd_info = (BackendInfo *)on->on_info;
 773                         send_ldap_error( op, rs, rc, "newRDN massage error" );
 774                         goto err;
 775                 }
 776
 777                 if ( op->orr_newrdn.bv_val != newrdn.bv_val ) {
 778                         op->orr_newrdn = newrdn;
 779                         op->orr_nnewrdn = nnewrdn;
 780                 }
 781         }
 782
 783         /*
 784          * Rewrite the dn, if needed
 785          */
 786         rc = rwm_op_dn_massage( op, rs, "renameDN", &roc->ros );
 787         if ( rc != LDAP_SUCCESS ) {
 788                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
 789                 send_ldap_error( op, rs, rc, "renameDN massage error" );
 790                 goto err;
 791         }
 792
 793         op->o_callback = &roc->cb;
 794
 795         rc = SLAP_CB_CONTINUE;
 796
 797         if ( 0 ) {
 798 err:;
 799                 if ( op->orr_newSup != roc->ros.orr_newSup ) {
 800                         ch_free( op->orr_newSup->bv_val );
 801                         ch_free( op->orr_nnewSup->bv_val );
 802                         op->o_tmpfree( op->orr_newSup, op->o_tmpmemctx );
 803                         op->o_tmpfree( op->orr_nnewSup, op->o_tmpmemctx );
 804                         op->orr_newSup = roc->ros.orr_newSup;
 805                         op->orr_nnewSup = roc->ros.orr_nnewSup;
 806                 }
 807
 808                 if ( op->orr_newrdn.bv_val != roc->ros.orr_newrdn.bv_val ) {
 809                         ch_free( op->orr_newrdn.bv_val );
 810                         ch_free( op->orr_nnewrdn.bv_val );
 811                         op->orr_newrdn = roc->ros.orr_newrdn;
 812                         op->orr_nnewrdn = roc->ros.orr_nnewrdn;
 813                 }
 814         }
 815
 816         return rc;
 817 }
 818
 819
 820 static int
 821 rwm_swap_attrs( Operation *op, SlapReply *rs )
 822 {
 823         slap_callback   *cb = op->o_callback;
 824         rwm_op_state *ros = cb->sc_private;
 825
 826         rs->sr_attrs = ros->ors_attrs;
 827
 828         /* other overlays might have touched op->ors_attrs,
 829          * so we restore the original version here, otherwise
 830          * attribute-mapping might fail */
 831         op->ors_attrs = ros->mapped_attrs;
 832
 833         return SLAP_CB_CONTINUE;
 834 }
 835
 836 /*
 837  * NOTE: this implementation of get/release entry is probably far from
 838  * optimal.  The rationale consists in intercepting the request directed
 839  * to the underlying database, in order to rewrite/remap the request,
 840  * perform it using the modified data, duplicate the resulting entry
 841  * and finally free it when release is called.
 842  * This implies that subsequent overlays are not called, as the request
 843  * is directly shunted to the underlying database.
 844  */
 845 static int
 846 rwm_entry_release_rw( Operation *op, Entry *e, int rw )
 847 {
 848         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 849
 850         /* can't be ours */
 851         if ( ((BackendInfo *)on->on_info->oi_orig)->bi_entry_get_rw == NULL ) {
 852                 return SLAP_CB_CONTINUE;
 853         }
 854
 855         /* just free entry if (probably) ours */
 856         if ( e->e_private == NULL && BER_BVISNULL( &e->e_bv ) ) {
 857                 entry_free( e );
 858                 return LDAP_SUCCESS;
 859         }
 860
 861         return SLAP_CB_CONTINUE;
 862 }
 863
 864 static int
 865 rwm_entry_get_rw( Operation *op, struct berval *ndn,
 866         ObjectClass *oc, AttributeDescription *at, int rw, Entry **ep )
 867 {
 868         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 869         int                     rc;
 870         BackendDB               db;
 871         Operation               op2;
 872         SlapReply               rs = { REP_SEARCH };
 873
 874         rwm_op_state            ros = { 0 };
 875         struct berval           mndn = BER_BVNULL;
 876
 877         if ( ((BackendInfo *)on->on_info->oi_orig)->bi_entry_get_rw == NULL ) {
 878                 return SLAP_CB_CONTINUE;
 879         }
 880
 881         /* massage DN */
 882         op2.o_tag = LDAP_REQ_SEARCH;
 883         op2 = *op;
 884         op2.o_req_dn = *ndn;
 885         op2.o_req_ndn = *ndn;
 886         rc = rwm_op_dn_massage( &op2, &rs, "searchDN", &ros );
 887         if ( rc != LDAP_SUCCESS ) {
 888                 return LDAP_OTHER;
 889         }
 890
 891         mndn = BER_BVISNULL( &ros.r_ndn ) ? *ndn : ros.r_ndn;
 892
 893         /* map attribute & objectClass */
 894         if ( at != NULL ) {
 895         }
 896
 897         if ( oc != NULL ) {
 898         }
 899
 900         /* fetch entry */
 901         db = *op->o_bd;
 902         op2.o_bd = &db;
 903         op2.o_bd->bd_info = (BackendInfo *)on->on_info->oi_orig;
 904         op2.ors_attrs = slap_anlist_all_attributes;
 905         rc = op2.o_bd->bd_info->bi_entry_get_rw( &op2, &mndn, oc, at, rw, ep );
 906         if ( rc == LDAP_SUCCESS && *ep != NULL ) {
 907                 /* we assume be_entry_release() needs to be called */
 908                 rs.sr_flags = REP_ENTRY_MUSTRELEASE;
 909                 rs.sr_entry = *ep;
 910
 911                 /* duplicate & release */
 912                 op2.o_bd->bd_info = (BackendInfo *)on;
 913                 rc = rwm_send_entry( &op2, &rs );
 914                 RS_ASSERT( rs.sr_flags & REP_ENTRY_MUSTFLUSH );
 915                 if ( rc == SLAP_CB_CONTINUE ) {
 916                         *ep = rs.sr_entry;
 917                         rc = LDAP_SUCCESS;
 918                 } else {
 919                         assert( rc != LDAP_SUCCESS && rs.sr_entry == *ep );
 920                         *ep = NULL;
 921                         op2.o_bd->bd_info = (BackendInfo *)on->on_info;
 922                         be_entry_release_r( &op2, rs.sr_entry );
 923                         op2.o_bd->bd_info = (BackendInfo *)on;
 924                 }
 925         }
 926
 927         if ( !BER_BVISNULL( &ros.r_ndn) && ros.r_ndn.bv_val != ndn->bv_val ) {
 928                 op->o_tmpfree( ros.r_ndn.bv_val, op->o_tmpmemctx );
 929         }
 930
 931         return rc;
 932 }
 933
 934 static int
 935 rwm_op_search( Operation *op, SlapReply *rs )
 936 {
 937         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
 938         struct ldaprwmap        *rwmap =
 939                         (struct ldaprwmap *)on->on_bi.bi_private;
 940
 941         int                     rc;
 942         dncookie                dc;
 943
 944         struct berval           fstr = BER_BVNULL;
 945         Filter                  *f = NULL;
 946
 947         AttributeName           *an = NULL;
 948
 949         char                    *text = NULL;
 950
 951         rwm_op_cb               *roc = rwm_callback_get( op );
 952
 953         rc = rewrite_session_var_set( rwmap->rwm_rw, op->o_conn,
 954                 "searchFilter", op->ors_filterstr.bv_val );
 955         if ( rc == LDAP_SUCCESS )
 956                 rc = rwm_op_dn_massage( op, rs, "searchDN", &roc->ros );
 957         if ( rc != LDAP_SUCCESS ) {
 958                 text = "searchDN massage error";
 959                 goto error_return;
 960         }
 961
 962         /*
 963          * Rewrite the dn if needed
 964          */
 965         dc.rwmap = rwmap;
 966         dc.conn = op->o_conn;
 967         dc.rs = rs;
 968         dc.ctx = "searchFilterAttrDN";
 969
 970         rc = rwm_filter_map_rewrite( op, &dc, op->ors_filter, &fstr );
 971         if ( rc != LDAP_SUCCESS ) {
 972                 text = "searchFilter/searchFilterAttrDN massage error";
 973                 goto error_return;
 974         }
 975
 976         f = str2filter_x( op, fstr.bv_val );
 977
 978         if ( f == NULL ) {
 979                 text = "massaged filter parse error";
 980                 goto error_return;
 981         }
 982
 983         op->ors_filter = f;
 984         op->ors_filterstr = fstr;
 985
 986         rc = rwm_map_attrnames( op, &rwmap->rwm_at, &rwmap->rwm_oc,
 987                         op->ors_attrs, &an, RWM_MAP );
 988         if ( rc != LDAP_SUCCESS ) {
 989                 text = "attribute list mapping error";
 990                 goto error_return;
 991         }
 992
 993         op->ors_attrs = an;
 994         /* store the mapped Attributes for later usage, in
 995          * the case that other overlays change op->ors_attrs */
 996         roc->ros.mapped_attrs = an;
 997         roc->cb.sc_response = rwm_swap_attrs;
 998
 999         op->o_callback = &roc->cb;
1000
1001         return SLAP_CB_CONTINUE;
1002
1003 error_return:;
1004         if ( an != NULL ) {
1005                 ch_free( an );
1006         }
1007
1008         if ( f != NULL ) {
1009                 filter_free_x( op, f, 1 );
1010         }
1011
1012         if ( !BER_BVISNULL( &fstr ) ) {
1013                 op->o_tmpfree( fstr.bv_val, op->o_tmpmemctx );
1014         }
1015
1016         rwm_op_rollback( op, rs, &roc->ros );
1017         op->oq_search = roc->ros.oq_search;
1018         op->o_tmpfree( roc, op->o_tmpmemctx );
1019
1020         op->o_bd->bd_info = (BackendInfo *)on->on_info;
1021         send_ldap_error( op, rs, rc, text );
1022
1023         return -1;
1024
1025 }
1026
1027 static int
1028 rwm_exop_passwd( Operation *op, SlapReply *rs )
1029 {
1030         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1031         int                     rc;
1032         rwm_op_cb *roc;
1033
1034         struct berval   id = BER_BVNULL,
1035                         pwold = BER_BVNULL,
1036                         pwnew = BER_BVNULL;
1037         BerElement *ber = NULL;
1038
1039         if ( !BER_BVISNULL( &op->o_req_ndn ) ) {
1040                 return LDAP_SUCCESS;
1041         }
1042
1043         if ( !SLAP_ISGLOBALOVERLAY( op->o_bd ) ) {
1044                 rs->sr_err = LDAP_OTHER;
1045                 return rs->sr_err;
1046         }
1047
1048         rs->sr_err = slap_passwd_parse( op->ore_reqdata, &id,
1049                 &pwold, &pwnew, &rs->sr_text );
1050         if ( rs->sr_err != LDAP_SUCCESS ) {
1051                 return rs->sr_err;
1052         }
1053
1054         if ( !BER_BVISNULL( &id ) ) {
1055                 char idNul = id.bv_val[id.bv_len];
1056                 id.bv_val[id.bv_len] = '\0';
1057                 rs->sr_err = dnPrettyNormal( NULL, &id, &op->o_req_dn,
1058                                 &op->o_req_ndn, op->o_tmpmemctx );
1059                 id.bv_val[id.bv_len] = idNul;
1060                 if ( rs->sr_err != LDAP_SUCCESS ) {
1061                         rs->sr_text = "Invalid DN";
1062                         return rs->sr_err;
1063                 }
1064
1065         } else {
1066                 ber_dupbv_x( &op->o_req_dn, &op->o_dn, op->o_tmpmemctx );
1067                 ber_dupbv_x( &op->o_req_ndn, &op->o_ndn, op->o_tmpmemctx );
1068         }
1069
1070         roc = rwm_callback_get( op );
1071
1072         rc = rwm_op_dn_massage( op, rs, "extendedDN", &roc->ros );
1073         if ( rc != LDAP_SUCCESS ) {
1074                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
1075                 send_ldap_error( op, rs, rc, "extendedDN massage error" );
1076                 return -1;
1077         }
1078
1079         ber = ber_alloc_t( LBER_USE_DER );
1080         if ( !ber ) {
1081                 rs->sr_err = LDAP_OTHER;
1082                 rs->sr_text = "No memory";
1083                 return rs->sr_err;
1084         }
1085         ber_printf( ber, "{" );
1086         if ( !BER_BVISNULL( &id )) {
1087                 ber_printf( ber, "tO", LDAP_TAG_EXOP_MODIFY_PASSWD_ID,
1088                         &op->o_req_dn );
1089         }
1090         if ( !BER_BVISNULL( &pwold )) {
1091                 ber_printf( ber, "tO", LDAP_TAG_EXOP_MODIFY_PASSWD_OLD, &pwold );
1092         }
1093         if ( !BER_BVISNULL( &pwnew )) {
1094                 ber_printf( ber, "tO", LDAP_TAG_EXOP_MODIFY_PASSWD_NEW, &pwnew );
1095         }
1096         ber_printf( ber, "N}" );
1097         ber_flatten( ber, &op->ore_reqdata );
1098         ber_free( ber, 1 );
1099
1100         op->o_callback = &roc->cb;
1101
1102         return SLAP_CB_CONTINUE;
1103 }
1104
1105 static struct exop {
1106         struct berval   oid;
1107         BI_op_extended  *extended;
1108 } exop_table[] = {
1109         { BER_BVC(LDAP_EXOP_MODIFY_PASSWD),     rwm_exop_passwd },
1110         { BER_BVNULL, NULL }
1111 };
1112
1113 static int
1114 rwm_extended( Operation *op, SlapReply *rs )
1115 {
1116         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1117         int                     rc;
1118         rwm_op_cb *roc;
1119
1120         int     i;
1121
1122         for ( i = 0; exop_table[i].extended != NULL; i++ ) {
1123                 if ( bvmatch( &exop_table[i].oid, &op->oq_extended.rs_reqoid ) )
1124                 {
1125                         rc = exop_table[i].extended( op, rs );
1126                         switch ( rc ) {
1127                         case LDAP_SUCCESS:
1128                                 break;
1129
1130                         case SLAP_CB_CONTINUE:
1131                         case SLAPD_ABANDON:
1132                                 return rc;
1133
1134                         default:
1135                                 send_ldap_result( op, rs );
1136                                 return rc;
1137                         }
1138                         break;
1139                 }
1140         }
1141
1142         roc = rwm_callback_get( op );
1143
1144         rc = rwm_op_dn_massage( op, rs, "extendedDN", &roc->ros );
1145         if ( rc != LDAP_SUCCESS ) {
1146                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
1147                 send_ldap_error( op, rs, rc, "extendedDN massage error" );
1148                 return -1;
1149         }
1150
1151         /* TODO: rewrite/map extended data ? ... */
1152         op->o_callback = &roc->cb;
1153
1154         return SLAP_CB_CONTINUE;
1155 }
1156
1157 static int
1158 rwm_matched( Operation *op, SlapReply *rs )
1159 {
1160         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1161         struct ldaprwmap        *rwmap =
1162                         (struct ldaprwmap *)on->on_bi.bi_private;
1163
1164         struct berval           dn, mdn;
1165         dncookie                dc;
1166         int                     rc;
1167
1168         if ( rs->sr_matched == NULL ) {
1169                 return SLAP_CB_CONTINUE;
1170         }
1171
1172         dc.rwmap = rwmap;
1173         dc.conn = op->o_conn;
1174         dc.rs = rs;
1175         dc.ctx = "matchedDN";
1176         ber_str2bv( rs->sr_matched, 0, 0, &dn );
1177         mdn = dn;
1178         rc = rwm_dn_massage_pretty( &dc, &dn, &mdn );
1179         if ( rc != LDAP_SUCCESS ) {
1180                 rs->sr_err = rc;
1181                 rs->sr_text = "Rewrite error";
1182                 return 1;
1183         }
1184
1185         if ( mdn.bv_val != dn.bv_val ) {
1186                 if ( rs->sr_flags & REP_MATCHED_MUSTBEFREED ) {
1187                         ch_free( (void *)rs->sr_matched );
1188
1189                 } else {
1190                         rs->sr_flags |= REP_MATCHED_MUSTBEFREED;
1191                 }
1192                 rs->sr_matched = mdn.bv_val;
1193         }
1194
1195         return SLAP_CB_CONTINUE;
1196 }
1197
1198 static int
1199 rwm_attrs( Operation *op, SlapReply *rs, Attribute** a_first, int stripEntryDN )
1200 {
1201         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1202         struct ldaprwmap        *rwmap =
1203                         (struct ldaprwmap *)on->on_bi.bi_private;
1204
1205         dncookie                dc;
1206         int                     rc;
1207         Attribute               **ap;
1208         int                     isupdate;
1209         int                     check_duplicate_attrs = 0;
1210
1211         /*
1212          * Rewrite the dn attrs, if needed
1213          */
1214         dc.rwmap = rwmap;
1215         dc.conn = op->o_conn;
1216         dc.rs = NULL;
1217
1218         /* FIXME: the entries are in the remote mapping form;
1219          * so we need to select those attributes we are willing
1220          * to return, and remap them accordingly */
1221
1222         /* FIXME: in principle, one could map an attribute
1223          * on top of another, which already exists.
1224          * As such, in the end there might exist more than
1225          * one instance of an attribute.
1226          * We should at least check if this occurs, and issue
1227          * an error (because multiple instances of attrs in
1228          * response are not valid), or merge the values (what
1229          * about duplicate values?) */
1230         isupdate = be_shadow_update( op );
1231         for ( ap = a_first; *ap; ) {
1232                 struct ldapmapping      *mapping = NULL;
1233                 int                     drop_missing;
1234                 int                     last = -1;
1235                 Attribute               *a;
1236
1237                 if ( ( rwmap->rwm_flags & RWM_F_DROP_UNREQUESTED_ATTRS ) &&
1238                                 op->ors_attrs != NULL &&
1239                                 !SLAP_USERATTRS( rs->sr_attr_flags ) &&
1240                                 !ad_inlist( (*ap)->a_desc, op->ors_attrs ) )
1241                 {
1242                         goto cleanup_attr;
1243                 }
1244
1245                 drop_missing = rwm_mapping( &rwmap->rwm_at,
1246                                 &(*ap)->a_desc->ad_cname, &mapping, RWM_REMAP );
1247                 if ( drop_missing || ( mapping != NULL && BER_BVISEMPTY( &mapping->m_dst ) ) )
1248                 {
1249                         goto cleanup_attr;
1250                 }
1251                 if ( mapping != NULL ) {
1252                         assert( mapping->m_dst_ad != NULL );
1253
1254                         /* try to normalize mapped Attributes if the original
1255                          * AttributeType was not normalized */
1256                         if ( (!(*ap)->a_desc->ad_type->sat_equality ||
1257                                 !(*ap)->a_desc->ad_type->sat_equality->smr_normalize) &&
1258                                 mapping->m_dst_ad->ad_type->sat_equality &&
1259                                 mapping->m_dst_ad->ad_type->sat_equality->smr_normalize )
1260                         {
1261                                 if ((rwmap->rwm_flags & RWM_F_NORMALIZE_MAPPED_ATTRS))
1262                                 {
1263                                         int i = 0;
1264
1265                                         last = (*ap)->a_numvals;
1266                                         if ( last )
1267                                         {
1268                                                 (*ap)->a_nvals = ch_malloc( (last+1) * sizeof(struct berval) );
1269
1270                                                 for ( i = 0; !BER_BVISNULL( &(*ap)->a_vals[i]); i++ ) {
1271                                                         int             rc;
1272                                                         /*
1273                                                          * check that each value is valid per syntax
1274                                                          * and pretty if appropriate
1275                                                          */
1276                                                         rc = mapping->m_dst_ad->ad_type->sat_equality->smr_normalize(
1277                                                                 SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX,
1278                                                                 mapping->m_dst_ad->ad_type->sat_syntax,
1279                                                                 mapping->m_dst_ad->ad_type->sat_equality,
1280                                                                 &(*ap)->a_vals[i], &(*ap)->a_nvals[i],
1281                                                                 NULL );
1282
1283                                                         if ( rc != LDAP_SUCCESS ) {
1284                                                                 BER_BVZERO( &(*ap)->a_nvals[i] );
1285                                                         }
1286                                                 }
1287                                                 BER_BVZERO( &(*ap)->a_nvals[i] );
1288                                         }
1289
1290                                 } else {
1291                                         assert( (*ap)->a_nvals == (*ap)->a_vals );
1292                                         (*ap)->a_nvals = NULL;
1293                                         ber_bvarray_dup_x( &(*ap)->a_nvals, (*ap)->a_vals, NULL );
1294                                 }
1295                         }
1296
1297                         /* rewrite the attribute description */
1298                         (*ap)->a_desc = mapping->m_dst_ad;
1299
1300                         /* will need to check for duplicate attrs */
1301                         check_duplicate_attrs++;
1302                 }
1303
1304                 if ( (*ap)->a_desc == slap_schema.si_ad_entryDN ) {
1305                         if ( stripEntryDN ) {
1306                                 /* will be generated by frontend */
1307                                 goto cleanup_attr;
1308                         }
1309
1310                 } else if ( !isupdate
1311                         && !get_relax( op )
1312                         && (*ap)->a_desc->ad_type->sat_no_user_mod
1313                         && (*ap)->a_desc->ad_type != slap_schema.si_at_undefined )
1314                 {
1315                         goto next_attr;
1316                 }
1317
1318                 if ( last == -1 ) { /* not yet counted */
1319                         last = (*ap)->a_numvals;
1320                 }
1321
1322                 if ( last == 0 ) {
1323                         /* empty? leave it in place because of attrsonly and vlv */
1324                         goto next_attr;
1325                 }
1326                 last--;
1327
1328                 if ( (*ap)->a_desc == slap_schema.si_ad_objectClass
1329                                 || (*ap)->a_desc == slap_schema.si_ad_structuralObjectClass )
1330                 {
1331                         struct berval   *bv;
1332
1333                         for ( bv = (*ap)->a_vals; !BER_BVISNULL( bv ); bv++ ) {
1334                                 struct berval   mapped;
1335
1336                                 rwm_map( &rwmap->rwm_oc, &bv[0], &mapped, RWM_REMAP );
1337                                 if ( BER_BVISNULL( &mapped ) || BER_BVISEMPTY( &mapped ) ) {
1338 remove_oc:;
1339                                         ch_free( bv[0].bv_val );
1340                                         BER_BVZERO( &bv[0] );
1341                                         if ( &(*ap)->a_vals[last] > &bv[0] ) {
1342                                                 bv[0] = (*ap)->a_vals[last];
1343                                                 BER_BVZERO( &(*ap)->a_vals[last] );
1344                                         }
1345                                         last--;
1346                                         bv--;
1347
1348                                 } else if ( mapped.bv_val != bv[0].bv_val
1349                                         && ber_bvstrcasecmp( &mapped, &bv[0] ) != 0 )
1350                                 {
1351                                         int     i;
1352
1353                                         for ( i = 0; !BER_BVISNULL( &(*ap)->a_vals[ i ] ); i++ ) {
1354                                                 if ( &(*ap)->a_vals[ i ] == bv ) {
1355                                                         continue;
1356                                                 }
1357
1358                                                 if ( ber_bvstrcasecmp( &mapped, &(*ap)->a_vals[ i ] ) == 0 ) {
1359                                                         break;
1360                                                 }
1361                                         }
1362
1363                                         if ( !BER_BVISNULL( &(*ap)->a_vals[ i ] ) ) {
1364                                                 goto remove_oc;
1365                                         }
1366
1367                                         /*
1368                                          * FIXME: after LBER_FREEing
1369                                          * the value is replaced by
1370                                          * ch_alloc'ed memory
1371                                          */
1372                                         ber_bvreplace( &bv[0], &mapped );
1373
1374                                         /* FIXME: will need to check
1375                                          * if the structuralObjectClass
1376                                          * changed */
1377                                 }
1378                         }
1379
1380                 /*
1381                  * It is necessary to try to rewrite attributes with
1382                  * dn syntax because they might be used in ACLs as
1383                  * members of groups; since ACLs are applied to the
1384                  * rewritten stuff, no dn-based subject clause could
1385                  * be used at the ldap backend side (see
1386                  * http://www.OpenLDAP.org/faq/data/cache/452.html)
1387                  * The problem can be overcome by moving the dn-based
1388                  * ACLs to the target directory server, and letting
1389                  * everything pass thru the ldap backend. */
1390                 /* FIXME: handle distinguishedName-like syntaxes, like
1391                  * nameAndOptionalUID */
1392                 } else if ( (*ap)->a_desc->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName
1393                                 || ( mapping != NULL && mapping->m_src_ad->ad_type->sat_syntax == slap_schema.si_syn_distinguishedName ) )
1394                 {
1395                         dc.ctx = "searchAttrDN";
1396                         rc = rwm_dnattr_result_rewrite( &dc, (*ap)->a_vals, (*ap)->a_nvals );
1397                         if ( rc != LDAP_SUCCESS ) {
1398                                 goto cleanup_attr;
1399                         }
1400
1401                 } else if ( (*ap)->a_desc == slap_schema.si_ad_ref ) {
1402                         dc.ctx = "searchAttrDN";
1403                         rc = rwm_referral_result_rewrite( &dc, (*ap)->a_vals );
1404                         if ( rc != LDAP_SUCCESS ) {
1405                                 goto cleanup_attr;
1406                         }
1407                 }
1408
1409
1410 next_attr:;
1411                 ap = &(*ap)->a_next;
1412                 continue;
1413
1414 cleanup_attr:;
1415                 a = *ap;
1416                 *ap = (*ap)->a_next;
1417
1418                 attr_free( a );
1419         }
1420
1421         /* only check if some mapping occurred */
1422         if ( check_duplicate_attrs ) {
1423                 for ( ap = a_first; *ap != NULL; ap = &(*ap)->a_next ) {
1424                         Attribute       **tap;
1425
1426                         for ( tap = &(*ap)->a_next; *tap != NULL; ) {
1427                                 if ( (*tap)->a_desc == (*ap)->a_desc ) {
1428                                         Entry           e = { 0 };
1429                                         Modification    mod = { 0 };
1430                                         const char      *text = NULL;
1431                                         char            textbuf[ SLAP_TEXT_BUFLEN ];
1432                                         Attribute       *next = (*tap)->a_next;
1433
1434                                         BER_BVSTR( &e.e_name, "" );
1435                                         BER_BVSTR( &e.e_nname, "" );
1436                                         e.e_attrs = *ap;
1437                                         mod.sm_op = LDAP_MOD_ADD;
1438                                         mod.sm_desc = (*ap)->a_desc;
1439                                         mod.sm_type = mod.sm_desc->ad_cname;
1440                                         mod.sm_numvals = (*tap)->a_numvals;
1441                                         mod.sm_values = (*tap)->a_vals;
1442                                         if ( (*tap)->a_nvals != (*tap)->a_vals ) {
1443                                                 mod.sm_nvalues = (*tap)->a_nvals;
1444                                         }
1445
1446                                         (void)modify_add_values( &e, &mod,
1447                                                 /* permissive */ 1,
1448                                                 &text, textbuf, sizeof( textbuf ) );
1449
1450                                         /* should not insert new attrs! */
1451                                         assert( e.e_attrs == *ap );
1452
1453                                         attr_free( *tap );
1454                                         *tap = next;
1455
1456                                 } else {
1457                                         tap = &(*tap)->a_next;
1458                                 }
1459                         }
1460                 }
1461         }
1462
1463         return 0;
1464 }
1465
1466 /* Should return SLAP_CB_CONTINUE or failure, never LDAP_SUCCESS. */
1467 static int
1468 rwm_send_entry( Operation *op, SlapReply *rs )
1469 {
1470         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1471         struct ldaprwmap        *rwmap =
1472                         (struct ldaprwmap *)on->on_bi.bi_private;
1473
1474         Entry                   *e = NULL;
1475         struct berval           dn = BER_BVNULL,
1476                                 ndn = BER_BVNULL;
1477         dncookie                dc;
1478         int                     rc;
1479
1480         assert( rs->sr_entry != NULL );
1481
1482         /*
1483          * Rewrite the dn of the result, if needed
1484          */
1485         dc.rwmap = rwmap;
1486         dc.conn = op->o_conn;
1487         dc.rs = NULL;
1488         dc.ctx = "searchEntryDN";
1489
1490         e = rs->sr_entry;
1491         if ( !( rs->sr_flags & REP_ENTRY_MODIFIABLE ) ) {
1492                 /* FIXME: all we need to duplicate are:
1493                  * - dn
1494                  * - ndn
1495                  * - attributes that are requested
1496                  * - no values if attrsonly is set
1497                  */
1498                 e = entry_dup( e );
1499                 if ( e == NULL ) {
1500                         rc = LDAP_NO_MEMORY;
1501                         goto fail;
1502                 }
1503         } else if ( rs->sr_flags & REP_ENTRY_MUSTRELEASE ) {
1504                 /* ITS#6423: REP_ENTRY_MUSTRELEASE incompatible
1505                  * with REP_ENTRY_MODIFIABLE */
1506                 RS_ASSERT( 0 );
1507                 rc = 1;
1508                 goto fail;
1509         }
1510
1511         /*
1512          * Note: this may fail if the target host(s) schema differs
1513          * from the one known to the meta, and a DN with unknown
1514          * attributes is returned.
1515          */
1516         dn = e->e_name;
1517         ndn = e->e_nname;
1518         rc = rwm_dn_massage_pretty_normalize( &dc, &e->e_name, &dn, &ndn );
1519         if ( rc != LDAP_SUCCESS ) {
1520                 rc = 1;
1521                 goto fail;
1522         }
1523
1524         if ( e->e_name.bv_val != dn.bv_val ) {
1525                 ch_free( e->e_name.bv_val );
1526                 ch_free( e->e_nname.bv_val );
1527
1528                 e->e_name = dn;
1529                 e->e_nname = ndn;
1530         }
1531
1532         /* TODO: map entry attribute types, objectclasses
1533          * and dn-valued attribute values */
1534
1535         /* FIXME: the entries are in the remote mapping form;
1536          * so we need to select those attributes we are willing
1537          * to return, and remap them accordingly */
1538         (void)rwm_attrs( op, rs, &e->e_attrs, 1 );
1539
1540         if ( e != rs->sr_entry ) {
1541                 /* Reimplementing rs_replace_entry(), I suppose to
1542                  * bypass our own dubious rwm_entry_release_rw() */
1543                 if ( rs->sr_flags & REP_ENTRY_MUSTRELEASE ) {
1544                         rs->sr_flags ^= REP_ENTRY_MUSTRELEASE;
1545                         op->o_bd->bd_info = (BackendInfo *)on->on_info;
1546                         be_entry_release_r( op, rs->sr_entry );
1547                         op->o_bd->bd_info = (BackendInfo *)on;
1548                 } else if ( rs->sr_flags & REP_ENTRY_MUSTBEFREED ) {
1549                         entry_free( rs->sr_entry );
1550                 }
1551                 rs->sr_entry = e;
1552                 rs->sr_flags |= REP_ENTRY_MODIFIABLE | REP_ENTRY_MUSTBEFREED;
1553         }
1554
1555         return SLAP_CB_CONTINUE;
1556
1557 fail:;
1558         if ( e != NULL && e != rs->sr_entry ) {
1559                 if ( e->e_name.bv_val == dn.bv_val ) {
1560                         BER_BVZERO( &e->e_name );
1561                 }
1562
1563                 if ( e->e_nname.bv_val == ndn.bv_val ) {
1564                         BER_BVZERO( &e->e_nname );
1565                 }
1566
1567                 entry_free( e );
1568         }
1569
1570         if ( !BER_BVISNULL( &dn ) ) {
1571                 ch_free( dn.bv_val );
1572         }
1573
1574         if ( !BER_BVISNULL( &ndn ) ) {
1575                 ch_free( ndn.bv_val );
1576         }
1577
1578         return rc;
1579 }
1580
1581 static int
1582 rwm_operational( Operation *op, SlapReply *rs )
1583 {
1584         /* FIXME: the entries are in the remote mapping form;
1585          * so we need to select those attributes we are willing
1586          * to return, and remap them accordingly */
1587         if ( rs->sr_operational_attrs ) {
1588                 rwm_attrs( op, rs, &rs->sr_operational_attrs, 1 );
1589         }
1590
1591         return SLAP_CB_CONTINUE;
1592 }
1593
1594 #if 0
1595 /* don't use this; it cannot be reverted, and leaves op->o_req_dn
1596  * rewritten for subsequent operations; fine for plain suffixmassage,
1597  * but destroys everything else */
1598 static int
1599 rwm_chk_referrals( Operation *op, SlapReply *rs )
1600 {
1601         slap_overinst           *on = (slap_overinst *) op->o_bd->bd_info;
1602         int                     rc;
1603
1604         rc = rwm_op_dn_massage( op, rs, "referralCheckDN" );
1605         if ( rc != LDAP_SUCCESS ) {
1606                 op->o_bd->bd_info = (BackendInfo *)on->on_info;
1607                 send_ldap_error( op, rs, rc, "referralCheckDN massage error" );
1608                 return -1;
1609         }
1610
1611         return SLAP_CB_CONTINUE;
1612 }
1613 #endif
1614
1615 static int
1616 rwm_rw_config(
1617         BackendDB       *be,
1618         const char      *fname,
1619         int             lineno,
1620         int             argc,
1621         char            **argv )
1622 {
1623         slap_overinst           *on = (slap_overinst *) be->bd_info;
1624         struct ldaprwmap        *rwmap =
1625                         (struct ldaprwmap *)on->on_bi.bi_private;
1626
1627         return rewrite_parse( rwmap->rwm_rw,
1628                                 fname, lineno, argc, argv );
1629
1630         return 0;
1631 }
1632
1633 static int
1634 rwm_suffixmassage_config(
1635         BackendDB       *be,
1636         const char      *fname,
1637         int             lineno,
1638         int             argc,
1639         char            **argv )
1640 {
1641         slap_overinst           *on = (slap_overinst *) be->bd_info;
1642         struct ldaprwmap        *rwmap =
1643                         (struct ldaprwmap *)on->on_bi.bi_private;
1644
1645         struct berval           bvnc, nvnc, pvnc, brnc, nrnc, prnc;
1646         int                     massaged;
1647         int                     rc;
1648
1649         /*
1650          * syntax:
1651          *
1652          *      suffixmassage [<suffix>] <massaged suffix>
1653          *
1654          * the [<suffix>] field must be defined as a valid suffix
1655          * for the current database;
1656          * the <massaged suffix> shouldn't have already been
1657          * defined as a valid suffix for the current server
1658          */
1659         if ( argc == 2 ) {
1660                 if ( be->be_suffix == NULL ) {
1661                         Debug( LDAP_DEBUG_ANY, "%s: line %d: "
1662                                        " \"suffixMassage [<suffix>]"
1663                                        " <massaged suffix>\" without "
1664                                        "<suffix> part requires database "
1665                                        "suffix be defined first.\n",
1666                                 fname, lineno, 0 );
1667                         return 1;
1668                 }
1669                 bvnc = be->be_suffix[ 0 ];
1670                 massaged = 1;
1671
1672         } else if ( argc == 3 ) {
1673                 ber_str2bv( argv[ 1 ], 0, 0, &bvnc );
1674                 massaged = 2;
1675
1676         } else  {
1677                 Debug( LDAP_DEBUG_ANY, "%s: line %d: syntax is"
1678                                " \"suffixMassage [<suffix>]"
1679                                " <massaged suffix>\"\n",
1680                         fname, lineno, 0 );
1681                 return 1;
1682         }
1683
1684         if ( dnPrettyNormal( NULL, &bvnc, &pvnc, &nvnc, NULL ) != LDAP_SUCCESS ) {
1685                 Debug( LDAP_DEBUG_ANY, "%s: line %d: suffix DN %s is invalid\n",
1686                         fname, lineno, bvnc.bv_val );
1687                 return 1;
1688         }
1689
1690         ber_str2bv( argv[ massaged ], 0, 0, &brnc );
1691         if ( dnPrettyNormal( NULL, &brnc, &prnc, &nrnc, NULL ) != LDAP_SUCCESS ) {
1692                 Debug( LDAP_DEBUG_ANY, "%s: line %d: suffix DN %s is invalid\n",
1693                                 fname, lineno, brnc.bv_val );
1694                 free( nvnc.bv_val );
1695                 free( pvnc.bv_val );
1696                 return 1;
1697         }
1698
1699         /*
1700          * The suffix massaging is emulated
1701          * by means of the rewrite capabilities
1702          */
1703         rc = rwm_suffix_massage_config( rwmap->rwm_rw,
1704                         &pvnc, &nvnc, &prnc, &nrnc );
1705         free( nvnc.bv_val );
1706         free( pvnc.bv_val );
1707         free( nrnc.bv_val );
1708         free( prnc.bv_val );
1709
1710         return rc;
1711 }
1712
1713 static int
1714 rwm_m_config(
1715         BackendDB       *be,
1716         const char      *fname,
1717         int             lineno,
1718         int             argc,
1719         char            **argv )
1720 {
1721         slap_overinst           *on = (slap_overinst *) be->bd_info;
1722         struct ldaprwmap        *rwmap =
1723                         (struct ldaprwmap *)on->on_bi.bi_private;
1724
1725         /* objectclass/attribute mapping */
1726         return rwm_map_config( &rwmap->rwm_oc,
1727                         &rwmap->rwm_at,
1728                         fname, lineno, argc, argv );
1729 }
1730
1731 static int
1732 rwm_response( Operation *op, SlapReply *rs )
1733 {
1734         slap_overinst           *on = (slap_overinst *)op->o_bd->bd_info;
1735         struct ldaprwmap        *rwmap =
1736                         (struct ldaprwmap *)on->on_bi.bi_private;
1737
1738         int             rc;
1739
1740         if ( op->o_tag == LDAP_REQ_SEARCH && rs->sr_type == REP_SEARCH ) {
1741                 return rwm_send_entry( op, rs );
1742         }
1743
1744         switch( op->o_tag ) {
1745         case LDAP_REQ_SEARCH:
1746         case LDAP_REQ_BIND:
1747         case LDAP_REQ_ADD:
1748         case LDAP_REQ_DELETE:
1749         case LDAP_REQ_MODRDN:
1750         case LDAP_REQ_MODIFY:
1751         case LDAP_REQ_COMPARE:
1752         case LDAP_REQ_EXTENDED:
1753                 if ( rs->sr_ref ) {
1754                         dncookie                dc;
1755
1756                         /*
1757                          * Rewrite the dn of the referrals, if needed
1758                          */
1759                         dc.rwmap = rwmap;
1760                         dc.conn = op->o_conn;
1761                         dc.rs = NULL;
1762                         dc.ctx = "referralDN";
1763                         rc = rwm_referral_result_rewrite( &dc, rs->sr_ref );
1764                         if ( rc != LDAP_SUCCESS ) {
1765                                 rc = 1;
1766                                 break;
1767                         }
1768                 }
1769                 rc = rwm_matched( op, rs );
1770                 break;
1771
1772         default:
1773                 rc = SLAP_CB_CONTINUE;
1774                 break;
1775         }
1776
1777         return rc;
1778 }
1779
1780 static int
1781 rwm_db_config(
1782         BackendDB       *be,
1783         const char      *fname,
1784         int             lineno,
1785         int             argc,
1786         char            **argv )
1787 {
1788         slap_overinst           *on = (slap_overinst *) be->bd_info;
1789         struct ldaprwmap        *rwmap =
1790                         (struct ldaprwmap *)on->on_bi.bi_private;
1791
1792         int             rc = 0;
1793         char            *argv0 = NULL;
1794
1795         if ( strncasecmp( argv[ 0 ], "rwm-", STRLENOF( "rwm-" ) ) == 0 ) {
1796                 argv0 = argv[ 0 ];
1797                 argv[ 0 ] = &argv0[ STRLENOF( "rwm-" ) ];
1798         }
1799
1800         if ( strncasecmp( argv[0], "rewrite", STRLENOF("rewrite") ) == 0 ) {
1801                 rc = rwm_rw_config( be, fname, lineno, argc, argv );
1802
1803         } else if ( strcasecmp( argv[0], "map" ) == 0 ) {
1804                 rc = rwm_m_config( be, fname, lineno, argc, argv );
1805
1806         } else if ( strcasecmp( argv[0], "suffixmassage" ) == 0 ) {
1807                 rc = rwm_suffixmassage_config( be, fname, lineno, argc, argv );
1808
1809         } else if ( strcasecmp( argv[0], "t-f-support" ) == 0 ) {
1810                 if ( argc != 2 ) {
1811                         Debug( LDAP_DEBUG_ANY,
1812                 "%s: line %d: \"t-f-support {no|yes|discover}\" needs 1 argument.\n",
1813                                         fname, lineno, 0 );
1814                         return( 1 );
1815                 }
1816
1817                 if ( strcasecmp( argv[ 1 ], "no" ) == 0 ) {
1818                         rwmap->rwm_flags &= ~(RWM_F_SUPPORT_T_F_MASK2);
1819
1820                 } else if ( strcasecmp( argv[ 1 ], "yes" ) == 0 ) {
1821                         rwmap->rwm_flags |= RWM_F_SUPPORT_T_F;
1822
1823                 /* TODO: not implemented yet */
1824                 } else if ( strcasecmp( argv[ 1 ], "discover" ) == 0 ) {
1825                         Debug( LDAP_DEBUG_ANY,
1826                 "%s: line %d: \"discover\" not supported yet "
1827                 "in \"t-f-support {no|yes|discover}\".\n",
1828                                         fname, lineno, 0 );
1829                         return( 1 );
1830 #if 0
1831                         rwmap->rwm_flags |= RWM_F_SUPPORT_T_F_DISCOVER;
1832 #endif
1833
1834                 } else {
1835                         Debug( LDAP_DEBUG_ANY,
1836         "%s: line %d: unknown value \"%s\" for \"t-f-support {no|yes|discover}\".\n",
1837                                 fname, lineno, argv[ 1 ] );
1838                         return 1;
1839                 }
1840
1841         } else if ( strcasecmp( argv[0], "normalize-mapped-attrs" ) ==  0 ) {
1842                 if ( argc !=2 ) {
1843                         Debug( LDAP_DEBUG_ANY,
1844                 "%s: line %d: \"normalize-mapped-attrs {no|yes}\" needs 1 argument.\n",
1845                                         fname, lineno, 0 );
1846                         return( 1 );
1847                 }
1848
1849                 if ( strcasecmp( argv[ 1 ], "no" ) == 0 ) {
1850                         rwmap->rwm_flags &= ~(RWM_F_NORMALIZE_MAPPED_ATTRS);
1851
1852                 } else if ( strcasecmp( argv[ 1 ], "yes" ) == 0 ) {
1853                         rwmap->rwm_flags |= RWM_F_NORMALIZE_MAPPED_ATTRS;
1854                 }
1855
1856         } else {
1857                 rc = SLAP_CONF_UNKNOWN;
1858         }
1859
1860         if ( argv0 ) {
1861                 argv[ 0 ] = argv0;
1862         }
1863
1864         return rc;
1865 }
1866
1867 /*
1868  * dynamic configuration...
1869  */
1870
1871 enum {
1872         /* rewrite */
1873         RWM_CF_REWRITE = 1,
1874
1875         /* map */
1876         RWM_CF_MAP,
1877         RWM_CF_T_F_SUPPORT,
1878         RWM_CF_NORMALIZE_MAPPED,
1879         RWM_CF_DROP_UNREQUESTED,
1880
1881         RWM_CF_LAST
1882 };
1883
1884 static slap_verbmasks t_f_mode[] = {
1885         { BER_BVC( "true" ),            RWM_F_SUPPORT_T_F },
1886         { BER_BVC( "yes" ),             RWM_F_SUPPORT_T_F },
1887         { BER_BVC( "discover" ),        RWM_F_SUPPORT_T_F_DISCOVER },
1888         { BER_BVC( "false" ),           RWM_F_NONE },
1889         { BER_BVC( "no" ),              RWM_F_NONE },
1890         { BER_BVNULL,                   0 }
1891 };
1892
1893 static ConfigDriver rwm_cf_gen;
1894
1895 static ConfigTable rwmcfg[] = {
1896         { "rwm-rewrite", "rewrite",
1897                 2, 0, STRLENOF("rwm-rewrite"),
1898                 ARG_MAGIC|RWM_CF_REWRITE, rwm_cf_gen,
1899                 "( OLcfgOvAt:16.1 NAME 'olcRwmRewrite' "
1900                         "DESC 'Rewrites strings' "
1901                         "EQUALITY caseIgnoreMatch "
1902                         "SYNTAX OMsDirectoryString "
1903                         "X-ORDERED 'VALUES' )",
1904                 NULL, NULL },
1905
1906         { "rwm-suffixmassage", "[virtual]> <real",
1907                 2, 3, 0, ARG_MAGIC|RWM_CF_REWRITE, rwm_cf_gen,
1908                 NULL, NULL, NULL },
1909
1910         { "rwm-t-f-support", "true|false|discover",
1911                 2, 2, 0, ARG_MAGIC|RWM_CF_T_F_SUPPORT, rwm_cf_gen,
1912                 "( OLcfgOvAt:16.2 NAME 'olcRwmTFSupport' "
1913                         "DESC 'Absolute filters support' "
1914                         "SYNTAX OMsDirectoryString "
1915                         "SINGLE-VALUE )",
1916                 NULL, NULL },
1917
1918         { "rwm-map", "{objectClass|attribute}",
1919                 2, 4, 0, ARG_MAGIC|RWM_CF_MAP, rwm_cf_gen,
1920                 "( OLcfgOvAt:16.3 NAME 'olcRwmMap' "
1921                         "DESC 'maps attributes/objectClasses' "
1922                         "EQUALITY caseIgnoreMatch "
1923                         "SYNTAX OMsDirectoryString "
1924                         "X-ORDERED 'VALUES' )",
1925                 NULL, NULL },
1926
1927         { "rwm-normalize-mapped-attrs", "true|false",
1928                 2, 2, 0, ARG_MAGIC|ARG_ON_OFF|RWM_CF_NORMALIZE_MAPPED, rwm_cf_gen,
1929                 "( OLcfgOvAt:16.4 NAME 'olcRwmNormalizeMapped' "
1930                         "DESC 'Normalize mapped attributes/objectClasses' "
1931                         "SYNTAX OMsBoolean "
1932                         "SINGLE-VALUE )",
1933                 NULL, NULL },
1934
1935         { "rwm-drop-unrequested-attrs", "true|false",
1936                 2, 2, 0, ARG_MAGIC|ARG_ON_OFF|RWM_CF_DROP_UNREQUESTED, rwm_cf_gen,
1937                 "( OLcfgOvAt:16.5 NAME 'olcRwmDropUnrequested' "
1938                         "DESC 'Drop unrequested attributes' "
1939                         "SYNTAX OMsBoolean "
1940                         "SINGLE-VALUE )",
1941                 NULL, NULL },
1942
1943         { NULL, NULL, 0, 0, 0, ARG_IGNORED }
1944 };
1945
1946 static ConfigOCs rwmocs[] = {
1947         { "( OLcfgOvOc:16.1 "
1948                 "NAME 'olcRwmConfig' "
1949                 "DESC 'Rewrite/remap configuration' "
1950                 "SUP olcOverlayConfig "
1951                 "MAY ( "
1952                         "olcRwmRewrite $ "
1953                         "olcRwmTFSupport $ "
1954                         "olcRwmMap $ "
1955                         "olcRwmNormalizeMapped "
1956                         ") )",
1957                 Cft_Overlay, rwmcfg, NULL, NULL },
1958         { NULL, 0, NULL }
1959 };
1960
1961 static void
1962 slap_bv_x_ordered_unparse( BerVarray in, BerVarray *out )
1963 {
1964         int             i;
1965         BerVarray       bva = NULL;
1966         char            ibuf[32], *ptr;
1967         struct berval   idx;
1968
1969         assert( in != NULL );
1970
1971         for ( i = 0; !BER_BVISNULL( &in[i] ); i++ )
1972                 /* count'em */ ;
1973
1974         if ( i == 0 ) {
1975                 return;
1976         }
1977
1978         idx.bv_val = ibuf;
1979
1980         bva = ch_malloc( ( i + 1 ) * sizeof(struct berval) );
1981         BER_BVZERO( &bva[ 0 ] );
1982
1983         for ( i = 0; !BER_BVISNULL( &in[i] ); i++ ) {
1984                 idx.bv_len = snprintf( idx.bv_val, sizeof( ibuf ), "{%d}", i );
1985                 if ( idx.bv_len >= sizeof( ibuf ) ) {
1986                         ber_bvarray_free( bva );
1987                         return;
1988                 }
1989
1990                 bva[i].bv_len = idx.bv_len + in[i].bv_len;
1991                 bva[i].bv_val = ch_malloc( bva[i].bv_len + 1 );
1992                 ptr = lutil_strcopy( bva[i].bv_val, ibuf );
1993                 ptr = lutil_strcopy( ptr, in[i].bv_val );
1994                 *ptr = '\0';
1995                 BER_BVZERO( &bva[ i + 1 ] );
1996         }
1997
1998         *out = bva;
1999 }
2000
2001 static int
2002 rwm_bva_add(
2003         BerVarray               *bva,
2004         int                     idx,
2005         char                    **argv )
2006 {
2007         char            *line;
2008         struct berval   bv;
2009
2010         line = ldap_charray2str( argv, "\" \"" );
2011         if ( line != NULL ) {
2012                 int     len = strlen( argv[ 0 ] );
2013
2014                 ber_str2bv( line, 0, 0, &bv );
2015                 AC_MEMCPY( &bv.bv_val[ len ], &bv.bv_val[ len + 1 ],
2016                         bv.bv_len - ( len + 1 ) );
2017                 bv.bv_val[ bv.bv_len - 1 ] = '"';
2018
2019                 if ( idx == -1 ) {
2020                         ber_bvarray_add( bva, &bv );
2021
2022                 } else {
2023                         (*bva)[ idx ] = bv;
2024                 }
2025
2026                 return 0;
2027         }
2028
2029         return -1;
2030 }
2031
2032 static int
2033 rwm_bva_rewrite_add(
2034         struct ldaprwmap        *rwmap,
2035         int                     idx,
2036         char                    **argv )
2037 {
2038         return rwm_bva_add( &rwmap->rwm_bva_rewrite, idx, argv );
2039 }
2040
2041 #ifdef unused
2042 static int
2043 rwm_bva_map_add(
2044         struct ldaprwmap        *rwmap,
2045         int                     idx,
2046         char                    **argv )
2047 {
2048         return rwm_bva_add( &rwmap->rwm_bva_map, idx, argv );
2049 }
2050 #endif /* unused */
2051
2052 static int
2053 rwm_info_init( struct rewrite_info ** rwm_rw )
2054 {
2055         char                    *rargv[ 3 ];
2056
2057         *rwm_rw = rewrite_info_init( REWRITE_MODE_USE_DEFAULT );
2058         if ( *rwm_rw == NULL ) {
2059                 return -1;
2060         }
2061
2062         /* this rewriteContext by default must be null;
2063          * rules can be added if required */
2064         rargv[ 0 ] = "rewriteContext";
2065         rargv[ 1 ] = "searchFilter";
2066         rargv[ 2 ] = NULL;
2067         rewrite_parse( *rwm_rw, "<suffix massage>", 1, 2, rargv );
2068
2069         rargv[ 0 ] = "rewriteContext";
2070         rargv[ 1 ] = "default";
2071         rargv[ 2 ] = NULL;
2072         rewrite_parse( *rwm_rw, "<suffix massage>", 2, 2, rargv );
2073
2074         return 0;
2075 }
2076
2077 static int
2078 rwm_cf_gen( ConfigArgs *c )
2079 {
2080         slap_overinst           *on = (slap_overinst *)c->bi;
2081         struct ldaprwmap        *rwmap =
2082                         (struct ldaprwmap *)on->on_bi.bi_private;
2083
2084         BackendDB               db;
2085         char                    *argv0;
2086         int                     idx0 = 0;
2087         int                     rc = 0;
2088
2089         db = *c->be;
2090         db.bd_info = c->bi;
2091
2092         if ( c->op == SLAP_CONFIG_EMIT ) {
2093                 struct berval   bv = BER_BVNULL;
2094
2095                 switch ( c->type ) {
2096                 case RWM_CF_REWRITE:
2097                         if ( rwmap->rwm_bva_rewrite == NULL ) {
2098                                 rc = 1;
2099
2100                         } else {
2101                                 slap_bv_x_ordered_unparse( rwmap->rwm_bva_rewrite, &c->rvalue_vals );
2102                                 if ( !c->rvalue_vals ) {
2103                                         rc = 1;
2104                                 }
2105                         }
2106                         break;
2107
2108                 case RWM_CF_T_F_SUPPORT:
2109                         enum_to_verb( t_f_mode, (rwmap->rwm_flags & RWM_F_SUPPORT_T_F_MASK2), &bv );
2110                         if ( BER_BVISNULL( &bv ) ) {
2111                                 /* there's something wrong... */
2112                                 assert( 0 );
2113                                 rc = 1;
2114
2115                         } else {
2116                                 value_add_one( &c->rvalue_vals, &bv );
2117                         }
2118                         break;
2119
2120                 case RWM_CF_MAP:
2121                         if ( rwmap->rwm_bva_map == NULL ) {
2122                                 rc = 1;
2123
2124                         } else {
2125                                 slap_bv_x_ordered_unparse( rwmap->rwm_bva_map, &c->rvalue_vals );
2126                                 if ( !c->rvalue_vals ) {
2127                                         rc = 1;
2128                                 }
2129                         }
2130                         break;
2131
2132                 case RWM_CF_NORMALIZE_MAPPED:
2133                         c->value_int = ( rwmap->rwm_flags & RWM_F_NORMALIZE_MAPPED_ATTRS );
2134                         break;
2135
2136                 case RWM_CF_DROP_UNREQUESTED:
2137                         c->value_int = ( rwmap->rwm_flags & RWM_F_DROP_UNREQUESTED_ATTRS );
2138                         break;
2139
2140                 default:
2141                         assert( 0 );
2142                         rc = 1;
2143                 }
2144
2145                 return rc;
2146
2147         } else if ( c->op == LDAP_MOD_DELETE ) {
2148                 switch ( c->type ) {
2149                 case RWM_CF_REWRITE:
2150                         if ( c->valx >= 0 ) {
2151                                 int i;
2152
2153                                 for ( i = 0; !BER_BVISNULL( &rwmap->rwm_bva_rewrite[ i ] ); i++ )
2154                                         /* count'em */ ;
2155
2156                                 if ( c->valx >= i ) {
2157                                         rc = 1;
2158                                         break;
2159                                 }
2160
2161                                 ber_memfree( rwmap->rwm_bva_rewrite[ c->valx ].bv_val );
2162                                 for ( i = c->valx; !BER_BVISNULL( &rwmap->rwm_bva_rewrite[ i + 1 ] ); i++ )
2163                                 {
2164                                         rwmap->rwm_bva_rewrite[ i ] = rwmap->rwm_bva_rewrite[ i + 1 ];
2165                                 }
2166                                 BER_BVZERO( &rwmap->rwm_bva_rewrite[ i ] );
2167
2168                                 rewrite_info_delete( &rwmap->rwm_rw );
2169                                 assert( rwmap->rwm_rw == NULL );
2170
2171                                 rc = rwm_info_init( &rwmap->rwm_rw );
2172
2173                                 for ( i = 0; !BER_BVISNULL( &rwmap->rwm_bva_rewrite[ i ] ); i++ )
2174                                 {
2175                                         ConfigArgs ca = { 0 };
2176
2177                                         ca.line = rwmap->rwm_bva_rewrite[ i ].bv_val;
2178                                         ca.argc = 0;
2179                                         config_fp_parse_line( &ca );
2180
2181                                         if ( strcasecmp( ca.argv[ 0 ], "suffixmassage" ) == 0 ) {
2182                                                 rc = rwm_suffixmassage_config( &db, c->fname, c->lineno,
2183                                                         ca.argc, ca.argv );
2184
2185                                         } else {
2186                                                 rc = rwm_rw_config( &db, c->fname, c->lineno,
2187                                                         ca.argc, ca.argv );
2188                                         }
2189
2190                                         ch_free( ca.tline );
2191                                         ch_free( ca.argv );
2192
2193                                         assert( rc == 0 );
2194                                 }
2195
2196                         } else if ( rwmap->rwm_rw != NULL ) {
2197                                 rewrite_info_delete( &rwmap->rwm_rw );
2198                                 assert( rwmap->rwm_rw == NULL );
2199
2200                                 ber_bvarray_free( rwmap->rwm_bva_rewrite );
2201                                 rwmap->rwm_bva_rewrite = NULL;
2202
2203                                 rc = rwm_info_init( &rwmap->rwm_rw );
2204                         }
2205                         break;
2206
2207                 case RWM_CF_T_F_SUPPORT:
2208                         rwmap->rwm_flags &= ~RWM_F_SUPPORT_T_F_MASK2;
2209                         break;
2210
2211                 case RWM_CF_MAP:
2212                         if ( c->valx >= 0 ) {
2213                                 struct ldapmap rwm_oc = rwmap->rwm_oc;
2214                                 struct ldapmap rwm_at = rwmap->rwm_at;
2215                                 char *argv[5];
2216                                 int cnt = 0;
2217
2218                                 if ( rwmap->rwm_bva_map ) {
2219                                         for ( ; !BER_BVISNULL( &rwmap->rwm_bva_map[ cnt ] ); cnt++ )
2220                                                 /* count */ ;
2221                                 }
2222
2223                                 if ( c->valx >= cnt ) {
2224                                         rc = 1;
2225                                         break;
2226                                 }
2227
2228                                 memset( &rwmap->rwm_oc, 0, sizeof( rwmap->rwm_oc ) );
2229                                 memset( &rwmap->rwm_at, 0, sizeof( rwmap->rwm_at ) );
2230
2231                                 /* re-parse all mappings except the one
2232                                  * that needs to be eliminated */
2233                                 argv[0] = "map";
2234                                 for ( cnt = 0; !BER_BVISNULL( &rwmap->rwm_bva_map[ cnt ] ); cnt++ ) {
2235                                         ConfigArgs ca = { 0 };
2236
2237                                         if ( cnt == c->valx ) {
2238                                                 continue;
2239                                         }
2240
2241                                         ca.line = rwmap->rwm_bva_map[ cnt ].bv_val;
2242                                         ca.argc = 0;
2243                                         config_fp_parse_line( &ca );
2244
2245                                         argv[1] = ca.argv[0];
2246                                         argv[2] = ca.argv[1];
2247                                         argv[3] = ca.argv[2];
2248                                         argv[4] = ca.argv[3];
2249
2250                                         rc = rwm_m_config( &db, c->fname, c->lineno, ca.argc + 1, argv );
2251
2252                                         ch_free( ca.tline );
2253                                         ch_free( ca.argv );
2254
2255                                         /* in case of failure, restore
2256                                          * the existing mapping */
2257                                         if ( rc ) {
2258                                                 avl_free( rwmap->rwm_oc.remap, rwm_mapping_dst_free );
2259                                                 avl_free( rwmap->rwm_oc.map, rwm_mapping_free );
2260                                                 avl_free( rwmap->rwm_at.remap, rwm_mapping_dst_free );
2261                                                 avl_free( rwmap->rwm_at.map, rwm_mapping_free );
2262                                                 rwmap->rwm_oc = rwm_oc;
2263                                                 rwmap->rwm_at = rwm_at;
2264                                                 break;
2265                                         }
2266                                 }
2267
2268                                 /* in case of success, destroy the old mapping
2269                                  * and eliminate the deleted one */
2270                                 if ( rc == 0 ) {
2271                                         avl_free( rwm_oc.remap, rwm_mapping_dst_free );
2272                                         avl_free( rwm_oc.map, rwm_mapping_free );
2273                                         avl_free( rwm_at.remap, rwm_mapping_dst_free );
2274                                         avl_free( rwm_at.map, rwm_mapping_free );
2275
2276                                         ber_memfree( rwmap->rwm_bva_map[ c->valx ].bv_val );
2277                                         for ( cnt = c->valx; !BER_BVISNULL( &rwmap->rwm_bva_map[ cnt ] ); cnt++ ) {
2278                                                 rwmap->rwm_bva_map[ cnt ] = rwmap->rwm_bva_map[ cnt + 1 ];
2279                                         }
2280                                 }
2281
2282                         } else {
2283                                 avl_free( rwmap->rwm_oc.remap, rwm_mapping_dst_free );
2284                                 avl_free( rwmap->rwm_oc.map, rwm_mapping_free );
2285                                 avl_free( rwmap->rwm_at.remap, rwm_mapping_dst_free );
2286                                 avl_free( rwmap->rwm_at.map, rwm_mapping_free );
2287
2288                                 rwmap->rwm_oc.remap = NULL;
2289                                 rwmap->rwm_oc.map = NULL;
2290                                 rwmap->rwm_at.remap = NULL;
2291                                 rwmap->rwm_at.map = NULL;
2292
2293                                 ber_bvarray_free( rwmap->rwm_bva_map );
2294                                 rwmap->rwm_bva_map = NULL;
2295                         }
2296                         break;
2297
2298                 case RWM_CF_NORMALIZE_MAPPED:
2299                         rwmap->rwm_flags &= ~RWM_F_NORMALIZE_MAPPED_ATTRS;
2300                         break;
2301
2302                 case RWM_CF_DROP_UNREQUESTED:
2303                         rwmap->rwm_flags &= ~RWM_F_DROP_UNREQUESTED_ATTRS;
2304                         break;
2305
2306                 default:
2307                         return 1;
2308                 }
2309                 return rc;
2310         }
2311
2312         if ( strncasecmp( c->argv[ 0 ], "olcRwm", STRLENOF( "olcRwm" ) ) == 0 ) {
2313                 idx0 = 1;
2314         }
2315
2316         switch ( c->type ) {
2317         case RWM_CF_REWRITE:
2318                 if ( c->valx >= 0 ) {
2319                         struct rewrite_info *rwm_rw = rwmap->rwm_rw;
2320                         int i, last;
2321
2322                         for ( last = 0; rwmap->rwm_bva_rewrite && !BER_BVISNULL( &rwmap->rwm_bva_rewrite[ last ] ); last++ )
2323                                 /* count'em */ ;
2324
2325                         if ( c->valx > last ) {
2326                                 c->valx = last;
2327                         }
2328
2329                         rwmap->rwm_rw = NULL;
2330                         rc = rwm_info_init( &rwmap->rwm_rw );
2331
2332                         for ( i = 0; i < c->valx; i++ ) {
2333                                 ConfigArgs ca = { 0 };
2334
2335                                 ca.line = rwmap->rwm_bva_rewrite[ i ].bv_val;
2336                                 ca.argc = 0;
2337                                 config_fp_parse_line( &ca );
2338
2339                                 argv0 = ca.argv[ 0 ];
2340                                 ca.argv[ 0 ] += STRLENOF( "rwm-" );
2341
2342                                 if ( strcasecmp( ca.argv[ 0 ], "suffixmassage" ) == 0 ) {
2343                                         rc = rwm_suffixmassage_config( &db, c->fname, c->lineno,
2344                                                 ca.argc, ca.argv );
2345
2346                                 } else {
2347                                         rc = rwm_rw_config( &db, c->fname, c->lineno,
2348                                                 ca.argc, ca.argv );
2349                                 }
2350
2351                                 ca.argv[ 0 ] = argv0;
2352
2353                                 ch_free( ca.tline );
2354                                 ch_free( ca.argv );
2355
2356                                 assert( rc == 0 );
2357                         }
2358
2359                         argv0 = c->argv[ idx0 ];
2360                         if ( strncasecmp( argv0, "rwm-", STRLENOF( "rwm-" ) ) != 0 ) {
2361                                 return 1;
2362                         }
2363                         c->argv[ idx0 ] += STRLENOF( "rwm-" );
2364                         if ( strcasecmp( c->argv[ idx0 ], "suffixmassage" ) == 0 ) {
2365                                 rc = rwm_suffixmassage_config( &db, c->fname, c->lineno,
2366                                         c->argc - idx0, &c->argv[ idx0 ] );
2367
2368                         } else {
2369                                 rc = rwm_rw_config( &db, c->fname, c->lineno,
2370                                         c->argc - idx0, &c->argv[ idx0 ] );
2371                         }
2372                         c->argv[ idx0 ] = argv0;
2373                         if ( rc != 0 ) {
2374                                 rewrite_info_delete( &rwmap->rwm_rw );
2375                                 assert( rwmap->rwm_rw == NULL );
2376
2377                                 rwmap->rwm_rw = rwm_rw;
2378                                 return 1;
2379                         }
2380
2381                         for ( i = c->valx; rwmap->rwm_bva_rewrite && !BER_BVISNULL( &rwmap->rwm_bva_rewrite[ i ] ); i++ )
2382                         {
2383                                 ConfigArgs ca = { 0 };
2384
2385                                 ca.line = rwmap->rwm_bva_rewrite[ i ].bv_val;
2386                                 ca.argc = 0;
2387                                 config_fp_parse_line( &ca );
2388
2389                                 argv0 = ca.argv[ 0 ];
2390                                 ca.argv[ 0 ] += STRLENOF( "rwm-" );
2391
2392                                 if ( strcasecmp( ca.argv[ 0 ], "suffixmassage" ) == 0 ) {
2393                                         rc = rwm_suffixmassage_config( &db, c->fname, c->lineno,
2394                                                 ca.argc, ca.argv );
2395
2396                                 } else {
2397                                         rc = rwm_rw_config( &db, c->fname, c->lineno,
2398                                                 ca.argc, ca.argv );
2399                                 }
2400
2401                                 ca.argv[ 0 ] = argv0;
2402
2403                                 ch_free( ca.tline );
2404                                 ch_free( ca.argv );
2405
2406                                 assert( rc == 0 );
2407                         }
2408
2409                         rwmap->rwm_bva_rewrite = ch_realloc( rwmap->rwm_bva_rewrite,
2410                                 ( last + 2 )*sizeof( struct berval ) );
2411                         BER_BVZERO( &rwmap->rwm_bva_rewrite[last+1] );
2412
2413                         for ( i = last - 1; i >= c->valx; i-- )
2414                         {
2415                                 rwmap->rwm_bva_rewrite[ i + 1 ] = rwmap->rwm_bva_rewrite[ i ];
2416                         }
2417
2418                         rwm_bva_rewrite_add( rwmap, c->valx, &c->argv[ idx0 ] );
2419
2420                         rewrite_info_delete( &rwm_rw );
2421                         assert( rwm_rw == NULL );
2422
2423                         break;
2424                 }
2425
2426                 argv0 = c->argv[ idx0 ];
2427                 if ( strncasecmp( argv0, "rwm-", STRLENOF( "rwm-" ) ) != 0 ) {
2428                         return 1;
2429                 }
2430                 c->argv[ idx0 ] += STRLENOF( "rwm-" );
2431                 if ( strcasecmp( c->argv[ idx0 ], "suffixmassage" ) == 0 ) {
2432                         rc = rwm_suffixmassage_config( &db, c->fname, c->lineno,
2433                                 c->argc - idx0, &c->argv[ idx0 ] );
2434
2435                 } else {
2436                         rc = rwm_rw_config( &db, c->fname, c->lineno,
2437                                 c->argc - idx0, &c->argv[ idx0 ] );
2438                 }
2439                 c->argv[ idx0 ] = argv0;
2440                 if ( rc ) {
2441                         return 1;
2442
2443                 } else {
2444                         rwm_bva_rewrite_add( rwmap, -1, &c->argv[ idx0 ] );
2445                 }
2446                 break;
2447
2448         case RWM_CF_T_F_SUPPORT:
2449                 rc = verb_to_mask( c->argv[ 1 ], t_f_mode );
2450                 if ( BER_BVISNULL( &t_f_mode[ rc ].word ) ) {
2451                         return 1;
2452                 }
2453
2454                 rwmap->rwm_flags &= ~RWM_F_SUPPORT_T_F_MASK2;
2455                 rwmap->rwm_flags |= t_f_mode[ rc ].mask;
2456                 rc = 0;
2457                 break;
2458
2459         case RWM_CF_MAP:
2460                 if ( c->valx >= 0 ) {
2461                         struct ldapmap rwm_oc = rwmap->rwm_oc;
2462                         struct ldapmap rwm_at = rwmap->rwm_at;
2463                         char *argv[5];
2464                         int cnt = 0;
2465
2466                         if ( rwmap->rwm_bva_map ) {
2467                                 for ( ; !BER_BVISNULL( &rwmap->rwm_bva_map[ cnt ] ); cnt++ )
2468                                         /* count */ ;
2469                         }
2470
2471                         if ( c->valx >= cnt ) {
2472                                 c->valx = cnt;
2473                         }
2474
2475                         memset( &rwmap->rwm_oc, 0, sizeof( rwmap->rwm_oc ) );
2476                         memset( &rwmap->rwm_at, 0, sizeof( rwmap->rwm_at ) );
2477
2478                         /* re-parse all mappings, including the one
2479                          * that needs to be added */
2480                         argv[0] = "map";
2481                         for ( cnt = 0; cnt < c->valx; cnt++ ) {
2482                                 ConfigArgs ca = { 0 };
2483
2484                                 ca.line = rwmap->rwm_bva_map[ cnt ].bv_val;
2485                                 ca.argc = 0;
2486                                 config_fp_parse_line( &ca );
2487
2488                                 argv[1] = ca.argv[0];
2489                                 argv[2] = ca.argv[1];
2490                                 argv[3] = ca.argv[2];
2491                                 argv[4] = ca.argv[3];
2492
2493                                 rc = rwm_m_config( &db, c->fname, c->lineno, ca.argc + 1, argv );
2494
2495                                 ch_free( ca.tline );
2496                                 ch_free( ca.argv );
2497
2498                                 /* in case of failure, restore
2499                                  * the existing mapping */
2500                                 if ( rc ) {
2501                                         goto rwmmap_fail;
2502                                 }
2503                         }
2504
2505                         argv0 = c->argv[0];
2506                         c->argv[0] = "map";
2507                         rc = rwm_m_config( &db, c->fname, c->lineno, c->argc, c->argv );
2508                         c->argv[0] = argv0;
2509                         if ( rc ) {
2510                                 goto rwmmap_fail;
2511                         }
2512
2513                         if ( rwmap->rwm_bva_map ) {
2514                                 for ( ; !BER_BVISNULL( &rwmap->rwm_bva_map[ cnt ] ); cnt++ ) {
2515                                         ConfigArgs ca = { 0 };
2516
2517                                         ca.line = rwmap->rwm_bva_map[ cnt ].bv_val;
2518                                         ca.argc = 0;
2519                                         config_fp_parse_line( &ca );
2520
2521                                         argv[1] = ca.argv[0];
2522                                         argv[2] = ca.argv[1];
2523                                         argv[3] = ca.argv[2];
2524                                         argv[4] = ca.argv[3];
2525
2526                                         rc = rwm_m_config( &db, c->fname, c->lineno, ca.argc + 1, argv );
2527
2528                                         ch_free( ca.tline );
2529                                         ch_free( ca.argv );
2530
2531                                         /* in case of failure, restore
2532                                          * the existing mapping */
2533                                         if ( rc ) {
2534                                                 goto rwmmap_fail;
2535                                         }
2536                                 }
2537                         }
2538
2539                         /* in case of success, destroy the old mapping
2540                          * and add the new one */
2541                         if ( rc == 0 ) {
2542                                 BerVarray tmp;
2543                                 struct berval bv, *bvp = &bv;
2544
2545                                 if ( rwm_bva_add( &bvp, 0, &c->argv[ idx0 ] ) ) {
2546                                         rc = 1;
2547                                         goto rwmmap_fail;
2548                                 }
2549
2550                                 tmp = ber_memrealloc( rwmap->rwm_bva_map,
2551                                         sizeof( struct berval )*( cnt + 2 ) );
2552                                 if ( tmp == NULL ) {
2553                                         ber_memfree( bv.bv_val );
2554                                         rc = 1;
2555                                         goto rwmmap_fail;
2556                                 }
2557                                 rwmap->rwm_bva_map = tmp;
2558                                 BER_BVZERO( &rwmap->rwm_bva_map[ cnt + 1 ] );
2559
2560                                 avl_free( rwm_oc.remap, rwm_mapping_dst_free );
2561                                 avl_free( rwm_oc.map, rwm_mapping_free );
2562                                 avl_free( rwm_at.remap, rwm_mapping_dst_free );
2563                                 avl_free( rwm_at.map, rwm_mapping_free );
2564
2565                                 for ( ; cnt-- > c->valx; ) {
2566                                         rwmap->rwm_bva_map[ cnt + 1 ] = rwmap->rwm_bva_map[ cnt ];
2567                                 }
2568                                 rwmap->rwm_bva_map[ c->valx ] = bv;
2569
2570                         } else {
2571 rwmmap_fail:;
2572                                 avl_free( rwmap->rwm_oc.remap, rwm_mapping_dst_free );
2573                                 avl_free( rwmap->rwm_oc.map, rwm_mapping_free );
2574                                 avl_free( rwmap->rwm_at.remap, rwm_mapping_dst_free );
2575                                 avl_free( rwmap->rwm_at.map, rwm_mapping_free );
2576                                 rwmap->rwm_oc = rwm_oc;
2577                                 rwmap->rwm_at = rwm_at;
2578                         }
2579
2580                         break;
2581                 }
2582
2583                 argv0 = c->argv[ 0 ];
2584                 c->argv[ 0 ] += STRLENOF( "rwm-" );
2585                 rc = rwm_m_config( &db, c->fname, c->lineno, c->argc, c->argv );
2586                 c->argv[ 0 ] = argv0;
2587                 if ( rc ) {
2588                         return 1;
2589
2590                 } else {
2591                         char            *line;
2592                         struct berval   bv;
2593
2594                         line = ldap_charray2str( &c->argv[ 1 ], " " );
2595                         if ( line != NULL ) {
2596                                 ber_str2bv( line, 0, 0, &bv );
2597                                 ber_bvarray_add( &rwmap->rwm_bva_map, &bv );
2598                         }
2599                 }
2600                 break;
2601
2602         case RWM_CF_NORMALIZE_MAPPED:
2603                 if ( c->value_int ) {
2604                         rwmap->rwm_flags |= RWM_F_NORMALIZE_MAPPED_ATTRS;
2605                 } else {
2606                         rwmap->rwm_flags &= ~RWM_F_NORMALIZE_MAPPED_ATTRS;
2607                 }
2608                 break;
2609
2610         case RWM_CF_DROP_UNREQUESTED:
2611                 if ( c->value_int ) {
2612                         rwmap->rwm_flags |= RWM_F_DROP_UNREQUESTED_ATTRS;
2613                 } else {
2614                         rwmap->rwm_flags &= ~RWM_F_DROP_UNREQUESTED_ATTRS;
2615                 }
2616                 break;
2617
2618         default:
2619                 assert( 0 );
2620                 return 1;
2621         }
2622
2623         return rc;
2624 }
2625
2626 static int
2627 rwm_db_init(
2628         BackendDB       *be,
2629         ConfigReply     *cr )
2630 {
2631         slap_overinst           *on = (slap_overinst *) be->bd_info;
2632         struct ldaprwmap        *rwmap;
2633         int                     rc = 0;
2634
2635         rwmap = (struct ldaprwmap *)ch_calloc( 1, sizeof( struct ldaprwmap ) );
2636
2637         /* default */
2638         rwmap->rwm_flags = RWM_F_DROP_UNREQUESTED_ATTRS;
2639
2640         rc = rwm_info_init( &rwmap->rwm_rw );
2641
2642         on->on_bi.bi_private = (void *)rwmap;
2643
2644         if ( rc ) {
2645                 (void)rwm_db_destroy( be, NULL );
2646         }
2647
2648         return rc;
2649 }
2650
2651 static int
2652 rwm_db_destroy(
2653         BackendDB       *be,
2654         ConfigReply     *cr )
2655 {
2656         slap_overinst   *on = (slap_overinst *) be->bd_info;
2657         int             rc = 0;
2658
2659         if ( on->on_bi.bi_private ) {
2660                 struct ldaprwmap        *rwmap =
2661                         (struct ldaprwmap *)on->on_bi.bi_private;
2662
2663                 if ( rwmap->rwm_rw ) {
2664                         rewrite_info_delete( &rwmap->rwm_rw );
2665                         if ( rwmap->rwm_bva_rewrite )
2666                                 ber_bvarray_free( rwmap->rwm_bva_rewrite );
2667                 }
2668
2669                 avl_free( rwmap->rwm_oc.remap, rwm_mapping_dst_free );
2670                 avl_free( rwmap->rwm_oc.map, rwm_mapping_free );
2671                 avl_free( rwmap->rwm_at.remap, rwm_mapping_dst_free );
2672                 avl_free( rwmap->rwm_at.map, rwm_mapping_free );
2673                 ber_bvarray_free( rwmap->rwm_bva_map );
2674
2675                 ch_free( rwmap );
2676         }
2677
2678         return rc;
2679 }
2680
2681 static slap_overinst rwm = { { NULL } };
2682
2683 #if SLAPD_OVER_RWM == SLAPD_MOD_DYNAMIC
2684 static
2685 #endif /* SLAPD_OVER_RWM == SLAPD_MOD_DYNAMIC */
2686 int
2687 rwm_initialize( void )
2688 {
2689         int             rc;
2690
2691         /* Make sure we don't exceed the bits reserved for userland */
2692         config_check_userland( RWM_CF_LAST );
2693
2694         memset( &rwm, 0, sizeof( slap_overinst ) );
2695
2696         rwm.on_bi.bi_type = "rwm";
2697         rwm.on_bi.bi_flags =
2698                 SLAPO_BFLAG_SINGLE |
2699                 0;
2700
2701         rwm.on_bi.bi_db_init = rwm_db_init;
2702         rwm.on_bi.bi_db_config = rwm_db_config;
2703         rwm.on_bi.bi_db_destroy = rwm_db_destroy;
2704
2705         rwm.on_bi.bi_op_bind = rwm_op_bind;
2706         rwm.on_bi.bi_op_search = rwm_op_search;
2707         rwm.on_bi.bi_op_compare = rwm_op_compare;
2708         rwm.on_bi.bi_op_modify = rwm_op_modify;
2709         rwm.on_bi.bi_op_modrdn = rwm_op_modrdn;
2710         rwm.on_bi.bi_op_add = rwm_op_add;
2711         rwm.on_bi.bi_op_delete = rwm_op_delete;
2712         rwm.on_bi.bi_op_unbind = rwm_op_unbind;
2713         rwm.on_bi.bi_extended = rwm_extended;
2714 #if 1 /* TODO */
2715         rwm.on_bi.bi_entry_release_rw = rwm_entry_release_rw;
2716         rwm.on_bi.bi_entry_get_rw = rwm_entry_get_rw;
2717 #endif
2718
2719         rwm.on_bi.bi_operational = rwm_operational;
2720         rwm.on_bi.bi_chk_referrals = 0 /* rwm_chk_referrals */ ;
2721
2722         rwm.on_bi.bi_connection_init = rwm_conn_init;
2723         rwm.on_bi.bi_connection_destroy = rwm_conn_destroy;
2724
2725         rwm.on_response = rwm_response;
2726
2727         rwm.on_bi.bi_cf_ocs = rwmocs;
2728
2729         rc = config_register_schema( rwmcfg, rwmocs );
2730         if ( rc ) {
2731                 return rc;
2732         }
2733
2734         return overlay_register( &rwm );
2735 }
2736
2737 #if SLAPD_OVER_RWM == SLAPD_MOD_DYNAMIC
2738 int
2739 init_module( int argc, char *argv[] )
2740 {
2741         return rwm_initialize();
2742 }
2743 #endif /* SLAPD_OVER_RWM == SLAPD_MOD_DYNAMIC */
2744
2745 #endif /* SLAPD_OVER_RWM */