1 /* monitor.c - monitor bdb backend */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
5 * Copyright 2000-2007 The OpenLDAP Foundation.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted only as authorized by the OpenLDAP
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>.
20 #include <ac/string.h>
21 #include <ac/unistd.h>
22 #include <ac/stdlib.h>
28 #include "../back-monitor/back-monitor.h"
32 static ObjectClass *oc_olmBDBDatabase;
34 static AttributeDescription *ad_olmBDBEntryCache,
35 *ad_olmBDBDNCache, *ad_olmBDBIDLCache,
38 #ifdef BDB_MONITOR_IDX
40 bdb_monitor_idx_entry_add(
44 static AttributeDescription *ad_olmBDBNotIndexed;
45 #endif /* BDB_MONITOR_IDX */
48 * NOTE: there's some confusion in monitor OID arc;
49 * by now, let's consider:
51 * Subsystems monitor attributes 1.3.6.1.4.1.4203.666.1.55.0
52 * Databases monitor attributes 1.3.6.1.4.1.4203.666.1.55.0.1
53 * BDB database monitor attributes 1.3.6.1.4.1.4203.666.1.55.0.1.1
55 * Subsystems monitor objectclasses 1.3.6.1.4.1.4203.666.3.16.0
56 * Databases monitor objectclasses 1.3.6.1.4.1.4203.666.3.16.0.1
57 * BDB database monitor objectclasses 1.3.6.1.4.1.4203.666.3.16.0.1.1
64 { "olmBDBAttributes", "olmDatabaseAttributes:1" },
65 { "olmBDBObjectClasses", "olmDatabaseObjectClasses:1" },
72 AttributeDescription **ad;
74 { "( olmBDBAttributes:1 "
75 "NAME ( 'olmBDBEntryCache' ) "
76 "DESC 'Number of items in Entry Cache' "
78 "NO-USER-MODIFICATION "
79 "USAGE dSAOperation )",
80 &ad_olmBDBEntryCache },
82 { "( olmBDBAttributes:2 "
83 "NAME ( 'olmBDBDNCache' ) "
84 "DESC 'Number of items in DN Cache' "
86 "NO-USER-MODIFICATION "
87 "USAGE dSAOperation )",
90 { "( olmBDBAttributes:3 "
91 "NAME ( 'olmBDBIDLCache' ) "
92 "DESC 'Number of items in IDL Cache' "
94 "NO-USER-MODIFICATION "
95 "USAGE dSAOperation )",
98 { "( olmBDBAttributes:4 "
99 "NAME ( 'olmDbDirectory' ) "
100 "DESC 'Path name of the directory "
101 "where the database environment resides' "
103 "NO-USER-MODIFICATION "
104 "USAGE dSAOperation )",
105 &ad_olmDbDirectory },
107 #ifdef BDB_MONITOR_IDX
108 { "( olmBDBAttributes:5 "
109 "NAME ( 'olmBDBNotIndexed' ) "
110 "DESC 'Missing indexes resulting from candidate selection' "
112 "NO-USER-MODIFICATION "
113 "USAGE dSAOperation )",
114 &ad_olmBDBNotIndexed },
115 #endif /* BDB_MONITOR_IDX */
124 /* augments an existing object, so it must be AUXILIARY
125 * FIXME: derive from some ABSTRACT "monitoredEntity"? */
126 { "( olmBDBObjectClasses:1 "
127 "NAME ( 'olmBDBDatabase' ) "
134 #ifdef BDB_MONITOR_IDX
135 "$ olmBDBNotIndexed "
136 #endif /* BDB_MONITOR_IDX */
138 &oc_olmBDBDatabase },
150 struct bdb_info *bdb = (struct bdb_info *) priv;
156 assert( ad_olmBDBEntryCache != NULL );
158 a = attr_find( e->e_attrs, ad_olmBDBEntryCache );
161 bv.bv_len = snprintf( buf, sizeof( buf ), "%d", bdb->bi_cache.c_cursize );
162 ber_bvreplace( &a->a_vals[ 0 ], &bv );
164 a = attr_find( e->e_attrs, ad_olmBDBDNCache );
166 bv.bv_len = snprintf( buf, sizeof( buf ), "%d", bdb->bi_cache.c_eiused );
167 ber_bvreplace( &a->a_vals[ 0 ], &bv );
169 a = attr_find( e->e_attrs, ad_olmBDBIDLCache );
171 bv.bv_len = snprintf( buf, sizeof( buf ), "%d", bdb->bi_idl_cache_size );
172 ber_bvreplace( &a->a_vals[ 0 ], &bv );
174 #ifdef BDB_MONITOR_IDX
175 bdb_monitor_idx_entry_add( bdb, e );
176 #endif /* BDB_MONITOR_IDX */
178 return SLAP_CB_CONTINUE;
181 #if 0 /* uncomment if required */
189 return SLAP_CB_CONTINUE;
198 struct berval values[ 2 ];
199 Modification mod = { 0 };
202 char textbuf[ SLAP_TEXT_BUFLEN ];
206 /* NOTE: if slap_shutdown != 0, priv might have already been freed */
209 /* Remove objectClass */
210 mod.sm_op = LDAP_MOD_DELETE;
211 mod.sm_desc = slap_schema.si_ad_objectClass;
212 mod.sm_values = values;
213 values[ 0 ] = oc_olmBDBDatabase->soc_cname;
214 BER_BVZERO( &values[ 1 ] );
216 rc = modify_delete_values( e, &mod, 1, &text,
217 textbuf, sizeof( textbuf ) );
218 /* don't care too much about return code... */
221 for ( i = 0; s_at[ i ].desc != NULL; i++ ) {
222 mod.sm_desc = *s_at[ i ].ad;
223 mod.sm_values = NULL;
224 rc = modify_delete_values( e, &mod, 1, &text,
225 textbuf, sizeof( textbuf ) );
226 /* don't care too much about return code... */
229 return SLAP_CB_CONTINUE;
232 #define bdb_monitor_initialize BDB_SYMBOL(monitor_initialize)
235 * call from within bdb_initialize()
238 bdb_monitor_initialize( void )
244 static int bdb_monitor_initialized = 0;
246 if ( backend_info( "monitor" ) == NULL ) {
250 if ( bdb_monitor_initialized++ ) {
254 /* register schema here */
256 argv[ 0 ] = "back-bdb/back-hdb monitor";
261 for ( i = 0; s_oid[ i ].name; i++ ) {
263 argv[ 1 ] = s_oid[ i ].name;
264 argv[ 2 ] = s_oid[ i ].oid;
266 if ( parse_oidm( &c, 0, NULL ) != 0 ) {
267 Debug( LDAP_DEBUG_ANY,
268 "bdb_monitor_initialize: unable to add "
269 "objectIdentifier \"%s=%s\"\n",
270 s_oid[ i ].name, s_oid[ i ].oid, 0 );
275 for ( i = 0; s_at[ i ].desc != NULL; i++ ) {
276 code = register_at( s_at[ i ].desc, s_at[ i ].ad, 1 );
277 if ( code != LDAP_SUCCESS ) {
278 Debug( LDAP_DEBUG_ANY,
279 "bdb_monitor_initialize: register_at failed\n",
282 (*s_at[ i ].ad)->ad_type->sat_flags |= SLAP_AT_HIDE;
285 for ( i = 0; s_oc[ i ].desc != NULL; i++ ) {
286 code = register_oc( s_oc[ i ].desc, s_oc[ i ].oc, 1 );
287 if ( code != LDAP_SUCCESS ) {
288 Debug( LDAP_DEBUG_ANY,
289 "bdb_monitor_initialize: register_oc failed\n",
292 (*s_oc[ i ].oc)->soc_flags |= SLAP_OC_HIDE;
299 * call from within bdb_db_init()
302 bdb_monitor_db_init( BackendDB *be )
304 struct bdb_info *bdb = (struct bdb_info *) be->be_private;
306 if ( SLAP_GLUE_SUBORDINATE( be ) ) {
310 if ( bdb_monitor_initialize() == LDAP_SUCCESS ) {
311 /* monitoring in back-bdb is on by default */
312 SLAP_DBFLAGS( be ) |= SLAP_DBFLAG_MONITORING;
315 #ifdef BDB_MONITOR_IDX
317 ldap_pvt_thread_mutex_init( &bdb->bi_idx_mutex );
318 #endif /* BDB_MONITOR_IDX */
320 bdb->bi_monitor.bdm_scope = -1;
326 * call from within bdb_db_open()
329 bdb_monitor_db_open( BackendDB *be )
331 struct bdb_info *bdb = (struct bdb_info *) be->be_private;
333 monitor_callback_t *cb = NULL;
334 struct berval suffix, *filter, *base;
338 monitor_extra_t *mbe;
340 if ( !SLAP_DBMONITORING( be ) ) {
344 if ( SLAP_GLUE_SUBORDINATE( be ) ) {
348 mi = backend_info( "monitor" );
349 if ( !mi || !mi->bi_extra ) {
350 SLAP_DBFLAGS( be ) ^= SLAP_DBFLAG_MONITORING;
355 /* don't bother if monitor is not configured */
356 if ( !mbe->is_configured() ) {
357 static int warning = 0;
359 if ( warning++ == 0 ) {
360 Debug( LDAP_DEBUG_ANY, "bdb_monitor_open: "
361 "monitoring disabled; "
362 "configure monitor database to enable\n",
369 if ( bdb->bi_monitor.bdm_scope == -1 ) {
370 bdb->bi_monitor.bdm_scope = LDAP_SCOPE_ONELEVEL;
372 base = &bdb->bi_monitor.bdm_nbase;
373 BER_BVSTR( base, "cn=databases,cn=monitor" );
374 filter = &bdb->bi_monitor.bdm_filter;
375 BER_BVZERO( filter );
377 suffix.bv_len = ldap_bv2escaped_filter_value_len( &be->be_nsuffix[ 0 ] );
378 if ( suffix.bv_len == be->be_nsuffix[ 0 ].bv_len ) {
379 suffix = be->be_nsuffix[ 0 ];
382 ldap_bv2escaped_filter_value( &be->be_nsuffix[ 0 ], &suffix );
385 if ( BER_BVISEMPTY( &suffix ) ) {
386 /* frontend also has empty suffix, sigh! */
387 filter->bv_len = STRLENOF( "(&(namingContexts:distinguishedNameMatch:=" )
388 + suffix.bv_len + STRLENOF( ")(!(cn=frontend)))" );
389 ptr = filter->bv_val = ch_malloc( filter->bv_len + 1 );
390 ptr = lutil_strcopy( ptr, "(&(namingContexts:distinguishedNameMatch:=" );
391 ptr = lutil_strncopy( ptr, suffix.bv_val, suffix.bv_len );
392 ptr = lutil_strcopy( ptr, ")(!(cn=frontend)))" );
395 /* just look for the naming context */
396 filter->bv_len = STRLENOF( "(namingContexts:distinguishedNameMatch:=" )
397 + suffix.bv_len + STRLENOF( ")" );
398 ptr = filter->bv_val = ch_malloc( filter->bv_len + 1 );
399 ptr = lutil_strcopy( ptr, "(namingContexts:distinguishedNameMatch:=" );
400 ptr = lutil_strncopy( ptr, suffix.bv_val, suffix.bv_len );
401 ptr = lutil_strcopy( ptr, ")" );
404 assert( filter->bv_len == ptr - filter->bv_val );
406 if ( suffix.bv_val != be->be_nsuffix[ 0 ].bv_val ) {
407 ch_free( suffix.bv_val );
410 /* alloc as many as required (plus 1 for objectClass) */
411 a = attrs_alloc( 1 + 4 );
417 a->a_desc = slap_schema.si_ad_objectClass;
418 value_add_one( &a->a_vals, &oc_olmBDBDatabase->soc_cname );
419 a->a_nvals = a->a_vals;
423 struct berval bv = BER_BVC( "0" );
425 next->a_desc = ad_olmBDBEntryCache;
426 value_add_one( &next->a_vals, &bv );
427 next->a_nvals = next->a_vals;
430 next->a_desc = ad_olmBDBDNCache;
431 value_add_one( &next->a_vals, &bv );
432 next->a_nvals = next->a_vals;
435 next->a_desc = ad_olmBDBIDLCache;
436 value_add_one( &next->a_vals, &bv );
437 next->a_nvals = next->a_vals;
442 struct berval bv, nbv;
443 ber_len_t pathlen = 0, len = 0;
444 char path[ PATH_MAX ] = { '\0' };
445 char *fname = bdb->bi_dbenv_home,
448 len = strlen( fname );
449 if ( fname[ 0 ] != '/' ) {
450 /* get full path name */
451 getcwd( path, sizeof( path ) );
452 pathlen = strlen( path );
454 if ( fname[ 0 ] == '.' && fname[ 1 ] == '/' ) {
460 bv.bv_len = pathlen + STRLENOF( "/" ) + len;
461 ptr = bv.bv_val = ch_malloc( bv.bv_len + STRLENOF( "/" ) + 1 );
463 ptr = lutil_strncopy( ptr, path, pathlen );
467 ptr = lutil_strncopy( ptr, fname, len );
468 if ( ptr[ -1 ] != '/' ) {
474 attr_normalize_one( ad_olmDbDirectory, &bv, &nbv, NULL );
476 next->a_desc = ad_olmDbDirectory;
477 next->a_vals = ch_calloc( sizeof( struct berval ), 2 );
478 next->a_vals[ 0 ] = bv;
480 if ( BER_BVISNULL( &nbv ) ) {
481 next->a_nvals = next->a_vals;
484 next->a_nvals = ch_calloc( sizeof( struct berval ), 2 );
485 next->a_nvals[ 0 ] = nbv;
491 cb = ch_calloc( sizeof( monitor_callback_t ), 1 );
492 cb->mc_update = bdb_monitor_update;
493 #if 0 /* uncomment if required */
494 cb->mc_modify = bdb_monitor_modify;
496 cb->mc_free = bdb_monitor_free;
497 cb->mc_private = (void *)bdb;
499 /* make sure the database is registered; then add monitor attributes */
500 rc = mbe->register_database( be );
502 rc = mbe->register_entry_attrs( NULL, a, cb,
503 base, bdb->bi_monitor.bdm_scope, filter );
518 if ( !BER_BVISNULL( filter ) ) {
519 ch_free( filter->bv_val );
520 BER_BVZERO( filter );
524 /* store for cleanup */
525 bdb->bi_monitor.bdm_cb = (void *)cb;
527 /* we don't need to keep track of the attributes, because
528 * bdb_monitor_free() takes care of everything */
537 * call from within bdb_db_close()
540 bdb_monitor_db_close( BackendDB *be )
542 struct bdb_info *bdb = (struct bdb_info *) be->be_private;
544 if ( SLAP_GLUE_SUBORDINATE( be ) ) {
548 if ( !BER_BVISNULL( &bdb->bi_monitor.bdm_filter ) ) {
549 BackendInfo *mi = backend_info( "monitor" );
550 monitor_extra_t *mbe;
552 if ( mi && &mi->bi_extra ) {
554 mbe->unregister_entry_callback( NULL,
555 (monitor_callback_t *)bdb->bi_monitor.bdm_cb,
556 &bdb->bi_monitor.bdm_nbase,
557 bdb->bi_monitor.bdm_scope,
558 &bdb->bi_monitor.bdm_filter );
561 if ( !BER_BVISNULL( &bdb->bi_monitor.bdm_filter ) ) {
562 ch_free( bdb->bi_monitor.bdm_filter.bv_val );
565 memset( &bdb->bi_monitor, 0, sizeof( bdb->bi_monitor ) );
572 * call from within bdb_db_destroy()
575 bdb_monitor_db_destroy( BackendDB *be )
577 if ( SLAP_GLUE_SUBORDINATE( be ) ) {
581 #ifdef BDB_MONITOR_IDX
583 struct bdb_info *bdb = (struct bdb_info *) be->be_private;
585 /* TODO: free tree */
586 ldap_pvt_thread_mutex_destroy( &bdb->bi_idx_mutex );
587 avl_free( bdb->bi_idx, ch_free );
589 #endif /* BDB_MONITOR_IDX */
594 #ifdef BDB_MONITOR_IDX
596 #define BDB_MONITOR_IDX_TYPES (4)
598 typedef struct monitor_idx_t monitor_idx_t;
600 struct monitor_idx_t {
601 AttributeDescription *idx_ad;
602 unsigned long idx_count[BDB_MONITOR_IDX_TYPES];
606 bdb_monitor_bitmask2key( slap_mask_t bitmask )
610 for ( key = 0; key < 8*sizeof(slap_mask_t) && !( bitmask & 0x1U ); key++ ) {
617 static struct berval idxbv[] = {
618 BER_BVC( "present=" ),
619 BER_BVC( "equality=" ),
620 BER_BVC( "approx=" ),
621 BER_BVC( "substr=" ),
626 bdb_monitor_idx2len( monitor_idx_t *idx )
631 for ( i = 0; i < BDB_MONITOR_IDX_TYPES; i++ ) {
632 if ( idx->idx_count[ i ] != 0 ) {
633 len += idxbv[i].bv_len;
641 monitor_idx_cmp( const void *p1, const void *p2 )
643 const monitor_idx_t *idx1 = (const monitor_idx_t *)p1;
644 const monitor_idx_t *idx2 = (const monitor_idx_t *)p2;
646 return SLAP_PTRCMP( idx1->idx_ad, idx2->idx_ad );
650 monitor_idx_dup( void *p1, void *p2 )
652 monitor_idx_t *idx1 = (monitor_idx_t *)p1;
653 monitor_idx_t *idx2 = (monitor_idx_t *)p2;
655 return SLAP_PTRCMP( idx1->idx_ad, idx2->idx_ad ) == 0 ? -1 : 0;
660 struct bdb_info *bdb,
661 AttributeDescription *desc,
664 monitor_idx_t idx_dummy = { 0 },
668 idx_dummy.idx_ad = desc;
669 key = bdb_monitor_bitmask2key( type ) - 1;
670 if ( key >= BDB_MONITOR_IDX_TYPES ) {
671 /* invalid index type */
675 ldap_pvt_thread_mutex_lock( &bdb->bi_idx_mutex );
677 idx = (monitor_idx_t *)avl_find( bdb->bi_idx,
678 (caddr_t)&idx_dummy, monitor_idx_cmp );
680 idx = (monitor_idx_t *)ch_calloc( sizeof( monitor_idx_t ), 1 );
682 idx->idx_count[ key ] = 1;
684 switch ( avl_insert( &bdb->bi_idx, (caddr_t)idx,
685 monitor_idx_cmp, monitor_idx_dup ) )
696 idx->idx_count[ key ]++;
699 ldap_pvt_thread_mutex_unlock( &bdb->bi_idx_mutex );
705 bdb_monitor_idx_apply( void *v_idx, void *v_valp )
707 monitor_idx_t *idx = (monitor_idx_t *)v_idx;
708 BerVarray *valp = (BerVarray *)v_valp;
712 char count_buf[ BDB_MONITOR_IDX_TYPES ][ SLAP_TEXT_BUFLEN ];
713 ber_len_t count_len[ BDB_MONITOR_IDX_TYPES ],
717 idx_len = bdb_monitor_idx2len( idx );
720 for ( i = 0; i < BDB_MONITOR_IDX_TYPES; i++ ) {
721 if ( idx->idx_count[ i ] == 0 ) {
725 count_len[ i ] = snprintf( count_buf[ i ],
726 sizeof( count_buf[ i ] ), "%lu", idx->idx_count[ i ] );
727 bv.bv_len += count_len[ i ];
731 bv.bv_len += idx->idx_ad->ad_cname.bv_len
734 ptr = bv.bv_val = ch_malloc( bv.bv_len + 1 );
735 ptr = lutil_strcopy( ptr, idx->idx_ad->ad_cname.bv_val );
736 for ( i = 0; i < BDB_MONITOR_IDX_TYPES; i++ ) {
737 if ( idx->idx_count[ i ] == 0 ) {
743 ptr = lutil_strcopy( ptr, idxbv[ i ].bv_val );
744 ptr = lutil_strcopy( ptr, count_buf[ i ] );
747 ber_bvarray_add( valp, &bv );
753 bdb_monitor_idx_entry_add(
754 struct bdb_info *bdb,
757 BerVarray vals = NULL;
760 a = attr_find( e->e_attrs, ad_olmBDBNotIndexed );
762 ldap_pvt_thread_mutex_lock( &bdb->bi_idx_mutex );
764 avl_apply( bdb->bi_idx, bdb_monitor_idx_apply,
765 &vals, -1, AVL_INORDER );
767 ldap_pvt_thread_mutex_unlock( &bdb->bi_idx_mutex );
769 if ( vals != NULL ) {
771 assert( a->a_nvals == a->a_vals );
773 ber_bvarray_free( a->a_vals );
778 for ( ap = &e->e_attrs; *ap != NULL; ap = &(*ap)->a_next )
780 *ap = attr_alloc( ad_olmBDBNotIndexed );
784 a->a_nvals = a->a_vals;
790 #endif /* BDB_MONITOR_IDX */