/* loads a plugin library */
static int _tsasl_get_plugin(TCHAR *tfile,
const sasl_callback_t *verifyfile_cb,
void **libraryptr)
{
HINSTANCE library = NULL;
lib_list_t *newhead;
char *file;
int retCode = SASL_OK;
if (sizeof(TCHAR) != sizeof(char)) {
file = _sasl_wchar_to_utf8(tfile);
if (!file) {
retCode = SASL_NOMEM;
goto cleanup;
}
}
else {
file = (char*)tfile;
}
retCode = ((sasl_verifyfile_t *)(verifyfile_cb->proc))
(verifyfile_cb->context, file, SASL_VRFY_PLUGIN);
if (retCode != SASL_OK)
goto cleanup;
newhead = sasl_ALLOC(sizeof(lib_list_t));
if (!newhead) {
retCode = SASL_NOMEM;
goto cleanup;
}
if (!(library = LoadLibrary(tfile))) {
_sasl_log(NULL, SASL_LOG_ERR,
"unable to LoadLibrary %s: %s", file, GetLastError());
sasl_FREE(newhead);
retCode = SASL_FAIL;
goto cleanup;
}
newhead->library = library;
newhead->next = lib_list_head;
lib_list_head = newhead;
*libraryptr = library;
cleanup:
if (sizeof(TCHAR) != sizeof(char)) {
sasl_FREE(file);
}
return retCode;
}
/* loads a plugin library */
int _sasl_get_plugin(const char *file,
const sasl_callback_t *verifyfile_cb,
void **libraryptr)
{
int r = 0;
HINSTANCE library;
lib_list_t *newhead;
r = ((sasl_verifyfile_t *)(verifyfile_cb->proc))
(verifyfile_cb->context, file, SASL_VRFY_PLUGIN);
if (r != SASL_OK) return r;
newhead = sasl_ALLOC(sizeof(lib_list_t));
if (!newhead) return SASL_NOMEM;
if (!(library = LoadLibrary (file))) {
_sasl_log(NULL, SASL_LOG_ERR,
"unable to LoadLibrary %s: %s", file, GetLastError());
sasl_FREE(newhead);
return SASL_FAIL;
}
newhead->library = library;
newhead->next = lib_list_head;
lib_list_head = newhead;
*libraryptr = library;
return SASL_OK;
}
/*
* dispose of property context
* ctx -- is disposed and set to NULL; noop if ctx or *ctx is NULL
*/
void prop_dispose(struct propctx **ctx)
{
struct proppool *tmp;
if(!ctx || !*ctx) return;
while((*ctx)->mem_base) {
tmp = (*ctx)->mem_base;
(*ctx)->mem_base = tmp->next;
sasl_FREE(tmp);
}
sasl_FREE(*ctx);
*ctx = NULL;
return;
}
/* undoes actions done by _sasl_get_plugin */
void _sasl_remove_last_plugin()
{
lib_list_t *last_plugin = lib_list_head;
lib_list_head = lib_list_head->next;
if (last_plugin->library) {
FreeLibrary(last_plugin->library);
}
sasl_FREE(last_plugin);
}
void _sasl_auxprop_free()
{
auxprop_plug_list_t *ptr, *ptr_next;
for(ptr = auxprop_head; ptr; ptr = ptr_next) {
ptr_next = ptr->next;
if(ptr->plug->auxprop_free)
ptr->plug->auxprop_free(ptr->plug->glob_context,
sasl_global_utils);
sasl_FREE(ptr);
}
auxprop_head = NULL;
}
/* clear values and optionally requests from property context
* ctx -- property context
* requests -- 0 = don't clear requests, 1 = clear requests
*/
void prop_clear(struct propctx *ctx, int requests)
{
struct proppool *new_pool, *tmp;
unsigned i;
/* We're going to need a new proppool once we reset things */
new_pool = alloc_proppool(ctx->mem_base->size +
(ctx->used_values+1) * sizeof(struct propval));
if (new_pool == NULL) {
_sasl_log(NULL, SASL_LOG_ERR, "failed to allocate memory\n");
exit(1);
}
if(requests) {
/* We're wiping the whole shebang */
ctx->used_values = 0;
} else {
/* Need to keep around old requets */
struct propval *new_values = (struct propval *)new_pool->data;
for(i=0; i<ctx->used_values; i++) {
new_values[i].name = ctx->values[i].name;
}
}
while(ctx->mem_base) {
tmp = ctx->mem_base;
ctx->mem_base = tmp->next;
sasl_FREE(tmp);
}
/* Update allocation-related metadata */
ctx->allocated_values = ctx->used_values+1;
new_pool->unused =
new_pool->size - (ctx->allocated_values * sizeof(struct propval));
/* Setup pointers for the values array */
ctx->values = (struct propval *)new_pool->data;
ctx->prev_val = NULL;
/* Setup the pools */
ctx->mem_base = ctx->mem_cur = new_pool;
/* Reset list_end and data_end for the new memory pool */
ctx->list_end =
(char **)((char *)ctx->mem_base->data + ctx->allocated_values * sizeof(struct propval));
ctx->data_end = (char *)ctx->mem_base->data + ctx->mem_base->size;
return;
}
int
_sasl_done_with_plugins(void)
{
#ifdef DO_DLOPEN
lib_list_t *libptr, *libptr_next;
for(libptr = lib_list_head; libptr; libptr = libptr_next) {
libptr_next = libptr->next;
if(libptr->library)
dlclose(libptr->library);
sasl_FREE(libptr);
}
lib_list_head = NULL;
#endif /* DO_DLOPEN */
return SASL_OK;
}
int
_sasl_done_with_plugins(void)
{
lib_list_t *libptr, *libptr_next;
for(libptr = lib_list_head; libptr; libptr = libptr_next) {
libptr_next = libptr->next;
if (libptr->library != NULL) {
FreeLibrary(libptr->library);
}
sasl_FREE(libptr);
}
lib_list_head = NULL;
return SASL_OK;
}
int _sasl_get_plugin(const char *file,
const sasl_callback_t *verifyfile_cb,
void **libraryptr)
{
if (sizeof(TCHAR) == sizeof(char)) {
return _tsasl_get_plugin((TCHAR*)file, verifyfile_cb, libraryptr);
}
else {
WCHAR *tfile = _sasl_utf8_to_wchar(file);
int ret = SASL_NOMEM;
if (tfile) {
ret = _tsasl_get_plugin(tfile, verifyfile_cb, libraryptr);
sasl_FREE(tfile);
}
return ret;
}
}
/* loads a plugin library */
int _sasl_get_plugin(const char *file,
const sasl_callback_t *verifyfile_cb,
void **libraryptr)
{
#ifdef DO_DLOPEN
int r = 0;
int flag;
void *library;
lib_list_t *newhead;
r = ((sasl_verifyfile_t *)(verifyfile_cb->proc))
(verifyfile_cb->context, file, SASL_VRFY_PLUGIN);
if (r != SASL_OK) return r;
#ifdef RTLD_NOW
flag = RTLD_NOW;
#else
flag = 0;
#endif
newhead = sasl_ALLOC(sizeof(lib_list_t));
if(!newhead) return SASL_NOMEM;
if (!(library = dlopen(file, flag))) {
_sasl_log(NULL, SASL_LOG_ERR,
"unable to dlopen %s: %s", file, dlerror());
sasl_FREE(newhead);
return SASL_FAIL;
}
newhead->library = library;
newhead->next = lib_list_head;
lib_list_head = newhead;
*libraryptr = library;
return SASL_OK;
#else
return SASL_FAIL;
#endif /* DO_DLOPEN */
}
/* Do the callbacks for auxprop stores */
int sasl_auxprop_store(sasl_conn_t *conn,
struct propctx *ctx, const char *user)
{
sasl_getopt_t *getopt;
int ret, found = 0;
void *context;
const char *plist = NULL;
auxprop_plug_list_t *ptr;
sasl_server_params_t *sparams = NULL;
unsigned userlen = 0;
if (ctx) {
if (!conn || !user)
return SASL_BADPARAM;
sparams = ((sasl_server_conn_t *) conn)->sparams;
userlen = (unsigned) strlen(user);
}
/* Pickup getopt callback from the connection, if conn is not NULL */
if(_sasl_getcallback(conn, SASL_CB_GETOPT, &getopt, &context) == SASL_OK) {
ret = getopt(context, NULL, "auxprop_plugin", &plist, NULL);
if(ret != SASL_OK) plist = NULL;
}
ret = SASL_OK;
if(!plist) {
/* Do store in all plugins */
for(ptr = auxprop_head; ptr && ret == SASL_OK; ptr = ptr->next) {
found=1;
if (ptr->plug->auxprop_store)
ret = ptr->plug->auxprop_store(ptr->plug->glob_context,
sparams, ctx, user, userlen);
}
} else {
char *pluginlist = NULL, *freeptr = NULL, *thisplugin = NULL;
if(_sasl_strdup(plist, &pluginlist, NULL) != SASL_OK) return SASL_FAIL;
thisplugin = freeptr = pluginlist;
/* Do store in all *specified* plugins, in order */
while(*thisplugin) {
char *p;
int last=0;
while(*thisplugin && isspace((int)*thisplugin)) thisplugin++;
if(!(*thisplugin)) break;
for(p = thisplugin;*p != '\0' && !isspace((int)*p); p++);
if(*p == '\0') last = 1;
else *p='\0';
for(ptr = auxprop_head; ptr && ret == SASL_OK; ptr = ptr->next) {
/* Skip non-matching plugins */
if((!ptr->plug->name
|| strcasecmp(ptr->plug->name, thisplugin)))
continue;
found=1;
if (ptr->plug->auxprop_store)
ret = ptr->plug->auxprop_store(ptr->plug->glob_context,
sparams, ctx, user, userlen);
}
if(last) break;
thisplugin = p+1;
}
sasl_FREE(freeptr);
}
if(!found) {
_sasl_log(NULL, SASL_LOG_ERR,
"could not find auxprop plugin, was searching for %s",
plist ? plist : "[all]");
return SASL_FAIL;
}
return ret;
}
/* Do the callbacks for auxprop lookups */
void _sasl_auxprop_lookup(sasl_server_params_t *sparams,
unsigned flags,
const char *user, unsigned ulen)
{
sasl_getopt_t *getopt;
int ret, found = 0;
void *context;
const char *plist = NULL;
auxprop_plug_list_t *ptr;
if(_sasl_getcallback(sparams->utils->conn,
SASL_CB_GETOPT, &getopt, &context) == SASL_OK) {
ret = getopt(context, NULL, "auxprop_plugin", &plist, NULL);
if(ret != SASL_OK) plist = NULL;
}
if(!plist) {
/* Do lookup in all plugins */
for(ptr = auxprop_head; ptr; ptr = ptr->next) {
found=1;
ptr->plug->auxprop_lookup(ptr->plug->glob_context,
sparams, flags, user, ulen);
}
} else {
char *pluginlist = NULL, *freeptr = NULL, *thisplugin = NULL;
if(_sasl_strdup(plist, &pluginlist, NULL) != SASL_OK) return;
thisplugin = freeptr = pluginlist;
/* Do lookup in all *specified* plugins, in order */
while(*thisplugin) {
char *p;
int last=0;
while(*thisplugin && isspace((int)*thisplugin)) thisplugin++;
if(!(*thisplugin)) break;
for(p = thisplugin;*p != '\0' && !isspace((int)*p); p++);
if(*p == '\0') last = 1;
else *p='\0';
for(ptr = auxprop_head; ptr; ptr = ptr->next) {
/* Skip non-matching plugins */
if(!ptr->plug->name
|| strcasecmp(ptr->plug->name, thisplugin))
continue;
found=1;
ptr->plug->auxprop_lookup(ptr->plug->glob_context,
sparams, flags, user, ulen);
}
if(last) break;
thisplugin = p+1;
}
sasl_FREE(freeptr);
}
if(!found)
_sasl_log(sparams->utils->conn, SASL_LOG_DEBUG,
"could not find auxprop plugin, was searching for '%s'",
plist ? plist : "[all]");
}
/* Do the callbacks for auxprop lookups */
int _sasl_auxprop_lookup(sasl_server_params_t *sparams,
unsigned flags,
const char *user, unsigned ulen)
{
sasl_getopt_t *getopt;
int ret, found = 0;
void *context;
const char *plist = NULL;
auxprop_plug_list_t *ptr;
int result = SASL_NOMECH;
if(_sasl_getcallback(sparams->utils->conn,
SASL_CB_GETOPT,
(sasl_callback_ft *)&getopt,
&context) == SASL_OK) {
ret = getopt(context, NULL, "auxprop_plugin", &plist, NULL);
if(ret != SASL_OK) plist = NULL;
}
if(!plist) {
/* Do lookup in all plugins */
/* TODO: Ideally, each auxprop plugin should be marked if its failure
should be ignored or treated as a fatal error of the whole lookup. */
for(ptr = auxprop_head; ptr; ptr = ptr->next) {
found=1;
ret = ptr->plug->auxprop_lookup(ptr->plug->glob_context,
sparams, flags, user, ulen);
result = _sasl_account_status (result, ret);
}
} else {
char *pluginlist = NULL, *freeptr = NULL, *thisplugin = NULL;
if(_sasl_strdup(plist, &pluginlist, NULL) != SASL_OK) return SASL_NOMEM;
thisplugin = freeptr = pluginlist;
/* Do lookup in all *specified* plugins, in order */
while(*thisplugin) {
char *p;
int last=0;
while(*thisplugin && isspace((int)*thisplugin)) thisplugin++;
if(!(*thisplugin)) break;
for(p = thisplugin;*p != '\0' && !isspace((int)*p); p++);
if(*p == '\0') last = 1;
else *p='\0';
for(ptr = auxprop_head; ptr; ptr = ptr->next) {
/* Skip non-matching plugins */
if(!ptr->plug->name
|| strcasecmp(ptr->plug->name, thisplugin))
continue;
found=1;
ret = ptr->plug->auxprop_lookup(ptr->plug->glob_context,
sparams, flags, user, ulen);
result = _sasl_account_status (result, ret);
}
if(last) break;
thisplugin = p+1;
}
sasl_FREE(freeptr);
}
if(!found) {
_sasl_log(sparams->utils->conn, SASL_LOG_DEBUG,
"could not find auxprop plugin, was searching for '%s'",
plist ? plist : "[all]");
}
return result;
}
/* gets the list of mechanisms */
int _sasl_load_plugins(const add_plugin_list_t *entrypoints,
const sasl_callback_t *getpath_cb,
const sasl_callback_t *verifyfile_cb)
{
int result;
TCHAR cur_dir[PATH_MAX], full_name[PATH_MAX+2], prefix[PATH_MAX+2];
/* 1 for '\\' 1 for trailing '\0' */
TCHAR * pattern;
TCHAR c;
int pos;
int retCode = SASL_OK;
char *utf8path = NULL;
TCHAR *path=NULL;
int position;
const add_plugin_list_t *cur_ep;
struct _stat statbuf; /* filesystem entry information */
intptr_t fhandle; /* file handle for _findnext function */
struct _tfinddata_t finddata; /* data returned by _findnext() */
size_t prefix_len;
/* for static plugins */
add_plugin_t *add_plugin;
_sasl_plug_type type;
_sasl_plug_rec *p;
if (! entrypoints
|| ! getpath_cb
|| getpath_cb->id != SASL_CB_GETPATH
|| ! getpath_cb->proc
|| ! verifyfile_cb
|| verifyfile_cb->id != SASL_CB_VERIFYFILE
|| ! verifyfile_cb->proc)
return SASL_BADPARAM;
/* do all the static plugins first */
for (cur_ep = entrypoints; cur_ep->entryname; cur_ep++) {
/* What type of plugin are we looking for? */
if (!strcmp(cur_ep->entryname, "sasl_server_plug_init")) {
type = SERVER;
add_plugin = (add_plugin_t *)sasl_server_add_plugin;
}
else if (!strcmp(cur_ep->entryname, "sasl_client_plug_init")) {
type = CLIENT;
add_plugin = (add_plugin_t *)sasl_client_add_plugin;
}
else if (!strcmp(cur_ep->entryname, "sasl_auxprop_plug_init")) {
type = AUXPROP;
add_plugin = (add_plugin_t *)sasl_auxprop_add_plugin;
}
else if (!strcmp(cur_ep->entryname, "sasl_canonuser_init")) {
type = CANONUSER;
add_plugin = (add_plugin_t *)sasl_canonuser_add_plugin;
}
else {
/* What are we looking for then? */
return SASL_FAIL;
}
for (p = _sasl_static_plugins; p->type; p++) {
if (type == p->type)
result = add_plugin(p->name, p->plug);
}
}
/* get the path to the plugins */
result = ((sasl_getpath_t *)(getpath_cb->proc))(getpath_cb->context,
&utf8path);
if (result != SASL_OK) return result;
if (!utf8path) return SASL_FAIL;
if (sizeof(TCHAR) == sizeof(char)) {
path = (TCHAR*)utf8path;
}
else {
path = _sasl_utf8_to_wchar(utf8path);
if (!path) return SASL_FAIL;
}
if (_tcslen(path) >= PATH_MAX) { /* no you can't buffer overrun */
retCode = SASL_FAIL;
goto cleanup;
}
position=0;
do {
pos=0;
do {
c=path[position];
position++;
cur_dir[pos]=c;
pos++;
} while ((c!=PATHS_DELIMITER) && (c!=0));
cur_dir[pos-1]='\0';
/* : check to make sure that a valid directory name was passed in */
if (_tstat (cur_dir, &statbuf) < 0) {
continue;
}
if ((statbuf.st_mode & S_IFDIR) == 0) {
continue;
}
_tcscpy(prefix, cur_dir);
prefix_len = _tcslen (prefix);
/* : Don't append trailing \ unless required */
if (prefix[prefix_len-1] != '\\') {
_tcscat(prefix,_T("\\"));
prefix_len++;
}
pattern = prefix;
/* : Check that we have enough space for "*.dll" */
if ((prefix_len + DLL_MASK_LEN) > (sizeof(prefix) / sizeof(TCHAR) - 1)) {
_sasl_log(NULL, SASL_LOG_WARN, "plugin search mask is too big");
continue;
}
_tcscat (prefix + prefix_len, _T("*") DLL_SUFFIX);
fhandle = _tfindfirst (pattern, &finddata);
if (fhandle == -1) { /* no matching files */
continue;
}
/* : Truncate "*.dll" */
prefix[prefix_len] = '\0';
do {
size_t length;
void *library;
char *c;
char plugname[PATH_MAX];
int entries;
length = _tcslen(finddata.name);
if (length < 5) { /* At least <Ch>.dll */
continue; /* can not possibly be what we're looking for */
}
/* : Check for overflow */
if (length + prefix_len >= PATH_MAX) continue; /* too big */
if (_tcscmp(finddata.name + (length - _tcslen(DLL_SUFFIX)), DLL_SUFFIX) != 0) {
continue;
}
/* : Check that it is not a directory */
if ((finddata.attrib & _A_SUBDIR) == _A_SUBDIR) {
continue;
}
/* : Construct full name from prefix and name */
_tcscpy (full_name, prefix);
_tcscat (full_name, finddata.name);
/* cut off .dll suffix -- this only need be approximate */
if (sizeof(TCHAR) != sizeof(char)) {
if (WideCharToMultiByte(CP_UTF8, 0, finddata.name, -1, plugname, sizeof(plugname), NULL, NULL) == 0) { // in case of unicode use utf8
continue;
}
}
else {
_tcscpy((TCHAR*)plugname, finddata.name); // w/o unicode local enconding is fine
}
c = strchr(plugname, '.');
if (c != NULL) *c = '\0';
result = _tsasl_get_plugin (full_name, verifyfile_cb, &library);
if (result != SASL_OK) {
continue;
}
entries = 0;
for (cur_ep = entrypoints; cur_ep->entryname; cur_ep++) {
result = _sasl_plugin_load(plugname,
library,
cur_ep->entryname,
cur_ep->add_plugin);
if (result == SASL_OK) {
++entries;
}
/* If this fails, it's not the end of the world */
}
if (entries == 0) {
_sasl_remove_last_plugin();
}
} while (_tfindnext (fhandle, &finddata) == 0);
_findclose (fhandle);
} while ((c!='=') && (c!=0));
cleanup:
if (sizeof(TCHAR) != sizeof(char)) {
sasl_FREE(path); /* It's always allocated in coversion to wchar */
}
return retCode;
}
