Home | History | Annotate | Line # | Download | only in named
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, &region);
    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 			     &region);
    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, &region);
    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, &region);
    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