#include "portable.h"
#include <stdio.h>
#include <ac/ctype.h>
#include <ac/string.h>
#include <ac/socket.h>
#include "slap.h"
#include "ldap_pvt.h"
#include "lutil.h"
int
schema_info( Entry **entry, const char **text )
{
AttributeDescription *ad_structuralObjectClass
= slap_schema.si_ad_structuralObjectClass;
AttributeDescription *ad_objectClass
= slap_schema.si_ad_objectClass;
AttributeDescription *ad_createTimestamp
= slap_schema.si_ad_createTimestamp;
AttributeDescription *ad_modifyTimestamp
= slap_schema.si_ad_modifyTimestamp;
Entry *e;
struct berval vals[5];
struct berval nvals[5];
e = (Entry *) SLAP_CALLOC( 1, sizeof(Entry) );
if( e == NULL ) {
#ifdef NEW_LOGGING
LDAP_LOG( OPERATION, ERR,
"schema_info: SLAP_CALLOC failed - out of memory.\n", 0, 0,0 );
#else
Debug( LDAP_DEBUG_ANY,
"schema_info: SLAP_CALLOC failed - out of memory.\n", 0, 0, 0 );
#endif
*text = "out of memory";
return LDAP_OTHER;
}
e->e_attrs = NULL;
ber_dupbv( &e->e_name, &global_schemadn );
ber_dupbv( &e->e_nname, &global_schemandn );
e->e_private = NULL;
BER_BVSTR( &vals[0], "subentry" );
if( attr_merge_one( e, ad_structuralObjectClass, vals, NULL ) ) {
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
BER_BVSTR( &vals[0], "top" );
BER_BVSTR( &vals[1], "subentry" );
BER_BVSTR( &vals[2], "subschema" );
BER_BVSTR( &vals[3], "extensibleObject" );
BER_BVZERO( &vals[4] );
if ( attr_merge( e, ad_objectClass, vals, NULL ) ) {
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
{
int rc;
AttributeDescription *desc = NULL;
struct berval rdn = global_schemadn;
vals[0].bv_val = strchr( rdn.bv_val, '=' );
if( vals[0].bv_val == NULL ) {
*text = "improperly configured subschema subentry";
return LDAP_OTHER;
}
vals[0].bv_val++;
vals[0].bv_len = rdn.bv_len - (vals[0].bv_val - rdn.bv_val);
rdn.bv_len -= vals[0].bv_len + 1;
rc = slap_bv2ad( &rdn, &desc, text );
if( rc != LDAP_SUCCESS ) {
entry_free( e );
*text = "improperly configured subschema subentry";
return LDAP_OTHER;
}
nvals[0].bv_val = strchr( global_schemandn.bv_val, '=' );
assert( nvals[0].bv_val );
nvals[0].bv_val++;
nvals[0].bv_len = global_schemandn.bv_len -
(nvals[0].bv_val - global_schemandn.bv_val);
if ( attr_merge_one( e, desc, vals, nvals ) ) {
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
}
{
struct tm *ltm;
#ifdef HAVE_GMTIME_R
struct tm ltm_buf;
#endif
char timebuf[ LDAP_LUTIL_GENTIME_BUFSIZE ];
#ifdef HAVE_GMTIME_R
ltm = gmtime_r( &starttime, <m_buf );
#else
ldap_pvt_thread_mutex_lock( &gmtime_mutex );
ltm = gmtime( &starttime );
#endif
lutil_gentime( timebuf, sizeof(timebuf), ltm );
#ifndef HAVE_GMTIME_R
ldap_pvt_thread_mutex_unlock( &gmtime_mutex );
#endif
vals[0].bv_val = timebuf;
vals[0].bv_len = strlen( timebuf );
if( attr_merge_one( e, ad_createTimestamp, vals, NULL ) ) {
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
if( attr_merge_one( e, ad_modifyTimestamp, vals, NULL ) ) {
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
}
if ( syn_schema_info( e )
|| mr_schema_info( e )
|| mru_schema_info( e )
|| at_schema_info( e )
|| oc_schema_info( e )
|| cr_schema_info( e ) )
{
entry_free( e );
*text = "out of memory";
return LDAP_OTHER;
}
*entry = e;
return LDAP_SUCCESS;
}
void schema_load_directory_based_schema( int first_load )
{
int rc;
BerValue dn;
BerValue ndn;
BerValue *bv;
Operation op = {0};
Entry *entry;
Attribute *attrsValues;
unsigned int i,j;
unsigned int num_vals=0;
char *prettyDN = NULL;
char *line = NULL;
op.o_tmpmfuncs = &ch_mfuncs;
op.o_threadctx = ldap_pvt_thread_pool_context();
op.o_time = slap_get_time();
dn = global_schemaconfigdn;
ndn = global_schemaconfigndn;
if ( ndn.bv_len == 0 || dn.bv_len == 0 )
return;
op.o_bd = select_backend( &ndn, 0, 0 );
rc = be_entry_get_rw( &op, &ndn, slap_schema.si_oc_container, slap_schema.si_ad_attributeTypesConfig,
0, &entry );
if( rc != LDAP_SUCCESS ) {
fprintf( stderr,
"couldn't read the schema entry from the directory(%d): %s\n",
rc, ldap_err2string(rc) );
return;
}
attrsValues = attr_find( entry->e_attrs, slap_schema.si_ad_attributeTypesConfig );
if (attrsValues != NULL) {
bv = attrsValues->a_vals;
for( num_vals=0; bv[num_vals].bv_val != NULL && bv[num_vals].bv_len != 0; num_vals++ )
{
parse_at(dn.bv_val,num_vals,bv[num_vals].bv_val,NULL,!first_load);
}
}
attrsValues = attr_find( entry->e_attrs, slap_schema.si_ad_objectClassesConfig );
if (attrsValues != NULL) {
bv = attrsValues->a_vals;
for( num_vals=0; bv[num_vals].bv_val != NULL && bv[num_vals].bv_len != 0; num_vals++ )
{
parse_oc(dn.bv_val,num_vals,bv[num_vals].bv_val,NULL,!first_load);
}
}
}