1/*
2 * Copyright (c) 2004, PADL Software Pty Ltd.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 *
9 * 1. Redistributions of source code must retain the above copyright
10 *    notice, this list of conditions and the following disclaimer.
11 *
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.
15 *
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.
19 *
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
30 * SUCH DAMAGE.
31 */
32
33#include "gsskrb5_locl.h"
34
35OM_uint32 GSSAPI_CALLCONV _gsskrb5_inquire_cred_by_oid
36	   (OM_uint32 * minor_status,
37	    const gss_cred_id_t cred_handle,
38	    const gss_OID desired_object,
39	    gss_buffer_set_t *data_set)
40{
41    krb5_context context;
42    gsskrb5_cred cred = (gsskrb5_cred)cred_handle;
43    krb5_error_code ret;
44    gss_buffer_desc buffer;
45    char *str;
46
47    GSSAPI_KRB5_INIT (&context);
48
49    if (gss_oid_equal(desired_object, GSS_KRB5_COPY_CCACHE_X) == 0) {
50	*minor_status = EINVAL;
51	return GSS_S_FAILURE;
52    }
53
54    HEIMDAL_MUTEX_lock(&cred->cred_id_mutex);
55
56    if (cred->ccache == NULL) {
57	HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
58	*minor_status = EINVAL;
59	return GSS_S_FAILURE;
60    }
61
62    ret = krb5_cc_get_full_name(context, cred->ccache, &str);
63    HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
64    if (ret) {
65	*minor_status = ret;
66	return GSS_S_FAILURE;
67    }
68
69    buffer.value = str;
70    buffer.length = strlen(str);
71
72    ret = gss_add_buffer_set_member(minor_status, &buffer, data_set);
73    if (ret != GSS_S_COMPLETE)
74	_gsskrb5_clear_status ();
75
76    free(str);
77
78    *minor_status = 0;
79    return GSS_S_COMPLETE;
80}
81
82