2 * Copyright (c) 2004, PADL Software Pty Ltd.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of PADL Software nor the names of its contributors
17 * may be used to endorse or promote products derived from this software
18 * without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY PADL SOFTWARE AND CONTRIBUTORS ``AS IS'' AND
21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED. IN NO EVENT SHALL PADL SOFTWARE OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 #include "krb5/gsskrb5_locl.h"
35 RCSID("$Id: inquire_cred_by_oid.c,v 1.4 2006/10/07 22:15:10 lha Exp $");
37 OM_uint32 _gsskrb5_inquire_cred_by_oid
38 (OM_uint32 * minor_status,
39 const gss_cred_id_t cred_handle,
40 const gss_OID desired_object,
41 gss_buffer_set_t *data_set)
43 gsskrb5_cred cred = (gsskrb5_cred)cred_handle;
45 gss_buffer_desc buffer;
48 if (gss_oid_equal(desired_object, GSS_KRB5_COPY_CCACHE_X) == 0) {
49 *minor_status = EINVAL;
53 HEIMDAL_MUTEX_lock(&cred->cred_id_mutex);
55 if (cred->ccache == NULL) {
56 HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
57 *minor_status = EINVAL;
61 ret = krb5_cc_get_full_name(_gsskrb5_context, cred->ccache, &str);
62 HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
65 _gsskrb5_set_error_string ();
70 buffer.length = strlen(str);
72 ret = gss_add_buffer_set_member(minor_status, &buffer, data_set);
73 if (ret != GSS_S_COMPLETE)
74 _gsskrb5_clear_status ();
79 return GSS_S_COMPLETE;