1 /*
2 * lib/krb5/ccache/ccfns.c
3 *
4 * Copyright 2000, 2007 by the Massachusetts Institute of Technology.
5 * All Rights Reserved.
6 *
7 * Export of this software from the United States of America may
8 * require a specific license from the United States Government.
9 * It is the responsibility of any person or organization contemplating
10 * export to obtain such a license before exporting.
11 *
12 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
13 * distribute this software and its documentation for any purpose and
14 * without fee is hereby granted, provided that the above copyright
15 * notice appear in all copies and that both that copyright notice and
16 * this permission notice appear in supporting documentation, and that
17 * the name of M.I.T. not be used in advertising or publicity pertaining
18 * to distribution of the software without specific, written prior
19 * permission. Furthermore if you modify this software you must label
20 * your software as modified software and not distribute it in such a
21 * fashion that it might be confused with the original M.I.T. software.
22 * M.I.T. makes no representations about the suitability of
23 * this software for any purpose. It is provided "as is" without express
24 * or implied warranty.
25 */
26
27 /*
28 * Dispatch methods for credentials cache code.
29 */
30
31 #include "k5-int.h"
32
33 const char * KRB5_CALLCONV
krb5_cc_get_name(krb5_context context,krb5_ccache cache)34 krb5_cc_get_name (krb5_context context, krb5_ccache cache)
35 {
36 return cache->ops->get_name(context, cache);
37 }
38
39 krb5_error_code KRB5_CALLCONV
krb5_cc_gen_new(krb5_context context,krb5_ccache * cache)40 krb5_cc_gen_new (krb5_context context, krb5_ccache *cache)
41 {
42 return (*cache)->ops->gen_new(context, cache);
43 }
44
45 krb5_error_code KRB5_CALLCONV
krb5_cc_initialize(krb5_context context,krb5_ccache cache,krb5_principal principal)46 krb5_cc_initialize(krb5_context context, krb5_ccache cache,
47 krb5_principal principal)
48 {
49 return cache->ops->init(context, cache, principal);
50 }
51
52 krb5_error_code KRB5_CALLCONV
krb5_cc_destroy(krb5_context context,krb5_ccache cache)53 krb5_cc_destroy (krb5_context context, krb5_ccache cache)
54 {
55 return cache->ops->destroy(context, cache);
56 }
57
58 krb5_error_code KRB5_CALLCONV
krb5_cc_close(krb5_context context,krb5_ccache cache)59 krb5_cc_close (krb5_context context, krb5_ccache cache)
60 {
61 return cache->ops->close(context, cache);
62 }
63
64 krb5_error_code KRB5_CALLCONV
krb5_cc_store_cred(krb5_context context,krb5_ccache cache,krb5_creds * creds)65 krb5_cc_store_cred (krb5_context context, krb5_ccache cache,
66 krb5_creds *creds)
67 {
68 krb5_error_code ret;
69 krb5_ticket *tkt;
70 krb5_principal s1, s2;
71
72 ret = cache->ops->store(context, cache, creds);
73 if (ret) return ret;
74
75 /*
76 * If creds->server and the server in the decoded ticket differ,
77 * store both principals.
78 */
79 s1 = creds->server;
80 ret = decode_krb5_ticket(&creds->ticket, &tkt);
81 /* Bail out on errors in case someone is storing a non-ticket. */
82 if (ret) return 0;
83 s2 = tkt->server;
84 if (!krb5_principal_compare(context, s1, s2)) {
85 creds->server = s2;
86 ret = cache->ops->store(context, cache, creds);
87 creds->server = s1;
88 }
89 krb5_free_ticket(context, tkt);
90 return ret;
91 }
92
93 krb5_error_code KRB5_CALLCONV
krb5_cc_retrieve_cred(krb5_context context,krb5_ccache cache,krb5_flags flags,krb5_creds * mcreds,krb5_creds * creds)94 krb5_cc_retrieve_cred (krb5_context context, krb5_ccache cache,
95 krb5_flags flags, krb5_creds *mcreds,
96 krb5_creds *creds)
97 {
98 krb5_error_code ret;
99 krb5_data tmprealm;
100
101 ret = cache->ops->retrieve(context, cache, flags, mcreds, creds);
102 if (ret != KRB5_CC_NOTFOUND)
103 return ret;
104 if (!krb5_is_referral_realm(&mcreds->server->realm))
105 return ret;
106
107 /*
108 * Retry using client's realm if service has referral realm.
109 */
110 tmprealm = mcreds->server->realm;
111 mcreds->server->realm = mcreds->client->realm;
112 ret = cache->ops->retrieve(context, cache, flags, mcreds, creds);
113 mcreds->server->realm = tmprealm;
114 return ret;
115 }
116
117 krb5_error_code KRB5_CALLCONV
krb5_cc_get_principal(krb5_context context,krb5_ccache cache,krb5_principal * principal)118 krb5_cc_get_principal (krb5_context context, krb5_ccache cache,
119 krb5_principal *principal)
120 {
121 return cache->ops->get_princ(context, cache, principal);
122 }
123
124 krb5_error_code KRB5_CALLCONV
krb5_cc_start_seq_get(krb5_context context,krb5_ccache cache,krb5_cc_cursor * cursor)125 krb5_cc_start_seq_get (krb5_context context, krb5_ccache cache,
126 krb5_cc_cursor *cursor)
127 {
128 return cache->ops->get_first(context, cache, cursor);
129 }
130
131 krb5_error_code KRB5_CALLCONV
krb5_cc_next_cred(krb5_context context,krb5_ccache cache,krb5_cc_cursor * cursor,krb5_creds * creds)132 krb5_cc_next_cred (krb5_context context, krb5_ccache cache,
133 krb5_cc_cursor *cursor, krb5_creds *creds)
134 {
135 return cache->ops->get_next(context, cache, cursor, creds);
136 }
137
138 krb5_error_code KRB5_CALLCONV
krb5_cc_end_seq_get(krb5_context context,krb5_ccache cache,krb5_cc_cursor * cursor)139 krb5_cc_end_seq_get (krb5_context context, krb5_ccache cache,
140 krb5_cc_cursor *cursor)
141 {
142 return cache->ops->end_get(context, cache, cursor);
143 }
144
145 krb5_error_code KRB5_CALLCONV
krb5_cc_remove_cred(krb5_context context,krb5_ccache cache,krb5_flags flags,krb5_creds * creds)146 krb5_cc_remove_cred (krb5_context context, krb5_ccache cache, krb5_flags flags,
147 krb5_creds *creds)
148 {
149 return cache->ops->remove_cred(context, cache, flags, creds);
150 }
151
152 krb5_error_code KRB5_CALLCONV
krb5_cc_set_flags(krb5_context context,krb5_ccache cache,krb5_flags flags)153 krb5_cc_set_flags (krb5_context context, krb5_ccache cache, krb5_flags flags)
154 {
155 return cache->ops->set_flags(context, cache, flags);
156 }
157
158 krb5_error_code KRB5_CALLCONV
krb5_cc_get_flags(krb5_context context,krb5_ccache cache,krb5_flags * flags)159 krb5_cc_get_flags (krb5_context context, krb5_ccache cache, krb5_flags *flags)
160 {
161 return cache->ops->get_flags(context, cache, flags);
162 }
163
164 const char * KRB5_CALLCONV
krb5_cc_get_type(krb5_context context,krb5_ccache cache)165 krb5_cc_get_type (krb5_context context, krb5_ccache cache)
166 {
167 return cache->ops->prefix;
168 }
169