1c19800e8SDoug Rabson /*
2c19800e8SDoug Rabson * Copyright (c) 2004, PADL Software Pty Ltd.
3c19800e8SDoug Rabson * All rights reserved.
4c19800e8SDoug Rabson *
5c19800e8SDoug Rabson * Redistribution and use in source and binary forms, with or without
6c19800e8SDoug Rabson * modification, are permitted provided that the following conditions
7c19800e8SDoug Rabson * are met:
8c19800e8SDoug Rabson *
9c19800e8SDoug Rabson * 1. Redistributions of source code must retain the above copyright
10c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer.
11c19800e8SDoug Rabson *
12c19800e8SDoug Rabson * 2. Redistributions in binary form must reproduce the above copyright
13c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer in the
14c19800e8SDoug Rabson * documentation and/or other materials provided with the distribution.
15c19800e8SDoug Rabson *
16c19800e8SDoug Rabson * 3. Neither the name of PADL Software nor the names of its contributors
17c19800e8SDoug Rabson * may be used to endorse or promote products derived from this software
18c19800e8SDoug Rabson * without specific prior written permission.
19c19800e8SDoug Rabson *
20c19800e8SDoug Rabson * THIS SOFTWARE IS PROVIDED BY PADL SOFTWARE AND CONTRIBUTORS ``AS IS'' AND
21c19800e8SDoug Rabson * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22c19800e8SDoug Rabson * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23c19800e8SDoug Rabson * ARE DISCLAIMED. IN NO EVENT SHALL PADL SOFTWARE OR CONTRIBUTORS BE LIABLE
24c19800e8SDoug Rabson * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25c19800e8SDoug Rabson * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26c19800e8SDoug Rabson * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27c19800e8SDoug Rabson * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28c19800e8SDoug Rabson * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29c19800e8SDoug Rabson * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30c19800e8SDoug Rabson * SUCH DAMAGE.
31c19800e8SDoug Rabson */
32c19800e8SDoug Rabson
33c19800e8SDoug Rabson #include "gsskrb5_locl.h"
34c19800e8SDoug Rabson
_gsskrb5_inquire_cred_by_oid(OM_uint32 * minor_status,const gss_cred_id_t cred_handle,const gss_OID desired_object,gss_buffer_set_t * data_set)35c19800e8SDoug Rabson OM_uint32 GSSAPI_CALLCONV _gsskrb5_inquire_cred_by_oid
36c19800e8SDoug Rabson (OM_uint32 * minor_status,
37c19800e8SDoug Rabson const gss_cred_id_t cred_handle,
38c19800e8SDoug Rabson const gss_OID desired_object,
39c19800e8SDoug Rabson gss_buffer_set_t *data_set)
40c19800e8SDoug Rabson {
41c19800e8SDoug Rabson krb5_context context;
42c19800e8SDoug Rabson gsskrb5_cred cred = (gsskrb5_cred)cred_handle;
43c19800e8SDoug Rabson krb5_error_code ret;
44c19800e8SDoug Rabson gss_buffer_desc buffer;
45c19800e8SDoug Rabson char *str;
46c19800e8SDoug Rabson
47c19800e8SDoug Rabson GSSAPI_KRB5_INIT (&context);
48c19800e8SDoug Rabson
49c19800e8SDoug Rabson if (gss_oid_equal(desired_object, GSS_KRB5_COPY_CCACHE_X) == 0) {
50c19800e8SDoug Rabson *minor_status = EINVAL;
51c19800e8SDoug Rabson return GSS_S_FAILURE;
52c19800e8SDoug Rabson }
53c19800e8SDoug Rabson
54c19800e8SDoug Rabson HEIMDAL_MUTEX_lock(&cred->cred_id_mutex);
55c19800e8SDoug Rabson
56c19800e8SDoug Rabson if (cred->ccache == NULL) {
57c19800e8SDoug Rabson HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
58c19800e8SDoug Rabson *minor_status = EINVAL;
59c19800e8SDoug Rabson return GSS_S_FAILURE;
60c19800e8SDoug Rabson }
61c19800e8SDoug Rabson
62c19800e8SDoug Rabson ret = krb5_cc_get_full_name(context, cred->ccache, &str);
63c19800e8SDoug Rabson HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
64c19800e8SDoug Rabson if (ret) {
65c19800e8SDoug Rabson *minor_status = ret;
66c19800e8SDoug Rabson return GSS_S_FAILURE;
67c19800e8SDoug Rabson }
68c19800e8SDoug Rabson
69c19800e8SDoug Rabson buffer.value = str;
70c19800e8SDoug Rabson buffer.length = strlen(str);
71c19800e8SDoug Rabson
72c19800e8SDoug Rabson ret = gss_add_buffer_set_member(minor_status, &buffer, data_set);
73c19800e8SDoug Rabson if (ret != GSS_S_COMPLETE)
74c19800e8SDoug Rabson _gsskrb5_clear_status ();
75c19800e8SDoug Rabson
76c19800e8SDoug Rabson free(str);
77c19800e8SDoug Rabson
78c19800e8SDoug Rabson *minor_status = 0;
79c19800e8SDoug Rabson return GSS_S_COMPLETE;
80c19800e8SDoug Rabson }
81c19800e8SDoug Rabson
82c19800e8SDoug Rabson