]> git.sur5r.net Git - openldap/blob - servers/slapd/back-bdb/config.c
Use read-only txn's instead of read lockers. Support BDB 4.4-4.7
[openldap] / servers / slapd / back-bdb / config.c
1 /* config.c - bdb backend configuration file routine */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2000-2008 The OpenLDAP Foundation.
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted only as authorized by the OpenLDAP
10  * Public License.
11  *
12  * A copy of this license is available in the file LICENSE in the
13  * top-level directory of the distribution or, alternatively, at
14  * <http://www.OpenLDAP.org/license.html>.
15  */
16
17 #include "portable.h"
18
19 #include <stdio.h>
20 #include <ac/ctype.h>
21 #include <ac/string.h>
22 #include <ac/errno.h>
23
24 #include "back-bdb.h"
25
26 #include "config.h"
27
28 #include "lutil.h"
29 #include "ldap_rq.h"
30
31 #ifdef DB_DIRTY_READ
32 #       define  SLAP_BDB_ALLOW_DIRTY_READ
33 #endif
34
35 #define bdb_cf_gen              BDB_SYMBOL(cf_gen)
36 #define bdb_cf_cleanup          BDB_SYMBOL(cf_cleanup)
37 #define bdb_checkpoint          BDB_SYMBOL(checkpoint)
38 #define bdb_online_index        BDB_SYMBOL(online_index)
39
40 static ConfigDriver bdb_cf_gen;
41
42 enum {
43         BDB_CHKPT = 1,
44         BDB_CONFIG,
45         BDB_CRYPTFILE,
46         BDB_CRYPTKEY,
47         BDB_DIRECTORY,
48         BDB_NOSYNC,
49         BDB_DIRTYR,
50         BDB_INDEX,
51         BDB_LOCKD,
52         BDB_SSTACK
53 };
54
55 static ConfigTable bdbcfg[] = {
56         { "directory", "dir", 2, 2, 0, ARG_STRING|ARG_MAGIC|BDB_DIRECTORY,
57                 bdb_cf_gen, "( OLcfgDbAt:0.1 NAME 'olcDbDirectory' "
58                         "DESC 'Directory for database content' "
59                         "EQUALITY caseIgnoreMatch "
60                         "SYNTAX OMsDirectoryString SINGLE-VALUE )", NULL, NULL },
61         { "cachefree", "size", 2, 2, 0, ARG_UINT|ARG_OFFSET,
62                 (void *)offsetof(struct bdb_info, bi_cache.c_minfree),
63                 "( OLcfgDbAt:1.11 NAME 'olcDbCacheFree' "
64                         "DESC 'Number of extra entries to free when max is reached' "
65                         "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
66         { "cachesize", "size", 2, 2, 0, ARG_UINT|ARG_OFFSET,
67                 (void *)offsetof(struct bdb_info, bi_cache.c_maxsize),
68                 "( OLcfgDbAt:1.1 NAME 'olcDbCacheSize' "
69                         "DESC 'Entry cache size in entries' "
70                         "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
71         { "checkpoint", "kbyte> <min", 3, 3, 0, ARG_MAGIC|BDB_CHKPT,
72                 bdb_cf_gen, "( OLcfgDbAt:1.2 NAME 'olcDbCheckpoint' "
73                         "DESC 'Database checkpoint interval in kbytes and minutes' "
74                         "SYNTAX OMsDirectoryString SINGLE-VALUE )",NULL, NULL },
75         { "cryptfile", "file", 2, 2, 0, ARG_STRING|ARG_MAGIC|BDB_CRYPTFILE,
76                 bdb_cf_gen, "( OLcfgDbAt:1.13 NAME 'olcDbCryptFile' "
77                         "DESC 'Pathname of file containing the DB encryption key' "
78                         "SYNTAX OMsDirectoryString SINGLE-VALUE )",NULL, NULL },
79         { "cryptkey", "key", 2, 2, 0, ARG_BERVAL|ARG_MAGIC|BDB_CRYPTKEY,
80                 bdb_cf_gen, "( OLcfgDbAt:1.14 NAME 'olcDbCryptKey' "
81                         "DESC 'DB encryption key' "
82                         "SYNTAX OMsOctetString SINGLE-VALUE )",NULL, NULL },
83         { "dbconfig", "DB_CONFIG setting", 1, 0, 0, ARG_MAGIC|BDB_CONFIG,
84                 bdb_cf_gen, "( OLcfgDbAt:1.3 NAME 'olcDbConfig' "
85                         "DESC 'BerkeleyDB DB_CONFIG configuration directives' "
86                         "SYNTAX OMsIA5String X-ORDERED 'VALUES' )", NULL, NULL },
87         { "dbnosync", NULL, 1, 2, 0, ARG_ON_OFF|ARG_MAGIC|BDB_NOSYNC,
88                 bdb_cf_gen, "( OLcfgDbAt:1.4 NAME 'olcDbNoSync' "
89                         "DESC 'Disable synchronous database writes' "
90                         "SYNTAX OMsBoolean SINGLE-VALUE )", NULL, NULL },
91         { "dirtyread", NULL, 1, 2, 0,
92 #ifdef SLAP_BDB_ALLOW_DIRTY_READ
93                 ARG_ON_OFF|ARG_MAGIC|BDB_DIRTYR, bdb_cf_gen,
94 #else
95                 ARG_IGNORED, NULL,
96 #endif
97                 "( OLcfgDbAt:1.5 NAME 'olcDbDirtyRead' "
98                 "DESC 'Allow reads of uncommitted data' "
99                 "SYNTAX OMsBoolean SINGLE-VALUE )", NULL, NULL },
100         { "dncachesize", "size", 2, 2, 0, ARG_UINT|ARG_OFFSET,
101                 (void *)offsetof(struct bdb_info, bi_cache.c_eimax),
102                 "( OLcfgDbAt:1.12 NAME 'olcDbDNcacheSize' "
103                         "DESC 'DN cache size' "
104                         "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
105         { "idlcachesize", "size", 2, 2, 0, ARG_UINT|ARG_OFFSET,
106                 (void *)offsetof(struct bdb_info, bi_idl_cache_max_size),
107                 "( OLcfgDbAt:1.6 NAME 'olcDbIDLcacheSize' "
108                 "DESC 'IDL cache size in IDLs' "
109                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
110         { "index", "attr> <[pres,eq,approx,sub]", 2, 3, 0, ARG_MAGIC|BDB_INDEX,
111                 bdb_cf_gen, "( OLcfgDbAt:0.2 NAME 'olcDbIndex' "
112                 "DESC 'Attribute index parameters' "
113                 "EQUALITY caseIgnoreMatch "
114                 "SYNTAX OMsDirectoryString )", NULL, NULL },
115         { "linearindex", NULL, 1, 2, 0, ARG_ON_OFF|ARG_OFFSET,
116                 (void *)offsetof(struct bdb_info, bi_linear_index), 
117                 "( OLcfgDbAt:1.7 NAME 'olcDbLinearIndex' "
118                 "DESC 'Index attributes one at a time' "
119                 "SYNTAX OMsBoolean SINGLE-VALUE )", NULL, NULL },
120         { "lockdetect", "policy", 2, 2, 0, ARG_MAGIC|BDB_LOCKD,
121                 bdb_cf_gen, "( OLcfgDbAt:1.8 NAME 'olcDbLockDetect' "
122                 "DESC 'Deadlock detection algorithm' "
123                 "SYNTAX OMsDirectoryString SINGLE-VALUE )", NULL, NULL },
124         { "mode", "mode", 2, 2, 0, ARG_INT|ARG_OFFSET,
125                 (void *)offsetof(struct bdb_info, bi_dbenv_mode),
126                 "( OLcfgDbAt:0.3 NAME 'olcDbMode' "
127                 "DESC 'Unix permissions of database files' "
128                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
129         { "searchstack", "depth", 2, 2, 0, ARG_INT|ARG_MAGIC|BDB_SSTACK,
130                 bdb_cf_gen, "( OLcfgDbAt:1.9 NAME 'olcDbSearchStack' "
131                 "DESC 'Depth of search stack in IDLs' "
132                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
133         { "shm_key", "key", 2, 2, 0, ARG_LONG|ARG_OFFSET,
134                 (void *)offsetof(struct bdb_info, bi_shm_key), 
135                 "( OLcfgDbAt:1.10 NAME 'olcDbShmKey' "
136                 "DESC 'Key for shared memory region' "
137                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
138         { NULL, NULL, 0, 0, 0, ARG_IGNORED,
139                 NULL, NULL, NULL, NULL }
140 };
141
142 static ConfigOCs bdbocs[] = {
143         {
144 #ifdef BDB_HIER
145                 "( OLcfgDbOc:1.2 "
146                 "NAME 'olcHdbConfig' "
147                 "DESC 'HDB backend configuration' "
148 #else
149                 "( OLcfgDbOc:1.1 "
150                 "NAME 'olcBdbConfig' "
151                 "DESC 'BDB backend configuration' "
152 #endif
153                 "SUP olcDatabaseConfig "
154                 "MUST olcDbDirectory "
155                 "MAY ( olcDbCacheSize $ olcDbCheckpoint $ olcDbConfig $ "
156                 "olcDbCryptFile $ olcDbCryptKey $ "
157                 "olcDbNoSync $ olcDbDirtyRead $ olcDbIDLcacheSize $ "
158                 "olcDbIndex $ olcDbLinearIndex $ olcDbLockDetect $ "
159                 "olcDbMode $ olcDbSearchStack $ olcDbShmKey $ "
160                 "olcDbCacheFree $ olcDbDNcacheSize ) )",
161                         Cft_Database, bdbcfg },
162         { NULL, 0, NULL }
163 };
164
165 static slap_verbmasks bdb_lockd[] = {
166         { BER_BVC("default"), DB_LOCK_DEFAULT },
167         { BER_BVC("oldest"), DB_LOCK_OLDEST },
168         { BER_BVC("random"), DB_LOCK_RANDOM },
169         { BER_BVC("youngest"), DB_LOCK_YOUNGEST },
170         { BER_BVC("fewest"), DB_LOCK_MINLOCKS },
171         { BER_BVNULL, 0 }
172 };
173
174 /* perform periodic checkpoints */
175 static void *
176 bdb_checkpoint( void *ctx, void *arg )
177 {
178         struct re_s *rtask = arg;
179         struct bdb_info *bdb = rtask->arg;
180         
181         TXN_CHECKPOINT( bdb->bi_dbenv, bdb->bi_txn_cp_kbyte,
182                 bdb->bi_txn_cp_min, 0 );
183         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
184         ldap_pvt_runqueue_stoptask( &slapd_rq, rtask );
185         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
186         return NULL;
187 }
188
189 /* reindex entries on the fly */
190 static void *
191 bdb_online_index( void *ctx, void *arg )
192 {
193         struct re_s *rtask = arg;
194         BackendDB *be = rtask->arg;
195         struct bdb_info *bdb = be->be_private;
196
197         Connection conn = {0};
198         OperationBuffer opbuf;
199         Operation *op;
200
201         DBC *curs;
202         DBT key, data;
203         DB_TXN *txn;
204         DB_LOCK lock;
205         ID id, nid;
206         EntryInfo *ei;
207         int rc, getnext = 1;
208         int i;
209
210         connection_fake_init( &conn, &opbuf, ctx );
211         op = &opbuf.ob_op;
212
213         op->o_bd = be;
214
215         DBTzero( &key );
216         DBTzero( &data );
217         
218         id = 1;
219         key.data = &nid;
220         key.size = key.ulen = sizeof(ID);
221         key.flags = DB_DBT_USERMEM;
222
223         data.flags = DB_DBT_USERMEM | DB_DBT_PARTIAL;
224         data.dlen = data.ulen = 0;
225
226         while ( 1 ) {
227                 if ( slapd_shutdown )
228                         break;
229
230                 rc = TXN_BEGIN( bdb->bi_dbenv, NULL, &txn, bdb->bi_db_opflags );
231                 if ( rc ) 
232                         break;
233                 if ( getnext ) {
234                         getnext = 0;
235                         BDB_ID2DISK( id, &nid );
236                         rc = bdb->bi_id2entry->bdi_db->cursor(
237                                 bdb->bi_id2entry->bdi_db, txn, &curs, bdb->bi_db_opflags );
238                         if ( rc ) {
239                                 TXN_ABORT( txn );
240                                 break;
241                         }
242                         rc = curs->c_get( curs, &key, &data, DB_SET_RANGE );
243                         curs->c_close( curs );
244                         if ( rc ) {
245                                 TXN_ABORT( txn );
246                                 if ( rc == DB_NOTFOUND )
247                                         rc = 0;
248                                 if ( rc == DB_LOCK_DEADLOCK ) {
249                                         ldap_pvt_thread_yield();
250                                         continue;
251                                 }
252                                 break;
253                         }
254                         BDB_DISK2ID( &nid, &id );
255                 }
256
257                 ei = NULL;
258                 rc = bdb_cache_find_id( op, txn, id, &ei, 0, &lock );
259                 if ( rc ) {
260                         TXN_ABORT( txn );
261                         if ( rc == DB_LOCK_DEADLOCK ) {
262                                 ldap_pvt_thread_yield();
263                                 continue;
264                         }
265                         if ( rc == DB_NOTFOUND ) {
266                                 id++;
267                                 getnext = 1;
268                                 continue;
269                         }
270                         break;
271                 }
272                 if ( ei->bei_e ) {
273                         rc = bdb_index_entry( op, txn, BDB_INDEX_UPDATE_OP, ei->bei_e );
274                         if ( rc == DB_LOCK_DEADLOCK ) {
275                                 TXN_ABORT( txn );
276                                 ldap_pvt_thread_yield();
277                                 continue;
278                         }
279                         if ( rc == 0 ) {
280                                 rc = TXN_COMMIT( txn, 0 );
281                                 txn = NULL;
282                         }
283                         if ( rc )
284                                 break;
285                 }
286                 id++;
287                 getnext = 1;
288         }
289
290         for ( i = 0; i < bdb->bi_nattrs; i++ ) {
291                 if ( bdb->bi_attrs[ i ]->ai_indexmask & BDB_INDEX_DELETING
292                         || bdb->bi_attrs[ i ]->ai_newmask == 0 )
293                 {
294                         continue;
295                 }
296                 bdb->bi_attrs[ i ]->ai_indexmask = bdb->bi_attrs[ i ]->ai_newmask;
297                 bdb->bi_attrs[ i ]->ai_newmask = 0;
298         }
299
300         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
301         ldap_pvt_runqueue_stoptask( &slapd_rq, rtask );
302         bdb->bi_index_task = NULL;
303         ldap_pvt_runqueue_remove( &slapd_rq, rtask );
304         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
305
306         return NULL;
307 }
308
309 /* Cleanup loose ends after Modify completes */
310 static int
311 bdb_cf_cleanup( ConfigArgs *c )
312 {
313         struct bdb_info *bdb = c->be->be_private;
314         int rc = 0;
315
316         if ( bdb->bi_flags & BDB_UPD_CONFIG ) {
317                 if ( bdb->bi_db_config ) {
318                         int i;
319                         FILE *f = fopen( bdb->bi_db_config_path, "w" );
320                         if ( f ) {
321                                 for (i=0; bdb->bi_db_config[i].bv_val; i++)
322                                         fprintf( f, "%s\n", bdb->bi_db_config[i].bv_val );
323                                 fclose( f );
324                         }
325                 } else {
326                         unlink( bdb->bi_db_config_path );
327                 }
328                 bdb->bi_flags ^= BDB_UPD_CONFIG;
329         }
330
331         if ( bdb->bi_flags & BDB_DEL_INDEX ) {
332                 bdb_attr_flush( bdb );
333                 bdb->bi_flags ^= BDB_DEL_INDEX;
334         }
335         
336         if ( bdb->bi_flags & BDB_RE_OPEN ) {
337                 bdb->bi_flags ^= BDB_RE_OPEN;
338                 rc = c->be->bd_info->bi_db_close( c->be, &c->reply );
339                 if ( rc == 0 )
340                         rc = c->be->bd_info->bi_db_open( c->be, &c->reply );
341                 /* If this fails, we need to restart */
342                 if ( rc ) {
343                         slapd_shutdown = 2;
344                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
345                                 "failed to reopen database, rc=%d", rc );
346                         Debug( LDAP_DEBUG_ANY, LDAP_XSTRING(bdb_cf_cleanup)
347                                 ": %s\n", c->cr_msg, 0, 0 );
348                         rc = LDAP_OTHER;
349                 }
350         }
351         return rc;
352 }
353
354 static int
355 bdb_cf_gen( ConfigArgs *c )
356 {
357         struct bdb_info *bdb = c->be->be_private;
358         int rc;
359
360         if ( c->op == SLAP_CONFIG_EMIT ) {
361                 rc = 0;
362                 switch( c->type ) {
363                 case BDB_CHKPT:
364                         if ( bdb->bi_txn_cp ) {
365                                 char buf[64];
366                                 struct berval bv;
367                                 bv.bv_len = sprintf( buf, "%d %d", bdb->bi_txn_cp_kbyte,
368                                         bdb->bi_txn_cp_min );
369                                 bv.bv_val = buf;
370                                 value_add_one( &c->rvalue_vals, &bv );
371                         } else{
372                                 rc = 1;
373                         }
374                         break;
375
376                 case BDB_CRYPTFILE:
377                         if ( bdb->bi_db_crypt_file ) {
378                                 c->value_string = ch_strdup( bdb->bi_db_crypt_file );
379                         } else {
380                                 rc = 1;
381                         }
382                         break;
383
384                 /* If a crypt file has been set, its contents are copied here.
385                  * But we don't want the key to be incorporated here.
386                  */
387                 case BDB_CRYPTKEY:
388                         if ( !bdb->bi_db_crypt_file && !BER_BVISNULL( &bdb->bi_db_crypt_key )) {
389                                 value_add_one( &c->rvalue_vals, &bdb->bi_db_crypt_key );
390                         } else {
391                                 rc = 1;
392                         }
393                         break;
394
395                 case BDB_DIRECTORY:
396                         if ( bdb->bi_dbenv_home ) {
397                                 c->value_string = ch_strdup( bdb->bi_dbenv_home );
398                         } else {
399                                 rc = 1;
400                         }
401                         break;
402
403                 case BDB_CONFIG:
404                         if ( !( bdb->bi_flags & BDB_IS_OPEN )
405                                 && !bdb->bi_db_config )
406                         {
407                                 char    buf[SLAP_TEXT_BUFLEN];
408                                 FILE *f = fopen( bdb->bi_db_config_path, "r" );
409                                 struct berval bv;
410
411                                 if ( f ) {
412                                         bdb->bi_flags |= BDB_HAS_CONFIG;
413                                         while ( fgets( buf, sizeof(buf), f )) {
414                                                 ber_str2bv( buf, 0, 1, &bv );
415                                                 if ( bv.bv_len > 0 && bv.bv_val[bv.bv_len-1] == '\n' ) {
416                                                         bv.bv_len--;
417                                                         bv.bv_val[bv.bv_len] = '\0';
418                                                 }
419                                                 /* shouldn't need this, but ... */
420                                                 if ( bv.bv_len > 0 && bv.bv_val[bv.bv_len-1] == '\r' ) {
421                                                         bv.bv_len--;
422                                                         bv.bv_val[bv.bv_len] = '\0';
423                                                 }
424                                                 ber_bvarray_add( &bdb->bi_db_config, &bv );
425                                         }
426                                         fclose( f );
427                                 }
428                         }
429                         if ( bdb->bi_db_config ) {
430                                 int i;
431                                 struct berval bv;
432
433                                 bv.bv_val = c->log;
434                                 for (i=0; !BER_BVISNULL(&bdb->bi_db_config[i]); i++) {
435                                         bv.bv_len = sprintf( bv.bv_val, "{%d}%s", i,
436                                                 bdb->bi_db_config[i].bv_val );
437                                         value_add_one( &c->rvalue_vals, &bv );
438                                 }
439                         }
440                         if ( !c->rvalue_vals ) rc = 1;
441                         break;
442
443                 case BDB_NOSYNC:
444                         if ( bdb->bi_dbenv_xflags & DB_TXN_NOSYNC )
445                                 c->value_int = 1;
446                         break;
447                         
448                 case BDB_INDEX:
449                         bdb_attr_index_unparse( bdb, &c->rvalue_vals );
450                         if ( !c->rvalue_vals ) rc = 1;
451                         break;
452
453                 case BDB_LOCKD:
454                         rc = 1;
455                         if ( bdb->bi_lock_detect != DB_LOCK_DEFAULT ) {
456                                 int i;
457                                 for (i=0; !BER_BVISNULL(&bdb_lockd[i].word); i++) {
458                                         if ( bdb->bi_lock_detect == bdb_lockd[i].mask ) {
459                                                 value_add_one( &c->rvalue_vals, &bdb_lockd[i].word );
460                                                 rc = 0;
461                                                 break;
462                                         }
463                                 }
464                         }
465                         break;
466
467                 case BDB_SSTACK:
468                         c->value_int = bdb->bi_search_stack_depth;
469                         break;
470                 }
471                 return rc;
472         } else if ( c->op == LDAP_MOD_DELETE ) {
473                 rc = 0;
474                 switch( c->type ) {
475                 /* single-valued no-ops */
476                 case BDB_LOCKD:
477                 case BDB_SSTACK:
478                         break;
479
480                 case BDB_CHKPT:
481                         if ( bdb->bi_txn_cp_task ) {
482                                 struct re_s *re = bdb->bi_txn_cp_task;
483                                 bdb->bi_txn_cp_task = NULL;
484                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
485                                 if ( ldap_pvt_runqueue_isrunning( &slapd_rq, re ) )
486                                         ldap_pvt_runqueue_stoptask( &slapd_rq, re );
487                                 ldap_pvt_runqueue_remove( &slapd_rq, re );
488                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
489                         }
490                         bdb->bi_txn_cp = 0;
491                         break;
492                 case BDB_CONFIG:
493                         if ( c->valx < 0 ) {
494                                 ber_bvarray_free( bdb->bi_db_config );
495                                 bdb->bi_db_config = NULL;
496                         } else {
497                                 int i = c->valx;
498                                 ch_free( bdb->bi_db_config[i].bv_val );
499                                 for (; bdb->bi_db_config[i].bv_val; i++)
500                                         bdb->bi_db_config[i] = bdb->bi_db_config[i+1];
501                         }
502                         bdb->bi_flags |= BDB_UPD_CONFIG;
503                         c->cleanup = bdb_cf_cleanup;
504                         break;
505                 /* Doesn't really make sense to change these on the fly;
506                  * the entire DB must be dumped and reloaded
507                  */
508                 case BDB_CRYPTFILE:
509                         if ( bdb->bi_db_crypt_file ) {
510                                 ch_free( bdb->bi_db_crypt_file );
511                                 bdb->bi_db_crypt_file = NULL;
512                         }
513                         /* FALLTHRU */
514                 case BDB_CRYPTKEY:
515                         if ( !BER_BVISNULL( &bdb->bi_db_crypt_key )) {
516                                 ch_free( bdb->bi_db_crypt_key.bv_val );
517                                 BER_BVZERO( &bdb->bi_db_crypt_key );
518                         }
519                         break;
520                 case BDB_DIRECTORY:
521                         bdb->bi_flags |= BDB_RE_OPEN;
522                         bdb->bi_flags ^= BDB_HAS_CONFIG;
523                         ch_free( bdb->bi_dbenv_home );
524                         bdb->bi_dbenv_home = NULL;
525                         ch_free( bdb->bi_db_config_path );
526                         bdb->bi_db_config_path = NULL;
527                         c->cleanup = bdb_cf_cleanup;
528                         ldap_pvt_thread_pool_purgekey( bdb->bi_dbenv );
529                         break;
530                 case BDB_NOSYNC:
531                         bdb->bi_dbenv->set_flags( bdb->bi_dbenv, DB_TXN_NOSYNC, 0 );
532                         break;
533                 case BDB_INDEX:
534                         if ( c->valx == -1 ) {
535                                 int i;
536
537                                 /* delete all (FIXME) */
538                                 for ( i = 0; i < bdb->bi_nattrs; i++ ) {
539                                         bdb->bi_attrs[i]->ai_indexmask |= BDB_INDEX_DELETING;
540                                 }
541                                 bdb->bi_flags |= BDB_DEL_INDEX;
542                                 c->cleanup = bdb_cf_cleanup;
543
544                         } else {
545                                 struct berval bv, def = BER_BVC("default");
546                                 char *ptr;
547
548                                 for (ptr = c->line; !isspace( (unsigned char) *ptr ); ptr++);
549
550                                 bv.bv_val = c->line;
551                                 bv.bv_len = ptr - bv.bv_val;
552                                 if ( bvmatch( &bv, &def )) {
553                                         bdb->bi_defaultmask = 0;
554
555                                 } else {
556                                         int i;
557                                         char **attrs;
558                                         char sep;
559
560                                         sep = bv.bv_val[ bv.bv_len ];
561                                         bv.bv_val[ bv.bv_len ] = '\0';
562                                         attrs = ldap_str2charray( bv.bv_val, "," );
563
564                                         for ( i = 0; attrs[ i ]; i++ ) {
565                                                 AttributeDescription *ad = NULL;
566                                                 const char *text;
567                                                 AttrInfo *ai;
568
569                                                 slap_str2ad( attrs[ i ], &ad, &text );
570                                                 /* if we got here... */
571                                                 assert( ad != NULL );
572
573                                                 ai = bdb_attr_mask( bdb, ad );
574                                                 /* if we got here... */
575                                                 assert( ai != NULL );
576
577                                                 ai->ai_indexmask |= BDB_INDEX_DELETING;
578                                                 bdb->bi_flags |= BDB_DEL_INDEX;
579                                                 c->cleanup = bdb_cf_cleanup;
580                                         }
581
582                                         bv.bv_val[ bv.bv_len ] = sep;
583                                         ldap_charray_free( attrs );
584                                 }
585                         }
586                         break;
587                 }
588                 return rc;
589         }
590
591         switch( c->type ) {
592         case BDB_CHKPT: {
593                 long    l;
594                 bdb->bi_txn_cp = 1;
595                 if ( lutil_atolx( &l, c->argv[1], 0 ) != 0 ) {
596                         fprintf( stderr, "%s: "
597                                 "invalid kbyte \"%s\" in \"checkpoint\".\n",
598                                 c->log, c->argv[1] );
599                         return 1;
600                 }
601                 bdb->bi_txn_cp_kbyte = l;
602                 if ( lutil_atolx( &l, c->argv[2], 0 ) != 0 ) {
603                         fprintf( stderr, "%s: "
604                                 "invalid minutes \"%s\" in \"checkpoint\".\n",
605                                 c->log, c->argv[2] );
606                         return 1;
607                 }
608                 bdb->bi_txn_cp_min = l;
609                 /* If we're in server mode and time-based checkpointing is enabled,
610                  * submit a task to perform periodic checkpoints.
611                  */
612                 if ((slapMode & SLAP_SERVER_MODE) && bdb->bi_txn_cp_min ) {
613                         struct re_s *re = bdb->bi_txn_cp_task;
614                         if ( re ) {
615                                 re->interval.tv_sec = bdb->bi_txn_cp_min * 60;
616                         } else {
617                                 if ( c->be->be_suffix == NULL || BER_BVISNULL( &c->be->be_suffix[0] ) ) {
618                                         fprintf( stderr, "%s: "
619                                                 "\"checkpoint\" must occur after \"suffix\".\n",
620                                                 c->log );
621                                         return 1;
622                                 }
623                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
624                                 bdb->bi_txn_cp_task = ldap_pvt_runqueue_insert( &slapd_rq,
625                                         bdb->bi_txn_cp_min * 60, bdb_checkpoint, bdb,
626                                         LDAP_XSTRING(bdb_checkpoint), c->be->be_suffix[0].bv_val );
627                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
628                         }
629                 }
630                 } break;
631
632         case BDB_CONFIG: {
633                 char *ptr = c->line;
634                 struct berval bv;
635
636                 if ( c->op == SLAP_CONFIG_ADD ) {
637                         ptr += STRLENOF("dbconfig");
638                         while (!isspace((unsigned char)*ptr)) ptr++;
639                         while (isspace((unsigned char)*ptr)) ptr++;
640                 }
641
642                 if ( bdb->bi_flags & BDB_IS_OPEN ) {
643                         bdb->bi_flags |= BDB_UPD_CONFIG;
644                         c->cleanup = bdb_cf_cleanup;
645                 } else {
646                 /* If we're just starting up...
647                  */
648                         FILE *f;
649                         /* If a DB_CONFIG file exists, or we don't know the path
650                          * to the DB_CONFIG file, ignore these directives
651                          */
652                         if (( bdb->bi_flags & BDB_HAS_CONFIG ) || !bdb->bi_db_config_path )
653                                 break;
654                         f = fopen( bdb->bi_db_config_path, "a" );
655                         if ( f ) {
656                                 /* FIXME: EBCDIC probably needs special handling */
657                                 fprintf( f, "%s\n", ptr );
658                                 fclose( f );
659                         }
660                 }
661                 ber_str2bv( ptr, 0, 1, &bv );
662                 ber_bvarray_add( &bdb->bi_db_config, &bv );
663                 }
664                 break;
665
666         case BDB_CRYPTFILE:
667                 rc = lutil_get_filed_password( c->value_string, &bdb->bi_db_crypt_key );
668                 if ( rc == 0 ) {
669                         bdb->bi_db_crypt_file = c->value_string;
670                 }
671                 break;
672
673         /* Cannot set key if file was already set */
674         case BDB_CRYPTKEY:
675                 if ( bdb->bi_db_crypt_file ) {
676                         rc = 1;
677                 } else {
678                         bdb->bi_db_crypt_key = c->value_bv;
679                 }
680                 break;
681
682         case BDB_DIRECTORY: {
683                 FILE *f;
684                 char *ptr, *testpath;
685                 int len;
686
687                 len = strlen( c->value_string );
688                 testpath = ch_malloc( len + STRLENOF(LDAP_DIRSEP) + STRLENOF("DUMMY") + 1 );
689                 ptr = lutil_strcopy( testpath, c->value_string );
690                 *ptr++ = LDAP_DIRSEP[0];
691                 strcpy( ptr, "DUMMY" );
692                 f = fopen( testpath, "w" );
693                 if ( f ) {
694                         fclose( f );
695                         unlink( testpath );
696                 }
697                 ch_free( testpath );
698                 if ( !f ) {
699                         snprintf( c->cr_msg, sizeof( c->cr_msg ), "%s: invalid path: %s",
700                                 c->log, strerror( errno ));
701                         Debug( LDAP_DEBUG_ANY, "%s\n", c->cr_msg, 0, 0 );
702                         return -1;
703                 }
704
705                 if ( bdb->bi_dbenv_home )
706                         ch_free( bdb->bi_dbenv_home );
707                 bdb->bi_dbenv_home = c->value_string;
708
709                 /* See if a DB_CONFIG file already exists here */
710                 if ( bdb->bi_db_config_path )
711                         ch_free( bdb->bi_db_config_path );
712                 bdb->bi_db_config_path = ch_malloc( len +
713                         STRLENOF(LDAP_DIRSEP) + STRLENOF("DB_CONFIG") + 1 );
714                 ptr = lutil_strcopy( bdb->bi_db_config_path, bdb->bi_dbenv_home );
715                 *ptr++ = LDAP_DIRSEP[0];
716                 strcpy( ptr, "DB_CONFIG" );
717
718                 f = fopen( bdb->bi_db_config_path, "r" );
719                 if ( f ) {
720                         bdb->bi_flags |= BDB_HAS_CONFIG;
721                         fclose(f);
722                 }
723                 }
724                 break;
725
726         case BDB_NOSYNC:
727                 if ( c->value_int )
728                         bdb->bi_dbenv_xflags |= DB_TXN_NOSYNC;
729                 else
730                         bdb->bi_dbenv_xflags &= ~DB_TXN_NOSYNC;
731                 if ( bdb->bi_flags & BDB_IS_OPEN ) {
732                         bdb->bi_dbenv->set_flags( bdb->bi_dbenv, DB_TXN_NOSYNC,
733                                 c->value_int );
734                 }
735                 break;
736
737         case BDB_INDEX:
738                 rc = bdb_attr_index_config( bdb, c->fname, c->lineno,
739                         c->argc - 1, &c->argv[1] );
740
741                 if( rc != LDAP_SUCCESS ) return 1;
742                 if (( bdb->bi_flags & BDB_IS_OPEN ) && !bdb->bi_index_task ) {
743                         /* Start the task as soon as we finish here. Set a long
744                          * interval (10 hours) so that it only gets scheduled once.
745                          */
746                         if ( c->be->be_suffix == NULL || BER_BVISNULL( &c->be->be_suffix[0] ) ) {
747                                 fprintf( stderr, "%s: "
748                                         "\"index\" must occur after \"suffix\".\n",
749                                         c->log );
750                                 return 1;
751                         }
752                         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
753                         bdb->bi_index_task = ldap_pvt_runqueue_insert( &slapd_rq, 36000,
754                                 bdb_online_index, c->be,
755                                 LDAP_XSTRING(bdb_online_index), c->be->be_suffix[0].bv_val );
756                         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
757                 }
758                 break;
759
760         case BDB_LOCKD:
761                 rc = verb_to_mask( c->argv[1], bdb_lockd );
762                 if ( BER_BVISNULL(&bdb_lockd[rc].word) ) {
763                         fprintf( stderr, "%s: "
764                                 "bad policy (%s) in \"lockDetect <policy>\" line\n",
765                                 c->log, c->argv[1] );
766                         return 1;
767                 }
768                 bdb->bi_lock_detect = rc;
769                 break;
770
771         case BDB_SSTACK:
772                 if ( c->value_int < MINIMUM_SEARCH_STACK_DEPTH ) {
773                         fprintf( stderr,
774                 "%s: depth %d too small, using %d\n",
775                         c->log, c->value_int, MINIMUM_SEARCH_STACK_DEPTH );
776                         c->value_int = MINIMUM_SEARCH_STACK_DEPTH;
777                 }
778                 bdb->bi_search_stack_depth = c->value_int;
779                 break;
780         }
781         return 0;
782 }
783
784 int bdb_back_init_cf( BackendInfo *bi )
785 {
786         int rc;
787         bi->bi_cf_ocs = bdbocs;
788
789         rc = config_register_schema( bdbcfg, bdbocs );
790         if ( rc ) return rc;
791         return 0;
792 }