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

   1 /* $OpenLDAP$ */
   2 /*
   3  * Replication Engine which uses the LDAP Sync protocol
   4  */
   5 /*
   6  * Copyright 2003 The OpenLDAP Foundation, All Rights Reserved.
   7  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
   8  */
   9 /* Copyright (c) 2003 by International Business Machines, Inc.
  10  *
  11  * International Business Machines, Inc. (hereinafter called IBM) grants
  12  * permission under its copyrights to use, copy, modify, and distribute this
  13  * Software with or without fee, provided that the above copyright notice and
  14  * all paragraphs of this notice appear in all copies, and that the name of IBM
  15  * not be used in connection with the marketing of any product incorporating
  16  * the Software or modifications thereof, without specific, written prior
  17  * permission.
  18  *
  19  * THE SOFTWARE IS PROVIDED "AS IS", AND IBM DISCLAIMS ALL WARRANTIES,
  20  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  21  * PARTICULAR PURPOSE.  IN NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL,
  22  * DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER ARISING
  23  * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE, EVEN
  24  * IF IBM IS APPRISED OF THE POSSIBILITY OF SUCH DAMAGES.
  25  */
  26 /* Modified by Howard Chu
  27  *
  28  * Copyright (c) 2003 by Howard Chu, Symas Corporation
  29  *
  30  * Modifications provided under the terms of the OpenLDAP public license.
  31  */
  32
  33 #include "portable.h"
  34
  35 #include <stdio.h>
  36
  37 #include <ac/string.h>
  38 #include <ac/socket.h>
  39
  40 #include "ldap_pvt.h"
  41 #include "lutil.h"
  42 #include "slap.h"
  43 #include "lutil_ldap.h"
  44
  45 #include "ldap_rq.h"
  46
  47 #define SYNCREPL_STR    "syncreplxxx"
  48 #define CN_STR  "cn="
  49
  50 static const struct berval slap_syncrepl_bvc = BER_BVC(SYNCREPL_STR);
  51 static const struct berval slap_syncrepl_cn_bvc = BER_BVC(CN_STR SYNCREPL_STR);
  52
  53 static void avl_ber_bvfree( void * );
  54
  55 static void
  56 syncrepl_del_nonpresent( Operation *, syncinfo_t * );
  57
  58 /* callback functions */
  59 static int dn_callback( struct slap_op *, struct slap_rep * );
  60 static int nonpresent_callback( struct slap_op *, struct slap_rep * );
  61 static int null_callback( struct slap_op *, struct slap_rep * );
  62
  63 static AttributeDescription *sync_descs[4];
  64
  65 struct runqueue_s syncrepl_rq;
  66
  67 void
  68 init_syncrepl(syncinfo_t *si)
  69 {
  70         int i, j, k, n;
  71         char **tmp;
  72
  73         if ( !sync_descs[0] ) {
  74                 sync_descs[0] = slap_schema.si_ad_objectClass;
  75                 sync_descs[1] = slap_schema.si_ad_structuralObjectClass;
  76                 sync_descs[2] = slap_schema.si_ad_entryCSN;
  77                 sync_descs[3] = NULL;
  78         }
  79
  80         for ( n = 0; si->si_attrs[ n ] != NULL; n++ ) /* empty */;
  81
  82         if ( n ) {
  83                 /* Delete Attributes */
  84                 for ( i = 0; sync_descs[i] != NULL; i++ ) {
  85                         for ( j = 0; si->si_attrs[j] != NULL; j++ ) {
  86                                 if ( strcmp( si->si_attrs[j], sync_descs[i]->ad_cname.bv_val )
  87                                         == 0 )
  88                                 {
  89                                         ch_free( si->si_attrs[j] );
  90                                         for ( k = j; si->si_attrs[k] != NULL; k++ ) {
  91                                                 si->si_attrs[k] = si->si_attrs[k+1];
  92                                         }
  93                                 }
  94                         }
  95                 }
  96                 for ( n = 0; si->si_attrs[ n ] != NULL; n++ ) /* empty */;
  97                 tmp = ( char ** ) ch_realloc( si->si_attrs, (n + 4)*sizeof( char * ));
  98                 if ( tmp == NULL ) {
  99 #ifdef NEW_LOGGING
 100                         LDAP_LOG( OPERATION, ERR, "out of memory\n", 0,0,0 );
 101 #else
 102                         Debug( LDAP_DEBUG_ANY, "out of memory\n", 0,0,0 );
 103 #endif
 104                 }
 105         } else {
 106                 tmp = ( char ** ) ch_realloc( si->si_attrs, 5 * sizeof( char * ));
 107                 if ( tmp == NULL ) {
 108 #ifdef NEW_LOGGING
 109                         LDAP_LOG( OPERATION, ERR, "out of memory\n", 0,0,0 );
 110 #else
 111                         Debug( LDAP_DEBUG_ANY, "out of memory\n", 0,0,0 );
 112 #endif
 113                 }
 114                 tmp[ n++ ] = ch_strdup( "*" );
 115         }
 116
 117         si->si_attrs = tmp;
 118
 119         /* Add Attributes */
 120
 121         for ( i = 0; sync_descs[ i ] != NULL; i++ ) {
 122                 si->si_attrs[ n++ ] = ch_strdup ( sync_descs[i]->ad_cname.bv_val );
 123                 si->si_attrs[ n ] = NULL;
 124         }
 125 }
 126
 127 static int
 128 ldap_sync_search(
 129         syncinfo_t *si,
 130         void *ctx
 131 )
 132 {
 133         BerElementBuffer berbuf;
 134         BerElement *ber = (BerElement *)&berbuf;
 135         LDAPControl c[2], *ctrls[3];
 136         struct timeval timeout;
 137         ber_int_t       msgid;
 138         int rc;
 139
 140         /* setup LDAP SYNC control */
 141         ber_init2( ber, NULL, LBER_USE_DER );
 142         ber_set_option( ber, LBER_OPT_BER_MEMCTX, &ctx );
 143
 144         if ( si->si_syncCookie.octet_str &&
 145                  si->si_syncCookie.octet_str[0].bv_val ) {
 146                 ber_printf( ber, "{eO}", abs(si->si_type),
 147                                         &si->si_syncCookie.octet_str[0] );
 148         } else {
 149                 ber_printf( ber, "{e}", abs(si->si_type) );
 150         }
 151
 152         if ( (rc = ber_flatten2( ber, &c[0].ldctl_value, 0 )) == LBER_ERROR ) {
 153                 ber_free_buf( ber );
 154                 return rc;
 155         }
 156
 157         c[0].ldctl_oid = LDAP_CONTROL_SYNC;
 158         c[0].ldctl_iscritical = si->si_type < 0;
 159         ctrls[0] = &c[0];
 160
 161         if ( si->si_authzId ) {
 162                 c[1].ldctl_oid = LDAP_CONTROL_PROXY_AUTHZ;
 163                 ber_str2bv( si->si_authzId, 0, 0, &c[1].ldctl_value );
 164                 c[1].ldctl_iscritical = 1;
 165                 ctrls[1] = &c[1];
 166                 ctrls[2] = NULL;
 167         } else {
 168                 ctrls[1] = NULL;
 169         }
 170
 171         timeout.tv_sec = si->si_tlimit > 0 ? si->si_tlimit : 1;
 172         timeout.tv_usec = 0;
 173
 174         rc = ldap_search_ext( si->si_ld, si->si_base.bv_val, si->si_scope,
 175                 si->si_filterstr.bv_val, si->si_attrs, si->si_attrsonly,
 176                 ctrls, NULL, si->si_tlimit < 0 ? NULL : &timeout,
 177                 si->si_slimit, &msgid );
 178         ber_free_buf( ber );
 179
 180         return rc;
 181 }
 182
 183 static const Listener dummy_list = { {0, ""}, {0, ""} };
 184
 185 static int
 186 do_syncrep1(
 187         Operation *op,
 188         syncinfo_t *si )
 189 {
 190         int     rc;
 191
 192         char syncrepl_cbuf[sizeof(CN_STR SYNCREPL_STR)];
 193         struct berval syncrepl_cn_bv;
 194         struct sync_cookie      syncCookie = { NULL, -1, NULL };
 195
 196         /* Init connection to master */
 197
 198         rc = ldap_initialize( &si->si_ld, si->si_provideruri );
 199         if ( rc != LDAP_SUCCESS ) {
 200 #ifdef NEW_LOGGING
 201                 LDAP_LOG( OPERATION, ERR,
 202                         "do_syncrep1: ldap_initialize failed (%s)\n",
 203                         si->si_provideruri, 0, 0 );
 204 #else
 205                 Debug( LDAP_DEBUG_ANY,
 206                         "do_syncrep1: ldap_initialize failed (%s)\n",
 207                         si->si_provideruri, 0, 0 );
 208 #endif
 209                 return rc;
 210         }
 211
 212         op->o_protocol = LDAP_VERSION3;
 213         ldap_set_option( si->si_ld, LDAP_OPT_PROTOCOL_VERSION, &op->o_protocol );
 214
 215         /* Bind to master */
 216
 217         if ( si->si_tls ) {
 218                 rc = ldap_start_tls_s( si->si_ld, NULL, NULL );
 219                 if( rc != LDAP_SUCCESS ) {
 220 #ifdef NEW_LOGGING
 221                         LDAP_LOG ( OPERATION, ERR, "do_syncrep1: "
 222                                 "%s: ldap_start_tls failed (%d)\n",
 223                                 si->si_tls == SYNCINFO_TLS_CRITICAL ? "Error" : "Warning",
 224                                 rc, 0 );
 225 #else
 226                         Debug( LDAP_DEBUG_ANY,
 227                                 "%s: ldap_start_tls failed (%d)\n",
 228                                 si->si_tls == SYNCINFO_TLS_CRITICAL ? "Error" : "Warning",
 229                                 rc, 0 );
 230 #endif
 231                         if( si->si_tls == SYNCINFO_TLS_CRITICAL ) goto done;
 232                 }
 233         }
 234
 235         if ( si->si_bindmethod == LDAP_AUTH_SASL ) {
 236 #ifdef HAVE_CYRUS_SASL
 237                 void *defaults;
 238
 239                 if ( si->si_secprops != NULL ) {
 240                         rc = ldap_set_option( si->si_ld,
 241                                 LDAP_OPT_X_SASL_SECPROPS, si->si_secprops);
 242
 243                         if( rc != LDAP_OPT_SUCCESS ) {
 244 #ifdef NEW_LOGGING
 245                                 LDAP_LOG ( OPERATION, ERR, "do_bind: Error: "
 246                                         "ldap_set_option(%s,SECPROPS,\"%s\") failed!\n",
 247                                         si->si_provideruri, si->si_secprops, 0 );
 248 #else
 249                                 Debug( LDAP_DEBUG_ANY, "Error: ldap_set_option "
 250                                         "(%s,SECPROPS,\"%s\") failed!\n",
 251                                         si->si_provideruri, si->si_secprops, 0 );
 252 #endif
 253                                 goto done;
 254                         }
 255                 }
 256
 257                 defaults = lutil_sasl_defaults( si->si_ld,
 258                         si->si_saslmech, si->si_realm,
 259                         si->si_authcId, si->si_passwd, si->si_authzId );
 260
 261                 rc = ldap_sasl_interactive_bind_s( si->si_ld,
 262                                 si->si_binddn,
 263                                 si->si_saslmech,
 264                                 NULL, NULL,
 265                                 LDAP_SASL_QUIET,
 266                                 lutil_sasl_interact,
 267                                 defaults );
 268
 269                 lutil_sasl_freedefs( defaults );
 270
 271                 /* FIXME : different error behaviors according to
 272                  *      1) return code
 273                  *      2) on err policy : exit, retry, backoff ...
 274                  */
 275                 if ( rc != LDAP_SUCCESS ) {
 276 #ifdef NEW_LOGGING
 277                         LDAP_LOG ( OPERATION, ERR, "do_syncrep1: "
 278                                 "ldap_sasl_interactive_bind_s failed (%d)\n",
 279                                 rc, 0, 0 );
 280 #else
 281                         Debug( LDAP_DEBUG_ANY, "do_syncrep1: "
 282                                 "ldap_sasl_interactive_bind_s failed (%d)\n",
 283                                 rc, 0, 0 );
 284 #endif
 285                         goto done;
 286                 }
 287 #else /* HAVE_CYRUS_SASL */
 288                 /* Should never get here, we trapped this at config time */
 289                 fprintf( stderr, "not compiled with SASL support\n" );
 290                 rc = LDAP_OTHER;
 291                 goto done;
 292 #endif
 293         } else {
 294                 rc = ldap_bind_s( si->si_ld, si->si_binddn, si->si_passwd, si->si_bindmethod );
 295                 if ( rc != LDAP_SUCCESS ) {
 296 #ifdef NEW_LOGGING
 297                         LDAP_LOG ( OPERATION, ERR, "do_syncrep1: "
 298                                 "ldap_bind_s failed (%d)\n", rc, 0, 0 );
 299 #else
 300                         Debug( LDAP_DEBUG_ANY, "do_syncrep1: "
 301                                 "ldap_bind_s failed (%d)\n", rc, 0, 0 );
 302 #endif
 303                         goto done;
 304                 }
 305         }
 306
 307         /* get syncrepl cookie of shadow replica from subentry */
 308
 309         assert( si->si_id < 1000 );
 310         syncrepl_cn_bv.bv_val = syncrepl_cbuf;
 311         syncrepl_cn_bv.bv_len = snprintf(syncrepl_cbuf, sizeof(syncrepl_cbuf),
 312                 CN_STR "syncrepl%d", si->si_id );
 313         build_new_dn( &op->o_req_ndn, &si->si_base, &syncrepl_cn_bv,
 314                 op->o_tmpmemctx );
 315         op->o_req_dn = op->o_req_ndn;
 316
 317         if ( slap_sync_cookie != NULL ) {
 318                 slap_sync_cookie_free( &si->si_syncCookie, 0 );
 319                 slap_parse_sync_cookie( slap_sync_cookie );
 320                 if ( slap_sync_cookie->ctxcsn == NULL ||
 321                          slap_sync_cookie->ctxcsn->bv_val == NULL ) {
 322                         slap_init_sync_cookie_ctxcsn( slap_sync_cookie );
 323                 }
 324                 slap_dup_sync_cookie( &si->si_syncCookie, slap_sync_cookie );
 325                 slap_sync_cookie_free( slap_sync_cookie, 1 );
 326                 slap_sync_cookie = NULL;
 327         }
 328
 329         /* use in-memory version if it exists */
 330         if ( si->si_syncCookie.octet_str == NULL ) {
 331                 BerVarray cookie = NULL;
 332                 struct berval cookie_bv;
 333                 backend_attribute( op, NULL, &op->o_req_ndn,
 334                         slap_schema.si_ad_syncreplCookie, &cookie );
 335                 if ( cookie ) {
 336                         ber_dupbv( &cookie_bv, &cookie[0] );
 337                         ber_bvarray_add( &si->si_syncCookie.octet_str, &cookie_bv );
 338                         slap_parse_sync_cookie( &si->si_syncCookie );
 339                         ber_bvarray_free_x( cookie, op->o_tmpmemctx );
 340                 }
 341         }
 342
 343         rc = ldap_sync_search( si, op->o_tmpmemctx );
 344
 345         if( rc != LDAP_SUCCESS ) {
 346 #ifdef NEW_LOGGING
 347                 LDAP_LOG ( OPERATION, ERR, "do_syncrep1: "
 348                         "ldap_search_ext: %s (%d)\n", ldap_err2string( rc ), rc, 0 );
 349 #else
 350                 Debug( LDAP_DEBUG_ANY, "do_syncrep1: "
 351                         "ldap_search_ext: %s (%d)\n", ldap_err2string( rc ), rc, 0 );
 352 #endif
 353         }
 354
 355 done:
 356         if ( rc ) {
 357                 if ( si->si_ld ) {
 358                         ldap_unbind( si->si_ld );
 359                         si->si_ld = NULL;
 360                 }
 361         }
 362
 363         return rc;
 364 }
 365
 366 static int
 367 do_syncrep2(
 368         Operation *op,
 369         syncinfo_t *si )
 370 {
 371         LDAPControl     **rctrls = NULL;
 372         LDAPControl     *rctrlp;
 373
 374         BerElementBuffer berbuf;
 375         BerElement      *ber = (BerElement *)&berbuf;
 376
 377         LDAPMessage     *res = NULL;
 378         LDAPMessage     *msg = NULL;
 379
 380         char            *retoid = NULL;
 381         struct berval   *retdata = NULL;
 382
 383         Entry           *entry = NULL;
 384
 385         int             syncstate;
 386         struct berval   syncUUID = { 0, NULL };
 387         struct sync_cookie      syncCookie = { NULL, -1, NULL };
 388         struct sync_cookie      syncCookie_req = { NULL, -1, NULL };
 389         struct berval           cookie = { 0, NULL };
 390
 391         int     rc;
 392         int     err;
 393         ber_len_t       len;
 394
 395         slap_callback   cb;
 396
 397         int rc_efree;
 398
 399         struct berval   *psub;
 400         Modifications   *modlist = NULL;
 401
 402         const char              *text;
 403         int                             match;
 404
 405         struct timeval *tout_p = NULL;
 406         struct timeval tout = { 0, 0 };
 407
 408         int             refreshDeletes = 0;
 409         int             refreshDone = 1;
 410         BerVarray syncUUIDs;
 411         ber_tag_t si_tag;
 412
 413         if ( slapd_abrupt_shutdown ) {
 414                 rc = -2;
 415                 goto done;
 416         }
 417
 418 #ifdef NEW_LOGGING
 419         LDAP_LOG ( OPERATION, DETAIL1, "do_syncrep2\n", 0, 0, 0 );
 420 #else
 421         Debug( LDAP_DEBUG_TRACE, "=>do_syncrep2\n", 0, 0, 0 );
 422 #endif
 423
 424         op->o_callback = &cb;
 425
 426         psub = &si->si_be->be_nsuffix[0];
 427
 428         slap_dup_sync_cookie( &syncCookie_req, &si->si_syncCookie );
 429
 430         if ( abs(si->si_type) == LDAP_SYNC_REFRESH_AND_PERSIST ){
 431                 tout_p = &tout;
 432         } else {
 433                 tout_p = NULL;
 434         }
 435
 436         while (( rc = ldap_result( si->si_ld, LDAP_RES_ANY, LDAP_MSG_ONE, tout_p, &res ))
 437                 > 0 )
 438         {
 439                 if ( slapd_abrupt_shutdown ) {
 440                         rc = -2;
 441                         goto done;
 442                 }
 443                 for( msg = ldap_first_message( si->si_ld, res );
 444                   msg != NULL;
 445                   msg = ldap_next_message( si->si_ld, msg ) )
 446                 {
 447                         switch( ldap_msgtype( msg ) ) {
 448                         case LDAP_RES_SEARCH_ENTRY:
 449                                 ldap_get_entry_controls( si->si_ld, msg, &rctrls );
 450                                 /* we can't work without the control */
 451                                 if ( !rctrls ) {
 452                                         rc = -1;
 453                                         goto done;
 454                                 }
 455                                 rctrlp = *rctrls;
 456                                 ber_init2( ber, &rctrlp->ldctl_value, LBER_USE_DER );
 457                                 ber_scanf( ber, "{em", &syncstate, &syncUUID );
 458                                 if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE ) {
 459                                         ber_scanf( ber, "m}", &cookie );
 460                                         if ( cookie.bv_val ) {
 461                                                 struct berval tmp_bv;
 462                                                 ber_dupbv( &tmp_bv, &cookie );
 463                                                 ber_bvarray_add( &syncCookie.octet_str, &tmp_bv );
 464                                         }
 465                                         if ( syncCookie.octet_str &&
 466                                                         syncCookie.octet_str[0].bv_val )
 467                                                 slap_parse_sync_cookie( &syncCookie );
 468                                 }
 469                                 entry = syncrepl_message_to_entry( si, op, msg,
 470                                         &modlist, syncstate );
 471                                 rc_efree = syncrepl_entry( si, op, entry, modlist, syncstate,
 472                                                         &syncUUID, &syncCookie_req );
 473                                 if ( syncCookie.octet_str && syncCookie.octet_str[0].bv_val ) {
 474                                         syncrepl_updateCookie( si, op, psub, &syncCookie );
 475                                 }
 476                                 ldap_controls_free( rctrls );
 477                                 if ( modlist ) {
 478                                         slap_mods_free( modlist );
 479                                 }
 480                                 if ( rc_efree && entry ) {
 481                                         entry_free( entry );
 482                                 }
 483                                 break;
 484
 485                         case LDAP_RES_SEARCH_REFERENCE:
 486 #ifdef NEW_LOGGING
 487                                 LDAP_LOG( OPERATION, ERR,
 488                                         "do_syncrep2 : reference received\n", 0, 0, 0 );
 489 #else
 490                                 Debug( LDAP_DEBUG_ANY,
 491                                         "do_syncrep2 : reference received\n", 0, 0, 0 );
 492 #endif
 493                                 break;
 494
 495                         case LDAP_RES_SEARCH_RESULT:
 496                                 ldap_parse_result( si->si_ld, msg, &err, NULL, NULL, NULL,
 497                                         &rctrls, 0 );
 498                                 if ( rctrls ) {
 499                                         rctrlp = *rctrls;
 500                                         ber_init2( ber, &rctrlp->ldctl_value, LBER_USE_DER );
 501
 502                                         ber_scanf( ber, "{" /*"}"*/);
 503                                         if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE )
 504                                         {
 505                                                 ber_scanf( ber, "m", &cookie );
 506                                                 if ( cookie.bv_val ) {
 507                                                         struct berval tmp_bv;
 508                                                         ber_dupbv( &tmp_bv, &cookie );
 509                                                         ber_bvarray_add( &syncCookie.octet_str, &tmp_bv);
 510                                                 }
 511                                                 if ( syncCookie.octet_str &&
 512                                                                  syncCookie.octet_str[0].bv_val )
 513                                                         slap_parse_sync_cookie( &syncCookie );
 514                                         }
 515                                         if ( ber_peek_tag( ber, &len ) == LDAP_TAG_REFRESHDELETES )
 516                                         {
 517                                                 ber_scanf( ber, "b", &refreshDeletes );
 518                                         }
 519                                         ber_scanf( ber, "}" );
 520                                 }
 521                                 if ( syncCookie_req.ctxcsn == NULL ) {
 522                                         match = -1;
 523                                 } else if ( syncCookie.ctxcsn == NULL ) {
 524                                         match = 1;
 525                                 } else {
 526                                         value_match( &match, slap_schema.si_ad_entryCSN,
 527                                                 slap_schema.si_ad_entryCSN->ad_type->sat_ordering,
 528                                                 SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX,
 529                                                 &syncCookie_req.ctxcsn[0], &syncCookie.ctxcsn[0], &text );
 530                                 }
 531                                 if ( syncCookie.octet_str && syncCookie.octet_str->bv_val
 532                                          && match < 0 ) {
 533                                         syncrepl_updateCookie( si, op, psub, &syncCookie );
 534                                 }
 535                                 if ( rctrls ) {
 536                                         ldap_controls_free( rctrls );
 537                                 }
 538                                 if (si->si_type != LDAP_SYNC_REFRESH_AND_PERSIST) {
 539                                         /* FIXME : different error behaviors according to
 540                                          *      1) err code : LDAP_BUSY ...
 541                                          *      2) on err policy : stop service, stop sync, retry
 542                                          */
 543                                         if ( refreshDeletes == 0 && match < 0 ) {
 544                                                 syncrepl_del_nonpresent( op, si );
 545                                         } else {
 546                                                 avl_free( si->si_presentlist, avl_ber_bvfree );
 547                                                 si->si_presentlist = NULL;
 548                                         }
 549                                 }
 550                                 rc = -2;
 551                                 goto done;
 552                                 break;
 553
 554                         case LDAP_RES_INTERMEDIATE:
 555                                 rc = ldap_parse_intermediate( si->si_ld, msg,
 556                                         &retoid, &retdata, NULL, 0 );
 557                                 if ( !rc && !strcmp( retoid, LDAP_SYNC_INFO ) ) {
 558                                         int             si_refreshDelete = 0;
 559                                         int             si_refreshPresent = 0;
 560                                         ber_init2( ber, retdata, LBER_USE_DER );
 561
 562                                         switch ( si_tag = ber_peek_tag( ber, &len )) {
 563                                         ber_tag_t tag;
 564                                         case LDAP_TAG_SYNC_NEW_COOKIE:
 565                                                 ber_scanf( ber, "tm", &tag, &cookie );
 566                                                 break;
 567                                         case LDAP_TAG_SYNC_REFRESH_DELETE:
 568                                                 si_refreshDelete = 1;
 569                                         case LDAP_TAG_SYNC_REFRESH_PRESENT:
 570                                                 si_refreshPresent = 1;
 571                                                 ber_scanf( ber, "t{", &tag );
 572                                                 if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE )
 573                                                 {
 574                                                         ber_scanf( ber, "m", &tag, &cookie );
 575                                                 }
 576                                                 if ( ber_peek_tag( ber, &len ) ==
 577                                                                         LDAP_TAG_REFRESHDONE )
 578                                                 {
 579                                                         ber_scanf( ber, "b", &refreshDone );
 580                                                 }
 581                                                 ber_scanf( ber, "}" );
 582                                                 break;
 583                                         case LDAP_TAG_SYNC_ID_SET:
 584                                                 /* FIXME : to be supported */
 585                                                 ber_scanf( ber, "t{", &tag );
 586                                                 if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE )
 587                                                 {
 588                                                         ber_scanf( ber, "m", &tag, &cookie );
 589                                                 }
 590                                                 if ( ber_peek_tag( ber, &len ) ==
 591                                                                         LDAP_TAG_REFRESHDELETES )
 592                                                 {
 593                                                         ber_scanf( ber, "b", &refreshDeletes );
 594                                                 }
 595                                                 ber_scanf( ber, "[W]", &syncUUIDs );
 596                                                 ber_scanf( ber, "}" );
 597                                                 break;
 598                                         default:
 599 #ifdef NEW_LOGGING
 600                                         LDAP_LOG( OPERATION, ERR,
 601                                                 "do_syncrep2 : unknown syncinfo tag (%d)\n",
 602                                                 si_tag, 0, 0 );
 603 #else
 604                                         Debug( LDAP_DEBUG_ANY,
 605                                                 "do_syncrep2 : unknown syncinfo tag (%d)\n",
 606                                                 si_tag, 0, 0 );
 607 #endif
 608                                                 ldap_memfree( retoid );
 609                                                 ber_bvfree( retdata );
 610                                                 continue;
 611                                         }
 612
 613                                         if ( syncCookie_req.ctxcsn == NULL ) {
 614                                                 match = -1;
 615                                         } else if ( syncCookie.ctxcsn == NULL ) {
 616                                                 match = 1;
 617                                         } else {
 618                                                 value_match( &match, slap_schema.si_ad_entryCSN,
 619                                                         slap_schema.si_ad_entryCSN->ad_type->sat_ordering,
 620                                                         SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX,
 621                                                         &syncCookie_req.ctxcsn[0],
 622                                                         &syncCookie.ctxcsn[0], &text );
 623                                         }
 624
 625                                         if ( syncCookie.ctxcsn && syncCookie.ctxcsn[0].bv_val
 626                                                  && match < 0 ) {
 627                                                 syncrepl_updateCookie( si, op, psub, &syncCookie);
 628                                         }
 629
 630                                         if ( si_refreshPresent == 1 ) {
 631                                                 if ( match < 0 ) {
 632                                                         syncrepl_del_nonpresent( op, si );
 633                                                 }
 634                                         }
 635
 636                                         ldap_memfree( retoid );
 637                                         ber_bvfree( retdata );
 638                                         break;
 639                                 } else {
 640 #ifdef NEW_LOGGING
 641                                         LDAP_LOG( OPERATION, ERR,"do_syncrep2 :"
 642                                                 " unknown intermediate "
 643                                                 "response\n", 0, 0, 0 );
 644 #else
 645                                         Debug( LDAP_DEBUG_ANY, "do_syncrep2 : "
 646                                                 "unknown intermediate response (%d)\n",
 647                                                 rc, 0, 0 );
 648 #endif
 649                                         ldap_memfree( retoid );
 650                                         ber_bvfree( retdata );
 651                                         break;
 652                                 }
 653                                 break;
 654                         default:
 655 #ifdef NEW_LOGGING
 656                                 LDAP_LOG( OPERATION, ERR, "do_syncrep2 : "
 657                                         "unknown message\n", 0, 0, 0 );
 658 #else
 659                                 Debug( LDAP_DEBUG_ANY, "do_syncrep2 : "
 660                                         "unknown message\n", 0, 0, 0 );
 661 #endif
 662                                 break;
 663
 664                         }
 665                         if ( syncCookie.octet_str ) {
 666                                 slap_sync_cookie_free( &syncCookie_req, 0 );
 667                                 slap_dup_sync_cookie( &syncCookie_req, &syncCookie );
 668                                 slap_sync_cookie_free( &syncCookie, 0 );
 669                         }
 670                 }
 671                 ldap_msgfree( res );
 672                 res = NULL;
 673         }
 674
 675         if ( rc == -1 ) {
 676                 const char *errstr;
 677
 678                 ldap_get_option( si->si_ld, LDAP_OPT_ERROR_NUMBER, &rc );
 679                 errstr = ldap_err2string( rc );
 680
 681 #ifdef NEW_LOGGING
 682                 LDAP_LOG( OPERATION, ERR,
 683                         "do_syncrep2 : %s\n", errstr, 0, 0 );
 684 #else
 685                 Debug( LDAP_DEBUG_ANY,
 686                         "do_syncrep2 : %s\n", errstr, 0, 0 );
 687 #endif
 688         }
 689
 690 done:
 691         slap_sync_cookie_free( &syncCookie, 0 );
 692         slap_sync_cookie_free( &syncCookie_req, 0 );
 693
 694         if ( res ) ldap_msgfree( res );
 695
 696         if ( rc && si->si_ld ) {
 697                 ldap_unbind( si->si_ld );
 698                 si->si_ld = NULL;
 699         }
 700
 701         return rc;
 702 }
 703
 704 void *
 705 do_syncrepl(
 706         void    *ctx,
 707         void    *arg )
 708 {
 709         struct re_s* rtask = arg;
 710         syncinfo_t *si = ( syncinfo_t * ) rtask->arg;
 711         Connection conn = {0};
 712         Operation op = {0};
 713         int rc = LDAP_SUCCESS;
 714         int first = 0;
 715         int dostop = 0;
 716         ber_socket_t s;
 717
 718 #ifdef NEW_LOGGING
 719         LDAP_LOG ( OPERATION, DETAIL1, "do_syncrepl\n", 0, 0, 0 );
 720 #else
 721         Debug( LDAP_DEBUG_TRACE, "=>do_syncrepl\n", 0, 0, 0 );
 722 #endif
 723
 724         if ( si == NULL )
 725                 return NULL;
 726
 727         switch( abs( si->si_type )) {
 728         case LDAP_SYNC_REFRESH_ONLY:
 729         case LDAP_SYNC_REFRESH_AND_PERSIST:
 730                 break;
 731         default:
 732                 return NULL;
 733         }
 734
 735         if ( slapd_abrupt_shutdown && si->si_ld ) {
 736                 ldap_get_option( si->si_ld, LDAP_OPT_DESC, &s );
 737                 connection_client_stop( s );
 738                 ldap_unbind( si->si_ld );
 739                 si->si_ld = NULL;
 740                 return NULL;
 741         }
 742
 743         conn.c_connid = -1;
 744         conn.c_send_ldap_result = slap_send_ldap_result;
 745         conn.c_send_search_entry = slap_send_search_entry;
 746         conn.c_send_search_reference = slap_send_search_reference;
 747         conn.c_listener = (Listener *)&dummy_list;
 748         conn.c_peer_name = slap_empty_bv;
 749
 750         /* set memory context */
 751 #define SLAB_SIZE 1048576
 752         op.o_tmpmemctx = sl_mem_create( SLAB_SIZE, ctx );
 753         op.o_tmpmfuncs = &sl_mfuncs;
 754
 755         op.o_dn = si->si_updatedn;
 756         op.o_ndn = si->si_updatedn;
 757         op.o_time = slap_get_time();
 758         op.o_threadctx = ctx;
 759         op.o_managedsait = 1;
 760         op.o_bd = si->si_be;
 761         op.o_conn = &conn;
 762         op.o_connid = op.o_conn->c_connid;
 763
 764         op.o_sync_state.ctxcsn = NULL;
 765         op.o_sync_state.sid = -1;
 766         op.o_sync_state.octet_str = NULL;
 767         op.o_sync_slog_size = -1;
 768         LDAP_STAILQ_FIRST( &op.o_sync_slog_list ) = NULL;
 769         op.o_sync_slog_list.stqh_last = &LDAP_STAILQ_FIRST(&op.o_sync_slog_list);
 770
 771         /* Establish session, do search */
 772         if ( !si->si_ld ) {
 773                 first = 1;
 774                 rc = do_syncrep1( &op, si );
 775         }
 776
 777         /* Process results */
 778         if ( rc == LDAP_SUCCESS ) {
 779                 ldap_get_option( si->si_ld, LDAP_OPT_DESC, &s );
 780
 781                 rc = do_syncrep2( &op, si );
 782
 783                 if ( abs(si->si_type) == LDAP_SYNC_REFRESH_AND_PERSIST ) {
 784                         /* If we succeeded, enable the connection for further listening.
 785                          * If we failed, tear down the connection and reschedule.
 786                          */
 787                         if ( rc == LDAP_SUCCESS ) {
 788                                 if ( first ) {
 789                                         rc = connection_client_setup( s, (Listener *)&dummy_list, do_syncrepl,
 790                                                 arg );
 791                                 } else {
 792                                         connection_client_enable( s );
 793                                 }
 794                         } else if ( !first ) {
 795                                 dostop = 1;
 796                         }
 797                 } else {
 798                         if ( rc == -2 ) rc = 0;
 799                 }
 800         }
 801
 802         /* At this point, we have 4 cases:
 803          * 1) for any hard failure, give up and remove this task
 804          * 2) for ServerDown, reschedule this task to run
 805          * 3) for Refresh and Success, reschedule to run
 806          * 4) for Persist and Success, reschedule to defer
 807          */
 808         ldap_pvt_thread_mutex_lock( &syncrepl_rq.rq_mutex );
 809         if ( ldap_pvt_runqueue_isrunning( &syncrepl_rq, rtask )) {
 810                 ldap_pvt_runqueue_stoptask( &syncrepl_rq, rtask );
 811         }
 812
 813         if ( dostop ) {
 814                 connection_client_stop( s );
 815         }
 816
 817         if ( rc && rc != LDAP_SERVER_DOWN ) {
 818                 ldap_pvt_runqueue_remove( &syncrepl_rq, rtask );
 819         } else {
 820                 if ( rc == LDAP_SERVER_DOWN ||
 821                         si->si_type == LDAP_SYNC_REFRESH_ONLY ) {
 822                         rc = 0;
 823                 } else {
 824                         rc = 1;
 825                 }
 826                 ldap_pvt_runqueue_resched( &syncrepl_rq, rtask, rc );
 827         }
 828         ldap_pvt_thread_mutex_unlock( &syncrepl_rq.rq_mutex );
 829
 830         return NULL;
 831 }
 832
 833 Entry*
 834 syncrepl_message_to_entry(
 835         syncinfo_t      *si,
 836         Operation       *op,
 837         LDAPMessage     *msg,
 838         Modifications   **modlist,
 839         int             syncstate
 840 )
 841 {
 842         Entry           *e = NULL;
 843         BerElement      *ber = NULL;
 844         Modifications   tmp;
 845         Modifications   *mod;
 846         Modifications   **modtail = modlist;
 847
 848         const char      *text;
 849         char txtbuf[SLAP_TEXT_BUFLEN];
 850         size_t textlen = sizeof txtbuf;
 851
 852         struct berval   bdn = {0, NULL}, dn, ndn;
 853         int             rc;
 854
 855         *modlist = NULL;
 856
 857         if ( ldap_msgtype( msg ) != LDAP_RES_SEARCH_ENTRY ) {
 858 #ifdef NEW_LOGGING
 859                 LDAP_LOG( OPERATION, ERR,
 860                         "Message type should be entry (%d)", ldap_msgtype( msg ), 0, 0 );
 861 #else
 862                 Debug( LDAP_DEBUG_ANY,
 863                         "Message type should be entry (%d)", ldap_msgtype( msg ), 0, 0 );
 864 #endif
 865                 return NULL;
 866         }
 867
 868         op->o_tag = LDAP_REQ_ADD;
 869
 870         rc = ldap_get_dn_ber( si->si_ld, msg, &ber, &bdn );
 871
 872         if ( rc != LDAP_SUCCESS ) {
 873 #ifdef NEW_LOGGING
 874                 LDAP_LOG( OPERATION, ERR,
 875                         "syncrepl_message_to_entry : dn get failed (%d)", rc, 0, 0 );
 876 #else
 877                 Debug( LDAP_DEBUG_ANY,
 878                         "syncrepl_message_to_entry : dn get failed (%d)", rc, 0, 0 );
 879 #endif
 880                 return NULL;
 881         }
 882
 883         dnPrettyNormal( NULL, &bdn, &dn, &ndn, op->o_tmpmemctx );
 884         ber_dupbv( &op->o_req_dn, &dn );
 885         ber_dupbv( &op->o_req_ndn, &ndn );
 886         sl_free( ndn.bv_val, op->o_tmpmemctx );
 887         sl_free( dn.bv_val, op->o_tmpmemctx );
 888
 889         if ( syncstate == LDAP_SYNC_PRESENT || syncstate == LDAP_SYNC_DELETE ) {
 890                 return NULL;
 891         }
 892
 893         e = ( Entry * ) ch_calloc( 1, sizeof( Entry ) );
 894         e->e_name = op->o_req_dn;
 895         e->e_nname = op->o_req_ndn;
 896
 897         while ( ber_remaining( ber ) ) {
 898                 if ( (ber_scanf( ber, "{mW}", &tmp.sml_type, &tmp.sml_values ) ==
 899                         LBER_ERROR ) || ( tmp.sml_type.bv_val == NULL ))
 900                 {
 901                         break;
 902                 }
 903
 904                 mod  = (Modifications *) ch_malloc( sizeof( Modifications ));
 905
 906                 mod->sml_op = LDAP_MOD_REPLACE;
 907                 mod->sml_next = NULL;
 908                 mod->sml_desc = NULL;
 909                 mod->sml_type = tmp.sml_type;
 910                 mod->sml_bvalues = tmp.sml_bvalues;
 911                 mod->sml_nvalues = NULL;
 912
 913                 *modtail = mod;
 914                 modtail = &mod->sml_next;
 915         }
 916
 917         if ( *modlist == NULL ) {
 918 #ifdef NEW_LOGGING
 919                 LDAP_LOG( OPERATION, ERR,
 920                                 "syncrepl_message_to_entry: no attributes\n", 0, 0, 0 );
 921 #else
 922                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: no attributes\n",
 923                                 0, 0, 0 );
 924 #endif
 925         }
 926
 927         rc = slap_mods_check( *modlist, 1, &text, txtbuf, textlen, NULL );
 928
 929         if ( rc != LDAP_SUCCESS ) {
 930 #ifdef NEW_LOGGING
 931                 LDAP_LOG( OPERATION, ERR,
 932                                 "syncrepl_message_to_entry: mods check (%s)\n", text, 0, 0 );
 933 #else
 934                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: mods check (%s)\n",
 935                                 text, 0, 0 );
 936 #endif
 937                 goto done;
 938         }
 939
 940         rc = slap_mods2entry( *modlist, &e, 1, 1, &text, txtbuf, textlen);
 941         if( rc != LDAP_SUCCESS ) {
 942 #ifdef NEW_LOGGING
 943                 LDAP_LOG( OPERATION, ERR,
 944                                 "syncrepl_message_to_entry: mods2entry (%s)\n", text, 0, 0 );
 945 #else
 946                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: mods2entry (%s)\n",
 947                                 text, 0, 0 );
 948 #endif
 949         }
 950
 951 done:
 952         ber_free ( ber, 0 );
 953         if ( rc != LDAP_SUCCESS ) {
 954                 entry_free( e );
 955                 e = NULL;
 956         }
 957
 958         return e;
 959 }
 960
 961 int
 962 syncuuid_cmp( const void* v_uuid1, const void* v_uuid2 )
 963 {
 964         const struct berval *uuid1 = v_uuid1;
 965         const struct berval *uuid2 = v_uuid2;
 966         int rc = uuid1->bv_len - uuid2->bv_len;
 967         if ( rc ) return rc;
 968         return ( strcmp( uuid1->bv_val, uuid2->bv_val ) );
 969 }
 970
 971 int
 972 syncrepl_entry(
 973         syncinfo_t* si,
 974         Operation *op,
 975         Entry* e,
 976         Modifications* modlist,
 977         int syncstate,
 978         struct berval* syncUUID,
 979         struct sync_cookie* syncCookie_req
 980 )
 981 {
 982         Backend *be = op->o_bd;
 983         slap_callback   cb;
 984         struct berval   *syncuuid_bv = NULL;
 985
 986         SlapReply       rs = {REP_RESULT};
 987         Filter f = {0};
 988         AttributeAssertion ava = {0};
 989         int rc = LDAP_SUCCESS;
 990         int ret = LDAP_SUCCESS;
 991         const char *text;
 992
 993         if (( syncstate == LDAP_SYNC_PRESENT || syncstate == LDAP_SYNC_ADD ))
 994         {
 995                 syncuuid_bv = ber_dupbv( NULL, syncUUID );
 996                 avl_insert( &si->si_presentlist, (caddr_t) syncuuid_bv,
 997                         syncuuid_cmp, avl_dup_error );
 998         }
 999
1000         if ( syncstate == LDAP_SYNC_PRESENT ) {
1001                 return e ? 1 : 0;
1002         }
1003
1004         f.f_choice = LDAP_FILTER_EQUALITY;
1005         f.f_ava = &ava;
1006         ava.aa_desc = slap_schema.si_ad_entryUUID;
1007         rc = asserted_value_validate_normalize(
1008                 ava.aa_desc, ad_mr(ava.aa_desc, SLAP_MR_EQUALITY),
1009                 SLAP_MR_EQUALITY, syncUUID, &ava.aa_value, &text, op->o_tmpmemctx );
1010         if ( rc != LDAP_SUCCESS ) {
1011                 return rc;
1012         }
1013         op->ors_filter = &f;
1014
1015         op->ors_filterstr.bv_len = (sizeof("entryUUID=")-1) + syncUUID->bv_len;
1016         op->ors_filterstr.bv_val = (char *) sl_malloc(
1017                 op->ors_filterstr.bv_len + 1, op->o_tmpmemctx );
1018         AC_MEMCPY( op->ors_filterstr.bv_val, "entryUUID=", sizeof("entryUUID=")-1 );
1019         AC_MEMCPY( &op->ors_filterstr.bv_val[sizeof("entryUUID=")-1],
1020                 syncUUID->bv_val, syncUUID->bv_len );
1021         op->ors_filterstr.bv_val[op->ors_filterstr.bv_len] = '\0';
1022
1023         op->ors_scope = LDAP_SCOPE_SUBTREE;
1024
1025         /* get syncrepl cookie of shadow replica from subentry */
1026         op->o_req_dn = si->si_base;
1027         op->o_req_ndn = si->si_base;
1028
1029         /* set callback function */
1030         op->o_callback = &cb;
1031         cb.sc_response = dn_callback;
1032         cb.sc_private = si;
1033
1034         si->si_syncUUID_ndn.bv_val = NULL;
1035
1036         rc = be->be_search( op, &rs );
1037
1038         if ( op->ors_filterstr.bv_val ) {
1039                 sl_free( op->ors_filterstr.bv_val, op->o_tmpmemctx );
1040         }
1041
1042         cb.sc_response = null_callback;
1043         cb.sc_private = si;
1044
1045         if ( rc == LDAP_SUCCESS && si->si_syncUUID_ndn.bv_val )
1046         {
1047                 char *subseq_ptr;
1048
1049                 if ( syncstate != LDAP_SYNC_DELETE ) {
1050                         op->o_no_psearch = 1;
1051                 }
1052
1053                 ber_dupbv( &op->o_sync_csn, syncCookie_req->ctxcsn );
1054                 subseq_ptr = strstr( op->o_sync_csn.bv_val, "#0000" );
1055                 subseq_ptr += 4;
1056                 *subseq_ptr = '1';
1057
1058                 op->o_req_dn = si->si_syncUUID_ndn;
1059                 op->o_req_ndn = si->si_syncUUID_ndn;
1060                 op->o_tag = LDAP_REQ_DELETE;
1061                 rc = be->be_delete( op, &rs );
1062                 op->o_no_psearch = 0;
1063         }
1064
1065         switch ( syncstate ) {
1066         case LDAP_SYNC_ADD:
1067         case LDAP_SYNC_MODIFY:
1068                 if ( rc == LDAP_SUCCESS ||
1069                          rc == LDAP_REFERRAL ||
1070                          rc == LDAP_NO_SUCH_OBJECT )
1071                 {
1072                         attr_delete( &e->e_attrs, slap_schema.si_ad_entryUUID );
1073                         attr_merge_one( e, slap_schema.si_ad_entryUUID,
1074                                 syncUUID, &ava.aa_value );
1075
1076                         op->o_tag = LDAP_REQ_ADD;
1077                         op->ora_e = e;
1078                         op->o_req_dn = e->e_name;
1079                         op->o_req_ndn = e->e_nname;
1080                         rc = be->be_add( op, &rs );
1081
1082                         if ( rc != LDAP_SUCCESS ) {
1083                                 if ( rc == LDAP_ALREADY_EXISTS ) {
1084                                         op->o_tag = LDAP_REQ_MODIFY;
1085                                         op->orm_modlist = modlist;
1086                                         op->o_req_dn = e->e_name;
1087                                         op->o_req_ndn = e->e_nname;
1088                                         rc = be->be_modify( op, &rs );
1089                                         if ( rc != LDAP_SUCCESS ) {
1090 #ifdef NEW_LOGGING
1091                                                 LDAP_LOG( OPERATION, ERR,
1092                                                         "syncrepl_entry : be_modify failed (%d)\n",
1093                                                         rc, 0, 0 );
1094 #else
1095                                                 Debug( LDAP_DEBUG_ANY,
1096                                                         "syncrepl_entry : be_modify failed (%d)\n",
1097                                                         rc, 0, 0 );
1098 #endif
1099                                         }
1100                                         ret = 1;
1101                                         goto done;
1102                                 } else if ( rc == LDAP_REFERRAL || rc == LDAP_NO_SUCH_OBJECT ) {
1103                                         syncrepl_add_glue( op, e );
1104                                         ret = 0;
1105                                         goto done;
1106                                 } else {
1107 #ifdef NEW_LOGGING
1108                                         LDAP_LOG( OPERATION, ERR,
1109                                                 "syncrepl_entry : be_add failed (%d)\n",
1110                                                 rc, 0, 0 );
1111 #else
1112                                         Debug( LDAP_DEBUG_ANY,
1113                                                 "syncrepl_entry : be_add failed (%d)\n",
1114                                                 rc, 0, 0 );
1115 #endif
1116                                         ret = 1;
1117                                         goto done;
1118                                 }
1119                         } else {
1120                                 be_entry_release_w( op, e );
1121                                 ret = 0;
1122                                 goto done;
1123                         }
1124                 } else {
1125 #ifdef NEW_LOGGING
1126                         LDAP_LOG( OPERATION, ERR,
1127                                 "syncrepl_entry : be_search failed (%d)\n", rc, 0, 0 );
1128 #else
1129                         Debug( LDAP_DEBUG_ANY,
1130                                 "syncrepl_entry : be_search failed (%d)\n", rc, 0, 0 );
1131 #endif
1132                         ret = 1;
1133                         goto done;
1134                 }
1135
1136         case LDAP_SYNC_DELETE :
1137                 /* Already deleted */
1138                 ret = 1;
1139                 goto done;
1140
1141         default :
1142 #ifdef NEW_LOGGING
1143                 LDAP_LOG( OPERATION, ERR,
1144                         "syncrepl_entry : unknown syncstate\n", 0, 0, 0 );
1145 #else
1146                 Debug( LDAP_DEBUG_ANY,
1147                         "syncrepl_entry : unknown syncstate\n", 0, 0, 0 );
1148 #endif
1149                 ret = 1;
1150                 goto done;
1151         }
1152
1153 done :
1154
1155         if ( ava.aa_value.bv_val ) {
1156                 ber_memfree_x( ava.aa_value.bv_val, op->o_tmpmemctx );
1157         }
1158         if ( si->si_syncUUID_ndn.bv_val ) {
1159                 ber_memfree_x( si->si_syncUUID_ndn.bv_val, op->o_tmpmemctx );
1160         }
1161         return ret;
1162 }
1163
1164 static void
1165 syncrepl_del_nonpresent(
1166         Operation *op,
1167         syncinfo_t *si
1168 )
1169 {
1170         Backend* be = op->o_bd;
1171         slap_callback   cb;
1172         SlapReply       rs = {REP_RESULT};
1173         struct nonpresent_entry *np_list, *np_prev;
1174
1175         op->o_req_dn = si->si_base;
1176         op->o_req_ndn = si->si_base;
1177
1178         cb.sc_response = nonpresent_callback;
1179         cb.sc_private = si;
1180
1181         op->o_callback = &cb;
1182         op->o_tag = LDAP_REQ_SEARCH;
1183         op->ors_scope = si->si_scope;
1184         op->ors_deref = LDAP_DEREF_NEVER;
1185         op->ors_slimit = 0;
1186         op->ors_tlimit = 0;
1187         op->ors_attrsonly = 0;
1188         op->ors_attrs = NULL;
1189         op->ors_filter = str2filter_x( op, si->si_filterstr.bv_val );
1190         op->ors_filterstr = si->si_filterstr;
1191
1192         op->o_nocaching = 1;
1193         be->be_search( op, &rs );
1194         op->o_nocaching = 0;
1195
1196         if ( op->ors_filter ) filter_free_x( op, op->ors_filter );
1197
1198         if ( !LDAP_LIST_EMPTY( &si->si_nonpresentlist ) ) {
1199                 np_list = LDAP_LIST_FIRST( &si->si_nonpresentlist );
1200                 while ( np_list != NULL ) {
1201                         LDAP_LIST_REMOVE( np_list, npe_link );
1202                         np_prev = np_list;
1203                         np_list = LDAP_LIST_NEXT( np_list, npe_link );
1204                         op->o_tag = LDAP_REQ_DELETE;
1205                         op->o_callback = &cb;
1206                         cb.sc_response = null_callback;
1207                         cb.sc_private = si;
1208                         op->o_req_dn = *np_prev->npe_name;
1209                         op->o_req_ndn = *np_prev->npe_nname;
1210                         op->o_bd->be_delete( op, &rs );
1211                         ber_bvfree( np_prev->npe_name );
1212                         ber_bvfree( np_prev->npe_nname );
1213                         op->o_req_dn.bv_val = NULL;
1214                         op->o_req_ndn.bv_val = NULL;
1215                         ch_free( np_prev );
1216                 }
1217         }
1218
1219         return;
1220 }
1221
1222
1223 static struct berval gcbva[] = {
1224         BER_BVC("top"),
1225         BER_BVC("glue")
1226 };
1227
1228 void
1229 syncrepl_add_glue(
1230         Operation* op,
1231         Entry *e
1232 )
1233 {
1234         Backend *be = op->o_bd;
1235         slap_callback cb;
1236         Attribute       *a;
1237         int     rc;
1238         int suffrdns;
1239         int i;
1240         struct berval dn = {0, NULL};
1241         struct berval ndn = {0, NULL};
1242         Entry   *glue;
1243         SlapReply       rs = {REP_RESULT};
1244         char    *ptr, *comma;
1245
1246         op->o_tag = LDAP_REQ_ADD;
1247         op->o_callback = &cb;
1248         cb.sc_response = null_callback;
1249         cb.sc_private = NULL;
1250
1251         dn = e->e_name;
1252         ndn = e->e_nname;
1253
1254         /* count RDNs in suffix */
1255         if ( be->be_nsuffix[0].bv_len ) {
1256                 for (i=0, ptr=be->be_nsuffix[0].bv_val; ptr; ptr=strchr( ptr, ',' )) {
1257                         ptr++;
1258                         i++;
1259                 }
1260                 suffrdns = i;
1261         } else {
1262                 /* suffix is "" */
1263                 suffrdns = 0;
1264         }
1265
1266         /* Start with BE suffix */
1267         for ( i = 0, ptr = NULL; i < suffrdns; i++ ) {
1268                 comma = strrchr(dn.bv_val, ',');
1269                 if ( ptr ) *ptr = ',';
1270                 if ( comma ) *comma = '\0';
1271                 ptr = comma;
1272         }
1273         if ( ptr ) {
1274                 *ptr++ = ',';
1275                 dn.bv_len -= ptr - dn.bv_val;
1276                 dn.bv_val = ptr;
1277         }
1278         /* the normalizedDNs are always the same length, no counting
1279          * required.
1280          */
1281         if ( ndn.bv_len > be->be_nsuffix[0].bv_len ) {
1282                 ndn.bv_val += ndn.bv_len - be->be_nsuffix[0].bv_len;
1283                 ndn.bv_len = be->be_nsuffix[0].bv_len;
1284         }
1285
1286         while ( ndn.bv_val > e->e_nname.bv_val ) {
1287                 glue = (Entry *) ch_calloc( 1, sizeof(Entry) );
1288                 ber_dupbv( &glue->e_name, &dn );
1289                 ber_dupbv( &glue->e_nname, &ndn );
1290
1291                 a = ch_calloc( 1, sizeof( Attribute ));
1292                 a->a_desc = slap_schema.si_ad_objectClass;
1293
1294                 a->a_vals = ch_calloc( 3, sizeof( struct berval ));
1295                 ber_dupbv( &a->a_vals[0], &gcbva[0] );
1296                 ber_dupbv( &a->a_vals[1], &gcbva[1] );
1297                 a->a_vals[2].bv_len = 0;
1298                 a->a_vals[2].bv_val = NULL;
1299
1300                 a->a_nvals = a->a_vals;
1301
1302                 a->a_next = glue->e_attrs;
1303                 glue->e_attrs = a;
1304
1305                 a = ch_calloc( 1, sizeof( Attribute ));
1306                 a->a_desc = slap_schema.si_ad_structuralObjectClass;
1307
1308                 a->a_vals = ch_calloc( 2, sizeof( struct berval ));
1309                 ber_dupbv( &a->a_vals[0], &gcbva[1] );
1310                 a->a_vals[1].bv_len = 0;
1311                 a->a_vals[1].bv_val = NULL;
1312
1313                 a->a_nvals = a->a_vals;
1314
1315                 a->a_next = glue->e_attrs;
1316                 glue->e_attrs = a;
1317
1318                 op->o_req_dn = glue->e_name;
1319                 op->o_req_ndn = glue->e_nname;
1320                 op->ora_e = glue;
1321                 rc = be->be_add ( op, &rs );
1322                 if ( rc == LDAP_SUCCESS ) {
1323                         be_entry_release_w( op, glue );
1324                 } else {
1325                 /* incl. ALREADY EXIST */
1326                         entry_free( glue );
1327                 }
1328
1329                 /* Move to next child */
1330                 for (ptr = dn.bv_val-2; ptr > e->e_name.bv_val && *ptr != ','; ptr--) {
1331                         /* empty */
1332                 }
1333                 if ( ptr == e->e_name.bv_val ) break;
1334                 dn.bv_val = ++ptr;
1335                 dn.bv_len = e->e_name.bv_len - (ptr-e->e_name.bv_val);
1336                 for( ptr = ndn.bv_val-2;
1337                         ptr > e->e_nname.bv_val && *ptr != ',';
1338                         ptr--)
1339                 {
1340                         /* empty */
1341                 }
1342                 ndn.bv_val = ++ptr;
1343                 ndn.bv_len = e->e_nname.bv_len - (ptr-e->e_nname.bv_val);
1344         }
1345
1346         op->o_req_dn = e->e_name;
1347         op->o_req_ndn = e->e_nname;
1348         op->ora_e = e;
1349         rc = be->be_add ( op, &rs );
1350         if ( rc == LDAP_SUCCESS ) {
1351                 be_entry_release_w( op, e );
1352         } else {
1353                 entry_free( e );
1354         }
1355
1356         return;
1357 }
1358
1359 static struct berval ocbva[] = {
1360         BER_BVC("top"),
1361         BER_BVC("subentry"),
1362         BER_BVC("syncConsumerSubentry"),
1363         BER_BVNULL
1364 };
1365
1366 static struct berval cnbva[] = {
1367         BER_BVNULL,
1368         BER_BVNULL
1369 };
1370
1371 static struct berval ssbva[] = {
1372         BER_BVC("{}"),
1373         BER_BVNULL
1374 };
1375
1376 static struct berval scbva[] = {
1377         BER_BVNULL,
1378         BER_BVNULL
1379 };
1380
1381 void
1382 syncrepl_updateCookie(
1383         syncinfo_t *si,
1384         Operation *op,
1385         struct berval *pdn,
1386         struct sync_cookie *syncCookie
1387 )
1388 {
1389         Backend *be = op->o_bd;
1390         Modifications *ml;
1391         Modifications *mlnext;
1392         Modifications *mod;
1393         Modifications *modlist = NULL;
1394         Modifications **modtail = &modlist;
1395
1396         const char      *text;
1397         char txtbuf[SLAP_TEXT_BUFLEN];
1398         size_t textlen = sizeof txtbuf;
1399
1400         Entry* e = NULL;
1401         int rc;
1402
1403         char syncrepl_cbuf[sizeof(CN_STR SYNCREPL_STR)];
1404         struct berval slap_syncrepl_dn_bv = BER_BVNULL;
1405         struct berval slap_syncrepl_cn_bv = BER_BVNULL;
1406
1407         slap_callback cb;
1408         SlapReply       rs = {REP_RESULT};
1409
1410         slap_sync_cookie_free( &si->si_syncCookie, 0 );
1411         slap_dup_sync_cookie( &si->si_syncCookie, syncCookie );
1412
1413         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1414         mod->sml_op = LDAP_MOD_REPLACE;
1415         mod->sml_desc = slap_schema.si_ad_objectClass;
1416         mod->sml_type = mod->sml_desc->ad_cname;
1417         mod->sml_bvalues = ocbva;
1418         *modtail = mod;
1419         modtail = &mod->sml_next;
1420
1421         ber_dupbv( &cnbva[0], (struct berval *) &slap_syncrepl_bvc );
1422         assert( si->si_id < 1000 );
1423         cnbva[0].bv_len = snprintf( cnbva[0].bv_val,
1424                 slap_syncrepl_bvc.bv_len,
1425                 "syncrepl%d", si->si_id );
1426         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1427         mod->sml_op = LDAP_MOD_REPLACE;
1428         mod->sml_desc = slap_schema.si_ad_cn;
1429         mod->sml_type = mod->sml_desc->ad_cname;
1430         mod->sml_bvalues = cnbva;
1431         *modtail = mod;
1432         modtail = &mod->sml_next;
1433
1434         if ( scbva[0].bv_val ) ch_free( scbva[0].bv_val );
1435         ber_dupbv( &scbva[0], &si->si_syncCookie.octet_str[0] );
1436         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1437         mod->sml_op = LDAP_MOD_REPLACE;
1438         mod->sml_desc = slap_schema.si_ad_syncreplCookie;
1439         mod->sml_type = mod->sml_desc->ad_cname;
1440         mod->sml_bvalues = scbva;
1441         *modtail = mod;
1442         modtail = &mod->sml_next;
1443
1444         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1445         mod->sml_op = LDAP_MOD_REPLACE;
1446         mod->sml_desc = slap_schema.si_ad_subtreeSpecification;
1447         mod->sml_type = mod->sml_desc->ad_cname;
1448         mod->sml_bvalues = ssbva;
1449         *modtail = mod;
1450         modtail = &mod->sml_next;
1451
1452         mlnext = mod;
1453
1454         op->o_tag = LDAP_REQ_ADD;
1455         rc = slap_mods_opattrs( op, modlist, modtail,
1456                                                          &text,txtbuf, textlen );
1457
1458         for ( ml = modlist; ml != NULL; ml = ml->sml_next ) {
1459                 ml->sml_op = LDAP_MOD_REPLACE;
1460         }
1461
1462         if( rc != LDAP_SUCCESS ) {
1463 #ifdef NEW_LOGGING
1464                 LDAP_LOG( OPERATION, ERR,
1465                         "syncrepl_updateCookie: mods opattrs (%s)\n", text, 0, 0 );
1466 #else
1467                 Debug( LDAP_DEBUG_ANY, "syncrepl_updateCookie: mods opattrs (%s)\n",
1468                          text, 0, 0 );
1469 #endif
1470         }
1471
1472         e = ( Entry * ) ch_calloc( 1, sizeof( Entry ));
1473
1474         slap_syncrepl_cn_bv.bv_val = syncrepl_cbuf;
1475         assert( si->si_id < 1000 );
1476         slap_syncrepl_cn_bv.bv_len = snprintf( slap_syncrepl_cn_bv.bv_val,
1477                 slap_syncrepl_cn_bvc.bv_len,
1478                 "cn=syncrepl%d", si->si_id );
1479
1480         build_new_dn( &slap_syncrepl_dn_bv, pdn, &slap_syncrepl_cn_bv,
1481                 op->o_tmpmemctx );
1482         ber_dupbv( &e->e_name, &slap_syncrepl_dn_bv );
1483         ber_dupbv( &e->e_nname, &slap_syncrepl_dn_bv );
1484
1485         if ( slap_syncrepl_dn_bv.bv_val ) {
1486                 sl_free( slap_syncrepl_dn_bv.bv_val, op->o_tmpmemctx );
1487         }
1488
1489         e->e_attrs = NULL;
1490
1491         rc = slap_mods2entry( modlist, &e, 1, 1, &text, txtbuf, textlen );
1492
1493         if( rc != LDAP_SUCCESS ) {
1494 #ifdef NEW_LOGGING
1495                 LDAP_LOG( OPERATION, ERR,
1496                         "syncrepl_updateCookie: mods2entry (%s)\n", text, 0, 0 );
1497 #else
1498                 Debug( LDAP_DEBUG_ANY, "syncrepl_updateCookie: mods2entry (%s)\n",
1499                          text, 0, 0 );
1500 #endif
1501         }
1502
1503         cb.sc_response = null_callback;
1504         cb.sc_private = si;
1505
1506         op->o_callback = &cb;
1507         op->o_req_dn = e->e_name;
1508         op->o_req_ndn = e->e_nname;
1509
1510         /* update persistent cookie */
1511 update_cookie_retry:
1512         op->o_tag = LDAP_REQ_MODIFY;
1513         op->orm_modlist = modlist;
1514         rc = be->be_modify( op, &rs );
1515
1516         if ( rc != LDAP_SUCCESS ) {
1517                 if ( rc == LDAP_REFERRAL ||
1518                          rc == LDAP_NO_SUCH_OBJECT ) {
1519                         op->o_tag = LDAP_REQ_ADD;
1520                         op->ora_e = e;
1521                         rc = be->be_add( op, &rs );
1522                         if ( rc != LDAP_SUCCESS ) {
1523                                 if ( rc == LDAP_ALREADY_EXISTS ) {
1524                                         goto update_cookie_retry;
1525                                 } else if ( rc == LDAP_REFERRAL ||
1526                                                         rc == LDAP_NO_SUCH_OBJECT ) {
1527 #ifdef NEW_LOGGING
1528                                         LDAP_LOG( OPERATION, ERR,
1529                                                 "cookie will be non-persistent\n",
1530                                                 0, 0, 0 );
1531 #else
1532                                         Debug( LDAP_DEBUG_ANY,
1533                                                 "cookie will be non-persistent\n",
1534                                                 0, 0, 0 );
1535 #endif
1536                                 } else {
1537 #ifdef NEW_LOGGING
1538                                         LDAP_LOG( OPERATION, ERR,
1539                                                 "be_add failed (%d)\n",
1540                                                 rc, 0, 0 );
1541 #else
1542                                         Debug( LDAP_DEBUG_ANY,
1543                                                 "be_add failed (%d)\n",
1544                                                 rc, 0, 0 );
1545 #endif
1546                                 }
1547                         } else {
1548                                 be_entry_release_w( op, e );
1549                                 goto done;
1550                         }
1551                 } else {
1552 #ifdef NEW_LOGGING
1553                         LDAP_LOG( OPERATION, ERR,
1554                                 "be_modify failed (%d)\n", rc, 0, 0 );
1555 #else
1556                         Debug( LDAP_DEBUG_ANY,
1557                                 "be_modify failed (%d)\n", rc, 0, 0 );
1558 #endif
1559                 }
1560         }
1561
1562         if ( e != NULL ) {
1563                 entry_free( e );
1564         }
1565
1566 done :
1567
1568         if ( cnbva[0].bv_val ) {
1569                 ch_free( cnbva[0].bv_val );
1570                 cnbva[0].bv_val = NULL;
1571         }
1572         if ( scbva[0].bv_val ) {
1573                 ch_free( scbva[0].bv_val );
1574                 scbva[0].bv_val = NULL;
1575         }
1576
1577         if ( mlnext->sml_next ) {
1578                 slap_mods_free( mlnext->sml_next );
1579                 mlnext->sml_next = NULL;
1580         }
1581
1582         for (ml = modlist ; ml != NULL; ml = mlnext ) {
1583                 mlnext = ml->sml_next;
1584                 free( ml );
1585         }
1586
1587         return;
1588 }
1589
1590 static int
1591 dn_callback(
1592         Operation*      op,
1593         SlapReply*      rs
1594 )
1595 {
1596         syncinfo_t *si = op->o_callback->sc_private;
1597
1598         if ( rs->sr_type == REP_SEARCH ) {
1599                 if ( si->si_syncUUID_ndn.bv_val != NULL ) {
1600 #ifdef NEW_LOGGING
1601                         LDAP_LOG( OPERATION, ERR,
1602                                 "dn_callback : multiple entries match dn\n", 0, 0, 0 );
1603 #else
1604                         Debug( LDAP_DEBUG_ANY,
1605                                 "dn_callback : multiple entries match dn\n", 0, 0, 0 );
1606 #endif
1607                 } else {
1608                         ber_dupbv_x( &si->si_syncUUID_ndn, &rs->sr_entry->e_nname, op->o_tmpmemctx );
1609                 }
1610         }
1611
1612         return LDAP_SUCCESS;
1613 }
1614
1615 static int
1616 nonpresent_callback(
1617         Operation*      op,
1618         SlapReply*      rs
1619 )
1620 {
1621         syncinfo_t *si = op->o_callback->sc_private;
1622         Attribute *a;
1623         int count = 0;
1624         struct berval* present_uuid = NULL;
1625         struct nonpresent_entry *np_entry;
1626
1627         if ( rs->sr_type == REP_RESULT ) {
1628                 count = avl_free( si->si_presentlist, avl_ber_bvfree );
1629                 si->si_presentlist = NULL;
1630
1631         } else if ( rs->sr_type == REP_SEARCH ) {
1632                 a = attr_find( rs->sr_entry->e_attrs, slap_schema.si_ad_entryUUID );
1633
1634                 if ( a == NULL ) return 0;
1635
1636                 present_uuid = avl_find( si->si_presentlist, &a->a_vals[0],
1637                         syncuuid_cmp );
1638
1639                 if ( present_uuid == NULL ) {
1640                         np_entry = (struct nonpresent_entry *)
1641                                 ch_calloc( 1, sizeof( struct nonpresent_entry ));
1642                         np_entry->npe_name = ber_dupbv( NULL, &rs->sr_entry->e_name );
1643                         np_entry->npe_nname = ber_dupbv( NULL, &rs->sr_entry->e_nname );
1644                         LDAP_LIST_INSERT_HEAD( &si->si_nonpresentlist, np_entry, npe_link );
1645
1646                 } else {
1647                         avl_delete( &si->si_presentlist,
1648                                         &a->a_vals[0], syncuuid_cmp );
1649                         ch_free( present_uuid->bv_val );
1650                         ch_free( present_uuid );
1651                 }
1652         }
1653         return LDAP_SUCCESS;
1654 }
1655
1656 static int
1657 null_callback(
1658         Operation*      op,
1659         SlapReply*      rs
1660 )
1661 {
1662         if ( rs->sr_err != LDAP_SUCCESS &&
1663                 rs->sr_err != LDAP_REFERRAL &&
1664                 rs->sr_err != LDAP_ALREADY_EXISTS &&
1665                 rs->sr_err != LDAP_NO_SUCH_OBJECT )
1666         {
1667 #ifdef NEW_LOGGING
1668                 LDAP_LOG( OPERATION, ERR,
1669                         "null_callback : error code 0x%x\n",
1670                         rs->sr_err, 0, 0 );
1671 #else
1672                 Debug( LDAP_DEBUG_ANY,
1673                         "null_callback : error code 0x%x\n",
1674                         rs->sr_err, 0, 0 );
1675 #endif
1676         }
1677         return LDAP_SUCCESS;
1678 }
1679
1680 Entry *
1681 slap_create_syncrepl_entry(
1682         Backend *be,
1683         struct berval *context_csn,
1684         struct berval *rdn,
1685         struct berval *cn
1686 )
1687 {
1688         Entry* e;
1689
1690         struct berval bv;
1691
1692         e = ( Entry * ) ch_calloc( 1, sizeof( Entry ));
1693
1694         attr_merge( e, slap_schema.si_ad_objectClass, ocbva, NULL );
1695
1696         attr_merge_one( e, slap_schema.si_ad_structuralObjectClass,
1697                 &ocbva[1], NULL );
1698
1699         attr_merge_one( e, slap_schema.si_ad_cn, cn, NULL );
1700
1701         if ( context_csn ) {
1702                 attr_merge_one( e, slap_schema.si_ad_syncreplCookie,
1703                         context_csn, NULL );
1704         }
1705
1706         bv.bv_val = "{}";
1707         bv.bv_len = sizeof("{}")-1;
1708         attr_merge_one( e, slap_schema.si_ad_subtreeSpecification, &bv, NULL );
1709
1710         build_new_dn( &e->e_name, &be->be_nsuffix[0], rdn, NULL );
1711         ber_dupbv( &e->e_nname, &e->e_name );
1712
1713         return e;
1714 }
1715
1716 static void
1717 avl_ber_bvfree( void *bv )
1718 {
1719         if( bv == NULL ) {
1720                 return;
1721         }
1722         if ( ((struct berval *)bv)->bv_val != NULL ) {
1723                 ch_free ( ((struct berval *)bv)->bv_val );
1724         }
1725         ch_free ( (char *) bv );
1726 }
1727