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