Imported Upstream version 1.10.2
[platform/upstream/krb5.git] / src / lib / gssapi / mechglue / g_set_name_attr.c
1 /* -*- mode: c; indent-tabs-mode: nil -*- */
2 /*
3  * Copyright 2009 by the Massachusetts Institute of Technology.
4  * All Rights Reserved.
5  *
6  * Export of this software from the United States of America may
7  *   require a specific license from the United States Government.
8  *   It is the responsibility of any person or organization contemplating
9  *   export to obtain such a license before exporting.
10  *
11  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
12  * distribute this software and its documentation for any purpose and
13  * without fee is hereby granted, provided that the above copyright
14  * notice appear in all copies and that both that copyright notice and
15  * this permission notice appear in supporting documentation, and that
16  * the name of M.I.T. not be used in advertising or publicity pertaining
17  * to distribution of the software without specific, written prior
18  * permission.  Furthermore if you modify this software you must label
19  * your software as modified software and not distribute it in such a
20  * fashion that it might be confused with the original M.I.T. software.
21  * M.I.T. makes no representations about the suitability of
22  * this software for any purpose.  It is provided "as is" without express
23  * or implied warranty.
24  */
25
26 /* Glue routine for gss_set_name_attribute */
27
28 #include "mglueP.h"
29
30 OM_uint32 KRB5_CALLCONV
31 gss_set_name_attribute(OM_uint32 *minor_status,
32                        gss_name_t name,
33                        int complete,
34                        gss_buffer_t attr,
35                        gss_buffer_t value)
36 {
37     OM_uint32           status;
38     gss_union_name_t    union_name;
39     gss_mechanism       mech;
40
41     if (minor_status == NULL)
42         return GSS_S_CALL_INACCESSIBLE_WRITE;
43
44     if (name == GSS_C_NO_NAME)
45         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
46
47     *minor_status = 0;
48
49     union_name = (gss_union_name_t)name;
50
51     if (union_name->mech_type == GSS_C_NO_OID)
52         return GSS_S_UNAVAILABLE;
53
54     mech = gssint_get_mechanism(name->mech_type);
55     if (mech == NULL)
56         return GSS_S_BAD_NAME;
57
58     if (mech->gss_set_name_attribute == NULL)
59         return GSS_S_UNAVAILABLE;
60
61     status = (*mech->gss_set_name_attribute)(minor_status,
62                                              union_name->mech_name,
63                                              complete,
64                                              attr,
65                                              value);
66     if (status != GSS_S_COMPLETE)
67         map_error(minor_status, mech);
68
69     return status;
70 }