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                 if ( op->o_sync_csn.bv_val ) {
1055                         subseq_ptr = strstr( op->o_sync_csn.bv_val, "#0000" );
1056                         subseq_ptr += 4;
1057                         *subseq_ptr = '1';
1058                 }
1059
1060                 op->o_req_dn = si->si_syncUUID_ndn;
1061                 op->o_req_ndn = si->si_syncUUID_ndn;
1062                 op->o_tag = LDAP_REQ_DELETE;
1063                 rc = be->be_delete( op, &rs );
1064                 op->o_no_psearch = 0;
1065         }
1066
1067         switch ( syncstate ) {
1068         case LDAP_SYNC_ADD:
1069         case LDAP_SYNC_MODIFY:
1070                 if ( rc == LDAP_SUCCESS ||
1071                          rc == LDAP_REFERRAL ||
1072                          rc == LDAP_NO_SUCH_OBJECT )
1073                 {
1074                         attr_delete( &e->e_attrs, slap_schema.si_ad_entryUUID );
1075                         attr_merge_one( e, slap_schema.si_ad_entryUUID,
1076                                 syncUUID, &ava.aa_value );
1077
1078                         op->o_tag = LDAP_REQ_ADD;
1079                         op->ora_e = e;
1080                         op->o_req_dn = e->e_name;
1081                         op->o_req_ndn = e->e_nname;
1082                         rc = be->be_add( op, &rs );
1083
1084                         if ( rc != LDAP_SUCCESS ) {
1085                                 if ( rc == LDAP_ALREADY_EXISTS ) {
1086                                         op->o_tag = LDAP_REQ_MODIFY;
1087                                         op->orm_modlist = modlist;
1088                                         op->o_req_dn = e->e_name;
1089                                         op->o_req_ndn = e->e_nname;
1090                                         rc = be->be_modify( op, &rs );
1091                                         if ( rc != LDAP_SUCCESS ) {
1092 #ifdef NEW_LOGGING
1093                                                 LDAP_LOG( OPERATION, ERR,
1094                                                         "syncrepl_entry : be_modify failed (%d)\n",
1095                                                         rc, 0, 0 );
1096 #else
1097                                                 Debug( LDAP_DEBUG_ANY,
1098                                                         "syncrepl_entry : be_modify failed (%d)\n",
1099                                                         rc, 0, 0 );
1100 #endif
1101                                         }
1102                                         ret = 1;
1103                                         goto done;
1104                                 } else if ( rc == LDAP_REFERRAL || rc == LDAP_NO_SUCH_OBJECT ) {
1105                                         syncrepl_add_glue( op, e );
1106                                         ret = 0;
1107                                         goto done;
1108                                 } else {
1109 #ifdef NEW_LOGGING
1110                                         LDAP_LOG( OPERATION, ERR,
1111                                                 "syncrepl_entry : be_add failed (%d)\n",
1112                                                 rc, 0, 0 );
1113 #else
1114                                         Debug( LDAP_DEBUG_ANY,
1115                                                 "syncrepl_entry : be_add failed (%d)\n",
1116                                                 rc, 0, 0 );
1117 #endif
1118                                         ret = 1;
1119                                         goto done;
1120                                 }
1121                         } else {
1122                                 be_entry_release_w( op, e );
1123                                 ret = 0;
1124                                 goto done;
1125                         }
1126                 } else {
1127 #ifdef NEW_LOGGING
1128                         LDAP_LOG( OPERATION, ERR,
1129                                 "syncrepl_entry : be_search failed (%d)\n", rc, 0, 0 );
1130 #else
1131                         Debug( LDAP_DEBUG_ANY,
1132                                 "syncrepl_entry : be_search failed (%d)\n", rc, 0, 0 );
1133 #endif
1134                         ret = 1;
1135                         goto done;
1136                 }
1137
1138         case LDAP_SYNC_DELETE :
1139                 /* Already deleted */
1140                 ret = 1;
1141                 goto done;
1142
1143         default :
1144 #ifdef NEW_LOGGING
1145                 LDAP_LOG( OPERATION, ERR,
1146                         "syncrepl_entry : unknown syncstate\n", 0, 0, 0 );
1147 #else
1148                 Debug( LDAP_DEBUG_ANY,
1149                         "syncrepl_entry : unknown syncstate\n", 0, 0, 0 );
1150 #endif
1151                 ret = 1;
1152                 goto done;
1153         }
1154
1155 done :
1156
1157         if ( ava.aa_value.bv_val ) {
1158                 ber_memfree_x( ava.aa_value.bv_val, op->o_tmpmemctx );
1159         }
1160         if ( si->si_syncUUID_ndn.bv_val ) {
1161                 ber_memfree_x( si->si_syncUUID_ndn.bv_val, op->o_tmpmemctx );
1162         }
1163         return ret;
1164 }
1165
1166 static void
1167 syncrepl_del_nonpresent(
1168         Operation *op,
1169         syncinfo_t *si
1170 )
1171 {
1172         Backend* be = op->o_bd;
1173         slap_callback   cb;
1174         SlapReply       rs = {REP_RESULT};
1175         struct nonpresent_entry *np_list, *np_prev;
1176
1177         op->o_req_dn = si->si_base;
1178         op->o_req_ndn = si->si_base;
1179
1180         cb.sc_response = nonpresent_callback;
1181         cb.sc_private = si;
1182
1183         op->o_callback = &cb;
1184         op->o_tag = LDAP_REQ_SEARCH;
1185         op->ors_scope = si->si_scope;
1186         op->ors_deref = LDAP_DEREF_NEVER;
1187         op->ors_slimit = 0;
1188         op->ors_tlimit = 0;
1189         op->ors_attrsonly = 0;
1190         op->ors_attrs = NULL;
1191         op->ors_filter = str2filter_x( op, si->si_filterstr.bv_val );
1192         op->ors_filterstr = si->si_filterstr;
1193
1194         op->o_nocaching = 1;
1195         be->be_search( op, &rs );
1196         op->o_nocaching = 0;
1197
1198         if ( op->ors_filter ) filter_free_x( op, op->ors_filter );
1199
1200         if ( !LDAP_LIST_EMPTY( &si->si_nonpresentlist ) ) {
1201                 np_list = LDAP_LIST_FIRST( &si->si_nonpresentlist );
1202                 while ( np_list != NULL ) {
1203                         LDAP_LIST_REMOVE( np_list, npe_link );
1204                         np_prev = np_list;
1205                         np_list = LDAP_LIST_NEXT( np_list, npe_link );
1206                         op->o_tag = LDAP_REQ_DELETE;
1207                         op->o_callback = &cb;
1208                         cb.sc_response = null_callback;
1209                         cb.sc_private = si;
1210                         op->o_req_dn = *np_prev->npe_name;
1211                         op->o_req_ndn = *np_prev->npe_nname;
1212                         op->o_bd->be_delete( op, &rs );
1213                         ber_bvfree( np_prev->npe_name );
1214                         ber_bvfree( np_prev->npe_nname );
1215                         op->o_req_dn.bv_val = NULL;
1216                         op->o_req_ndn.bv_val = NULL;
1217                         ch_free( np_prev );
1218                 }
1219         }
1220
1221         return;
1222 }
1223
1224
1225 static struct berval gcbva[] = {
1226         BER_BVC("top"),
1227         BER_BVC("glue")
1228 };
1229
1230 void
1231 syncrepl_add_glue(
1232         Operation* op,
1233         Entry *e
1234 )
1235 {
1236         Backend *be = op->o_bd;
1237         slap_callback cb;
1238         Attribute       *a;
1239         int     rc;
1240         int suffrdns;
1241         int i;
1242         struct berval dn = {0, NULL};
1243         struct berval ndn = {0, NULL};
1244         Entry   *glue;
1245         SlapReply       rs = {REP_RESULT};
1246         char    *ptr, *comma;
1247
1248         op->o_tag = LDAP_REQ_ADD;
1249         op->o_callback = &cb;
1250         cb.sc_response = null_callback;
1251         cb.sc_private = NULL;
1252
1253         dn = e->e_name;
1254         ndn = e->e_nname;
1255
1256         /* count RDNs in suffix */
1257         if ( be->be_nsuffix[0].bv_len ) {
1258                 for (i=0, ptr=be->be_nsuffix[0].bv_val; ptr; ptr=strchr( ptr, ',' )) {
1259                         ptr++;
1260                         i++;
1261                 }
1262                 suffrdns = i;
1263         } else {
1264                 /* suffix is "" */
1265                 suffrdns = 0;
1266         }
1267
1268         /* Start with BE suffix */
1269         for ( i = 0, ptr = NULL; i < suffrdns; i++ ) {
1270                 comma = strrchr(dn.bv_val, ',');
1271                 if ( ptr ) *ptr = ',';
1272                 if ( comma ) *comma = '\0';
1273                 ptr = comma;
1274         }
1275         if ( ptr ) {
1276                 *ptr++ = ',';
1277                 dn.bv_len -= ptr - dn.bv_val;
1278                 dn.bv_val = ptr;
1279         }
1280         /* the normalizedDNs are always the same length, no counting
1281          * required.
1282          */
1283         if ( ndn.bv_len > be->be_nsuffix[0].bv_len ) {
1284                 ndn.bv_val += ndn.bv_len - be->be_nsuffix[0].bv_len;
1285                 ndn.bv_len = be->be_nsuffix[0].bv_len;
1286         }
1287
1288         while ( ndn.bv_val > e->e_nname.bv_val ) {
1289                 glue = (Entry *) ch_calloc( 1, sizeof(Entry) );
1290                 ber_dupbv( &glue->e_name, &dn );
1291                 ber_dupbv( &glue->e_nname, &ndn );
1292
1293                 a = ch_calloc( 1, sizeof( Attribute ));
1294                 a->a_desc = slap_schema.si_ad_objectClass;
1295
1296                 a->a_vals = ch_calloc( 3, sizeof( struct berval ));
1297                 ber_dupbv( &a->a_vals[0], &gcbva[0] );
1298                 ber_dupbv( &a->a_vals[1], &gcbva[1] );
1299                 a->a_vals[2].bv_len = 0;
1300                 a->a_vals[2].bv_val = NULL;
1301
1302                 a->a_nvals = a->a_vals;
1303
1304                 a->a_next = glue->e_attrs;
1305                 glue->e_attrs = a;
1306
1307                 a = ch_calloc( 1, sizeof( Attribute ));
1308                 a->a_desc = slap_schema.si_ad_structuralObjectClass;
1309
1310                 a->a_vals = ch_calloc( 2, sizeof( struct berval ));
1311                 ber_dupbv( &a->a_vals[0], &gcbva[1] );
1312                 a->a_vals[1].bv_len = 0;
1313                 a->a_vals[1].bv_val = NULL;
1314
1315                 a->a_nvals = a->a_vals;
1316
1317                 a->a_next = glue->e_attrs;
1318                 glue->e_attrs = a;
1319
1320                 op->o_req_dn = glue->e_name;
1321                 op->o_req_ndn = glue->e_nname;
1322                 op->ora_e = glue;
1323                 rc = be->be_add ( op, &rs );
1324                 if ( rc == LDAP_SUCCESS ) {
1325                         be_entry_release_w( op, glue );
1326                 } else {
1327                 /* incl. ALREADY EXIST */
1328                         entry_free( glue );
1329                 }
1330
1331                 /* Move to next child */
1332                 for (ptr = dn.bv_val-2; ptr > e->e_name.bv_val && *ptr != ','; ptr--) {
1333                         /* empty */
1334                 }
1335                 if ( ptr == e->e_name.bv_val ) break;
1336                 dn.bv_val = ++ptr;
1337                 dn.bv_len = e->e_name.bv_len - (ptr-e->e_name.bv_val);
1338                 for( ptr = ndn.bv_val-2;
1339                         ptr > e->e_nname.bv_val && *ptr != ',';
1340                         ptr--)
1341                 {
1342                         /* empty */
1343                 }
1344                 ndn.bv_val = ++ptr;
1345                 ndn.bv_len = e->e_nname.bv_len - (ptr-e->e_nname.bv_val);
1346         }
1347
1348         op->o_req_dn = e->e_name;
1349         op->o_req_ndn = e->e_nname;
1350         op->ora_e = e;
1351         rc = be->be_add ( op, &rs );
1352         if ( rc == LDAP_SUCCESS ) {
1353                 be_entry_release_w( op, e );
1354         } else {
1355                 entry_free( e );
1356         }
1357
1358         return;
1359 }
1360
1361 static struct berval ocbva[] = {
1362         BER_BVC("top"),
1363         BER_BVC("subentry"),
1364         BER_BVC("syncConsumerSubentry"),
1365         BER_BVNULL
1366 };
1367
1368 static struct berval cnbva[] = {
1369         BER_BVNULL,
1370         BER_BVNULL
1371 };
1372
1373 static struct berval ssbva[] = {
1374         BER_BVC("{}"),
1375         BER_BVNULL
1376 };
1377
1378 static struct berval scbva[] = {
1379         BER_BVNULL,
1380         BER_BVNULL
1381 };
1382
1383 void
1384 syncrepl_updateCookie(
1385         syncinfo_t *si,
1386         Operation *op,
1387         struct berval *pdn,
1388         struct sync_cookie *syncCookie
1389 )
1390 {
1391         Backend *be = op->o_bd;
1392         Modifications *ml;
1393         Modifications *mlnext;
1394         Modifications *mod;
1395         Modifications *modlist = NULL;
1396         Modifications **modtail = &modlist;
1397
1398         const char      *text;
1399         char txtbuf[SLAP_TEXT_BUFLEN];
1400         size_t textlen = sizeof txtbuf;
1401
1402         Entry* e = NULL;
1403         int rc;
1404
1405         char syncrepl_cbuf[sizeof(CN_STR SYNCREPL_STR)];
1406         struct berval slap_syncrepl_dn_bv = BER_BVNULL;
1407         struct berval slap_syncrepl_cn_bv = BER_BVNULL;
1408
1409         slap_callback cb;
1410         SlapReply       rs = {REP_RESULT};
1411
1412         slap_sync_cookie_free( &si->si_syncCookie, 0 );
1413         slap_dup_sync_cookie( &si->si_syncCookie, syncCookie );
1414
1415         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1416         mod->sml_op = LDAP_MOD_REPLACE;
1417         mod->sml_desc = slap_schema.si_ad_objectClass;
1418         mod->sml_type = mod->sml_desc->ad_cname;
1419         mod->sml_bvalues = ocbva;
1420         *modtail = mod;
1421         modtail = &mod->sml_next;
1422
1423         ber_dupbv( &cnbva[0], (struct berval *) &slap_syncrepl_bvc );
1424         assert( si->si_id < 1000 );
1425         cnbva[0].bv_len = snprintf( cnbva[0].bv_val,
1426                 slap_syncrepl_bvc.bv_len,
1427                 "syncrepl%d", si->si_id );
1428         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1429         mod->sml_op = LDAP_MOD_REPLACE;
1430         mod->sml_desc = slap_schema.si_ad_cn;
1431         mod->sml_type = mod->sml_desc->ad_cname;
1432         mod->sml_bvalues = cnbva;
1433         *modtail = mod;
1434         modtail = &mod->sml_next;
1435
1436         if ( scbva[0].bv_val ) ch_free( scbva[0].bv_val );
1437         ber_dupbv( &scbva[0], &si->si_syncCookie.octet_str[0] );
1438         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1439         mod->sml_op = LDAP_MOD_REPLACE;
1440         mod->sml_desc = slap_schema.si_ad_syncreplCookie;
1441         mod->sml_type = mod->sml_desc->ad_cname;
1442         mod->sml_bvalues = scbva;
1443         *modtail = mod;
1444         modtail = &mod->sml_next;
1445
1446         mod = (Modifications *) ch_calloc( 1, sizeof( Modifications ));
1447         mod->sml_op = LDAP_MOD_REPLACE;
1448         mod->sml_desc = slap_schema.si_ad_subtreeSpecification;
1449         mod->sml_type = mod->sml_desc->ad_cname;
1450         mod->sml_bvalues = ssbva;
1451         *modtail = mod;
1452         modtail = &mod->sml_next;
1453
1454         mlnext = mod;
1455
1456         op->o_tag = LDAP_REQ_ADD;
1457         rc = slap_mods_opattrs( op, modlist, modtail,
1458                                                          &text,txtbuf, textlen );
1459
1460         for ( ml = modlist; ml != NULL; ml = ml->sml_next ) {
1461                 ml->sml_op = LDAP_MOD_REPLACE;
1462         }
1463
1464         if( rc != LDAP_SUCCESS ) {
1465 #ifdef NEW_LOGGING
1466                 LDAP_LOG( OPERATION, ERR,
1467                         "syncrepl_updateCookie: mods opattrs (%s)\n", text, 0, 0 );
1468 #else
1469                 Debug( LDAP_DEBUG_ANY, "syncrepl_updateCookie: mods opattrs (%s)\n",
1470                          text, 0, 0 );
1471 #endif
1472         }
1473
1474         e = ( Entry * ) ch_calloc( 1, sizeof( Entry ));
1475
1476         slap_syncrepl_cn_bv.bv_val = syncrepl_cbuf;
1477         assert( si->si_id < 1000 );
1478         slap_syncrepl_cn_bv.bv_len = snprintf( slap_syncrepl_cn_bv.bv_val,
1479                 slap_syncrepl_cn_bvc.bv_len,
1480                 "cn=syncrepl%d", si->si_id );
1481
1482         build_new_dn( &slap_syncrepl_dn_bv, pdn, &slap_syncrepl_cn_bv,
1483                 op->o_tmpmemctx );
1484         ber_dupbv( &e->e_name, &slap_syncrepl_dn_bv );
1485         ber_dupbv( &e->e_nname, &slap_syncrepl_dn_bv );
1486
1487         if ( slap_syncrepl_dn_bv.bv_val ) {
1488                 sl_free( slap_syncrepl_dn_bv.bv_val, op->o_tmpmemctx );
1489         }
1490
1491         e->e_attrs = NULL;
1492
1493         rc = slap_mods2entry( modlist, &e, 1, 1, &text, txtbuf, textlen );
1494
1495         if( rc != LDAP_SUCCESS ) {
1496 #ifdef NEW_LOGGING
1497                 LDAP_LOG( OPERATION, ERR,
1498                         "syncrepl_updateCookie: mods2entry (%s)\n", text, 0, 0 );
1499 #else
1500                 Debug( LDAP_DEBUG_ANY, "syncrepl_updateCookie: mods2entry (%s)\n",
1501                          text, 0, 0 );
1502 #endif
1503         }
1504
1505         cb.sc_response = null_callback;
1506         cb.sc_private = si;
1507
1508         op->o_callback = &cb;
1509         op->o_req_dn = e->e_name;
1510         op->o_req_ndn = e->e_nname;
1511
1512         /* update persistent cookie */
1513 update_cookie_retry:
1514         op->o_tag = LDAP_REQ_MODIFY;
1515         op->orm_modlist = modlist;
1516         rc = be->be_modify( op, &rs );
1517
1518         if ( rc != LDAP_SUCCESS ) {
1519                 if ( rc == LDAP_REFERRAL ||
1520                          rc == LDAP_NO_SUCH_OBJECT ) {
1521                         op->o_tag = LDAP_REQ_ADD;
1522                         op->ora_e = e;
1523                         rc = be->be_add( op, &rs );
1524                         if ( rc != LDAP_SUCCESS ) {
1525                                 if ( rc == LDAP_ALREADY_EXISTS ) {
1526                                         goto update_cookie_retry;
1527                                 } else if ( rc == LDAP_REFERRAL ||
1528                                                         rc == LDAP_NO_SUCH_OBJECT ) {
1529 #ifdef NEW_LOGGING
1530                                         LDAP_LOG( OPERATION, ERR,
1531                                                 "cookie will be non-persistent\n",
1532                                                 0, 0, 0 );
1533 #else
1534                                         Debug( LDAP_DEBUG_ANY,
1535                                                 "cookie will be non-persistent\n",
1536                                                 0, 0, 0 );
1537 #endif
1538                                 } else {
1539 #ifdef NEW_LOGGING
1540                                         LDAP_LOG( OPERATION, ERR,
1541                                                 "be_add failed (%d)\n",
1542                                                 rc, 0, 0 );
1543 #else
1544                                         Debug( LDAP_DEBUG_ANY,
1545                                                 "be_add failed (%d)\n",
1546                                                 rc, 0, 0 );
1547 #endif
1548                                 }
1549                         } else {
1550                                 be_entry_release_w( op, e );
1551                                 goto done;
1552                         }
1553                 } else {
1554 #ifdef NEW_LOGGING
1555                         LDAP_LOG( OPERATION, ERR,
1556                                 "be_modify failed (%d)\n", rc, 0, 0 );
1557 #else
1558                         Debug( LDAP_DEBUG_ANY,
1559                                 "be_modify failed (%d)\n", rc, 0, 0 );
1560 #endif
1561                 }
1562         }
1563
1564         if ( e != NULL ) {
1565                 entry_free( e );
1566         }
1567
1568 done :
1569
1570         if ( cnbva[0].bv_val ) {
1571                 ch_free( cnbva[0].bv_val );
1572                 cnbva[0].bv_val = NULL;
1573         }
1574         if ( scbva[0].bv_val ) {
1575                 ch_free( scbva[0].bv_val );
1576                 scbva[0].bv_val = NULL;
1577         }
1578
1579         if ( mlnext->sml_next ) {
1580                 slap_mods_free( mlnext->sml_next );
1581                 mlnext->sml_next = NULL;
1582         }
1583
1584         for (ml = modlist ; ml != NULL; ml = mlnext ) {
1585                 mlnext = ml->sml_next;
1586                 free( ml );
1587         }
1588
1589         return;
1590 }
1591
1592 static int
1593 dn_callback(
1594         Operation*      op,
1595         SlapReply*      rs
1596 )
1597 {
1598         syncinfo_t *si = op->o_callback->sc_private;
1599
1600         if ( rs->sr_type == REP_SEARCH ) {
1601                 if ( si->si_syncUUID_ndn.bv_val != NULL ) {
1602 #ifdef NEW_LOGGING
1603                         LDAP_LOG( OPERATION, ERR,
1604                                 "dn_callback : multiple entries match dn\n", 0, 0, 0 );
1605 #else
1606                         Debug( LDAP_DEBUG_ANY,
1607                                 "dn_callback : multiple entries match dn\n", 0, 0, 0 );
1608 #endif
1609                 } else {
1610                         ber_dupbv_x( &si->si_syncUUID_ndn, &rs->sr_entry->e_nname, op->o_tmpmemctx );
1611                 }
1612         }
1613
1614         return LDAP_SUCCESS;
1615 }
1616
1617 static int
1618 nonpresent_callback(
1619         Operation*      op,
1620         SlapReply*      rs
1621 )
1622 {
1623         syncinfo_t *si = op->o_callback->sc_private;
1624         Attribute *a;
1625         int count = 0;
1626         struct berval* present_uuid = NULL;
1627         struct nonpresent_entry *np_entry;
1628
1629         if ( rs->sr_type == REP_RESULT ) {
1630                 count = avl_free( si->si_presentlist, avl_ber_bvfree );
1631                 si->si_presentlist = NULL;
1632
1633         } else if ( rs->sr_type == REP_SEARCH ) {
1634                 a = attr_find( rs->sr_entry->e_attrs, slap_schema.si_ad_entryUUID );
1635
1636                 if ( a == NULL ) return 0;
1637
1638                 present_uuid = avl_find( si->si_presentlist, &a->a_vals[0],
1639                         syncuuid_cmp );
1640
1641                 if ( present_uuid == NULL ) {
1642                         np_entry = (struct nonpresent_entry *)
1643                                 ch_calloc( 1, sizeof( struct nonpresent_entry ));
1644                         np_entry->npe_name = ber_dupbv( NULL, &rs->sr_entry->e_name );
1645                         np_entry->npe_nname = ber_dupbv( NULL, &rs->sr_entry->e_nname );
1646                         LDAP_LIST_INSERT_HEAD( &si->si_nonpresentlist, np_entry, npe_link );
1647
1648                 } else {
1649                         avl_delete( &si->si_presentlist,
1650                                         &a->a_vals[0], syncuuid_cmp );
1651                         ch_free( present_uuid->bv_val );
1652                         ch_free( present_uuid );
1653                 }
1654         }
1655         return LDAP_SUCCESS;
1656 }
1657
1658 static int
1659 null_callback(
1660         Operation*      op,
1661         SlapReply*      rs
1662 )
1663 {
1664         if ( rs->sr_err != LDAP_SUCCESS &&
1665                 rs->sr_err != LDAP_REFERRAL &&
1666                 rs->sr_err != LDAP_ALREADY_EXISTS &&
1667                 rs->sr_err != LDAP_NO_SUCH_OBJECT )
1668         {
1669 #ifdef NEW_LOGGING
1670                 LDAP_LOG( OPERATION, ERR,
1671                         "null_callback : error code 0x%x\n",
1672                         rs->sr_err, 0, 0 );
1673 #else
1674                 Debug( LDAP_DEBUG_ANY,
1675                         "null_callback : error code 0x%x\n",
1676                         rs->sr_err, 0, 0 );
1677 #endif
1678         }
1679         return LDAP_SUCCESS;
1680 }
1681
1682 Entry *
1683 slap_create_syncrepl_entry(
1684         Backend *be,
1685         struct berval *context_csn,
1686         struct berval *rdn,
1687         struct berval *cn
1688 )
1689 {
1690         Entry* e;
1691
1692         struct berval bv;
1693
1694         e = ( Entry * ) ch_calloc( 1, sizeof( Entry ));
1695
1696         attr_merge( e, slap_schema.si_ad_objectClass, ocbva, NULL );
1697
1698         attr_merge_one( e, slap_schema.si_ad_structuralObjectClass,
1699                 &ocbva[1], NULL );
1700
1701         attr_merge_one( e, slap_schema.si_ad_cn, cn, NULL );
1702
1703         if ( context_csn ) {
1704                 attr_merge_one( e, slap_schema.si_ad_syncreplCookie,
1705                         context_csn, NULL );
1706         }
1707
1708         bv.bv_val = "{}";
1709         bv.bv_len = sizeof("{}")-1;
1710         attr_merge_one( e, slap_schema.si_ad_subtreeSpecification, &bv, NULL );
1711
1712         build_new_dn( &e->e_name, &be->be_nsuffix[0], rdn, NULL );
1713         ber_dupbv( &e->e_nname, &e->e_name );
1714
1715         return e;
1716 }
1717
1718 static void
1719 avl_ber_bvfree( void *bv )
1720 {
1721         if( bv == NULL ) {
1722                 return;
1723         }
1724         if ( ((struct berval *)bv)->bv_val != NULL ) {
1725                 ch_free ( ((struct berval *)bv)->bv_val );
1726         }
1727         ch_free ( (char *) bv );
1728 }
1729