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