1b528cefcSMark Murray /*
2c19800e8SDoug Rabson * Copyright (c) 1997-2000, 2005-2006 Kungliga Tekniska Högskolan
3b528cefcSMark Murray * (Royal Institute of Technology, Stockholm, Sweden).
4b528cefcSMark Murray * All rights reserved.
5b528cefcSMark Murray *
6b528cefcSMark Murray * Redistribution and use in source and binary forms, with or without
7b528cefcSMark Murray * modification, are permitted provided that the following conditions
8b528cefcSMark Murray * are met:
9b528cefcSMark Murray *
10b528cefcSMark Murray * 1. Redistributions of source code must retain the above copyright
11b528cefcSMark Murray * notice, this list of conditions and the following disclaimer.
12b528cefcSMark Murray *
13b528cefcSMark Murray * 2. Redistributions in binary form must reproduce the above copyright
14b528cefcSMark Murray * notice, this list of conditions and the following disclaimer in the
15b528cefcSMark Murray * documentation and/or other materials provided with the distribution.
16b528cefcSMark Murray *
17b528cefcSMark Murray * 3. Neither the name of the Institute nor the names of its contributors
18b528cefcSMark Murray * may be used to endorse or promote products derived from this software
19b528cefcSMark Murray * without specific prior written permission.
20b528cefcSMark Murray *
21b528cefcSMark Murray * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22b528cefcSMark Murray * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23b528cefcSMark Murray * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24b528cefcSMark Murray * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25b528cefcSMark Murray * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26b528cefcSMark Murray * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27b528cefcSMark Murray * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28b528cefcSMark Murray * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29b528cefcSMark Murray * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30b528cefcSMark Murray * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31b528cefcSMark Murray * SUCH DAMAGE.
32b528cefcSMark Murray */
33b528cefcSMark Murray
34b528cefcSMark Murray #include "kadm5_locl.h"
35b528cefcSMark Murray
36c19800e8SDoug Rabson RCSID("$Id$");
37b528cefcSMark Murray
38b528cefcSMark Murray kadm5_ret_t
kadm5_c_create_principal(void * server_handle,kadm5_principal_ent_t princ,uint32_t mask,const char * password)39b528cefcSMark Murray kadm5_c_create_principal(void *server_handle,
40b528cefcSMark Murray kadm5_principal_ent_t princ,
41c19800e8SDoug Rabson uint32_t mask,
42c19800e8SDoug Rabson const char *password)
43b528cefcSMark Murray {
44b528cefcSMark Murray kadm5_client_context *context = server_handle;
45b528cefcSMark Murray kadm5_ret_t ret;
46b528cefcSMark Murray krb5_storage *sp;
47b528cefcSMark Murray unsigned char buf[1024];
48b528cefcSMark Murray int32_t tmp;
49b528cefcSMark Murray krb5_data reply;
50b528cefcSMark Murray
515e9cd1aeSAssar Westerlund ret = _kadm5_connect(server_handle);
525e9cd1aeSAssar Westerlund if(ret)
535e9cd1aeSAssar Westerlund return ret;
545e9cd1aeSAssar Westerlund
55b528cefcSMark Murray sp = krb5_storage_from_mem(buf, sizeof(buf));
56c19800e8SDoug Rabson if (sp == NULL) {
57c19800e8SDoug Rabson krb5_clear_error_message(context->context);
58b528cefcSMark Murray return ENOMEM;
59c19800e8SDoug Rabson }
60b528cefcSMark Murray krb5_store_int32(sp, kadm_create);
61b528cefcSMark Murray kadm5_store_principal_ent(sp, princ);
62b528cefcSMark Murray krb5_store_int32(sp, mask);
63b528cefcSMark Murray krb5_store_string(sp, password);
64b528cefcSMark Murray ret = _kadm5_client_send(context, sp);
65b528cefcSMark Murray krb5_storage_free(sp);
66b528cefcSMark Murray if (ret)
67b528cefcSMark Murray return ret;
68b528cefcSMark Murray ret = _kadm5_client_recv(context, &reply);
69b528cefcSMark Murray if(ret)
70b528cefcSMark Murray return ret;
71c19800e8SDoug Rabson sp = krb5_storage_from_data (&reply);
72b528cefcSMark Murray if (sp == NULL) {
73b528cefcSMark Murray krb5_clear_error_message(context->context);
74b528cefcSMark Murray krb5_data_free (&reply);
75b528cefcSMark Murray return ENOMEM;
76c19800e8SDoug Rabson }
77b528cefcSMark Murray krb5_ret_int32(sp, &tmp);
78b528cefcSMark Murray krb5_clear_error_message(context->context);
79b528cefcSMark Murray krb5_storage_free(sp);
80b528cefcSMark Murray krb5_data_free (&reply);
81b528cefcSMark Murray return tmp;
82 }
83
84