#include "rc_base.h"
#include "rc-int.h"
#include "k5-thread.h"
#define FREE(x) ((void) free((char *) (x)))
struct krb5_rc_typelist {
const krb5_rc_ops *ops;
struct krb5_rc_typelist *next;
};
static struct krb5_rc_typelist none = { &krb5_rc_none_ops, 0 };
static struct krb5_rc_typelist krb5_rc_typelist_dfl = { &krb5_rc_dfl_ops, &none };
static struct krb5_rc_typelist *typehead = &krb5_rc_typelist_dfl;
static k5_mutex_t rc_typelist_lock = K5_MUTEX_PARTIAL_INITIALIZER;
int krb5int_rc_finish_init(void)
{
return k5_mutex_finish_init(&rc_typelist_lock);
}
void krb5int_rc_terminate(void)
{
struct krb5_rc_typelist *t, *t_next;
k5_mutex_destroy(&rc_typelist_lock);
for (t = typehead; t != &krb5_rc_typelist_dfl; t = t_next) {
t_next = t->next;
free(t);
}
}
krb5_error_code krb5_rc_register_type(krb5_context context,
const krb5_rc_ops *ops)
{
struct krb5_rc_typelist *t;
krb5_error_code err;
err = k5_mutex_lock(&rc_typelist_lock);
if (err)
return err;
for (t = typehead;t && strcmp(t->ops->type,ops->type);t = t->next)
;
if (t) {
k5_mutex_unlock(&rc_typelist_lock);
return KRB5_RC_TYPE_EXISTS;
}
t = (struct krb5_rc_typelist *) malloc(sizeof(struct krb5_rc_typelist));
if (t == NULL) {
k5_mutex_unlock(&rc_typelist_lock);
return KRB5_RC_MALLOC;
}
t->next = typehead;
t->ops = ops;
typehead = t;
k5_mutex_unlock(&rc_typelist_lock);
return 0;
}
krb5_error_code krb5_rc_resolve_type(krb5_context context, krb5_rcache *id,
char *type)
{
struct krb5_rc_typelist *t;
krb5_error_code err;
err = k5_mutex_lock(&rc_typelist_lock);
if (err)
return err;
for (t = typehead;t && strcmp(t->ops->type,type);t = t->next)
;
if (!t) {
k5_mutex_unlock(&rc_typelist_lock);
return KRB5_RC_TYPE_NOTFOUND;
}
(*id)->ops = t->ops;
k5_mutex_unlock(&rc_typelist_lock);
return k5_mutex_init(&(*id)->lock);
}
char * krb5_rc_get_type(krb5_context context, krb5_rcache id)
{
return id->ops->type;
}
char * krb5_rc_default_type(krb5_context context)
{
char *s;
if ((s = getenv("KRB5RCACHETYPE")))
return s;
else
return "dfl";
}
char * krb5_rc_default_name(krb5_context context)
{
char *s;
if ((s = getenv("KRB5RCACHENAME")))
return s;
else
return (char *) 0;
}
krb5_error_code
krb5_rc_default(krb5_context context, krb5_rcache *id)
{
krb5_error_code retval;
if (!(*id = (krb5_rcache )malloc(sizeof(**id))))
return KRB5_RC_MALLOC;
if ((retval = krb5_rc_resolve_type(context, id,
krb5_rc_default_type(context)))) {
FREE(*id);
return retval;
}
if ((retval = krb5_rc_resolve(context, *id,
krb5_rc_default_name(context)))) {
k5_mutex_destroy(&(*id)->lock);
FREE(*id);
return retval;
}
(*id)->magic = KV5M_RCACHE;
return retval;
}
krb5_error_code krb5_rc_resolve_full(krb5_context context, krb5_rcache *id, char *string_name)
{
char *type;
char *residual;
krb5_error_code retval;
unsigned int diff;
if (!(residual = strchr(string_name,':')))
return KRB5_RC_PARSE;
diff = residual - string_name;
if (!(type = malloc(diff + 1)))
return KRB5_RC_MALLOC;
(void) strncpy(type, string_name, diff);
type[residual - string_name] = '\0';
if (!(*id = (krb5_rcache) malloc(sizeof(**id)))) {
FREE(type);
return KRB5_RC_MALLOC;
}
if ((retval = krb5_rc_resolve_type(context, id,type))) {
FREE(type);
FREE(*id);
return retval;
}
FREE(type);
if ((retval = krb5_rc_resolve(context, *id,residual + 1))) {
k5_mutex_destroy(&(*id)->lock);
FREE(*id);
return retval;
}
(*id)->magic = KV5M_RCACHE;
return retval;
}