#include "kadm5_locl.h"
RCSID("$Id$");
static struct units acl_units[] = {
{ "all", KADM5_PRIV_ALL },
{ "change-password",KADM5_PRIV_CPW },
{ "cpw", KADM5_PRIV_CPW },
{ "list", KADM5_PRIV_LIST },
{ "delete", KADM5_PRIV_DELETE },
{ "modify", KADM5_PRIV_MODIFY },
{ "add", KADM5_PRIV_ADD },
{ "get", KADM5_PRIV_GET },
{ "get-keys", KADM5_PRIV_GET_KEYS },
{ NULL, 0 }
};
kadm5_ret_t
_kadm5_string_to_privs(const char *s, uint32_t* privs)
{
int flags;
flags = parse_flags(s, acl_units, 0);
if(flags < 0)
return KADM5_FAILURE;
*privs = flags;
return 0;
}
kadm5_ret_t
_kadm5_privs_to_string(uint32_t privs, char *string, size_t len)
{
if(privs == 0)
strlcpy(string, "none", len);
else
unparse_flags(privs, acl_units + 1, string, len);
return 0;
}
static kadm5_ret_t
fetch_acl (kadm5_server_context *context,
krb5_const_principal princ,
unsigned *ret_flags)
{
FILE *f;
krb5_error_code ret = 0;
char buf[256];
*ret_flags = 0;
f = fopen(context->config.acl_file, "r");
if (f == NULL)
return 0;
while(fgets(buf, sizeof(buf), f) != NULL) {
char *foo = NULL, *p;
krb5_principal this_princ;
unsigned flags = 0;
p = strtok_r(buf, " \t\n", &foo);
if(p == NULL)
continue;
if (*p == '#')
continue;
ret = krb5_parse_name(context->context, p, &this_princ);
if(ret)
break;
if(!krb5_principal_compare(context->context,
context->caller, this_princ)) {
krb5_free_principal(context->context, this_princ);
continue;
}
krb5_free_principal(context->context, this_princ);
p = strtok_r(NULL, " \t\n", &foo);
if(p == NULL)
continue;
ret = _kadm5_string_to_privs(p, &flags);
if (ret)
break;
p = strtok_r(NULL, " \t\n", &foo);
if (p == NULL) {
*ret_flags = flags;
break;
}
if (princ != NULL) {
krb5_principal pattern_princ;
krb5_boolean match;
ret = krb5_parse_name (context->context, p, &pattern_princ);
if (ret)
break;
match = krb5_principal_match (context->context,
princ, pattern_princ);
krb5_free_principal (context->context, pattern_princ);
if (match) {
*ret_flags = flags;
break;
}
}
}
fclose(f);
if (*ret_flags == 0 && princ == NULL) {
ret = context->db->hdb_open(context->context, context->db, O_RDWR, 0);
if (ret == 0) {
hdb_entry_ex ent;
memset(&ent, 0, sizeof(ent));
ret = context->db->hdb_fetch_kvno(context->context, context->db,
context->caller,
HDB_F_DECRYPT|HDB_F_GET_ANY|HDB_F_ADMIN_DATA,
0,
&ent);
if (ret == 0 && ent.entry.acl_rights)
*ret_flags = *ent.entry.acl_rights;
hdb_free_entry(context->context, &ent);
}
context->db->hdb_close(context->context, context->db);
}
return ret;
}
kadm5_ret_t
_kadm5_acl_init(kadm5_server_context *context)
{
krb5_principal princ;
krb5_error_code ret;
ret = krb5_parse_name(context->context, KADM5_ADMIN_SERVICE, &princ);
if (ret)
return ret;
ret = krb5_principal_compare(context->context, context->caller, princ);
krb5_free_principal(context->context, princ);
if(ret != 0) {
context->acl_flags = KADM5_PRIV_ALL;
return 0;
}
return fetch_acl (context, NULL, &context->acl_flags);
}
static kadm5_ret_t
check_flags (unsigned op,
unsigned flags)
{
unsigned res = ~flags & op;
if(res & KADM5_PRIV_GET)
return KADM5_AUTH_GET;
if(res & KADM5_PRIV_GET_KEYS)
return KADM5_AUTH_GET_KEYS;
if(res & KADM5_PRIV_ADD)
return KADM5_AUTH_ADD;
if(res & KADM5_PRIV_MODIFY)
return KADM5_AUTH_MODIFY;
if(res & KADM5_PRIV_DELETE)
return KADM5_AUTH_DELETE;
if(res & KADM5_PRIV_CPW)
return KADM5_AUTH_CHANGEPW;
if(res & KADM5_PRIV_LIST)
return KADM5_AUTH_LIST;
if(res)
return KADM5_AUTH_INSUFFICIENT;
return 0;
}
kadm5_ret_t
_kadm5_acl_check_permission(kadm5_server_context *context,
unsigned op,
krb5_const_principal princ)
{
kadm5_ret_t ret;
unsigned princ_flags;
ret = check_flags (op, context->acl_flags);
if (ret == 0)
return ret;
ret = fetch_acl (context, princ, &princ_flags);
if (ret)
return ret;
return check_flags (op, princ_flags);
}