cf/largefile.m4: Fix build with autoconf-2.72
[heimdal.git] / lib / kadm5 / privs_c.c
blobb6879cf0b7a7d7a0c098a5bf2894751360860caa
1 /*
2 * Copyright (c) 1997 - 1999 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
4 * All rights reserved.
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
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.
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.
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.
34 #include "kadm5_locl.h"
36 RCSID("$Id$");
38 kadm5_ret_t
39 kadm5_c_get_privs(void *server_handle, uint32_t *privs)
41 kadm5_client_context *context = server_handle;
42 kadm5_ret_t ret;
43 krb5_storage *sp;
44 unsigned char buf[1024];
45 int32_t tmp;
46 krb5_data reply;
48 *privs = 0;
50 ret = _kadm5_connect(server_handle, 0 /* want_write */);
51 if (ret)
52 return ret;
54 krb5_data_zero(&reply);
56 sp = krb5_storage_from_mem(buf, sizeof(buf));
57 if (sp == NULL) {
58 ret = krb5_enomem(context->context);
59 goto out_keep_error;
61 ret = krb5_store_int32(sp, kadm_get_privs);
62 if (ret)
63 goto out;
64 ret = _kadm5_client_send(context, sp);
65 if (ret)
66 goto out_keep_error;
67 ret = _kadm5_client_recv(context, &reply);
68 if (ret)
69 goto out_keep_error;
70 krb5_storage_free(sp);
71 sp = krb5_storage_from_data(&reply);
72 if (sp == NULL) {
73 ret = krb5_enomem(context->context);
74 goto out_keep_error;
76 ret = krb5_ret_int32(sp, &tmp);
77 if (ret == 0)
78 ret = tmp;
79 if (ret == 0)
80 krb5_ret_uint32(sp, privs);
82 out:
83 krb5_clear_error_message(context->context);
85 out_keep_error:
86 krb5_storage_free(sp);
87 krb5_data_free (&reply);
88 return ret;