1*d3273b5bSchristos /* $NetBSD: release_cred.c,v 1.2 2017/01/28 21:31:46 christos Exp $ */
2ca1c9b0cSelric
3ca1c9b0cSelric /*
4ca1c9b0cSelric * Copyright (c) 1997-2003 Kungliga Tekniska Högskolan
5ca1c9b0cSelric * (Royal Institute of Technology, Stockholm, Sweden).
6ca1c9b0cSelric * All rights reserved.
7ca1c9b0cSelric *
8ca1c9b0cSelric * Redistribution and use in source and binary forms, with or without
9ca1c9b0cSelric * modification, are permitted provided that the following conditions
10ca1c9b0cSelric * are met:
11ca1c9b0cSelric *
12ca1c9b0cSelric * 1. Redistributions of source code must retain the above copyright
13ca1c9b0cSelric * notice, this list of conditions and the following disclaimer.
14ca1c9b0cSelric *
15ca1c9b0cSelric * 2. Redistributions in binary form must reproduce the above copyright
16ca1c9b0cSelric * notice, this list of conditions and the following disclaimer in the
17ca1c9b0cSelric * documentation and/or other materials provided with the distribution.
18ca1c9b0cSelric *
19ca1c9b0cSelric * 3. Neither the name of the Institute nor the names of its contributors
20ca1c9b0cSelric * may be used to endorse or promote products derived from this software
21ca1c9b0cSelric * without specific prior written permission.
22ca1c9b0cSelric *
23ca1c9b0cSelric * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
24ca1c9b0cSelric * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25ca1c9b0cSelric * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26ca1c9b0cSelric * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
27ca1c9b0cSelric * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28ca1c9b0cSelric * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29ca1c9b0cSelric * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30ca1c9b0cSelric * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31ca1c9b0cSelric * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32ca1c9b0cSelric * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33ca1c9b0cSelric * SUCH DAMAGE.
34ca1c9b0cSelric */
35ca1c9b0cSelric
36ca1c9b0cSelric #include "gsskrb5_locl.h"
37ca1c9b0cSelric
_gsskrb5_release_cred(OM_uint32 * minor_status,gss_cred_id_t * cred_handle)38ca1c9b0cSelric OM_uint32 GSSAPI_CALLCONV _gsskrb5_release_cred
39ca1c9b0cSelric (OM_uint32 * minor_status,
40ca1c9b0cSelric gss_cred_id_t * cred_handle
41ca1c9b0cSelric )
42ca1c9b0cSelric {
43ca1c9b0cSelric krb5_context context;
44ca1c9b0cSelric gsskrb5_cred cred;
45ca1c9b0cSelric OM_uint32 junk;
46ca1c9b0cSelric
47ca1c9b0cSelric *minor_status = 0;
48ca1c9b0cSelric
49ca1c9b0cSelric if (*cred_handle == NULL)
50ca1c9b0cSelric return GSS_S_COMPLETE;
51ca1c9b0cSelric
52ca1c9b0cSelric cred = (gsskrb5_cred)*cred_handle;
53ca1c9b0cSelric *cred_handle = GSS_C_NO_CREDENTIAL;
54ca1c9b0cSelric
55ca1c9b0cSelric GSSAPI_KRB5_INIT (&context);
56ca1c9b0cSelric
57ca1c9b0cSelric HEIMDAL_MUTEX_lock(&cred->cred_id_mutex);
58ca1c9b0cSelric
59ca1c9b0cSelric if (cred->principal != NULL)
60ca1c9b0cSelric krb5_free_principal(context, cred->principal);
61ca1c9b0cSelric if (cred->keytab != NULL)
62ca1c9b0cSelric krb5_kt_close(context, cred->keytab);
63ca1c9b0cSelric if (cred->ccache != NULL) {
64ca1c9b0cSelric if (cred->cred_flags & GSS_CF_DESTROY_CRED_ON_RELEASE)
65ca1c9b0cSelric krb5_cc_destroy(context, cred->ccache);
66ca1c9b0cSelric else
67ca1c9b0cSelric krb5_cc_close(context, cred->ccache);
68ca1c9b0cSelric }
69ca1c9b0cSelric gss_release_oid_set(&junk, &cred->mechanisms);
70ca1c9b0cSelric if (cred->enctypes)
71ca1c9b0cSelric free(cred->enctypes);
72ca1c9b0cSelric HEIMDAL_MUTEX_unlock(&cred->cred_id_mutex);
73ca1c9b0cSelric HEIMDAL_MUTEX_destroy(&cred->cred_id_mutex);
74ca1c9b0cSelric memset(cred, 0, sizeof(*cred));
75ca1c9b0cSelric free(cred);
76ca1c9b0cSelric return GSS_S_COMPLETE;
77ca1c9b0cSelric }
78ca1c9b0cSelric
79