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 "krb5/gsskrb5_locl.h" 34 35 RCSID("$Id: inquire_cred_by_oid.c 19031 2006-11-13 18:02:57Z lha $"); 36 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) 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