]> git.sur5r.net Git - openldap/blob - servers/slapd/back-mdb/config.c
Fix online reconfig
[openldap] / servers / slapd / back-mdb / config.c
1 /* config.c - mdb backend configuration file routine */
2 /* $OpenLDAP$ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 2000-2012 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-mdb.h"
25
26 #include "config.h"
27
28 #include "lutil.h"
29 #include "ldap_rq.h"
30
31 static ConfigDriver mdb_cf_gen;
32
33 enum {
34         MDB_CHKPT = 1,
35         MDB_DIRECTORY,
36         MDB_DBNOSYNC,
37         MDB_INDEX,
38         MDB_MAXREADERS,
39         MDB_MAXSIZE,
40         MDB_MODE,
41         MDB_SSTACK
42 };
43
44 static ConfigTable mdbcfg[] = {
45         { "directory", "dir", 2, 2, 0, ARG_STRING|ARG_MAGIC|MDB_DIRECTORY,
46                 mdb_cf_gen, "( OLcfgDbAt:0.1 NAME 'olcDbDirectory' "
47                         "DESC 'Directory for database content' "
48                         "EQUALITY caseIgnoreMatch "
49                         "SYNTAX OMsDirectoryString SINGLE-VALUE )", NULL, NULL },
50         { "checkpoint", "kbyte> <min", 3, 3, 0, ARG_MAGIC|MDB_CHKPT,
51                 mdb_cf_gen, "( OLcfgDbAt:1.2 NAME 'olcDbCheckpoint' "
52                         "DESC 'Database checkpoint interval in kbytes and minutes' "
53                         "SYNTAX OMsDirectoryString SINGLE-VALUE )",NULL, NULL },
54         { "dbnosync", NULL, 1, 2, 0, ARG_ON_OFF|ARG_MAGIC|MDB_DBNOSYNC,
55                 mdb_cf_gen, "( OLcfgDbAt:1.4 NAME 'olcDbNoSync' "
56                         "DESC 'Disable synchronous database writes' "
57                         "SYNTAX OMsBoolean SINGLE-VALUE )", NULL, NULL },
58         { "index", "attr> <[pres,eq,approx,sub]", 2, 3, 0, ARG_MAGIC|MDB_INDEX,
59                 mdb_cf_gen, "( OLcfgDbAt:0.2 NAME 'olcDbIndex' "
60                 "DESC 'Attribute index parameters' "
61                 "EQUALITY caseIgnoreMatch "
62                 "SYNTAX OMsDirectoryString )", NULL, NULL },
63         { "maxreaders", "num", 2, 2, 0, ARG_UINT|ARG_MAGIC|MDB_MAXREADERS,
64                 mdb_cf_gen, "( OLcfgDbAt:12.1 NAME 'olcDbMaxReaders' "
65                 "DESC 'Maximum number of threads that may access the DB concurrently' "
66                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
67         { "maxsize", "size", 2, 2, 0, ARG_ULONG|ARG_MAGIC|MDB_MAXSIZE,
68                 mdb_cf_gen, "( OLcfgDbAt:12.2 NAME 'olcDbMaxSize' "
69                 "DESC 'Maximum size of DB in bytes' "
70                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
71         { "mode", "mode", 2, 2, 0, ARG_MAGIC|MDB_MODE,
72                 mdb_cf_gen, "( OLcfgDbAt:0.3 NAME 'olcDbMode' "
73                 "DESC 'Unix permissions of database files' "
74                 "SYNTAX OMsDirectoryString SINGLE-VALUE )", NULL, NULL },
75         { "searchstack", "depth", 2, 2, 0, ARG_INT|ARG_MAGIC|MDB_SSTACK,
76                 mdb_cf_gen, "( OLcfgDbAt:1.9 NAME 'olcDbSearchStack' "
77                 "DESC 'Depth of search stack in IDLs' "
78                 "SYNTAX OMsInteger SINGLE-VALUE )", NULL, NULL },
79         { NULL, NULL, 0, 0, 0, ARG_IGNORED,
80                 NULL, NULL, NULL, NULL }
81 };
82
83 static ConfigOCs mdbocs[] = {
84         {
85                 "( OLcfgDbOc:12.1 "
86                 "NAME 'olcMdbConfig' "
87                 "DESC 'MDB backend configuration' "
88                 "SUP olcDatabaseConfig "
89                 "MUST olcDbDirectory "
90                 "MAY ( olcDbCheckpoint $ "
91                 "olcDbNoSync $ olcDbIndex $ olcDbMaxReaders $ olcDbMaxsize $ "
92                 "olcDbMode $ olcDbSearchStack ) )",
93                         Cft_Database, mdbcfg },
94         { NULL, 0, NULL }
95 };
96
97 /* perform periodic syncs */
98 static void *
99 mdb_checkpoint( void *ctx, void *arg )
100 {
101         struct re_s *rtask = arg;
102         struct mdb_info *mdb = rtask->arg;
103
104         mdb_env_sync( mdb->mi_dbenv, 0 );
105         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
106         ldap_pvt_runqueue_stoptask( &slapd_rq, rtask );
107         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
108         return NULL;
109 }
110
111 /* reindex entries on the fly */
112 static void *
113 mdb_online_index( void *ctx, void *arg )
114 {
115         struct re_s *rtask = arg;
116         BackendDB *be = rtask->arg;
117         struct mdb_info *mdb = be->be_private;
118
119         Connection conn = {0};
120         OperationBuffer opbuf;
121         Operation *op;
122
123         MDB_cursor *curs;
124         MDB_val key, data;
125         MDB_txn *txn;
126         ID id;
127         Entry *e;
128         int rc, getnext = 1;
129         int i;
130
131         connection_fake_init( &conn, &opbuf, ctx );
132         op = &opbuf.ob_op;
133
134         op->o_bd = be;
135
136         id = 1;
137         key.mv_size = sizeof(ID);
138
139         while ( 1 ) {
140                 if ( slapd_shutdown )
141                         break;
142
143                 rc = mdb_txn_begin( mdb->mi_dbenv, NULL, 0, &txn );
144                 if ( rc )
145                         break;
146                 rc = mdb_cursor_open( txn, mdb->mi_id2entry, &curs );
147                 if ( rc ) {
148                         mdb_txn_abort( txn );
149                         break;
150                 }
151                 if ( getnext ) {
152                         getnext = 0;
153                         key.mv_data = &id;
154                         rc = mdb_cursor_get( curs, &key, &data, MDB_SET_RANGE );
155                         if ( rc ) {
156                                 mdb_txn_abort( txn );
157                                 if ( rc == MDB_NOTFOUND )
158                                         rc = 0;
159                                 break;
160                         }
161                         memcpy( &id, key.mv_data, sizeof( id ));
162                 }
163
164                 rc = mdb_id2entry( op, curs, id, &e );
165                 mdb_cursor_close( curs );
166                 if ( rc ) {
167                         mdb_txn_abort( txn );
168                         if ( rc == MDB_NOTFOUND ) {
169                                 id++;
170                                 getnext = 1;
171                                 continue;
172                         }
173                         break;
174                 }
175                 rc = mdb_index_entry( op, txn, MDB_INDEX_UPDATE_OP, e );
176                 mdb_entry_return( op, e );
177                 if ( rc == 0 ) {
178                         rc = mdb_txn_commit( txn );
179                         txn = NULL;
180                 } else {
181                         mdb_txn_abort( txn );
182                         txn = NULL;
183                 }
184                 if ( rc )
185                         break;
186                 id++;
187                 getnext = 1;
188         }
189
190         for ( i = 0; i < mdb->mi_nattrs; i++ ) {
191                 if ( mdb->mi_attrs[ i ]->ai_indexmask & MDB_INDEX_DELETING
192                         || mdb->mi_attrs[ i ]->ai_newmask == 0 )
193                 {
194                         continue;
195                 }
196                 mdb->mi_attrs[ i ]->ai_indexmask = mdb->mi_attrs[ i ]->ai_newmask;
197                 mdb->mi_attrs[ i ]->ai_newmask = 0;
198         }
199
200         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
201         ldap_pvt_runqueue_stoptask( &slapd_rq, rtask );
202         mdb->mi_index_task = NULL;
203         ldap_pvt_runqueue_remove( &slapd_rq, rtask );
204         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
205
206         return NULL;
207 }
208
209 /* Cleanup loose ends after Modify completes */
210 static int
211 mdb_cf_cleanup( ConfigArgs *c )
212 {
213         struct mdb_info *mdb = c->be->be_private;
214         int rc = 0;
215
216         if ( mdb->mi_flags & MDB_DEL_INDEX ) {
217                 mdb_attr_flush( mdb );
218                 mdb->mi_flags ^= MDB_DEL_INDEX;
219         }
220
221         if ( mdb->mi_flags & MDB_RE_OPEN ) {
222                 mdb->mi_flags ^= MDB_RE_OPEN;
223                 rc = c->be->bd_info->bi_db_close( c->be, &c->reply );
224                 if ( rc == 0 )
225                         rc = c->be->bd_info->bi_db_open( c->be, &c->reply );
226                 /* If this fails, we need to restart */
227                 if ( rc ) {
228                         slapd_shutdown = 2;
229                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
230                                 "failed to reopen database, rc=%d", rc );
231                         Debug( LDAP_DEBUG_ANY, LDAP_XSTRING(mdb_cf_cleanup)
232                                 ": %s\n", c->cr_msg, 0, 0 );
233                         rc = LDAP_OTHER;
234                 }
235         }
236
237         if ( mdb->mi_flags & MDB_OPEN_INDEX ) {
238                 rc = mdb_attr_dbs_open( c->be, NULL, &c->reply );
239                 if ( rc )
240                         rc = LDAP_OTHER;
241         }
242         return rc;
243 }
244
245 static int
246 mdb_cf_gen( ConfigArgs *c )
247 {
248         struct mdb_info *mdb = c->be->be_private;
249         int rc;
250
251         if ( c->op == SLAP_CONFIG_EMIT ) {
252                 rc = 0;
253                 switch( c->type ) {
254                 case MDB_MODE: {
255                         char buf[64];
256                         struct berval bv;
257                         bv.bv_len = snprintf( buf, sizeof(buf), "0%o", mdb->mi_dbenv_mode );
258                         if ( bv.bv_len > 0 && bv.bv_len < sizeof(buf) ) {
259                                 bv.bv_val = buf;
260                                 value_add_one( &c->rvalue_vals, &bv );
261                         } else {
262                                 rc = 1;
263                         }
264                         } break;
265
266                 case MDB_CHKPT:
267                         if ( mdb->mi_txn_cp ) {
268                                 char buf[64];
269                                 struct berval bv;
270                                 bv.bv_len = snprintf( buf, sizeof(buf), "%ld %ld",
271                                         (long) mdb->mi_txn_cp_kbyte, (long) mdb->mi_txn_cp_min );
272                                 if ( bv.bv_len > 0 && bv.bv_len < sizeof(buf) ) {
273                                         bv.bv_val = buf;
274                                         value_add_one( &c->rvalue_vals, &bv );
275                                 } else {
276                                         rc = 1;
277                                 }
278                         } else {
279                                 rc = 1;
280                         }
281                         break;
282
283                 case MDB_DIRECTORY:
284                         if ( mdb->mi_dbenv_home ) {
285                                 c->value_string = ch_strdup( mdb->mi_dbenv_home );
286                         } else {
287                                 rc = 1;
288                         }
289                         break;
290
291                 case MDB_DBNOSYNC:
292                         if ( mdb->mi_dbenv_flags & MDB_NOSYNC )
293                                 c->value_int = 1;
294                         break;
295
296                 case MDB_INDEX:
297                         mdb_attr_index_unparse( mdb, &c->rvalue_vals );
298                         if ( !c->rvalue_vals ) rc = 1;
299                         break;
300
301                 case MDB_SSTACK:
302                         c->value_int = mdb->mi_search_stack_depth;
303                         break;
304
305                 case MDB_MAXREADERS:
306                         c->value_int = mdb->mi_readers;
307                         break;
308
309                 case MDB_MAXSIZE:
310                         c->value_ulong = mdb->mi_mapsize;
311                         break;
312                 }
313                 return rc;
314         } else if ( c->op == LDAP_MOD_DELETE ) {
315                 rc = 0;
316                 switch( c->type ) {
317                 case MDB_MODE:
318 #if 0
319                         /* FIXME: does it make any sense to change the mode,
320                          * if we don't exec a chmod()? */
321                         mdb->bi_dbenv_mode = SLAPD_DEFAULT_DB_MODE;
322                         break;
323 #endif
324
325                 /* single-valued no-ops */
326                 case MDB_SSTACK:
327                 case MDB_MAXREADERS:
328                 case MDB_MAXSIZE:
329                         break;
330
331                 case MDB_CHKPT:
332                         if ( mdb->mi_txn_cp_task ) {
333                                 struct re_s *re = mdb->mi_txn_cp_task;
334                                 mdb->mi_txn_cp_task = NULL;
335                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
336                                 if ( ldap_pvt_runqueue_isrunning( &slapd_rq, re ) )
337                                         ldap_pvt_runqueue_stoptask( &slapd_rq, re );
338                                 ldap_pvt_runqueue_remove( &slapd_rq, re );
339                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
340                         }
341                         mdb->mi_txn_cp = 0;
342                         break;
343                 case MDB_DIRECTORY:
344                         mdb->mi_flags |= MDB_RE_OPEN;
345                         ch_free( mdb->mi_dbenv_home );
346                         mdb->mi_dbenv_home = NULL;
347                         c->cleanup = mdb_cf_cleanup;
348                         ldap_pvt_thread_pool_purgekey( mdb->mi_dbenv );
349                         break;
350                 case MDB_DBNOSYNC:
351                         mdb_env_set_flags( mdb->mi_dbenv, MDB_NOSYNC, 0 );
352                         break;
353                 case MDB_INDEX:
354                         if ( c->valx == -1 ) {
355                                 int i;
356
357                                 /* delete all (FIXME) */
358                                 for ( i = 0; i < mdb->mi_nattrs; i++ ) {
359                                         mdb->mi_attrs[i]->ai_indexmask |= MDB_INDEX_DELETING;
360                                 }
361                                 mdb->mi_flags |= MDB_DEL_INDEX;
362                                 c->cleanup = mdb_cf_cleanup;
363
364                         } else {
365                                 struct berval bv, def = BER_BVC("default");
366                                 char *ptr;
367
368                                 for (ptr = c->line; !isspace( (unsigned char) *ptr ); ptr++);
369
370                                 bv.bv_val = c->line;
371                                 bv.bv_len = ptr - bv.bv_val;
372                                 if ( bvmatch( &bv, &def )) {
373                                         mdb->mi_defaultmask = 0;
374
375                                 } else {
376                                         int i;
377                                         char **attrs;
378                                         char sep;
379
380                                         sep = bv.bv_val[ bv.bv_len ];
381                                         bv.bv_val[ bv.bv_len ] = '\0';
382                                         attrs = ldap_str2charray( bv.bv_val, "," );
383
384                                         for ( i = 0; attrs[ i ]; i++ ) {
385                                                 AttributeDescription *ad = NULL;
386                                                 const char *text;
387                                                 AttrInfo *ai;
388
389                                                 slap_str2ad( attrs[ i ], &ad, &text );
390                                                 /* if we got here... */
391                                                 assert( ad != NULL );
392
393                                                 ai = mdb_attr_mask( mdb, ad );
394                                                 /* if we got here... */
395                                                 assert( ai != NULL );
396
397                                                 ai->ai_indexmask |= MDB_INDEX_DELETING;
398                                                 mdb->mi_flags |= MDB_DEL_INDEX;
399                                                 c->cleanup = mdb_cf_cleanup;
400                                         }
401
402                                         bv.bv_val[ bv.bv_len ] = sep;
403                                         ldap_charray_free( attrs );
404                                 }
405                         }
406                         break;
407                 }
408                 return rc;
409         }
410
411         switch( c->type ) {
412         case MDB_MODE:
413                 if ( ASCII_DIGIT( c->argv[1][0] ) ) {
414                         long mode;
415                         char *next;
416                         errno = 0;
417                         mode = strtol( c->argv[1], &next, 0 );
418                         if ( errno != 0 || next == c->argv[1] || next[0] != '\0' ) {
419                                 fprintf( stderr, "%s: "
420                                         "unable to parse mode=\"%s\".\n",
421                                         c->log, c->argv[1] );
422                                 return 1;
423                         }
424                         mdb->mi_dbenv_mode = mode;
425
426                 } else {
427                         char *m = c->argv[1];
428                         int who, what, mode = 0;
429
430                         if ( strlen( m ) != STRLENOF("-rwxrwxrwx") ) {
431                                 return 1;
432                         }
433
434                         if ( m[0] != '-' ) {
435                                 return 1;
436                         }
437
438                         m++;
439                         for ( who = 0; who < 3; who++ ) {
440                                 for ( what = 0; what < 3; what++, m++ ) {
441                                         if ( m[0] == '-' ) {
442                                                 continue;
443                                         } else if ( m[0] != "rwx"[what] ) {
444                                                 return 1;
445                                         }
446                                         mode += ((1 << (2 - what)) << 3*(2 - who));
447                                 }
448                         }
449                         mdb->mi_dbenv_mode = mode;
450                 }
451                 break;
452         case MDB_CHKPT: {
453                 long    l;
454                 mdb->mi_txn_cp = 1;
455                 if ( lutil_atolx( &l, c->argv[1], 0 ) != 0 ) {
456                         fprintf( stderr, "%s: "
457                                 "invalid kbyte \"%s\" in \"checkpoint\".\n",
458                                 c->log, c->argv[1] );
459                         return 1;
460                 }
461                 mdb->mi_txn_cp_kbyte = l;
462                 if ( lutil_atolx( &l, c->argv[2], 0 ) != 0 ) {
463                         fprintf( stderr, "%s: "
464                                 "invalid minutes \"%s\" in \"checkpoint\".\n",
465                                 c->log, c->argv[2] );
466                         return 1;
467                 }
468                 mdb->mi_txn_cp_min = l;
469                 /* If we're in server mode and time-based checkpointing is enabled,
470                  * submit a task to perform periodic checkpoints.
471                  */
472                 if ((slapMode & SLAP_SERVER_MODE) && mdb->mi_txn_cp_min ) {
473                         struct re_s *re = mdb->mi_txn_cp_task;
474                         if ( re ) {
475                                 re->interval.tv_sec = mdb->mi_txn_cp_min * 60;
476                         } else {
477                                 if ( c->be->be_suffix == NULL || BER_BVISNULL( &c->be->be_suffix[0] ) ) {
478                                         fprintf( stderr, "%s: "
479                                                 "\"checkpoint\" must occur after \"suffix\".\n",
480                                                 c->log );
481                                         return 1;
482                                 }
483                                 ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
484                                 mdb->mi_txn_cp_task = ldap_pvt_runqueue_insert( &slapd_rq,
485                                         mdb->mi_txn_cp_min * 60, mdb_checkpoint, mdb,
486                                         LDAP_XSTRING(mdb_checkpoint), c->be->be_suffix[0].bv_val );
487                                 ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
488                         }
489                 }
490                 } break;
491
492         case MDB_DIRECTORY: {
493                 FILE *f;
494                 char *ptr, *testpath;
495                 int len;
496
497                 len = strlen( c->value_string );
498                 testpath = ch_malloc( len + STRLENOF(LDAP_DIRSEP) + STRLENOF("DUMMY") + 1 );
499                 ptr = lutil_strcopy( testpath, c->value_string );
500                 *ptr++ = LDAP_DIRSEP[0];
501                 strcpy( ptr, "DUMMY" );
502                 f = fopen( testpath, "w" );
503                 if ( f ) {
504                         fclose( f );
505                         unlink( testpath );
506                 }
507                 ch_free( testpath );
508                 if ( !f ) {
509                         snprintf( c->cr_msg, sizeof( c->cr_msg ), "%s: invalid path: %s",
510                                 c->log, strerror( errno ));
511                         Debug( LDAP_DEBUG_ANY, "%s\n", c->cr_msg, 0, 0 );
512                         return -1;
513                 }
514
515                 if ( mdb->mi_dbenv_home )
516                         ch_free( mdb->mi_dbenv_home );
517                 mdb->mi_dbenv_home = c->value_string;
518
519                 }
520                 break;
521
522         case MDB_DBNOSYNC:
523                 if ( c->value_int )
524                         mdb->mi_dbenv_flags |= MDB_NOSYNC;
525                 else
526                         mdb->mi_dbenv_flags ^= MDB_NOSYNC;
527                 if ( mdb->mi_flags & MDB_IS_OPEN ) {
528                         mdb_env_set_flags( mdb->mi_dbenv, MDB_NOSYNC,
529                                 c->value_int );
530                 }
531                 break;
532
533         case MDB_INDEX:
534                 rc = mdb_attr_index_config( mdb, c->fname, c->lineno,
535                         c->argc - 1, &c->argv[1], &c->reply);
536
537                 if( rc != LDAP_SUCCESS ) return 1;
538                 c->cleanup = mdb_cf_cleanup;
539                 mdb->mi_flags |= MDB_OPEN_INDEX;
540                 if (( mdb->mi_flags & MDB_IS_OPEN ) && !mdb->mi_index_task ) {
541                         /* Start the task as soon as we finish here. Set a long
542                          * interval (10 hours) so that it only gets scheduled once.
543                          */
544                         if ( c->be->be_suffix == NULL || BER_BVISNULL( &c->be->be_suffix[0] ) ) {
545                                 fprintf( stderr, "%s: "
546                                         "\"index\" must occur after \"suffix\".\n",
547                                         c->log );
548                                 return 1;
549                         }
550                         ldap_pvt_thread_mutex_lock( &slapd_rq.rq_mutex );
551                         mdb->mi_index_task = ldap_pvt_runqueue_insert( &slapd_rq, 36000,
552                                 mdb_online_index, c->be,
553                                 LDAP_XSTRING(mdb_online_index), c->be->be_suffix[0].bv_val );
554                         ldap_pvt_thread_mutex_unlock( &slapd_rq.rq_mutex );
555                 }
556                 break;
557
558         case MDB_SSTACK:
559                 if ( c->value_int < MINIMUM_SEARCH_STACK_DEPTH ) {
560                         fprintf( stderr,
561                 "%s: depth %d too small, using %d\n",
562                         c->log, c->value_int, MINIMUM_SEARCH_STACK_DEPTH );
563                         c->value_int = MINIMUM_SEARCH_STACK_DEPTH;
564                 }
565                 mdb->mi_search_stack_depth = c->value_int;
566                 break;
567
568         case MDB_MAXREADERS:
569                 mdb->mi_readers = c->value_int;
570                 if ( mdb->mi_flags & MDB_IS_OPEN ) {
571                         mdb->mi_flags |= MDB_RE_OPEN;
572                         c->cleanup = mdb_cf_cleanup;
573                 }
574                 break;
575
576         case MDB_MAXSIZE:
577                 mdb->mi_mapsize = c->value_ulong;
578                 if ( mdb->mi_flags & MDB_IS_OPEN ) {
579                         mdb->mi_flags |= MDB_RE_OPEN;
580                         c->cleanup = mdb_cf_cleanup;
581                 }
582                 break;
583
584         }
585         return 0;
586 }
587
588 int mdb_back_init_cf( BackendInfo *bi )
589 {
590         int rc;
591         bi->bi_cf_ocs = mdbocs;
592
593         rc = config_register_schema( mdbcfg, mdbocs );
594         if ( rc ) return rc;
595         return 0;
596 }