2 * daemon/acl_list.h - client access control storage for the server.
4 * Copyright (c) 2007, NLnet Labs. All rights reserved.
6 * This software is open source.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * Redistributions of source code must retain the above copyright notice,
13 * this list of conditions and the following disclaimer.
15 * Redistributions in binary form must reproduce the above copyright notice,
16 * this list of conditions and the following disclaimer in the documentation
17 * and/or other materials provided with the distribution.
19 * Neither the name of the NLNET LABS nor the names of its contributors may
20 * be used to endorse or promote products derived from this software without
21 * specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
24 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
25 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
26 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
27 * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
28 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
29 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
30 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
31 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
32 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
33 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
39 * This file helps the server keep out queries from outside sources, that
40 * should not be answered.
43 #include "daemon/acl_list.h"
44 #include "util/regional.h"
46 #include "util/config_file.h"
47 #include "util/net_help.h"
48 #include "services/localzone.h"
49 #include "sldns/str2wire.h"
54 struct acl_list* acl = (struct acl_list*)calloc(1,
55 sizeof(struct acl_list));
58 acl->region = regional_create();
67 acl_list_delete(struct acl_list* acl)
71 regional_destroy(acl->region);
75 /** insert new address into acl_list structure */
76 static struct acl_addr*
77 acl_list_insert(struct acl_list* acl, struct sockaddr_storage* addr,
78 socklen_t addrlen, int net, enum acl_access control,
79 int complain_duplicates)
81 struct acl_addr* node = regional_alloc_zero(acl->region,
82 sizeof(struct acl_addr));
85 node->control = control;
86 if(!addr_tree_insert(&acl->tree, &node->node, addr, addrlen, net)) {
87 if(complain_duplicates)
88 verbose(VERB_QUERY, "duplicate acl address ignored.");
93 /** apply acl_list string */
95 acl_list_str_cfg(struct acl_list* acl, const char* str, const char* s2,
96 int complain_duplicates)
98 struct sockaddr_storage addr;
101 enum acl_access control;
102 if(strcmp(s2, "allow") == 0)
104 else if(strcmp(s2, "deny") == 0)
106 else if(strcmp(s2, "refuse") == 0)
107 control = acl_refuse;
108 else if(strcmp(s2, "deny_non_local") == 0)
109 control = acl_deny_non_local;
110 else if(strcmp(s2, "refuse_non_local") == 0)
111 control = acl_refuse_non_local;
112 else if(strcmp(s2, "allow_snoop") == 0)
113 control = acl_allow_snoop;
115 log_err("access control type %s unknown", str);
118 if(!netblockstrtoaddr(str, UNBOUND_DNS_PORT, &addr, &addrlen, &net)) {
119 log_err("cannot parse access control: %s %s", str, s2);
122 if(!acl_list_insert(acl, &addr, addrlen, net, control,
123 complain_duplicates)) {
124 log_err("out of memory");
130 /** find or create node (NULL on parse or error) */
131 static struct acl_addr*
132 acl_find_or_create(struct acl_list* acl, const char* str)
134 struct acl_addr* node;
135 struct sockaddr_storage addr;
138 if(!netblockstrtoaddr(str, UNBOUND_DNS_PORT, &addr, &addrlen, &net)) {
139 log_err("cannot parse netblock: %s", str);
142 /* find or create node */
143 if(!(node=(struct acl_addr*)addr_tree_find(&acl->tree, &addr,
145 /* create node, type 'allow' since otherwise tags are
146 * pointless, can override with specific access-control: cfg */
147 if(!(node=(struct acl_addr*)acl_list_insert(acl, &addr,
148 addrlen, net, acl_allow, 1))) {
149 log_err("out of memory");
156 /** apply acl_tag string */
158 acl_list_tags_cfg(struct acl_list* acl, const char* str, uint8_t* bitmap,
161 struct acl_addr* node;
162 if(!(node=acl_find_or_create(acl, str)))
164 node->taglen = bitmaplen;
165 node->taglist = regional_alloc_init(acl->region, bitmap, bitmaplen);
167 log_err("out of memory");
173 /** apply acl_view string */
175 acl_list_view_cfg(struct acl_list* acl, const char* str, const char* str2,
178 struct acl_addr* node;
179 if(!(node=acl_find_or_create(acl, str)))
181 node->view = views_find_view(vs, str2, 0 /* get read lock*/);
183 log_err("no view with name: %s", str2);
186 lock_rw_unlock(&node->view->lock);
190 /** apply acl_tag_action string */
192 acl_list_tag_action_cfg(struct acl_list* acl, struct config_file* cfg,
193 const char* str, const char* tag, const char* action)
195 struct acl_addr* node;
197 enum localzone_type t;
198 if(!(node=acl_find_or_create(acl, str)))
200 /* allocate array if not yet */
201 if(!node->tag_actions) {
202 node->tag_actions = (uint8_t*)regional_alloc_zero(acl->region,
203 sizeof(*node->tag_actions)*cfg->num_tags);
204 if(!node->tag_actions) {
205 log_err("out of memory");
208 node->tag_actions_size = (size_t)cfg->num_tags;
211 if((tagid=find_tag_id(cfg, tag)) == -1) {
212 log_err("cannot parse tag (define-tag it): %s %s", str, tag);
215 if((size_t)tagid >= node->tag_actions_size) {
216 log_err("tagid too large for array %s %s", str, tag);
219 if(!local_zone_str2type(action, &t)) {
220 log_err("cannot parse access control action type: %s %s %s",
224 node->tag_actions[tagid] = (uint8_t)t;
228 /** check wire data parse */
230 check_data(const char* data, const struct config_strlist* head)
233 uint8_t rr[LDNS_RR_BUF_SIZE];
234 size_t len = sizeof(rr);
236 /* '.' is sufficient for validation, and it makes the call to
237 * sldns_wirerr_get_type() simpler below. */
238 snprintf(buf, sizeof(buf), "%s %s", ".", data);
239 res = sldns_str2wire_rr_buf(buf, rr, &len, NULL, 3600, NULL, 0,
242 /* Reject it if we would end up having CNAME and other data (including
243 * another CNAME) for the same tag. */
244 if(res == 0 && head) {
245 const char* err_data = NULL;
247 if(sldns_wirerr_get_type(rr, len, 1) == LDNS_RR_TYPE_CNAME) {
248 /* adding CNAME while other data already exists. */
251 snprintf(buf, sizeof(buf), "%s %s", ".", head->str);
253 res = sldns_str2wire_rr_buf(buf, rr, &len, NULL, 3600,
256 /* This should be impossible here as head->str
257 * has been validated, but we check it just in
261 if(sldns_wirerr_get_type(rr, len, 1) ==
262 LDNS_RR_TYPE_CNAME) /* already have CNAME */
263 err_data = head->str;
266 log_err("redirect tag data '%s' must not coexist with "
267 "other data.", err_data);
273 log_err("rr data [char %d] parse error %s",
274 (int)LDNS_WIREPARSE_OFFSET(res)-13,
275 sldns_get_errorstr_parse(res));
279 /** apply acl_tag_data string */
281 acl_list_tag_data_cfg(struct acl_list* acl, struct config_file* cfg,
282 const char* str, const char* tag, const char* data)
284 struct acl_addr* node;
287 if(!(node=acl_find_or_create(acl, str)))
289 /* allocate array if not yet */
290 if(!node->tag_datas) {
291 node->tag_datas = (struct config_strlist**)regional_alloc_zero(
292 acl->region, sizeof(*node->tag_datas)*cfg->num_tags);
293 if(!node->tag_datas) {
294 log_err("out of memory");
297 node->tag_datas_size = (size_t)cfg->num_tags;
300 if((tagid=find_tag_id(cfg, tag)) == -1) {
301 log_err("cannot parse tag (define-tag it): %s %s", str, tag);
304 if((size_t)tagid >= node->tag_datas_size) {
305 log_err("tagid too large for array %s %s", str, tag);
310 if(!check_data(data, node->tag_datas[tagid])) {
311 log_err("cannot parse access-control-tag data: %s %s '%s'",
316 dupdata = regional_strdup(acl->region, data);
318 log_err("out of memory");
321 if(!cfg_region_strlist_insert(acl->region,
322 &(node->tag_datas[tagid]), dupdata)) {
323 log_err("out of memory");
329 /** read acl_list config */
331 read_acl_list(struct acl_list* acl, struct config_file* cfg)
333 struct config_str2list* p;
334 for(p = cfg->acls; p; p = p->next) {
335 log_assert(p->str && p->str2);
336 if(!acl_list_str_cfg(acl, p->str, p->str2, 1))
342 /** read acl tags config */
344 read_acl_tags(struct acl_list* acl, struct config_file* cfg)
346 struct config_strbytelist* np, *p = cfg->acl_tags;
347 cfg->acl_tags = NULL;
349 log_assert(p->str && p->str2);
350 if(!acl_list_tags_cfg(acl, p->str, p->str2, p->str2len)) {
351 config_del_strbytelist(p);
354 /* free the items as we go to free up memory */
364 /** read acl view config */
366 read_acl_view(struct acl_list* acl, struct config_file* cfg, struct views* v)
368 struct config_str2list* np, *p = cfg->acl_view;
369 cfg->acl_view = NULL;
371 log_assert(p->str && p->str2);
372 if(!acl_list_view_cfg(acl, p->str, p->str2, v)) {
375 /* free the items as we go to free up memory */
385 /** read acl tag actions config */
387 read_acl_tag_actions(struct acl_list* acl, struct config_file* cfg)
389 struct config_str3list* p, *np;
390 p = cfg->acl_tag_actions;
391 cfg->acl_tag_actions = NULL;
393 log_assert(p->str && p->str2 && p->str3);
394 if(!acl_list_tag_action_cfg(acl, cfg, p->str, p->str2,
396 config_deltrplstrlist(p);
399 /* free the items as we go to free up memory */
410 /** read acl tag datas config */
412 read_acl_tag_datas(struct acl_list* acl, struct config_file* cfg)
414 struct config_str3list* p, *np;
415 p = cfg->acl_tag_datas;
416 cfg->acl_tag_datas = NULL;
418 log_assert(p->str && p->str2 && p->str3);
419 if(!acl_list_tag_data_cfg(acl, cfg, p->str, p->str2, p->str3)) {
420 config_deltrplstrlist(p);
423 /* free the items as we go to free up memory */
435 acl_list_apply_cfg(struct acl_list* acl, struct config_file* cfg,
438 regional_free_all(acl->region);
439 addr_tree_init(&acl->tree);
440 if(!read_acl_list(acl, cfg))
442 if(!read_acl_view(acl, cfg, v))
444 if(!read_acl_tags(acl, cfg))
446 if(!read_acl_tag_actions(acl, cfg))
448 if(!read_acl_tag_datas(acl, cfg))
450 /* insert defaults, with '0' to ignore them if they are duplicates */
451 if(!acl_list_str_cfg(acl, "0.0.0.0/0", "refuse", 0))
453 if(!acl_list_str_cfg(acl, "127.0.0.0/8", "allow", 0))
456 if(!acl_list_str_cfg(acl, "::0/0", "refuse", 0))
458 if(!acl_list_str_cfg(acl, "::1", "allow", 0))
460 if(!acl_list_str_cfg(acl, "::ffff:127.0.0.1", "allow", 0))
463 addr_tree_init_parents(&acl->tree);
468 acl_get_control(struct acl_addr* acl)
470 if(acl) return acl->control;
475 acl_addr_lookup(struct acl_list* acl, struct sockaddr_storage* addr,
478 return (struct acl_addr*)addr_tree_lookup(&acl->tree,
483 acl_list_get_mem(struct acl_list* acl)
486 return sizeof(*acl) + regional_get_mem(acl->region);