]> git.sur5r.net Git - openldap/blob - servers/slapd/syncrepl.c
3ed2c4059ee642ea012fa93b3e11ce5c31961453
[openldap] / servers / slapd / syncrepl.c
1 /* syncrepl.c -- Replication Engine which uses the LDAP Sync protocol */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2003-2008 The OpenLDAP Foundation.
6  * Portions Copyright 2003 by IBM Corporation.
7  * Portions Copyright 2003 by Howard Chu, Symas Corporation.
8  * All rights reserved.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted only as authorized by the OpenLDAP
12  * Public License.
13  *
14  * A copy of this license is available in the file LICENSE in the
15  * top-level directory of the distribution or, alternatively, at
16  * <http://www.OpenLDAP.org/license.html>.
17  */
18
19 #include "portable.h"
20
21 #include <stdio.h>
22
23 #include <ac/string.h>
24 #include <ac/socket.h>
25
26 #include "lutil.h"
27 #include "slap.h"
28 #include "lutil_ldap.h"
29
30 #include "config.h"
31
32 #include "ldap_rq.h"
33
34 struct nonpresent_entry {
35         struct berval *npe_name;
36         struct berval *npe_nname;
37         LDAP_LIST_ENTRY(nonpresent_entry) npe_link;
38 };
39
40 typedef struct cookie_state {
41         ldap_pvt_thread_mutex_t cs_mutex;
42         int     cs_num;
43         int cs_age;
44         struct berval *cs_vals;
45         int *cs_sids;
46 } cookie_state;
47         
48 #define SYNCDATA_DEFAULT        0       /* entries are plain LDAP entries */
49 #define SYNCDATA_ACCESSLOG      1       /* entries are accesslog format */
50 #define SYNCDATA_CHANGELOG      2       /* entries are changelog format */
51
52 #define SYNCLOG_LOGGING         0       /* doing a log-based update */
53 #define SYNCLOG_FALLBACK        1       /* doing a full refresh */
54
55 #define RETRYNUM_FOREVER        (-1)    /* retry forever */
56 #define RETRYNUM_TAIL           (-2)    /* end of retrynum array */
57 #define RETRYNUM_VALID(n)       ((n) >= RETRYNUM_FOREVER)       /* valid retrynum */
58 #define RETRYNUM_FINITE(n)      ((n) > RETRYNUM_FOREVER)        /* not forever */
59
60 typedef struct syncinfo_s {
61         struct syncinfo_s       *si_next;
62         BackendDB               *si_be;
63         BackendDB               *si_wbe;
64         struct re_s             *si_re;
65         int                     si_rid;
66         char                    si_ridtxt[ STRLENOF("rid=999") + 1 ];
67         slap_bindconf           si_bindconf;
68         struct berval           si_base;
69         struct berval           si_logbase;
70         struct berval           si_filterstr;
71         struct berval           si_logfilterstr;
72         int                     si_scope;
73         int                     si_attrsonly;
74         char                    *si_anfile;
75         AttributeName           *si_anlist;
76         AttributeName           *si_exanlist;
77         char                    **si_attrs;
78         char                    **si_exattrs;
79         int                     si_allattrs;
80         int                     si_allopattrs;
81         int                     si_schemachecking;
82         int                     si_type;        /* the active type */
83         int                     si_ctype;       /* the configured type */
84         time_t                  si_interval;
85         time_t                  *si_retryinterval;
86         int                     *si_retrynum_init;
87         int                     *si_retrynum;
88         struct sync_cookie      si_syncCookie;
89         cookie_state            *si_cookieState;
90         int                     si_cookieAge;
91         int                     si_manageDSAit;
92         int                     si_slimit;
93         int                     si_tlimit;
94         int                     si_refreshDelete;
95         int                     si_refreshPresent;
96         int                     si_refreshDone;
97         int                     si_syncdata;
98         int                     si_logstate;
99         int                     si_got;
100         ber_int_t       si_msgid;
101         Avlnode                 *si_presentlist;
102         LDAP                    *si_ld;
103         Connection              *si_conn;
104         LDAP_LIST_HEAD(np, nonpresent_entry)    si_nonpresentlist;
105         ldap_pvt_thread_mutex_t si_mutex;
106 } syncinfo_t;
107
108 static int syncuuid_cmp( const void *, const void * );
109 static int avl_presentlist_insert( syncinfo_t* si, struct berval *syncUUID );
110 static void syncrepl_del_nonpresent( Operation *, syncinfo_t *, BerVarray, struct sync_cookie *, int );
111 static int syncrepl_message_to_op(
112                                         syncinfo_t *, Operation *, LDAPMessage * );
113 static int syncrepl_message_to_entry(
114                                         syncinfo_t *, Operation *, LDAPMessage *,
115                                         Modifications **, Entry **, int );
116 static int syncrepl_entry(
117                                         syncinfo_t *, Operation*, Entry*,
118                                         Modifications**,int, struct berval*,
119                                         struct berval *cookieCSN );
120 static int syncrepl_updateCookie(
121                                         syncinfo_t *, Operation *, struct berval *,
122                                         struct sync_cookie * );
123 static struct berval * slap_uuidstr_from_normalized(
124                                         struct berval *, struct berval *, void * );
125
126 /* callback functions */
127 static int dn_callback( Operation *, SlapReply * );
128 static int nonpresent_callback( Operation *, SlapReply * );
129 static int null_callback( Operation *, SlapReply * );
130
131 static AttributeDescription *sync_descs[4];
132
133 static const char *
134 syncrepl_state2str( int state )
135 {
136         switch ( state ) {
137         case LDAP_SYNC_PRESENT:
138                 return "PRESENT";
139
140         case LDAP_SYNC_ADD:
141                 return "ADD";
142
143         case LDAP_SYNC_MODIFY:
144                 return "MODIFY";
145
146         case LDAP_SYNC_DELETE:
147                 return "DELETE";
148         }
149
150         return "UNKNOWN";
151 }
152
153 static void
154 init_syncrepl(syncinfo_t *si)
155 {
156         int i, j, k, l, n;
157         char **attrs, **exattrs;
158
159         if ( !sync_descs[0] ) {
160                 sync_descs[0] = slap_schema.si_ad_objectClass;
161                 sync_descs[1] = slap_schema.si_ad_structuralObjectClass;
162                 sync_descs[2] = slap_schema.si_ad_entryCSN;
163                 sync_descs[3] = NULL;
164         }
165
166         if ( si->si_allattrs && si->si_allopattrs )
167                 attrs = NULL;
168         else
169                 attrs = anlist2attrs( si->si_anlist );
170
171         if ( attrs ) {
172                 if ( si->si_allattrs ) {
173                         i = 0;
174                         while ( attrs[i] ) {
175                                 if ( !is_at_operational( at_find( attrs[i] ) ) ) {
176                                         for ( j = i; attrs[j] != NULL; j++ ) {
177                                                 if ( j == i )
178                                                         ch_free( attrs[i] );
179                                                 attrs[j] = attrs[j+1];
180                                         }
181                                 } else {
182                                         i++;
183                                 }
184                         }
185                         attrs = ( char ** ) ch_realloc( attrs, (i + 2)*sizeof( char * ) );
186                         attrs[i] = ch_strdup("*");
187                         attrs[i + 1] = NULL;
188
189                 } else if ( si->si_allopattrs ) {
190                         i = 0;
191                         while ( attrs[i] ) {
192                                 if ( is_at_operational( at_find( attrs[i] ) ) ) {
193                                         for ( j = i; attrs[j] != NULL; j++ ) {
194                                                 if ( j == i )
195                                                         ch_free( attrs[i] );
196                                                 attrs[j] = attrs[j+1];
197                                         }
198                                 } else {
199                                         i++;
200                                 }
201                         }
202                         attrs = ( char ** ) ch_realloc( attrs, (i + 2)*sizeof( char * ) );
203                         attrs[i] = ch_strdup("+");
204                         attrs[i + 1] = NULL;
205                 }
206
207                 for ( i = 0; sync_descs[i] != NULL; i++ ) {
208                         j = 0;
209                         while ( attrs[j] ) {
210                                 if ( !strcmp( attrs[j], sync_descs[i]->ad_cname.bv_val ) ) {
211                                         for ( k = j; attrs[k] != NULL; k++ ) {
212                                                 if ( k == j )
213                                                         ch_free( attrs[k] );
214                                                 attrs[k] = attrs[k+1];
215                                         }
216                                 } else {
217                                         j++;
218                                 }
219                         }
220                 }
221
222                 for ( n = 0; attrs[ n ] != NULL; n++ ) /* empty */;
223
224                 if ( si->si_allopattrs ) {
225                         attrs = ( char ** ) ch_realloc( attrs, (n + 2)*sizeof( char * ) );
226                 } else {
227                         attrs = ( char ** ) ch_realloc( attrs, (n + 4)*sizeof( char * ) );
228                 }
229
230                 /* Add Attributes */
231                 if ( si->si_allopattrs ) {
232                         attrs[n++] = ch_strdup( sync_descs[0]->ad_cname.bv_val );
233                 } else {
234                         for ( i = 0; sync_descs[ i ] != NULL; i++ ) {
235                                 attrs[ n++ ] = ch_strdup ( sync_descs[i]->ad_cname.bv_val );
236                         }
237                 }
238                 attrs[ n ] = NULL;
239
240         } else {
241
242                 i = 0;
243                 if ( si->si_allattrs == si->si_allopattrs ) {
244                         attrs = (char**) ch_malloc( 3 * sizeof(char*) );
245                         attrs[i++] = ch_strdup( "*" );
246                         attrs[i++] = ch_strdup( "+" );
247                 } else if ( si->si_allattrs && !si->si_allopattrs ) {
248                         for ( n = 0; sync_descs[ n ] != NULL; n++ ) ;
249                         attrs = (char**) ch_malloc( (n+1)* sizeof(char*) );
250                         attrs[i++] = ch_strdup( "*" );
251                         for ( j = 1; sync_descs[ j ] != NULL; j++ ) {
252                                 attrs[i++] = ch_strdup ( sync_descs[j]->ad_cname.bv_val );
253                         }
254                 } else if ( !si->si_allattrs && si->si_allopattrs ) {
255                         attrs = (char**) ch_malloc( 3 * sizeof(char*) );
256                         attrs[i++] = ch_strdup( "+" );
257                         attrs[i++] = ch_strdup( sync_descs[0]->ad_cname.bv_val );
258                 }
259                 attrs[i] = NULL;
260         }
261         
262         si->si_attrs = attrs;
263
264         exattrs = anlist2attrs( si->si_exanlist );
265
266         if ( exattrs ) {
267                 for ( n = 0; exattrs[n] != NULL; n++ ) ;
268
269                 for ( i = 0; sync_descs[i] != NULL; i++ ) {
270                         j = 0;
271                         while ( exattrs[j] != NULL ) {
272                                 if ( !strcmp( exattrs[j], sync_descs[i]->ad_cname.bv_val ) ) {
273                                         ch_free( exattrs[j] );
274                                         for ( k = j; exattrs[k] != NULL; k++ ) {
275                                                 exattrs[k] = exattrs[k+1];
276                                         }
277                                 } else {
278                                         j++;
279                                 }
280                         }
281                 }
282
283                 for ( i = 0; exattrs[i] != NULL; i++ ) {
284                         for ( j = 0; si->si_anlist[j].an_name.bv_val; j++ ) {
285                                 ObjectClass     *oc;
286                                 if ( ( oc = si->si_anlist[j].an_oc ) ) {
287                                         k = 0;
288                                         while ( oc->soc_required[k] ) {
289                                                 if ( !strcmp( exattrs[i],
290                                                          oc->soc_required[k]->sat_cname.bv_val ) ) {
291                                                         ch_free( exattrs[i] );
292                                                         for ( l = i; exattrs[l]; l++ ) {
293                                                                 exattrs[l] = exattrs[l+1];
294                                                         }
295                                                 } else {
296                                                         k++;
297                                                 }
298                                         }
299                                 }
300                         }
301                 }
302
303                 for ( i = 0; exattrs[i] != NULL; i++ ) ;
304
305                 if ( i != n )
306                         exattrs = (char **) ch_realloc( exattrs, (i + 1)*sizeof(char *) );
307         }
308
309         si->si_exattrs = exattrs;       
310 }
311
312 typedef struct logschema {
313         struct berval ls_dn;
314         struct berval ls_req;
315         struct berval ls_mod;
316         struct berval ls_newRdn;
317         struct berval ls_delRdn;
318         struct berval ls_newSup;
319 } logschema;
320
321 static logschema changelog_sc = {
322         BER_BVC("targetDN"),
323         BER_BVC("changeType"),
324         BER_BVC("changes"),
325         BER_BVC("newRDN"),
326         BER_BVC("deleteOldRDN"),
327         BER_BVC("newSuperior")
328 };
329
330 static logschema accesslog_sc = {
331         BER_BVC("reqDN"),
332         BER_BVC("reqType"),
333         BER_BVC("reqMod"),
334         BER_BVC("reqNewRDN"),
335         BER_BVC("reqDeleteOldRDN"),
336         BER_BVC("reqNewSuperior")
337 };
338
339 static int
340 ldap_sync_search(
341         syncinfo_t *si,
342         void *ctx )
343 {
344         BerElementBuffer berbuf;
345         BerElement *ber = (BerElement *)&berbuf;
346         LDAPControl c[2], *ctrls[3];
347         int rc;
348         int rhint;
349         char *base;
350         char **attrs, *lattrs[8];
351         char *filter;
352         int attrsonly;
353         int scope;
354
355         /* setup LDAP SYNC control */
356         ber_init2( ber, NULL, LBER_USE_DER );
357         ber_set_option( ber, LBER_OPT_BER_MEMCTX, &ctx );
358
359         /* If we're using a log but we have no state, then fallback to
360          * normal mode for a full refresh.
361          */
362         if ( si->si_syncdata && !si->si_syncCookie.numcsns ) {
363                 si->si_logstate = SYNCLOG_FALLBACK;
364         }
365
366         /* Use the log parameters if we're in log mode */
367         if ( si->si_syncdata && si->si_logstate == SYNCLOG_LOGGING ) {
368                 logschema *ls;
369                 if ( si->si_syncdata == SYNCDATA_ACCESSLOG )
370                         ls = &accesslog_sc;
371                 else
372                         ls = &changelog_sc;
373                 lattrs[0] = ls->ls_dn.bv_val;
374                 lattrs[1] = ls->ls_req.bv_val;
375                 lattrs[2] = ls->ls_mod.bv_val;
376                 lattrs[3] = ls->ls_newRdn.bv_val;
377                 lattrs[4] = ls->ls_delRdn.bv_val;
378                 lattrs[5] = ls->ls_newSup.bv_val;
379                 lattrs[6] = slap_schema.si_ad_entryCSN->ad_cname.bv_val;
380                 lattrs[7] = NULL;
381
382                 rhint = 0;
383                 base = si->si_logbase.bv_val;
384                 filter = si->si_logfilterstr.bv_val;
385                 attrs = lattrs;
386                 attrsonly = 0;
387                 scope = LDAP_SCOPE_SUBTREE;
388         } else {
389                 rhint = 1;
390                 base = si->si_base.bv_val;
391                 filter = si->si_filterstr.bv_val;
392                 attrs = si->si_attrs;
393                 attrsonly = si->si_attrsonly;
394                 scope = si->si_scope;
395         }
396         if ( si->si_syncdata && si->si_logstate == SYNCLOG_FALLBACK ) {
397                 si->si_type = LDAP_SYNC_REFRESH_ONLY;
398         } else {
399                 si->si_type = si->si_ctype;
400         }
401
402         if ( !BER_BVISNULL( &si->si_syncCookie.octet_str ) )
403         {
404                 ber_printf( ber, "{eOb}",
405                         abs(si->si_type), &si->si_syncCookie.octet_str, rhint );
406         } else {
407                 ber_printf( ber, "{eb}",
408                         abs(si->si_type), rhint );
409         }
410
411         if ( (rc = ber_flatten2( ber, &c[0].ldctl_value, 0 ) ) == -1 ) {
412                 ber_free_buf( ber );
413                 return rc;
414         }
415
416         c[0].ldctl_oid = LDAP_CONTROL_SYNC;
417         c[0].ldctl_iscritical = si->si_type < 0;
418         ctrls[0] = &c[0];
419
420         if ( !BER_BVISNULL( &si->si_bindconf.sb_authzId ) ) {
421                 c[1].ldctl_oid = LDAP_CONTROL_PROXY_AUTHZ;
422                 c[1].ldctl_value = si->si_bindconf.sb_authzId;
423                 c[1].ldctl_iscritical = 1;
424                 ctrls[1] = &c[1];
425                 ctrls[2] = NULL;
426         } else {
427                 ctrls[1] = NULL;
428         }
429
430         rc = ldap_search_ext( si->si_ld, base, scope, filter, attrs, attrsonly,
431                 ctrls, NULL, NULL, si->si_slimit, &si->si_msgid );
432         ber_free_buf( ber );
433         return rc;
434 }
435
436 static int
437 check_syncprov(
438         Operation *op,
439         syncinfo_t *si )
440 {
441         AttributeName at[2];
442         Attribute a = {0};
443         Entry e = {0};
444         SlapReply rs = {0};
445         int i, j, changed = 0;
446
447         /* Look for contextCSN from syncprov overlay. If
448          * there's no overlay, this will be a no-op. That means
449          * this is a pure consumer, so local changes will not be
450          * allowed, and all changes will already be reflected in
451          * the cookieState.
452          */
453         a.a_desc = slap_schema.si_ad_contextCSN;
454         e.e_attrs = &a;
455         e.e_name = op->o_bd->be_suffix[0];
456         e.e_nname = op->o_bd->be_nsuffix[0];
457         at[0].an_name = a.a_desc->ad_cname;
458         at[0].an_desc = a.a_desc;
459         BER_BVZERO( &at[1].an_name );
460         rs.sr_entry = &e;
461         rs.sr_flags = REP_ENTRY_MODIFIABLE;
462         rs.sr_attrs = at;
463         op->o_req_dn = e.e_name;
464         op->o_req_ndn = e.e_nname;
465
466         ldap_pvt_thread_mutex_lock( &si->si_cookieState->cs_mutex );
467         i = backend_operational( op, &rs );
468         if ( i == LDAP_SUCCESS && a.a_nvals ) {
469                 int num = a.a_numvals;
470                 /* check for differences */
471                 if ( num != si->si_cookieState->cs_num ) {
472                         changed = 1;
473                 } else {
474                         for ( i=0; i<num; i++ ) {
475                                 if ( ber_bvcmp( &a.a_nvals[i],
476                                         &si->si_cookieState->cs_vals[i] )) {
477                                         changed = 1;
478                                         break;
479                                 }
480                         }
481                 }
482                 if ( changed ) {
483                         ber_bvarray_free( si->si_cookieState->cs_vals );
484                         ch_free( si->si_cookieState->cs_sids );
485                         si->si_cookieState->cs_num = num;
486                         si->si_cookieState->cs_vals = a.a_nvals;
487                         si->si_cookieState->cs_sids = slap_parse_csn_sids( a.a_nvals,
488                                 num, NULL );
489                         si->si_cookieState->cs_age++;
490                 } else {
491                         ber_bvarray_free( a.a_nvals );
492                 }
493                 ber_bvarray_free( a.a_vals );
494         }
495         /* See if the cookieState has changed due to anything outside
496          * this particular consumer. That includes other consumers in
497          * the same context, or local changes detected above.
498          */
499         if ( si->si_cookieState->cs_num > 0 && si->si_cookieAge !=
500                 si->si_cookieState->cs_age ) {
501                 if ( !si->si_syncCookie.numcsns ) {
502                         ber_bvarray_free( si->si_syncCookie.ctxcsn );
503                         ber_bvarray_dup_x( &si->si_syncCookie.ctxcsn,
504                                 si->si_cookieState->cs_vals, NULL );
505                         changed = 1;
506                 } else {
507                         for (i=0; !BER_BVISNULL( &si->si_syncCookie.ctxcsn[i] ); i++) {
508                                 /* bogus, just dup everything */
509                                 if ( si->si_syncCookie.sids[i] == -1 ) {
510                                         ber_bvarray_free( si->si_syncCookie.ctxcsn );
511                                         ber_bvarray_dup_x( &si->si_syncCookie.ctxcsn,
512                                                 si->si_cookieState->cs_vals, NULL );
513                                         changed = 1;
514                                         break;
515                                 }
516                                 for (j=0; j<si->si_cookieState->cs_num; j++) {
517                                         if ( si->si_syncCookie.sids[i] !=
518                                                 si->si_cookieState->cs_sids[j] )
519                                                 continue;
520                                         if ( bvmatch( &si->si_syncCookie.ctxcsn[i],
521                                                 &si->si_cookieState->cs_vals[j] ))
522                                                 break;
523                                         ber_bvreplace( &si->si_syncCookie.ctxcsn[i],
524                                                 &si->si_cookieState->cs_vals[j] );
525                                         changed = 1;
526                                         break;
527                                 }
528                         }
529                 }
530         }
531         if ( changed ) {
532                 si->si_cookieAge = si->si_cookieState->cs_age;
533                 ch_free( si->si_syncCookie.octet_str.bv_val );
534                 slap_compose_sync_cookie( NULL, &si->si_syncCookie.octet_str,
535                         si->si_syncCookie.ctxcsn, si->si_syncCookie.rid,
536                         si->si_syncCookie.sid );
537         }
538         ldap_pvt_thread_mutex_unlock( &si->si_cookieState->cs_mutex );
539         return changed;
540 }
541
542 static int
543 do_syncrep1(
544         Operation *op,
545         syncinfo_t *si )
546 {
547         int     rc;
548         int cmdline_cookie_found = 0;
549
550         struct sync_cookie      *sc = NULL;
551 #ifdef HAVE_TLS
552         void    *ssl;
553 #endif
554
555         rc = slap_client_connect( &si->si_ld, &si->si_bindconf );
556         if ( rc != LDAP_SUCCESS ) {
557                 goto done;
558         }
559         op->o_protocol = LDAP_VERSION3;
560
561         /* Set SSF to strongest of TLS, SASL SSFs */
562         op->o_sasl_ssf = 0;
563         op->o_tls_ssf = 0;
564         op->o_transport_ssf = 0;
565 #ifdef HAVE_TLS
566         if ( ldap_get_option( si->si_ld, LDAP_OPT_X_TLS_SSL_CTX, &ssl )
567                 == LDAP_SUCCESS && ssl != NULL )
568         {
569                 op->o_tls_ssf = ldap_pvt_tls_get_strength( ssl );
570         }
571 #endif /* HAVE_TLS */
572         {
573                 ber_len_t ssf; /* ITS#5403, 3864 LDAP_OPT_X_SASL_SSF probably ought
574                                                   to use sasl_ssf_t but currently uses ber_len_t */
575                 ldap_get_option( si->si_ld, LDAP_OPT_X_SASL_SSF, &ssf );
576                 op->o_sasl_ssf = ssf;
577         }
578         op->o_ssf = ( op->o_sasl_ssf > op->o_tls_ssf )
579                 ?  op->o_sasl_ssf : op->o_tls_ssf;
580
581         ldap_set_option( si->si_ld, LDAP_OPT_TIMELIMIT, &si->si_tlimit );
582
583         rc = LDAP_DEREF_NEVER;  /* actually could allow DEREF_FINDING */
584         ldap_set_option( si->si_ld, LDAP_OPT_DEREF, &rc );
585
586         si->si_syncCookie.rid = si->si_rid;
587
588         /* whenever there are multiple data sources possible, advertise sid */
589         si->si_syncCookie.sid = ( SLAP_MULTIMASTER( si->si_be ) || si->si_be != si->si_wbe ) ?
590                 slap_serverID : -1;
591
592         /* We've just started up, or the remote server hasn't sent us
593          * any meaningful state.
594          */
595         if ( BER_BVISNULL( &si->si_syncCookie.octet_str ) ) {
596                 int i;
597
598                 LDAP_STAILQ_FOREACH( sc, &slap_sync_cookie, sc_next ) {
599                         if ( si->si_rid == sc->rid ) {
600                                 cmdline_cookie_found = 1;
601                                 break;
602                         }
603                 }
604
605                 if ( cmdline_cookie_found ) {
606                         /* cookie is supplied in the command line */
607
608                         LDAP_STAILQ_REMOVE( &slap_sync_cookie, sc, sync_cookie, sc_next );
609
610                         /* ctxcsn wasn't parsed yet, do it now */
611                         slap_parse_sync_cookie( sc, op->o_tmpmemctx );
612                         slap_sync_cookie_free( &si->si_syncCookie, 0 );
613                         slap_dup_sync_cookie( &si->si_syncCookie, sc );
614                         slap_sync_cookie_free( sc, 1 );
615                 } else {
616                         ldap_pvt_thread_mutex_lock( &si->si_cookieState->cs_mutex );
617                         if ( !si->si_cookieState->cs_num ) {
618                                 /* get contextCSN shadow replica from database */
619                                 BerVarray csn = NULL;
620                                 void *ctx = op->o_tmpmemctx;
621
622                                 op->o_req_ndn = op->o_bd->be_nsuffix[0];
623                                 op->o_req_dn = op->o_req_ndn;
624
625                                 /* try to read stored contextCSN */
626                                 op->o_tmpmemctx = NULL;
627                                 backend_attribute( op, NULL, &op->o_req_ndn,
628                                         slap_schema.si_ad_contextCSN, &csn, ACL_READ );
629                                 op->o_tmpmemctx = ctx;
630                                 if ( csn ) {
631                                         si->si_cookieState->cs_vals = csn;
632                                         for (i=0; !BER_BVISNULL( &csn[i] ); i++);
633                                         si->si_cookieState->cs_num = i;
634                                         si->si_cookieState->cs_sids = slap_parse_csn_sids( csn, i, NULL );
635                                 }
636                         }
637                         if ( si->si_cookieState->cs_num ) {
638                                 ber_bvarray_free( si->si_syncCookie.ctxcsn );
639                                 if ( ber_bvarray_dup_x( &si->si_syncCookie.ctxcsn,
640                                         si->si_cookieState->cs_vals, NULL )) {
641                                         rc = LDAP_NO_MEMORY;
642                                         ldap_pvt_thread_mutex_unlock( &si->si_cookieState->cs_mutex );
643                                         goto done;
644                                 }
645                                 si->si_syncCookie.numcsns = si->si_cookieState->cs_num;
646                                 si->si_syncCookie.sids = ch_malloc( si->si_cookieState->cs_num *
647                                         sizeof(int) );
648                                 for ( i=0; i<si->si_syncCookie.numcsns; i++ )
649                                         si->si_syncCookie.sids[i] = si->si_cookieState->cs_sids[i];
650                         }
651                         ldap_pvt_thread_mutex_unlock( &si->si_cookieState->cs_mutex );
652                 }
653
654                 slap_compose_sync_cookie( NULL, &si->si_syncCookie.octet_str,
655                         si->si_syncCookie.ctxcsn, si->si_syncCookie.rid,
656                         si->si_syncCookie.sid );
657         } else {
658                 /* Look for contextCSN from syncprov overlay. */
659                 check_syncprov( op, si );
660         }
661
662         si->si_refreshDone = 0;
663
664         rc = ldap_sync_search( si, op->o_tmpmemctx );
665
666         if( rc != LDAP_SUCCESS ) {
667                 Debug( LDAP_DEBUG_ANY, "do_syncrep1: %s "
668                         "ldap_search_ext: %s (%d)\n",
669                         si->si_ridtxt, ldap_err2string( rc ), rc );
670         }
671
672 done:
673         if ( rc ) {
674                 if ( si->si_ld ) {
675                         ldap_unbind_ext( si->si_ld, NULL, NULL );
676                         si->si_ld = NULL;
677                 }
678         }
679
680         return rc;
681 }
682
683 static int
684 compare_csns( struct sync_cookie *sc1, struct sync_cookie *sc2, int *which )
685 {
686         int i, j, match = 0;
687         const char *text;
688
689         *which = 0;
690
691         if ( sc1->numcsns < sc2->numcsns ) {
692                 *which = sc1->numcsns;
693                 return -1;
694         }
695
696         for (j=0; j<sc2->numcsns; j++) {
697                 for (i=0; i<sc1->numcsns; i++) {
698                         if ( sc1->sids[i] != sc2->sids[j] )
699                                 continue;
700                         value_match( &match, slap_schema.si_ad_entryCSN,
701                                 slap_schema.si_ad_entryCSN->ad_type->sat_ordering,
702                                 SLAP_MR_VALUE_OF_ATTRIBUTE_SYNTAX,
703                                 &sc1->ctxcsn[i], &sc2->ctxcsn[j], &text );
704                         if ( match < 0 ) {
705                                 *which = j;
706                                 return match;
707                         }
708                         break;
709                 }
710                 if ( i == sc1->numcsns ) {
711                         /* sc2 has a sid sc1 lacks */
712                         *which = j;
713                         return -1;
714                 }
715         }
716         return match;
717 }
718
719 #define SYNC_PAUSED     -3
720
721 static int
722 do_syncrep2(
723         Operation *op,
724         syncinfo_t *si )
725 {
726         LDAPControl     **rctrls = NULL;
727         LDAPControl     *rctrlp;
728
729         BerElementBuffer berbuf;
730         BerElement      *ber = (BerElement *)&berbuf;
731
732         LDAPMessage     *msg = NULL;
733
734         char            *retoid = NULL;
735         struct berval   *retdata = NULL;
736
737         Entry           *entry = NULL;
738
739         int             syncstate;
740         struct berval   syncUUID = BER_BVNULL;
741         struct sync_cookie      syncCookie = { NULL };
742         struct sync_cookie      syncCookie_req = { NULL };
743         struct berval           cookie = BER_BVNULL;
744
745         int             rc,
746                         err = LDAP_SUCCESS;
747         ber_len_t       len;
748
749         struct berval   *psub;
750         Modifications   *modlist = NULL;
751
752         int                             match, m;
753
754         struct timeval *tout_p = NULL;
755         struct timeval tout = { 0, 0 };
756
757         int             refreshDeletes = 0;
758         BerVarray syncUUIDs = NULL;
759         ber_tag_t si_tag;
760
761         if ( slapd_shutdown ) {
762                 rc = -2;
763                 goto done;
764         }
765
766         ber_init2( ber, NULL, LBER_USE_DER );
767         ber_set_option( ber, LBER_OPT_BER_MEMCTX, &op->o_tmpmemctx );
768
769         Debug( LDAP_DEBUG_TRACE, "=>do_syncrep2 %s\n", si->si_ridtxt, 0, 0 );
770
771         psub = &si->si_be->be_nsuffix[0];
772
773         slap_dup_sync_cookie( &syncCookie_req, &si->si_syncCookie );
774
775         if ( abs(si->si_type) == LDAP_SYNC_REFRESH_AND_PERSIST ) {
776                 tout_p = &tout;
777         } else {
778                 tout_p = NULL;
779         }
780
781         while ( ( rc = ldap_result( si->si_ld, si->si_msgid, LDAP_MSG_ONE,
782                 tout_p, &msg ) ) > 0 )
783         {
784                 if ( slapd_shutdown ) {
785                         rc = -2;
786                         goto done;
787                 }
788                 switch( ldap_msgtype( msg ) ) {
789                 case LDAP_RES_SEARCH_ENTRY:
790                         ldap_get_entry_controls( si->si_ld, msg, &rctrls );
791                         /* we can't work without the control */
792                         rctrlp = NULL;
793                         if ( rctrls ) {
794                                 LDAPControl **next;
795                                 /* NOTE: make sure we use the right one;
796                                  * a better approach would be to run thru
797                                  * the whole list and take care of all */
798                                 rctrlp = ldap_control_find( LDAP_CONTROL_SYNC_STATE, rctrls, &next );
799                                 if ( next && ldap_control_find( LDAP_CONTROL_SYNC_STATE, next, NULL ) )
800                                 {
801                                         Debug( LDAP_DEBUG_ANY, "do_syncrep2: %s "
802                                                 "got search entry with multiple "
803                                                 "Sync State control\n", si->si_ridtxt, 0, 0 );
804                                         rc = -1;
805                                         goto done;
806                                 }
807                         }
808                         if ( rctrlp == NULL ) {
809                                 Debug( LDAP_DEBUG_ANY, "do_syncrep2: %s "
810                                         "got search entry without "
811                                         "Sync State control\n", si->si_ridtxt, 0, 0 );
812                                 rc = -1;
813                                 goto done;
814                         }
815                         ber_init2( ber, &rctrlp->ldctl_value, LBER_USE_DER );
816                         ber_scanf( ber, "{em" /*"}"*/, &syncstate, &syncUUID );
817                         /* FIXME: what if syncUUID is NULL or empty?
818                          * (happens with back-sql...) */
819                         if ( BER_BVISEMPTY( &syncUUID ) ) {
820                                 Debug( LDAP_DEBUG_ANY, "do_syncrep2: %s "
821                                         "got empty syncUUID with LDAP_SYNC_%s\n",
822                                         si->si_ridtxt,
823                                         syncrepl_state2str( syncstate ), 0 );
824                                 ldap_controls_free( rctrls );
825                                 rc = -1;
826                                 goto done;
827                         }
828                         if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE ) {
829                                 ber_scanf( ber, /*"{"*/ "m}", &cookie );
830
831                                 Debug( LDAP_DEBUG_SYNC, "do_syncrep2: cookie=%s\n",
832                                         BER_BVISNULL( &cookie ) ? "" : cookie.bv_val, 0, 0 );
833
834                                 if ( !BER_BVISNULL( &cookie ) ) {
835                                         ch_free( syncCookie.octet_str.bv_val );
836                                         ber_dupbv( &syncCookie.octet_str, &cookie );
837                                 }
838                                 if ( !BER_BVISNULL( &syncCookie.octet_str ) )
839                                 {
840                                         slap_parse_sync_cookie( &syncCookie, NULL );
841                                         if ( syncCookie.ctxcsn ) {
842                                                 int i, sid = slap_parse_csn_sid( syncCookie.ctxcsn );
843                                                 for ( i =0; i<si->si_cookieState->cs_num; i++ ) {
844                                                         if ( si->si_cookieState->cs_sids[i] == sid && 
845                                                                 ber_bvcmp( syncCookie.ctxcsn, &si->si_cookieState->cs_vals[i] ) <= 0 ) {
846                                                                 Debug( LDAP_DEBUG_SYNC, "do_syncrep2: %s CSN too old, ignoring %s\n",
847                                                                         si->si_ridtxt, syncCookie.ctxcsn->bv_val, 0 );
848                                                                 ldap_controls_free( rctrls );
849                                                                 rc = 0;
850                                                                 goto done;
851                                                         }
852                                                 }
853                                         }
854                                 }
855                         }
856                         rc = 0;
857                         if ( si->si_syncdata && si->si_logstate == SYNCLOG_LOGGING ) {
858                                 modlist = NULL;
859                                 if ( ( rc = syncrepl_message_to_op( si, op, msg ) ) == LDAP_SUCCESS &&
860                                         syncCookie.ctxcsn )
861                                 {
862                                         rc = syncrepl_updateCookie( si, op, psub, &syncCookie );
863                                 } else switch ( rc ) {
864                                         case LDAP_ALREADY_EXISTS:
865                                         case LDAP_NO_SUCH_OBJECT:
866                                         case LDAP_NO_SUCH_ATTRIBUTE:
867                                         case LDAP_TYPE_OR_VALUE_EXISTS:
868                                                 rc = LDAP_SYNC_REFRESH_REQUIRED;
869                                                 si->si_logstate = SYNCLOG_FALLBACK;
870                                                 ldap_abandon_ext( si->si_ld, si->si_msgid, NULL, NULL );
871                                                 break;
872                                         default:
873                                                 break;
874                                 }
875                         } else if ( ( rc = syncrepl_message_to_entry( si, op, msg,
876                                 &modlist, &entry, syncstate ) ) == LDAP_SUCCESS )
877                         {
878                                 if ( ( rc = syncrepl_entry( si, op, entry, &modlist,
879                                         syncstate, &syncUUID, syncCookie.ctxcsn ) ) == LDAP_SUCCESS &&
880                                         syncCookie.ctxcsn )
881                                 {
882                                         rc = syncrepl_updateCookie( si, op, psub, &syncCookie );
883                                 }
884                         }
885                         ldap_controls_free( rctrls );
886                         if ( modlist ) {
887                                 slap_mods_free( modlist, 1 );
888                         }
889                         if ( rc )
890                                 goto done;
891                         break;
892
893                 case LDAP_RES_SEARCH_REFERENCE:
894                         Debug( LDAP_DEBUG_ANY,
895                                 "do_syncrep2: %s reference received error\n",
896                                 si->si_ridtxt, 0, 0 );
897                         break;
898
899                 case LDAP_RES_SEARCH_RESULT:
900                         Debug( LDAP_DEBUG_SYNC,
901                                 "do_syncrep2: %s LDAP_RES_SEARCH_RESULT\n",
902                                 si->si_ridtxt, 0, 0 );
903                         ldap_parse_result( si->si_ld, msg, &err, NULL, NULL, NULL,
904                                 &rctrls, 0 );
905 #ifdef LDAP_X_SYNC_REFRESH_REQUIRED
906                         if ( err == LDAP_X_SYNC_REFRESH_REQUIRED ) {
907                                 /* map old result code to registered code */
908                                 err = LDAP_SYNC_REFRESH_REQUIRED;
909                         }
910 #endif
911                         if ( err == LDAP_SYNC_REFRESH_REQUIRED ) {
912                                 if ( si->si_logstate == SYNCLOG_LOGGING ) {
913                                         si->si_logstate = SYNCLOG_FALLBACK;
914                                 }
915                                 rc = err;
916                                 goto done;
917                         }
918                         if ( err ) {
919                                 Debug( LDAP_DEBUG_ANY,
920                                         "do_syncrep2: %s LDAP_RES_SEARCH_RESULT (%d) %s\n",
921                                         si->si_ridtxt, err, ldap_err2string( err ) );
922                         }
923                         if ( rctrls ) {
924                                 rctrlp = *rctrls;
925                                 ber_init2( ber, &rctrlp->ldctl_value, LBER_USE_DER );
926
927                                 ber_scanf( ber, "{" /*"}"*/);
928                                 if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE ) {
929                                         ber_scanf( ber, "m", &cookie );
930
931                                         Debug( LDAP_DEBUG_SYNC, "do_syncrep2: cookie=%s\n",
932                                                 BER_BVISNULL( &cookie ) ? "" : cookie.bv_val, 0, 0 );
933
934                                         if ( !BER_BVISNULL( &cookie ) ) {
935                                                 ch_free( syncCookie.octet_str.bv_val );
936                                                 ber_dupbv( &syncCookie.octet_str, &cookie);
937                                         }
938                                         if ( !BER_BVISNULL( &syncCookie.octet_str ) )
939                                         {
940                                                 slap_parse_sync_cookie( &syncCookie, NULL );
941                                         }
942                                 }
943                                 if ( ber_peek_tag( ber, &len ) == LDAP_TAG_REFRESHDELETES )
944                                 {
945                                         ber_scanf( ber, "b", &refreshDeletes );
946                                 }
947                                 ber_scanf( ber, /*"{"*/ "}" );
948                         }
949                         if ( SLAP_MULTIMASTER( op->o_bd ) && check_syncprov( op, si )) {
950                                 slap_sync_cookie_free( &syncCookie_req, 0 );
951                                 slap_dup_sync_cookie( &syncCookie_req, &si->si_syncCookie );
952                         }
953                         if ( !syncCookie.ctxcsn ) {
954                                 match = 1;
955                         } else if ( !syncCookie_req.ctxcsn ) {
956                                 match = -1;
957                                 m = 0;
958                         } else {
959                                 match = compare_csns( &syncCookie_req, &syncCookie, &m );
960                         }
961                         if ( rctrls ) {
962                                 ldap_controls_free( rctrls );
963                         }
964                         if (si->si_type != LDAP_SYNC_REFRESH_AND_PERSIST) {
965                                 /* FIXME : different error behaviors according to
966                                  *      1) err code : LDAP_BUSY ...
967                                  *      2) on err policy : stop service, stop sync, retry
968                                  */
969                                 if ( refreshDeletes == 0 && match < 0 &&
970                                         err == LDAP_SUCCESS &&
971                                         syncCookie_req.numcsns == syncCookie.numcsns )
972                                 {
973                                         syncrepl_del_nonpresent( op, si, NULL,
974                                                 &syncCookie, m );
975                                 } else {
976                                         avl_free( si->si_presentlist, ch_free );
977                                         si->si_presentlist = NULL;
978                                 }
979                         }
980                         if ( syncCookie.ctxcsn && match < 0 && err == LDAP_SUCCESS )
981                         {
982                                 rc = syncrepl_updateCookie( si, op, psub, &syncCookie );
983                         }
984                         if ( err == LDAP_SUCCESS
985                                 && si->si_logstate == SYNCLOG_FALLBACK ) {
986                                 si->si_logstate = SYNCLOG_LOGGING;
987                                 rc = LDAP_SYNC_REFRESH_REQUIRED;
988                         } else {
989                                 rc = -2;
990                         }
991                         goto done;
992                         break;
993
994                 case LDAP_RES_INTERMEDIATE:
995                         rc = ldap_parse_intermediate( si->si_ld, msg,
996                                 &retoid, &retdata, NULL, 0 );
997                         if ( !rc && !strcmp( retoid, LDAP_SYNC_INFO ) ) {
998                                 ber_init2( ber, retdata, LBER_USE_DER );
999
1000                                 switch ( si_tag = ber_peek_tag( ber, &len ) ) {
1001                                 ber_tag_t tag;
1002                                 case LDAP_TAG_SYNC_NEW_COOKIE:
1003                                         Debug( LDAP_DEBUG_SYNC,
1004                                                 "do_syncrep2: %s %s - %s\n", 
1005                                                 si->si_ridtxt,
1006                                                 "LDAP_RES_INTERMEDIATE", 
1007                                                 "NEW_COOKIE" );
1008                                         ber_scanf( ber, "tm", &tag, &cookie );
1009                                         break;
1010                                 case LDAP_TAG_SYNC_REFRESH_DELETE:
1011                                 case LDAP_TAG_SYNC_REFRESH_PRESENT:
1012                                         Debug( LDAP_DEBUG_SYNC,
1013                                                 "do_syncrep2: %s %s - %s\n", 
1014                                                 si->si_ridtxt,
1015                                                 "LDAP_RES_INTERMEDIATE", 
1016                                                 si_tag == LDAP_TAG_SYNC_REFRESH_PRESENT ?
1017                                                 "REFRESH_PRESENT" : "REFRESH_DELETE" );
1018                                         if ( si_tag == LDAP_TAG_SYNC_REFRESH_DELETE ) {
1019                                                 si->si_refreshDelete = 1;
1020                                         } else {
1021                                                 si->si_refreshPresent = 1;
1022                                         }
1023                                         ber_scanf( ber, "t{" /*"}"*/, &tag );
1024                                         if ( ber_peek_tag( ber, &len ) == LDAP_TAG_SYNC_COOKIE )
1025                                         {
1026                                                 ber_scanf( ber, "m", &cookie );
1027
1028                                                 Debug( LDAP_DEBUG_SYNC, "do_syncrep2: cookie=%s\n",
1029                                                         BER_BVISNULL( &cookie ) ? "" : cookie.bv_val, 0, 0 );
1030
1031                                                 if ( !BER_BVISNULL( &cookie ) ) {
1032                                                         ch_free( syncCookie.octet_str.bv_val );
1033                                                         ber_dupbv( &syncCookie.octet_str, &cookie );
1034                                                 }
1035                                                 if ( !BER_BVISNULL( &syncCookie.octet_str ) )
1036                                                 {
1037                                                         slap_parse_sync_cookie( &syncCookie, NULL );
1038                                                 }
1039                                         }
1040                                         /* Defaults to TRUE */
1041                                         if ( ber_peek_tag( ber, &len ) ==
1042                                                 LDAP_TAG_REFRESHDONE )
1043                                         {
1044                                                 ber_scanf( ber, "b", &si->si_refreshDone );
1045                                         } else
1046                                         {
1047                                                 si->si_refreshDone = 1;
1048                                         }
1049                                         ber_scanf( ber, /*"{"*/ "}" );
1050                                         break;
1051                                 case LDAP_TAG_SYNC_ID_SET:
1052                                         Debug( LDAP_DEBUG_SYNC,
1053                                                 "do_syncrep2: %s %s - %s\n", 
1054                                                 si->si_ridtxt,
1055                                                 "LDAP_RES_INTERMEDIATE", 
1056                                                 "SYNC_ID_SET" );
1057                                         ber_scanf( ber, "t{" /*"}"*/, &tag );
1058                                         if ( ber_peek_tag( ber, &len ) ==
1059                                                 LDAP_TAG_SYNC_COOKIE )
1060                                         {
1061                                                 ber_scanf( ber, "m", &cookie );
1062
1063                                                 Debug( LDAP_DEBUG_SYNC, "do_syncrep2: cookie=%s\n",
1064                                                         BER_BVISNULL( &cookie ) ? "" : cookie.bv_val, 0, 0 );
1065
1066                                                 if ( !BER_BVISNULL( &cookie ) ) {
1067                                                         ch_free( syncCookie.octet_str.bv_val );
1068                                                         ber_dupbv( &syncCookie.octet_str, &cookie );
1069                                                 }
1070                                                 if ( !BER_BVISNULL( &syncCookie.octet_str ) )
1071                                                 {
1072                                                         slap_parse_sync_cookie( &syncCookie, NULL );
1073                                                         compare_csns( &syncCookie_req, &syncCookie, &m );
1074                                                 }
1075                                         }
1076                                         if ( ber_peek_tag( ber, &len ) ==
1077                                                 LDAP_TAG_REFRESHDELETES )
1078                                         {
1079                                                 ber_scanf( ber, "b", &refreshDeletes );
1080                                         }
1081                                         ber_scanf( ber, "[W]", &syncUUIDs );
1082                                         ber_scanf( ber, /*"{"*/ "}" );
1083                                         if ( refreshDeletes ) {
1084                                                 syncrepl_del_nonpresent( op, si, syncUUIDs,
1085                                                         &syncCookie, m );
1086                                                 ber_bvarray_free_x( syncUUIDs, op->o_tmpmemctx );
1087                                         } else {
1088                                                 int i;
1089                                                 for ( i = 0; !BER_BVISNULL( &syncUUIDs[i] ); i++ ) {
1090                                                         (void)avl_presentlist_insert( si, &syncUUIDs[i] );
1091                                                         slap_sl_free( syncUUIDs[i].bv_val, op->o_tmpmemctx );
1092                                                 }
1093                                                 slap_sl_free( syncUUIDs, op->o_tmpmemctx );
1094                                         }
1095                                         slap_sync_cookie_free( &syncCookie, 0 );
1096                                         break;
1097                                 default:
1098                                         Debug( LDAP_DEBUG_ANY,
1099                                                 "do_syncrep2: %s unknown syncinfo tag (%ld)\n",
1100                                                 si->si_ridtxt, (long) si_tag, 0 );
1101                                         ldap_memfree( retoid );
1102                                         ber_bvfree( retdata );
1103                                         continue;
1104                                 }
1105
1106                                 if ( SLAP_MULTIMASTER( op->o_bd ) && check_syncprov( op, si )) {
1107                                         slap_sync_cookie_free( &syncCookie_req, 0 );
1108                                         slap_dup_sync_cookie( &syncCookie_req, &si->si_syncCookie );
1109                                 }
1110                                 if ( !syncCookie.ctxcsn ) {
1111                                         match = 1;
1112                                 } else if ( !syncCookie_req.ctxcsn ) {
1113                                         match = -1;
1114                                         m = 0;
1115                                 } else {
1116                                         match = compare_csns( &syncCookie_req, &syncCookie, &m );
1117                                 }
1118
1119                                 if ( match < 0 ) {
1120                                         if ( si->si_refreshPresent == 1 &&
1121                                                 syncCookie_req.numcsns == syncCookie.numcsns ) {
1122                                                 syncrepl_del_nonpresent( op, si, NULL,
1123                                                         &syncCookie, m );
1124                                         }
1125
1126                                         if ( syncCookie.ctxcsn )
1127                                         {
1128                                                 rc = syncrepl_updateCookie( si, op, psub, &syncCookie);
1129                                         }
1130                                 } 
1131
1132                                 ldap_memfree( retoid );
1133                                 ber_bvfree( retdata );
1134                                 break;
1135
1136                         } else {
1137                                 Debug( LDAP_DEBUG_ANY, "do_syncrep2: %s "
1138                                         "unknown intermediate response (%d)\n",
1139                                         si->si_ridtxt, rc, 0 );
1140                                 ldap_memfree( retoid );
1141                                 ber_bvfree( retdata );
1142                                 break;
1143                         }
1144                         break;
1145
1146                 default:
1147                         Debug( LDAP_DEBUG_ANY, "do_syncrep2: %s "
1148                                 "unknown message (0x%02lx)\n",
1149                                 si->si_ridtxt,
1150                                 (unsigned long)ldap_msgtype( msg ), 0 );
1151                         break;
1152
1153                 }
1154                 if ( !BER_BVISNULL( &syncCookie.octet_str ) ) {
1155                         slap_sync_cookie_free( &syncCookie_req, 0 );
1156                         slap_dup_sync_cookie( &syncCookie_req, &syncCookie );
1157                         slap_sync_cookie_free( &syncCookie, 0 );
1158                 }
1159                 ldap_msgfree( msg );
1160                 msg = NULL;
1161                 if ( ldap_pvt_thread_pool_pausing( &connection_pool )) {
1162                         slap_sync_cookie_free( &syncCookie, 0 );
1163                         slap_sync_cookie_free( &syncCookie_req, 0 );
1164                         return SYNC_PAUSED;
1165                 }
1166         }
1167
1168         if ( rc == -1 ) {
1169                 ldap_get_option( si->si_ld, LDAP_OPT_ERROR_NUMBER, &rc );
1170                 err = rc;
1171         }
1172
1173 done:
1174         if ( err != LDAP_SUCCESS ) {
1175                 Debug( LDAP_DEBUG_ANY,
1176                         "do_syncrep2: %s (%d) %s\n",
1177                         si->si_ridtxt, err, ldap_err2string( err ) );
1178         }
1179
1180         slap_sync_cookie_free( &syncCookie, 0 );
1181         slap_sync_cookie_free( &syncCookie_req, 0 );
1182
1183         if ( msg ) ldap_msgfree( msg );
1184
1185         if ( rc && rc != LDAP_SYNC_REFRESH_REQUIRED && si->si_ld ) {
1186                 if ( si->si_conn ) {
1187                         connection_client_stop( si->si_conn );
1188                         si->si_conn = NULL;
1189                 }
1190                 ldap_unbind_ext( si->si_ld, NULL, NULL );
1191                 si->si_ld = NULL;
1192         }
1193
1194         return rc;
1195 }
1196
1197 static void *
1198 do_syncrepl(
1199         void    *ctx,
1200         void    *arg )
1201 {
1202         struct re_s* rtask = arg;
1203         syncinfo_t *si = ( syncinfo_t * ) rtask->arg;
1204         Connection conn = {0};
1205         OperationBuffer opbuf;
1206         Operation *op;
1207         int rc = LDAP_SUCCESS;
1208         int dostop = 0;
1209         ber_socket_t s;
1210         int i, defer = 1, fail = 0;
1211         Backend *be;
1212
1213         Debug( LDAP_DEBUG_TRACE, "=>do_syncrepl %s\n", si->si_ridtxt, 0, 0 );
1214
1215         if ( si == NULL )
1216                 return NULL;
1217
1218         /* There will never be more than one instance active */
1219         ldap_pvt_thread_mutex_lock( &si->si_mutex );
1220
1221         switch( abs( si->si_type ) ) {
1222         case LDAP_SYNC_REFRESH_ONLY:
1223         case LDAP_SYNC_REFRESH_AND_PERSIST:
1224                 break;
1225         default:
1226                 ldap_pvt_thread_mutex_unlock( &si->si_mutex );
1227                 return NULL;
1228         }
1229
1230         if ( slapd_shutdown ) {
1231                 if ( si->si_ld ) {
1232                         if ( si->si_conn ) {
1233                                 connection_client_stop( si->si_conn );
1234                                 si->si_conn = NULL;
1235                         }
1236                         ldap_unbind_ext( si->si_ld, NULL, NULL );
1237                         si->si_ld = NULL;
1238                 }
1239                 ldap_pvt_thread_mutex_unlock( &si->si_mutex );
1240                 return NULL;
1241         }
1242
1243         connection_fake_init( &conn, &opbuf, ctx );
1244         op = &opbuf.ob_op;
1245
1246         /* use global malloc for now */
1247         op->o_tmpmemctx = NULL;
1248         op->o_tmpmfuncs = &ch_mfuncs;
1249
1250         op->o_managedsait = SLAP_CONTROL_NONCRITICAL;
1251         be = si->si_be;
1252
1253         /* Coordinate contextCSN updates with any syncprov overlays
1254          * in use. This may be complicated by the use of the glue
1255          * overlay.
1256          *
1257          * Typically there is a single syncprov mastering the entire
1258          * glued tree. In that case, our contextCSN updates should
1259          * go to the master DB. But if there is no syncprov on the
1260          * master DB, then nothing special is needed here.
1261          *
1262          * Alternatively, there may be individual syncprov overlays
1263          * on each glued branch. In that case, each syncprov only
1264          * knows about changes within its own branch. And so our
1265          * contextCSN updates should only go to the local DB.
1266          */
1267         if ( !si->si_wbe ) {
1268                 if ( SLAP_GLUE_SUBORDINATE( be ) && !overlay_is_inst( be, "syncprov" )) {
1269                         BackendDB * top_be = select_backend( &be->be_nsuffix[0], 1 );
1270                         if ( overlay_is_inst( top_be, "syncprov" ))
1271                                 si->si_wbe = select_backend( &be->be_nsuffix[0], 1 );
1272                         else
1273                                 si->si_wbe = be;
1274                 } else {
1275                         si->si_wbe = be;
1276                 }
1277         }
1278         if ( !si->si_schemachecking )
1279                 op->o_no_schema_check = 1;
1280
1281         /* Establish session, do search */
1282         if ( !si->si_ld ) {
1283                 si->si_refreshDelete = 0;
1284                 si->si_refreshPresent = 0;
1285
1286                 /* use main DB when retrieving contextCSN */
1287                 op->o_bd = si->si_wbe;
1288                 op->o_dn = op->o_bd->be_rootdn;
1289                 op->o_ndn = op->o_bd->be_rootndn;
1290                 rc = do_syncrep1( op, si );
1291         }
1292
1293 reload:
1294         /* Process results */
1295         if ( rc == LDAP_SUCCESS ) {
1296                 ldap_get_option( si->si_ld, LDAP_OPT_DESC, &s );
1297
1298                 /* use current DB */
1299                 op->o_bd = be;
1300                 op->o_dn = op->o_bd->be_rootdn;
1301                 op->o_ndn = op->o_bd->be_rootndn;
1302                 rc = do_syncrep2( op, si );
1303                 if ( rc == LDAP_SYNC_REFRESH_REQUIRED ) {
1304                         rc = ldap_sync_search( si, op->o_tmpmemctx );
1305                         goto reload;
1306                 }
1307
1308                 /* We got deleted while running on cn=config */
1309                 if ( !si->si_ctype ) {
1310                         if ( si->si_conn )
1311                                 dostop = 1;
1312                         rc = -1;
1313                 }
1314
1315                 if ( rc != SYNC_PAUSED ) {
1316                         if ( abs(si->si_type) == LDAP_SYNC_REFRESH_AND_PERSIST ) {
1317                                 /* If we succeeded, enable the connection for further listening.
1318                                  * If we failed, tear down the connection and reschedule.
1319                                  */
1320                                 if ( rc == LDAP_SUCCESS ) {
1321                                         if ( si->si_conn ) {
1322                                                 connection_client_enable( si->si_conn );
1323                                         } else {
1324                                                 si->si_conn = connection_client_setup( s, do_syncrepl, arg );
1325                                         } 
1326                                 } else if ( si->si_conn ) {
1327                                         dostop = 1;
1328                                 }
1329                         } else {
1330                                 if ( rc == -2 ) rc = 0;
1331                         }
1332                 }
1333         }
1334
1335         /* At this point, we have 5 cases:
1336          * 1) for any hard failure, give up and remove this task
1337          * 2) for ServerDown, reschedule this task to run later
1338          * 3) for threadpool pause, reschedule to run immediately
1339          * 4) for Refresh and Success, reschedule to run
1340          * 5) for Persist and Success, reschedule to defer
1341          */
1342         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
1343
1344         if ( ldap_pvt_runqueue_isrunning( &slapd_rq, rtask ) ) {
1345                 ldap_pvt_runqueue_stoptask( &slapd_rq, rtask );
1346         }
1347
1348         if ( dostop ) {
1349                 connection_client_stop( si->si_conn );
1350                 si->si_conn = NULL;
1351         }
1352
1353         if ( rc == SYNC_PAUSED ) {
1354                 rtask->interval.tv_sec = 0;
1355                 ldap_pvt_runqueue_resched( &slapd_rq, rtask, 0 );
1356                 rtask->interval.tv_sec = si->si_interval;
1357                 rc = 0;
1358         } else if ( rc == LDAP_SUCCESS ) {
1359                 if ( si->si_type == LDAP_SYNC_REFRESH_ONLY ) {
1360                         defer = 0;
1361                 }
1362                 rtask->interval.tv_sec = si->si_interval;
1363                 ldap_pvt_runqueue_resched( &slapd_rq, rtask, defer );
1364                 if ( si->si_retrynum ) {
1365                         for ( i = 0; si->si_retrynum_init[i] != RETRYNUM_TAIL; i++ ) {
1366                                 si->si_retrynum[i] = si->si_retrynum_init[i];
1367                         }
1368                         si->si_retrynum[i] = RETRYNUM_TAIL;
1369                 }
1370         } else {
1371                 for ( i = 0; si->si_retrynum && si->si_retrynum[i] <= 0; i++ ) {
1372                         if ( si->si_retrynum[i] == RETRYNUM_FOREVER || si->si_retrynum[i] == RETRYNUM_TAIL )
1373                                 break;
1374                 }
1375
1376                 if ( !si->si_ctype
1377                         || !si->si_retrynum || si->si_retrynum[i] == RETRYNUM_TAIL ) {
1378                         ldap_pvt_runqueue_remove( &slapd_rq, rtask );
1379                         fail = RETRYNUM_TAIL;
1380                 } else if ( RETRYNUM_VALID( si->si_retrynum[i] ) ) {
1381                         if ( si->si_retrynum[i] > 0 )
1382                                 si->si_retrynum[i]--;
1383                         fail = si->si_retrynum[i];
1384                         rtask->interval.tv_sec = si->si_retryinterval[i];
1385                         ldap_pvt_runqueue_resched( &slapd_rq, rtask, 0 );
1386                         slap_wake_listener();
1387                 }
1388         }
1389
1390         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
1391         ldap_pvt_thread_mutex_unlock( &si->si_mutex );
1392
1393         if ( rc ) {
1394                 if ( fail == RETRYNUM_TAIL ) {
1395                         Debug( LDAP_DEBUG_ANY,
1396                                 "do_syncrepl: %s quitting\n",
1397                                 si->si_ridtxt, 0, 0 );
1398                 } else if ( fail > 0 ) {
1399                         Debug( LDAP_DEBUG_ANY,
1400                                 "do_syncrepl: %s retrying (%d retries left)\n",
1401                                 si->si_ridtxt, fail, 0 );
1402                 } else {
1403                         Debug( LDAP_DEBUG_ANY,
1404                                 "do_syncrepl: %s retrying\n",
1405                                 si->si_ridtxt, 0, 0 );
1406                 }
1407         }
1408
1409         /* Do final delete cleanup */
1410         if ( !si->si_ctype ) {
1411                 cookie_state *cs = NULL;
1412                 syncinfo_t **sip;
1413
1414                 cs = be->be_syncinfo->si_cookieState;
1415                 for ( sip = &be->be_syncinfo; *sip != si; sip = &(*sip)->si_next );
1416                 *sip = si->si_next;
1417                 syncinfo_free( si, 0 );
1418                 if ( !be->be_syncinfo ) {
1419                         SLAP_DBFLAGS( be ) &= ~(SLAP_DBFLAG_SHADOW|SLAP_DBFLAG_SYNC_SHADOW);
1420                         if ( cs ) {
1421                                 ch_free( cs->cs_sids );
1422                                 ber_bvarray_free( cs->cs_vals );
1423                                 ldap_pvt_thread_mutex_destroy( &cs->cs_mutex );
1424                                 ch_free( cs );
1425                         }
1426                 }
1427         }
1428         return NULL;
1429 }
1430
1431 static slap_verbmasks modops[] = {
1432         { BER_BVC("add"), LDAP_REQ_ADD },
1433         { BER_BVC("delete"), LDAP_REQ_DELETE },
1434         { BER_BVC("modify"), LDAP_REQ_MODIFY },
1435         { BER_BVC("modrdn"), LDAP_REQ_MODRDN},
1436         { BER_BVNULL, 0 }
1437 };
1438
1439 static Modifications *
1440 syncrepl_accesslog_mods(
1441         syncinfo_t *si,
1442         struct berval *vals
1443 )
1444 {
1445         char *colon;
1446         const char *text;
1447         AttributeDescription *ad;
1448         struct berval bv, bv2;
1449         short op;
1450         Modifications *mod = NULL, *modlist = NULL, **modtail;
1451         int i;
1452
1453         modtail = &modlist;
1454
1455         for (i=0; !BER_BVISNULL( &vals[i] ); i++) {
1456                 ad = NULL;
1457                 bv = vals[i];
1458
1459                 colon = ber_bvchr( &bv, ':' );
1460                 if ( !colon ) {
1461                         /* Invalid */
1462                         continue;
1463                 }
1464
1465                 bv.bv_len = colon - bv.bv_val;
1466                 if ( slap_bv2ad( &bv, &ad, &text ) ) {
1467                         /* Invalid */
1468                         continue;
1469                 }
1470
1471                 /* Ignore dynamically generated attrs */
1472                 if ( ad->ad_type->sat_flags & SLAP_AT_DYNAMIC ) {
1473                         continue;
1474                 }
1475
1476                 /* Ignore excluded attrs */
1477                 if ( ldap_charray_inlist( si->si_exattrs,
1478                         ad->ad_type->sat_cname.bv_val ) )
1479                 {
1480                         continue;
1481                 }
1482
1483                 switch(colon[1]) {
1484                 case '+':       op = LDAP_MOD_ADD; break;
1485                 case '-':       op = LDAP_MOD_DELETE; break;
1486                 case '=':       op = LDAP_MOD_REPLACE; break;
1487                 case '#':       op = LDAP_MOD_INCREMENT; break;
1488                 default:        continue;
1489                 }
1490
1491                 if ( !mod || ad != mod->sml_desc || op != mod->sml_op ) {
1492                         mod = (Modifications *) ch_malloc( sizeof( Modifications ) );
1493                         mod->sml_flags = 0;
1494                         mod->sml_op = op;
1495                         mod->sml_next = NULL;
1496                         mod->sml_desc = ad;
1497                         mod->sml_type = ad->ad_cname;
1498                         mod->sml_values = NULL;
1499                         mod->sml_nvalues = NULL;
1500                         mod->sml_numvals = 0;
1501
1502                         *modtail = mod;
1503                         modtail = &mod->sml_next;
1504                 }
1505                 if ( colon[2] == ' ' ) {
1506                         bv.bv_val = colon + 3;
1507                         bv.bv_len = vals[i].bv_len - ( bv.bv_val - vals[i].bv_val );
1508                         ber_dupbv( &bv2, &bv );
1509                         ber_bvarray_add( &mod->sml_values, &bv2 );
1510                         mod->sml_numvals++;
1511                 }
1512         }
1513         return modlist;
1514 }
1515
1516 static Modifications *
1517 syncrepl_changelog_mods(
1518         syncinfo_t *si,
1519         struct berval *vals
1520 )
1521 {
1522         return NULL;    /* FIXME */
1523 }
1524
1525 static int
1526 syncrepl_message_to_op(
1527         syncinfo_t      *si,
1528         Operation       *op,
1529         LDAPMessage     *msg
1530 )
1531 {
1532         BerElement      *ber = NULL;
1533         Modifications   *modlist = NULL;
1534         logschema *ls;
1535         SlapReply rs = { REP_RESULT };
1536         slap_callback cb = { NULL, null_callback, NULL, NULL };
1537
1538         const char      *text;
1539         char txtbuf[SLAP_TEXT_BUFLEN];
1540         size_t textlen = sizeof txtbuf;
1541
1542         struct berval   bdn, dn = BER_BVNULL, ndn;
1543         struct berval   bv, *bvals = NULL;
1544         struct berval   rdn = BER_BVNULL, sup = BER_BVNULL,
1545                 prdn = BER_BVNULL, nrdn = BER_BVNULL,
1546                 psup = BER_BVNULL, nsup = BER_BVNULL;
1547         int             rc, deleteOldRdn = 0, freeReqDn = 0;
1548
1549         if ( ldap_msgtype( msg ) != LDAP_RES_SEARCH_ENTRY ) {
1550                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_op: %s "
1551                         "Message type should be entry (%d)",
1552                         si->si_ridtxt, ldap_msgtype( msg ), 0 );
1553                 return -1;
1554         }
1555
1556         if ( si->si_syncdata == SYNCDATA_ACCESSLOG )
1557                 ls = &accesslog_sc;
1558         else
1559                 ls = &changelog_sc;
1560
1561         rc = ldap_get_dn_ber( si->si_ld, msg, &ber, &bdn );
1562
1563         if ( rc != LDAP_SUCCESS ) {
1564                 Debug( LDAP_DEBUG_ANY,
1565                         "syncrepl_message_to_op: %s dn get failed (%d)",
1566                         si->si_ridtxt, rc, 0 );
1567                 return rc;
1568         }
1569
1570         op->o_tag = LBER_DEFAULT;
1571         op->o_bd = si->si_wbe;
1572
1573         while (( rc = ldap_get_attribute_ber( si->si_ld, msg, ber, &bv, &bvals ) )
1574                 == LDAP_SUCCESS ) {
1575                 if ( bv.bv_val == NULL )
1576                         break;
1577
1578                 if ( !ber_bvstrcasecmp( &bv, &ls->ls_dn ) ) {
1579                         bdn = bvals[0];
1580                         dnPrettyNormal( NULL, &bdn, &dn, &ndn, op->o_tmpmemctx );
1581                         ber_dupbv( &op->o_req_dn, &dn );
1582                         ber_dupbv( &op->o_req_ndn, &ndn );
1583                         slap_sl_free( ndn.bv_val, op->o_tmpmemctx );
1584                         slap_sl_free( dn.bv_val, op->o_tmpmemctx );
1585                         freeReqDn = 1;
1586                 } else if ( !ber_bvstrcasecmp( &bv, &ls->ls_req ) ) {
1587                         int i = verb_to_mask( bvals[0].bv_val, modops );
1588                         if ( i < 0 ) {
1589                                 Debug( LDAP_DEBUG_ANY,
1590                                         "syncrepl_message_to_op: %s unknown op %s",
1591                                         si->si_ridtxt, bvals[0].bv_val, 0 );
1592                                 ch_free( bvals );
1593                                 rc = -1;
1594                                 goto done;
1595                         }
1596                         op->o_tag = modops[i].mask;
1597                 } else if ( !ber_bvstrcasecmp( &bv, &ls->ls_mod ) ) {
1598                         /* Parse attribute into modlist */
1599                         if ( si->si_syncdata == SYNCDATA_ACCESSLOG ) {
1600                                 modlist = syncrepl_accesslog_mods( si, bvals );
1601                         } else {
1602                                 modlist = syncrepl_changelog_mods( si, bvals );
1603                         }
1604                 } else if ( !ber_bvstrcasecmp( &bv, &ls->ls_newRdn ) ) {
1605                         rdn = bvals[0];
1606                 } else if ( !ber_bvstrcasecmp( &bv, &ls->ls_delRdn ) ) {
1607                         if ( !ber_bvstrcasecmp( &slap_true_bv, bvals ) ) {
1608                                 deleteOldRdn = 1;
1609                         }
1610                 } else if ( !ber_bvstrcasecmp( &bv, &ls->ls_newSup ) ) {
1611                         sup = bvals[0];
1612                 } else if ( !ber_bvstrcasecmp( &bv,
1613                         &slap_schema.si_ad_entryCSN->ad_cname ) )
1614                 {
1615                         slap_queue_csn( op, bvals );
1616                 }
1617                 ch_free( bvals );
1618         }
1619
1620         /* If we didn't get a mod type or a target DN, bail out */
1621         if ( op->o_tag == LBER_DEFAULT || BER_BVISNULL( &dn ) ) {
1622                 rc = -1;
1623                 goto done;
1624         }
1625
1626         op->o_callback = &cb;
1627         slap_op_time( &op->o_time, &op->o_tincr );
1628
1629         switch( op->o_tag ) {
1630         case LDAP_REQ_ADD:
1631         case LDAP_REQ_MODIFY:
1632                 /* If we didn't get required data, bail */
1633                 if ( !modlist ) goto done;
1634
1635                 rc = slap_mods_check( op, modlist, &text, txtbuf, textlen, NULL );
1636
1637                 if ( rc != LDAP_SUCCESS ) {
1638                         Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_op: %s "
1639                                 "mods check (%s)\n",
1640                                 si->si_ridtxt, text, 0 );
1641                         goto done;
1642                 }
1643
1644                 if ( op->o_tag == LDAP_REQ_ADD ) {
1645                         Entry *e = entry_alloc();
1646                         op->ora_e = e;
1647                         op->ora_e->e_name = op->o_req_dn;
1648                         op->ora_e->e_nname = op->o_req_ndn;
1649                         freeReqDn = 0;
1650                         rc = slap_mods2entry( modlist, &op->ora_e, 1, 0, &text, txtbuf, textlen);
1651                         if( rc != LDAP_SUCCESS ) {
1652                                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_op: %s "
1653                                 "mods2entry (%s)\n",
1654                                         si->si_ridtxt, text, 0 );
1655                         } else {
1656                                 rc = op->o_bd->be_add( op, &rs );
1657                                 Debug( LDAP_DEBUG_SYNC,
1658                                         "syncrepl_message_to_op: %s be_add %s (%d)\n", 
1659                                         si->si_ridtxt, op->o_req_dn.bv_val, rc );
1660                         }
1661                         if ( e == op->ora_e )
1662                                 be_entry_release_w( op, op->ora_e );
1663                 } else {
1664                         op->orm_modlist = modlist;
1665                         op->o_bd = si->si_wbe;
1666                         rc = op->o_bd->be_modify( op, &rs );
1667                         modlist = op->orm_modlist;
1668                         Debug( rc ? LDAP_DEBUG_ANY : LDAP_DEBUG_SYNC,
1669                                 "syncrepl_message_to_op: %s be_modify %s (%d)\n", 
1670                                 si->si_ridtxt, op->o_req_dn.bv_val, rc );
1671                         op->o_bd = si->si_be;
1672                 }
1673                 break;
1674         case LDAP_REQ_MODRDN:
1675                 if ( BER_BVISNULL( &rdn ) ) goto done;
1676
1677                 if ( rdnPretty( NULL, &rdn, &prdn, NULL ) ) {
1678                         goto done;
1679                 }
1680                 if ( rdnNormalize( 0, NULL, NULL, &rdn, &nrdn, NULL ) ) {
1681                         goto done;
1682                 }
1683                 if ( !BER_BVISNULL( &sup ) ) {
1684                         if ( dnPrettyNormal( NULL, &sup, &psup, &nsup, NULL ) ) {
1685                                 goto done;
1686                         }
1687                         op->orr_newSup = &psup;
1688                         op->orr_nnewSup = &nsup;
1689                 } else {
1690                         op->orr_newSup = NULL;
1691                         op->orr_nnewSup = NULL;
1692                 }
1693                 op->orr_newrdn = prdn;
1694                 op->orr_nnewrdn = nrdn;
1695                 op->orr_deleteoldrdn = deleteOldRdn;
1696                 op->orr_modlist = NULL;
1697                 if ( slap_modrdn2mods( op, &rs ) ) {
1698                         goto done;
1699                 }
1700
1701                 /* Append modlist for operational attrs */
1702                 {
1703                         Modifications *m;
1704
1705                         for ( m = op->orr_modlist; m->sml_next; m = m->sml_next )
1706                                 ;
1707                         m->sml_next = modlist;
1708                         modlist = NULL;
1709                 }
1710                 rc = op->o_bd->be_modrdn( op, &rs );
1711                 slap_mods_free( op->orr_modlist, 1 );
1712                 Debug( rc ? LDAP_DEBUG_ANY : LDAP_DEBUG_SYNC,
1713                         "syncrepl_message_to_op: %s be_modrdn %s (%d)\n", 
1714                         si->si_ridtxt, op->o_req_dn.bv_val, rc );
1715                 break;
1716         case LDAP_REQ_DELETE:
1717                 rc = op->o_bd->be_delete( op, &rs );
1718                 Debug( rc ? LDAP_DEBUG_ANY : LDAP_DEBUG_SYNC,
1719                         "syncrepl_message_to_op: %s be_delete %s (%d)\n", 
1720                         si->si_ridtxt, op->o_req_dn.bv_val, rc );
1721                 break;
1722         }
1723 done:
1724         slap_graduate_commit_csn( op );
1725         op->o_bd = si->si_be;
1726         op->o_tmpfree( op->o_csn.bv_val, op->o_tmpmemctx );
1727         BER_BVZERO( &op->o_csn );
1728         if ( modlist ) {
1729                 slap_mods_free( modlist, op->o_tag != LDAP_REQ_ADD );
1730         }
1731         if ( !BER_BVISNULL( &rdn ) ) {
1732                 if ( !BER_BVISNULL( &nsup ) ) {
1733                         ch_free( nsup.bv_val );
1734                 }
1735                 if ( !BER_BVISNULL( &psup ) ) {
1736                         ch_free( psup.bv_val );
1737                 }
1738                 if ( !BER_BVISNULL( &nrdn ) ) {
1739                         ch_free( nrdn.bv_val );
1740                 }
1741                 if ( !BER_BVISNULL( &prdn ) ) {
1742                         ch_free( prdn.bv_val );
1743                 }
1744         }
1745         if ( freeReqDn ) {
1746                 ch_free( op->o_req_ndn.bv_val );
1747                 ch_free( op->o_req_dn.bv_val );
1748         }
1749         ber_free( ber, 0 );
1750         return rc;
1751 }
1752
1753 static int
1754 syncrepl_message_to_entry(
1755         syncinfo_t      *si,
1756         Operation       *op,
1757         LDAPMessage     *msg,
1758         Modifications   **modlist,
1759         Entry                   **entry,
1760         int             syncstate
1761 )
1762 {
1763         Entry           *e = NULL;
1764         BerElement      *ber = NULL;
1765         Modifications   tmp;
1766         Modifications   *mod;
1767         Modifications   **modtail = modlist;
1768
1769         const char      *text;
1770         char txtbuf[SLAP_TEXT_BUFLEN];
1771         size_t textlen = sizeof txtbuf;
1772
1773         struct berval   bdn = BER_BVNULL, dn, ndn;
1774         int             rc, is_ctx;
1775
1776         *modlist = NULL;
1777
1778         if ( ldap_msgtype( msg ) != LDAP_RES_SEARCH_ENTRY ) {
1779                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: %s "
1780                         "Message type should be entry (%d)",
1781                         si->si_ridtxt, ldap_msgtype( msg ), 0 );
1782                 return -1;
1783         }
1784
1785         op->o_tag = LDAP_REQ_ADD;
1786
1787         rc = ldap_get_dn_ber( si->si_ld, msg, &ber, &bdn );
1788         if ( rc != LDAP_SUCCESS ) {
1789                 Debug( LDAP_DEBUG_ANY,
1790                         "syncrepl_message_to_entry: %s dn get failed (%d)",
1791                         si->si_ridtxt, rc, 0 );
1792                 return rc;
1793         }
1794
1795         if ( syncstate == LDAP_SYNC_PRESENT || syncstate == LDAP_SYNC_DELETE ) {
1796                 /* NOTE: this could be done even before decoding the DN,
1797                  * although encoding errors wouldn't be detected */
1798                 rc = LDAP_SUCCESS;
1799                 goto done;
1800         }
1801
1802         if ( entry == NULL ) {
1803                 return -1;
1804         }
1805
1806         dnPrettyNormal( NULL, &bdn, &dn, &ndn, op->o_tmpmemctx );
1807         ber_dupbv( &op->o_req_dn, &dn );
1808         ber_dupbv( &op->o_req_ndn, &ndn );
1809         slap_sl_free( ndn.bv_val, op->o_tmpmemctx );
1810         slap_sl_free( dn.bv_val, op->o_tmpmemctx );
1811
1812         is_ctx = dn_match( &op->o_req_ndn, &op->o_bd->be_nsuffix[0] );
1813
1814         e = entry_alloc();
1815         e->e_name = op->o_req_dn;
1816         e->e_nname = op->o_req_ndn;
1817
1818         while ( ber_remaining( ber ) ) {
1819                 if ( (ber_scanf( ber, "{mW}", &tmp.sml_type, &tmp.sml_values ) ==
1820                         LBER_ERROR ) || BER_BVISNULL( &tmp.sml_type ) )
1821                 {
1822                         break;
1823                 }
1824
1825                 /* Drop all updates to the contextCSN of the context entry
1826                  * (ITS#4622, etc.)
1827                  */
1828                 if ( is_ctx && !strcasecmp( tmp.sml_type.bv_val,
1829                         slap_schema.si_ad_contextCSN->ad_cname.bv_val )) {
1830                         ber_bvarray_free( tmp.sml_values );
1831                         continue;
1832                 }
1833
1834                 mod  = (Modifications *) ch_malloc( sizeof( Modifications ) );
1835
1836                 mod->sml_op = LDAP_MOD_REPLACE;
1837                 mod->sml_flags = 0;
1838                 mod->sml_next = NULL;
1839                 mod->sml_desc = NULL;
1840                 mod->sml_type = tmp.sml_type;
1841                 mod->sml_values = tmp.sml_values;
1842                 mod->sml_nvalues = NULL;
1843                 mod->sml_numvals = 0;   /* slap_mods_check will set this */
1844
1845                 *modtail = mod;
1846                 modtail = &mod->sml_next;
1847         }
1848
1849         if ( *modlist == NULL ) {
1850                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: %s no attributes\n",
1851                         si->si_ridtxt, 0, 0 );
1852                 rc = -1;
1853                 goto done;
1854         }
1855
1856         rc = slap_mods_check( op, *modlist, &text, txtbuf, textlen, NULL );
1857
1858         if ( rc != LDAP_SUCCESS ) {
1859                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: %s mods check (%s)\n",
1860                         si->si_ridtxt, text, 0 );
1861                 goto done;
1862         }
1863
1864         /* Strip out dynamically generated attrs */
1865         for ( modtail = modlist; *modtail ; ) {
1866                 mod = *modtail;
1867                 if ( mod->sml_desc->ad_type->sat_flags & SLAP_AT_DYNAMIC ) {
1868                         *modtail = mod->sml_next;
1869                         slap_mod_free( &mod->sml_mod, 0 );
1870                         ch_free( mod );
1871                 } else {
1872                         modtail = &mod->sml_next;
1873                 }
1874         }
1875
1876         /* Strip out attrs in exattrs list */
1877         for ( modtail = modlist; *modtail ; ) {
1878                 mod = *modtail;
1879                 if ( ldap_charray_inlist( si->si_exattrs,
1880                         mod->sml_desc->ad_type->sat_cname.bv_val ) )
1881                 {
1882                         *modtail = mod->sml_next;
1883                         slap_mod_free( &mod->sml_mod, 0 );
1884                         ch_free( mod );
1885                 } else {
1886                         modtail = &mod->sml_next;
1887                 }
1888         }
1889
1890         rc = slap_mods2entry( *modlist, &e, 1, 1, &text, txtbuf, textlen);
1891         if( rc != LDAP_SUCCESS ) {
1892                 Debug( LDAP_DEBUG_ANY, "syncrepl_message_to_entry: %s mods2entry (%s)\n",
1893                         si->si_ridtxt, text, 0 );
1894         }
1895
1896 done:
1897         ber_free( ber, 0 );
1898         if ( rc != LDAP_SUCCESS ) {
1899                 if ( e ) {
1900                         entry_free( e );
1901                         e = NULL;
1902                 }
1903         }
1904         if ( entry )
1905                 *entry = e;
1906
1907         return rc;
1908 }
1909
1910 static struct berval generic_filterstr = BER_BVC("(objectclass=*)");
1911
1912 /* During a refresh, we may get an LDAP_SYNC_ADD for an already existing
1913  * entry if a previous refresh was interrupted before sending us a new
1914  * context state. We try to compare the new entry to the existing entry
1915  * and ignore the new entry if they are the same.
1916  *
1917  * Also, we may get an update where the entryDN has changed, due to
1918  * a ModDn on the provider. We detect this as well, so we can issue
1919  * the corresponding operation locally.
1920  *
1921  * In the case of a modify, we get a list of all the attributes
1922  * in the original entry. Rather than deleting the entry and re-adding it,
1923  * we issue a Modify request that deletes all the attributes and adds all
1924  * the new ones. This avoids the issue of trying to delete/add a non-leaf
1925  * entry.
1926  *
1927  * We otherwise distinguish ModDN from Modify; in the case of
1928  * a ModDN we just use the CSN, modifyTimestamp and modifiersName
1929  * operational attributes from the entry, and do a regular ModDN.
1930  */
1931 typedef struct dninfo {
1932         Entry *new_entry;
1933         struct berval dn;
1934         struct berval ndn;
1935         int renamed;    /* Was an existing entry renamed? */
1936         Modifications **modlist;        /* the modlist we received */
1937         Modifications *mods;    /* the modlist we compared */
1938 } dninfo;
1939
1940 /* return 1 if inserted, 0 otherwise */
1941 static int
1942 avl_presentlist_insert(
1943         syncinfo_t* si,
1944         struct berval *syncUUID )
1945 {
1946         struct berval *syncuuid_bv = ch_malloc( sizeof( struct berval ) + syncUUID->bv_len + 1 );
1947
1948         syncuuid_bv->bv_len = syncUUID->bv_len;
1949         syncuuid_bv->bv_val = (char *)&syncuuid_bv[1];
1950         AC_MEMCPY( syncuuid_bv->bv_val, syncUUID->bv_val, syncUUID->bv_len );
1951         syncuuid_bv->bv_val[ syncuuid_bv->bv_len ] = '\0';
1952
1953         if ( avl_insert( &si->si_presentlist, (caddr_t) syncuuid_bv,
1954                 syncuuid_cmp, avl_dup_error ) )
1955         {
1956                 ch_free( syncuuid_bv );
1957                 return 0;
1958         }
1959
1960         return 1;
1961 }
1962
1963 static int
1964 syncrepl_entry(
1965         syncinfo_t* si,
1966         Operation *op,
1967         Entry* entry,
1968         Modifications** modlist,
1969         int syncstate,
1970         struct berval* syncUUID,
1971         struct berval* syncCSN )
1972 {
1973         Backend *be = op->o_bd;
1974         slap_callback   cb = { NULL, NULL, NULL, NULL };
1975         int syncuuid_inserted = 0;
1976         struct berval   syncUUID_strrep = BER_BVNULL;
1977
1978         SlapReply       rs_search = {REP_RESULT};
1979         SlapReply       rs_delete = {REP_RESULT};
1980         SlapReply       rs_add = {REP_RESULT};
1981         SlapReply       rs_modify = {REP_RESULT};
1982         Filter f = {0};
1983         AttributeAssertion ava = ATTRIBUTEASSERTION_INIT;
1984         int rc = LDAP_SUCCESS;
1985
1986         struct berval pdn = BER_BVNULL;
1987         dninfo dni = {0};
1988         int     retry = 1;
1989         int     freecsn = 1;
1990
1991         Debug( LDAP_DEBUG_SYNC,
1992                 "syncrepl_entry: %s LDAP_RES_SEARCH_ENTRY(LDAP_SYNC_%s)\n",
1993                 si->si_ridtxt, syncrepl_state2str( syncstate ), 0 );
1994
1995         if (( syncstate == LDAP_SYNC_PRESENT || syncstate == LDAP_SYNC_ADD ) ) {
1996                 if ( !si->si_refreshPresent && !si->si_refreshDone ) {
1997                         syncuuid_inserted = avl_presentlist_insert( si, syncUUID );
1998                 }
1999         }
2000
2001         if ( syncstate == LDAP_SYNC_PRESENT ) {
2002                 return 0;
2003         } else if ( syncstate != LDAP_SYNC_DELETE ) {
2004                 if ( entry == NULL ) {
2005                         return 0;
2006                 }
2007         }
2008
2009         (void)slap_uuidstr_from_normalized( &syncUUID_strrep, syncUUID, op->o_tmpmemctx );
2010         if ( syncstate != LDAP_SYNC_DELETE ) {
2011                 Attribute       *a = attr_find( entry->e_attrs, slap_schema.si_ad_entryUUID );
2012
2013                 if ( a == NULL ) {
2014                         /* add if missing */
2015                         attr_merge_one( entry, slap_schema.si_ad_entryUUID,
2016                                 &syncUUID_strrep, syncUUID );
2017
2018                 } else if ( !bvmatch( &a->a_nvals[0], syncUUID ) ) {
2019                         /* replace only if necessary */
2020                         if ( a->a_nvals != a->a_vals ) {
2021                                 ber_memfree( a->a_nvals[0].bv_val );
2022                                 ber_dupbv( &a->a_nvals[0], syncUUID );
2023                         }
2024                         ber_memfree( a->a_vals[0].bv_val );
2025                         ber_dupbv( &a->a_vals[0], &syncUUID_strrep );
2026                 }
2027         }
2028
2029         f.f_choice = LDAP_FILTER_EQUALITY;
2030         f.f_ava = &ava;
2031         ava.aa_desc = slap_schema.si_ad_entryUUID;
2032         ava.aa_value = *syncUUID;
2033
2034         if ( syncuuid_inserted ) {
2035                 Debug( LDAP_DEBUG_SYNC, "syncrepl_entry: %s inserted UUID %s\n",
2036                         si->si_ridtxt, syncUUID_strrep.bv_val, 0 );
2037         }
2038         op->ors_filter = &f;
2039
2040         op->ors_filterstr.bv_len = STRLENOF( "(entryUUID=)" ) + syncUUID_strrep.bv_len;
2041         op->ors_filterstr.bv_val = (char *) slap_sl_malloc(
2042                 op->ors_filterstr.bv_len + 1, op->o_tmpmemctx ); 
2043         AC_MEMCPY( op->ors_filterstr.bv_val, "(entryUUID=", STRLENOF( "(entryUUID=" ) );
2044         AC_MEMCPY( &op->ors_filterstr.bv_val[STRLENOF( "(entryUUID=" )],
2045                 syncUUID_strrep.bv_val, syncUUID_strrep.bv_len );
2046         op->ors_filterstr.bv_val[op->ors_filterstr.bv_len - 1] = ')';
2047         op->ors_filterstr.bv_val[op->ors_filterstr.bv_len] = '\0';
2048
2049         op->o_tag = LDAP_REQ_SEARCH;
2050         op->ors_scope = LDAP_SCOPE_SUBTREE;
2051         op->ors_deref = LDAP_DEREF_NEVER;
2052
2053         /* get the entry for this UUID */
2054         op->o_req_dn = si->si_base;
2055         op->o_req_ndn = si->si_base;
2056
2057         op->o_time = slap_get_time();
2058         op->ors_tlimit = SLAP_NO_LIMIT;
2059         op->ors_slimit = 1;
2060
2061         op->ors_attrs = slap_anlist_all_attributes;
2062         op->ors_attrsonly = 0;
2063
2064         /* set callback function */
2065         op->o_callback = &cb;
2066         cb.sc_response = dn_callback;
2067         cb.sc_private = &dni;
2068         dni.new_entry = entry;
2069         dni.modlist = modlist;
2070
2071         if ( limits_check( op, &rs_search ) == 0 ) {
2072                 rc = be->be_search( op, &rs_search );
2073                 Debug( LDAP_DEBUG_SYNC,
2074                                 "syncrepl_entry: %s be_search (%d)\n", 
2075                                 si->si_ridtxt, rc, 0 );
2076         }
2077
2078         if ( !BER_BVISNULL( &op->ors_filterstr ) ) {
2079                 slap_sl_free( op->ors_filterstr.bv_val, op->o_tmpmemctx );
2080         }
2081
2082         cb.sc_response = null_callback;
2083         cb.sc_private = si;
2084
2085         if ( entry && !BER_BVISNULL( &entry->e_name ) ) {
2086                 Debug( LDAP_DEBUG_SYNC,
2087                                 "syncrepl_entry: %s %s\n",
2088                                 si->si_ridtxt, entry->e_name.bv_val, 0 );
2089         } else {
2090                 Debug( LDAP_DEBUG_SYNC,
2091                                 "syncrepl_entry: %s %s\n",
2092                                 si->si_ridtxt, dni.dn.bv_val ? dni.dn.bv_val : "(null)", 0 );
2093         }
2094
2095         assert( BER_BVISNULL( &op->o_csn ) );
2096         if ( syncCSN ) {
2097                 slap_queue_csn( op, syncCSN );
2098         }
2099
2100         slap_op_time( &op->o_time, &op->o_tincr );
2101         switch ( syncstate ) {
2102         case LDAP_SYNC_ADD:
2103         case LDAP_SYNC_MODIFY:
2104                 if ( BER_BVISNULL( &op->o_csn ))
2105                 {
2106
2107                         Attribute *a = attr_find( entry->e_attrs, slap_schema.si_ad_entryCSN );
2108                         if ( a ) {
2109                                 /* FIXME: op->o_csn is assumed to be
2110                                  * on the thread's slab; this needs
2111                                  * to be cleared ASAP.
2112                                  * What happens if already present?
2113                                  */
2114                                 assert( BER_BVISNULL( &op->o_csn ) );
2115                                 op->o_csn = a->a_vals[0];
2116                                 freecsn = 0;
2117                         }
2118                 }
2119 retry_add:;
2120                 if ( BER_BVISNULL( &dni.dn ) ) {
2121
2122                         op->o_req_dn = entry->e_name;
2123                         op->o_req_ndn = entry->e_nname;
2124                         op->o_tag = LDAP_REQ_ADD;
2125                         op->ora_e = entry;
2126                         op->o_bd = si->si_wbe;
2127
2128                         rc = op->o_bd->be_add( op, &rs_add );
2129                         Debug( LDAP_DEBUG_SYNC,
2130                                         "syncrepl_entry: %s be_add (%d)\n", 
2131                                         si->si_ridtxt, rc, 0 );
2132                         switch ( rs_add.sr_err ) {
2133                         case LDAP_SUCCESS:
2134                                 if ( op->ora_e == entry ) {
2135                                         be_entry_release_w( op, entry );
2136                                 }
2137                                 entry = NULL;
2138                                 break;
2139
2140                         case LDAP_REFERRAL:
2141                         /* we assume that LDAP_NO_SUCH_OBJECT is returned 
2142                          * only if the suffix entry is not present */
2143                         case LDAP_NO_SUCH_OBJECT:
2144                                 rc = syncrepl_add_glue( op, entry );
2145                                 entry = NULL;
2146                                 break;
2147
2148                         /* if an entry was added via syncrepl_add_glue(),
2149                          * it likely has no entryUUID, so the previous
2150                          * be_search() doesn't find it.  In this case,
2151                          * give syncrepl a chance to modify it. Also
2152                          * allow for entries that were recreated with the
2153                          * same DN but a different entryUUID.
2154                          */
2155                         case LDAP_ALREADY_EXISTS:
2156                                 if ( retry ) {
2157                                         Operation       op2 = *op;
2158                                         SlapReply       rs2 = { 0 };
2159                                         slap_callback   cb2 = { 0 };
2160
2161                                         op2.o_bd = be;
2162                                         op2.o_tag = LDAP_REQ_SEARCH;
2163                                         op2.o_req_dn = entry->e_name;
2164                                         op2.o_req_ndn = entry->e_nname;
2165                                         op2.ors_scope = LDAP_SCOPE_BASE;
2166                                         op2.ors_deref = LDAP_DEREF_NEVER;
2167                                         op2.ors_attrs = slap_anlist_all_attributes;
2168                                         op2.ors_attrsonly = 0;
2169                                         op2.ors_limit = NULL;
2170                                         op2.ors_slimit = 1;
2171                                         op2.ors_tlimit = SLAP_NO_LIMIT;
2172
2173                                         f.f_choice = LDAP_FILTER_PRESENT;
2174                                         f.f_desc = slap_schema.si_ad_objectClass;
2175                                         op2.ors_filter = &f;
2176                                         op2.ors_filterstr = generic_filterstr;
2177
2178                                         op2.o_callback = &cb2;
2179                                         cb2.sc_response = dn_callback;
2180                                         cb2.sc_private = &dni;
2181
2182                                         rc = be->be_search( &op2, &rs2 );
2183                                         if ( rc ) goto done;
2184
2185                                         retry = 0;
2186                                         slap_op_time( &op->o_time, &op->o_tincr );
2187                                         goto retry_add;
2188                                 }
2189                                 /* FALLTHRU */
2190
2191                         default:
2192                                 Debug( LDAP_DEBUG_ANY,
2193                                         "syncrepl_entry: %s be_add failed (%d)\n",
2194                                         si->si_ridtxt, rs_add.sr_err, 0 );
2195                                 break;
2196                         }
2197                         op->o_bd = be;
2198                         goto done;
2199                 }
2200                 /* FALLTHRU */
2201                 op->o_req_dn = dni.dn;
2202                 op->o_req_ndn = dni.ndn;
2203                 if ( dni.renamed ) {
2204                         struct berval noldp, newp, nnewp;
2205
2206                         op->o_tag = LDAP_REQ_MODRDN;
2207                         dnRdn( &entry->e_name, &op->orr_newrdn );
2208                         dnRdn( &entry->e_nname, &op->orr_nnewrdn );
2209
2210                         dnParent( &dni.ndn, &noldp );
2211                         dnParent( &entry->e_nname, &nnewp );
2212                         if ( !dn_match( &noldp, &nnewp ) ) {
2213                                 dnParent( &entry->e_name, &newp );
2214                                 op->orr_newSup = &newp;
2215                                 op->orr_nnewSup = &nnewp;
2216                         } else {
2217                                 op->orr_newSup = NULL;
2218                                 op->orr_nnewSup = NULL;
2219                         }
2220                         /* Let the modify handler take care of deleting old RDNs */
2221                         op->orr_deleteoldrdn = 0;
2222                         op->orr_modlist = NULL;
2223                         if ( ( rc = slap_modrdn2mods( op, &rs_modify ) ) ) {
2224                                 goto done;
2225                         }
2226
2227                         /* RDNs must be NUL-terminated for back-ldap */
2228                         noldp = op->orr_newrdn;
2229                         ber_dupbv_x( &op->orr_newrdn, &noldp, op->o_tmpmemctx );
2230                         noldp = op->orr_nnewrdn;
2231                         ber_dupbv_x( &op->orr_nnewrdn, &noldp, op->o_tmpmemctx );
2232
2233                         /* Remove the CSN for now, only propagate the Modify */
2234                         if ( syncCSN ) {
2235                                 slap_graduate_commit_csn( op );
2236                         }
2237                         op->o_bd = si->si_wbe;
2238                         rc = op->o_bd->be_modrdn( op, &rs_modify );
2239                         op->o_tmpfree( op->orr_nnewrdn.bv_val, op->o_tmpmemctx );
2240                         op->o_tmpfree( op->orr_newrdn.bv_val, op->o_tmpmemctx );
2241
2242                         slap_mods_free( op->orr_modlist, 1 );
2243                         Debug( LDAP_DEBUG_SYNC,
2244                                         "syncrepl_entry: %s be_modrdn (%d)\n", 
2245                                         si->si_ridtxt, rc, 0 );
2246                         op->o_bd = be;
2247                         /* Renamed entries still have other mods so just fallthru */
2248                         op->o_req_dn = entry->e_name;
2249                         op->o_req_ndn = entry->e_nname;
2250                         if ( syncCSN ) {
2251                                 slap_queue_csn( op, syncCSN );
2252                         }
2253                 }
2254                 if ( dni.mods ) {
2255                         op->o_tag = LDAP_REQ_MODIFY;
2256                         op->orm_modlist = dni.mods;
2257                         op->orm_no_opattrs = 1;
2258                         op->o_bd = si->si_wbe;
2259
2260                         rc = op->o_bd->be_modify( op, &rs_modify );
2261                         slap_mods_free( op->orm_modlist, 1 );
2262                         op->orm_no_opattrs = 0;
2263                         Debug( LDAP_DEBUG_SYNC,
2264                                         "syncrepl_entry: %s be_modify (%d)\n", 
2265                                         si->si_ridtxt, rc, 0 );
2266                         if ( rs_modify.sr_err != LDAP_SUCCESS ) {
2267                                 Debug( LDAP_DEBUG_ANY,
2268                                         "syncrepl_entry: %s be_modify failed (%d)\n",
2269                                         si->si_ridtxt, rs_modify.sr_err, 0 );
2270                         }
2271                         op->o_bd = be;
2272                 } else {
2273                         Debug( LDAP_DEBUG_SYNC,
2274                                         "syncrepl_entry: %s entry unchanged, ignored (%s)\n", 
2275                                         si->si_ridtxt, op->o_req_dn.bv_val, 0 );
2276                 }
2277                 goto done;
2278         case LDAP_SYNC_DELETE :
2279                 if ( !BER_BVISNULL( &dni.dn ) ) {
2280                         op->o_req_dn = dni.dn;
2281                         op->o_req_ndn = dni.ndn;
2282                         op->o_tag = LDAP_REQ_DELETE;
2283                         op->o_bd = si->si_wbe;
2284                         rc = op->o_bd->be_delete( op, &rs_delete );
2285                         Debug( LDAP_DEBUG_SYNC,
2286                                         "syncrepl_entry: %s be_delete (%d)\n", 
2287                                         si->si_ridtxt, rc, 0 );
2288
2289                         while ( rs_delete.sr_err == LDAP_SUCCESS
2290                                 && op->o_delete_glue_parent ) {
2291                                 op->o_delete_glue_parent = 0;
2292                                 if ( !be_issuffix( be, &op->o_req_ndn ) ) {
2293                                         slap_callback cb = { NULL };
2294                                         cb.sc_response = slap_null_cb;
2295                                         dnParent( &op->o_req_ndn, &pdn );
2296                                         op->o_req_dn = pdn;
2297                                         op->o_req_ndn = pdn;
2298                                         op->o_callback = &cb;
2299                                         op->o_bd->be_delete( op, &rs_delete );
2300                                 } else {
2301                                         break;
2302                                 }
2303                         }
2304                         op->o_bd = be;
2305                 }
2306                 goto done;
2307
2308         default :
2309                 Debug( LDAP_DEBUG_ANY,
2310                         "syncrepl_entry: %s unknown syncstate\n", si->si_ridtxt, 0, 0 );
2311                 goto done;
2312         }
2313
2314 done:
2315         if ( !BER_BVISNULL( &syncUUID_strrep ) ) {
2316                 slap_sl_free( syncUUID_strrep.bv_val, op->o_tmpmemctx );
2317                 BER_BVZERO( &syncUUID_strrep );
2318         }
2319         if ( !BER_BVISNULL( &dni.ndn ) ) {
2320                 op->o_tmpfree( dni.ndn.bv_val, op->o_tmpmemctx );
2321         }
2322         if ( !BER_BVISNULL( &dni.dn ) ) {
2323                 op->o_tmpfree( dni.dn.bv_val, op->o_tmpmemctx );
2324         }
2325         if ( entry ) {
2326                 entry_free( entry );
2327         }
2328         if ( syncCSN ) {
2329                 slap_graduate_commit_csn( op );
2330         }
2331         if ( !BER_BVISNULL( &op->o_csn ) && freecsn ) {
2332                 op->o_tmpfree( op->o_csn.bv_val, op->o_tmpmemctx );
2333         }
2334         BER_BVZERO( &op->o_csn );
2335         return rc;
2336 }
2337
2338 static struct berval gcbva[] = {
2339         BER_BVC("top"),
2340         BER_BVC("glue"),
2341         BER_BVNULL
2342 };
2343
2344 #define NP_DELETE_ONE   2
2345
2346 static void
2347 syncrepl_del_nonpresent(
2348         Operation *op,
2349         syncinfo_t *si,
2350         BerVarray uuids,
2351         struct sync_cookie *sc,
2352         int m )
2353 {
2354         Backend* be = op->o_bd;
2355         slap_callback   cb = { NULL };
2356         SlapReply       rs_search = {REP_RESULT};
2357         SlapReply       rs_delete = {REP_RESULT};
2358         SlapReply       rs_modify = {REP_RESULT};
2359         struct nonpresent_entry *np_list, *np_prev;
2360         int rc;
2361         AttributeName   an[2];
2362
2363         struct berval pdn = BER_BVNULL;
2364         struct berval csn;
2365
2366         op->o_req_dn = si->si_base;
2367         op->o_req_ndn = si->si_base;
2368
2369         cb.sc_response = nonpresent_callback;
2370         cb.sc_private = si;
2371
2372         op->o_callback = &cb;
2373         op->o_tag = LDAP_REQ_SEARCH;
2374         op->ors_scope = si->si_scope;
2375         op->ors_deref = LDAP_DEREF_NEVER;
2376         op->o_time = slap_get_time();
2377         op->ors_tlimit = SLAP_NO_LIMIT;
2378
2379
2380         if ( uuids ) {
2381                 Filter uf;
2382                 AttributeAssertion eq = ATTRIBUTEASSERTION_INIT;
2383                 int i;
2384
2385                 op->ors_attrsonly = 1;
2386                 op->ors_attrs = slap_anlist_no_attrs;
2387                 op->ors_limit = NULL;
2388                 op->ors_filter = &uf;
2389
2390                 uf.f_ava = &eq;
2391                 uf.f_av_desc = slap_schema.si_ad_entryUUID;
2392                 uf.f_next = NULL;
2393                 uf.f_choice = LDAP_FILTER_EQUALITY;
2394                 si->si_refreshDelete |= NP_DELETE_ONE;
2395
2396                 for (i=0; uuids[i].bv_val; i++) {
2397                         op->ors_slimit = 1;
2398                         uf.f_av_value = uuids[i];
2399                         filter2bv_x( op, op->ors_filter, &op->ors_filterstr );
2400                         rc = be->be_search( op, &rs_search );
2401                         op->o_tmpfree( op->ors_filterstr.bv_val, op->o_tmpmemctx );
2402                 }
2403                 si->si_refreshDelete ^= NP_DELETE_ONE;
2404         } else {
2405                 Filter *cf, *of;
2406
2407                 memset( &an[0], 0, 2 * sizeof( AttributeName ) );
2408                 an[0].an_name = slap_schema.si_ad_entryUUID->ad_cname;
2409                 an[0].an_desc = slap_schema.si_ad_entryUUID;
2410                 op->ors_attrs = an;
2411                 op->ors_slimit = SLAP_NO_LIMIT;
2412                 op->ors_attrsonly = 0;
2413                 op->ors_filter = str2filter_x( op, si->si_filterstr.bv_val );
2414                 /* In multimaster, updates can continue to arrive while
2415                  * we're searching. Limit the search result to entries
2416                  * older than all of our cookie CSNs.
2417                  */
2418                 if ( SLAP_MULTIMASTER( op->o_bd )) {
2419                         Filter *f;
2420                         int i;
2421                         cf = op->o_tmpalloc( (sc->numcsns+1) * sizeof(Filter) +
2422                                 sc->numcsns * sizeof(AttributeAssertion), op->o_tmpmemctx );
2423                         f = cf;
2424                         f->f_choice = LDAP_FILTER_AND;
2425                         f->f_next = NULL;
2426                         f->f_and = f+1;
2427                         of = f->f_and;
2428                         for ( i=0; i<sc->numcsns; i++ ) {
2429                                 f = of;
2430                                 f->f_choice = LDAP_FILTER_LE;
2431                                 f->f_ava = (AttributeAssertion *)(f+1);
2432                                 f->f_av_desc = slap_schema.si_ad_entryCSN;
2433                                 f->f_av_value = sc->ctxcsn[i];
2434                                 f->f_next = (Filter *)(f->f_ava+1);
2435                                 of = f->f_next;
2436                         }
2437                         f->f_next = op->ors_filter;
2438                         of = op->ors_filter;
2439                         op->ors_filter = cf;
2440                         filter2bv_x( op, op->ors_filter, &op->ors_filterstr );
2441                 } else {
2442                         cf = NULL;
2443                         op->ors_filterstr = si->si_filterstr;
2444                 }
2445                 op->o_nocaching = 1;
2446
2447                 if ( limits_check( op, &rs_search ) == 0 ) {
2448                         rc = be->be_search( op, &rs_search );
2449                 }
2450                 if ( SLAP_MULTIMASTER( op->o_bd )) {
2451                         op->o_tmpfree( cf, op->o_tmpmemctx );
2452                         op->ors_filter = of;
2453                 }
2454                 if ( op->ors_filter ) filter_free_x( op, op->ors_filter, 1 );
2455                 if ( op->ors_filterstr.bv_val != si->si_filterstr.bv_val ) {
2456                         op->o_tmpfree( op->ors_filterstr.bv_val, op->o_tmpmemctx );
2457                 }
2458
2459         }
2460
2461         op->o_nocaching = 0;
2462
2463         if ( !LDAP_LIST_EMPTY( &si->si_nonpresentlist ) ) {
2464
2465                 if ( sc->ctxcsn && !BER_BVISNULL( &sc->ctxcsn[m] ) ) {
2466                         csn = sc->ctxcsn[m];
2467                 } else {
2468                         csn = si->si_syncCookie.ctxcsn[0];
2469                 }
2470
2471                 op->o_bd = si->si_wbe;
2472                 slap_queue_csn( op, &csn );
2473
2474                 np_list = LDAP_LIST_FIRST( &si->si_nonpresentlist );
2475                 while ( np_list != NULL ) {
2476                         LDAP_LIST_REMOVE( np_list, npe_link );
2477                         np_prev = np_list;
2478                         np_list = LDAP_LIST_NEXT( np_list, npe_link );
2479                         op->o_tag = LDAP_REQ_DELETE;
2480                         op->o_callback = &cb;
2481                         cb.sc_response = null_callback;
2482                         cb.sc_private = si;
2483                         op->o_req_dn = *np_prev->npe_name;
2484                         op->o_req_ndn = *np_prev->npe_nname;
2485                         rc = op->o_bd->be_delete( op, &rs_delete );
2486                         Debug( LDAP_DEBUG_SYNC,
2487                                 "syncrepl_del_nonpresent: %s be_delete %s (%d)\n", 
2488                                 si->si_ridtxt, op->o_req_dn.bv_val, rc );
2489
2490                         if ( rs_delete.sr_err == LDAP_NOT_ALLOWED_ON_NONLEAF ) {
2491                                 Modifications mod1, mod2;
2492                                 mod1.sml_op = LDAP_MOD_REPLACE;
2493                                 mod1.sml_flags = 0;
2494                                 mod1.sml_desc = slap_schema.si_ad_objectClass;
2495                                 mod1.sml_type = mod1.sml_desc->ad_cname;
2496                                 mod1.sml_numvals = 2;
2497                                 mod1.sml_values = &gcbva[0];
2498                                 mod1.sml_nvalues = NULL;
2499                                 mod1.sml_next = &mod2;
2500
2501                                 mod2.sml_op = LDAP_MOD_REPLACE;
2502                                 mod2.sml_flags = 0;
2503                                 mod2.sml_desc = slap_schema.si_ad_structuralObjectClass;
2504                                 mod2.sml_type = mod2.sml_desc->ad_cname;
2505                                 mod2.sml_numvals = 1;
2506                                 mod2.sml_values = &gcbva[1];
2507                                 mod2.sml_nvalues = NULL;
2508                                 mod2.sml_next = NULL;
2509
2510                                 op->o_tag = LDAP_REQ_MODIFY;
2511                                 op->orm_modlist = &mod1;
2512
2513                                 rc = op->o_bd->be_modify( op, &rs_modify );
2514                                 if ( mod2.sml_next ) slap_mods_free( mod2.sml_next, 1 );
2515                         }
2516
2517                         while ( rs_delete.sr_err == LDAP_SUCCESS &&
2518                                         op->o_delete_glue_parent ) {
2519                                 op->o_delete_glue_parent = 0;
2520                                 if ( !be_issuffix( be, &op->o_req_ndn ) ) {
2521                                         slap_callback cb = { NULL };
2522                                         cb.sc_response = slap_null_cb;
2523                                         dnParent( &op->o_req_ndn, &pdn );
2524                                         op->o_req_dn = pdn;
2525                                         op->o_req_ndn = pdn;
2526                                         op->o_callback = &cb;
2527                                         /* give it a root privil ? */
2528                                         op->o_bd->be_delete( op, &rs_delete );
2529                                 } else {
2530                                         break;
2531                                 }
2532                         }
2533
2534                         op->o_delete_glue_parent = 0;
2535
2536                         ber_bvfree( np_prev->npe_name );
2537                         ber_bvfree( np_prev->npe_nname );
2538                         ch_free( np_prev );
2539
2540                         if ( slapd_shutdown ) {
2541                                 break;
2542                         }
2543                 }
2544
2545                 slap_graduate_commit_csn( op );
2546                 op->o_bd = be;
2547
2548                 op->o_tmpfree( op->o_csn.bv_val, op->o_tmpmemctx );
2549                 BER_BVZERO( &op->o_csn );
2550         }
2551
2552         return;
2553 }
2554
2555 int
2556 syncrepl_add_glue(
2557         Operation* op,
2558         Entry *e )
2559 {
2560         Backend *be = op->o_bd;
2561         slap_callback cb = { NULL };
2562         Attribute       *a;
2563         int     rc;
2564         int suffrdns;
2565         int i;
2566         struct berval dn = BER_BVNULL;
2567         struct berval ndn = BER_BVNULL;
2568         Entry   *glue;
2569         SlapReply       rs_add = {REP_RESULT};
2570         struct berval   ptr, nptr;
2571         char            *comma;
2572
2573         op->o_tag = LDAP_REQ_ADD;
2574         op->o_callback = &cb;
2575         cb.sc_response = null_callback;
2576         cb.sc_private = NULL;
2577
2578         dn = e->e_name;
2579         ndn = e->e_nname;
2580
2581         /* count RDNs in suffix */
2582         if ( !BER_BVISEMPTY( &be->be_nsuffix[0] ) ) {
2583                 for ( i = 0, ptr = be->be_nsuffix[0], comma = ptr.bv_val; comma != NULL; comma = ber_bvchr( &ptr, ',' ) ) {
2584                         comma++;
2585                         ptr.bv_len -= comma - ptr.bv_val;
2586                         ptr.bv_val = comma;
2587                         i++;
2588                 }
2589                 suffrdns = i;
2590         } else {
2591                 /* suffix is "" */
2592                 suffrdns = 0;
2593         }
2594
2595         /* Start with BE suffix */
2596         ptr = dn;
2597         for ( i = 0; i < suffrdns; i++ ) {
2598                 comma = ber_bvrchr( &ptr, ',' );
2599                 if ( comma != NULL ) {
2600                         ptr.bv_len = comma - ptr.bv_val;
2601                 } else {
2602                         ptr.bv_len = 0;
2603                         break;
2604                 }
2605         }
2606         
2607         if ( !BER_BVISEMPTY( &ptr ) ) {
2608                 dn.bv_len -= ptr.bv_len + 1;
2609                 dn.bv_val += ptr.bv_len + 1;
2610         }
2611
2612         /* the normalizedDNs are always the same length, no counting
2613          * required.
2614          */
2615         nptr = ndn;
2616         if ( ndn.bv_len > be->be_nsuffix[0].bv_len ) {
2617                 ndn.bv_val += ndn.bv_len - be->be_nsuffix[0].bv_len;
2618                 ndn.bv_len = be->be_nsuffix[0].bv_len;
2619
2620                 nptr.bv_len = ndn.bv_val - nptr.bv_val - 1;
2621
2622         } else {
2623                 nptr.bv_len = 0;
2624         }
2625
2626         while ( ndn.bv_val > e->e_nname.bv_val ) {
2627                 glue = entry_alloc();
2628                 ber_dupbv( &glue->e_name, &dn );
2629                 ber_dupbv( &glue->e_nname, &ndn );
2630
2631                 a = attr_alloc( slap_schema.si_ad_objectClass );
2632
2633                 a->a_numvals = 2;
2634                 a->a_vals = ch_calloc( 3, sizeof( struct berval ) );
2635                 ber_dupbv( &a->a_vals[0], &gcbva[0] );
2636                 ber_dupbv( &a->a_vals[1], &gcbva[1] );
2637                 ber_dupbv( &a->a_vals[2], &gcbva[2] );
2638
2639                 a->a_nvals = a->a_vals;
2640
2641                 a->a_next = glue->e_attrs;
2642                 glue->e_attrs = a;
2643
2644                 a = attr_alloc( slap_schema.si_ad_structuralObjectClass );
2645
2646                 a->a_numvals = 1;
2647                 a->a_vals = ch_calloc( 2, sizeof( struct berval ) );
2648                 ber_dupbv( &a->a_vals[0], &gcbva[1] );
2649                 ber_dupbv( &a->a_vals[1], &gcbva[2] );
2650
2651                 a->a_nvals = a->a_vals;
2652
2653                 a->a_next = glue->e_attrs;
2654                 glue->e_attrs = a;
2655
2656                 op->o_req_dn = glue->e_name;
2657                 op->o_req_ndn = glue->e_nname;
2658                 op->ora_e = glue;
2659                 rc = be->be_add ( op, &rs_add );
2660                 if ( rs_add.sr_err == LDAP_SUCCESS ) {
2661                         if ( op->ora_e == glue )
2662                                 be_entry_release_w( op, glue );
2663                 } else {
2664                 /* incl. ALREADY EXIST */
2665                         entry_free( glue );
2666                         if ( rs_add.sr_err != LDAP_ALREADY_EXISTS ) {
2667                                 entry_free( e );
2668                                 return rc;
2669                         }
2670                 }
2671
2672                 /* Move to next child */
2673                 comma = ber_bvrchr( &ptr, ',' );
2674                 if ( comma == NULL ) {
2675                         break;
2676                 }
2677                 ptr.bv_len = comma - ptr.bv_val;
2678                 
2679                 dn.bv_val = ++comma;
2680                 dn.bv_len = e->e_name.bv_len - (dn.bv_val - e->e_name.bv_val);
2681
2682                 comma = ber_bvrchr( &nptr, ',' );
2683                 assert( comma != NULL );
2684                 nptr.bv_len = comma - nptr.bv_val;
2685
2686                 ndn.bv_val = ++comma;
2687                 ndn.bv_len = e->e_nname.bv_len - (ndn.bv_val - e->e_nname.bv_val);
2688         }
2689
2690         op->o_req_dn = e->e_name;
2691         op->o_req_ndn = e->e_nname;
2692         op->ora_e = e;
2693         rc = be->be_add ( op, &rs_add );
2694         if ( rs_add.sr_err == LDAP_SUCCESS ) {
2695                 if ( op->ora_e == e )
2696                         be_entry_release_w( op, e );
2697         } else {
2698                 entry_free( e );
2699         }
2700
2701         return rc;
2702 }
2703
2704 static int
2705 syncrepl_updateCookie(
2706         syncinfo_t *si,
2707         Operation *op,
2708         struct berval *pdn,
2709         struct sync_cookie *syncCookie )
2710 {
2711         Backend *be = op->o_bd;
2712         Modifications mod;
2713         struct berval first = BER_BVNULL;
2714
2715         int rc, i, j;
2716         ber_len_t len;
2717
2718         slap_callback cb = { NULL };
2719         SlapReply       rs_modify = {REP_RESULT};
2720
2721         mod.sml_op = LDAP_MOD_REPLACE;
2722         mod.sml_desc = slap_schema.si_ad_contextCSN;
2723         mod.sml_type = mod.sml_desc->ad_cname;
2724         mod.sml_flags = SLAP_MOD_INTERNAL;
2725         mod.sml_nvalues = NULL;
2726         mod.sml_next = NULL;
2727
2728         ldap_pvt_thread_mutex_lock( &si->si_cookieState->cs_mutex );
2729
2730         /* clone the cookieState CSNs so we can Replace the whole thing */
2731         mod.sml_numvals = si->si_cookieState->cs_num;
2732         mod.sml_values = op->o_tmpalloc(( mod.sml_numvals+1 )*sizeof(struct berval), op->o_tmpmemctx );
2733         for ( i=0; i<mod.sml_numvals; i++ )
2734                 mod.sml_values[i] = si->si_cookieState->cs_vals[i];
2735         BER_BVZERO( &mod.sml_values[i] );
2736
2737         /* find any CSNs in the syncCookie that are newer than the cookieState */
2738         for ( i=0; i<syncCookie->numcsns; i++ ) {
2739                 for ( j=0; j<si->si_cookieState->cs_num; j++ ) {
2740                         if ( syncCookie->sids[i] != si->si_cookieState->cs_sids[j] )
2741                                 continue;
2742                         len = syncCookie->ctxcsn[i].bv_len;
2743                         if ( len > si->si_cookieState->cs_vals[j].bv_len )
2744                                 len = si->si_cookieState->cs_vals[j].bv_len;
2745                         if ( memcmp( syncCookie->ctxcsn[i].bv_val,
2746                                 si->si_cookieState->cs_vals[j].bv_val, len ) > 0 ) {
2747                                 mod.sml_values[j] = syncCookie->ctxcsn[i];
2748                                 if ( BER_BVISNULL( &first ) ) {
2749                                         first = syncCookie->ctxcsn[i];
2750
2751                                 } else if ( memcmp( syncCookie->ctxcsn[i].bv_val, first.bv_val, first.bv_len ) > 0 )
2752                                 {
2753                                         first = syncCookie->ctxcsn[i];
2754                                 }
2755                         }
2756                         break;
2757                 }
2758                 /* there was no match for this SID, it's a new CSN */
2759                 if ( j == si->si_cookieState->cs_num ) {
2760                         mod.sml_values = op->o_tmprealloc( mod.sml_values,
2761                                 ( mod.sml_numvals+2 )*sizeof(struct berval), op->o_tmpmemctx );
2762                         mod.sml_values[mod.sml_numvals++] = syncCookie->ctxcsn[i];
2763                         BER_BVZERO( &mod.sml_values[mod.sml_numvals] );
2764                         if ( BER_BVISNULL( &first ) ) {
2765                                 first = syncCookie->ctxcsn[i];
2766                         } else if ( memcmp( syncCookie->ctxcsn[i].bv_val, first.bv_val, first.bv_len ) > 0 )
2767                         {
2768                                 first = syncCookie->ctxcsn[i];
2769                         }
2770                 }
2771         }
2772         /* Should never happen, ITS#5065 */
2773         if ( BER_BVISNULL( &first )) {
2774                 ldap_pvt_thread_mutex_unlock( &si->si_cookieState->cs_mutex );
2775                 op->o_tmpfree( mod.sml_values, op->o_tmpmemctx );
2776                 return 0;
2777         }
2778         op->o_bd = si->si_wbe;
2779         slap_queue_csn( op, &first );
2780
2781         op->o_tag = LDAP_REQ_MODIFY;
2782
2783         cb.sc_response = null_callback;
2784         cb.sc_private = si;
2785
2786         op->o_callback = &cb;
2787         op->o_req_dn = op->o_bd->be_suffix[0];
2788         op->o_req_ndn = op->o_bd->be_nsuffix[0];
2789
2790         /* update contextCSN */
2791         op->o_dont_replicate = 1;
2792
2793         op->orm_modlist = &mod;
2794         op->orm_no_opattrs = 1;
2795         rc = op->o_bd->be_modify( op, &rs_modify );
2796         op->orm_no_opattrs = 0;
2797         op->o_dont_replicate = 0;
2798
2799         if ( rs_modify.sr_err == LDAP_SUCCESS ) {
2800                 slap_sync_cookie_free( &si->si_syncCookie, 0 );
2801                 slap_dup_sync_cookie( &si->si_syncCookie, syncCookie );
2802                 /* If we replaced any old values */
2803                 for ( i=0; i<si->si_cookieState->cs_num; i++ ) {
2804                         if ( mod.sml_values[i].bv_val != si->si_cookieState->cs_vals[i].bv_val )
2805                                         ber_bvreplace( &si->si_cookieState->cs_vals[i],
2806                                                 &mod.sml_values[i] );
2807                 }
2808                 /* Handle any added values */
2809                 if ( i < mod.sml_numvals ) {
2810                         si->si_cookieState->cs_num = mod.sml_numvals;
2811                         value_add( &si->si_cookieState->cs_vals, &mod.sml_values[i] );
2812                         free( si->si_cookieState->cs_sids );
2813                         si->si_cookieState->cs_sids = slap_parse_csn_sids(
2814                                 si->si_cookieState->cs_vals, si->si_cookieState->cs_num, NULL );
2815                 }
2816
2817                 si->si_cookieState->cs_age++;
2818                 si->si_cookieAge = si->si_cookieState->cs_age;
2819         } else {
2820                 Debug( LDAP_DEBUG_ANY,
2821                         "syncrepl_updateCookie: %s be_modify failed (%d)\n",
2822                         si->si_ridtxt, rs_modify.sr_err, 0 );
2823         }
2824         ldap_pvt_thread_mutex_unlock( &si->si_cookieState->cs_mutex );
2825
2826         op->o_bd = be;
2827         op->o_tmpfree( op->o_csn.bv_val, op->o_tmpmemctx );
2828         BER_BVZERO( &op->o_csn );
2829         if ( mod.sml_next ) slap_mods_free( mod.sml_next, 1 );
2830         op->o_tmpfree( mod.sml_values, op->o_tmpmemctx );
2831
2832         return rc;
2833 }
2834
2835 static void
2836 attr_cmp( Operation *op, Attribute *old, Attribute *new,
2837         Modifications ***mret, Modifications ***mcur )
2838 {
2839         int i, j;
2840         Modifications *mod, **modtail;
2841
2842         modtail = *mret;
2843
2844         if ( old ) {
2845                 int n, o, nn, no;
2846                 struct berval **adds, **dels;
2847                 /* count old and new */
2848                 for ( o=0; old->a_vals[o].bv_val; o++ ) ;
2849                 for ( n=0; new->a_vals[n].bv_val; n++ ) ;
2850
2851                 /* there MUST be both old and new values */
2852                 assert( o != 0 );
2853                 assert( n != 0 );
2854                 j = 0;
2855
2856                 adds = op->o_tmpalloc( sizeof(struct berval *) * n, op->o_tmpmemctx );
2857                 dels = op->o_tmpalloc( sizeof(struct berval *) * o, op->o_tmpmemctx );
2858
2859                 for ( i=0; i<o; i++ ) dels[i] = &old->a_vals[i];
2860                 for ( i=0; i<n; i++ ) adds[i] = &new->a_vals[i];
2861
2862                 nn = n; no = o;
2863
2864                 for ( i=0; i<o; i++ ) {
2865                         for ( j=0; j<n; j++ ) {
2866                                 if ( !adds[j] )
2867                                         continue;
2868                                 if ( bvmatch( dels[i], adds[j] ) ) {
2869                                         no--;
2870                                         nn--;
2871                                         adds[j] = NULL;
2872                                         dels[i] = NULL;
2873                                         break;
2874                                 }
2875                         }
2876                 }
2877
2878                 /* Don't delete/add an objectClass, always use the replace op.
2879                  * Modify would fail if provider has replaced entry with a new,
2880                  * and the new explicitly includes a superior of a class that was
2881                  * only included implicitly in the old entry.  Ref ITS#5517.
2882                  *
2883                  * Also use replace op if attr has no equality matching rule.
2884                  * (ITS#5781)
2885                  */
2886                 if ( nn && no < o &&
2887                         ( old->a_desc == slap_schema.si_ad_objectClass ||
2888                          !old->a_desc->ad_type->sat_equality ))
2889                         no = o;
2890
2891                 i = j;
2892                 /* all old values were deleted, just use the replace op */
2893                 if ( no == o ) {
2894                         i = j-1;
2895                 } else if ( no ) {
2896                 /* delete some values */
2897                         mod = ch_malloc( sizeof( Modifications ) );
2898                         mod->sml_op = LDAP_MOD_DELETE;
2899                         mod->sml_flags = 0;
2900                         mod->sml_desc = old->a_desc;
2901                         mod->sml_type = mod->sml_desc->ad_cname;
2902                         mod->sml_numvals = no;
2903                         mod->sml_values = ch_malloc( ( no + 1 ) * sizeof(struct berval) );
2904                         if ( old->a_vals != old->a_nvals ) {
2905                                 mod->sml_nvalues = ch_malloc( ( no + 1 ) * sizeof(struct berval) );
2906                         } else {
2907                                 mod->sml_nvalues = NULL;
2908                         }
2909                         j = 0;
2910                         for ( i = 0; i < o; i++ ) {
2911                                 if ( !dels[i] ) continue;
2912                                 ber_dupbv( &mod->sml_values[j], &old->a_vals[i] );
2913                                 if ( mod->sml_nvalues ) {
2914                                         ber_dupbv( &mod->sml_nvalues[j], &old->a_nvals[i] );
2915                                 }
2916                                 j++;
2917                         }
2918                         BER_BVZERO( &mod->sml_values[j] );
2919                         if ( mod->sml_nvalues ) {
2920                                 BER_BVZERO( &mod->sml_nvalues[j] );
2921                         }
2922                         *modtail = mod;
2923                         modtail = &mod->sml_next;
2924                         i = j;
2925                 }
2926                 op->o_tmpfree( dels, op->o_tmpmemctx );
2927                 /* some values were added */
2928                 if ( nn && no < o ) {
2929                         mod = ch_malloc( sizeof( Modifications ) );
2930                         mod->sml_op = LDAP_MOD_ADD;
2931                         mod->sml_flags = 0;
2932                         mod->sml_desc = old->a_desc;
2933                         mod->sml_type = mod->sml_desc->ad_cname;
2934                         mod->sml_numvals = nn;
2935                         mod->sml_values = ch_malloc( ( nn + 1 ) * sizeof(struct berval) );
2936                         if ( old->a_vals != old->a_nvals ) {
2937                                 mod->sml_nvalues = ch_malloc( ( nn + 1 ) * sizeof(struct berval) );
2938                         } else {
2939                                 mod->sml_nvalues = NULL;
2940                         }
2941                         j = 0;
2942                         for ( i = 0; i < n; i++ ) {
2943                                 if ( !adds[i] ) continue;
2944                                 ber_dupbv( &mod->sml_values[j], &new->a_vals[i] );
2945                                 if ( mod->sml_nvalues ) {
2946                                         ber_dupbv( &mod->sml_nvalues[j], &new->a_nvals[i] );
2947                                 }
2948                                 j++;
2949                         }
2950                         BER_BVZERO( &mod->sml_values[j] );
2951                         if ( mod->sml_nvalues ) {
2952                                 BER_BVZERO( &mod->sml_nvalues[j] );
2953                         }
2954                         *modtail = mod;
2955                         modtail = &mod->sml_next;
2956                         i = j;
2957                 }
2958                 op->o_tmpfree( adds, op->o_tmpmemctx );
2959         } else {
2960                 /* new attr, just use the new mod */
2961                 i = 0;
2962                 j = 1;
2963         }
2964         /* advance to next element */
2965         mod = **mcur;
2966         if ( mod ) {
2967                 if ( i != j ) {
2968                         **mcur = mod->sml_next;
2969                         *modtail = mod;
2970                         modtail = &mod->sml_next;
2971                 } else {
2972                         *mcur = &mod->sml_next;
2973                 }
2974         }
2975         *mret = modtail;
2976 }
2977
2978 static int
2979 dn_callback(
2980         Operation*      op,
2981         SlapReply*      rs )
2982 {
2983         dninfo *dni = op->o_callback->sc_private;
2984
2985         if ( rs->sr_type == REP_SEARCH ) {
2986                 if ( !BER_BVISNULL( &dni->dn ) ) {
2987                         Debug( LDAP_DEBUG_ANY,
2988                                 "dn_callback : consistency error - "
2989                                 "entryUUID is not unique\n", 0, 0, 0 );
2990                 } else {
2991                         ber_dupbv_x( &dni->dn, &rs->sr_entry->e_name, op->o_tmpmemctx );
2992                         ber_dupbv_x( &dni->ndn, &rs->sr_entry->e_nname, op->o_tmpmemctx );
2993                         /* If there is a new entry, see if it differs from the old.
2994                          * We compare the non-normalized values so that cosmetic changes
2995                          * in the provider are always propagated.
2996                          */
2997                         if ( dni->new_entry ) {
2998                                 Modifications **modtail, **ml;
2999                                 Attribute *old, *new;
3000                                 struct berval old_rdn, new_rdn;
3001                                 struct berval old_p, new_p;
3002                                 int is_ctx;
3003
3004                                 is_ctx = dn_match( &rs->sr_entry->e_nname,
3005                                         &op->o_bd->be_nsuffix[0] );
3006
3007                                 /* Did the DN change?
3008                                  * case changes in the parent are ignored,
3009                                  * we only want to know if the RDN was
3010                                  * actually changed.
3011                                  */
3012                                 dnRdn( &rs->sr_entry->e_name, &old_rdn );
3013                                 dnRdn( &dni->new_entry->e_name, &new_rdn );
3014                                 dnParent( &rs->sr_entry->e_nname, &old_p );
3015                                 dnParent( &dni->new_entry->e_nname, &new_p );
3016
3017                                 if ( !dn_match( &old_rdn, &new_rdn ) ||
3018                                         ber_bvstrcasecmp( &old_p, &new_p ))
3019                                 {
3020                                         dni->renamed = 1;
3021
3022                                         /* A ModDN has happened, but other changes may have
3023                                          * occurred before we picked it up. So fallthru to
3024                                          * regular Modify processing.
3025                                          */
3026                                 }
3027
3028                                 modtail = &dni->mods;
3029                                 ml = dni->modlist;
3030
3031                                 /* Make sure new entry is actually newer than old entry */
3032                                 old = attr_find( rs->sr_entry->e_attrs,
3033                                         slap_schema.si_ad_entryCSN );
3034                                 new = attr_find( dni->new_entry->e_attrs,
3035                                         slap_schema.si_ad_entryCSN );
3036                                 if ( new && old ) {
3037                                         int rc;
3038                                         ber_len_t len = old->a_vals[0].bv_len;
3039                                         if ( len > new->a_vals[0].bv_len )
3040                                                 len = new->a_vals[0].bv_len;
3041                                         rc = memcmp( old->a_vals[0].bv_val,
3042                                                 new->a_vals[0].bv_val, len );
3043                                         if ( rc > 0 ) {
3044                                                 Debug( LDAP_DEBUG_SYNC,
3045                                                         "dn_callback : new entry is older than ours "
3046                                                         "%s ours %s, new %s\n",
3047                                                         rs->sr_entry->e_name.bv_val,
3048                                                         old->a_vals[0].bv_val,
3049                                                         new->a_vals[0].bv_val );
3050                                                 return LDAP_SUCCESS;
3051                                         } else if ( rc == 0 ) {
3052                                                 Debug( LDAP_DEBUG_SYNC,
3053                                                         "dn_callback : entries have identical CSN "
3054                                                         "%s %s\n",
3055                                                         rs->sr_entry->e_name.bv_val,
3056                                                         old->a_vals[0].bv_val, 0 );
3057                                                 return LDAP_SUCCESS;
3058                                         }
3059                                 }
3060
3061                                 /* We assume that attributes are saved in the same order
3062                                  * in the remote and local databases. So if we walk through
3063                                  * the attributeDescriptions one by one they should match in
3064                                  * lock step. If not, look for an add or delete.
3065                                  */
3066                                 for ( old = rs->sr_entry->e_attrs, new = dni->new_entry->e_attrs;
3067                                                 old && new; )
3068                                 {
3069                                         /* If we've seen this before, use its mod now */
3070                                         if ( new->a_flags & SLAP_ATTR_IXADD ) {
3071                                                 attr_cmp( op, NULL, new, &modtail, &ml );
3072                                                 new = new->a_next;
3073                                                 continue;
3074                                         }
3075                                         /* Skip contextCSN */
3076                                         if ( is_ctx && old->a_desc ==
3077                                                 slap_schema.si_ad_contextCSN ) {
3078                                                 old = old->a_next;
3079                                                 continue;
3080                                         }
3081
3082                                         if ( old->a_desc != new->a_desc ) {
3083                                                 Modifications *mod;
3084                                                 Attribute *tmp;
3085
3086                                                 /* If it's just been re-added later,
3087                                                  * remember that we've seen it.
3088                                                  */
3089                                                 tmp = attr_find( new, old->a_desc );
3090                                                 if ( tmp ) {
3091                                                         tmp->a_flags |= SLAP_ATTR_IXADD;
3092                                                 } else {
3093                                                         /* If it's a new attribute, pull it in.
3094                                                          */
3095                                                         tmp = attr_find( old, new->a_desc );
3096                                                         if ( !tmp ) {
3097                                                                 attr_cmp( op, NULL, new, &modtail, &ml );
3098                                                                 new = new->a_next;
3099                                                                 continue;
3100                                                         }
3101                                                         /* Delete old attr */
3102                                                         mod = ch_malloc( sizeof( Modifications ) );
3103                                                         mod->sml_op = LDAP_MOD_DELETE;
3104                                                         mod->sml_flags = 0;
3105                                                         mod->sml_desc = old->a_desc;
3106                                                         mod->sml_type = mod->sml_desc->ad_cname;
3107                                                         mod->sml_numvals = 0;
3108                                                         mod->sml_values = NULL;
3109                                                         mod->sml_nvalues = NULL;
3110                                                         *modtail = mod;
3111                                                         modtail = &mod->sml_next;
3112                                                 }
3113                                                 old = old->a_next;
3114                                                 continue;
3115                                         }
3116                                         /* kludge - always update modifiersName so that it
3117                                          * stays co-located with the other mod opattrs. But only
3118                                          * if we know there are other valid mods.
3119                                          */
3120                                         if ( old->a_desc == slap_schema.si_ad_modifiersName &&
3121                                                 dni->mods )
3122                                                 attr_cmp( op, NULL, new, &modtail, &ml );
3123                                         else
3124                                                 attr_cmp( op, old, new, &modtail, &ml );
3125                                         new = new->a_next;
3126                                         old = old->a_next;
3127                                 }
3128                                 *modtail = *ml;
3129                                 *ml = NULL;
3130                         }
3131                 }
3132         } else if ( rs->sr_type == REP_RESULT ) {
3133                 if ( rs->sr_err == LDAP_SIZELIMIT_EXCEEDED ) {
3134                         Debug( LDAP_DEBUG_ANY,
3135                                 "dn_callback : consistency error - "
3136                                 "entryUUID is not unique\n", 0, 0, 0 );
3137                 }
3138         }
3139
3140         return LDAP_SUCCESS;
3141 }
3142
3143 static int
3144 nonpresent_callback(
3145         Operation*      op,
3146         SlapReply*      rs )
3147 {
3148         syncinfo_t *si = op->o_callback->sc_private;
3149         Attribute *a;
3150         int count = 0;
3151         struct berval* present_uuid = NULL;
3152         struct nonpresent_entry *np_entry;
3153
3154         if ( rs->sr_type == REP_RESULT ) {
3155                 count = avl_free( si->si_presentlist, ch_free );
3156                 si->si_presentlist = NULL;
3157
3158         } else if ( rs->sr_type == REP_SEARCH ) {
3159                 if ( !( si->si_refreshDelete & NP_DELETE_ONE ) ) {
3160                         a = attr_find( rs->sr_entry->e_attrs, slap_schema.si_ad_entryUUID );
3161
3162                         if ( a ) {
3163                                 present_uuid = avl_find( si->si_presentlist, &a->a_nvals[0],
3164                                         syncuuid_cmp );
3165                         }
3166
3167                         if ( LogTest( LDAP_DEBUG_SYNC ) ) {
3168                                 char buf[sizeof("rid=999 non")];
3169
3170                                 snprintf( buf, sizeof(buf), "%s %s", si->si_ridtxt,
3171                                         present_uuid ? "" : "non" );
3172
3173                                 Debug( LDAP_DEBUG_SYNC, "nonpresent_callback: %spresent UUID %s, dn %s\n",
3174                                         buf, a ? a->a_vals[0].bv_val : "<missing>", rs->sr_entry->e_name.bv_val );
3175                         }
3176
3177                         if ( a == NULL ) return 0;
3178                 }
3179
3180                 if ( present_uuid == NULL ) {
3181                         np_entry = (struct nonpresent_entry *)
3182                                 ch_calloc( 1, sizeof( struct nonpresent_entry ) );
3183                         np_entry->npe_name = ber_dupbv( NULL, &rs->sr_entry->e_name );
3184                         np_entry->npe_nname = ber_dupbv( NULL, &rs->sr_entry->e_nname );
3185                         LDAP_LIST_INSERT_HEAD( &si->si_nonpresentlist, np_entry, npe_link );
3186
3187                 } else {
3188                         avl_delete( &si->si_presentlist,
3189                                 &a->a_nvals[0], syncuuid_cmp );
3190                         ch_free( present_uuid );
3191                 }
3192         }
3193         return LDAP_SUCCESS;
3194 }
3195
3196 static int
3197 null_callback(
3198         Operation*      op,
3199         SlapReply*      rs )
3200 {
3201         if ( rs->sr_err != LDAP_SUCCESS &&
3202                 rs->sr_err != LDAP_REFERRAL &&
3203                 rs->sr_err != LDAP_ALREADY_EXISTS &&
3204                 rs->sr_err != LDAP_NO_SUCH_OBJECT &&
3205                 rs->sr_err != LDAP_NOT_ALLOWED_ON_NONLEAF )
3206         {
3207                 Debug( LDAP_DEBUG_ANY,
3208                         "null_callback : error code 0x%x\n",
3209                         rs->sr_err, 0, 0 );
3210         }
3211         return LDAP_SUCCESS;
3212 }
3213
3214 static struct berval *
3215 slap_uuidstr_from_normalized(
3216         struct berval* uuidstr,
3217         struct berval* normalized,
3218         void *ctx )
3219 {
3220 #if 0
3221         struct berval *new;
3222         unsigned char nibble;
3223         int i, d = 0;
3224
3225         if ( normalized == NULL ) return NULL;
3226         if ( normalized->bv_len != 16 ) return NULL;
3227
3228         if ( uuidstr ) {
3229                 new = uuidstr;
3230         } else {
3231                 new = (struct berval *)slap_sl_malloc( sizeof(struct berval), ctx );
3232                 if ( new == NULL ) {
3233                         return NULL;
3234                 }
3235         }
3236
3237         new->bv_len = 36;
3238
3239         if ( ( new->bv_val = slap_sl_malloc( new->bv_len + 1, ctx ) ) == NULL ) {
3240                 if ( new != uuidstr ) {
3241                         slap_sl_free( new, ctx );
3242                 }
3243                 return NULL;
3244         }
3245
3246         for ( i = 0; i < 16; i++ ) {
3247                 if ( i == 4 || i == 6 || i == 8 || i == 10 ) {
3248                         new->bv_val[(i<<1)+d] = '-';
3249                         d += 1;
3250                 }
3251
3252                 nibble = (normalized->bv_val[i] >> 4) & 0xF;
3253                 if ( nibble < 10 ) {
3254                         new->bv_val[(i<<1)+d] = nibble + '0';
3255                 } else {
3256                         new->bv_val[(i<<1)+d] = nibble - 10 + 'a';
3257                 }
3258
3259                 nibble = (normalized->bv_val[i]) & 0xF;
3260                 if ( nibble < 10 ) {
3261                         new->bv_val[(i<<1)+d+1] = nibble + '0';
3262                 } else {
3263                         new->bv_val[(i<<1)+d+1] = nibble - 10 + 'a';
3264                 }
3265         }
3266
3267         new->bv_val[new->bv_len] = '\0';
3268         return new;
3269 #endif
3270
3271         struct berval   *new;
3272         int             rc = 0;
3273
3274         if ( normalized == NULL ) return NULL;
3275         if ( normalized->bv_len != 16 ) return NULL;
3276
3277         if ( uuidstr ) {
3278                 new = uuidstr;
3279
3280         } else {
3281                 new = (struct berval *)slap_sl_malloc( sizeof(struct berval), ctx );
3282                 if ( new == NULL ) {
3283                         return NULL;
3284                 }
3285         }
3286
3287         new->bv_len = 36;
3288
3289         if ( ( new->bv_val = slap_sl_malloc( new->bv_len + 1, ctx ) ) == NULL ) {
3290                 rc = 1;
3291                 goto done;
3292         }
3293
3294         rc = lutil_uuidstr_from_normalized( normalized->bv_val,
3295                 normalized->bv_len, new->bv_val, new->bv_len + 1 );
3296
3297 done:;
3298         if ( rc == -1 ) {
3299                 if ( new != NULL ) {
3300                         if ( new->bv_val != NULL ) {
3301                                 slap_sl_free( new->bv_val, ctx );
3302                         }
3303
3304                         if ( new != uuidstr ) {
3305                                 slap_sl_free( new, ctx );
3306                         }
3307                 }
3308                 new = NULL;
3309
3310         } else {
3311                 new->bv_len = rc;
3312         }
3313
3314         return new;
3315 }
3316
3317 static int
3318 syncuuid_cmp( const void* v_uuid1, const void* v_uuid2 )
3319 {
3320         const struct berval *uuid1 = v_uuid1;
3321         const struct berval *uuid2 = v_uuid2;
3322         int rc = uuid1->bv_len - uuid2->bv_len;
3323         if ( rc ) return rc;
3324         return ( memcmp( uuid1->bv_val, uuid2->bv_val, uuid1->bv_len ) );
3325 }
3326
3327 void
3328 syncinfo_free( syncinfo_t *sie, int free_all )
3329 {
3330         syncinfo_t *si_next;
3331
3332         if ( free_all && sie->si_cookieState ) {
3333                 ch_free( sie->si_cookieState->cs_sids );
3334                 ber_bvarray_free( sie->si_cookieState->cs_vals );
3335                 ldap_pvt_thread_mutex_destroy( &sie->si_cookieState->cs_mutex );
3336                 ch_free( sie->si_cookieState );
3337         }
3338         do {
3339                 si_next = sie->si_next;
3340
3341                 if ( sie->si_ld ) {
3342                         if ( sie->si_conn ) {
3343                                 connection_client_stop( sie->si_conn );
3344                                 sie->si_conn = NULL;
3345                         }
3346                         ldap_unbind_ext( sie->si_ld, NULL, NULL );
3347                 }
3348         
3349                 /* re-fetch it, in case it was already removed */
3350                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
3351                 sie->si_re = ldap_pvt_runqueue_find( &slapd_rq, do_syncrepl, sie );
3352                 if ( sie->si_re ) {
3353                         if ( ldap_pvt_runqueue_isrunning( &slapd_rq, sie->si_re ) )
3354                                 ldap_pvt_runqueue_stoptask( &slapd_rq, sie->si_re );
3355                         ldap_pvt_runqueue_remove( &slapd_rq, sie->si_re );
3356                 }
3357         
3358                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
3359                 ldap_pvt_thread_mutex_destroy( &sie->si_mutex );
3360         
3361                 bindconf_free( &sie->si_bindconf );
3362         
3363                 if ( sie->si_filterstr.bv_val ) {
3364                         ch_free( sie->si_filterstr.bv_val );
3365                 }
3366                 if ( sie->si_logfilterstr.bv_val ) {
3367                         ch_free( sie->si_logfilterstr.bv_val );
3368                 }
3369                 if ( sie->si_base.bv_val ) {
3370                         ch_free( sie->si_base.bv_val );
3371                 }
3372                 if ( sie->si_logbase.bv_val ) {
3373                         ch_free( sie->si_logbase.bv_val );
3374                 }
3375                 if ( sie->si_attrs ) {
3376                         int i = 0;
3377                         while ( sie->si_attrs[i] != NULL ) {
3378                                 ch_free( sie->si_attrs[i] );
3379                                 i++;
3380                         }
3381                         ch_free( sie->si_attrs );
3382                 }
3383                 if ( sie->si_exattrs ) {
3384                         int i = 0;
3385                         while ( sie->si_exattrs[i] != NULL ) {
3386                                 ch_free( sie->si_exattrs[i] );
3387                                 i++;
3388                         }
3389                         ch_free( sie->si_exattrs );
3390                 }
3391                 if ( sie->si_anlist ) {
3392                         int i = 0;
3393                         while ( sie->si_anlist[i].an_name.bv_val != NULL ) {
3394                                 ch_free( sie->si_anlist[i].an_name.bv_val );
3395                                 i++;
3396                         }
3397                         ch_free( sie->si_anlist );
3398                 }
3399                 if ( sie->si_exanlist ) {
3400                         int i = 0;
3401                         while ( sie->si_exanlist[i].an_name.bv_val != NULL ) {
3402                                 ch_free( sie->si_exanlist[i].an_name.bv_val );
3403                                 i++;
3404                         }
3405                         ch_free( sie->si_exanlist );
3406                 }
3407                 if ( sie->si_retryinterval ) {
3408                         ch_free( sie->si_retryinterval );
3409                 }
3410                 if ( sie->si_retrynum ) {
3411                         ch_free( sie->si_retrynum );
3412                 }
3413                 if ( sie->si_retrynum_init ) {
3414                         ch_free( sie->si_retrynum_init );
3415                 }
3416                 slap_sync_cookie_free( &sie->si_syncCookie, 0 );
3417                 if ( sie->si_presentlist ) {
3418                     avl_free( sie->si_presentlist, ch_free );
3419                 }
3420                 while ( !LDAP_LIST_EMPTY( &sie->si_nonpresentlist ) ) {
3421                         struct nonpresent_entry* npe;
3422                         npe = LDAP_LIST_FIRST( &sie->si_nonpresentlist );
3423                         LDAP_LIST_REMOVE( npe, npe_link );
3424                         if ( npe->npe_name ) {
3425                                 if ( npe->npe_name->bv_val ) {
3426                                         ch_free( npe->npe_name->bv_val );
3427                                 }
3428                                 ch_free( npe->npe_name );
3429                         }
3430                         if ( npe->npe_nname ) {
3431                                 if ( npe->npe_nname->bv_val ) {
3432                                         ch_free( npe->npe_nname->bv_val );
3433                                 }
3434                                 ch_free( npe->npe_nname );
3435                         }
3436                         ch_free( npe );
3437                 }
3438                 ch_free( sie );
3439                 sie = si_next;
3440         } while ( free_all && si_next );
3441 }
3442
3443
3444
3445 /* NOTE: used & documented in slapd.conf(5) */
3446 #define IDSTR                   "rid"
3447 #define PROVIDERSTR             "provider"
3448 #define SCHEMASTR               "schemachecking"
3449 #define FILTERSTR               "filter"
3450 #define SEARCHBASESTR           "searchbase"
3451 #define SCOPESTR                "scope"
3452 #define ATTRSONLYSTR            "attrsonly"
3453 #define ATTRSSTR                "attrs"
3454 #define TYPESTR                 "type"
3455 #define INTERVALSTR             "interval"
3456 #define RETRYSTR                "retry"
3457 #define SLIMITSTR               "sizelimit"
3458 #define TLIMITSTR               "timelimit"
3459 #define SYNCDATASTR             "syncdata"
3460 #define LOGBASESTR              "logbase"
3461 #define LOGFILTERSTR    "logfilter"
3462
3463 /* FIXME: undocumented */
3464 #define EXATTRSSTR              "exattrs"
3465 #define MANAGEDSAITSTR          "manageDSAit"
3466
3467 /* mandatory */
3468 enum {
3469         GOT_RID                 = 0x00000001U,
3470         GOT_PROVIDER            = 0x00000002U,
3471         GOT_SCHEMACHECKING      = 0x00000004U,
3472         GOT_FILTER              = 0x00000008U,
3473         GOT_SEARCHBASE          = 0x00000010U,
3474         GOT_SCOPE               = 0x00000020U,
3475         GOT_ATTRSONLY           = 0x00000040U,
3476         GOT_ATTRS               = 0x00000080U,
3477         GOT_TYPE                = 0x00000100U,
3478         GOT_INTERVAL            = 0x00000200U,
3479         GOT_RETRY               = 0x00000400U,
3480         GOT_SLIMIT              = 0x00000800U,
3481         GOT_TLIMIT              = 0x00001000U,
3482         GOT_SYNCDATA            = 0x00002000U,
3483         GOT_LOGBASE             = 0x00004000U,
3484         GOT_LOGFILTER           = 0x00008000U,
3485         GOT_EXATTRS             = 0x00010000U,
3486         GOT_MANAGEDSAIT         = 0x00020000U,
3487         GOT_BINDCONF            = 0x00040000U,
3488
3489 /* check */
3490         GOT_REQUIRED            = (GOT_RID|GOT_PROVIDER|GOT_SEARCHBASE)
3491 };
3492
3493 static struct {
3494         struct berval key;
3495         int val;
3496 } scopes[] = {
3497         { BER_BVC("base"), LDAP_SCOPE_BASE },
3498         { BER_BVC("one"), LDAP_SCOPE_ONELEVEL },
3499         { BER_BVC("onelevel"), LDAP_SCOPE_ONELEVEL },   /* OpenLDAP extension */
3500         { BER_BVC("children"), LDAP_SCOPE_SUBORDINATE },
3501         { BER_BVC("subord"), LDAP_SCOPE_SUBORDINATE },
3502         { BER_BVC("subordinate"), LDAP_SCOPE_SUBORDINATE },
3503         { BER_BVC("sub"), LDAP_SCOPE_SUBTREE },
3504         { BER_BVC("subtree"), LDAP_SCOPE_SUBTREE },     /* OpenLDAP extension */
3505         { BER_BVNULL, 0 }
3506 };
3507
3508 static slap_verbmasks datamodes[] = {
3509         { BER_BVC("default"), SYNCDATA_DEFAULT },
3510         { BER_BVC("accesslog"), SYNCDATA_ACCESSLOG },
3511         { BER_BVC("changelog"), SYNCDATA_CHANGELOG },
3512         { BER_BVNULL, 0 }
3513 };
3514
3515 static int
3516 parse_syncrepl_retry(
3517         ConfigArgs      *c,
3518         char            *arg,
3519         syncinfo_t      *si )
3520 {
3521         char **retry_list;
3522         int j, k, n;
3523         int use_default = 0;
3524
3525         char *val = arg + STRLENOF( RETRYSTR "=" );
3526         if ( strcasecmp( val, "undefined" ) == 0 ) {
3527                 val = "3600 +";
3528                 use_default = 1;
3529         }
3530
3531         retry_list = (char **) ch_calloc( 1, sizeof( char * ) );
3532         retry_list[0] = NULL;
3533
3534         slap_str2clist( &retry_list, val, " ,\t" );
3535
3536         for ( k = 0; retry_list && retry_list[k]; k++ ) ;
3537         n = k / 2;
3538         if ( k % 2 ) {
3539                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3540                         "Error: incomplete syncrepl retry list" );
3541                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3542                 for ( k = 0; retry_list && retry_list[k]; k++ ) {
3543                         ch_free( retry_list[k] );
3544                 }
3545                 ch_free( retry_list );
3546                 return 1;
3547         }
3548         si->si_retryinterval = (time_t *) ch_calloc( n + 1, sizeof( time_t ) );
3549         si->si_retrynum = (int *) ch_calloc( n + 1, sizeof( int ) );
3550         si->si_retrynum_init = (int *) ch_calloc( n + 1, sizeof( int ) );
3551         for ( j = 0; j < n; j++ ) {
3552                 unsigned long   t;
3553                 if ( lutil_atoul( &t, retry_list[j*2] ) != 0 ) {
3554                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3555                                 "Error: invalid retry interval \"%s\" (#%d)",
3556                                 retry_list[j*2], j );
3557                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3558                         /* do some cleanup */
3559                         return 1;
3560                 }
3561                 si->si_retryinterval[j] = (time_t)t;
3562                 if ( *retry_list[j*2+1] == '+' ) {
3563                         si->si_retrynum_init[j] = RETRYNUM_FOREVER;
3564                         si->si_retrynum[j] = RETRYNUM_FOREVER;
3565                         j++;
3566                         break;
3567                 } else {
3568                         if ( lutil_atoi( &si->si_retrynum_init[j], retry_list[j*2+1] ) != 0
3569                                         || si->si_retrynum_init[j] <= 0 )
3570                         {
3571                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3572                                         "Error: invalid initial retry number \"%s\" (#%d)",
3573                                         retry_list[j*2+1], j );
3574                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3575                                 /* do some cleanup */
3576                                 return 1;
3577                         }
3578                         if ( lutil_atoi( &si->si_retrynum[j], retry_list[j*2+1] ) != 0
3579                                         || si->si_retrynum[j] <= 0 )
3580                         {
3581                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3582                                         "Error: invalid retry number \"%s\" (#%d)",
3583                                         retry_list[j*2+1], j );
3584                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3585                                 /* do some cleanup */
3586                                 return 1;
3587                         }
3588                 }
3589         }
3590         si->si_retrynum_init[j] = RETRYNUM_TAIL;
3591         si->si_retrynum[j] = RETRYNUM_TAIL;
3592         si->si_retryinterval[j] = 0;
3593         
3594         for ( k = 0; retry_list && retry_list[k]; k++ ) {
3595                 ch_free( retry_list[k] );
3596         }
3597         ch_free( retry_list );
3598         if ( !use_default ) {
3599                 si->si_got |= GOT_RETRY;
3600         }
3601
3602         return 0;
3603 }
3604
3605 static int
3606 parse_syncrepl_line(
3607         ConfigArgs      *c,
3608         syncinfo_t      *si )
3609 {
3610         int     i;
3611         char    *val;
3612
3613         for ( i = 1; i < c->argc; i++ ) {
3614                 if ( !strncasecmp( c->argv[ i ], IDSTR "=",
3615                                         STRLENOF( IDSTR "=" ) ) )
3616                 {
3617                         int tmp;
3618                         /* '\0' string terminator accounts for '=' */
3619                         val = c->argv[ i ] + STRLENOF( IDSTR "=" );
3620                         if ( lutil_atoi( &tmp, val ) != 0 ) {
3621                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3622                                         "Error: parse_syncrepl_line: "
3623                                         "unable to parse syncrepl id \"%s\"", val );
3624                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3625                                 return -1;
3626                         }
3627                         if ( tmp > SLAP_SYNC_SID_MAX || tmp < 0 ) {
3628                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3629                                         "Error: parse_syncrepl_line: "
3630                                         "syncrepl id %d is out of range [0..4095]", tmp );
3631                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3632                                 return -1;
3633                         }
3634                         si->si_rid = tmp;
3635                         sprintf( si->si_ridtxt, IDSTR "=%03d", si->si_rid );
3636                         si->si_got |= GOT_RID;
3637                 } else if ( !strncasecmp( c->argv[ i ], PROVIDERSTR "=",
3638                                         STRLENOF( PROVIDERSTR "=" ) ) )
3639                 {
3640                         val = c->argv[ i ] + STRLENOF( PROVIDERSTR "=" );
3641                         ber_str2bv( val, 0, 1, &si->si_bindconf.sb_uri );
3642                         si->si_got |= GOT_PROVIDER;
3643                 } else if ( !strncasecmp( c->argv[ i ], SCHEMASTR "=",
3644                                         STRLENOF( SCHEMASTR "=" ) ) )
3645                 {
3646                         val = c->argv[ i ] + STRLENOF( SCHEMASTR "=" );
3647                         if ( !strncasecmp( val, "on", STRLENOF( "on" ) ) ) {
3648                                 si->si_schemachecking = 1;
3649                         } else if ( !strncasecmp( val, "off", STRLENOF( "off" ) ) ) {
3650                                 si->si_schemachecking = 0;
3651                         } else {
3652                                 si->si_schemachecking = 1;
3653                         }
3654                         si->si_got |= GOT_SCHEMACHECKING;
3655                 } else if ( !strncasecmp( c->argv[ i ], FILTERSTR "=",
3656                                         STRLENOF( FILTERSTR "=" ) ) )
3657                 {
3658                         val = c->argv[ i ] + STRLENOF( FILTERSTR "=" );
3659                         if ( si->si_filterstr.bv_val )
3660                                 ch_free( si->si_filterstr.bv_val );
3661                         ber_str2bv( val, 0, 1, &si->si_filterstr );
3662                         si->si_got |= GOT_FILTER;
3663                 } else if ( !strncasecmp( c->argv[ i ], LOGFILTERSTR "=",
3664                                         STRLENOF( LOGFILTERSTR "=" ) ) )
3665                 {
3666                         val = c->argv[ i ] + STRLENOF( LOGFILTERSTR "=" );
3667                         if ( si->si_logfilterstr.bv_val )
3668                                 ch_free( si->si_logfilterstr.bv_val );
3669                         ber_str2bv( val, 0, 1, &si->si_logfilterstr );
3670                         si->si_got |= GOT_LOGFILTER;
3671                 } else if ( !strncasecmp( c->argv[ i ], SEARCHBASESTR "=",
3672                                         STRLENOF( SEARCHBASESTR "=" ) ) )
3673                 {
3674                         struct berval   bv;
3675                         int             rc;
3676
3677                         val = c->argv[ i ] + STRLENOF( SEARCHBASESTR "=" );
3678                         if ( si->si_base.bv_val ) {
3679                                 ch_free( si->si_base.bv_val );
3680                         }
3681                         ber_str2bv( val, 0, 0, &bv );
3682                         rc = dnNormalize( 0, NULL, NULL, &bv, &si->si_base, NULL );
3683                         if ( rc != LDAP_SUCCESS ) {
3684                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3685                                         "Invalid base DN \"%s\": %d (%s)",
3686                                         val, rc, ldap_err2string( rc ) );
3687                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3688                                 return -1;
3689                         }
3690                         if ( !be_issubordinate( c->be, &si->si_base ) ) {
3691                                 ch_free( si->si_base.bv_val );
3692                                 BER_BVZERO( &si->si_base );
3693                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3694                                         "Base DN \"%s\" is not within the database naming context",
3695                                         val );
3696                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3697                                 return -1;
3698                         }
3699                         si->si_got |= GOT_SEARCHBASE;
3700                 } else if ( !strncasecmp( c->argv[ i ], LOGBASESTR "=",
3701                                         STRLENOF( LOGBASESTR "=" ) ) )
3702                 {
3703                         struct berval   bv;
3704                         int             rc;
3705
3706                         val = c->argv[ i ] + STRLENOF( LOGBASESTR "=" );
3707                         if ( si->si_logbase.bv_val ) {
3708                                 ch_free( si->si_logbase.bv_val );
3709                         }
3710                         ber_str2bv( val, 0, 0, &bv );
3711                         rc = dnNormalize( 0, NULL, NULL, &bv, &si->si_logbase, NULL );
3712                         if ( rc != LDAP_SUCCESS ) {
3713                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3714                                         "Invalid logbase DN \"%s\": %d (%s)",
3715                                         val, rc, ldap_err2string( rc ) );
3716                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3717                                 return -1;
3718                         }
3719                         si->si_got |= GOT_LOGBASE;
3720                 } else if ( !strncasecmp( c->argv[ i ], SCOPESTR "=",
3721                                         STRLENOF( SCOPESTR "=" ) ) )
3722                 {
3723                         int j;
3724                         val = c->argv[ i ] + STRLENOF( SCOPESTR "=" );
3725                         for ( j = 0; !BER_BVISNULL(&scopes[j].key); j++ ) {
3726                                 if (!strcasecmp( val, scopes[j].key.bv_val ) ) {
3727                                         si->si_scope = scopes[j].val;
3728                                         break;
3729                                 }
3730                         }
3731                         if ( BER_BVISNULL(&scopes[j].key) ) {
3732                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3733                                         "Error: parse_syncrepl_line: "
3734                                         "unknown scope \"%s\"", val);
3735                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3736                                 return -1;
3737                         }
3738                         si->si_got |= GOT_SCOPE;
3739                 } else if ( !strncasecmp( c->argv[ i ], ATTRSONLYSTR,
3740                                         STRLENOF( ATTRSONLYSTR ) ) )
3741                 {
3742                         si->si_attrsonly = 1;
3743                         si->si_got |= GOT_ATTRSONLY;
3744                 } else if ( !strncasecmp( c->argv[ i ], ATTRSSTR "=",
3745                                         STRLENOF( ATTRSSTR "=" ) ) )
3746                 {
3747                         val = c->argv[ i ] + STRLENOF( ATTRSSTR "=" );
3748                         if ( !strncasecmp( val, ":include:", STRLENOF(":include:") ) ) {
3749                                 char *attr_fname;
3750                                 attr_fname = ch_strdup( val + STRLENOF(":include:") );
3751                                 si->si_anlist = file2anlist( si->si_anlist, attr_fname, " ,\t" );
3752                                 if ( si->si_anlist == NULL ) {
3753                                         ch_free( attr_fname );
3754                                         return -1;
3755                                 }
3756                                 si->si_anfile = attr_fname;
3757                         } else {
3758                                 char *str, *s, *next;
3759                                 const char *delimstr = " ,\t";
3760                                 str = ch_strdup( val );
3761                                 for ( s = ldap_pvt_strtok( str, delimstr, &next );
3762                                                 s != NULL;
3763                                                 s = ldap_pvt_strtok( NULL, delimstr, &next ) )
3764                                 {
3765                                         if ( strlen(s) == 1 && *s == '*' ) {
3766                                                 si->si_allattrs = 1;
3767                                                 val[ s - str ] = delimstr[0];
3768                                         }
3769                                         if ( strlen(s) == 1 && *s == '+' ) {
3770                                                 si->si_allopattrs = 1;
3771                                                 val [ s - str ] = delimstr[0];
3772                                         }
3773                                 }
3774                                 ch_free( str );
3775                                 si->si_anlist = str2anlist( si->si_anlist, val, " ,\t" );
3776                                 if ( si->si_anlist == NULL ) {
3777                                         return -1;
3778                                 }
3779                         }
3780                         si->si_got |= GOT_ATTRS;
3781                 } else if ( !strncasecmp( c->argv[ i ], EXATTRSSTR "=",
3782                                         STRLENOF( EXATTRSSTR "=" ) ) )
3783                 {
3784                         val = c->argv[ i ] + STRLENOF( EXATTRSSTR "=" );
3785                         if ( !strncasecmp( val, ":include:", STRLENOF(":include:") ) ) {
3786                                 char *attr_fname;
3787                                 attr_fname = ch_strdup( val + STRLENOF(":include:") );
3788                                 si->si_exanlist = file2anlist(
3789                                         si->si_exanlist, attr_fname, " ,\t" );
3790                                 if ( si->si_exanlist == NULL ) {
3791                                         ch_free( attr_fname );
3792                                         return -1;
3793                                 }
3794                                 ch_free( attr_fname );
3795                         } else {
3796                                 si->si_exanlist = str2anlist( si->si_exanlist, val, " ,\t" );
3797                                 if ( si->si_exanlist == NULL ) {
3798                                         return -1;
3799                                 }
3800                         }
3801                         si->si_got |= GOT_EXATTRS;
3802                 } else if ( !strncasecmp( c->argv[ i ], TYPESTR "=",
3803                                         STRLENOF( TYPESTR "=" ) ) )
3804                 {
3805                         val = c->argv[ i ] + STRLENOF( TYPESTR "=" );
3806                         if ( !strncasecmp( val, "refreshOnly",
3807                                                 STRLENOF("refreshOnly") ) )
3808                         {
3809                                 si->si_type = si->si_ctype = LDAP_SYNC_REFRESH_ONLY;
3810                         } else if ( !strncasecmp( val, "refreshAndPersist",
3811                                                 STRLENOF("refreshAndPersist") ) )
3812                         {
3813                                 si->si_type = si->si_ctype = LDAP_SYNC_REFRESH_AND_PERSIST;
3814                                 si->si_interval = 60;
3815                         } else {
3816                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3817                                         "Error: parse_syncrepl_line: "
3818                                         "unknown sync type \"%s\"", val);
3819                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3820                                 return -1;
3821                         }
3822                         si->si_got |= GOT_TYPE;
3823                 } else if ( !strncasecmp( c->argv[ i ], INTERVALSTR "=",
3824                                         STRLENOF( INTERVALSTR "=" ) ) )
3825                 {
3826                         val = c->argv[ i ] + STRLENOF( INTERVALSTR "=" );
3827                         if ( si->si_type == LDAP_SYNC_REFRESH_AND_PERSIST ) {
3828                                 si->si_interval = 0;
3829                         } else if ( strchr( val, ':' ) != NULL ) {
3830                                 char *next, *ptr = val;
3831                                 int dd, hh, mm, ss;
3832
3833                                 dd = strtol( ptr, &next, 10 );
3834                                 if ( next == ptr || next[0] != ':' || dd < 0 ) {
3835                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3836                                                 "Error: parse_syncrepl_line: "
3837                                                 "invalid interval \"%s\", unable to parse days", val );
3838                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3839                                         return -1;
3840                                 }
3841                                 ptr = next + 1;
3842                                 hh = strtol( ptr, &next, 10 );
3843                                 if ( next == ptr || next[0] != ':' || hh < 0 || hh > 24 ) {
3844                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3845                                                 "Error: parse_syncrepl_line: "
3846                                                 "invalid interval \"%s\", unable to parse hours", val );
3847                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3848                                         return -1;
3849                                 }
3850                                 ptr = next + 1;
3851                                 mm = strtol( ptr, &next, 10 );
3852                                 if ( next == ptr || next[0] != ':' || mm < 0 || mm > 60 ) {
3853                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3854                                                 "Error: parse_syncrepl_line: "
3855                                                 "invalid interval \"%s\", unable to parse minutes", val );
3856                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3857                                         return -1;
3858                                 }
3859                                 ptr = next + 1;
3860                                 ss = strtol( ptr, &next, 10 );
3861                                 if ( next == ptr || next[0] != '\0' || ss < 0 || ss > 60 ) {
3862                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3863                                                 "Error: parse_syncrepl_line: "
3864                                                 "invalid interval \"%s\", unable to parse seconds", val );
3865                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3866                                         return -1;
3867                                 }
3868                                 si->si_interval = (( dd * 24 + hh ) * 60 + mm ) * 60 + ss;
3869                         } else {
3870                                 unsigned long   t;
3871
3872                                 if ( lutil_parse_time( val, &t ) != 0 ) {
3873                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3874                                                 "Error: parse_syncrepl_line: "
3875                                                 "invalid interval \"%s\"", val );
3876                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3877                                         return -1;
3878                                 }
3879                                 si->si_interval = (time_t)t;
3880                         }
3881                         if ( si->si_interval < 0 ) {
3882                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3883                                         "Error: parse_syncrepl_line: "
3884                                         "invalid interval \"%ld\"",
3885                                         (long) si->si_interval);
3886                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3887                                 return -1;
3888                         }
3889                         si->si_got |= GOT_INTERVAL;
3890                 } else if ( !strncasecmp( c->argv[ i ], RETRYSTR "=",
3891                                         STRLENOF( RETRYSTR "=" ) ) )
3892                 {
3893                         if ( parse_syncrepl_retry( c, c->argv[ i ], si ) ) {
3894                                 return 1;
3895                         }
3896                 } else if ( !strncasecmp( c->argv[ i ], MANAGEDSAITSTR "=",
3897                                         STRLENOF( MANAGEDSAITSTR "=" ) ) )
3898                 {
3899                         val = c->argv[ i ] + STRLENOF( MANAGEDSAITSTR "=" );
3900                         if ( lutil_atoi( &si->si_manageDSAit, val ) != 0
3901                                 || si->si_manageDSAit < 0 || si->si_manageDSAit > 1 )
3902                         {
3903                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3904                                         "invalid manageDSAit value \"%s\".\n",
3905                                         val );
3906                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3907                                 return 1;
3908                         }
3909                         si->si_got |= GOT_MANAGEDSAIT;
3910                 } else if ( !strncasecmp( c->argv[ i ], SLIMITSTR "=",
3911                                         STRLENOF( SLIMITSTR "=") ) )
3912                 {
3913                         val = c->argv[ i ] + STRLENOF( SLIMITSTR "=" );
3914                         if ( strcasecmp( val, "unlimited" ) == 0 ) {
3915                                 si->si_slimit = 0;
3916
3917                         } else if ( lutil_atoi( &si->si_slimit, val ) != 0 || si->si_slimit < 0 ) {
3918                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3919                                         "invalid size limit value \"%s\".\n",
3920                                         val );
3921                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3922                                 return 1;
3923                         }
3924                         si->si_got |= GOT_SLIMIT;
3925                 } else if ( !strncasecmp( c->argv[ i ], TLIMITSTR "=",
3926                                         STRLENOF( TLIMITSTR "=" ) ) )
3927                 {
3928                         val = c->argv[ i ] + STRLENOF( TLIMITSTR "=" );
3929                         if ( strcasecmp( val, "unlimited" ) == 0 ) {
3930                                 si->si_tlimit = 0;
3931
3932                         } else if ( lutil_atoi( &si->si_tlimit, val ) != 0 || si->si_tlimit < 0 ) {
3933                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3934                                         "invalid time limit value \"%s\".\n",
3935                                         val );
3936                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3937                                 return 1;
3938                         }
3939                         si->si_got |= GOT_TLIMIT;
3940                 } else if ( !strncasecmp( c->argv[ i ], SYNCDATASTR "=",
3941                                         STRLENOF( SYNCDATASTR "=" ) ) )
3942                 {
3943                         val = c->argv[ i ] + STRLENOF( SYNCDATASTR "=" );
3944                         si->si_syncdata = verb_to_mask( val, datamodes );
3945                         si->si_got |= GOT_SYNCDATA;
3946                 } else if ( bindconf_parse( c->argv[i], &si->si_bindconf ) ) {
3947                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
3948                                 "Error: parse_syncrepl_line: "
3949                                 "unable to parse \"%s\"\n", c->argv[ i ] );
3950                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3951                         return -1;
3952                 }
3953                 si->si_got |= GOT_BINDCONF;
3954         }
3955
3956         if ( ( si->si_got & GOT_REQUIRED ) != GOT_REQUIRED ) {
3957                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
3958                         "Error: Malformed \"syncrepl\" line in slapd config file, missing%s%s%s",
3959                         si->si_got & GOT_RID ? "" : " "IDSTR,
3960                         si->si_got & GOT_PROVIDER ? "" : " "PROVIDERSTR,
3961                         si->si_got & GOT_SEARCHBASE ? "" : " "SEARCHBASESTR );
3962                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
3963                 return -1;
3964         }
3965
3966         if ( !( si->si_got & GOT_RETRY ) ) {
3967                 Debug( LDAP_DEBUG_ANY, "syncrepl %s " SEARCHBASESTR "=\"%s\": no retry defined, using default\n", 
3968                         si->si_ridtxt, c->be->be_suffix ? c->be->be_suffix[ 0 ].bv_val : "(null)", 0 );
3969                 if ( si->si_retryinterval == NULL ) {
3970                         if ( parse_syncrepl_retry( c, "retry=undefined", si ) ) {
3971                                 return 1;
3972                         }
3973                 }
3974         }
3975
3976         return 0;
3977 }
3978
3979 static int
3980 add_syncrepl(
3981         ConfigArgs *c )
3982 {
3983         syncinfo_t *si;
3984         int     rc = 0;
3985
3986         if ( !( c->be->be_search && c->be->be_add && c->be->be_modify && c->be->be_delete ) ) {
3987                 snprintf( c->cr_msg, sizeof(c->cr_msg), "database %s does not support "
3988                         "operations required for syncrepl", c->be->be_type );
3989                 Debug( LDAP_DEBUG_ANY, "%s: %s\n", c->log, c->cr_msg, 0 );
3990                 return 1;
3991         }
3992         if ( BER_BVISEMPTY( &c->be->be_rootdn ) ) {
3993                 strcpy( c->cr_msg, "rootDN must be defined before syncrepl may be used" );
3994                 Debug( LDAP_DEBUG_ANY, "%s: %s\n", c->log, c->cr_msg, 0 );
3995                 return 1;
3996         }
3997         si = (syncinfo_t *) ch_calloc( 1, sizeof( syncinfo_t ) );
3998
3999         if ( si == NULL ) {
4000                 Debug( LDAP_DEBUG_ANY, "out of memory in add_syncrepl\n", 0, 0, 0 );
4001                 return 1;
4002         }
4003
4004         si->si_bindconf.sb_tls = SB_TLS_OFF;
4005         si->si_bindconf.sb_method = LDAP_AUTH_SIMPLE;
4006         si->si_schemachecking = 0;
4007         ber_str2bv( "(objectclass=*)", STRLENOF("(objectclass=*)"), 1,
4008                 &si->si_filterstr );
4009         si->si_base.bv_val = NULL;
4010         si->si_scope = LDAP_SCOPE_SUBTREE;
4011         si->si_attrsonly = 0;
4012         si->si_anlist = (AttributeName *) ch_calloc( 1, sizeof( AttributeName ) );
4013         si->si_exanlist = (AttributeName *) ch_calloc( 1, sizeof( AttributeName ) );
4014         si->si_attrs = NULL;
4015         si->si_allattrs = 0;
4016         si->si_allopattrs = 0;
4017         si->si_exattrs = NULL;
4018         si->si_type = si->si_ctype = LDAP_SYNC_REFRESH_ONLY;
4019         si->si_interval = 86400;
4020         si->si_retryinterval = NULL;
4021         si->si_retrynum_init = NULL;
4022         si->si_retrynum = NULL;
4023         si->si_manageDSAit = 0;
4024         si->si_tlimit = 0;
4025         si->si_slimit = 0;
4026
4027         si->si_presentlist = NULL;
4028         LDAP_LIST_INIT( &si->si_nonpresentlist );
4029         ldap_pvt_thread_mutex_init( &si->si_mutex );
4030
4031         rc = parse_syncrepl_line( c, si );
4032
4033         if ( rc == 0 ) {
4034                 /* Must be LDAPv3 because we need controls */
4035                 switch ( si->si_bindconf.sb_version ) {
4036                 case 0:
4037                         /* not explicitly set */
4038                         si->si_bindconf.sb_version = LDAP_VERSION3;
4039                         break;
4040                 case 3:
4041                         /* explicitly set */
4042                         break;
4043                 default:
4044                         Debug( LDAP_DEBUG_ANY,
4045                                 "version %d incompatible with syncrepl\n",
4046                                 si->si_bindconf.sb_version, 0, 0 );
4047                         syncinfo_free( si, 0 ); 
4048                         return 1;
4049                 }
4050
4051                 si->si_be = c->be;
4052                 if ( slapMode & SLAP_SERVER_MODE ) {
4053                         Listener **l = slapd_get_listeners();
4054                         int isMe = 0;
4055
4056                         /* check if URL points to current server. If so, ignore
4057                          * this configuration. We require an exact match. Just
4058                          * in case they really want to do this, they can vary
4059                          * the case of the URL to allow it.
4060                          */
4061                         if ( l && !SLAP_DBHIDDEN( c->be ) ) {
4062                                 int i;
4063                                 for ( i=0; l[i]; i++ ) {
4064                                         if ( bvmatch( &l[i]->sl_url, &si->si_bindconf.sb_uri ) ) {
4065                                                 isMe = 1;
4066                                                 break;
4067                                         }
4068                                 }
4069                         }
4070
4071                         if ( !isMe ) {
4072                                 init_syncrepl( si );
4073                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
4074                                 si->si_re = ldap_pvt_runqueue_insert( &slapd_rq,
4075                                         si->si_interval, do_syncrepl, si, "do_syncrepl",
4076                                         si->si_ridtxt );
4077                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
4078                                 if ( si->si_re )
4079                                         rc = config_sync_shadow( c ) ? -1 : 0;
4080                                 else
4081                                         rc = -1;
4082                         }
4083                 } else {
4084                         /* mirrormode still needs to see this flag in tool mode */
4085                         rc = config_sync_shadow( c ) ? -1 : 0;
4086                 }
4087         }
4088
4089 #ifdef HAVE_TLS
4090         /* Use main slapd defaults */
4091         bindconf_tls_defaults( &si->si_bindconf );
4092 #endif
4093         if ( rc < 0 ) {
4094                 Debug( LDAP_DEBUG_ANY, "failed to add syncinfo\n", 0, 0, 0 );
4095                 syncinfo_free( si, 0 ); 
4096                 return 1;
4097         } else {
4098                 Debug( LDAP_DEBUG_CONFIG,
4099                         "Config: ** successfully added syncrepl \"%s\"\n",
4100                         BER_BVISNULL( &si->si_bindconf.sb_uri ) ?
4101                         "(null)" : si->si_bindconf.sb_uri.bv_val, 0, 0 );
4102                 if ( c->be->be_syncinfo ) {
4103                         si->si_cookieState = c->be->be_syncinfo->si_cookieState;
4104                 } else {
4105                         si->si_cookieState = ch_calloc( 1, sizeof( cookie_state ));
4106                         ldap_pvt_thread_mutex_init( &si->si_cookieState->cs_mutex );
4107                 }
4108                 si->si_next = c->be->be_syncinfo;
4109                 c->be->be_syncinfo = si;
4110                 return 0;
4111         }
4112 }
4113
4114 static void
4115 syncrepl_unparse( syncinfo_t *si, struct berval *bv )
4116 {
4117         struct berval bc, uri;
4118         char buf[BUFSIZ*2], *ptr;
4119         ber_len_t len;
4120         int i;
4121 #       define WHATSLEFT        ((ber_len_t) (&buf[sizeof( buf )] - ptr))
4122
4123         BER_BVZERO( bv );
4124
4125         /* temporarily inhibit bindconf from printing URI */
4126         uri = si->si_bindconf.sb_uri;
4127         BER_BVZERO( &si->si_bindconf.sb_uri );
4128         si->si_bindconf.sb_version = 0;
4129         bindconf_unparse( &si->si_bindconf, &bc );
4130         si->si_bindconf.sb_uri = uri;
4131         si->si_bindconf.sb_version = LDAP_VERSION3;
4132
4133         ptr = buf;
4134         assert( si->si_rid >= 0 && si->si_rid <= SLAP_SYNC_SID_MAX );
4135         len = snprintf( ptr, WHATSLEFT, IDSTR "=%03d " PROVIDERSTR "=%s",
4136                 si->si_rid, si->si_bindconf.sb_uri.bv_val );
4137         if ( len >= sizeof( buf ) ) return;
4138         ptr += len;
4139         if ( !BER_BVISNULL( &bc ) ) {
4140                 if ( WHATSLEFT <= bc.bv_len ) {
4141                         free( bc.bv_val );
4142                         return;
4143                 }
4144                 ptr = lutil_strcopy( ptr, bc.bv_val );
4145                 free( bc.bv_val );
4146         }
4147         if ( !BER_BVISEMPTY( &si->si_filterstr ) ) {
4148                 if ( WHATSLEFT <= STRLENOF( " " FILTERSTR "=\"" "\"" ) + si->si_filterstr.bv_len ) return;
4149                 ptr = lutil_strcopy( ptr, " " FILTERSTR "=\"" );
4150                 ptr = lutil_strcopy( ptr, si->si_filterstr.bv_val );
4151                 *ptr++ = '"';
4152         }
4153         if ( !BER_BVISNULL( &si->si_base ) ) {
4154                 if ( WHATSLEFT <= STRLENOF( " " SEARCHBASESTR "=\"" "\"" ) + si->si_base.bv_len ) return;
4155                 ptr = lutil_strcopy( ptr, " " SEARCHBASESTR "=\"" );
4156                 ptr = lutil_strcopy( ptr, si->si_base.bv_val );
4157                 *ptr++ = '"';
4158         }
4159         if ( !BER_BVISEMPTY( &si->si_logfilterstr ) ) {
4160                 if ( WHATSLEFT <= STRLENOF( " " LOGFILTERSTR "=\"" "\"" ) + si->si_logfilterstr.bv_len ) return;
4161                 ptr = lutil_strcopy( ptr, " " LOGFILTERSTR "=\"" );
4162                 ptr = lutil_strcopy( ptr, si->si_logfilterstr.bv_val );
4163                 *ptr++ = '"';
4164         }
4165         if ( !BER_BVISNULL( &si->si_logbase ) ) {
4166                 if ( WHATSLEFT <= STRLENOF( " " LOGBASESTR "=\"" "\"" ) + si->si_logbase.bv_len ) return;
4167                 ptr = lutil_strcopy( ptr, " " LOGBASESTR "=\"" );
4168                 ptr = lutil_strcopy( ptr, si->si_logbase.bv_val );
4169                 *ptr++ = '"';
4170         }
4171         for (i=0; !BER_BVISNULL(&scopes[i].key);i++) {
4172                 if ( si->si_scope == scopes[i].val ) {
4173                         if ( WHATSLEFT <= STRLENOF( " " SCOPESTR "=" ) + scopes[i].key.bv_len ) return;
4174                         ptr = lutil_strcopy( ptr, " " SCOPESTR "=" );
4175                         ptr = lutil_strcopy( ptr, scopes[i].key.bv_val );
4176                         break;
4177                 }
4178         }
4179         if ( si->si_attrsonly ) {
4180                 if ( WHATSLEFT <= STRLENOF( " " ATTRSONLYSTR "=\"" "\"" ) ) return;
4181                 ptr = lutil_strcopy( ptr, " " ATTRSONLYSTR );
4182         }
4183         if ( si->si_anfile ) {
4184                 if ( WHATSLEFT <= STRLENOF( " " ATTRSSTR "=\":include:" "\"" ) + strlen( si->si_anfile ) ) return;
4185                 ptr = lutil_strcopy( ptr, " " ATTRSSTR "=:include:\"" );
4186                 ptr = lutil_strcopy( ptr, si->si_anfile );
4187                 *ptr++ = '"';
4188         } else if ( si->si_allattrs || si->si_allopattrs ||
4189                 ( si->si_anlist && !BER_BVISNULL(&si->si_anlist[0].an_name) ) )
4190         {
4191                 char *old;
4192
4193                 if ( WHATSLEFT <= STRLENOF( " " ATTRSONLYSTR "=\"" "\"" ) ) return;
4194                 ptr = lutil_strcopy( ptr, " " ATTRSSTR "=\"" );
4195                 old = ptr;
4196                 ptr = anlist_unparse( si->si_anlist, ptr, WHATSLEFT );
4197                 if ( ptr == NULL ) return;
4198                 if ( si->si_allattrs ) {
4199                         if ( WHATSLEFT <= STRLENOF( ",*\"" ) ) return;
4200                         if ( old != ptr ) *ptr++ = ',';
4201                         *ptr++ = '*';
4202                 }
4203                 if ( si->si_allopattrs ) {
4204                         if ( WHATSLEFT <= STRLENOF( ",+\"" ) ) return;
4205                         if ( old != ptr ) *ptr++ = ',';
4206                         *ptr++ = '+';
4207                 }
4208                 *ptr++ = '"';
4209         }
4210         if ( si->si_exanlist && !BER_BVISNULL(&si->si_exanlist[0].an_name) ) {
4211                 if ( WHATSLEFT <= STRLENOF( " " EXATTRSSTR "=" ) ) return;
4212                 ptr = lutil_strcopy( ptr, " " EXATTRSSTR "=" );
4213                 ptr = anlist_unparse( si->si_exanlist, ptr, WHATSLEFT );
4214                 if ( ptr == NULL ) return;
4215         }
4216         if ( WHATSLEFT <= STRLENOF( " " SCHEMASTR "=" ) + STRLENOF( "off" ) ) return;
4217         ptr = lutil_strcopy( ptr, " " SCHEMASTR "=" );
4218         ptr = lutil_strcopy( ptr, si->si_schemachecking ? "on" : "off" );
4219         
4220         if ( WHATSLEFT <= STRLENOF( " " TYPESTR "=" ) + STRLENOF( "refreshAndPersist" ) ) return;
4221         ptr = lutil_strcopy( ptr, " " TYPESTR "=" );
4222         ptr = lutil_strcopy( ptr, si->si_type == LDAP_SYNC_REFRESH_AND_PERSIST ?
4223                 "refreshAndPersist" : "refreshOnly" );
4224
4225         if ( si->si_type == LDAP_SYNC_REFRESH_ONLY ) {
4226                 int dd, hh, mm, ss;
4227
4228                 dd = si->si_interval;
4229                 ss = dd % 60;
4230                 dd /= 60;
4231                 mm = dd % 60;
4232                 dd /= 60;
4233                 hh = dd % 24;
4234                 dd /= 24;
4235                 len = snprintf( ptr, WHATSLEFT, " %s=%02d:%02d:%02d:%02d",
4236                         INTERVALSTR, dd, hh, mm, ss );
4237                 if ( len >= WHATSLEFT ) return;
4238                 ptr += len;
4239         }
4240
4241         if ( si->si_got & GOT_RETRY ) {
4242                 const char *space = "";
4243                 if ( WHATSLEFT <= STRLENOF( " " RETRYSTR "=\"" "\"" ) ) return;
4244                 ptr = lutil_strcopy( ptr, " " RETRYSTR "=\"" );
4245                 for (i=0; si->si_retryinterval[i]; i++) {
4246                         len = snprintf( ptr, WHATSLEFT, "%s%ld ", space,
4247                                 (long) si->si_retryinterval[i] );
4248                         space = " ";
4249                         if ( WHATSLEFT - 1 <= len ) return;
4250                         ptr += len;
4251                         if ( si->si_retrynum_init[i] == RETRYNUM_FOREVER )
4252                                 *ptr++ = '+';
4253                         else {
4254                                 len = snprintf( ptr, WHATSLEFT, "%d", si->si_retrynum_init[i] );
4255                                 if ( WHATSLEFT <= len ) return;
4256                                 ptr += len;
4257                         }
4258                 }
4259                 if ( WHATSLEFT <= STRLENOF( "\"" ) ) return;
4260                 *ptr++ = '"';
4261         } else {
4262                 ptr = lutil_strcopy( ptr, " " RETRYSTR "=undefined" );
4263         }
4264
4265         if ( si->si_slimit ) {
4266                 len = snprintf( ptr, WHATSLEFT, " " SLIMITSTR "=%d", si->si_slimit );
4267                 if ( WHATSLEFT <= len ) return;
4268                 ptr += len;
4269         }
4270
4271         if ( si->si_tlimit ) {
4272                 len = snprintf( ptr, WHATSLEFT, " " TLIMITSTR "=%d", si->si_tlimit );
4273                 if ( WHATSLEFT <= len ) return;
4274                 ptr += len;
4275         }
4276
4277         if ( si->si_syncdata ) {
4278                 if ( enum_to_verb( datamodes, si->si_syncdata, &bc ) >= 0 ) {
4279                         if ( WHATSLEFT <= STRLENOF( " " SYNCDATASTR "=" ) + bc.bv_len ) return;
4280                         ptr = lutil_strcopy( ptr, " " SYNCDATASTR "=" );
4281                         ptr = lutil_strcopy( ptr, bc.bv_val );
4282                 }
4283         }
4284         bc.bv_len = ptr - buf;
4285         bc.bv_val = buf;
4286         ber_dupbv( bv, &bc );
4287 }
4288
4289 int
4290 syncrepl_config( ConfigArgs *c )
4291 {
4292         if (c->op == SLAP_CONFIG_EMIT) {
4293                 if ( c->be->be_syncinfo ) {
4294                         struct berval bv;
4295                         syncinfo_t *si;
4296
4297                         for ( si = c->be->be_syncinfo; si; si=si->si_next ) {
4298                                 syncrepl_unparse( si, &bv ); 
4299                                 ber_bvarray_add( &c->rvalue_vals, &bv );
4300                         }
4301                         return 0;
4302                 }
4303                 return 1;
4304         } else if ( c->op == LDAP_MOD_DELETE ) {
4305                 cookie_state *cs = NULL;
4306                 if ( c->be->be_syncinfo ) {
4307                         syncinfo_t *si, **sip;
4308                         int i;
4309
4310                         cs = c->be->be_syncinfo->si_cookieState;
4311                         for ( sip = &c->be->be_syncinfo, i=0; *sip; i++ ) {
4312                                 si = *sip;
4313                                 if ( c->valx == -1 || i == c->valx ) {
4314                                         int isrunning = 0;
4315                                         *sip = si->si_next;
4316                                         /* If the task is currently active, we have to leave
4317                                          * it running. It will exit on its own. This will only
4318                                          * happen when running on the cn=config DB.
4319                                          */
4320                                         if ( si->si_re ) {
4321                                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
4322                                                 isrunning = ldap_pvt_runqueue_isrunning( &slapd_rq, si->si_re );
4323                                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
4324                                         }
4325                                         if ( si->si_re && isrunning ) {
4326                                                 si->si_ctype = 0;
4327                                         } else {
4328                                                 syncinfo_free( si, 0 );
4329                                         }
4330                                         if ( i == c->valx )
4331                                                 break;
4332                                 } else {
4333                                         sip = &si->si_next;
4334                                 }
4335                         }
4336                 }
4337                 if ( !c->be->be_syncinfo ) {
4338                         SLAP_DBFLAGS( c->be ) &= ~(SLAP_DBFLAG_SHADOW|SLAP_DBFLAG_SYNC_SHADOW);
4339                         if ( cs ) {
4340                                 ber_bvarray_free( cs->cs_vals );
4341                                 ldap_pvt_thread_mutex_destroy( &cs->cs_mutex );
4342                                 ch_free( cs );
4343                         }
4344                 }
4345                 return 0;
4346         }
4347         if ( SLAP_SLURP_SHADOW( c->be ) ) {
4348                 Debug(LDAP_DEBUG_ANY, "%s: "
4349                         "syncrepl: database already shadowed.\n",
4350                         c->log, 0, 0);
4351                 return(1);
4352         } else {
4353                 return add_syncrepl( c );
4354         }
4355 }