1/*
2 * Copyright (c) 2005, PADL Software Pty Ltd.
3 * All rights reserved.
4 *
5 * Portions Copyright (c) 2009 Apple Inc. 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 "kcm_locl.h"
36#include <pwd.h>
37
38krb5_error_code
39kcm_ccache_resolve_client(krb5_context context,
40			  kcm_client *client,
41			  kcm_operation opcode,
42			  const char *name,
43			  kcm_ccache *ccache)
44{
45    krb5_error_code ret;
46
47    ret = kcm_ccache_resolve_by_name(context, name, ccache);
48    if (ret) {
49	kcm_log(1, "Failed to resolve cache %s", name);
50	return ret;
51    }
52
53    ret = kcm_access(context, client, opcode, *ccache);
54    if (ret) {
55	ret = KRB5_FCC_NOFILE; /* don't disclose */
56	kcm_release_ccache(context, *ccache);
57    }
58
59    return ret;
60}
61
62krb5_error_code
63kcm_ccache_destroy_client(krb5_context context,
64			  kcm_client *client,
65			  const char *name)
66{
67    krb5_error_code ret;
68    kcm_ccache ccache;
69
70    ret = kcm_ccache_resolve_by_name(context, name, &ccache);
71    if (ret) {
72	kcm_log(1, "Failed to resolve cache %s", name);
73	return ret;
74    }
75
76    ret = kcm_access(context, client, KCM_OP_DESTROY, ccache);
77    kcm_release_ccache(context, ccache);
78    if (ret)
79	return ret;
80
81    return kcm_ccache_destroy(context, name);
82}
83
84krb5_error_code
85kcm_ccache_new_client(krb5_context context,
86		      kcm_client *client,
87		      const char *name,
88		      kcm_ccache *ccache_p)
89{
90    krb5_error_code ret;
91    kcm_ccache ccache;
92
93    ret = kcm_ccache_resolve_by_name(context, name, &ccache);
94    if (ret == 0) {
95	if ((ccache->uid != client->uid) && !CLIENT_IS_ROOT(client))
96	    return KRB5_FCC_PERM;
97    } else if (ret != KRB5_FCC_NOFILE && !(CLIENT_IS_ROOT(client) && ret == KRB5_FCC_PERM)) {
98		return ret;
99    }
100
101    if (ret == KRB5_FCC_NOFILE) {
102	ret = kcm_ccache_new(context, name, &ccache);
103	if (ret) {
104	    kcm_log(1, "Failed to initialize cache %s", name);
105	    return ret;
106	}
107
108	/* bind to current client */
109	ccache->uid = client->uid;
110	ccache->session = client->session;
111
112	/*
113	 * add notification when the session goes away, so we can
114	 * remove the credential
115	 */
116	kcm_session_add(client->session);
117
118    } else {
119	ret = kcm_zero_ccache_data(context, ccache);
120	if (ret) {
121	    kcm_log(1, "Failed to empty cache %s", name);
122	    kcm_release_ccache(context, ccache);
123	    return ret;
124	}
125	heim_ipc_event_cancel(ccache->renew_event);
126	heim_ipc_event_cancel(ccache->expire_event);
127    }
128
129    ret = kcm_access(context, client, KCM_OP_INITIALIZE, ccache);
130    if (ret) {
131	kcm_release_ccache(context, ccache);
132	kcm_ccache_destroy(context, name);
133	return ret;
134    }
135
136    /*
137     * Finally, if the user is root and the cache was created under
138     * another user's name, chown the cache to that user.
139     */
140    if (CLIENT_IS_ROOT(client)) {
141	unsigned long uid;
142	int matches = sscanf(name,"%ld:",&uid);
143	if (matches == 0)
144	    matches = sscanf(name,"%ld",&uid);
145	if (matches == 1) {
146	    kcm_chown(context, client, ccache, (uid_t)uid);
147	}
148    }
149
150    *ccache_p = ccache;
151    return 0;
152}
153
154const char *
155kcm_client_get_execpath(kcm_client *client)
156{
157    if (client->execpath[0] == '\0') {
158	int ret = proc_pidpath(client->pid, client->execpath, sizeof(client->execpath));
159	if (ret != -1)
160	    client->execpath[sizeof(client->execpath) - 1] = '\0';
161	else {
162	    /* failed, lets not try again */
163	    client->execpath[0] = 0x01;
164	    client->execpath[1] = 0x0;
165	}
166    }
167    if (client->execpath[0] != '/')
168	return NULL;
169
170    return client->execpath;
171}
172
173
174