1/* 2 * Copyright (c) 1997-2001 Kungliga Tekniska Högskolan 3 * (Royal Institute of Technology, Stockholm, Sweden). 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 17 * 3. Neither the name of the Institute nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 */ 33 34#include "kadm5_locl.h" 35 36RCSID("$Id$"); 37 38static kadm5_ret_t 39get_default(kadm5_server_context *context, krb5_principal princ, 40 kadm5_principal_ent_t def) 41{ 42 kadm5_ret_t ret; 43 krb5_principal def_principal; 44 krb5_const_realm realm = krb5_principal_get_realm(context->context, princ); 45 46 ret = krb5_make_principal(context->context, &def_principal, 47 realm, "default", NULL); 48 if (ret) 49 return ret; 50 ret = kadm5_s_get_principal(context, def_principal, def, 51 KADM5_PRINCIPAL_NORMAL_MASK); 52 krb5_free_principal (context->context, def_principal); 53 return ret; 54} 55 56static kadm5_ret_t 57create_principal(kadm5_server_context *context, 58 kadm5_principal_ent_t princ, 59 uint32_t mask, 60 hdb_entry_ex *ent, 61 uint32_t required_mask, 62 uint32_t forbidden_mask) 63{ 64 kadm5_ret_t ret; 65 kadm5_principal_ent_rec defrec, *defent; 66 uint32_t def_mask; 67 68 memset(ent, 0, sizeof(*ent)); 69 if((mask & required_mask) != required_mask) 70 return KADM5_BAD_MASK; 71 if((mask & forbidden_mask)) 72 return KADM5_BAD_MASK; 73 if((mask & KADM5_POLICY) && strcmp(princ->policy, "default")) 74 /* XXX no real policies for now */ 75 return KADM5_UNK_POLICY; 76 ret = krb5_copy_principal(context->context, princ->principal, 77 &ent->entry.principal); 78 if(ret) 79 return ret; 80 81 defent = &defrec; 82 ret = get_default(context, princ->principal, defent); 83 if(ret) { 84 defent = NULL; 85 def_mask = 0; 86 } else { 87 def_mask = KADM5_ATTRIBUTES | KADM5_MAX_LIFE | KADM5_MAX_RLIFE; 88 } 89 90 ret = _kadm5_setup_entry(context, 91 ent, mask | def_mask, 92 princ, mask, 93 defent, def_mask); 94 if(defent) 95 kadm5_free_principal_ent(context, defent); 96 if (ret) 97 return ret; 98 99 ent->entry.created_by.time = time(NULL); 100 101 return krb5_copy_principal(context->context, context->caller, 102 &ent->entry.created_by.principal); 103} 104 105kadm5_ret_t 106kadm5_s_create_principal_with_key(void *server_handle, 107 kadm5_principal_ent_t princ, 108 uint32_t mask) 109{ 110 kadm5_ret_t ret; 111 hdb_entry_ex ent; 112 kadm5_server_context *context = server_handle; 113 114 if ((mask & KADM5_KVNO) == 0) { 115 /* create_principal() through _kadm5_setup_entry(), will need this */ 116 princ->kvno = 1; 117 mask |= KADM5_KVNO; 118 } 119 120 ret = create_principal(context, princ, mask, &ent, 121 KADM5_PRINCIPAL | KADM5_KEY_DATA, 122 KADM5_LAST_PWD_CHANGE | KADM5_MOD_TIME 123 | KADM5_MOD_NAME | KADM5_MKVNO 124 | KADM5_AUX_ATTRIBUTES 125 | KADM5_POLICY_CLR | KADM5_LAST_SUCCESS 126 | KADM5_LAST_FAILED | KADM5_FAIL_AUTH_COUNT); 127 if(ret) 128 goto out; 129 130 ret = hdb_seal_keys(context->context, context->db, &ent.entry); 131 if (ret) 132 goto out; 133 134 if (!context->keep_open) { 135 ret = context->db->hdb_open(context->context, context->db, O_RDWR, 0); 136 if(ret) 137 goto out; 138 } 139 ret = context->db->hdb_store(context->context, context->db, 0, &ent); 140 if (!context->keep_open) 141 context->db->hdb_close(context->context, context->db); 142 if (ret) 143 goto out; 144 kadm5_log_create (context, &ent.entry); 145 146out: 147 hdb_free_entry(context->context, &ent); 148 return _kadm5_error_code(ret); 149} 150 151 152kadm5_ret_t 153kadm5_s_create_principal(void *server_handle, 154 kadm5_principal_ent_t princ, 155 uint32_t mask, 156 const char *password, 157 int n_ks_tuple, 158 krb5_key_salt_tuple *ks_tuple) 159{ 160 kadm5_ret_t ret; 161 hdb_entry_ex ent; 162 kadm5_server_context *context = server_handle; 163 164 if ((mask & KADM5_KVNO) == 0) { 165 /* create_principal() through _kadm5_setup_entry(), will need this */ 166 princ->kvno = 1; 167 mask |= KADM5_KVNO; 168 } 169 170 ret = create_principal(context, princ, mask, &ent, 171 KADM5_PRINCIPAL, 172 KADM5_LAST_PWD_CHANGE | KADM5_MOD_TIME 173 | KADM5_MOD_NAME | KADM5_MKVNO 174 | KADM5_AUX_ATTRIBUTES | KADM5_KEY_DATA 175 | KADM5_POLICY_CLR | KADM5_LAST_SUCCESS 176 | KADM5_LAST_FAILED | KADM5_FAIL_AUTH_COUNT); 177 if(ret) 178 goto out; 179 180 ent.entry.keys.len = 0; 181 ent.entry.keys.val = NULL; 182 183 ret = _kadm5_set_keys(context, &ent.entry, password, n_ks_tuple, ks_tuple); 184 if (ret) 185 goto out; 186 187 ret = hdb_seal_keys(context->context, context->db, &ent.entry); 188 if (ret) 189 goto out; 190 191 if (!context->keep_open) { 192 ret = context->db->hdb_open(context->context, context->db, O_RDWR, 0); 193 if(ret) 194 goto out; 195 } 196 ret = context->db->hdb_store(context->context, context->db, 0, &ent); 197 if (!context->keep_open) 198 context->db->hdb_close(context->context, context->db); 199 if (ret) 200 goto out; 201 202 kadm5_log_create (context, &ent.entry); 203 204 out: 205 hdb_free_entry(context->context, &ent); 206 return _kadm5_error_code(ret); 207} 208 209