xref: /freebsd/crypto/heimdal/lib/kadm5/context_s.c (revision 39beb93c3f8bdbf72a61fda42300b5ebed7390c8)
1 /*
2  * Copyright (c) 1997 - 2002 Kungliga Tekniska H�gskolan
3  * (Royal Institute of Technology, Stockholm, Sweden).
4  * All rights reserved.
5  *
6  * Redistribution and use in source and binary forms, with or without
7  * modification, are permitted provided that the following conditions
8  * are met:
9  *
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  *
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  *
17  * 3. Neither the name of the Institute nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33 
34 #include "kadm5_locl.h"
35 
36 RCSID("$Id: context_s.c 22211 2007-12-07 19:27:27Z lha $");
37 
38 static void
39 set_funcs(kadm5_server_context *c)
40 {
41 #define SET(C, F) (C)->funcs.F = kadm5_s_ ## F
42     SET(c, chpass_principal);
43     SET(c, chpass_principal_with_key);
44     SET(c, create_principal);
45     SET(c, delete_principal);
46     SET(c, destroy);
47     SET(c, flush);
48     SET(c, get_principal);
49     SET(c, get_principals);
50     SET(c, get_privs);
51     SET(c, modify_principal);
52     SET(c, randkey_principal);
53     SET(c, rename_principal);
54 }
55 
56 static void
57 set_socket_name(krb5_context context, struct sockaddr_un *un)
58 {
59     const char *fn = kadm5_log_signal_socket(context);
60 
61     memset(un, 0, sizeof(*un));
62     un->sun_family = AF_UNIX;
63     strlcpy (un->sun_path, fn, sizeof(un->sun_path));
64 }
65 
66 static kadm5_ret_t
67 find_db_spec(kadm5_server_context *ctx)
68 {
69     krb5_context context = ctx->context;
70     struct hdb_dbinfo *info, *d;
71     krb5_error_code ret;
72 
73     if (ctx->config.realm) {
74 	/* fetch the databases */
75 	ret = hdb_get_dbinfo(context, &info);
76 	if (ret)
77 	    return ret;
78 
79 	d = NULL;
80 	while ((d = hdb_dbinfo_get_next(info, d)) != NULL) {
81 	    const char *p = hdb_dbinfo_get_realm(context, d);
82 
83 	    /* match default (realm-less) */
84 	    if(p != NULL && strcmp(ctx->config.realm, p) != 0)
85 		continue;
86 
87 	    p = hdb_dbinfo_get_dbname(context, d);
88 	    if (p)
89 		ctx->config.dbname = strdup(p);
90 
91 	    p = hdb_dbinfo_get_acl_file(context, d);
92 	    if (p)
93 		ctx->config.acl_file = strdup(p);
94 
95 	    p = hdb_dbinfo_get_mkey_file(context, d);
96 	    if (p)
97 		ctx->config.stash_file = strdup(p);
98 
99 	    p = hdb_dbinfo_get_log_file(context, d);
100 	    if (p)
101 		ctx->log_context.log_file = strdup(p);
102 	    break;
103 	}
104 	hdb_free_dbinfo(context, &info);
105     }
106 
107     /* If any of the values was unset, pick up the default value */
108 
109     if (ctx->config.dbname == NULL)
110 	ctx->config.dbname = strdup(hdb_default_db(context));
111     if (ctx->config.acl_file == NULL)
112 	asprintf(&ctx->config.acl_file, "%s/kadmind.acl", hdb_db_dir(context));
113     if (ctx->config.stash_file == NULL)
114 	asprintf(&ctx->config.stash_file, "%s/m-key", hdb_db_dir(context));
115     if (ctx->log_context.log_file == NULL)
116 	asprintf(&ctx->log_context.log_file, "%s/log", hdb_db_dir(context));
117 
118     set_socket_name(context, &ctx->log_context.socket_name);
119 
120     return 0;
121 }
122 
123 kadm5_ret_t
124 _kadm5_s_init_context(kadm5_server_context **ctx,
125 		      kadm5_config_params *params,
126 		      krb5_context context)
127 {
128     *ctx = malloc(sizeof(**ctx));
129     if(*ctx == NULL)
130 	return ENOMEM;
131     memset(*ctx, 0, sizeof(**ctx));
132     set_funcs(*ctx);
133     (*ctx)->context = context;
134     krb5_add_et_list (context, initialize_kadm5_error_table_r);
135 #define is_set(M) (params && params->mask & KADM5_CONFIG_ ## M)
136     if(is_set(REALM))
137 	(*ctx)->config.realm = strdup(params->realm);
138     else
139 	krb5_get_default_realm(context, &(*ctx)->config.realm);
140     if(is_set(DBNAME))
141 	(*ctx)->config.dbname = strdup(params->dbname);
142     if(is_set(ACL_FILE))
143 	(*ctx)->config.acl_file = strdup(params->acl_file);
144     if(is_set(STASH_FILE))
145 	(*ctx)->config.stash_file = strdup(params->stash_file);
146 
147     find_db_spec(*ctx);
148 
149     /* PROFILE can't be specified for now */
150     /* KADMIND_PORT is supposed to be used on the server also,
151        but this doesn't make sense */
152     /* ADMIN_SERVER is client only */
153     /* ADNAME is not used at all (as far as I can tell) */
154     /* ADB_LOCKFILE ditto */
155     /* DICT_FILE */
156     /* ADMIN_KEYTAB */
157     /* MKEY_FROM_KEYBOARD is not supported */
158     /* MKEY_NAME neither */
159     /* ENCTYPE */
160     /* MAX_LIFE */
161     /* MAX_RLIFE */
162     /* EXPIRATION */
163     /* FLAGS */
164     /* ENCTYPES */
165 
166     return 0;
167 }
168 
169 HDB *
170 _kadm5_s_get_db(void *server_handle)
171 {
172     kadm5_server_context *context = server_handle;
173     return context->db;
174 }
175