1 #pragma ident "%Z%%M% %I% %E% SMI" 2 3 #include <gssapiP_krb5.h> 4 5 GSS_DLLIMP OM_uint32 KRB5_CALLCONV 6 gss_krb5_ccache_name(minor_status, name, out_name) 7 OM_uint32 *minor_status; 8 const char *name; 9 const char **out_name; 10 { 11 krb5_context context; 12 krb5_error_code retval; 13 OM_uint32 foo_stat; 14 15 if (GSS_ERROR(kg_get_context(minor_status, &context))) 16 return (GSS_S_FAILURE); 17 18 if (out_name) 19 *out_name = krb5_cc_default_name(context); 20 21 retval = krb5_cc_set_default_name(context, name); 22 if (retval) { 23 *minor_status = retval; 24 return GSS_S_FAILURE; 25 } 26 kg_release_defcred(&foo_stat); 27 return GSS_S_COMPLETE; 28 } 29