1*54925bf6Swillf /*
2*54925bf6Swillf  * lib/kdb/kdb_ldap/ldap_krbcontainer.c
3*54925bf6Swillf  *
4*54925bf6Swillf  * Copyright (c) 2004-2005, Novell, Inc.
5*54925bf6Swillf  * All rights reserved.
6*54925bf6Swillf  *
7*54925bf6Swillf  * Redistribution and use in source and binary forms, with or without
8*54925bf6Swillf  * modification, are permitted provided that the following conditions are met:
9*54925bf6Swillf  *
10*54925bf6Swillf  *   * Redistributions of source code must retain the above copyright notice,
11*54925bf6Swillf  *       this list of conditions and the following disclaimer.
12*54925bf6Swillf  *   * Redistributions in binary form must reproduce the above copyright
13*54925bf6Swillf  *       notice, this list of conditions and the following disclaimer in the
14*54925bf6Swillf  *       documentation and/or other materials provided with the distribution.
15*54925bf6Swillf  *   * The copyright holder's name is not used to endorse or promote products
16*54925bf6Swillf  *       derived from this software without specific prior written permission.
17*54925bf6Swillf  *
18*54925bf6Swillf  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19*54925bf6Swillf  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20*54925bf6Swillf  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21*54925bf6Swillf  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
22*54925bf6Swillf  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23*54925bf6Swillf  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24*54925bf6Swillf  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25*54925bf6Swillf  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26*54925bf6Swillf  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27*54925bf6Swillf  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28*54925bf6Swillf  * POSSIBILITY OF SUCH DAMAGE.
29*54925bf6Swillf  */
30*54925bf6Swillf 
31*54925bf6Swillf #include "ldap_main.h"
32*54925bf6Swillf #include "kdb_ldap.h"
33*54925bf6Swillf #include "ldap_err.h"
34*54925bf6Swillf #include <libintl.h>
35*54925bf6Swillf 
36*54925bf6Swillf char    *policyrefattribute[] = {"krbTicketPolicyReference",NULL};
37*54925bf6Swillf char    *krbcontainerrefattr[] = {"krbContainerReference", NULL};
38*54925bf6Swillf 
39*54925bf6Swillf /*
40*54925bf6Swillf  *  Free the krb5_ldap_krbcontainer_params
41*54925bf6Swillf  */
42*54925bf6Swillf 
43*54925bf6Swillf void
krb5_ldap_free_krbcontainer_params(krb5_ldap_krbcontainer_params * cparams)44*54925bf6Swillf krb5_ldap_free_krbcontainer_params(krb5_ldap_krbcontainer_params *cparams)
45*54925bf6Swillf {
46*54925bf6Swillf     if (cparams == NULL)
47*54925bf6Swillf 	return;
48*54925bf6Swillf 
49*54925bf6Swillf     if (cparams->policyreference)
50*54925bf6Swillf 	krb5_xfree(cparams->policyreference);
51*54925bf6Swillf 
52*54925bf6Swillf     if (cparams->parent)
53*54925bf6Swillf 	krb5_xfree(cparams->parent);
54*54925bf6Swillf 
55*54925bf6Swillf     if (cparams->DN)
56*54925bf6Swillf 	krb5_xfree(cparams->DN);
57*54925bf6Swillf 
58*54925bf6Swillf     krb5_xfree(cparams);
59*54925bf6Swillf 
60*54925bf6Swillf     return;
61*54925bf6Swillf }
62*54925bf6Swillf 
63*54925bf6Swillf /*
64*54925bf6Swillf  * Read the kerberos container. Kerberos container dn is read from the krb5.conf file.
65*54925bf6Swillf  * In case of eDirectory, if the dn is not present in the conf file, refer Security Container
66*54925bf6Swillf  * to fetch the dn information.
67*54925bf6Swillf  *
68*54925bf6Swillf  * Reading kerberos container includes reading the policyreference attribute and the policy
69*54925bf6Swillf  * object to read the attributes associated with it.
70*54925bf6Swillf  */
71*54925bf6Swillf 
72*54925bf6Swillf krb5_error_code
krb5_ldap_read_krbcontainer_params(krb5_context context,krb5_ldap_krbcontainer_params ** cparamp)73*54925bf6Swillf krb5_ldap_read_krbcontainer_params(krb5_context	context,
74*54925bf6Swillf 				   krb5_ldap_krbcontainer_params **cparamp)
75*54925bf6Swillf 
76*54925bf6Swillf {
77*54925bf6Swillf     krb5_error_code                 st=0, tempst=0;
78*54925bf6Swillf     LDAP                            *ld=NULL;
79*54925bf6Swillf     LDAPMessage                     *result=NULL, *ent=NULL;
80*54925bf6Swillf     krb5_ldap_krbcontainer_params   *cparams=NULL;
81*54925bf6Swillf     kdb5_dal_handle                 *dal_handle=NULL;
82*54925bf6Swillf     krb5_ldap_context               *ldap_context=NULL;
83*54925bf6Swillf     krb5_ldap_server_handle         *ldap_server_handle=NULL;
84*54925bf6Swillf 
85*54925bf6Swillf     SETUP_CONTEXT();
86*54925bf6Swillf     GET_HANDLE();
87*54925bf6Swillf 
88*54925bf6Swillf     cparams =(krb5_ldap_krbcontainer_params *) malloc(sizeof(krb5_ldap_krbcontainer_params));
89*54925bf6Swillf     CHECK_NULL(cparams);
90*54925bf6Swillf     memset((char *) cparams, 0, sizeof(krb5_ldap_krbcontainer_params));
91*54925bf6Swillf 
92*54925bf6Swillf     /* read kerberos containter location from [dbmodules] section of krb5.conf file */
93*54925bf6Swillf     if (ldap_context->conf_section) {
94*54925bf6Swillf 	if ((st=profile_get_string(context->profile, KDB_MODULE_SECTION, ldap_context->conf_section,
95*54925bf6Swillf 				   "ldap_kerberos_container_dn", NULL,
96*54925bf6Swillf 				   &cparams->DN)) != 0) {
97*54925bf6Swillf 	    krb5_set_error_message(context, st, gettext("Error reading kerberos container location "
98*54925bf6Swillf 				   "from krb5.conf"));
99*54925bf6Swillf 	    goto cleanup;
100*54925bf6Swillf 	}
101*54925bf6Swillf     }
102*54925bf6Swillf 
103*54925bf6Swillf     /* read kerberos containter location from [dbdefaults] section of krb5.conf file */
104*54925bf6Swillf     if (cparams->DN == NULL) {
105*54925bf6Swillf 	if ((st=profile_get_string(context->profile, KDB_MODULE_DEF_SECTION,
106*54925bf6Swillf 				   "ldap_kerberos_container_dn", NULL,
107*54925bf6Swillf 				   NULL, &cparams->DN)) != 0) {
108*54925bf6Swillf 	    krb5_set_error_message(context, st, gettext("Error reading kerberos container location "
109*54925bf6Swillf 				   "from krb5.conf"));
110*54925bf6Swillf 	    goto cleanup;
111*54925bf6Swillf 	}
112*54925bf6Swillf     }
113*54925bf6Swillf 
114*54925bf6Swillf #ifndef HAVE_EDIRECTORY
115*54925bf6Swillf /*
116*54925bf6Swillf  * In case eDirectory, we can fall back to security container if the kerberos container location
117*54925bf6Swillf  * is missing in the conf file. In openldap we will have to return an error.
118*54925bf6Swillf  */
119*54925bf6Swillf     if (cparams->DN == NULL) {
120*54925bf6Swillf 	st = KRB5_KDB_SERVER_INTERNAL_ERR;
121*54925bf6Swillf 	krb5_set_error_message(context, st, gettext("Kerberos container location not specified"));
122*54925bf6Swillf 	goto cleanup;
123*54925bf6Swillf     }
124*54925bf6Swillf #endif
125*54925bf6Swillf 
126*54925bf6Swillf     if (cparams->DN != NULL) {
127*54925bf6Swillf 	/* NOTE: krbmaxtktlife, krbmaxrenewableage ... present on Kerberos Container is
128*54925bf6Swillf 	 * not read
129*54925bf6Swillf 	 */
130*54925bf6Swillf 	LDAP_SEARCH_1(cparams->DN, LDAP_SCOPE_BASE, "(objectclass=krbContainer)", policyrefattribute, IGNORE_STATUS);
131*54925bf6Swillf 	if (st != LDAP_SUCCESS && st != LDAP_NO_SUCH_OBJECT) {
132*54925bf6Swillf 	    st = set_ldap_error(context, st, OP_SEARCH);
133*54925bf6Swillf 	    goto cleanup;
134*54925bf6Swillf 	}
135*54925bf6Swillf 
136*54925bf6Swillf 	if (st == LDAP_NO_SUCH_OBJECT) {
137*54925bf6Swillf 	    st = KRB5_KDB_NOENTRY;
138*54925bf6Swillf 	    goto cleanup;
139*54925bf6Swillf 	}
140*54925bf6Swillf     }
141*54925bf6Swillf 
142*54925bf6Swillf #ifdef HAVE_EDIRECTORY
143*54925bf6Swillf     /*
144*54925bf6Swillf      * If the kerberos location in the conf file is missing or invalid, fall back to the
145*54925bf6Swillf      * security container. If the kerberos location in the security container is also missing
146*54925bf6Swillf      * then fall back to the default value
147*54925bf6Swillf      */
148*54925bf6Swillf     if ((cparams->DN == NULL) || (st == LDAP_NO_SUCH_OBJECT)) {
149*54925bf6Swillf 	/*
150*54925bf6Swillf 	 * kerberos container can be anywhere. locate it by reading the security
151*54925bf6Swillf 	 * container to find the location.
152*54925bf6Swillf 	 */
153*54925bf6Swillf 	LDAP_SEARCH(SECURITY_CONTAINER, LDAP_SCOPE_BASE, NULL, krbcontainerrefattr);
154*54925bf6Swillf 	if ((ent = ldap_first_entry(ld, result)) != NULL) {
155*54925bf6Swillf 	    if ((st=krb5_ldap_get_string(ld, ent, "krbcontainerreference",
156*54925bf6Swillf 					 &(cparams->DN), NULL)) != 0)
157*54925bf6Swillf 		goto cleanup;
158*54925bf6Swillf 	    if (cparams->DN == NULL) {
159*54925bf6Swillf 		cparams->DN = strdup(KERBEROS_CONTAINER);
160*54925bf6Swillf 		CHECK_NULL(cparams->DN);
161*54925bf6Swillf 	    }
162*54925bf6Swillf 	}
163*54925bf6Swillf 	ldap_msgfree(result);
164*54925bf6Swillf 
165*54925bf6Swillf 	/* NOTE: krbmaxtktlife, krbmaxrenewableage ... attributes present on
166*54925bf6Swillf 	 * Kerberos Container is not read
167*54925bf6Swillf 	 */
168*54925bf6Swillf 	LDAP_SEARCH(cparams->DN, LDAP_SCOPE_BASE, "(objectclass=krbContainer)", policyrefattribute);
169*54925bf6Swillf     }
170*54925bf6Swillf #endif
171*54925bf6Swillf 
172*54925bf6Swillf     if ((ent = ldap_first_entry(ld, result))) {
173*54925bf6Swillf 	if ((st=krb5_ldap_get_string(ld, ent, "krbticketpolicyreference",
174*54925bf6Swillf 				     &(cparams->policyreference), NULL)) != 0)
175*54925bf6Swillf 	    goto cleanup;
176*54925bf6Swillf     }
177*54925bf6Swillf     ldap_msgfree(result);
178*54925bf6Swillf 
179*54925bf6Swillf     if (cparams->policyreference != NULL) {
180*54925bf6Swillf 	LDAP_SEARCH_1(cparams->policyreference, LDAP_SCOPE_BASE, NULL, policy_attributes, IGNORE_STATUS);
181*54925bf6Swillf 	if (st != LDAP_SUCCESS && st!= LDAP_NO_SUCH_OBJECT) {
182*54925bf6Swillf 	    st = set_ldap_error(context, st, OP_SEARCH);
183*54925bf6Swillf 	    goto cleanup;
184*54925bf6Swillf 	}
185*54925bf6Swillf 	st = LDAP_SUCCESS; /* reset the return status in case it is LDAP_NO_SUCH_OBJECT */
186*54925bf6Swillf 
187*54925bf6Swillf 	ent=ldap_first_entry(ld, result);
188*54925bf6Swillf 	if (ent != NULL) {
189*54925bf6Swillf 	    krb5_ldap_get_value(ld, ent, "krbmaxtktlife", &(cparams->max_life));
190*54925bf6Swillf 	    krb5_ldap_get_value(ld, ent, "krbmaxrenewableage", &(cparams->max_renewable_life));
191*54925bf6Swillf 	    krb5_ldap_get_value(ld, ent, "krbticketflags", &(cparams->tktflags));
192*54925bf6Swillf 	}
193*54925bf6Swillf 	ldap_msgfree(result);
194*54925bf6Swillf     }
195*54925bf6Swillf     *cparamp=cparams;
196*54925bf6Swillf 
197*54925bf6Swillf cleanup:
198*54925bf6Swillf     if (st != 0) {
199*54925bf6Swillf 	krb5_ldap_free_krbcontainer_params(cparams);
200*54925bf6Swillf 	*cparamp=NULL;
201*54925bf6Swillf     }
202*54925bf6Swillf     krb5_ldap_put_handle_to_pool(ldap_context, ldap_server_handle);
203*54925bf6Swillf     return st;
204*54925bf6Swillf }
205