#include "portable.h"
#include <ldap_pvt_thread.h>
#include <slap.h>
#include <slapi.h>
#include <ltdl.h>
static int slapi_int_load_plugin( Slapi_PBlock *, const char *, const char *, int,
SLAPI_FUNC *, lt_dlhandle * );
static ExtendedOp *pGExtendedOps = NULL;
static Slapi_PBlock *pGPlugins = NULL;
static Slapi_PBlock *
plugin_pblock_new(
int type,
const char *path,
const char *initfunc,
int argc,
char *argv[] )
{
Slapi_PBlock *pPlugin = NULL;
Slapi_PluginDesc *pPluginDesc = NULL;
lt_dlhandle hdLoadHandle;
int rc;
pPlugin = slapi_pblock_new();
if ( pPlugin == NULL ) {
rc = LDAP_NO_MEMORY;
goto done;
}
rc = slapi_pblock_set( pPlugin, SLAPI_PLUGIN_TYPE, (void *)type );
if ( rc != 0 ) {
goto done;
}
rc = slapi_pblock_set( pPlugin, SLAPI_PLUGIN_ARGC, (void *)argc );
if ( rc != 0 ) {
goto done;
}
rc = slapi_pblock_set( pPlugin, SLAPI_PLUGIN_ARGV, (void *)argv );
if ( rc != 0 ) {
goto done;
}
rc = slapi_int_load_plugin( pPlugin, path, initfunc, TRUE, NULL, &hdLoadHandle );
if ( rc != 0 ) {
goto done;
}
if ( slapi_pblock_get( pPlugin, SLAPI_PLUGIN_DESCRIPTION, (void **)&pPluginDesc ) == 0 &&
pPluginDesc != NULL ) {
slapi_log_error(SLAPI_LOG_TRACE, "plugin_pblock_new",
"Registered plugin %s %s [%s] (%s)\n",
pPluginDesc->spd_id,
pPluginDesc->spd_version,
pPluginDesc->spd_vendor,
pPluginDesc->spd_description);
}
done:
if ( rc != 0 && pPlugin != NULL ) {
slapi_pblock_destroy( pPlugin );
pPlugin = NULL;
}
return pPlugin;
}
int
slapi_int_register_plugin(
Backend *be,
Slapi_PBlock *pPB )
{
Slapi_PBlock *pTmpPB;
Slapi_PBlock *pSavePB;
int rc = LDAP_SUCCESS;
pTmpPB = ( be == NULL ) ? pGPlugins : (Slapi_PBlock *)(be->be_pb);
if ( pTmpPB == NULL ) {
if ( be != NULL )
be->be_pb = (void *)pPB;
else
pGPlugins = pPB;
} else {
while ( pTmpPB != NULL && rc == LDAP_SUCCESS ) {
pSavePB = pTmpPB;
rc = slapi_pblock_get( pTmpPB, SLAPI_IBM_PBLOCK,
&pTmpPB );
if ( rc != LDAP_SUCCESS ) {
rc = LDAP_OTHER;
}
}
if ( rc == LDAP_SUCCESS ) {
rc = slapi_pblock_set( pSavePB, SLAPI_IBM_PBLOCK,
(void *)pPB );
if ( rc != LDAP_SUCCESS ) {
rc = LDAP_OTHER;
}
}
}
return rc;
}
int
slapi_int_get_plugins(
Backend *be,
int functype,
SLAPI_FUNC **ppFuncPtrs )
{
Slapi_PBlock *pCurrentPB;
SLAPI_FUNC FuncPtr;
SLAPI_FUNC *pTmpFuncPtr;
int numPB = 0;
int rc = LDAP_SUCCESS;
assert( ppFuncPtrs );
if ( be != NULL ) {
pCurrentPB = (Slapi_PBlock *)be->be_pb;
while ( pCurrentPB != NULL && rc == LDAP_SUCCESS ) {
rc = slapi_pblock_get( pCurrentPB, functype, &FuncPtr );
if ( rc == LDAP_SUCCESS ) {
if ( FuncPtr != NULL ) {
numPB++;
}
rc = slapi_pblock_get( pCurrentPB,
SLAPI_IBM_PBLOCK, &pCurrentPB );
}
}
}
if ( rc != LDAP_SUCCESS ) {
goto done;
}
pCurrentPB = pGPlugins;
while ( pCurrentPB != NULL && rc == LDAP_SUCCESS ) {
rc = slapi_pblock_get( pCurrentPB, functype, &FuncPtr );
if ( rc == LDAP_SUCCESS ) {
if ( FuncPtr != NULL ) {
numPB++;
}
rc = slapi_pblock_get( pCurrentPB,
SLAPI_IBM_PBLOCK, &pCurrentPB );
}
}
if ( rc != LDAP_SUCCESS ) {
goto done;
}
if ( numPB == 0 ) {
*ppFuncPtrs = NULL;
rc = LDAP_SUCCESS;
goto done;
}
*ppFuncPtrs = pTmpFuncPtr =
(SLAPI_FUNC *)ch_malloc( ( numPB + 1 ) * sizeof(SLAPI_FUNC) );
if ( ppFuncPtrs == NULL ) {
rc = LDAP_NO_MEMORY;
goto done;
}
if ( be != NULL ) {
pCurrentPB = (Slapi_PBlock *)be->be_pb;
while ( pCurrentPB != NULL && rc == LDAP_SUCCESS ) {
rc = slapi_pblock_get( pCurrentPB, functype, &FuncPtr );
if ( rc == LDAP_SUCCESS ) {
if ( FuncPtr != NULL ) {
*pTmpFuncPtr = FuncPtr;
pTmpFuncPtr++;
}
rc = slapi_pblock_get( pCurrentPB,
SLAPI_IBM_PBLOCK, &pCurrentPB );
}
}
}
pCurrentPB = pGPlugins;
while ( pCurrentPB != NULL && rc == LDAP_SUCCESS ) {
rc = slapi_pblock_get( pCurrentPB, functype, &FuncPtr );
if ( rc == LDAP_SUCCESS ) {
if ( FuncPtr != NULL ) {
*pTmpFuncPtr = FuncPtr;
pTmpFuncPtr++;
}
rc = slapi_pblock_get( pCurrentPB,
SLAPI_IBM_PBLOCK, &pCurrentPB );
}
}
*pTmpFuncPtr = NULL ;
done:
if ( rc != LDAP_SUCCESS && *ppFuncPtrs != NULL ) {
ch_free( *ppFuncPtrs );
*ppFuncPtrs = NULL;
}
return rc;
}
ExtendedOp *
createExtendedOp()
{
ExtendedOp *ret;
ret = (ExtendedOp *)ch_malloc(sizeof(ExtendedOp));
if ( ret != NULL ) {
ret->ext_oid.bv_val = NULL;
ret->ext_oid.bv_len = 0;
ret->ext_func = NULL;
ret->ext_be = NULL;
ret->ext_next = NULL;
}
return ret;
}
void
slapi_int_unregister_extop(
Backend *pBE,
ExtendedOp **opList,
Slapi_PBlock *pPB )
{
ExtendedOp *pTmpExtOp, *backExtOp;
char **pTmpOIDs;
int i;
#if 0
assert( pBE != NULL);
#endif
assert( opList != NULL );
assert( pPB != NULL );
if ( *opList == NULL ) {
return;
}
slapi_pblock_get( pPB, SLAPI_PLUGIN_EXT_OP_OIDLIST, &pTmpOIDs );
if ( pTmpOIDs == NULL ) {
return;
}
for ( i = 0; pTmpOIDs[i] != NULL; i++ ) {
backExtOp = NULL;
pTmpExtOp = *opList;
for ( ; pTmpExtOp != NULL; pTmpExtOp = pTmpExtOp->ext_next) {
int rc;
rc = strcasecmp( pTmpExtOp->ext_oid.bv_val,
pTmpOIDs[ i ] );
if ( rc == 0 ) {
if ( backExtOp == NULL ) {
*opList = pTmpExtOp->ext_next;
} else {
backExtOp->ext_next
= pTmpExtOp->ext_next;
}
ch_free( pTmpExtOp );
break;
}
backExtOp = pTmpExtOp;
}
}
}
int
slapi_int_register_extop(
Backend *pBE,
ExtendedOp **opList,
Slapi_PBlock *pPB )
{
ExtendedOp *pTmpExtOp = NULL;
SLAPI_FUNC tmpFunc;
char **pTmpOIDs;
int rc = LDAP_OTHER;
int i;
if ( (*opList) == NULL ) {
*opList = createExtendedOp();
if ( (*opList) == NULL ) {
rc = LDAP_NO_MEMORY;
goto error_return;
}
pTmpExtOp = *opList;
} else {
for ( pTmpExtOp = *opList; pTmpExtOp->ext_next != NULL;
pTmpExtOp = pTmpExtOp->ext_next )
;
pTmpExtOp->ext_next = createExtendedOp();
if ( pTmpExtOp->ext_next == NULL ) {
rc = LDAP_NO_MEMORY;
goto error_return;
}
pTmpExtOp = pTmpExtOp->ext_next;
}
rc = slapi_pblock_get( pPB,SLAPI_PLUGIN_EXT_OP_OIDLIST, &pTmpOIDs );
if ( rc != 0 ) {
rc = LDAP_OTHER;
goto error_return;
}
rc = slapi_pblock_get(pPB,SLAPI_PLUGIN_EXT_OP_FN, &tmpFunc);
if ( rc != 0 ) {
rc = LDAP_OTHER;
goto error_return;
}
if ( (pTmpOIDs == NULL) || (tmpFunc == NULL) ) {
rc = LDAP_OTHER;
goto error_return;
}
for ( i = 0; pTmpOIDs[i] != NULL; i++ ) {
pTmpExtOp->ext_oid.bv_val = pTmpOIDs[i];
pTmpExtOp->ext_oid.bv_len = strlen( pTmpOIDs[i] );
pTmpExtOp->ext_func = tmpFunc;
pTmpExtOp->ext_be = pBE;
if ( pTmpOIDs[i + 1] != NULL ) {
pTmpExtOp->ext_next = createExtendedOp();
if ( pTmpExtOp->ext_next == NULL ) {
rc = LDAP_NO_MEMORY;
break;
}
pTmpExtOp = pTmpExtOp->ext_next;
}
}
error_return:
return rc;
}
int
slapi_int_get_extop_plugin(
struct berval *reqoid,
SLAPI_FUNC *pFuncAddr )
{
ExtendedOp *pTmpExtOp;
assert( reqoid != NULL );
assert( pFuncAddr != NULL );
*pFuncAddr = NULL;
if ( pGExtendedOps == NULL ) {
return LDAP_OTHER;
}
pTmpExtOp = pGExtendedOps;
while ( pTmpExtOp != NULL ) {
int rc;
rc = strcasecmp( reqoid->bv_val, pTmpExtOp->ext_oid.bv_val );
if ( rc == 0 ) {
*pFuncAddr = pTmpExtOp->ext_func;
break;
}
pTmpExtOp = pTmpExtOp->ext_next;
}
return ( *pFuncAddr == NULL ? 1 : 0 );
}
struct berval *
slapi_int_get_supported_extop( int index )
{
ExtendedOp *ext;
for ( ext = pGExtendedOps ; ext != NULL && --index >= 0;
ext = ext->ext_next) {
;
}
if ( ext == NULL ) {
return NULL;
}
return &ext->ext_oid ;
}
static int
slapi_int_load_plugin(
Slapi_PBlock *pPlugin,
const char *path,
const char *initfunc,
int doInit,
SLAPI_FUNC *pInitFunc,
lt_dlhandle *pLdHandle )
{
int rc = LDAP_SUCCESS;
SLAPI_FUNC fpInitFunc = NULL;
assert( pLdHandle );
if ( lt_dlinit() ) {
return LDAP_LOCAL_ERROR;
}
*pLdHandle = lt_dlopen( path );
if ( *pLdHandle == NULL ) {
return LDAP_LOCAL_ERROR;
}
fpInitFunc = (SLAPI_FUNC)lt_dlsym( *pLdHandle, initfunc );
if ( fpInitFunc == NULL ) {
lt_dlclose( *pLdHandle );
return LDAP_LOCAL_ERROR;
}
if ( doInit == TRUE ) {
rc = ( *fpInitFunc )( pPlugin );
if ( rc != LDAP_SUCCESS ) {
lt_dlclose( *pLdHandle );
}
} else {
*pInitFunc = fpInitFunc;
}
return rc;
}
int
slapi_int_call_plugins(
Backend *be,
int funcType,
Slapi_PBlock *pPB )
{
int rc = 0;
SLAPI_FUNC *pGetPlugin = NULL, *tmpPlugin = NULL;
if ( pPB == NULL ) {
return 1;
}
rc = slapi_int_get_plugins( be, funcType, &tmpPlugin );
if ( rc != LDAP_SUCCESS || tmpPlugin == NULL ) {
return 1;
}
for ( pGetPlugin = tmpPlugin ; *pGetPlugin != NULL; pGetPlugin++ ) {
rc = (*pGetPlugin)(pPB);
if ( !SLAPI_PLUGIN_IS_POST_FN( funcType ) && rc != 0 ) {
break;
}
}
slapi_ch_free( (void **)&tmpPlugin );
return rc;
}
int
slapi_int_read_config(
Backend *be,
const char *fname,
int lineno,
int argc,
char **argv )
{
int iType = -1;
int numPluginArgc = 0;
char **ppPluginArgv = NULL;
if ( argc < 4 ) {
fprintf( stderr,
"%s: line %d: missing arguments "
"in \"plugin <plugin_type> <lib_path> "
"<init_function> [<arguments>]\" line\n",
fname, lineno );
return 1;
}
if ( strcasecmp( argv[1], "preoperation" ) == 0 ) {
iType = SLAPI_PLUGIN_PREOPERATION;
} else if ( strcasecmp( argv[1], "postoperation" ) == 0 ) {
iType = SLAPI_PLUGIN_POSTOPERATION;
} else if ( strcasecmp( argv[1], "extendedop" ) == 0 ) {
iType = SLAPI_PLUGIN_EXTENDEDOP;
} else if ( strcasecmp( argv[1], "object" ) == 0 ) {
iType = SLAPI_PLUGIN_OBJECT;
} else {
fprintf( stderr, "%s: line %d: invalid plugin type \"%s\".\n",
fname, lineno, argv[1] );
return 1;
}
numPluginArgc = argc - 4;
if ( numPluginArgc > 0 ) {
ppPluginArgv = &argv[4];
} else {
ppPluginArgv = NULL;
}
if ( iType == SLAPI_PLUGIN_PREOPERATION ||
iType == SLAPI_PLUGIN_EXTENDEDOP ||
iType == SLAPI_PLUGIN_POSTOPERATION ||
iType == SLAPI_PLUGIN_OBJECT ) {
int rc;
Slapi_PBlock *pPlugin;
pPlugin = plugin_pblock_new( iType, argv[2], argv[3],
numPluginArgc, ppPluginArgv );
if (pPlugin == NULL) {
return 1;
}
if (iType == SLAPI_PLUGIN_EXTENDEDOP) {
rc = slapi_int_register_extop(be, &pGExtendedOps, pPlugin);
if ( rc != LDAP_SUCCESS ) {
slapi_pblock_destroy( pPlugin );
return 1;
}
}
rc = slapi_int_register_plugin( be, pPlugin );
if ( rc != LDAP_SUCCESS ) {
if ( iType == SLAPI_PLUGIN_EXTENDEDOP ) {
slapi_int_unregister_extop( be, &pGExtendedOps, pPlugin );
}
slapi_pblock_destroy( pPlugin );
return 1;
}
}
return 0;
}
int
slapi_int_initialize(void)
{
if ( ldap_pvt_thread_mutex_init( &slapi_hn_mutex ) ) {
return -1;
}
if ( ldap_pvt_thread_mutex_init( &slapi_time_mutex ) ) {
return -1;
}
if ( ldap_pvt_thread_mutex_init( &slapi_printmessage_mutex ) ) {
return -1;
}
slapi_log_file = ch_strdup( LDAP_RUNDIR LDAP_DIRSEP "errors" );
if ( slapi_log_file == NULL ) {
return -1;
}
if ( slapi_int_init_object_extensions() != 0 ) {
return -1;
}
return 0;
}