zoneconf.c revision 1.8 1 1.8 christos /* $NetBSD: zoneconf.c,v 1.8 2020/08/03 17:23:37 christos Exp $ */
2 1.1 christos
3 1.1 christos /*
4 1.1 christos * Copyright (C) Internet Systems Consortium, Inc. ("ISC")
5 1.1 christos *
6 1.1 christos * This Source Code Form is subject to the terms of the Mozilla Public
7 1.1 christos * License, v. 2.0. If a copy of the MPL was not distributed with this
8 1.1 christos * file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 1.1 christos *
10 1.1 christos * See the COPYRIGHT file distributed with this work for additional
11 1.1 christos * information regarding copyright ownership.
12 1.1 christos */
13 1.1 christos
14 1.3 christos #include <inttypes.h>
15 1.3 christos #include <stdbool.h>
16 1.3 christos
17 1.1 christos #include <isc/buffer.h>
18 1.1 christos #include <isc/file.h>
19 1.1 christos #include <isc/mem.h>
20 1.1 christos #include <isc/print.h>
21 1.1 christos #include <isc/stats.h>
22 1.7 christos #include <isc/string.h> /* Required for HP/UX (and others?) */
23 1.1 christos #include <isc/util.h>
24 1.1 christos
25 1.1 christos #include <dns/acl.h>
26 1.1 christos #include <dns/db.h>
27 1.7 christos #include <dns/fixedname.h>
28 1.1 christos #include <dns/ipkeylist.h>
29 1.1 christos #include <dns/journal.h>
30 1.7 christos #include <dns/kasp.h>
31 1.1 christos #include <dns/log.h>
32 1.7 christos #include <dns/masterdump.h>
33 1.1 christos #include <dns/name.h>
34 1.1 christos #include <dns/rdata.h>
35 1.7 christos #include <dns/rdatalist.h>
36 1.7 christos #include <dns/rdataset.h>
37 1.1 christos #include <dns/rdatatype.h>
38 1.1 christos #include <dns/result.h>
39 1.1 christos #include <dns/sdlz.h>
40 1.1 christos #include <dns/ssu.h>
41 1.1 christos #include <dns/stats.h>
42 1.1 christos #include <dns/tsig.h>
43 1.1 christos #include <dns/view.h>
44 1.1 christos #include <dns/zone.h>
45 1.1 christos
46 1.1 christos #include <ns/client.h>
47 1.1 christos
48 1.1 christos #include <named/config.h>
49 1.1 christos #include <named/globals.h>
50 1.1 christos #include <named/log.h>
51 1.1 christos #include <named/server.h>
52 1.1 christos #include <named/zoneconf.h>
53 1.1 christos
54 1.1 christos /* ACLs associated with zone */
55 1.1 christos typedef enum {
56 1.1 christos allow_notify,
57 1.1 christos allow_query,
58 1.1 christos allow_query_on,
59 1.1 christos allow_transfer,
60 1.1 christos allow_update,
61 1.1 christos allow_update_forwarding
62 1.1 christos } acl_type_t;
63 1.1 christos
64 1.7 christos #define RETERR(x) \
65 1.7 christos do { \
66 1.7 christos isc_result_t _r = (x); \
67 1.7 christos if (_r != ISC_R_SUCCESS) \
68 1.7 christos return ((_r)); \
69 1.2 christos } while (/*CONSTCOND*/0)
70 1.1 christos
71 1.7 christos #define CHECK(x) \
72 1.7 christos do { \
73 1.7 christos result = (x); \
74 1.7 christos if (result != ISC_R_SUCCESS) \
75 1.7 christos goto cleanup; \
76 1.2 christos } while (/*CONSTCOND*/0)
77 1.1 christos
78 1.1 christos /*%
79 1.1 christos * Convenience function for configuring a single zone ACL.
80 1.1 christos */
81 1.1 christos static isc_result_t
82 1.1 christos configure_zone_acl(const cfg_obj_t *zconfig, const cfg_obj_t *vconfig,
83 1.1 christos const cfg_obj_t *config, acl_type_t acltype,
84 1.1 christos cfg_aclconfctx_t *actx, dns_zone_t *zone,
85 1.1 christos void (*setzacl)(dns_zone_t *, dns_acl_t *),
86 1.7 christos void (*clearzacl)(dns_zone_t *)) {
87 1.1 christos isc_result_t result;
88 1.7 christos const cfg_obj_t *maps[5] = { NULL, NULL, NULL, NULL, NULL };
89 1.1 christos const cfg_obj_t *aclobj = NULL;
90 1.1 christos int i = 0;
91 1.1 christos dns_acl_t **aclp = NULL, *acl = NULL;
92 1.1 christos const char *aclname;
93 1.1 christos dns_view_t *view;
94 1.1 christos
95 1.1 christos view = dns_zone_getview(zone);
96 1.1 christos
97 1.1 christos switch (acltype) {
98 1.7 christos case allow_notify:
99 1.7 christos if (view != NULL) {
100 1.1 christos aclp = &view->notifyacl;
101 1.7 christos }
102 1.1 christos aclname = "allow-notify";
103 1.1 christos break;
104 1.7 christos case allow_query:
105 1.7 christos if (view != NULL) {
106 1.1 christos aclp = &view->queryacl;
107 1.7 christos }
108 1.1 christos aclname = "allow-query";
109 1.1 christos break;
110 1.7 christos case allow_query_on:
111 1.7 christos if (view != NULL) {
112 1.1 christos aclp = &view->queryonacl;
113 1.7 christos }
114 1.1 christos aclname = "allow-query-on";
115 1.1 christos break;
116 1.7 christos case allow_transfer:
117 1.7 christos if (view != NULL) {
118 1.1 christos aclp = &view->transferacl;
119 1.7 christos }
120 1.1 christos aclname = "allow-transfer";
121 1.1 christos break;
122 1.7 christos case allow_update:
123 1.7 christos if (view != NULL) {
124 1.1 christos aclp = &view->updateacl;
125 1.7 christos }
126 1.1 christos aclname = "allow-update";
127 1.1 christos break;
128 1.7 christos case allow_update_forwarding:
129 1.7 christos if (view != NULL) {
130 1.1 christos aclp = &view->upfwdacl;
131 1.7 christos }
132 1.1 christos aclname = "allow-update-forwarding";
133 1.1 christos break;
134 1.7 christos default:
135 1.1 christos INSIST(0);
136 1.3 christos ISC_UNREACHABLE();
137 1.1 christos }
138 1.1 christos
139 1.1 christos /* First check to see if ACL is defined within the zone */
140 1.1 christos if (zconfig != NULL) {
141 1.1 christos maps[0] = cfg_tuple_get(zconfig, "options");
142 1.1 christos (void)named_config_get(maps, aclname, &aclobj);
143 1.1 christos if (aclobj != NULL) {
144 1.1 christos aclp = NULL;
145 1.1 christos goto parse_acl;
146 1.1 christos }
147 1.1 christos }
148 1.1 christos
149 1.1 christos /* Failing that, see if there's a default ACL already in the view */
150 1.1 christos if (aclp != NULL && *aclp != NULL) {
151 1.1 christos (*setzacl)(zone, *aclp);
152 1.1 christos return (ISC_R_SUCCESS);
153 1.1 christos }
154 1.1 christos
155 1.1 christos /* Check for default ACLs that haven't been parsed yet */
156 1.1 christos if (vconfig != NULL) {
157 1.1 christos const cfg_obj_t *options = cfg_tuple_get(vconfig, "options");
158 1.7 christos if (options != NULL) {
159 1.1 christos maps[i++] = options;
160 1.7 christos }
161 1.1 christos }
162 1.1 christos if (config != NULL) {
163 1.1 christos const cfg_obj_t *options = NULL;
164 1.1 christos (void)cfg_map_get(config, "options", &options);
165 1.7 christos if (options != NULL) {
166 1.1 christos maps[i++] = options;
167 1.7 christos }
168 1.1 christos }
169 1.1 christos maps[i++] = named_g_defaults;
170 1.1 christos maps[i] = NULL;
171 1.1 christos
172 1.1 christos (void)named_config_get(maps, aclname, &aclobj);
173 1.1 christos if (aclobj == NULL) {
174 1.1 christos (*clearzacl)(zone);
175 1.1 christos return (ISC_R_SUCCESS);
176 1.1 christos }
177 1.1 christos
178 1.1 christos parse_acl:
179 1.1 christos result = cfg_acl_fromconfig(aclobj, config, named_g_lctx, actx,
180 1.1 christos dns_zone_getmctx(zone), 0, &acl);
181 1.7 christos if (result != ISC_R_SUCCESS) {
182 1.1 christos return (result);
183 1.7 christos }
184 1.1 christos (*setzacl)(zone, acl);
185 1.1 christos
186 1.1 christos /* Set the view default now */
187 1.7 christos if (aclp != NULL) {
188 1.1 christos dns_acl_attach(acl, aclp);
189 1.7 christos }
190 1.1 christos
191 1.1 christos dns_acl_detach(&acl);
192 1.1 christos return (ISC_R_SUCCESS);
193 1.1 christos }
194 1.1 christos
195 1.1 christos /*%
196 1.1 christos * Parse the zone update-policy statement.
197 1.1 christos */
198 1.1 christos static isc_result_t
199 1.1 christos configure_zone_ssutable(const cfg_obj_t *zconfig, dns_zone_t *zone,
200 1.7 christos const char *zname) {
201 1.1 christos const cfg_obj_t *updatepolicy = NULL;
202 1.1 christos const cfg_listelt_t *element, *element2;
203 1.1 christos dns_ssutable_t *table = NULL;
204 1.1 christos isc_mem_t *mctx = dns_zone_getmctx(zone);
205 1.3 christos bool autoddns = false;
206 1.1 christos isc_result_t result;
207 1.1 christos
208 1.1 christos (void)cfg_map_get(zconfig, "update-policy", &updatepolicy);
209 1.1 christos
210 1.1 christos if (updatepolicy == NULL) {
211 1.1 christos dns_zone_setssutable(zone, NULL);
212 1.1 christos return (ISC_R_SUCCESS);
213 1.1 christos }
214 1.1 christos
215 1.1 christos if (cfg_obj_isstring(updatepolicy) &&
216 1.7 christos strcmp("local", cfg_obj_asstring(updatepolicy)) == 0)
217 1.7 christos {
218 1.3 christos autoddns = true;
219 1.1 christos updatepolicy = NULL;
220 1.1 christos }
221 1.1 christos
222 1.1 christos result = dns_ssutable_create(mctx, &table);
223 1.7 christos if (result != ISC_R_SUCCESS) {
224 1.1 christos return (result);
225 1.7 christos }
226 1.1 christos
227 1.7 christos for (element = cfg_list_first(updatepolicy); element != NULL;
228 1.1 christos element = cfg_list_next(element))
229 1.1 christos {
230 1.1 christos const cfg_obj_t *stmt = cfg_listelt_value(element);
231 1.1 christos const cfg_obj_t *mode = cfg_tuple_get(stmt, "mode");
232 1.1 christos const cfg_obj_t *identity = cfg_tuple_get(stmt, "identity");
233 1.1 christos const cfg_obj_t *matchtype = cfg_tuple_get(stmt, "matchtype");
234 1.1 christos const cfg_obj_t *dname = cfg_tuple_get(stmt, "name");
235 1.1 christos const cfg_obj_t *typelist = cfg_tuple_get(stmt, "types");
236 1.1 christos const char *str;
237 1.3 christos bool grant = false;
238 1.3 christos bool usezone = false;
239 1.3 christos dns_ssumatchtype_t mtype = dns_ssumatchtype_name;
240 1.1 christos dns_fixedname_t fname, fident;
241 1.1 christos isc_buffer_t b;
242 1.1 christos dns_rdatatype_t *types;
243 1.1 christos unsigned int i, n;
244 1.1 christos
245 1.1 christos str = cfg_obj_asstring(mode);
246 1.3 christos if (strcasecmp(str, "grant") == 0) {
247 1.3 christos grant = true;
248 1.3 christos } else if (strcasecmp(str, "deny") == 0) {
249 1.3 christos grant = false;
250 1.3 christos } else {
251 1.1 christos INSIST(0);
252 1.3 christos ISC_UNREACHABLE();
253 1.3 christos }
254 1.1 christos
255 1.1 christos str = cfg_obj_asstring(matchtype);
256 1.1 christos CHECK(dns_ssu_mtypefromstring(str, &mtype));
257 1.1 christos if (mtype == dns_ssumatchtype_subdomain) {
258 1.3 christos usezone = true;
259 1.1 christos }
260 1.1 christos
261 1.1 christos dns_fixedname_init(&fident);
262 1.1 christos str = cfg_obj_asstring(identity);
263 1.1 christos isc_buffer_constinit(&b, str, strlen(str));
264 1.1 christos isc_buffer_add(&b, strlen(str));
265 1.1 christos result = dns_name_fromtext(dns_fixedname_name(&fident), &b,
266 1.1 christos dns_rootname, 0, NULL);
267 1.1 christos if (result != ISC_R_SUCCESS) {
268 1.1 christos cfg_obj_log(identity, named_g_lctx, ISC_LOG_ERROR,
269 1.1 christos "'%s' is not a valid name", str);
270 1.1 christos goto cleanup;
271 1.1 christos }
272 1.1 christos
273 1.1 christos dns_fixedname_init(&fname);
274 1.1 christos if (usezone) {
275 1.6 christos dns_name_copynf(dns_zone_getorigin(zone),
276 1.7 christos dns_fixedname_name(&fname));
277 1.1 christos } else {
278 1.1 christos str = cfg_obj_asstring(dname);
279 1.1 christos isc_buffer_constinit(&b, str, strlen(str));
280 1.1 christos isc_buffer_add(&b, strlen(str));
281 1.1 christos result = dns_name_fromtext(dns_fixedname_name(&fname),
282 1.1 christos &b, dns_rootname, 0, NULL);
283 1.1 christos if (result != ISC_R_SUCCESS) {
284 1.1 christos cfg_obj_log(identity, named_g_lctx,
285 1.1 christos ISC_LOG_ERROR,
286 1.1 christos "'%s' is not a valid name", str);
287 1.1 christos goto cleanup;
288 1.1 christos }
289 1.1 christos }
290 1.1 christos
291 1.1 christos n = named_config_listcount(typelist);
292 1.7 christos if (n == 0) {
293 1.1 christos types = NULL;
294 1.7 christos } else {
295 1.1 christos types = isc_mem_get(mctx, n * sizeof(dns_rdatatype_t));
296 1.1 christos }
297 1.1 christos
298 1.1 christos i = 0;
299 1.7 christos for (element2 = cfg_list_first(typelist); element2 != NULL;
300 1.1 christos element2 = cfg_list_next(element2))
301 1.1 christos {
302 1.1 christos const cfg_obj_t *typeobj;
303 1.1 christos isc_textregion_t r;
304 1.1 christos
305 1.1 christos INSIST(i < n);
306 1.1 christos
307 1.1 christos typeobj = cfg_listelt_value(element2);
308 1.1 christos str = cfg_obj_asstring(typeobj);
309 1.1 christos DE_CONST(str, r.base);
310 1.1 christos r.length = strlen(str);
311 1.1 christos
312 1.1 christos result = dns_rdatatype_fromtext(&types[i++], &r);
313 1.1 christos if (result != ISC_R_SUCCESS) {
314 1.1 christos cfg_obj_log(identity, named_g_lctx,
315 1.1 christos ISC_LOG_ERROR,
316 1.1 christos "'%s' is not a valid type", str);
317 1.1 christos isc_mem_put(mctx, types,
318 1.1 christos n * sizeof(dns_rdatatype_t));
319 1.1 christos goto cleanup;
320 1.1 christos }
321 1.1 christos }
322 1.1 christos INSIST(i == n);
323 1.1 christos
324 1.7 christos result = dns_ssutable_addrule(
325 1.7 christos table, grant, dns_fixedname_name(&fident), mtype,
326 1.7 christos dns_fixedname_name(&fname), n, types);
327 1.7 christos if (types != NULL) {
328 1.1 christos isc_mem_put(mctx, types, n * sizeof(dns_rdatatype_t));
329 1.7 christos }
330 1.1 christos if (result != ISC_R_SUCCESS) {
331 1.1 christos goto cleanup;
332 1.1 christos }
333 1.1 christos }
334 1.1 christos
335 1.1 christos /*
336 1.1 christos * If "update-policy local;" and a session key exists,
337 1.1 christos * then use the default policy, which is equivalent to:
338 1.1 christos * update-policy { grant <session-keyname> zonesub any; };
339 1.1 christos */
340 1.1 christos if (autoddns) {
341 1.1 christos dns_rdatatype_t any = dns_rdatatype_any;
342 1.1 christos
343 1.1 christos if (named_g_server->session_keyname == NULL) {
344 1.1 christos isc_log_write(named_g_lctx, NAMED_LOGCATEGORY_GENERAL,
345 1.1 christos NAMED_LOGMODULE_SERVER, ISC_LOG_ERROR,
346 1.1 christos "failed to enable auto DDNS policy "
347 1.1 christos "for zone %s: session key not found",
348 1.1 christos zname);
349 1.1 christos result = ISC_R_NOTFOUND;
350 1.1 christos goto cleanup;
351 1.1 christos }
352 1.1 christos
353 1.7 christos result = dns_ssutable_addrule(
354 1.7 christos table, true, named_g_server->session_keyname,
355 1.7 christos dns_ssumatchtype_local, dns_zone_getorigin(zone), 1,
356 1.7 christos &any);
357 1.1 christos
358 1.7 christos if (result != ISC_R_SUCCESS) {
359 1.1 christos goto cleanup;
360 1.7 christos }
361 1.1 christos }
362 1.1 christos
363 1.1 christos result = ISC_R_SUCCESS;
364 1.1 christos dns_zone_setssutable(zone, table);
365 1.1 christos
366 1.7 christos cleanup:
367 1.1 christos dns_ssutable_detach(&table);
368 1.1 christos return (result);
369 1.1 christos }
370 1.1 christos
371 1.1 christos /*
372 1.1 christos * This is the TTL used for internally generated RRsets for static-stub zones.
373 1.1 christos * The value doesn't matter because the mapping is static, but needs to be
374 1.1 christos * defined for the sake of implementation.
375 1.1 christos */
376 1.1 christos #define STATICSTUB_SERVER_TTL 86400
377 1.1 christos
378 1.1 christos /*%
379 1.1 christos * Configure an apex NS with glues for a static-stub zone.
380 1.1 christos * For example, for the zone named "example.com", the following RRs will be
381 1.1 christos * added to the zone DB:
382 1.1 christos * example.com. NS example.com.
383 1.1 christos * example.com. A 192.0.2.1
384 1.1 christos * example.com. AAAA 2001:db8::1
385 1.1 christos */
386 1.1 christos static isc_result_t
387 1.1 christos configure_staticstub_serveraddrs(const cfg_obj_t *zconfig, dns_zone_t *zone,
388 1.1 christos dns_rdatalist_t *rdatalist_ns,
389 1.1 christos dns_rdatalist_t *rdatalist_a,
390 1.7 christos dns_rdatalist_t *rdatalist_aaaa) {
391 1.1 christos const cfg_listelt_t *element;
392 1.1 christos isc_mem_t *mctx = dns_zone_getmctx(zone);
393 1.1 christos isc_region_t region, sregion;
394 1.1 christos dns_rdata_t *rdata;
395 1.1 christos isc_result_t result = ISC_R_SUCCESS;
396 1.1 christos
397 1.7 christos for (element = cfg_list_first(zconfig); element != NULL;
398 1.1 christos element = cfg_list_next(element))
399 1.1 christos {
400 1.7 christos const isc_sockaddr_t *sa;
401 1.1 christos isc_netaddr_t na;
402 1.1 christos const cfg_obj_t *address = cfg_listelt_value(element);
403 1.1 christos dns_rdatalist_t *rdatalist;
404 1.1 christos
405 1.1 christos sa = cfg_obj_assockaddr(address);
406 1.1 christos if (isc_sockaddr_getport(sa) != 0) {
407 1.1 christos cfg_obj_log(zconfig, named_g_lctx, ISC_LOG_ERROR,
408 1.1 christos "port is not configurable for "
409 1.1 christos "static stub server-addresses");
410 1.1 christos return (ISC_R_FAILURE);
411 1.1 christos }
412 1.1 christos isc_netaddr_fromsockaddr(&na, sa);
413 1.1 christos if (isc_netaddr_getzone(&na) != 0) {
414 1.1 christos cfg_obj_log(zconfig, named_g_lctx, ISC_LOG_ERROR,
415 1.7 christos "scoped address is not allowed "
416 1.7 christos "for static stub "
417 1.7 christos "server-addresses");
418 1.1 christos return (ISC_R_FAILURE);
419 1.1 christos }
420 1.1 christos
421 1.1 christos switch (na.family) {
422 1.1 christos case AF_INET:
423 1.1 christos region.length = sizeof(na.type.in);
424 1.1 christos rdatalist = rdatalist_a;
425 1.1 christos break;
426 1.1 christos default:
427 1.1 christos INSIST(na.family == AF_INET6);
428 1.1 christos region.length = sizeof(na.type.in6);
429 1.1 christos rdatalist = rdatalist_aaaa;
430 1.1 christos break;
431 1.1 christos }
432 1.1 christos
433 1.1 christos rdata = isc_mem_get(mctx, sizeof(*rdata) + region.length);
434 1.1 christos region.base = (unsigned char *)(rdata + 1);
435 1.1 christos memmove(region.base, &na.type, region.length);
436 1.1 christos dns_rdata_init(rdata);
437 1.1 christos dns_rdata_fromregion(rdata, dns_zone_getclass(zone),
438 1.1 christos rdatalist->type, ®ion);
439 1.1 christos ISC_LIST_APPEND(rdatalist->rdata, rdata, link);
440 1.1 christos }
441 1.1 christos
442 1.1 christos /*
443 1.1 christos * If no address is specified (unlikely in this context, but possible),
444 1.1 christos * there's nothing to do anymore.
445 1.1 christos */
446 1.1 christos if (ISC_LIST_EMPTY(rdatalist_a->rdata) &&
447 1.1 christos ISC_LIST_EMPTY(rdatalist_aaaa->rdata)) {
448 1.1 christos return (ISC_R_SUCCESS);
449 1.1 christos }
450 1.1 christos
451 1.1 christos /* Add to the list an apex NS with the ns name being the origin name */
452 1.1 christos dns_name_toregion(dns_zone_getorigin(zone), &sregion);
453 1.1 christos rdata = isc_mem_get(mctx, sizeof(*rdata) + sregion.length);
454 1.1 christos region.length = sregion.length;
455 1.1 christos region.base = (unsigned char *)(rdata + 1);
456 1.1 christos memmove(region.base, sregion.base, region.length);
457 1.1 christos dns_rdata_init(rdata);
458 1.7 christos dns_rdata_fromregion(rdata, dns_zone_getclass(zone), dns_rdatatype_ns,
459 1.7 christos ®ion);
460 1.1 christos ISC_LIST_APPEND(rdatalist_ns->rdata, rdata, link);
461 1.1 christos
462 1.1 christos return (result);
463 1.1 christos }
464 1.1 christos
465 1.1 christos /*%
466 1.1 christos * Configure an apex NS with an out-of-zone NS names for a static-stub zone.
467 1.1 christos * For example, for the zone named "example.com", something like the following
468 1.1 christos * RRs will be added to the zone DB:
469 1.1 christos * example.com. NS ns.example.net.
470 1.1 christos */
471 1.1 christos static isc_result_t
472 1.1 christos configure_staticstub_servernames(const cfg_obj_t *zconfig, dns_zone_t *zone,
473 1.7 christos dns_rdatalist_t *rdatalist,
474 1.7 christos const char *zname) {
475 1.1 christos const cfg_listelt_t *element;
476 1.1 christos isc_mem_t *mctx = dns_zone_getmctx(zone);
477 1.1 christos dns_rdata_t *rdata;
478 1.1 christos isc_region_t sregion, region;
479 1.1 christos isc_result_t result = ISC_R_SUCCESS;
480 1.1 christos
481 1.7 christos for (element = cfg_list_first(zconfig); element != NULL;
482 1.1 christos element = cfg_list_next(element))
483 1.1 christos {
484 1.1 christos const cfg_obj_t *obj;
485 1.1 christos const char *str;
486 1.1 christos dns_fixedname_t fixed_name;
487 1.1 christos dns_name_t *nsname;
488 1.1 christos isc_buffer_t b;
489 1.1 christos
490 1.1 christos obj = cfg_listelt_value(element);
491 1.1 christos str = cfg_obj_asstring(obj);
492 1.1 christos
493 1.1 christos nsname = dns_fixedname_initname(&fixed_name);
494 1.1 christos
495 1.1 christos isc_buffer_constinit(&b, str, strlen(str));
496 1.1 christos isc_buffer_add(&b, strlen(str));
497 1.1 christos result = dns_name_fromtext(nsname, &b, dns_rootname, 0, NULL);
498 1.1 christos if (result != ISC_R_SUCCESS) {
499 1.1 christos cfg_obj_log(zconfig, named_g_lctx, ISC_LOG_ERROR,
500 1.7 christos "server-name '%s' is not a valid "
501 1.7 christos "name",
502 1.7 christos str);
503 1.1 christos return (result);
504 1.1 christos }
505 1.1 christos if (dns_name_issubdomain(nsname, dns_zone_getorigin(zone))) {
506 1.1 christos cfg_obj_log(zconfig, named_g_lctx, ISC_LOG_ERROR,
507 1.1 christos "server-name '%s' must not be a "
508 1.1 christos "subdomain of zone name '%s'",
509 1.1 christos str, zname);
510 1.1 christos return (ISC_R_FAILURE);
511 1.1 christos }
512 1.1 christos
513 1.1 christos dns_name_toregion(nsname, &sregion);
514 1.1 christos rdata = isc_mem_get(mctx, sizeof(*rdata) + sregion.length);
515 1.1 christos region.length = sregion.length;
516 1.1 christos region.base = (unsigned char *)(rdata + 1);
517 1.1 christos memmove(region.base, sregion.base, region.length);
518 1.1 christos dns_rdata_init(rdata);
519 1.1 christos dns_rdata_fromregion(rdata, dns_zone_getclass(zone),
520 1.1 christos dns_rdatatype_ns, ®ion);
521 1.1 christos ISC_LIST_APPEND(rdatalist->rdata, rdata, link);
522 1.1 christos }
523 1.1 christos
524 1.1 christos return (result);
525 1.1 christos }
526 1.1 christos
527 1.1 christos /*%
528 1.1 christos * Configure static-stub zone.
529 1.1 christos */
530 1.1 christos static isc_result_t
531 1.1 christos configure_staticstub(const cfg_obj_t *zconfig, dns_zone_t *zone,
532 1.7 christos const char *zname, const char *dbtype) {
533 1.1 christos int i = 0;
534 1.1 christos const cfg_obj_t *obj;
535 1.1 christos isc_mem_t *mctx = dns_zone_getmctx(zone);
536 1.1 christos dns_db_t *db = NULL;
537 1.1 christos dns_dbversion_t *dbversion = NULL;
538 1.1 christos dns_dbnode_t *apexnode = NULL;
539 1.1 christos dns_name_t apexname;
540 1.1 christos isc_result_t result;
541 1.1 christos dns_rdataset_t rdataset;
542 1.1 christos dns_rdatalist_t rdatalist_ns, rdatalist_a, rdatalist_aaaa;
543 1.7 christos dns_rdatalist_t *rdatalists[] = { &rdatalist_ns, &rdatalist_a,
544 1.7 christos &rdatalist_aaaa, NULL };
545 1.1 christos dns_rdata_t *rdata;
546 1.1 christos isc_region_t region;
547 1.1 christos
548 1.1 christos /* Create the DB beforehand */
549 1.1 christos RETERR(dns_db_create(mctx, dbtype, dns_zone_getorigin(zone),
550 1.7 christos dns_dbtype_stub, dns_zone_getclass(zone), 0, NULL,
551 1.7 christos &db));
552 1.5 christos
553 1.5 christos dns_rdataset_init(&rdataset);
554 1.1 christos
555 1.1 christos dns_rdatalist_init(&rdatalist_ns);
556 1.1 christos rdatalist_ns.rdclass = dns_zone_getclass(zone);
557 1.1 christos rdatalist_ns.type = dns_rdatatype_ns;
558 1.1 christos rdatalist_ns.ttl = STATICSTUB_SERVER_TTL;
559 1.1 christos
560 1.1 christos dns_rdatalist_init(&rdatalist_a);
561 1.1 christos rdatalist_a.rdclass = dns_zone_getclass(zone);
562 1.1 christos rdatalist_a.type = dns_rdatatype_a;
563 1.1 christos rdatalist_a.ttl = STATICSTUB_SERVER_TTL;
564 1.1 christos
565 1.1 christos dns_rdatalist_init(&rdatalist_aaaa);
566 1.1 christos rdatalist_aaaa.rdclass = dns_zone_getclass(zone);
567 1.1 christos rdatalist_aaaa.type = dns_rdatatype_aaaa;
568 1.1 christos rdatalist_aaaa.ttl = STATICSTUB_SERVER_TTL;
569 1.1 christos
570 1.1 christos /* Prepare zone RRs from the configuration */
571 1.1 christos obj = NULL;
572 1.1 christos result = cfg_map_get(zconfig, "server-addresses", &obj);
573 1.1 christos if (result == ISC_R_SUCCESS) {
574 1.1 christos INSIST(obj != NULL);
575 1.7 christos CHECK(configure_staticstub_serveraddrs(obj, zone, &rdatalist_ns,
576 1.5 christos &rdatalist_a,
577 1.5 christos &rdatalist_aaaa));
578 1.1 christos }
579 1.1 christos
580 1.1 christos obj = NULL;
581 1.1 christos result = cfg_map_get(zconfig, "server-names", &obj);
582 1.1 christos if (result == ISC_R_SUCCESS) {
583 1.1 christos INSIST(obj != NULL);
584 1.7 christos CHECK(configure_staticstub_servernames(obj, zone, &rdatalist_ns,
585 1.5 christos zname));
586 1.1 christos }
587 1.1 christos
588 1.1 christos /*
589 1.1 christos * Sanity check: there should be at least one NS RR at the zone apex
590 1.1 christos * to trigger delegation.
591 1.1 christos */
592 1.1 christos if (ISC_LIST_EMPTY(rdatalist_ns.rdata)) {
593 1.1 christos isc_log_write(named_g_lctx, NAMED_LOGCATEGORY_GENERAL,
594 1.1 christos NAMED_LOGMODULE_SERVER, ISC_LOG_ERROR,
595 1.1 christos "No NS record is configured for a "
596 1.7 christos "static-stub zone '%s'",
597 1.7 christos zname);
598 1.1 christos result = ISC_R_FAILURE;
599 1.1 christos goto cleanup;
600 1.1 christos }
601 1.1 christos
602 1.1 christos /*
603 1.1 christos * Now add NS and glue A/AAAA RRsets to the zone DB.
604 1.1 christos * First open a new version for the add operation and get a pointer
605 1.1 christos * to the apex node (all RRs are of the apex name).
606 1.1 christos */
607 1.5 christos CHECK(dns_db_newversion(db, &dbversion));
608 1.5 christos
609 1.1 christos dns_name_init(&apexname, NULL);
610 1.1 christos dns_name_clone(dns_zone_getorigin(zone), &apexname);
611 1.5 christos CHECK(dns_db_findnode(db, &apexname, false, &apexnode));
612 1.1 christos
613 1.1 christos /* Add NS RRset */
614 1.7 christos RUNTIME_CHECK(dns_rdatalist_tordataset(&rdatalist_ns, &rdataset) ==
615 1.7 christos ISC_R_SUCCESS);
616 1.7 christos CHECK(dns_db_addrdataset(db, apexnode, dbversion, 0, &rdataset, 0,
617 1.7 christos NULL));
618 1.1 christos dns_rdataset_disassociate(&rdataset);
619 1.1 christos
620 1.1 christos /* Add glue A RRset, if any */
621 1.1 christos if (!ISC_LIST_EMPTY(rdatalist_a.rdata)) {
622 1.7 christos RUNTIME_CHECK(
623 1.7 christos dns_rdatalist_tordataset(&rdatalist_a, &rdataset) ==
624 1.7 christos ISC_R_SUCCESS);
625 1.7 christos CHECK(dns_db_addrdataset(db, apexnode, dbversion, 0, &rdataset,
626 1.7 christos 0, NULL));
627 1.1 christos dns_rdataset_disassociate(&rdataset);
628 1.1 christos }
629 1.1 christos
630 1.1 christos /* Add glue AAAA RRset, if any */
631 1.1 christos if (!ISC_LIST_EMPTY(rdatalist_aaaa.rdata)) {
632 1.7 christos RUNTIME_CHECK(
633 1.7 christos dns_rdatalist_tordataset(&rdatalist_aaaa, &rdataset) ==
634 1.7 christos ISC_R_SUCCESS);
635 1.7 christos CHECK(dns_db_addrdataset(db, apexnode, dbversion, 0, &rdataset,
636 1.7 christos 0, NULL));
637 1.1 christos dns_rdataset_disassociate(&rdataset);
638 1.1 christos }
639 1.1 christos
640 1.5 christos dns_db_closeversion(db, &dbversion, true);
641 1.5 christos dns_zone_setdb(zone, db);
642 1.5 christos
643 1.1 christos result = ISC_R_SUCCESS;
644 1.1 christos
645 1.7 christos cleanup:
646 1.5 christos if (dns_rdataset_isassociated(&rdataset)) {
647 1.5 christos dns_rdataset_disassociate(&rdataset);
648 1.5 christos }
649 1.5 christos if (apexnode != NULL) {
650 1.1 christos dns_db_detachnode(db, &apexnode);
651 1.5 christos }
652 1.5 christos if (dbversion != NULL) {
653 1.5 christos dns_db_closeversion(db, &dbversion, false);
654 1.5 christos }
655 1.5 christos if (db != NULL) {
656 1.1 christos dns_db_detach(&db);
657 1.5 christos }
658 1.1 christos for (i = 0; rdatalists[i] != NULL; i++) {
659 1.1 christos while ((rdata = ISC_LIST_HEAD(rdatalists[i]->rdata)) != NULL) {
660 1.1 christos ISC_LIST_UNLINK(rdatalists[i]->rdata, rdata, link);
661 1.1 christos dns_rdata_toregion(rdata, ®ion);
662 1.1 christos isc_mem_put(mctx, rdata,
663 1.1 christos sizeof(*rdata) + region.length);
664 1.1 christos }
665 1.1 christos }
666 1.1 christos
667 1.1 christos INSIST(dbversion == NULL);
668 1.1 christos
669 1.1 christos return (result);
670 1.1 christos }
671 1.1 christos
672 1.1 christos /*%
673 1.1 christos * Convert a config file zone type into a server zone type.
674 1.1 christos */
675 1.1 christos static inline dns_zonetype_t
676 1.1 christos zonetype_fromconfig(const cfg_obj_t *map) {
677 1.1 christos const cfg_obj_t *obj = NULL;
678 1.1 christos isc_result_t result;
679 1.1 christos
680 1.1 christos result = cfg_map_get(map, "type", &obj);
681 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
682 1.1 christos return (named_config_getzonetype(obj));
683 1.1 christos }
684 1.1 christos
685 1.1 christos /*%
686 1.1 christos * Helper function for strtoargv(). Pardon the gratuitous recursion.
687 1.1 christos */
688 1.1 christos static isc_result_t
689 1.7 christos strtoargvsub(isc_mem_t *mctx, char *s, unsigned int *argcp, char ***argvp,
690 1.7 christos unsigned int n) {
691 1.1 christos isc_result_t result;
692 1.1 christos
693 1.1 christos /* Discard leading whitespace. */
694 1.7 christos while (*s == ' ' || *s == '\t') {
695 1.1 christos s++;
696 1.7 christos }
697 1.1 christos
698 1.1 christos if (*s == '\0') {
699 1.1 christos /* We have reached the end of the string. */
700 1.1 christos *argcp = n;
701 1.1 christos *argvp = isc_mem_get(mctx, n * sizeof(char *));
702 1.1 christos } else {
703 1.1 christos char *p = s;
704 1.7 christos while (*p != ' ' && *p != '\t' && *p != '\0') {
705 1.1 christos p++;
706 1.7 christos }
707 1.7 christos if (*p != '\0') {
708 1.1 christos *p++ = '\0';
709 1.7 christos }
710 1.1 christos
711 1.1 christos result = strtoargvsub(mctx, p, argcp, argvp, n + 1);
712 1.7 christos if (result != ISC_R_SUCCESS) {
713 1.1 christos return (result);
714 1.7 christos }
715 1.1 christos (*argvp)[n] = s;
716 1.1 christos }
717 1.1 christos return (ISC_R_SUCCESS);
718 1.1 christos }
719 1.1 christos
720 1.1 christos /*%
721 1.1 christos * Tokenize the string "s" into whitespace-separated words,
722 1.1 christos * return the number of words in '*argcp' and an array
723 1.1 christos * of pointers to the words in '*argvp'. The caller
724 1.1 christos * must free the array using isc_mem_put(). The string
725 1.1 christos * is modified in-place.
726 1.1 christos */
727 1.1 christos static isc_result_t
728 1.1 christos strtoargv(isc_mem_t *mctx, char *s, unsigned int *argcp, char ***argvp) {
729 1.1 christos return (strtoargvsub(mctx, s, argcp, argvp, 0));
730 1.1 christos }
731 1.1 christos
732 1.1 christos static void
733 1.1 christos checknames(dns_zonetype_t ztype, const cfg_obj_t **maps,
734 1.7 christos const cfg_obj_t **objp) {
735 1.1 christos isc_result_t result;
736 1.1 christos
737 1.1 christos switch (ztype) {
738 1.3 christos case dns_zone_slave:
739 1.3 christos case dns_zone_mirror:
740 1.8 christos result = named_checknames_get(maps, "secondary", objp);
741 1.8 christos if (result != ISC_R_SUCCESS) {
742 1.8 christos result = named_checknames_get(maps, "slave", objp);
743 1.8 christos }
744 1.3 christos break;
745 1.3 christos case dns_zone_master:
746 1.8 christos result = named_checknames_get(maps, "primary", objp);
747 1.8 christos if (result != ISC_R_SUCCESS) {
748 1.8 christos result = named_checknames_get(maps, "master", objp);
749 1.8 christos }
750 1.3 christos break;
751 1.1 christos default:
752 1.1 christos INSIST(0);
753 1.3 christos ISC_UNREACHABLE();
754 1.1 christos }
755 1.8 christos
756 1.1 christos INSIST(result == ISC_R_SUCCESS && objp != NULL && *objp != NULL);
757 1.1 christos }
758 1.1 christos
759 1.1 christos /*
760 1.1 christos * Callback to see if a non-recursive query coming from 'srcaddr' to
761 1.1 christos * 'destaddr', with optional key 'mykey' for class 'rdclass' would be
762 1.1 christos * delivered to 'myview'.
763 1.1 christos *
764 1.1 christos * We run this unlocked as both the view list and the interface list
765 1.1 christos * are updated when the appropriate task has exclusivity.
766 1.1 christos */
767 1.3 christos static bool
768 1.7 christos isself(dns_view_t *myview, dns_tsigkey_t *mykey, const isc_sockaddr_t *srcaddr,
769 1.7 christos const isc_sockaddr_t *dstaddr, dns_rdataclass_t rdclass, void *arg) {
770 1.7 christos ns_interfacemgr_t *interfacemgr = (ns_interfacemgr_t *)arg;
771 1.1 christos dns_aclenv_t *env = ns_interfacemgr_getaclenv(interfacemgr);
772 1.1 christos dns_view_t *view;
773 1.1 christos dns_tsigkey_t *key = NULL;
774 1.1 christos isc_netaddr_t netsrc;
775 1.1 christos isc_netaddr_t netdst;
776 1.1 christos
777 1.7 christos if (interfacemgr == NULL) {
778 1.3 christos return (true);
779 1.7 christos }
780 1.1 christos
781 1.7 christos if (!ns_interfacemgr_listeningon(interfacemgr, dstaddr)) {
782 1.3 christos return (false);
783 1.7 christos }
784 1.1 christos
785 1.1 christos isc_netaddr_fromsockaddr(&netsrc, srcaddr);
786 1.1 christos isc_netaddr_fromsockaddr(&netdst, dstaddr);
787 1.1 christos
788 1.7 christos for (view = ISC_LIST_HEAD(named_g_server->viewlist); view != NULL;
789 1.6 christos view = ISC_LIST_NEXT(view, link))
790 1.6 christos {
791 1.6 christos const dns_name_t *tsig = NULL;
792 1.1 christos
793 1.7 christos if (view->matchrecursiveonly) {
794 1.1 christos continue;
795 1.7 christos }
796 1.1 christos
797 1.7 christos if (rdclass != view->rdclass) {
798 1.1 christos continue;
799 1.7 christos }
800 1.1 christos
801 1.1 christos if (mykey != NULL) {
802 1.3 christos bool match;
803 1.1 christos isc_result_t result;
804 1.1 christos
805 1.1 christos result = dns_view_gettsig(view, &mykey->name, &key);
806 1.7 christos if (result != ISC_R_SUCCESS) {
807 1.1 christos continue;
808 1.7 christos }
809 1.1 christos match = dst_key_compare(mykey->key, key->key);
810 1.1 christos dns_tsigkey_detach(&key);
811 1.7 christos if (!match) {
812 1.1 christos continue;
813 1.7 christos }
814 1.1 christos tsig = dns_tsigkey_identity(mykey);
815 1.1 christos }
816 1.1 christos
817 1.3 christos if (dns_acl_allowed(&netsrc, tsig, view->matchclients, env) &&
818 1.3 christos dns_acl_allowed(&netdst, tsig, view->matchdestinations,
819 1.3 christos env))
820 1.3 christos {
821 1.1 christos break;
822 1.3 christos }
823 1.1 christos }
824 1.3 christos return (view == myview);
825 1.1 christos }
826 1.1 christos
827 1.3 christos /*%
828 1.3 christos * For mirror zones, change "notify yes;" to "notify explicit;", informing the
829 1.3 christos * user only if "notify" was explicitly configured rather than inherited from
830 1.3 christos * default configuration.
831 1.3 christos */
832 1.3 christos static dns_notifytype_t
833 1.3 christos process_notifytype(dns_notifytype_t ntype, dns_zonetype_t ztype,
834 1.7 christos const char *zname, const cfg_obj_t **maps) {
835 1.3 christos const cfg_obj_t *obj = NULL;
836 1.3 christos
837 1.3 christos /*
838 1.3 christos * Return the original setting if this is not a mirror zone or if the
839 1.3 christos * zone is configured with something else than "notify yes;".
840 1.3 christos */
841 1.3 christos if (ztype != dns_zone_mirror || ntype != dns_notifytype_yes) {
842 1.3 christos return (ntype);
843 1.3 christos }
844 1.3 christos
845 1.3 christos /*
846 1.3 christos * Only log a message if "notify" was set in the configuration
847 1.3 christos * hierarchy supplied in 'maps'.
848 1.3 christos */
849 1.3 christos if (named_config_get(maps, "notify", &obj) == ISC_R_SUCCESS) {
850 1.3 christos cfg_obj_log(obj, named_g_lctx, ISC_LOG_INFO,
851 1.3 christos "'notify explicit;' will be used for mirror zone "
852 1.7 christos "'%s'",
853 1.7 christos zname);
854 1.3 christos }
855 1.3 christos
856 1.3 christos return (dns_notifytype_explicit);
857 1.3 christos }
858 1.1 christos
859 1.1 christos isc_result_t
860 1.1 christos named_zone_configure(const cfg_obj_t *config, const cfg_obj_t *vconfig,
861 1.7 christos const cfg_obj_t *zconfig, cfg_aclconfctx_t *ac,
862 1.7 christos dns_kasplist_t *kasplist, dns_zone_t *zone,
863 1.7 christos dns_zone_t *raw) {
864 1.1 christos isc_result_t result;
865 1.1 christos const char *zname;
866 1.1 christos dns_rdataclass_t zclass;
867 1.1 christos dns_rdataclass_t vclass;
868 1.1 christos const cfg_obj_t *maps[5];
869 1.1 christos const cfg_obj_t *nodefault[4];
870 1.1 christos const cfg_obj_t *zoptions = NULL;
871 1.1 christos const cfg_obj_t *options = NULL;
872 1.1 christos const cfg_obj_t *obj;
873 1.1 christos const char *filename = NULL;
874 1.7 christos const char *kaspname = NULL;
875 1.1 christos const char *dupcheck;
876 1.1 christos dns_notifytype_t notifytype = dns_notifytype_yes;
877 1.3 christos uint32_t count;
878 1.1 christos unsigned int dbargc;
879 1.1 christos char **dbargv;
880 1.1 christos static char default_dbtype[] = "rbt";
881 1.1 christos static char dlz_dbtype[] = "dlz";
882 1.1 christos char *cpval = default_dbtype;
883 1.1 christos isc_mem_t *mctx = dns_zone_getmctx(zone);
884 1.1 christos dns_dialuptype_t dialup = dns_dialuptype_no;
885 1.1 christos dns_zonetype_t ztype;
886 1.1 christos int i;
887 1.3 christos int32_t journal_size;
888 1.3 christos bool multi;
889 1.3 christos bool alt;
890 1.7 christos dns_view_t *view = NULL;
891 1.7 christos dns_kasp_t *kasp = NULL;
892 1.3 christos bool check = false, fail = false;
893 1.3 christos bool warn = false, ignore = false;
894 1.3 christos bool ixfrdiff;
895 1.1 christos dns_masterformat_t masterformat;
896 1.1 christos const dns_master_style_t *masterstyle = &dns_master_style_default;
897 1.1 christos isc_stats_t *zoneqrystats;
898 1.1 christos dns_stats_t *rcvquerystats;
899 1.4 christos dns_stats_t *dnssecsignstats;
900 1.3 christos dns_zonestat_level_t statlevel = dns_zonestat_none;
901 1.1 christos int seconds;
902 1.1 christos dns_zone_t *mayberaw = (raw != NULL) ? raw : zone;
903 1.1 christos isc_dscp_t dscp;
904 1.1 christos
905 1.1 christos i = 0;
906 1.1 christos if (zconfig != NULL) {
907 1.1 christos zoptions = cfg_tuple_get(zconfig, "options");
908 1.1 christos nodefault[i] = maps[i] = zoptions;
909 1.1 christos i++;
910 1.1 christos }
911 1.1 christos if (vconfig != NULL) {
912 1.1 christos nodefault[i] = maps[i] = cfg_tuple_get(vconfig, "options");
913 1.1 christos i++;
914 1.1 christos }
915 1.1 christos if (config != NULL) {
916 1.1 christos (void)cfg_map_get(config, "options", &options);
917 1.1 christos if (options != NULL) {
918 1.1 christos nodefault[i] = maps[i] = options;
919 1.1 christos i++;
920 1.1 christos }
921 1.1 christos }
922 1.1 christos nodefault[i] = NULL;
923 1.1 christos maps[i++] = named_g_defaults;
924 1.1 christos maps[i] = NULL;
925 1.1 christos
926 1.7 christos if (vconfig != NULL) {
927 1.1 christos RETERR(named_config_getclass(cfg_tuple_get(vconfig, "class"),
928 1.7 christos dns_rdataclass_in, &vclass));
929 1.7 christos } else {
930 1.1 christos vclass = dns_rdataclass_in;
931 1.7 christos }
932 1.1 christos
933 1.1 christos /*
934 1.1 christos * Configure values common to all zone types.
935 1.1 christos */
936 1.1 christos
937 1.1 christos zname = cfg_obj_asstring(cfg_tuple_get(zconfig, "name"));
938 1.1 christos
939 1.7 christos RETERR(named_config_getclass(cfg_tuple_get(zconfig, "class"), vclass,
940 1.7 christos &zclass));
941 1.1 christos dns_zone_setclass(zone, zclass);
942 1.7 christos if (raw != NULL) {
943 1.1 christos dns_zone_setclass(raw, zclass);
944 1.7 christos }
945 1.1 christos
946 1.1 christos ztype = zonetype_fromconfig(zoptions);
947 1.1 christos if (raw != NULL) {
948 1.1 christos dns_zone_settype(raw, ztype);
949 1.1 christos dns_zone_settype(zone, dns_zone_master);
950 1.7 christos } else {
951 1.1 christos dns_zone_settype(zone, ztype);
952 1.7 christos }
953 1.1 christos
954 1.1 christos obj = NULL;
955 1.1 christos result = cfg_map_get(zoptions, "database", &obj);
956 1.7 christos if (result == ISC_R_SUCCESS) {
957 1.1 christos cpval = isc_mem_strdup(mctx, cfg_obj_asstring(obj));
958 1.7 christos }
959 1.7 christos if (cpval == NULL) {
960 1.7 christos return (ISC_R_NOMEMORY);
961 1.7 christos }
962 1.1 christos
963 1.1 christos obj = NULL;
964 1.1 christos result = cfg_map_get(zoptions, "dlz", &obj);
965 1.1 christos if (result == ISC_R_SUCCESS) {
966 1.1 christos const char *dlzname = cfg_obj_asstring(obj);
967 1.1 christos size_t len;
968 1.1 christos
969 1.1 christos if (cpval != default_dbtype) {
970 1.7 christos isc_log_write(named_g_lctx, NAMED_LOGCATEGORY_GENERAL,
971 1.7 christos NAMED_LOGMODULE_SERVER, ISC_LOG_ERROR,
972 1.7 christos "zone '%s': both 'database' and 'dlz' "
973 1.7 christos "specified",
974 1.7 christos zname);
975 1.7 christos return (ISC_R_FAILURE);
976 1.1 christos }
977 1.1 christos
978 1.1 christos len = strlen(dlzname) + 5;
979 1.1 christos cpval = isc_mem_allocate(mctx, len);
980 1.1 christos snprintf(cpval, len, "dlz %s", dlzname);
981 1.1 christos }
982 1.1 christos
983 1.1 christos result = strtoargv(mctx, cpval, &dbargc, &dbargv);
984 1.1 christos if (result != ISC_R_SUCCESS && cpval != default_dbtype) {
985 1.1 christos isc_mem_free(mctx, cpval);
986 1.1 christos return (result);
987 1.1 christos }
988 1.1 christos
989 1.1 christos /*
990 1.1 christos * ANSI C is strange here. There is no logical reason why (char **)
991 1.1 christos * cannot be promoted automatically to (const char * const *) by the
992 1.1 christos * compiler w/o generating a warning.
993 1.1 christos */
994 1.7 christos dns_zone_setdbtype(zone, dbargc, (const char *const *)dbargv);
995 1.1 christos isc_mem_put(mctx, dbargv, dbargc * sizeof(*dbargv));
996 1.7 christos if (cpval != default_dbtype && cpval != dlz_dbtype) {
997 1.1 christos isc_mem_free(mctx, cpval);
998 1.7 christos }
999 1.1 christos
1000 1.1 christos obj = NULL;
1001 1.1 christos result = cfg_map_get(zoptions, "file", &obj);
1002 1.7 christos if (result == ISC_R_SUCCESS) {
1003 1.1 christos filename = cfg_obj_asstring(obj);
1004 1.7 christos }
1005 1.1 christos
1006 1.1 christos /*
1007 1.1 christos * Unless we're using some alternative database, a master zone
1008 1.1 christos * will be needing a master file.
1009 1.1 christos */
1010 1.1 christos if (ztype == dns_zone_master && cpval == default_dbtype &&
1011 1.1 christos filename == NULL) {
1012 1.1 christos isc_log_write(named_g_lctx, NAMED_LOGCATEGORY_GENERAL,
1013 1.1 christos NAMED_LOGMODULE_SERVER, ISC_LOG_ERROR,
1014 1.7 christos "zone '%s': 'file' not specified", zname);
1015 1.1 christos return (ISC_R_FAILURE);
1016 1.1 christos }
1017 1.1 christos
1018 1.7 christos if (ztype == dns_zone_slave || ztype == dns_zone_mirror) {
1019 1.1 christos masterformat = dns_masterformat_raw;
1020 1.7 christos } else {
1021 1.1 christos masterformat = dns_masterformat_text;
1022 1.7 christos }
1023 1.1 christos obj = NULL;
1024 1.1 christos result = named_config_get(maps, "masterfile-format", &obj);
1025 1.1 christos if (result == ISC_R_SUCCESS) {
1026 1.1 christos const char *masterformatstr = cfg_obj_asstring(obj);
1027 1.1 christos
1028 1.3 christos if (strcasecmp(masterformatstr, "text") == 0) {
1029 1.1 christos masterformat = dns_masterformat_text;
1030 1.3 christos } else if (strcasecmp(masterformatstr, "raw") == 0) {
1031 1.1 christos masterformat = dns_masterformat_raw;
1032 1.3 christos } else if (strcasecmp(masterformatstr, "map") == 0) {
1033 1.1 christos masterformat = dns_masterformat_map;
1034 1.3 christos } else {
1035 1.1 christos INSIST(0);
1036 1.3 christos ISC_UNREACHABLE();
1037 1.3 christos }
1038 1.1 christos }
1039 1.1 christos
1040 1.1 christos obj = NULL;
1041 1.1 christos result = named_config_get(maps, "masterfile-style", &obj);
1042 1.1 christos if (result == ISC_R_SUCCESS) {
1043 1.1 christos const char *masterstylestr = cfg_obj_asstring(obj);
1044 1.1 christos
1045 1.1 christos if (masterformat != dns_masterformat_text) {
1046 1.1 christos cfg_obj_log(obj, named_g_lctx, ISC_LOG_ERROR,
1047 1.1 christos "zone '%s': 'masterfile-style' "
1048 1.1 christos "can only be used with "
1049 1.7 christos "'masterfile-format text'",
1050 1.7 christos zname);
1051 1.1 christos return (ISC_R_FAILURE);
1052 1.1 christos }
1053 1.1 christos
1054 1.3 christos if (strcasecmp(masterstylestr, "full") == 0) {
1055 1.1 christos masterstyle = &dns_master_style_full;
1056 1.3 christos } else if (strcasecmp(masterstylestr, "relative") == 0) {
1057 1.1 christos masterstyle = &dns_master_style_default;
1058 1.3 christos } else {
1059 1.1 christos INSIST(0);
1060 1.3 christos ISC_UNREACHABLE();
1061 1.3 christos }
1062 1.1 christos }
1063 1.1 christos
1064 1.1 christos obj = NULL;
1065 1.1 christos result = named_config_get(maps, "max-zone-ttl", &obj);
1066 1.1 christos if (result == ISC_R_SUCCESS && masterformat == dns_masterformat_map) {
1067 1.1 christos isc_log_write(named_g_lctx, NAMED_LOGCATEGORY_GENERAL,
1068 1.1 christos NAMED_LOGMODULE_SERVER, ISC_LOG_ERROR,
1069 1.1 christos "zone '%s': 'max-zone-ttl' is not compatible "
1070 1.7 christos "with 'masterfile-format map'",
1071 1.7 christos zname);
1072 1.1 christos return (ISC_R_FAILURE);
1073 1.1 christos } else if (result == ISC_R_SUCCESS) {
1074 1.7 christos dns_ttl_t maxttl = 0; /* unlimited */
1075 1.1 christos
1076 1.7 christos if (cfg_obj_isduration(obj)) {
1077 1.7 christos maxttl = cfg_obj_asduration(obj);
1078 1.7 christos }
1079 1.1 christos dns_zone_setmaxttl(zone, maxttl);
1080 1.7 christos if (raw != NULL) {
1081 1.1 christos dns_zone_setmaxttl(raw, maxttl);
1082 1.7 christos }
1083 1.1 christos }
1084 1.1 christos
1085 1.1 christos obj = NULL;
1086 1.1 christos result = named_config_get(maps, "max-records", &obj);
1087 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1088 1.1 christos dns_zone_setmaxrecords(mayberaw, cfg_obj_asuint32(obj));
1089 1.7 christos if (zone != mayberaw) {
1090 1.1 christos dns_zone_setmaxrecords(zone, 0);
1091 1.7 christos }
1092 1.1 christos
1093 1.1 christos if (raw != NULL && filename != NULL) {
1094 1.1 christos #define SIGNED ".signed"
1095 1.1 christos size_t signedlen = strlen(filename) + sizeof(SIGNED);
1096 1.1 christos char *signedname;
1097 1.1 christos
1098 1.7 christos RETERR(dns_zone_setfile(raw, filename, masterformat,
1099 1.7 christos masterstyle));
1100 1.1 christos signedname = isc_mem_get(mctx, signedlen);
1101 1.1 christos
1102 1.1 christos (void)snprintf(signedname, signedlen, "%s" SIGNED, filename);
1103 1.3 christos result = dns_zone_setfile(zone, signedname,
1104 1.3 christos dns_masterformat_raw, NULL);
1105 1.1 christos isc_mem_put(mctx, signedname, signedlen);
1106 1.7 christos if (result != ISC_R_SUCCESS) {
1107 1.1 christos return (result);
1108 1.7 christos }
1109 1.7 christos } else {
1110 1.7 christos RETERR(dns_zone_setfile(zone, filename, masterformat,
1111 1.7 christos masterstyle));
1112 1.7 christos }
1113 1.1 christos
1114 1.1 christos obj = NULL;
1115 1.1 christos result = cfg_map_get(zoptions, "journal", &obj);
1116 1.7 christos if (result == ISC_R_SUCCESS) {
1117 1.1 christos RETERR(dns_zone_setjournal(mayberaw, cfg_obj_asstring(obj)));
1118 1.7 christos }
1119 1.1 christos
1120 1.1 christos /*
1121 1.1 christos * Notify messages are processed by the raw zone if it exists.
1122 1.1 christos */
1123 1.7 christos if (ztype == dns_zone_slave || ztype == dns_zone_mirror) {
1124 1.7 christos RETERR(configure_zone_acl(
1125 1.7 christos zconfig, vconfig, config, allow_notify, ac, mayberaw,
1126 1.7 christos dns_zone_setnotifyacl, dns_zone_clearnotifyacl));
1127 1.7 christos }
1128 1.1 christos
1129 1.1 christos /*
1130 1.1 christos * XXXAG This probably does not make sense for stubs.
1131 1.1 christos */
1132 1.7 christos RETERR(configure_zone_acl(zconfig, vconfig, config, allow_query, ac,
1133 1.7 christos zone, dns_zone_setqueryacl,
1134 1.1 christos dns_zone_clearqueryacl));
1135 1.1 christos
1136 1.7 christos RETERR(configure_zone_acl(zconfig, vconfig, config, allow_query_on, ac,
1137 1.7 christos zone, dns_zone_setqueryonacl,
1138 1.1 christos dns_zone_clearqueryonacl));
1139 1.1 christos
1140 1.1 christos obj = NULL;
1141 1.1 christos result = named_config_get(maps, "dialup", &obj);
1142 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1143 1.1 christos if (cfg_obj_isboolean(obj)) {
1144 1.7 christos if (cfg_obj_asboolean(obj)) {
1145 1.1 christos dialup = dns_dialuptype_yes;
1146 1.7 christos } else {
1147 1.1 christos dialup = dns_dialuptype_no;
1148 1.7 christos }
1149 1.1 christos } else {
1150 1.1 christos const char *dialupstr = cfg_obj_asstring(obj);
1151 1.3 christos if (strcasecmp(dialupstr, "notify") == 0) {
1152 1.1 christos dialup = dns_dialuptype_notify;
1153 1.3 christos } else if (strcasecmp(dialupstr, "notify-passive") == 0) {
1154 1.1 christos dialup = dns_dialuptype_notifypassive;
1155 1.3 christos } else if (strcasecmp(dialupstr, "refresh") == 0) {
1156 1.1 christos dialup = dns_dialuptype_refresh;
1157 1.3 christos } else if (strcasecmp(dialupstr, "passive") == 0) {
1158 1.1 christos dialup = dns_dialuptype_passive;
1159 1.3 christos } else {
1160 1.1 christos INSIST(0);
1161 1.3 christos ISC_UNREACHABLE();
1162 1.3 christos }
1163 1.1 christos }
1164 1.7 christos if (raw != NULL) {
1165 1.1 christos dns_zone_setdialup(raw, dialup);
1166 1.7 christos }
1167 1.1 christos dns_zone_setdialup(zone, dialup);
1168 1.1 christos
1169 1.1 christos obj = NULL;
1170 1.1 christos result = named_config_get(maps, "zone-statistics", &obj);
1171 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1172 1.1 christos if (cfg_obj_isboolean(obj)) {
1173 1.7 christos if (cfg_obj_asboolean(obj)) {
1174 1.1 christos statlevel = dns_zonestat_full;
1175 1.7 christos } else {
1176 1.1 christos statlevel = dns_zonestat_none;
1177 1.7 christos }
1178 1.1 christos } else {
1179 1.1 christos const char *levelstr = cfg_obj_asstring(obj);
1180 1.3 christos if (strcasecmp(levelstr, "full") == 0) {
1181 1.1 christos statlevel = dns_zonestat_full;
1182 1.3 christos } else if (strcasecmp(levelstr, "terse") == 0) {
1183 1.1 christos statlevel = dns_zonestat_terse;
1184 1.3 christos } else if (strcasecmp(levelstr, "none") == 0) {
1185 1.1 christos statlevel = dns_zonestat_none;
1186 1.3 christos } else {
1187 1.1 christos INSIST(0);
1188 1.3 christos ISC_UNREACHABLE();
1189 1.3 christos }
1190 1.1 christos }
1191 1.1 christos dns_zone_setstatlevel(zone, statlevel);
1192 1.1 christos
1193 1.7 christos zoneqrystats = NULL;
1194 1.1 christos rcvquerystats = NULL;
1195 1.4 christos dnssecsignstats = NULL;
1196 1.1 christos if (statlevel == dns_zonestat_full) {
1197 1.1 christos RETERR(isc_stats_create(mctx, &zoneqrystats,
1198 1.1 christos ns_statscounter_max));
1199 1.4 christos RETERR(dns_rdatatypestats_create(mctx, &rcvquerystats));
1200 1.4 christos RETERR(dns_dnssecsignstats_create(mctx, &dnssecsignstats));
1201 1.1 christos }
1202 1.7 christos dns_zone_setrequeststats(zone, zoneqrystats);
1203 1.1 christos dns_zone_setrcvquerystats(zone, rcvquerystats);
1204 1.4 christos dns_zone_setdnssecsignstats(zone, dnssecsignstats);
1205 1.1 christos
1206 1.7 christos if (zoneqrystats != NULL) {
1207 1.1 christos isc_stats_detach(&zoneqrystats);
1208 1.7 christos }
1209 1.1 christos
1210 1.7 christos if (rcvquerystats != NULL) {
1211 1.1 christos dns_stats_detach(&rcvquerystats);
1212 1.7 christos }
1213 1.1 christos
1214 1.7 christos if (dnssecsignstats != NULL) {
1215 1.4 christos dns_stats_detach(&dnssecsignstats);
1216 1.4 christos }
1217 1.4 christos
1218 1.1 christos /*
1219 1.1 christos * Configure master functionality. This applies
1220 1.1 christos * to primary masters (type "master") and slaves
1221 1.1 christos * acting as masters (type "slave"), but not to stubs.
1222 1.1 christos */
1223 1.1 christos if (ztype != dns_zone_stub && ztype != dns_zone_staticstub &&
1224 1.7 christos ztype != dns_zone_redirect)
1225 1.7 christos {
1226 1.7 christos obj = NULL;
1227 1.7 christos result = named_config_get(maps, "dnssec-policy", &obj);
1228 1.7 christos if (result == ISC_R_SUCCESS) {
1229 1.7 christos kaspname = cfg_obj_asstring(obj);
1230 1.7 christos if (strcmp(kaspname, "none") != 0) {
1231 1.7 christos result = dns_kasplist_find(kasplist, kaspname,
1232 1.7 christos &kasp);
1233 1.7 christos if (result != ISC_R_SUCCESS) {
1234 1.7 christos cfg_obj_log(obj, named_g_lctx,
1235 1.7 christos ISC_LOG_ERROR,
1236 1.7 christos "'dnssec-policy '%s' not "
1237 1.7 christos "found ",
1238 1.7 christos kaspname);
1239 1.7 christos RETERR(result);
1240 1.7 christos }
1241 1.7 christos dns_zone_setkasp(zone, kasp);
1242 1.7 christos }
1243 1.7 christos }
1244 1.7 christos
1245 1.1 christos obj = NULL;
1246 1.1 christos result = named_config_get(maps, "notify", &obj);
1247 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1248 1.1 christos if (cfg_obj_isboolean(obj)) {
1249 1.7 christos if (cfg_obj_asboolean(obj)) {
1250 1.1 christos notifytype = dns_notifytype_yes;
1251 1.7 christos } else {
1252 1.1 christos notifytype = dns_notifytype_no;
1253 1.7 christos }
1254 1.1 christos } else {
1255 1.1 christos const char *notifystr = cfg_obj_asstring(obj);
1256 1.3 christos if (strcasecmp(notifystr, "explicit") == 0) {
1257 1.1 christos notifytype = dns_notifytype_explicit;
1258 1.3 christos } else if (strcasecmp(notifystr, "master-only") == 0) {
1259 1.1 christos notifytype = dns_notifytype_masteronly;
1260 1.3 christos } else {
1261 1.1 christos INSIST(0);
1262 1.3 christos ISC_UNREACHABLE();
1263 1.3 christos }
1264 1.1 christos }
1265 1.3 christos notifytype = process_notifytype(notifytype, ztype, zname,
1266 1.3 christos nodefault);
1267 1.7 christos if (raw != NULL) {
1268 1.1 christos dns_zone_setnotifytype(raw, dns_notifytype_no);
1269 1.7 christos }
1270 1.1 christos dns_zone_setnotifytype(zone, notifytype);
1271 1.1 christos
1272 1.1 christos obj = NULL;
1273 1.1 christos result = named_config_get(maps, "also-notify", &obj);
1274 1.1 christos if (result == ISC_R_SUCCESS &&
1275 1.1 christos (notifytype == dns_notifytype_yes ||
1276 1.1 christos notifytype == dns_notifytype_explicit ||
1277 1.1 christos (notifytype == dns_notifytype_masteronly &&
1278 1.1 christos ztype == dns_zone_master)))
1279 1.1 christos {
1280 1.1 christos dns_ipkeylist_t ipkl;
1281 1.1 christos dns_ipkeylist_init(&ipkl);
1282 1.1 christos
1283 1.1 christos RETERR(named_config_getipandkeylist(config, obj, mctx,
1284 1.7 christos &ipkl));
1285 1.7 christos result = dns_zone_setalsonotifydscpkeys(
1286 1.7 christos zone, ipkl.addrs, ipkl.dscps, ipkl.keys,
1287 1.7 christos ipkl.count);
1288 1.1 christos dns_ipkeylist_clear(mctx, &ipkl);
1289 1.1 christos RETERR(result);
1290 1.7 christos } else {
1291 1.1 christos RETERR(dns_zone_setalsonotify(zone, NULL, 0));
1292 1.7 christos }
1293 1.1 christos
1294 1.1 christos obj = NULL;
1295 1.1 christos result = named_config_get(maps, "notify-source", &obj);
1296 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1297 1.1 christos RETERR(dns_zone_setnotifysrc4(zone, cfg_obj_assockaddr(obj)));
1298 1.1 christos dscp = cfg_obj_getdscp(obj);
1299 1.7 christos if (dscp == -1) {
1300 1.1 christos dscp = named_g_dscp;
1301 1.7 christos }
1302 1.1 christos RETERR(dns_zone_setnotifysrc4dscp(zone, dscp));
1303 1.1 christos named_add_reserved_dispatch(named_g_server,
1304 1.1 christos cfg_obj_assockaddr(obj));
1305 1.1 christos
1306 1.1 christos obj = NULL;
1307 1.1 christos result = named_config_get(maps, "notify-source-v6", &obj);
1308 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1309 1.1 christos RETERR(dns_zone_setnotifysrc6(zone, cfg_obj_assockaddr(obj)));
1310 1.1 christos dscp = cfg_obj_getdscp(obj);
1311 1.7 christos if (dscp == -1) {
1312 1.1 christos dscp = named_g_dscp;
1313 1.7 christos }
1314 1.1 christos RETERR(dns_zone_setnotifysrc6dscp(zone, dscp));
1315 1.1 christos named_add_reserved_dispatch(named_g_server,
1316 1.1 christos cfg_obj_assockaddr(obj));
1317 1.1 christos
1318 1.1 christos obj = NULL;
1319 1.1 christos result = named_config_get(maps, "notify-to-soa", &obj);
1320 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1321 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_NOTIFYTOSOA,
1322 1.1 christos cfg_obj_asboolean(obj));
1323 1.1 christos
1324 1.1 christos dns_zone_setisself(zone, isself, named_g_server->interfacemgr);
1325 1.1 christos
1326 1.7 christos RETERR(configure_zone_acl(
1327 1.7 christos zconfig, vconfig, config, allow_transfer, ac, zone,
1328 1.7 christos dns_zone_setxfracl, dns_zone_clearxfracl));
1329 1.1 christos
1330 1.1 christos obj = NULL;
1331 1.1 christos result = named_config_get(maps, "max-transfer-time-out", &obj);
1332 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1333 1.1 christos dns_zone_setmaxxfrout(zone, cfg_obj_asuint32(obj) * 60);
1334 1.1 christos
1335 1.1 christos obj = NULL;
1336 1.1 christos result = named_config_get(maps, "max-transfer-idle-out", &obj);
1337 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1338 1.1 christos dns_zone_setidleout(zone, cfg_obj_asuint32(obj) * 60);
1339 1.1 christos
1340 1.1 christos obj = NULL;
1341 1.1 christos result = named_config_get(maps, "max-journal-size", &obj);
1342 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1343 1.7 christos if (raw != NULL) {
1344 1.1 christos dns_zone_setjournalsize(raw, -1);
1345 1.7 christos }
1346 1.1 christos dns_zone_setjournalsize(zone, -1);
1347 1.1 christos if (cfg_obj_isstring(obj)) {
1348 1.1 christos const char *str = cfg_obj_asstring(obj);
1349 1.1 christos if (strcasecmp(str, "unlimited") == 0) {
1350 1.1 christos journal_size = DNS_JOURNAL_SIZE_MAX;
1351 1.1 christos } else {
1352 1.1 christos INSIST(strcasecmp(str, "default") == 0);
1353 1.1 christos journal_size = -1;
1354 1.1 christos }
1355 1.1 christos } else {
1356 1.1 christos isc_resourcevalue_t value;
1357 1.1 christos value = cfg_obj_asuint64(obj);
1358 1.1 christos if (value > DNS_JOURNAL_SIZE_MAX) {
1359 1.7 christos cfg_obj_log(obj, named_g_lctx, ISC_LOG_ERROR,
1360 1.1 christos "'max-journal-size "
1361 1.3 christos "%" PRId64 "' "
1362 1.1 christos "is too large",
1363 1.1 christos value);
1364 1.1 christos RETERR(ISC_R_RANGE);
1365 1.1 christos }
1366 1.3 christos journal_size = (uint32_t)value;
1367 1.1 christos }
1368 1.7 christos if (raw != NULL) {
1369 1.1 christos dns_zone_setjournalsize(raw, journal_size);
1370 1.7 christos }
1371 1.1 christos dns_zone_setjournalsize(zone, journal_size);
1372 1.1 christos
1373 1.1 christos obj = NULL;
1374 1.1 christos result = named_config_get(maps, "ixfr-from-differences", &obj);
1375 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1376 1.3 christos if (cfg_obj_isboolean(obj)) {
1377 1.1 christos ixfrdiff = cfg_obj_asboolean(obj);
1378 1.7 christos } else if ((strcasecmp(cfg_obj_asstring(obj), "primary") == 0 ||
1379 1.7 christos strcasecmp(cfg_obj_asstring(obj), "master") == 0) &&
1380 1.3 christos ztype == dns_zone_master)
1381 1.3 christos {
1382 1.3 christos ixfrdiff = true;
1383 1.7 christos } else if ((strcasecmp(cfg_obj_asstring(obj), "secondary") ==
1384 1.7 christos 0 ||
1385 1.7 christos strcasecmp(cfg_obj_asstring(obj), "slave") == 0) &&
1386 1.3 christos ztype == dns_zone_slave)
1387 1.3 christos {
1388 1.3 christos ixfrdiff = true;
1389 1.3 christos } else {
1390 1.3 christos ixfrdiff = false;
1391 1.3 christos }
1392 1.1 christos if (raw != NULL) {
1393 1.1 christos dns_zone_setoption(raw, DNS_ZONEOPT_IXFRFROMDIFFS,
1394 1.3 christos true);
1395 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_IXFRFROMDIFFS,
1396 1.3 christos false);
1397 1.7 christos } else {
1398 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_IXFRFROMDIFFS,
1399 1.1 christos ixfrdiff);
1400 1.7 christos }
1401 1.1 christos
1402 1.1 christos obj = NULL;
1403 1.1 christos result = named_config_get(maps, "request-expire", &obj);
1404 1.1 christos INSIST(result == ISC_R_SUCCESS);
1405 1.1 christos dns_zone_setrequestexpire(zone, cfg_obj_asboolean(obj));
1406 1.1 christos
1407 1.1 christos obj = NULL;
1408 1.1 christos result = named_config_get(maps, "request-ixfr", &obj);
1409 1.1 christos INSIST(result == ISC_R_SUCCESS);
1410 1.1 christos dns_zone_setrequestixfr(zone, cfg_obj_asboolean(obj));
1411 1.1 christos
1412 1.8 christos obj = NULL;
1413 1.1 christos checknames(ztype, maps, &obj);
1414 1.1 christos INSIST(obj != NULL);
1415 1.1 christos if (strcasecmp(cfg_obj_asstring(obj), "warn") == 0) {
1416 1.3 christos fail = false;
1417 1.3 christos check = true;
1418 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "fail") == 0) {
1419 1.3 christos fail = check = true;
1420 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "ignore") == 0) {
1421 1.3 christos fail = check = false;
1422 1.3 christos } else {
1423 1.1 christos INSIST(0);
1424 1.3 christos ISC_UNREACHABLE();
1425 1.3 christos }
1426 1.1 christos if (raw != NULL) {
1427 1.7 christos dns_zone_setoption(raw, DNS_ZONEOPT_CHECKNAMES, check);
1428 1.1 christos dns_zone_setoption(raw, DNS_ZONEOPT_CHECKNAMESFAIL,
1429 1.1 christos fail);
1430 1.7 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKNAMES, false);
1431 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKNAMESFAIL,
1432 1.3 christos false);
1433 1.1 christos } else {
1434 1.7 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKNAMES, check);
1435 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKNAMESFAIL,
1436 1.1 christos fail);
1437 1.1 christos }
1438 1.1 christos
1439 1.1 christos obj = NULL;
1440 1.1 christos result = named_config_get(maps, "notify-delay", &obj);
1441 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1442 1.1 christos dns_zone_setnotifydelay(zone, cfg_obj_asuint32(obj));
1443 1.1 christos
1444 1.1 christos obj = NULL;
1445 1.1 christos result = named_config_get(maps, "check-sibling", &obj);
1446 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1447 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKSIBLING,
1448 1.1 christos cfg_obj_asboolean(obj));
1449 1.1 christos
1450 1.1 christos obj = NULL;
1451 1.1 christos result = named_config_get(maps, "check-spf", &obj);
1452 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1453 1.1 christos if (strcasecmp(cfg_obj_asstring(obj), "warn") == 0) {
1454 1.3 christos check = true;
1455 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "ignore") == 0) {
1456 1.3 christos check = false;
1457 1.3 christos } else {
1458 1.1 christos INSIST(0);
1459 1.3 christos ISC_UNREACHABLE();
1460 1.3 christos }
1461 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_CHECKSPF, check);
1462 1.1 christos
1463 1.1 christos obj = NULL;
1464 1.1 christos result = named_config_get(maps, "zero-no-soa-ttl", &obj);
1465 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1466 1.1 christos dns_zone_setzeronosoattl(zone, cfg_obj_asboolean(obj));
1467 1.1 christos
1468 1.1 christos obj = NULL;
1469 1.1 christos result = named_config_get(maps, "nsec3-test-zone", &obj);
1470 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1471 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_NSEC3TESTZONE,
1472 1.1 christos cfg_obj_asboolean(obj));
1473 1.1 christos } else if (ztype == dns_zone_redirect) {
1474 1.1 christos dns_zone_setnotifytype(zone, dns_notifytype_no);
1475 1.1 christos
1476 1.1 christos obj = NULL;
1477 1.1 christos result = named_config_get(maps, "max-journal-size", &obj);
1478 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1479 1.1 christos dns_zone_setjournalsize(zone, -1);
1480 1.1 christos if (cfg_obj_isstring(obj)) {
1481 1.1 christos const char *str = cfg_obj_asstring(obj);
1482 1.1 christos if (strcasecmp(str, "unlimited") == 0) {
1483 1.1 christos journal_size = DNS_JOURNAL_SIZE_MAX;
1484 1.1 christos } else {
1485 1.1 christos INSIST(strcasecmp(str, "default") == 0);
1486 1.1 christos journal_size = -1;
1487 1.1 christos }
1488 1.1 christos } else {
1489 1.1 christos isc_resourcevalue_t value;
1490 1.1 christos value = cfg_obj_asuint64(obj);
1491 1.1 christos if (value > DNS_JOURNAL_SIZE_MAX) {
1492 1.7 christos cfg_obj_log(obj, named_g_lctx, ISC_LOG_ERROR,
1493 1.1 christos "'max-journal-size "
1494 1.3 christos "%" PRId64 "' "
1495 1.1 christos "is too large",
1496 1.1 christos value);
1497 1.1 christos RETERR(ISC_R_RANGE);
1498 1.1 christos }
1499 1.3 christos journal_size = (uint32_t)value;
1500 1.1 christos }
1501 1.1 christos dns_zone_setjournalsize(zone, journal_size);
1502 1.1 christos }
1503 1.1 christos
1504 1.1 christos /*
1505 1.1 christos * Configure update-related options. These apply to
1506 1.1 christos * primary masters only.
1507 1.1 christos */
1508 1.1 christos if (ztype == dns_zone_master) {
1509 1.1 christos dns_acl_t *updateacl;
1510 1.1 christos
1511 1.7 christos RETERR(configure_zone_acl(
1512 1.7 christos zconfig, vconfig, config, allow_update, ac, mayberaw,
1513 1.7 christos dns_zone_setupdateacl, dns_zone_clearupdateacl));
1514 1.1 christos
1515 1.1 christos updateacl = dns_zone_getupdateacl(mayberaw);
1516 1.7 christos if (updateacl != NULL && dns_acl_isinsecure(updateacl)) {
1517 1.1 christos isc_log_write(named_g_lctx, DNS_LOGCATEGORY_SECURITY,
1518 1.1 christos NAMED_LOGMODULE_SERVER, ISC_LOG_WARNING,
1519 1.1 christos "zone '%s' allows unsigned updates "
1520 1.1 christos "from remote hosts, which is insecure",
1521 1.1 christos zname);
1522 1.7 christos }
1523 1.1 christos
1524 1.1 christos RETERR(configure_zone_ssutable(zoptions, mayberaw, zname));
1525 1.1 christos }
1526 1.1 christos
1527 1.1 christos if (ztype == dns_zone_master || raw != NULL) {
1528 1.1 christos const cfg_obj_t *validity, *resign;
1529 1.3 christos bool allow = false, maint = false;
1530 1.3 christos bool sigvalinsecs;
1531 1.3 christos
1532 1.7 christos if (kasp) {
1533 1.7 christos seconds = (uint32_t)dns_kasp_sigvalidity_dnskey(kasp);
1534 1.7 christos } else {
1535 1.7 christos obj = NULL;
1536 1.7 christos result = named_config_get(maps, "dnskey-sig-validity",
1537 1.7 christos &obj);
1538 1.7 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1539 1.7 christos seconds = cfg_obj_asuint32(obj) * 86400;
1540 1.7 christos }
1541 1.3 christos dns_zone_setkeyvalidityinterval(zone, seconds);
1542 1.1 christos
1543 1.7 christos if (kasp) {
1544 1.7 christos seconds = (uint32_t)dns_kasp_sigvalidity(kasp);
1545 1.7 christos dns_zone_setsigvalidityinterval(zone, seconds);
1546 1.7 christos seconds = (uint32_t)dns_kasp_sigrefresh(kasp);
1547 1.7 christos dns_zone_setsigresigninginterval(zone, seconds);
1548 1.7 christos } else {
1549 1.7 christos obj = NULL;
1550 1.7 christos result = named_config_get(maps, "sig-validity-interval",
1551 1.7 christos &obj);
1552 1.7 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1553 1.7 christos
1554 1.7 christos sigvalinsecs = ns_server_getoption(
1555 1.7 christos named_g_server->sctx, NS_SERVER_SIGVALINSECS);
1556 1.7 christos validity = cfg_tuple_get(obj, "validity");
1557 1.7 christos seconds = cfg_obj_asuint32(validity);
1558 1.7 christos if (!sigvalinsecs) {
1559 1.7 christos seconds *= 86400;
1560 1.7 christos }
1561 1.7 christos dns_zone_setsigvalidityinterval(zone, seconds);
1562 1.1 christos
1563 1.7 christos resign = cfg_tuple_get(obj, "re-sign");
1564 1.7 christos if (cfg_obj_isvoid(resign)) {
1565 1.7 christos seconds /= 4;
1566 1.7 christos } else if (!sigvalinsecs) {
1567 1.7 christos seconds = cfg_obj_asuint32(resign);
1568 1.7 christos if (seconds > 7 * 86400) {
1569 1.7 christos seconds *= 86400;
1570 1.7 christos } else {
1571 1.7 christos seconds *= 3600;
1572 1.7 christos }
1573 1.1 christos } else {
1574 1.7 christos seconds = cfg_obj_asuint32(resign);
1575 1.1 christos }
1576 1.7 christos dns_zone_setsigresigninginterval(zone, seconds);
1577 1.1 christos }
1578 1.1 christos
1579 1.1 christos obj = NULL;
1580 1.1 christos result = named_config_get(maps, "key-directory", &obj);
1581 1.1 christos if (result == ISC_R_SUCCESS) {
1582 1.1 christos filename = cfg_obj_asstring(obj);
1583 1.1 christos RETERR(dns_zone_setkeydirectory(zone, filename));
1584 1.1 christos }
1585 1.1 christos
1586 1.1 christos obj = NULL;
1587 1.1 christos result = named_config_get(maps, "sig-signing-signatures", &obj);
1588 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1589 1.1 christos dns_zone_setsignatures(zone, cfg_obj_asuint32(obj));
1590 1.1 christos
1591 1.1 christos obj = NULL;
1592 1.1 christos result = named_config_get(maps, "sig-signing-nodes", &obj);
1593 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1594 1.1 christos dns_zone_setnodes(zone, cfg_obj_asuint32(obj));
1595 1.1 christos
1596 1.1 christos obj = NULL;
1597 1.1 christos result = named_config_get(maps, "sig-signing-type", &obj);
1598 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1599 1.1 christos dns_zone_setprivatetype(zone, cfg_obj_asuint32(obj));
1600 1.1 christos
1601 1.1 christos obj = NULL;
1602 1.1 christos result = named_config_get(maps, "update-check-ksk", &obj);
1603 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1604 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_UPDATECHECKKSK,
1605 1.1 christos cfg_obj_asboolean(obj));
1606 1.7 christos /*
1607 1.7 christos * This setting will be ignored if dnssec-policy is used.
1608 1.7 christos * named-checkconf will error if both are configured.
1609 1.7 christos */
1610 1.1 christos
1611 1.1 christos obj = NULL;
1612 1.1 christos result = named_config_get(maps, "dnssec-dnskey-kskonly", &obj);
1613 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1614 1.1 christos dns_zone_setoption(zone, DNS_ZONEOPT_DNSKEYKSKONLY,
1615 1.1 christos cfg_obj_asboolean(obj));
1616 1.7 christos /*
1617 1.7 christos * This setting will be ignored if dnssec-policy is used.
1618 1.7 christos * named-checkconf will error if both are configured.
1619 1.7 christos */
1620 1.1 christos
1621 1.1 christos obj = NULL;
1622 1.1 christos result = named_config_get(maps, "dnssec-loadkeys-interval",
1623 1.1 christos &obj);
1624 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1625 1.1 christos RETERR(dns_zone_setrefreshkeyinterval(zone,
1626 1.1 christos cfg_obj_asuint32(obj)));
1627 1.1 christos
1628 1.1 christos obj = NULL;
1629 1.1 christos result = cfg_map_get(zoptions, "auto-dnssec", &obj);
1630 1.7 christos if (dns_zone_getkasp(zone) != NULL) {
1631 1.7 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_ALLOW, true);
1632 1.7 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_CREATE, true);
1633 1.7 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_MAINTAIN, true);
1634 1.7 christos } else if (result == ISC_R_SUCCESS) {
1635 1.1 christos const char *arg = cfg_obj_asstring(obj);
1636 1.3 christos if (strcasecmp(arg, "allow") == 0) {
1637 1.3 christos allow = true;
1638 1.3 christos } else if (strcasecmp(arg, "maintain") == 0) {
1639 1.3 christos allow = maint = true;
1640 1.3 christos } else if (strcasecmp(arg, "off") == 0) {
1641 1.7 christos /* Default */
1642 1.3 christos } else {
1643 1.1 christos INSIST(0);
1644 1.3 christos ISC_UNREACHABLE();
1645 1.3 christos }
1646 1.1 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_ALLOW, allow);
1647 1.7 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_CREATE, false);
1648 1.1 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_MAINTAIN, maint);
1649 1.1 christos }
1650 1.1 christos }
1651 1.1 christos
1652 1.3 christos if (ztype == dns_zone_slave || ztype == dns_zone_mirror) {
1653 1.1 christos RETERR(configure_zone_acl(zconfig, vconfig, config,
1654 1.7 christos allow_update_forwarding, ac, mayberaw,
1655 1.7 christos dns_zone_setforwardacl,
1656 1.1 christos dns_zone_clearforwardacl));
1657 1.1 christos }
1658 1.1 christos
1659 1.1 christos /*%
1660 1.1 christos * Primary master functionality.
1661 1.1 christos */
1662 1.1 christos if (ztype == dns_zone_master) {
1663 1.1 christos obj = NULL;
1664 1.1 christos result = named_config_get(maps, "check-wildcard", &obj);
1665 1.7 christos if (result == ISC_R_SUCCESS) {
1666 1.1 christos check = cfg_obj_asboolean(obj);
1667 1.7 christos } else {
1668 1.3 christos check = false;
1669 1.7 christos }
1670 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKWILDCARD, check);
1671 1.1 christos
1672 1.1 christos /*
1673 1.1 christos * With map files, the default is ignore duplicate
1674 1.1 christos * records. With other master formats, the default is
1675 1.1 christos * taken from the global configuration.
1676 1.1 christos */
1677 1.1 christos obj = NULL;
1678 1.1 christos if (masterformat != dns_masterformat_map) {
1679 1.1 christos result = named_config_get(maps, "check-dup-records",
1680 1.1 christos &obj);
1681 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1682 1.1 christos dupcheck = cfg_obj_asstring(obj);
1683 1.1 christos } else {
1684 1.1 christos result = named_config_get(nodefault,
1685 1.7 christos "check-dup-records", &obj);
1686 1.7 christos if (result == ISC_R_SUCCESS) {
1687 1.1 christos dupcheck = cfg_obj_asstring(obj);
1688 1.7 christos } else {
1689 1.1 christos dupcheck = "ignore";
1690 1.7 christos }
1691 1.1 christos }
1692 1.1 christos if (strcasecmp(dupcheck, "warn") == 0) {
1693 1.3 christos fail = false;
1694 1.3 christos check = true;
1695 1.1 christos } else if (strcasecmp(dupcheck, "fail") == 0) {
1696 1.3 christos fail = check = true;
1697 1.1 christos } else if (strcasecmp(dupcheck, "ignore") == 0) {
1698 1.3 christos fail = check = false;
1699 1.3 christos } else {
1700 1.1 christos INSIST(0);
1701 1.3 christos ISC_UNREACHABLE();
1702 1.3 christos }
1703 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKDUPRR, check);
1704 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKDUPRRFAIL, fail);
1705 1.1 christos
1706 1.1 christos obj = NULL;
1707 1.1 christos result = named_config_get(maps, "check-mx", &obj);
1708 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1709 1.1 christos if (strcasecmp(cfg_obj_asstring(obj), "warn") == 0) {
1710 1.3 christos fail = false;
1711 1.3 christos check = true;
1712 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "fail") == 0) {
1713 1.3 christos fail = check = true;
1714 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "ignore") == 0) {
1715 1.3 christos fail = check = false;
1716 1.3 christos } else {
1717 1.1 christos INSIST(0);
1718 1.3 christos ISC_UNREACHABLE();
1719 1.3 christos }
1720 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKMX, check);
1721 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKMXFAIL, fail);
1722 1.1 christos
1723 1.1 christos /*
1724 1.1 christos * With map files, the default is *not* to check
1725 1.1 christos * integrity. With other master formats, the default is
1726 1.1 christos * taken from the global configuration.
1727 1.1 christos */
1728 1.1 christos obj = NULL;
1729 1.1 christos if (masterformat != dns_masterformat_map) {
1730 1.1 christos result = named_config_get(maps, "check-integrity",
1731 1.1 christos &obj);
1732 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1733 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKINTEGRITY,
1734 1.1 christos cfg_obj_asboolean(obj));
1735 1.1 christos } else {
1736 1.3 christos check = false;
1737 1.1 christos result = named_config_get(nodefault, "check-integrity",
1738 1.7 christos &obj);
1739 1.7 christos if (result == ISC_R_SUCCESS) {
1740 1.1 christos check = cfg_obj_asboolean(obj);
1741 1.7 christos }
1742 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_CHECKINTEGRITY,
1743 1.1 christos check);
1744 1.1 christos }
1745 1.1 christos
1746 1.1 christos obj = NULL;
1747 1.1 christos result = named_config_get(maps, "check-mx-cname", &obj);
1748 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1749 1.1 christos if (strcasecmp(cfg_obj_asstring(obj), "warn") == 0) {
1750 1.3 christos warn = true;
1751 1.3 christos ignore = false;
1752 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "fail") == 0) {
1753 1.3 christos warn = ignore = false;
1754 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "ignore") == 0) {
1755 1.3 christos warn = ignore = true;
1756 1.3 christos } else {
1757 1.1 christos INSIST(0);
1758 1.3 christos ISC_UNREACHABLE();
1759 1.3 christos }
1760 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_WARNMXCNAME, warn);
1761 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_IGNOREMXCNAME, ignore);
1762 1.1 christos
1763 1.1 christos obj = NULL;
1764 1.1 christos result = named_config_get(maps, "check-srv-cname", &obj);
1765 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1766 1.1 christos if (strcasecmp(cfg_obj_asstring(obj), "warn") == 0) {
1767 1.3 christos warn = true;
1768 1.3 christos ignore = false;
1769 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "fail") == 0) {
1770 1.3 christos warn = ignore = false;
1771 1.1 christos } else if (strcasecmp(cfg_obj_asstring(obj), "ignore") == 0) {
1772 1.3 christos warn = ignore = true;
1773 1.3 christos } else {
1774 1.1 christos INSIST(0);
1775 1.3 christos ISC_UNREACHABLE();
1776 1.3 christos }
1777 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_WARNSRVCNAME, warn);
1778 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_IGNORESRVCNAME,
1779 1.1 christos ignore);
1780 1.1 christos
1781 1.1 christos obj = NULL;
1782 1.1 christos result = named_config_get(maps, "dnssec-secure-to-insecure",
1783 1.1 christos &obj);
1784 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1785 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_SECURETOINSECURE,
1786 1.1 christos cfg_obj_asboolean(obj));
1787 1.1 christos
1788 1.1 christos obj = NULL;
1789 1.1 christos result = cfg_map_get(zoptions, "dnssec-update-mode", &obj);
1790 1.1 christos if (result == ISC_R_SUCCESS) {
1791 1.1 christos const char *arg = cfg_obj_asstring(obj);
1792 1.3 christos if (strcasecmp(arg, "no-resign") == 0) {
1793 1.1 christos dns_zone_setkeyopt(zone, DNS_ZONEKEY_NORESIGN,
1794 1.3 christos true);
1795 1.3 christos } else if (strcasecmp(arg, "maintain") == 0) {
1796 1.7 christos /* Default */
1797 1.3 christos } else {
1798 1.1 christos INSIST(0);
1799 1.3 christos ISC_UNREACHABLE();
1800 1.3 christos }
1801 1.1 christos }
1802 1.1 christos
1803 1.1 christos obj = NULL;
1804 1.1 christos result = named_config_get(maps, "serial-update-method", &obj);
1805 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1806 1.7 christos if (strcasecmp(cfg_obj_asstring(obj), "unixtime") == 0) {
1807 1.7 christos dns_zone_setserialupdatemethod(
1808 1.7 christos zone, dns_updatemethod_unixtime);
1809 1.7 christos } else if (strcasecmp(cfg_obj_asstring(obj), "date") == 0) {
1810 1.1 christos dns_zone_setserialupdatemethod(zone,
1811 1.1 christos dns_updatemethod_date);
1812 1.7 christos } else {
1813 1.7 christos dns_zone_setserialupdatemethod(
1814 1.7 christos zone, dns_updatemethod_increment);
1815 1.7 christos }
1816 1.1 christos }
1817 1.1 christos
1818 1.1 christos /*
1819 1.1 christos * Configure slave functionality.
1820 1.1 christos */
1821 1.1 christos switch (ztype) {
1822 1.3 christos case dns_zone_mirror:
1823 1.3 christos /*
1824 1.3 christos * Disable outgoing zone transfers for mirror zones unless they
1825 1.3 christos * are explicitly enabled by zone configuration.
1826 1.3 christos */
1827 1.3 christos obj = NULL;
1828 1.3 christos (void)cfg_map_get(zoptions, "allow-transfer", &obj);
1829 1.3 christos if (obj == NULL) {
1830 1.3 christos dns_acl_t *none;
1831 1.3 christos RETERR(dns_acl_none(mctx, &none));
1832 1.3 christos dns_zone_setxfracl(zone, none);
1833 1.3 christos dns_acl_detach(&none);
1834 1.3 christos }
1835 1.7 christos /* FALLTHROUGH */
1836 1.1 christos case dns_zone_slave:
1837 1.1 christos case dns_zone_stub:
1838 1.1 christos case dns_zone_redirect:
1839 1.1 christos count = 0;
1840 1.1 christos obj = NULL;
1841 1.1 christos (void)cfg_map_get(zoptions, "masters", &obj);
1842 1.3 christos /*
1843 1.3 christos * Use the built-in master server list if one was not
1844 1.3 christos * explicitly specified and this is a root zone mirror.
1845 1.3 christos */
1846 1.3 christos if (obj == NULL && ztype == dns_zone_mirror &&
1847 1.3 christos dns_name_equal(dns_zone_getorigin(zone), dns_rootname))
1848 1.3 christos {
1849 1.7 christos result = named_config_getmastersdef(
1850 1.7 christos named_g_config, DEFAULT_IANA_ROOT_ZONE_MASTERS,
1851 1.7 christos &obj);
1852 1.3 christos RETERR(result);
1853 1.3 christos }
1854 1.1 christos if (obj != NULL) {
1855 1.1 christos dns_ipkeylist_t ipkl;
1856 1.1 christos dns_ipkeylist_init(&ipkl);
1857 1.1 christos
1858 1.1 christos RETERR(named_config_getipandkeylist(config, obj, mctx,
1859 1.7 christos &ipkl));
1860 1.7 christos result = dns_zone_setmasterswithkeys(
1861 1.7 christos mayberaw, ipkl.addrs, ipkl.keys, ipkl.count);
1862 1.1 christos count = ipkl.count;
1863 1.1 christos dns_ipkeylist_clear(mctx, &ipkl);
1864 1.1 christos RETERR(result);
1865 1.7 christos } else {
1866 1.1 christos result = dns_zone_setmasters(mayberaw, NULL, 0);
1867 1.7 christos }
1868 1.1 christos RETERR(result);
1869 1.1 christos
1870 1.3 christos multi = false;
1871 1.1 christos if (count > 1) {
1872 1.1 christos obj = NULL;
1873 1.1 christos result = named_config_get(maps, "multi-master", &obj);
1874 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1875 1.1 christos multi = cfg_obj_asboolean(obj);
1876 1.1 christos }
1877 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_MULTIMASTER, multi);
1878 1.1 christos
1879 1.1 christos obj = NULL;
1880 1.1 christos result = named_config_get(maps, "max-transfer-time-in", &obj);
1881 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1882 1.1 christos dns_zone_setmaxxfrin(mayberaw, cfg_obj_asuint32(obj) * 60);
1883 1.1 christos
1884 1.1 christos obj = NULL;
1885 1.1 christos result = named_config_get(maps, "max-transfer-idle-in", &obj);
1886 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1887 1.1 christos dns_zone_setidlein(mayberaw, cfg_obj_asuint32(obj) * 60);
1888 1.1 christos
1889 1.1 christos obj = NULL;
1890 1.1 christos result = named_config_get(maps, "max-refresh-time", &obj);
1891 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1892 1.1 christos dns_zone_setmaxrefreshtime(mayberaw, cfg_obj_asuint32(obj));
1893 1.1 christos
1894 1.1 christos obj = NULL;
1895 1.1 christos result = named_config_get(maps, "min-refresh-time", &obj);
1896 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1897 1.1 christos dns_zone_setminrefreshtime(mayberaw, cfg_obj_asuint32(obj));
1898 1.1 christos
1899 1.1 christos obj = NULL;
1900 1.1 christos result = named_config_get(maps, "max-retry-time", &obj);
1901 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1902 1.1 christos dns_zone_setmaxretrytime(mayberaw, cfg_obj_asuint32(obj));
1903 1.1 christos
1904 1.1 christos obj = NULL;
1905 1.1 christos result = named_config_get(maps, "min-retry-time", &obj);
1906 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1907 1.1 christos dns_zone_setminretrytime(mayberaw, cfg_obj_asuint32(obj));
1908 1.1 christos
1909 1.1 christos obj = NULL;
1910 1.1 christos result = named_config_get(maps, "transfer-source", &obj);
1911 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1912 1.1 christos RETERR(dns_zone_setxfrsource4(mayberaw,
1913 1.1 christos cfg_obj_assockaddr(obj)));
1914 1.1 christos dscp = cfg_obj_getdscp(obj);
1915 1.7 christos if (dscp == -1) {
1916 1.1 christos dscp = named_g_dscp;
1917 1.7 christos }
1918 1.1 christos RETERR(dns_zone_setxfrsource4dscp(mayberaw, dscp));
1919 1.1 christos named_add_reserved_dispatch(named_g_server,
1920 1.1 christos cfg_obj_assockaddr(obj));
1921 1.1 christos
1922 1.1 christos obj = NULL;
1923 1.1 christos result = named_config_get(maps, "transfer-source-v6", &obj);
1924 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1925 1.1 christos RETERR(dns_zone_setxfrsource6(mayberaw,
1926 1.1 christos cfg_obj_assockaddr(obj)));
1927 1.1 christos dscp = cfg_obj_getdscp(obj);
1928 1.7 christos if (dscp == -1) {
1929 1.1 christos dscp = named_g_dscp;
1930 1.7 christos }
1931 1.1 christos RETERR(dns_zone_setxfrsource6dscp(mayberaw, dscp));
1932 1.1 christos named_add_reserved_dispatch(named_g_server,
1933 1.1 christos cfg_obj_assockaddr(obj));
1934 1.1 christos
1935 1.1 christos obj = NULL;
1936 1.1 christos result = named_config_get(maps, "alt-transfer-source", &obj);
1937 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1938 1.1 christos RETERR(dns_zone_setaltxfrsource4(mayberaw,
1939 1.1 christos cfg_obj_assockaddr(obj)));
1940 1.1 christos dscp = cfg_obj_getdscp(obj);
1941 1.7 christos if (dscp == -1) {
1942 1.1 christos dscp = named_g_dscp;
1943 1.7 christos }
1944 1.1 christos RETERR(dns_zone_setaltxfrsource4dscp(mayberaw, dscp));
1945 1.1 christos
1946 1.1 christos obj = NULL;
1947 1.1 christos result = named_config_get(maps, "alt-transfer-source-v6", &obj);
1948 1.1 christos INSIST(result == ISC_R_SUCCESS && obj != NULL);
1949 1.1 christos RETERR(dns_zone_setaltxfrsource6(mayberaw,
1950 1.1 christos cfg_obj_assockaddr(obj)));
1951 1.1 christos dscp = cfg_obj_getdscp(obj);
1952 1.7 christos if (dscp == -1) {
1953 1.1 christos dscp = named_g_dscp;
1954 1.7 christos }
1955 1.1 christos RETERR(dns_zone_setaltxfrsource6dscp(mayberaw, dscp));
1956 1.1 christos
1957 1.1 christos obj = NULL;
1958 1.1 christos (void)named_config_get(maps, "use-alt-transfer-source", &obj);
1959 1.1 christos if (obj == NULL) {
1960 1.1 christos /*
1961 1.1 christos * Default off when views are in use otherwise
1962 1.1 christos * on for BIND 8 compatibility.
1963 1.1 christos */
1964 1.1 christos view = dns_zone_getview(zone);
1965 1.1 christos if (view != NULL && strcmp(view->name, "_default") == 0)
1966 1.7 christos {
1967 1.3 christos alt = true;
1968 1.7 christos } else {
1969 1.3 christos alt = false;
1970 1.7 christos }
1971 1.7 christos } else {
1972 1.1 christos alt = cfg_obj_asboolean(obj);
1973 1.7 christos }
1974 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_USEALTXFRSRC, alt);
1975 1.1 christos
1976 1.1 christos obj = NULL;
1977 1.1 christos (void)named_config_get(maps, "try-tcp-refresh", &obj);
1978 1.1 christos dns_zone_setoption(mayberaw, DNS_ZONEOPT_TRYTCPREFRESH,
1979 1.1 christos cfg_obj_asboolean(obj));
1980 1.1 christos break;
1981 1.1 christos
1982 1.1 christos case dns_zone_staticstub:
1983 1.1 christos RETERR(configure_staticstub(zoptions, zone, zname,
1984 1.1 christos default_dbtype));
1985 1.1 christos break;
1986 1.1 christos
1987 1.1 christos default:
1988 1.1 christos break;
1989 1.1 christos }
1990 1.1 christos
1991 1.1 christos return (ISC_R_SUCCESS);
1992 1.1 christos }
1993 1.1 christos
1994 1.1 christos /*
1995 1.1 christos * Set up a DLZ zone as writeable
1996 1.1 christos */
1997 1.1 christos isc_result_t
1998 1.7 christos named_zone_configure_writeable_dlz(dns_dlzdb_t *dlzdatabase, dns_zone_t *zone,
1999 1.7 christos dns_rdataclass_t rdclass, dns_name_t *name) {
2000 1.1 christos dns_db_t *db = NULL;
2001 1.1 christos isc_time_t now;
2002 1.1 christos isc_result_t result;
2003 1.1 christos
2004 1.1 christos TIME_NOW(&now);
2005 1.1 christos
2006 1.1 christos dns_zone_settype(zone, dns_zone_dlz);
2007 1.1 christos result = dns_sdlz_setdb(dlzdatabase, rdclass, name, &db);
2008 1.7 christos if (result != ISC_R_SUCCESS) {
2009 1.1 christos return (result);
2010 1.7 christos }
2011 1.1 christos result = dns_zone_dlzpostload(zone, db);
2012 1.1 christos dns_db_detach(&db);
2013 1.1 christos return (result);
2014 1.1 christos }
2015 1.1 christos
2016 1.3 christos bool
2017 1.1 christos named_zone_reusable(dns_zone_t *zone, const cfg_obj_t *zconfig) {
2018 1.1 christos const cfg_obj_t *zoptions = NULL;
2019 1.1 christos const cfg_obj_t *obj = NULL;
2020 1.1 christos const char *cfilename;
2021 1.1 christos const char *zfilename;
2022 1.1 christos dns_zone_t *raw = NULL;
2023 1.3 christos bool has_raw;
2024 1.1 christos dns_zonetype_t ztype;
2025 1.1 christos
2026 1.1 christos zoptions = cfg_tuple_get(zconfig, "options");
2027 1.1 christos
2028 1.1 christos /*
2029 1.1 christos * We always reconfigure a static-stub zone for simplicity, assuming
2030 1.1 christos * the amount of data to be loaded is small.
2031 1.1 christos */
2032 1.1 christos if (zonetype_fromconfig(zoptions) == dns_zone_staticstub) {
2033 1.1 christos dns_zone_log(zone, ISC_LOG_DEBUG(1),
2034 1.1 christos "not reusable: staticstub");
2035 1.3 christos return (false);
2036 1.1 christos }
2037 1.1 christos
2038 1.1 christos /* If there's a raw zone, use that for filename and type comparison */
2039 1.1 christos dns_zone_getraw(zone, &raw);
2040 1.1 christos if (raw != NULL) {
2041 1.1 christos zfilename = dns_zone_getfile(raw);
2042 1.1 christos ztype = dns_zone_gettype(raw);
2043 1.1 christos dns_zone_detach(&raw);
2044 1.3 christos has_raw = true;
2045 1.1 christos } else {
2046 1.1 christos zfilename = dns_zone_getfile(zone);
2047 1.1 christos ztype = dns_zone_gettype(zone);
2048 1.3 christos has_raw = false;
2049 1.1 christos }
2050 1.1 christos
2051 1.1 christos obj = NULL;
2052 1.1 christos (void)cfg_map_get(zoptions, "inline-signing", &obj);
2053 1.1 christos if ((obj == NULL || !cfg_obj_asboolean(obj)) && has_raw) {
2054 1.1 christos dns_zone_log(zone, ISC_LOG_DEBUG(1),
2055 1.1 christos "not reusable: old zone was inline-signing");
2056 1.3 christos return (false);
2057 1.1 christos } else if ((obj != NULL && cfg_obj_asboolean(obj)) && !has_raw) {
2058 1.1 christos dns_zone_log(zone, ISC_LOG_DEBUG(1),
2059 1.1 christos "not reusable: old zone was not inline-signing");
2060 1.3 christos return (false);
2061 1.1 christos }
2062 1.1 christos
2063 1.1 christos if (zonetype_fromconfig(zoptions) != ztype) {
2064 1.1 christos dns_zone_log(zone, ISC_LOG_DEBUG(1),
2065 1.1 christos "not reusable: type mismatch");
2066 1.3 christos return (false);
2067 1.1 christos }
2068 1.1 christos
2069 1.1 christos obj = NULL;
2070 1.1 christos (void)cfg_map_get(zoptions, "file", &obj);
2071 1.7 christos if (obj != NULL) {
2072 1.1 christos cfilename = cfg_obj_asstring(obj);
2073 1.7 christos } else {
2074 1.1 christos cfilename = NULL;
2075 1.7 christos }
2076 1.1 christos if (!((cfilename == NULL && zfilename == NULL) ||
2077 1.1 christos (cfilename != NULL && zfilename != NULL &&
2078 1.1 christos strcmp(cfilename, zfilename) == 0)))
2079 1.1 christos {
2080 1.1 christos dns_zone_log(zone, ISC_LOG_DEBUG(1),
2081 1.1 christos "not reusable: filename mismatch");
2082 1.3 christos return (false);
2083 1.1 christos }
2084 1.1 christos
2085 1.3 christos return (true);
2086 1.1 christos }
2087