/* lastmod.c - returns last modification info */
/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
*
* Copyright 2004-2007 The OpenLDAP Foundation.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted only as authorized by the OpenLDAP
* Public License.
*
* A copy of this license is available in the file LICENSE in the
* top-level directory of the distribution or, alternatively, at
* <http://www.OpenLDAP.org/license.html>.
*/
/* ACKNOWLEDGEMENTS:
* This work was initially developed by Pierangelo Masarati for inclusion in
* OpenLDAP Software.
*/
#include "portable.h"
#ifdef SLAPD_OVER_LASTMOD
#include <stdio.h>
#include <ac/string.h>
#include <ac/socket.h>
#include "slap.h"
#include "lutil.h"
typedef struct lastmod_info_t {
struct berval lmi_rdnvalue;
Entry *lmi_e;
ldap_pvt_thread_mutex_t lmi_entry_mutex;
int lmi_enabled;
} lastmod_info_t;
struct lastmod_schema_t {
ObjectClass *lms_oc_lastmod;
AttributeDescription *lms_ad_lastmodDN;
AttributeDescription *lms_ad_lastmodType;
AttributeDescription *lms_ad_lastmodEnabled;
} lastmod_schema;
enum lastmodType_e {
LASTMOD_ADD = 0,
LASTMOD_DELETE,
LASTMOD_EXOP,
LASTMOD_MODIFY,
LASTMOD_MODRDN,
LASTMOD_UNKNOWN
};
struct berval lastmodType[] = {
BER_BVC( "add" ),
BER_BVC( "delete" ),
BER_BVC( "exop" ),
BER_BVC( "modify" ),
BER_BVC( "modrdn" ),
BER_BVC( "unknown" ),
BER_BVNULL
};
static struct m_s {
char *name;
char *schema;
slap_mask_t flags;
int offset;
} moc[] = {
{ "lastmod", "( 1.3.6.1.4.1.4203.666.3.13"
"NAME 'lastmod' "
"DESC 'OpenLDAP per-database last modification monitoring' "
"STRUCTURAL "
"SUP top "
"MUST cn "
"MAY ( "
"lastmodDN "
"$ lastmodType "
"$ description "
"$ seeAlso "
") )", SLAP_OC_OPERATIONAL|SLAP_OC_HIDE,
offsetof( struct lastmod_schema_t, lms_oc_lastmod ) },
{ NULL }
}, mat[] = {
{ "lastmodDN", "( 1.3.6.1.4.1.4203.666.1.28"
"NAME 'lastmodDN' "
"DESC 'DN of last modification' "
"EQUALITY distinguishedNameMatch "
"SYNTAX 1.3.6.1.4.1.1466.115.121.1.12 "
"NO-USER-MODIFICATION "
"USAGE directoryOperation )", SLAP_AT_HIDE,
offsetof( struct lastmod_schema_t, lms_ad_lastmodDN ) },
{ "lastmodType", "( 1.3.6.1.4.1.4203.666.1.29"
"NAME 'lastmodType' "
"DESC 'Type of last modification' "
"SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 "
"EQUALITY caseIgnoreMatch "
"SINGLE-VALUE "
"NO-USER-MODIFICATION "
"USAGE directoryOperation )", SLAP_AT_HIDE,
offsetof( struct lastmod_schema_t, lms_ad_lastmodType ) },
{ "lastmodEnabled", "( 1.3.6.1.4.1.4203.666.1.30"
"NAME 'lastmodEnabled' "
"DESC 'Lastmod overlay state' "
"SYNTAX 1.3.6.1.4.1.1466.115.121.1.7 "
"EQUALITY booleanMatch "
"SINGLE-VALUE )", 0,
offsetof( struct lastmod_schema_t, lms_ad_lastmodEnabled ) },
{ NULL }
/* FIXME: what about UUID of last modified entry? */
};
static int
lastmod_search( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
int rc;
/* if we get here, it must be a success */
rs->sr_err = LDAP_SUCCESS;
ldap_pvt_thread_mutex_lock( &lmi->lmi_entry_mutex );
rc = test_filter( op, lmi->lmi_e, op->oq_search.rs_filter );
if ( rc == LDAP_COMPARE_TRUE ) {
rs->sr_attrs = op->ors_attrs;
rs->sr_flags = 0;
rs->sr_entry = lmi->lmi_e;
rs->sr_err = send_search_entry( op, rs );
rs->sr_entry = NULL;
rs->sr_flags = 0;
rs->sr_attrs = NULL;
}
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
send_ldap_result( op, rs );
return 0;
}
static int
lastmod_compare( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
Attribute *a;
ldap_pvt_thread_mutex_lock( &lmi->lmi_entry_mutex );
if ( get_assert( op ) &&
( test_filter( op, lmi->lmi_e, get_assertion( op ) ) != LDAP_COMPARE_TRUE ) )
{
rs->sr_err = LDAP_ASSERTION_FAILED;
goto return_results;
}
rs->sr_err = access_allowed( op, lmi->lmi_e, op->oq_compare.rs_ava->aa_desc,
&op->oq_compare.rs_ava->aa_value, ACL_COMPARE, NULL );
if ( ! rs->sr_err ) {
rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
goto return_results;
}
rs->sr_err = LDAP_NO_SUCH_ATTRIBUTE;
for ( a = attr_find( lmi->lmi_e->e_attrs, op->oq_compare.rs_ava->aa_desc );
a != NULL;
a = attr_find( a->a_next, op->oq_compare.rs_ava->aa_desc ) )
{
rs->sr_err = LDAP_COMPARE_FALSE;
if ( value_find_ex( op->oq_compare.rs_ava->aa_desc,
SLAP_MR_ATTRIBUTE_VALUE_NORMALIZED_MATCH |
SLAP_MR_ASSERTED_VALUE_NORMALIZED_MATCH,
a->a_nvals, &op->oq_compare.rs_ava->aa_value, op->o_tmpmemctx ) == 0 )
{
rs->sr_err = LDAP_COMPARE_TRUE;
break;
}
}
return_results:;
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
send_ldap_result( op, rs );
if( rs->sr_err == LDAP_COMPARE_FALSE || rs->sr_err == LDAP_COMPARE_TRUE ) {
rs->sr_err = LDAP_SUCCESS;
}
return rs->sr_err;
}
static int
lastmod_exop( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
/* Temporary */
op->o_bd->bd_info = (BackendInfo *)on->on_info;
rs->sr_err = LDAP_UNWILLING_TO_PERFORM;
rs->sr_text = "not allowed within namingContext";
send_ldap_result( op, rs );
rs->sr_text = NULL;
return -1;
}
static int
lastmod_modify( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
Modifications *ml;
ldap_pvt_thread_mutex_lock( &lmi->lmi_entry_mutex );
if ( !acl_check_modlist( op, lmi->lmi_e, op->orm_modlist ) ) {
rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
goto cleanup;
}
for ( ml = op->orm_modlist; ml; ml = ml->sml_next ) {
Attribute *a;
if ( ml->sml_desc != lastmod_schema.lms_ad_lastmodEnabled ) {
continue;
}
if ( ml->sml_op != LDAP_MOD_REPLACE ) {
rs->sr_text = "unsupported mod type";
rs->sr_err = LDAP_UNWILLING_TO_PERFORM;
goto cleanup;
}
a = attr_find( lmi->lmi_e->e_attrs, ml->sml_desc );
if ( a == NULL ) {
rs->sr_text = "lastmod overlay internal error";
rs->sr_err = LDAP_OTHER;
goto cleanup;
}
ch_free( a->a_vals[ 0 ].bv_val );
ber_dupbv( &a->a_vals[ 0 ], &ml->sml_values[ 0 ] );
if ( a->a_nvals ) {
ch_free( a->a_nvals[ 0 ].bv_val );
if ( ml->sml_nvalues && !BER_BVISNULL( &ml->sml_nvalues[ 0 ] ) ) {
ber_dupbv( &a->a_nvals[ 0 ], &ml->sml_nvalues[ 0 ] );
} else {
ber_dupbv( &a->a_nvals[ 0 ], &ml->sml_values[ 0 ] );
}
}
if ( strcmp( ml->sml_values[ 0 ].bv_val, "TRUE" ) == 0 ) {
lmi->lmi_enabled = 1;
} else if ( strcmp( ml->sml_values[ 0 ].bv_val, "FALSE" ) == 0 ) {
lmi->lmi_enabled = 0;
} else {
assert( 0 );
}
}
rs->sr_err = LDAP_SUCCESS;
cleanup:;
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
send_ldap_result( op, rs );
rs->sr_text = NULL;
return rs->sr_err;
}
static int
lastmod_op_func( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
Modifications *ml;
if ( dn_match( &op->o_req_ndn, &lmi->lmi_e->e_nname ) ) {
switch ( op->o_tag ) {
case LDAP_REQ_SEARCH:
if ( op->ors_scope != LDAP_SCOPE_BASE ) {
goto return_referral;
}
/* process */
return lastmod_search( op, rs );
case LDAP_REQ_COMPARE:
return lastmod_compare( op, rs );
case LDAP_REQ_EXTENDED:
/* if write, reject; otherwise process */
if ( exop_is_write( op )) {
rs->sr_err = LDAP_UNWILLING_TO_PERFORM;
rs->sr_text = "not allowed within namingContext";
goto return_error;
}
return lastmod_exop( op, rs );
case LDAP_REQ_MODIFY:
/* allow only changes to overlay status */
for ( ml = op->orm_modlist; ml; ml = ml->sml_next ) {
if ( ad_cmp( ml->sml_desc, slap_schema.si_ad_modifiersName ) != 0
&& ad_cmp( ml->sml_desc, slap_schema.si_ad_modifyTimestamp ) != 0
&& ad_cmp( ml->sml_desc, slap_schema.si_ad_entryCSN ) != 0
&& ad_cmp( ml->sml_desc, lastmod_schema.lms_ad_lastmodEnabled ) != 0 )
{
rs->sr_err = LDAP_UNWILLING_TO_PERFORM;
rs->sr_text = "not allowed within namingContext";
goto return_error;
}
}
return lastmod_modify( op, rs );
default:
rs->sr_err = LDAP_UNWILLING_TO_PERFORM;
rs->sr_text = "not allowed within namingContext";
goto return_error;
}
}
if ( dnIsSuffix( &op->o_req_ndn, &lmi->lmi_e->e_nname ) ) {
goto return_referral;
}
return SLAP_CB_CONTINUE;
return_referral:;
op->o_bd->bd_info = (BackendInfo *)on->on_info;
rs->sr_ref = referral_rewrite( default_referral,
NULL, &op->o_req_dn, op->ors_scope );
if ( !rs->sr_ref ) {
rs->sr_ref = default_referral;
}
rs->sr_err = LDAP_REFERRAL;
send_ldap_result( op, rs );
if ( rs->sr_ref != default_referral ) {
ber_bvarray_free( rs->sr_ref );
}
rs->sr_ref = NULL;
return -1;
return_error:;
op->o_bd->bd_info = (BackendInfo *)on->on_info;
send_ldap_result( op, rs );
rs->sr_text = NULL;
return -1;
}
static int
best_guess( Operation *op,
struct berval *bv_entryCSN, struct berval *bv_nentryCSN,
struct berval *bv_modifyTimestamp, struct berval *bv_nmodifyTimestamp,
struct berval *bv_modifiersName, struct berval *bv_nmodifiersName )
{
if ( bv_entryCSN ) {
char csnbuf[ LDAP_LUTIL_CSNSTR_BUFSIZE ];
struct berval entryCSN;
entryCSN.bv_val = csnbuf;
entryCSN.bv_len = sizeof( csnbuf );
slap_get_csn( NULL, &entryCSN, 0 );
ber_dupbv( bv_entryCSN, &entryCSN );
ber_dupbv( bv_nentryCSN, &entryCSN );
}
if ( bv_modifyTimestamp ) {
char tmbuf[ LDAP_LUTIL_GENTIME_BUFSIZE ];
struct berval timestamp;
time_t currtime;
/* best guess */
#if 0
currtime = slap_get_time();
#endif
/* maybe we better use the time the operation was initiated */
currtime = op->o_time;
timestamp.bv_val = tmbuf;
timestamp.bv_len = sizeof(tmbuf);
slap_timestamp( &currtime, ×tamp );
ber_dupbv( bv_modifyTimestamp, ×tamp );
ber_dupbv( bv_nmodifyTimestamp, bv_modifyTimestamp );
}
if ( bv_modifiersName ) {
/* best guess */
ber_dupbv( bv_modifiersName, &op->o_dn );
ber_dupbv( bv_nmodifiersName, &op->o_ndn );
}
return 0;
}
static int
lastmod_update( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
Attribute *a;
Modifications *ml = NULL;
struct berval bv_entryCSN = BER_BVNULL,
bv_nentryCSN = BER_BVNULL,
bv_modifyTimestamp = BER_BVNULL,
bv_nmodifyTimestamp = BER_BVNULL,
bv_modifiersName = BER_BVNULL,
bv_nmodifiersName = BER_BVNULL,
bv_name = BER_BVNULL,
bv_nname = BER_BVNULL;
enum lastmodType_e lmt = LASTMOD_UNKNOWN;
Entry *e = NULL;
int rc = -1;
/* FIXME: timestamp? modifier? */
switch ( op->o_tag ) {
case LDAP_REQ_ADD:
lmt = LASTMOD_ADD;
e = op->ora_e;
a = attr_find( e->e_attrs, slap_schema.si_ad_entryCSN );
if ( a != NULL ) {
ber_dupbv( &bv_entryCSN, &a->a_vals[0] );
if ( a->a_nvals && !BER_BVISNULL( &a->a_nvals[0] ) ) {
ber_dupbv( &bv_nentryCSN, &a->a_nvals[0] );
} else {
ber_dupbv( &bv_nentryCSN, &a->a_vals[0] );
}
}
a = attr_find( e->e_attrs, slap_schema.si_ad_modifyTimestamp );
if ( a != NULL ) {
ber_dupbv( &bv_modifyTimestamp, &a->a_vals[0] );
if ( a->a_nvals && !BER_BVISNULL( &a->a_nvals[0] ) ) {
ber_dupbv( &bv_nmodifyTimestamp, &a->a_nvals[0] );
} else {
ber_dupbv( &bv_nmodifyTimestamp, &a->a_vals[0] );
}
}
a = attr_find( e->e_attrs, slap_schema.si_ad_modifiersName );
if ( a != NULL ) {
ber_dupbv( &bv_modifiersName, &a->a_vals[0] );
ber_dupbv( &bv_nmodifiersName, &a->a_nvals[0] );
}
ber_dupbv( &bv_name, &e->e_name );
ber_dupbv( &bv_nname, &e->e_nname );
break;
case LDAP_REQ_DELETE:
lmt = LASTMOD_DELETE;
best_guess( op, &bv_entryCSN, &bv_nentryCSN,
&bv_modifyTimestamp, &bv_nmodifyTimestamp,
&bv_modifiersName, &bv_nmodifiersName );
ber_dupbv( &bv_name, &op->o_req_dn );
ber_dupbv( &bv_nname, &op->o_req_ndn );
break;
case LDAP_REQ_EXTENDED:
lmt = LASTMOD_EXOP;
/* actually, password change is wrapped around a backend
* call to modify, so it never shows up as an exop... */
best_guess( op, &bv_entryCSN, &bv_nentryCSN,
&bv_modifyTimestamp, &bv_nmodifyTimestamp,
&bv_modifiersName, &bv_nmodifiersName );
ber_dupbv( &bv_name, &op->o_req_dn );
ber_dupbv( &bv_nname, &op->o_req_ndn );
break;
case LDAP_REQ_MODIFY:
lmt = LASTMOD_MODIFY;
rc = 3;
for ( ml = op->orm_modlist; ml; ml = ml->sml_next ) {
if ( ad_cmp( ml->sml_desc , slap_schema.si_ad_modifiersName ) == 0 ) {
ber_dupbv( &bv_modifiersName, &ml->sml_values[0] );
ber_dupbv( &bv_nmodifiersName, &ml->sml_nvalues[0] );
rc--;
if ( !rc ) {
break;
}
} else if ( ad_cmp( ml->sml_desc, slap_schema.si_ad_entryCSN ) == 0 ) {
ber_dupbv( &bv_entryCSN, &ml->sml_values[0] );
if ( ml->sml_nvalues && !BER_BVISNULL( &ml->sml_nvalues[0] ) ) {
ber_dupbv( &bv_nentryCSN, &ml->sml_nvalues[0] );
} else {
ber_dupbv( &bv_nentryCSN, &ml->sml_values[0] );
}
rc --;
if ( !rc ) {
break;
}
} else if ( ad_cmp( ml->sml_desc, slap_schema.si_ad_modifyTimestamp ) == 0 ) {
ber_dupbv( &bv_modifyTimestamp, &ml->sml_values[0] );
if ( ml->sml_nvalues && !BER_BVISNULL( &ml->sml_nvalues[0] ) ) {
ber_dupbv( &bv_nmodifyTimestamp, &ml->sml_nvalues[0] );
} else {
ber_dupbv( &bv_nmodifyTimestamp, &ml->sml_values[0] );
}
rc --;
if ( !rc ) {
break;
}
}
}
/* if rooted at global overlay, opattrs are not yet in place */
if ( BER_BVISNULL( &bv_modifiersName ) ) {
best_guess( op, NULL, NULL, NULL, NULL, &bv_modifiersName, &bv_nmodifiersName );
}
if ( BER_BVISNULL( &bv_entryCSN ) ) {
best_guess( op, &bv_entryCSN, &bv_nentryCSN, NULL, NULL, NULL, NULL );
}
if ( BER_BVISNULL( &bv_modifyTimestamp ) ) {
best_guess( op, NULL, NULL, &bv_modifyTimestamp, &bv_nmodifyTimestamp, NULL, NULL );
}
ber_dupbv( &bv_name, &op->o_req_dn );
ber_dupbv( &bv_nname, &op->o_req_ndn );
break;
case LDAP_REQ_MODRDN:
lmt = LASTMOD_MODRDN;
e = NULL;
if ( op->orr_newSup && !BER_BVISNULL( op->orr_newSup ) ) {
build_new_dn( &bv_name, op->orr_newSup, &op->orr_newrdn, NULL );
build_new_dn( &bv_nname, op->orr_nnewSup, &op->orr_nnewrdn, NULL );
} else {
struct berval pdn;
dnParent( &op->o_req_dn, &pdn );
build_new_dn( &bv_name, &pdn, &op->orr_newrdn, NULL );
dnParent( &op->o_req_ndn, &pdn );
build_new_dn( &bv_nname, &pdn, &op->orr_nnewrdn, NULL );
}
if ( on->on_info->oi_orig->bi_entry_get_rw ) {
BackendInfo *bi = op->o_bd->bd_info;
int rc;
op->o_bd->bd_info = (BackendInfo *)on->on_info->oi_orig;
rc = (*op->o_bd->bd_info->bi_entry_get_rw)( op, &bv_name, NULL, NULL, 0, &e );
if ( rc == LDAP_SUCCESS ) {
a = attr_find( e->e_attrs, slap_schema.si_ad_modifiersName );
if ( a != NULL ) {
ber_dupbv( &bv_modifiersName, &a->a_vals[0] );
ber_dupbv( &bv_nmodifiersName, &a->a_nvals[0] );
}
a = attr_find( e->e_attrs, slap_schema.si_ad_entryCSN );
if ( a != NULL ) {
ber_dupbv( &bv_entryCSN, &a->a_vals[0] );
if ( a->a_nvals && !BER_BVISNULL( &a->a_nvals[0] ) ) {
ber_dupbv( &bv_nentryCSN, &a->a_nvals[0] );
} else {
ber_dupbv( &bv_nentryCSN, &a->a_vals[0] );
}
}
a = attr_find( e->e_attrs, slap_schema.si_ad_modifyTimestamp );
if ( a != NULL ) {
ber_dupbv( &bv_modifyTimestamp, &a->a_vals[0] );
if ( a->a_nvals && !BER_BVISNULL( &a->a_nvals[0] ) ) {
ber_dupbv( &bv_nmodifyTimestamp, &a->a_nvals[0] );
} else {
ber_dupbv( &bv_nmodifyTimestamp, &a->a_vals[0] );
}
}
assert( dn_match( &bv_name, &e->e_name ) );
assert( dn_match( &bv_nname, &e->e_nname ) );
(*op->o_bd->bd_info->bi_entry_release_rw)( op, e, 0 );
}
op->o_bd->bd_info = bi;
}
/* if !bi_entry_get_rw || bi_entry_get_rw failed for any reason... */
if ( e == NULL ) {
best_guess( op, &bv_entryCSN, &bv_nentryCSN,
&bv_modifyTimestamp, &bv_nmodifyTimestamp,
&bv_modifiersName, &bv_nmodifiersName );
}
break;
default:
return -1;
}
ldap_pvt_thread_mutex_lock( &lmi->lmi_entry_mutex );
#if 0
fprintf( stderr, "### lastmodDN: %s %s\n", bv_name.bv_val, bv_nname.bv_val );
#endif
a = attr_find( lmi->lmi_e->e_attrs, lastmod_schema.lms_ad_lastmodDN );
if ( a == NULL ) {
goto error_return;
}
ch_free( a->a_vals[0].bv_val );
a->a_vals[0] = bv_name;
ch_free( a->a_nvals[0].bv_val );
a->a_nvals[0] = bv_nname;
#if 0
fprintf( stderr, "### lastmodType: %s %s\n", lastmodType[ lmt ].bv_val, lastmodType[ lmt ].bv_val );
#endif
a = attr_find( lmi->lmi_e->e_attrs, lastmod_schema.lms_ad_lastmodType );
if ( a == NULL ) {
goto error_return;
}
ch_free( a->a_vals[0].bv_val );
ber_dupbv( &a->a_vals[0], &lastmodType[ lmt ] );
ch_free( a->a_nvals[0].bv_val );
ber_dupbv( &a->a_nvals[0], &lastmodType[ lmt ] );
#if 0
fprintf( stderr, "### modifiersName: %s %s\n", bv_modifiersName.bv_val, bv_nmodifiersName.bv_val );
#endif
a = attr_find( lmi->lmi_e->e_attrs, slap_schema.si_ad_modifiersName );
if ( a == NULL ) {
goto error_return;
}
ch_free( a->a_vals[0].bv_val );
a->a_vals[0] = bv_modifiersName;
ch_free( a->a_nvals[0].bv_val );
a->a_nvals[0] = bv_nmodifiersName;
#if 0
fprintf( stderr, "### modifyTimestamp: %s %s\n", bv_nmodifyTimestamp.bv_val, bv_modifyTimestamp.bv_val );
#endif
a = attr_find( lmi->lmi_e->e_attrs, slap_schema.si_ad_modifyTimestamp );
if ( a == NULL ) {
goto error_return;
}
ch_free( a->a_vals[0].bv_val );
a->a_vals[0] = bv_modifyTimestamp;
ch_free( a->a_nvals[0].bv_val );
a->a_nvals[0] = bv_nmodifyTimestamp;
#if 0
fprintf( stderr, "### entryCSN: %s %s\n", bv_nentryCSN.bv_val, bv_entryCSN.bv_val );
#endif
a = attr_find( lmi->lmi_e->e_attrs, slap_schema.si_ad_entryCSN );
if ( a == NULL ) {
goto error_return;
}
ch_free( a->a_vals[0].bv_val );
a->a_vals[0] = bv_entryCSN;
ch_free( a->a_nvals[0].bv_val );
a->a_nvals[0] = bv_nentryCSN;
rc = 0;
error_return:;
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
return rc;
}
static int
lastmod_response( Operation *op, SlapReply *rs )
{
slap_overinst *on = (slap_overinst *)op->o_bd->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
/* don't record failed operations */
switch ( rs->sr_err ) {
case LDAP_SUCCESS:
/* FIXME: other cases? */
break;
default:
return SLAP_CB_CONTINUE;
}
/* record only write operations */
switch ( op->o_tag ) {
case LDAP_REQ_ADD:
case LDAP_REQ_MODIFY:
case LDAP_REQ_MODRDN:
case LDAP_REQ_DELETE:
break;
case LDAP_REQ_EXTENDED:
/* if write, process */
if ( exop_is_write( op ))
break;
/* fall thru */
default:
return SLAP_CB_CONTINUE;
}
/* skip if disabled */
ldap_pvt_thread_mutex_lock( &lmi->lmi_entry_mutex );
if ( !lmi->lmi_enabled ) {
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
return SLAP_CB_CONTINUE;
}
ldap_pvt_thread_mutex_unlock( &lmi->lmi_entry_mutex );
(void)lastmod_update( op, rs );
return SLAP_CB_CONTINUE;
}
static int
lastmod_db_init(
BackendDB *be
)
{
slap_overinst *on = (slap_overinst *)be->bd_info;
lastmod_info_t *lmi;
if ( lastmod_schema.lms_oc_lastmod == NULL ) {
int i;
const char *text;
/* schema integration */
for ( i = 0; mat[i].name; i++ ) {
LDAPAttributeType *at;
int code;
const char *err;
AttributeDescription **ad;
at = ldap_str2attributetype( mat[i].schema, &code,
&err, LDAP_SCHEMA_ALLOW_ALL );
if ( !at ) {
Debug( LDAP_DEBUG_ANY, "lastmod_init: "
"in AttributeType '%s' %s before %s\n",
mat[i].name, ldap_scherr2str(code), err );
return -1;
}
if ( at->at_oid == NULL ) {
Debug( LDAP_DEBUG_ANY, "lastmod_init: "
"null OID for attributeType '%s'\n",
mat[i].name, 0, 0 );
return -1;
}
code = at_add(at, 0, NULL, &err);
if ( code ) {
Debug( LDAP_DEBUG_ANY, "lastmod_init: "
"%s in attributeType '%s'\n",
scherr2str(code), mat[i].name, 0 );
return -1;
}
ldap_memfree(at);
ad = ((AttributeDescription **)&(((char *)&lastmod_schema)[mat[i].offset]));
ad[0] = NULL;
if ( slap_str2ad( mat[i].name, ad, &text ) ) {
Debug( LDAP_DEBUG_ANY,
"lastmod_init: %s\n", text, 0, 0 );
return -1;
}
(*ad)->ad_type->sat_flags |= mat[i].flags;
}
for ( i = 0; moc[i].name; i++ ) {
LDAPObjectClass *oc;
int code;
const char *err;
ObjectClass *Oc;
oc = ldap_str2objectclass(moc[i].schema, &code, &err,
LDAP_SCHEMA_ALLOW_ALL );
if ( !oc ) {
Debug( LDAP_DEBUG_ANY,
"unable to parse lastmod objectClass '%s': "
"%s before %s\n" , moc[i].name,
ldap_scherr2str(code), err );
return -1;
}
if ( oc->oc_oid == NULL ) {
Debug( LDAP_DEBUG_ANY,
"objectClass '%s' has no OID\n" ,
moc[i].name, 0, 0 );
return -1;
}
code = oc_add(oc, 0, NULL, &err);
if ( code ) {
Debug( LDAP_DEBUG_ANY,
"objectClass '%s': %s \"%s\"\n" ,
moc[i].name, scherr2str(code), err );
return -1;
}
ldap_memfree(oc);
Oc = oc_find( moc[i].name );
if ( Oc == NULL ) {
Debug( LDAP_DEBUG_ANY, "lastmod_init: "
"unable to find objectClass %s "
"(just added)\n", moc[i].name, 0, 0 );
return -1;
}
Oc->soc_flags |= moc[i].flags;
((ObjectClass **)&(((char *)&lastmod_schema)[moc[i].offset]))[0] = Oc;
}
}
lmi = (lastmod_info_t *)ch_malloc( sizeof( lastmod_info_t ) );
memset( lmi, 0, sizeof( lastmod_info_t ) );
lmi->lmi_enabled = 1;
on->on_bi.bi_private = lmi;
return 0;
}
static int
lastmod_db_config(
BackendDB *be,
const char *fname,
int lineno,
int argc,
char **argv
)
{
slap_overinst *on = (slap_overinst *)be->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
if ( strcasecmp( argv[ 0 ], "lastmod-rdnvalue" ) == 0 ) {
if ( lmi->lmi_rdnvalue.bv_val ) {
/* already defined! */
ch_free( lmi->lmi_rdnvalue.bv_val );
}
ber_str2bv( argv[ 1 ], 0, 1, &lmi->lmi_rdnvalue );
} else if ( strcasecmp( argv[ 0 ], "lastmod-enabled" ) == 0 ) {
if ( strcasecmp( argv[ 1 ], "yes" ) == 0 ) {
lmi->lmi_enabled = 1;
} else if ( strcasecmp( argv[ 1 ], "no" ) == 0 ) {
lmi->lmi_enabled = 0;
} else {
return -1;
}
} else {
return SLAP_CONF_UNKNOWN;
}
return 0;
}
static int
lastmod_db_open(
BackendDB *be
)
{
slap_overinst *on = (slap_overinst *) be->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
char buf[ 8192 ];
static char tmbuf[ LDAP_LUTIL_GENTIME_BUFSIZE ];
char csnbuf[ LDAP_LUTIL_CSNSTR_BUFSIZE ];
struct berval entryCSN;
struct berval timestamp;
if ( !SLAP_LASTMOD( be ) ) {
fprintf( stderr, "set \"lastmod on\" to make this overlay effective\n" );
return -1;
}
/*
* Start
*/
timestamp.bv_val = tmbuf;
timestamp.bv_len = sizeof(tmbuf);
slap_timestamp( &starttime, ×tamp );
entryCSN.bv_val = csnbuf;
entryCSN.bv_len = sizeof( csnbuf );
slap_get_csn( NULL, &entryCSN, 0 );
if ( BER_BVISNULL( &lmi->lmi_rdnvalue ) ) {
ber_str2bv( "Lastmod", 0, 1, &lmi->lmi_rdnvalue );
}
snprintf( buf, sizeof( buf ),
"dn: cn=%s%s%s\n"
"objectClass: %s\n"
"structuralObjectClass: %s\n"
"cn: %s\n"
"description: This object contains the last modification to this database\n"
"%s: cn=%s%s%s\n"
"%s: %s\n"
"%s: %s\n"
"createTimestamp: %s\n"
"creatorsName: %s\n"
"entryCSN: %s\n"
"modifyTimestamp: %s\n"
"modifiersName: %s\n"
"hasSubordinates: FALSE\n",
lmi->lmi_rdnvalue.bv_val, BER_BVISEMPTY( &be->be_suffix[ 0 ] ) ? "" : ",", be->be_suffix[ 0 ].bv_val,
lastmod_schema.lms_oc_lastmod->soc_cname.bv_val,
lastmod_schema.lms_oc_lastmod->soc_cname.bv_val,
lmi->lmi_rdnvalue.bv_val,
lastmod_schema.lms_ad_lastmodDN->ad_cname.bv_val,
lmi->lmi_rdnvalue.bv_val, BER_BVISEMPTY( &be->be_suffix[ 0 ] ) ? "" : ",", be->be_suffix[ 0 ].bv_val,
lastmod_schema.lms_ad_lastmodType->ad_cname.bv_val, lastmodType[ LASTMOD_ADD ].bv_val,
lastmod_schema.lms_ad_lastmodEnabled->ad_cname.bv_val, lmi->lmi_enabled ? "TRUE" : "FALSE",
tmbuf,
BER_BVISNULL( &be->be_rootdn ) ? SLAPD_ANONYMOUS : be->be_rootdn.bv_val,
entryCSN.bv_val,
tmbuf,
BER_BVISNULL( &be->be_rootdn ) ? SLAPD_ANONYMOUS : be->be_rootdn.bv_val );
#if 0
fprintf( stderr, "# entry:\n%s\n", buf );
#endif
lmi->lmi_e = str2entry( buf );
if ( lmi->lmi_e == NULL ) {
return -1;
}
ldap_pvt_thread_mutex_init( &lmi->lmi_entry_mutex );
return 0;
}
static int
lastmod_db_destroy(
BackendDB *be
)
{
slap_overinst *on = (slap_overinst *)be->bd_info;
lastmod_info_t *lmi = (lastmod_info_t *)on->on_bi.bi_private;
if ( lmi ) {
if ( !BER_BVISNULL( &lmi->lmi_rdnvalue ) ) {
ch_free( lmi->lmi_rdnvalue.bv_val );
}
if ( lmi->lmi_e ) {
entry_free( lmi->lmi_e );
ldap_pvt_thread_mutex_destroy( &lmi->lmi_entry_mutex );
}
ch_free( lmi );
}
return 0;
}
/* This overlay is set up for dynamic loading via moduleload. For static
* configuration, you'll need to arrange for the slap_overinst to be
* initialized and registered by some other function inside slapd.
*/
static slap_overinst lastmod;
int
lastmod_initialize()
{
lastmod.on_bi.bi_type = "lastmod";
lastmod.on_bi.bi_db_init = lastmod_db_init;
lastmod.on_bi.bi_db_config = lastmod_db_config;
lastmod.on_bi.bi_db_destroy = lastmod_db_destroy;
lastmod.on_bi.bi_db_open = lastmod_db_open;
lastmod.on_bi.bi_op_add = lastmod_op_func;
lastmod.on_bi.bi_op_compare = lastmod_op_func;
lastmod.on_bi.bi_op_delete = lastmod_op_func;
lastmod.on_bi.bi_op_modify = lastmod_op_func;
lastmod.on_bi.bi_op_modrdn = lastmod_op_func;
lastmod.on_bi.bi_op_search = lastmod_op_func;
lastmod.on_bi.bi_extended = lastmod_op_func;
lastmod.on_response = lastmod_response;
return overlay_register( &lastmod );
}
#if SLAPD_OVER_LASTMOD == SLAPD_MOD_DYNAMIC
int
init_module( int argc, char *argv[] )
{
return lastmod_initialize();
}
#endif /* SLAPD_OVER_LASTMOD == SLAPD_MOD_DYNAMIC */
#endif /* defined(SLAPD_OVER_LASTMOD) */
|
