contrib/unbound/util/config_file.c

   1 /*
   2  * util/config_file.c - reads and stores the config file for unbound.
   3  *
   4  * Copyright (c) 2007, NLnet Labs. All rights reserved.
   5  *
   6  * This software is open source.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  *
  12  * Redistributions of source code must retain the above copyright notice,
  13  * this list of conditions and the following disclaimer.
  14  *
  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.
  18  *
  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.
  22  *
  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.
  34  */
  35
  36 /**
  37  * \file
  38  *
  39  * This file contains functions for the config file.
  40  */
  41
  42 #include "config.h"
  43 #include <ctype.h>
  44 #include <stdarg.h>
  45 #ifdef HAVE_TIME_H
  46 #include <time.h>
  47 #endif
  48 #include "util/log.h"
  49 #include "util/configyyrename.h"
  50 #include "util/config_file.h"
  51 #include "configparser.h"
  52 #include "util/net_help.h"
  53 #include "util/data/msgparse.h"
  54 #include "util/module.h"
  55 #include "util/regional.h"
  56 #include "util/fptr_wlist.h"
  57 #include "util/data/dname.h"
  58 #include "util/rtt.h"
  59 #include "services/cache/infra.h"
  60 #include "sldns/wire2str.h"
  61 #include "sldns/parseutil.h"
  62 #ifdef HAVE_GLOB_H
  63 # include <glob.h>
  64 #endif
  65 #ifdef CLIENT_SUBNET
  66 #include "edns-subnet/edns-subnet.h"
  67 #endif
  68 #ifdef HAVE_PWD_H
  69 #include <pwd.h>
  70 #endif
  71
  72 /** from cfg username, after daemonise setup performed */
  73 uid_t cfg_uid = (uid_t)-1;
  74 /** from cfg username, after daemonise setup performed */
  75 gid_t cfg_gid = (gid_t)-1;
  76 /** for debug allow small timeout values for fast rollovers */
  77 int autr_permit_small_holddown = 0;
  78
  79 /** global config during parsing */
  80 struct config_parser_state* cfg_parser = 0;
  81
  82 /** init ports possible for use */
  83 static void init_outgoing_availports(int* array, int num);
  84
  85 struct config_file*
  86 config_create(void)
  87 {
  88         struct config_file* cfg;
  89         cfg = (struct config_file*)calloc(1, sizeof(struct config_file));
  90         if(!cfg)
  91                 return NULL;
  92         /* the defaults if no config is present */
  93         cfg->verbosity = 1;
  94         cfg->stat_interval = 0;
  95         cfg->stat_cumulative = 0;
  96         cfg->stat_extended = 0;
  97         cfg->num_threads = 1;
  98         cfg->port = UNBOUND_DNS_PORT;
  99         cfg->do_ip4 = 1;
 100         cfg->do_ip6 = 1;
 101         cfg->do_udp = 1;
 102         cfg->do_tcp = 1;
 103         cfg->tcp_upstream = 0;
 104         cfg->tcp_mss = 0;
 105         cfg->outgoing_tcp_mss = 0;
 106         cfg->ssl_service_key = NULL;
 107         cfg->ssl_service_pem = NULL;
 108         cfg->ssl_port = 853;
 109         cfg->ssl_upstream = 0;
 110         cfg->use_syslog = 1;
 111         cfg->log_identity = NULL; /* changed later with argv[0] */
 112         cfg->log_time_ascii = 0;
 113         cfg->log_queries = 0;
 114         cfg->log_replies = 0;
 115 #ifndef USE_WINSOCK
 116 #  ifdef USE_MINI_EVENT
 117         /* select max 1024 sockets */
 118         cfg->outgoing_num_ports = 960;
 119         cfg->num_queries_per_thread = 512;
 120 #  else
 121         /* libevent can use many sockets */
 122         cfg->outgoing_num_ports = 4096;
 123         cfg->num_queries_per_thread = 1024;
 124 #  endif
 125         cfg->outgoing_num_tcp = 10;
 126         cfg->incoming_num_tcp = 10;
 127 #else
 128         cfg->outgoing_num_ports = 48; /* windows is limited in num fds */
 129         cfg->num_queries_per_thread = 24;
 130         cfg->outgoing_num_tcp = 2; /* leaves 64-52=12 for: 4if,1stop,thread4 */
 131         cfg->incoming_num_tcp = 2;
 132 #endif
 133         cfg->edns_buffer_size = 4096; /* 4k from rfc recommendation */
 134         cfg->msg_buffer_size = 65552; /* 64 k + a small margin */
 135         cfg->msg_cache_size = 4 * 1024 * 1024;
 136         cfg->msg_cache_slabs = 4;
 137         cfg->jostle_time = 200;
 138         cfg->rrset_cache_size = 4 * 1024 * 1024;
 139         cfg->rrset_cache_slabs = 4;
 140         cfg->host_ttl = 900;
 141         cfg->bogus_ttl = 60;
 142         cfg->min_ttl = 0;
 143         cfg->max_ttl = 3600 * 24;
 144         cfg->max_negative_ttl = 3600;
 145         cfg->prefetch = 0;
 146         cfg->prefetch_key = 0;
 147         cfg->infra_cache_slabs = 4;
 148         cfg->infra_cache_numhosts = 10000;
 149         cfg->infra_cache_min_rtt = 50;
 150         cfg->delay_close = 0;
 151         if(!(cfg->outgoing_avail_ports = (int*)calloc(65536, sizeof(int))))
 152                 goto error_exit;
 153         init_outgoing_availports(cfg->outgoing_avail_ports, 65536);
 154         if(!(cfg->username = strdup(UB_USERNAME))) goto error_exit;
 155 #ifdef HAVE_CHROOT
 156         if(!(cfg->chrootdir = strdup(CHROOT_DIR))) goto error_exit;
 157 #endif
 158         if(!(cfg->directory = strdup(RUN_DIR))) goto error_exit;
 159         if(!(cfg->logfile = strdup(""))) goto error_exit;
 160         if(!(cfg->pidfile = strdup(PIDFILE))) goto error_exit;
 161         if(!(cfg->target_fetch_policy = strdup("3 2 1 0 0"))) goto error_exit;
 162         cfg->donotqueryaddrs = NULL;
 163         cfg->donotquery_localhost = 1;
 164         cfg->root_hints = NULL;
 165         cfg->use_systemd = 0;
 166         cfg->do_daemonize = 1;
 167         cfg->if_automatic = 0;
 168         cfg->so_rcvbuf = 0;
 169         cfg->so_sndbuf = 0;
 170         cfg->so_reuseport = 0;
 171         cfg->ip_transparent = 0;
 172         cfg->ip_freebind = 0;
 173         cfg->num_ifs = 0;
 174         cfg->ifs = NULL;
 175         cfg->num_out_ifs = 0;
 176         cfg->out_ifs = NULL;
 177         cfg->stubs = NULL;
 178         cfg->forwards = NULL;
 179 #ifdef CLIENT_SUBNET
 180         cfg->client_subnet = NULL;
 181         cfg->client_subnet_opcode = LDNS_EDNS_CLIENT_SUBNET;
 182         cfg->client_subnet_always_forward = 0;
 183         cfg->max_client_subnet_ipv4 = 24;
 184         cfg->max_client_subnet_ipv6 = 56;
 185 #endif
 186         cfg->views = NULL;
 187         cfg->acls = NULL;
 188         cfg->harden_short_bufsize = 0;
 189         cfg->harden_large_queries = 0;
 190         cfg->harden_glue = 1;
 191         cfg->harden_dnssec_stripped = 1;
 192         cfg->harden_below_nxdomain = 0;
 193         cfg->harden_referral_path = 0;
 194         cfg->harden_algo_downgrade = 0;
 195         cfg->use_caps_bits_for_id = 0;
 196         cfg->caps_whitelist = NULL;
 197         cfg->private_address = NULL;
 198         cfg->private_domain = NULL;
 199         cfg->unwanted_threshold = 0;
 200         cfg->hide_identity = 0;
 201         cfg->hide_version = 0;
 202         cfg->hide_trustanchor = 0;
 203         cfg->identity = NULL;
 204         cfg->version = NULL;
 205         cfg->auto_trust_anchor_file_list = NULL;
 206         cfg->trust_anchor_file_list = NULL;
 207         cfg->trust_anchor_list = NULL;
 208         cfg->trusted_keys_file_list = NULL;
 209         cfg->dlv_anchor_file = NULL;
 210         cfg->dlv_anchor_list = NULL;
 211         cfg->domain_insecure = NULL;
 212         cfg->val_date_override = 0;
 213         cfg->val_sig_skew_min = 3600; /* at least daylight savings trouble */
 214         cfg->val_sig_skew_max = 86400; /* at most timezone settings trouble */
 215         cfg->val_clean_additional = 1;
 216         cfg->val_log_level = 0;
 217         cfg->val_log_squelch = 0;
 218         cfg->val_permissive_mode = 0;
 219         cfg->ignore_cd = 0;
 220         cfg->serve_expired = 0;
 221         cfg->add_holddown = 30*24*3600;
 222         cfg->del_holddown = 30*24*3600;
 223         cfg->keep_missing = 366*24*3600; /* one year plus a little leeway */
 224         cfg->permit_small_holddown = 0;
 225         cfg->key_cache_size = 4 * 1024 * 1024;
 226         cfg->key_cache_slabs = 4;
 227         cfg->neg_cache_size = 1 * 1024 * 1024;
 228         cfg->local_zones = NULL;
 229         cfg->local_zones_nodefault = NULL;
 230         cfg->local_data = NULL;
 231         cfg->local_zone_overrides = NULL;
 232         cfg->unblock_lan_zones = 0;
 233         cfg->insecure_lan_zones = 0;
 234         cfg->python_script = NULL;
 235         cfg->remote_control_enable = 0;
 236         cfg->control_ifs = NULL;
 237         cfg->control_port = UNBOUND_CONTROL_PORT;
 238         cfg->remote_control_use_cert = 1;
 239         cfg->minimal_responses = 0;
 240         cfg->rrset_roundrobin = 0;
 241         cfg->max_udp_size = 4096;
 242         if(!(cfg->server_key_file = strdup(RUN_DIR"/unbound_server.key")))
 243                 goto error_exit;
 244         if(!(cfg->server_cert_file = strdup(RUN_DIR"/unbound_server.pem")))
 245                 goto error_exit;
 246         if(!(cfg->control_key_file = strdup(RUN_DIR"/unbound_control.key")))
 247                 goto error_exit;
 248         if(!(cfg->control_cert_file = strdup(RUN_DIR"/unbound_control.pem")))
 249                 goto error_exit;
 250
 251 #ifdef CLIENT_SUBNET
 252         if(!(cfg->module_conf = strdup("subnetcache validator iterator"))) goto error_exit;
 253 #else
 254         if(!(cfg->module_conf = strdup("validator iterator"))) goto error_exit;
 255 #endif
 256         if(!(cfg->val_nsec3_key_iterations =
 257                 strdup("1024 150 2048 500 4096 2500"))) goto error_exit;
 258 #if defined(DNSTAP_SOCKET_PATH)
 259         if(!(cfg->dnstap_socket_path = strdup(DNSTAP_SOCKET_PATH)))
 260                 goto error_exit;
 261 #endif
 262         cfg->disable_dnssec_lame_check = 0;
 263         cfg->ip_ratelimit = 0;
 264         cfg->ratelimit = 0;
 265         cfg->ip_ratelimit_slabs = 4;
 266         cfg->ratelimit_slabs = 4;
 267         cfg->ip_ratelimit_size = 4*1024*1024;
 268         cfg->ratelimit_size = 4*1024*1024;
 269         cfg->ratelimit_for_domain = NULL;
 270         cfg->ratelimit_below_domain = NULL;
 271         cfg->ip_ratelimit_factor = 10;
 272         cfg->ratelimit_factor = 10;
 273         cfg->qname_minimisation = 0;
 274         cfg->qname_minimisation_strict = 0;
 275         cfg->shm_enable = 0;
 276         cfg->shm_key = 11777;
 277         cfg->dnscrypt = 0;
 278         cfg->dnscrypt_port = 0;
 279         cfg->dnscrypt_provider = NULL;
 280         cfg->dnscrypt_provider_cert = NULL;
 281         cfg->dnscrypt_secret_key = NULL;
 282         return cfg;
 283 error_exit:
 284         config_delete(cfg);
 285         return NULL;
 286 }
 287
 288 struct config_file* config_create_forlib(void)
 289 {
 290         struct config_file* cfg = config_create();
 291         if(!cfg) return NULL;
 292         /* modifications for library use, less verbose, less memory */
 293         free(cfg->chrootdir);
 294         cfg->chrootdir = NULL;
 295         cfg->verbosity = 0;
 296         cfg->outgoing_num_ports = 16; /* in library use, this is 'reasonable'
 297                 and probably within the ulimit(maxfds) of the user */
 298         cfg->outgoing_num_tcp = 2;
 299         cfg->msg_cache_size = 1024*1024;
 300         cfg->msg_cache_slabs = 1;
 301         cfg->rrset_cache_size = 1024*1024;
 302         cfg->rrset_cache_slabs = 1;
 303         cfg->infra_cache_slabs = 1;
 304         cfg->use_syslog = 0;
 305         cfg->key_cache_size = 1024*1024;
 306         cfg->key_cache_slabs = 1;
 307         cfg->neg_cache_size = 100 * 1024;
 308         cfg->donotquery_localhost = 0; /* allow, so that you can ask a
 309                 forward nameserver running on localhost */
 310         cfg->val_log_level = 2; /* to fill why_bogus with */
 311         cfg->val_log_squelch = 1;
 312         return cfg;
 313 }
 314
 315 /** check that the value passed is >= 0 */
 316 #define IS_NUMBER_OR_ZERO \
 317         if(atoi(val) == 0 && strcmp(val, "0") != 0) return 0
 318 /** check that the value passed is > 0 */
 319 #define IS_NONZERO_NUMBER \
 320         if(atoi(val) == 0) return 0
 321 /** check that the value passed is not 0 and a power of 2 */
 322 #define IS_POW2_NUMBER \
 323         if(atoi(val) == 0 || !is_pow2((size_t)atoi(val))) return 0
 324 /** check that the value passed is yes or no */
 325 #define IS_YES_OR_NO \
 326         if(strcmp(val, "yes") != 0 && strcmp(val, "no") != 0) return 0
 327 /** put integer_or_zero into variable */
 328 #define S_NUMBER_OR_ZERO(str, var) if(strcmp(opt, str) == 0) \
 329         { IS_NUMBER_OR_ZERO; cfg->var = atoi(val); }
 330 /** put integer_nonzero into variable */
 331 #define S_NUMBER_NONZERO(str, var) if(strcmp(opt, str) == 0) \
 332         { IS_NONZERO_NUMBER; cfg->var = atoi(val); }
 333 /** put integer_or_zero into unsigned */
 334 #define S_UNSIGNED_OR_ZERO(str, var) if(strcmp(opt, str) == 0) \
 335         { IS_NUMBER_OR_ZERO; cfg->var = (unsigned)atoi(val); }
 336 /** put integer_or_zero into size_t */
 337 #define S_SIZET_OR_ZERO(str, var) if(strcmp(opt, str) == 0) \
 338         { IS_NUMBER_OR_ZERO; cfg->var = (size_t)atoi(val); }
 339 /** put integer_nonzero into size_t */
 340 #define S_SIZET_NONZERO(str, var) if(strcmp(opt, str) == 0) \
 341         { IS_NONZERO_NUMBER; cfg->var = (size_t)atoi(val); }
 342 /** put yesno into variable */
 343 #define S_YNO(str, var) if(strcmp(opt, str) == 0) \
 344         { IS_YES_OR_NO; cfg->var = (strcmp(val, "yes") == 0); }
 345 /** put memsize into variable */
 346 #define S_MEMSIZE(str, var) if(strcmp(opt, str)==0) \
 347         { return cfg_parse_memsize(val, &cfg->var); }
 348 /** put pow2 number into variable */
 349 #define S_POW2(str, var) if(strcmp(opt, str)==0) \
 350         { IS_POW2_NUMBER; cfg->var = (size_t)atoi(val); }
 351 /** put string into variable */
 352 #define S_STR(str, var) if(strcmp(opt, str)==0) \
 353         { free(cfg->var); return (cfg->var = strdup(val)) != NULL; }
 354 /** put string into strlist */
 355 #define S_STRLIST(str, var) if(strcmp(opt, str)==0) \
 356         { return cfg_strlist_insert(&cfg->var, strdup(val)); }
 357
 358 int config_set_option(struct config_file* cfg, const char* opt,
 359         const char* val)
 360 {
 361         S_NUMBER_OR_ZERO("verbosity:", verbosity)
 362         else if(strcmp(opt, "statistics-interval:") == 0) {
 363                 if(strcmp(val, "0") == 0 || strcmp(val, "") == 0)
 364                         cfg->stat_interval = 0;
 365                 else if(atoi(val) == 0)
 366                         return 0;
 367                 else cfg->stat_interval = atoi(val);
 368         } else if(strcmp(opt, "num_threads:") == 0) {
 369                 /* not supported, library must have 1 thread in bgworker */
 370                 return 0;
 371         } else if(strcmp(opt, "outgoing-port-permit:") == 0) {
 372                 return cfg_mark_ports(val, 1,
 373                         cfg->outgoing_avail_ports, 65536);
 374         } else if(strcmp(opt, "outgoing-port-avoid:") == 0) {
 375                 return cfg_mark_ports(val, 0,
 376                         cfg->outgoing_avail_ports, 65536);
 377         } else if(strcmp(opt, "local-zone:") == 0) {
 378                 return cfg_parse_local_zone(cfg, val);
 379         } else if(strcmp(opt, "val-override-date:") == 0) {
 380                 if(strcmp(val, "") == 0 || strcmp(val, "0") == 0) {
 381                         cfg->val_date_override = 0;
 382                 } else if(strlen(val) == 14) {
 383                         cfg->val_date_override = cfg_convert_timeval(val);
 384                         return cfg->val_date_override != 0;
 385                 } else {
 386                         if(atoi(val) == 0) return 0;
 387                         cfg->val_date_override = (uint32_t)atoi(val);
 388                 }
 389         } else if(strcmp(opt, "local-data-ptr:") == 0) {
 390                 char* ptr = cfg_ptr_reverse((char*)opt);
 391                 return cfg_strlist_insert(&cfg->local_data, ptr);
 392         } else if(strcmp(opt, "logfile:") == 0) {
 393                 cfg->use_syslog = 0;
 394                 free(cfg->logfile);
 395                 return (cfg->logfile = strdup(val)) != NULL;
 396         }
 397         else if(strcmp(opt, "log-time-ascii:") == 0)
 398         { IS_YES_OR_NO; cfg->log_time_ascii = (strcmp(val, "yes") == 0);
 399           log_set_time_asc(cfg->log_time_ascii); }
 400         else S_SIZET_NONZERO("max-udp-size:", max_udp_size)
 401         else S_YNO("use-syslog:", use_syslog)
 402         else S_STR("log-identity:", log_identity)
 403         else S_YNO("extended-statistics:", stat_extended)
 404         else S_YNO("statistics-cumulative:", stat_cumulative)
 405         else S_YNO("shm-enable:", shm_enable)
 406         else S_NUMBER_OR_ZERO("shm-key:", shm_key)
 407         else S_YNO("do-ip4:", do_ip4)
 408         else S_YNO("do-ip6:", do_ip6)
 409         else S_YNO("do-udp:", do_udp)
 410         else S_YNO("do-tcp:", do_tcp)
 411         else S_YNO("tcp-upstream:", tcp_upstream)
 412         else S_NUMBER_NONZERO("tcp-mss:", tcp_mss)
 413         else S_NUMBER_NONZERO("outgoing-tcp-mss:", outgoing_tcp_mss)
 414         else S_YNO("ssl-upstream:", ssl_upstream)
 415         else S_STR("ssl-service-key:", ssl_service_key)
 416         else S_STR("ssl-service-pem:", ssl_service_pem)
 417         else S_NUMBER_NONZERO("ssl-port:", ssl_port)
 418         else S_YNO("interface-automatic:", if_automatic)
 419         else S_YNO("use-systemd:", use_systemd)
 420         else S_YNO("do-daemonize:", do_daemonize)
 421         else S_NUMBER_NONZERO("port:", port)
 422         else S_NUMBER_NONZERO("outgoing-range:", outgoing_num_ports)
 423         else S_SIZET_OR_ZERO("outgoing-num-tcp:", outgoing_num_tcp)
 424         else S_SIZET_OR_ZERO("incoming-num-tcp:", incoming_num_tcp)
 425         else S_SIZET_NONZERO("edns-buffer-size:", edns_buffer_size)
 426         else S_SIZET_NONZERO("msg-buffer-size:", msg_buffer_size)
 427         else S_MEMSIZE("msg-cache-size:", msg_cache_size)
 428         else S_POW2("msg-cache-slabs:", msg_cache_slabs)
 429         else S_SIZET_NONZERO("num-queries-per-thread:",num_queries_per_thread)
 430         else S_SIZET_OR_ZERO("jostle-timeout:", jostle_time)
 431         else S_MEMSIZE("so-rcvbuf:", so_rcvbuf)
 432         else S_MEMSIZE("so-sndbuf:", so_sndbuf)
 433         else S_YNO("so-reuseport:", so_reuseport)
 434         else S_YNO("ip-transparent:", ip_transparent)
 435         else S_YNO("ip-freebind:", ip_freebind)
 436         else S_MEMSIZE("rrset-cache-size:", rrset_cache_size)
 437         else S_POW2("rrset-cache-slabs:", rrset_cache_slabs)
 438         else S_YNO("prefetch:", prefetch)
 439         else S_YNO("prefetch-key:", prefetch_key)
 440         else if(strcmp(opt, "cache-max-ttl:") == 0)
 441         { IS_NUMBER_OR_ZERO; cfg->max_ttl = atoi(val); MAX_TTL=(time_t)cfg->max_ttl;}
 442         else if(strcmp(opt, "cache-max-negative-ttl:") == 0)
 443         { IS_NUMBER_OR_ZERO; cfg->max_negative_ttl = atoi(val); MAX_NEG_TTL=(time_t)cfg->max_negative_ttl;}
 444         else if(strcmp(opt, "cache-min-ttl:") == 0)
 445         { IS_NUMBER_OR_ZERO; cfg->min_ttl = atoi(val); MIN_TTL=(time_t)cfg->min_ttl;}
 446         else if(strcmp(opt, "infra-cache-min-rtt:") == 0) {
 447             IS_NUMBER_OR_ZERO; cfg->infra_cache_min_rtt = atoi(val);
 448             RTT_MIN_TIMEOUT=cfg->infra_cache_min_rtt;
 449         }
 450         else S_NUMBER_OR_ZERO("infra-host-ttl:", host_ttl)
 451         else S_POW2("infra-cache-slabs:", infra_cache_slabs)
 452         else S_SIZET_NONZERO("infra-cache-numhosts:", infra_cache_numhosts)
 453         else S_NUMBER_OR_ZERO("delay-close:", delay_close)
 454         else S_STR("chroot:", chrootdir)
 455         else S_STR("username:", username)
 456         else S_STR("directory:", directory)
 457         else S_STR("pidfile:", pidfile)
 458         else S_YNO("hide-identity:", hide_identity)
 459         else S_YNO("hide-version:", hide_version)
 460         else S_YNO("hide-trustanchor:", hide_trustanchor)
 461         else S_STR("identity:", identity)
 462         else S_STR("version:", version)
 463         else S_STRLIST("root-hints:", root_hints)
 464         else S_STR("target-fetch-policy:", target_fetch_policy)
 465         else S_YNO("harden-glue:", harden_glue)
 466         else S_YNO("harden-short-bufsize:", harden_short_bufsize)
 467         else S_YNO("harden-large-queries:", harden_large_queries)
 468         else S_YNO("harden-dnssec-stripped:", harden_dnssec_stripped)
 469         else S_YNO("harden-below-nxdomain:", harden_below_nxdomain)
 470         else S_YNO("harden-referral-path:", harden_referral_path)
 471         else S_YNO("harden-algo-downgrade:", harden_algo_downgrade)
 472         else S_YNO("use-caps-for-id", use_caps_bits_for_id)
 473         else S_STRLIST("caps-whitelist:", caps_whitelist)
 474         else S_SIZET_OR_ZERO("unwanted-reply-threshold:", unwanted_threshold)
 475         else S_STRLIST("private-address:", private_address)
 476         else S_STRLIST("private-domain:", private_domain)
 477         else S_YNO("do-not-query-localhost:", donotquery_localhost)
 478         else S_STRLIST("do-not-query-address:", donotqueryaddrs)
 479         else S_STRLIST("auto-trust-anchor-file:", auto_trust_anchor_file_list)
 480         else S_STRLIST("trust-anchor-file:", trust_anchor_file_list)
 481         else S_STRLIST("trust-anchor:", trust_anchor_list)
 482         else S_STRLIST("trusted-keys-file:", trusted_keys_file_list)
 483         else S_STR("dlv-anchor-file:", dlv_anchor_file)
 484         else S_STRLIST("dlv-anchor:", dlv_anchor_list)
 485         else S_STRLIST("domain-insecure:", domain_insecure)
 486         else S_NUMBER_OR_ZERO("val-bogus-ttl:", bogus_ttl)
 487         else S_YNO("val-clean-additional:", val_clean_additional)
 488         else S_NUMBER_OR_ZERO("val-log-level:", val_log_level)
 489         else S_YNO("val-log-squelch:", val_log_squelch)
 490         else S_YNO("log-queries:", log_queries)
 491         else S_YNO("log-replies:", log_replies)
 492         else S_YNO("val-permissive-mode:", val_permissive_mode)
 493         else S_YNO("ignore-cd-flag:", ignore_cd)
 494         else S_YNO("serve-expired:", serve_expired)
 495         else S_STR("val-nsec3-keysize-iterations:", val_nsec3_key_iterations)
 496         else S_UNSIGNED_OR_ZERO("add-holddown:", add_holddown)
 497         else S_UNSIGNED_OR_ZERO("del-holddown:", del_holddown)
 498         else S_UNSIGNED_OR_ZERO("keep-missing:", keep_missing)
 499         else if(strcmp(opt, "permit-small-holddown:") == 0)
 500         { IS_YES_OR_NO; cfg->permit_small_holddown = (strcmp(val, "yes") == 0);
 501           autr_permit_small_holddown = cfg->permit_small_holddown; }
 502         else S_MEMSIZE("key-cache-size:", key_cache_size)
 503         else S_POW2("key-cache-slabs:", key_cache_slabs)
 504         else S_MEMSIZE("neg-cache-size:", neg_cache_size)
 505         else S_YNO("minimal-responses:", minimal_responses)
 506         else S_YNO("rrset-roundrobin:", rrset_roundrobin)
 507         else S_STRLIST("local-data:", local_data)
 508         else S_YNO("unblock-lan-zones:", unblock_lan_zones)
 509         else S_YNO("insecure-lan-zones:", insecure_lan_zones)
 510         else S_YNO("control-enable:", remote_control_enable)
 511         else S_STRLIST("control-interface:", control_ifs)
 512         else S_NUMBER_NONZERO("control-port:", control_port)
 513         else S_STR("server-key-file:", server_key_file)
 514         else S_STR("server-cert-file:", server_cert_file)
 515         else S_STR("control-key-file:", control_key_file)
 516         else S_STR("control-cert-file:", control_cert_file)
 517         else S_STR("module-config:", module_conf)
 518         else S_STR("python-script:", python_script)
 519         else S_YNO("disable-dnssec-lame-check:", disable_dnssec_lame_check)
 520 #ifdef CLIENT_SUBNET
 521         /* Can't set max subnet prefix here, since that value is used when
 522          * generating the address tree. */
 523         /* No client-subnet-always-forward here, module registration depends on
 524          * this option. */
 525 #endif
 526         else if(strcmp(opt, "ip-ratelimit:") == 0) {
 527             IS_NUMBER_OR_ZERO; cfg->ip_ratelimit = atoi(val);
 528             infra_ip_ratelimit=cfg->ip_ratelimit;
 529         }
 530         else if(strcmp(opt, "ratelimit:") == 0) {
 531             IS_NUMBER_OR_ZERO; cfg->ratelimit = atoi(val);
 532             infra_dp_ratelimit=cfg->ratelimit;
 533         }
 534         else S_MEMSIZE("ip-ratelimit-size:", ip_ratelimit_size)
 535         else S_MEMSIZE("ratelimit-size:", ratelimit_size)
 536         else S_POW2("ip-ratelimit-slabs:", ip_ratelimit_slabs)
 537         else S_POW2("ratelimit-slabs:", ratelimit_slabs)
 538         else S_NUMBER_OR_ZERO("ip-ratelimit-factor:", ip_ratelimit_factor)
 539         else S_NUMBER_OR_ZERO("ratelimit-factor:", ratelimit_factor)
 540         else S_YNO("qname-minimisation:", qname_minimisation)
 541         else S_YNO("qname-minimisation-strict:", qname_minimisation_strict)
 542         else if(strcmp(opt, "define-tag:") ==0) {
 543                 return config_add_tag(cfg, val);
 544         /* val_sig_skew_min and max are copied into val_env during init,
 545          * so this does not update val_env with set_option */
 546         } else if(strcmp(opt, "val-sig-skew-min:") == 0)
 547         { IS_NUMBER_OR_ZERO; cfg->val_sig_skew_min = (int32_t)atoi(val); }
 548         else if(strcmp(opt, "val-sig-skew-max:") == 0)
 549         { IS_NUMBER_OR_ZERO; cfg->val_sig_skew_max = (int32_t)atoi(val); }
 550         else if (strcmp(opt, "outgoing-interface:") == 0) {
 551                 char* d = strdup(val);
 552                 char** oi =
 553                 (char**)reallocarray(NULL, (size_t)cfg->num_out_ifs+1, sizeof(char*));
 554                 if(!d || !oi) { free(d); free(oi); return -1; }
 555                 if(cfg->out_ifs && cfg->num_out_ifs) {
 556                         memmove(oi, cfg->out_ifs, cfg->num_out_ifs*sizeof(char*));
 557                         free(cfg->out_ifs);
 558                 }
 559                 oi[cfg->num_out_ifs++] = d;
 560                 cfg->out_ifs = oi;
 561         } else {
 562                 /* unknown or unsupported (from the set_option interface):
 563                  * interface, outgoing-interface, access-control,
 564                  * stub-zone, name, stub-addr, stub-host, stub-prime
 565                  * forward-first, stub-first, forward-ssl-upstream,
 566                  * stub-ssl-upstream, forward-zone,
 567                  * name, forward-addr, forward-host,
 568                  * ratelimit-for-domain, ratelimit-below-domain,
 569                  * local-zone-tag, access-control-view
 570                  * send-client-subnet client-subnet-always-forward
 571                  * max-client-subnet-ipv4 max-client-subnet-ipv6 */
 572                 return 0;
 573         }
 574         return 1;
 575 }
 576
 577 void config_print_func(char* line, void* arg)
 578 {
 579         FILE* f = (FILE*)arg;
 580         (void)fprintf(f, "%s\n", line);
 581 }
 582
 583 /** collate func arg */
 584 struct config_collate_arg {
 585         /** list of result items */
 586         struct config_strlist_head list;
 587         /** if a malloc error occurred, 0 is OK */
 588         int status;
 589 };
 590
 591 void config_collate_func(char* line, void* arg)
 592 {
 593         struct config_collate_arg* m = (struct config_collate_arg*)arg;
 594         if(m->status)
 595                 return;
 596         if(!cfg_strlist_append(&m->list, strdup(line)))
 597                 m->status = 1;
 598 }
 599
 600 int config_get_option_list(struct config_file* cfg, const char* opt,
 601         struct config_strlist** list)
 602 {
 603         struct config_collate_arg m;
 604         memset(&m, 0, sizeof(m));
 605         *list = NULL;
 606         if(!config_get_option(cfg, opt, config_collate_func, &m))
 607                 return 1;
 608         if(m.status) {
 609                 config_delstrlist(m.list.first);
 610                 return 2;
 611         }
 612         *list = m.list.first;
 613         return 0;
 614 }
 615
 616 int
 617 config_get_option_collate(struct config_file* cfg, const char* opt, char** str)
 618 {
 619         struct config_strlist* list = NULL;
 620         int r;
 621         *str = NULL;
 622         if((r = config_get_option_list(cfg, opt, &list)) != 0)
 623                 return r;
 624         *str = config_collate_cat(list);
 625         config_delstrlist(list);
 626         if(!*str) return 2;
 627         return 0;
 628 }
 629
 630 char*
 631 config_collate_cat(struct config_strlist* list)
 632 {
 633         size_t total = 0, left;
 634         struct config_strlist* s;
 635         char *r, *w;
 636         if(!list) /* no elements */
 637                 return strdup("");
 638         if(list->next == NULL) /* one element , no newline at end. */
 639                 return strdup(list->str);
 640         /* count total length */
 641         for(s=list; s; s=s->next)
 642                 total += strlen(s->str) + 1; /* len + newline */
 643         left = total+1; /* one extra for nul at end */
 644         r = malloc(left);
 645         if(!r)
 646                 return NULL;
 647         w = r;
 648         for(s=list; s; s=s->next) {
 649                 size_t this = strlen(s->str);
 650                 if(this+2 > left) { /* sanity check */
 651                         free(r);
 652                         return NULL;
 653                 }
 654                 snprintf(w, left, "%s\n", s->str);
 655                 this = strlen(w);
 656                 w += this;
 657                 left -= this;
 658         }
 659         return r;
 660 }
 661
 662 /** compare and print decimal option */
 663 #define O_DEC(opt, str, var) if(strcmp(opt, str)==0) \
 664         {snprintf(buf, len, "%d", (int)cfg->var); \
 665         func(buf, arg);}
 666 /** compare and print unsigned option */
 667 #define O_UNS(opt, str, var) if(strcmp(opt, str)==0) \
 668         {snprintf(buf, len, "%u", (unsigned)cfg->var); \
 669         func(buf, arg);}
 670 /** compare and print yesno option */
 671 #define O_YNO(opt, str, var) if(strcmp(opt, str)==0) \
 672         {func(cfg->var?"yes":"no", arg);}
 673 /** compare and print string option */
 674 #define O_STR(opt, str, var) if(strcmp(opt, str)==0) \
 675         {func(cfg->var?cfg->var:"", arg);}
 676 /** compare and print array option */
 677 #define O_IFC(opt, str, num, arr) if(strcmp(opt, str)==0) \
 678         {int i; for(i=0; i<cfg->num; i++) func(cfg->arr[i], arg);}
 679 /** compare and print memorysize option */
 680 #define O_MEM(opt, str, var) if(strcmp(opt, str)==0) { \
 681         if(cfg->var > 1024*1024*1024) { \
 682           size_t f=cfg->var/(size_t)1000000, b=cfg->var%(size_t)1000000; \
 683           snprintf(buf, len, "%u%6.6u", (unsigned)f, (unsigned)b); \
 684         } else snprintf(buf, len, "%u", (unsigned)cfg->var); \
 685         func(buf, arg);}
 686 /** compare and print list option */
 687 #define O_LST(opt, name, lst) if(strcmp(opt, name)==0) { \
 688         struct config_strlist* p = cfg->lst; \
 689         for(p = cfg->lst; p; p = p->next) \
 690                 func(p->str, arg); \
 691         }
 692 /** compare and print list option */
 693 #define O_LS2(opt, name, lst) if(strcmp(opt, name)==0) { \
 694         struct config_str2list* p = cfg->lst; \
 695         for(p = cfg->lst; p; p = p->next) { \
 696                 snprintf(buf, len, "%s %s", p->str, p->str2); \
 697                 func(buf, arg); \
 698         } \
 699         }
 700 /** compare and print list option */
 701 #define O_LS3(opt, name, lst) if(strcmp(opt, name)==0) { \
 702         struct config_str3list* p = cfg->lst; \
 703         for(p = cfg->lst; p; p = p->next) { \
 704                 snprintf(buf, len, "%s %s %s", p->str, p->str2, p->str3); \
 705                 func(buf, arg); \
 706         } \
 707         }
 708 /** compare and print taglist option */
 709 #define O_LTG(opt, name, lst) if(strcmp(opt, name)==0) { \
 710         char* tmpstr = NULL; \
 711         struct config_strbytelist *p = cfg->lst; \
 712         for(p = cfg->lst; p; p = p->next) {\
 713                 tmpstr = config_taglist2str(cfg, p->str2, p->str2len); \
 714                 if(tmpstr) {\
 715                         snprintf(buf, len, "%s %s", p->str, tmpstr); \
 716                         func(buf, arg); \
 717                         free(tmpstr); \
 718                 } \
 719         } \
 720         }
 721
 722 int
 723 config_get_option(struct config_file* cfg, const char* opt,
 724         void (*func)(char*,void*), void* arg)
 725 {
 726         char buf[1024];
 727         size_t len = sizeof(buf);
 728         fptr_ok(fptr_whitelist_print_func(func));
 729         O_DEC(opt, "verbosity", verbosity)
 730         else O_DEC(opt, "statistics-interval", stat_interval)
 731         else O_YNO(opt, "statistics-cumulative", stat_cumulative)
 732         else O_YNO(opt, "extended-statistics", stat_extended)
 733         else O_YNO(opt, "shm-enable", shm_enable)
 734         else O_DEC(opt, "shm-key", shm_key)
 735         else O_YNO(opt, "use-syslog", use_syslog)
 736         else O_STR(opt, "log-identity", log_identity)
 737         else O_YNO(opt, "log-time-ascii", log_time_ascii)
 738         else O_DEC(opt, "num-threads", num_threads)
 739         else O_IFC(opt, "interface", num_ifs, ifs)
 740         else O_IFC(opt, "outgoing-interface", num_out_ifs, out_ifs)
 741         else O_YNO(opt, "interface-automatic", if_automatic)
 742         else O_DEC(opt, "port", port)
 743         else O_DEC(opt, "outgoing-range", outgoing_num_ports)
 744         else O_DEC(opt, "outgoing-num-tcp", outgoing_num_tcp)
 745         else O_DEC(opt, "incoming-num-tcp", incoming_num_tcp)
 746         else O_DEC(opt, "edns-buffer-size", edns_buffer_size)
 747         else O_DEC(opt, "msg-buffer-size", msg_buffer_size)
 748         else O_MEM(opt, "msg-cache-size", msg_cache_size)
 749         else O_DEC(opt, "msg-cache-slabs", msg_cache_slabs)
 750         else O_DEC(opt, "num-queries-per-thread", num_queries_per_thread)
 751         else O_UNS(opt, "jostle-timeout", jostle_time)
 752         else O_MEM(opt, "so-rcvbuf", so_rcvbuf)
 753         else O_MEM(opt, "so-sndbuf", so_sndbuf)
 754         else O_YNO(opt, "so-reuseport", so_reuseport)
 755         else O_YNO(opt, "ip-transparent", ip_transparent)
 756         else O_YNO(opt, "ip-freebind", ip_freebind)
 757         else O_MEM(opt, "rrset-cache-size", rrset_cache_size)
 758         else O_DEC(opt, "rrset-cache-slabs", rrset_cache_slabs)
 759         else O_YNO(opt, "prefetch-key", prefetch_key)
 760         else O_YNO(opt, "prefetch", prefetch)
 761         else O_DEC(opt, "cache-max-ttl", max_ttl)
 762         else O_DEC(opt, "cache-max-negative-ttl", max_negative_ttl)
 763         else O_DEC(opt, "cache-min-ttl", min_ttl)
 764         else O_DEC(opt, "infra-host-ttl", host_ttl)
 765         else O_DEC(opt, "infra-cache-slabs", infra_cache_slabs)
 766         else O_DEC(opt, "infra-cache-min-rtt", infra_cache_min_rtt)
 767         else O_MEM(opt, "infra-cache-numhosts", infra_cache_numhosts)
 768         else O_UNS(opt, "delay-close", delay_close)
 769         else O_YNO(opt, "do-ip4", do_ip4)
 770         else O_YNO(opt, "do-ip6", do_ip6)
 771         else O_YNO(opt, "do-udp", do_udp)
 772         else O_YNO(opt, "do-tcp", do_tcp)
 773         else O_YNO(opt, "tcp-upstream", tcp_upstream)
 774         else O_DEC(opt, "tcp-mss", tcp_mss)
 775         else O_DEC(opt, "outgoing-tcp-mss", outgoing_tcp_mss)
 776         else O_YNO(opt, "ssl-upstream", ssl_upstream)
 777         else O_STR(opt, "ssl-service-key", ssl_service_key)
 778         else O_STR(opt, "ssl-service-pem", ssl_service_pem)
 779         else O_DEC(opt, "ssl-port", ssl_port)
 780         else O_YNO(opt, "use-systemd", use_systemd)
 781         else O_YNO(opt, "do-daemonize", do_daemonize)
 782         else O_STR(opt, "chroot", chrootdir)
 783         else O_STR(opt, "username", username)
 784         else O_STR(opt, "directory", directory)
 785         else O_STR(opt, "logfile", logfile)
 786         else O_YNO(opt, "log-queries", log_queries)
 787         else O_YNO(opt, "log-replies", log_replies)
 788         else O_STR(opt, "pidfile", pidfile)
 789         else O_YNO(opt, "hide-identity", hide_identity)
 790         else O_YNO(opt, "hide-version", hide_version)
 791         else O_YNO(opt, "hide-trustanchor", hide_trustanchor)
 792         else O_STR(opt, "identity", identity)
 793         else O_STR(opt, "version", version)
 794         else O_STR(opt, "target-fetch-policy", target_fetch_policy)
 795         else O_YNO(opt, "harden-short-bufsize", harden_short_bufsize)
 796         else O_YNO(opt, "harden-large-queries", harden_large_queries)
 797         else O_YNO(opt, "harden-glue", harden_glue)
 798         else O_YNO(opt, "harden-dnssec-stripped", harden_dnssec_stripped)
 799         else O_YNO(opt, "harden-below-nxdomain", harden_below_nxdomain)
 800         else O_YNO(opt, "harden-referral-path", harden_referral_path)
 801         else O_YNO(opt, "harden-algo-downgrade", harden_algo_downgrade)
 802         else O_YNO(opt, "use-caps-for-id", use_caps_bits_for_id)
 803         else O_LST(opt, "caps-whitelist", caps_whitelist)
 804         else O_DEC(opt, "unwanted-reply-threshold", unwanted_threshold)
 805         else O_YNO(opt, "do-not-query-localhost", donotquery_localhost)
 806         else O_STR(opt, "module-config", module_conf)
 807         else O_STR(opt, "dlv-anchor-file", dlv_anchor_file)
 808         else O_DEC(opt, "val-bogus-ttl", bogus_ttl)
 809         else O_YNO(opt, "val-clean-additional", val_clean_additional)
 810         else O_DEC(opt, "val-log-level", val_log_level)
 811         else O_YNO(opt, "val-permissive-mode", val_permissive_mode)
 812         else O_YNO(opt, "ignore-cd-flag", ignore_cd)
 813         else O_YNO(opt, "serve-expired", serve_expired)
 814         else O_STR(opt, "val-nsec3-keysize-iterations",val_nsec3_key_iterations)
 815         else O_UNS(opt, "add-holddown", add_holddown)
 816         else O_UNS(opt, "del-holddown", del_holddown)
 817         else O_UNS(opt, "keep-missing", keep_missing)
 818         else O_YNO(opt, "permit-small-holddown", permit_small_holddown)
 819         else O_MEM(opt, "key-cache-size", key_cache_size)
 820         else O_DEC(opt, "key-cache-slabs", key_cache_slabs)
 821         else O_MEM(opt, "neg-cache-size", neg_cache_size)
 822         else O_YNO(opt, "control-enable", remote_control_enable)
 823         else O_DEC(opt, "control-port", control_port)
 824         else O_STR(opt, "server-key-file", server_key_file)
 825         else O_STR(opt, "server-cert-file", server_cert_file)
 826         else O_STR(opt, "control-key-file", control_key_file)
 827         else O_STR(opt, "control-cert-file", control_cert_file)
 828         else O_LST(opt, "root-hints", root_hints)
 829         else O_LS2(opt, "access-control", acls)
 830         else O_LST(opt, "do-not-query-address", donotqueryaddrs)
 831         else O_LST(opt, "private-address", private_address)
 832         else O_LST(opt, "private-domain", private_domain)
 833         else O_LST(opt, "auto-trust-anchor-file", auto_trust_anchor_file_list)
 834         else O_LST(opt, "trust-anchor-file", trust_anchor_file_list)
 835         else O_LST(opt, "trust-anchor", trust_anchor_list)
 836         else O_LST(opt, "trusted-keys-file", trusted_keys_file_list)
 837         else O_LST(opt, "dlv-anchor", dlv_anchor_list)
 838         else O_LST(opt, "control-interface", control_ifs)
 839         else O_LST(opt, "domain-insecure", domain_insecure)
 840         else O_UNS(opt, "val-override-date", val_date_override)
 841         else O_YNO(opt, "minimal-responses", minimal_responses)
 842         else O_YNO(opt, "rrset-roundrobin", rrset_roundrobin)
 843 #ifdef CLIENT_SUBNET
 844         else O_LST(opt, "send-client-subnet", client_subnet)
 845         else O_DEC(opt, "max-client-subnet-ipv4", max_client_subnet_ipv4)
 846         else O_DEC(opt, "max-client-subnet-ipv6", max_client_subnet_ipv6)
 847         else O_YNO(opt, "client-subnet-always-forward:",
 848                 client_subnet_always_forward)
 849 #endif
 850         else O_YNO(opt, "unblock-lan-zones", unblock_lan_zones)
 851         else O_YNO(opt, "insecure-lan-zones", insecure_lan_zones)
 852         else O_DEC(opt, "max-udp-size", max_udp_size)
 853         else O_STR(opt, "python-script", python_script)
 854         else O_YNO(opt, "disable-dnssec-lame-check", disable_dnssec_lame_check)
 855         else O_DEC(opt, "ip-ratelimit", ip_ratelimit)
 856         else O_DEC(opt, "ratelimit", ratelimit)
 857         else O_MEM(opt, "ip-ratelimit-size", ip_ratelimit_size)
 858         else O_MEM(opt, "ratelimit-size", ratelimit_size)
 859         else O_DEC(opt, "ip-ratelimit-slabs", ip_ratelimit_slabs)
 860         else O_DEC(opt, "ratelimit-slabs", ratelimit_slabs)
 861         else O_LS2(opt, "ratelimit-for-domain", ratelimit_for_domain)
 862         else O_LS2(opt, "ratelimit-below-domain", ratelimit_below_domain)
 863         else O_DEC(opt, "ip-ratelimit-factor", ip_ratelimit_factor)
 864         else O_DEC(opt, "ratelimit-factor", ratelimit_factor)
 865         else O_DEC(opt, "val-sig-skew-min", val_sig_skew_min)
 866         else O_DEC(opt, "val-sig-skew-max", val_sig_skew_max)
 867         else O_YNO(opt, "qname-minimisation", qname_minimisation)
 868         else O_YNO(opt, "qname-minimisation-strict", qname_minimisation_strict)
 869         else O_IFC(opt, "define-tag", num_tags, tagname)
 870         else O_LTG(opt, "local-zone-tag", local_zone_tags)
 871         else O_LTG(opt, "access-control-tag", acl_tags)
 872         else O_LTG(opt, "response-ip-tag", respip_tags)
 873         else O_LS3(opt, "local-zone-override", local_zone_overrides)
 874         else O_LS3(opt, "access-control-tag-action", acl_tag_actions)
 875         else O_LS3(opt, "access-control-tag-data", acl_tag_datas)
 876         else O_LS2(opt, "access-control-view", acl_view)
 877         /* not here:
 878          * outgoing-permit, outgoing-avoid - have list of ports
 879          * local-zone - zones and nodefault variables
 880          * local-data - see below
 881          * local-data-ptr - converted to local-data entries
 882          * stub-zone, name, stub-addr, stub-host, stub-prime
 883          * forward-zone, name, forward-addr, forward-host
 884          */
 885         else return 0;
 886         return 1;
 887 }
 888
 889 /** initialize the global cfg_parser object */
 890 static void
 891 create_cfg_parser(struct config_file* cfg, char* filename, const char* chroot)
 892 {
 893         static struct config_parser_state st;
 894         cfg_parser = &st;
 895         cfg_parser->filename = filename;
 896         cfg_parser->line = 1;
 897         cfg_parser->errors = 0;
 898         cfg_parser->cfg = cfg;
 899         cfg_parser->chroot = chroot;
 900         init_cfg_parse();
 901 }
 902
 903 int
 904 config_read(struct config_file* cfg, const char* filename, const char* chroot)
 905 {
 906         FILE *in;
 907         char *fname = (char*)filename;
 908 #ifdef HAVE_GLOB
 909         glob_t g;
 910         size_t i;
 911         int r, flags;
 912 #endif
 913         if(!fname)
 914                 return 1;
 915
 916         /* check for wildcards */
 917 #ifdef HAVE_GLOB
 918         if(!(!strchr(fname, '*') && !strchr(fname, '?') && !strchr(fname, '[') &&
 919                 !strchr(fname, '{') && !strchr(fname, '~'))) {
 920                 verbose(VERB_QUERY, "wildcard found, processing %s", fname);
 921                 flags = 0
 922 #ifdef GLOB_ERR
 923                         | GLOB_ERR
 924 #endif
 925 #ifdef GLOB_NOSORT
 926                         | GLOB_NOSORT
 927 #endif
 928 #ifdef GLOB_BRACE
 929                         | GLOB_BRACE
 930 #endif
 931 #ifdef GLOB_TILDE
 932                         | GLOB_TILDE
 933 #endif
 934                 ;
 935                 memset(&g, 0, sizeof(g));
 936                 r = glob(fname, flags, NULL, &g);
 937                 if(r) {
 938                         /* some error */
 939                         globfree(&g);
 940                         if(r == GLOB_NOMATCH) {
 941                                 verbose(VERB_QUERY, "include: "
 942                                 "no matches for %s", fname);
 943                                 return 1;
 944                         } else if(r == GLOB_NOSPACE) {
 945                                 log_err("include: %s: "
 946                                         "fnametern out of memory", fname);
 947                         } else if(r == GLOB_ABORTED) {
 948                                 log_err("wildcard include: %s: expansion "
 949                                         "aborted (%s)", fname, strerror(errno));
 950                         } else {
 951                                 log_err("wildcard include: %s: expansion "
 952                                         "failed (%s)", fname, strerror(errno));
 953                         }
 954                         /* ignore globs that yield no files */
 955                         return 1;
 956                 }
 957                 /* process files found, if any */
 958                 for(i=0; i<(size_t)g.gl_pathc; i++) {
 959                         if(!config_read(cfg, g.gl_pathv[i], chroot)) {
 960                                 log_err("error reading wildcard "
 961                                         "include: %s", g.gl_pathv[i]);
 962                                 globfree(&g);
 963                                 return 0;
 964                         }
 965                 }
 966                 globfree(&g);
 967                 return 1;
 968         }
 969 #endif /* HAVE_GLOB */
 970
 971         in = fopen(fname, "r");
 972         if(!in) {
 973                 log_err("Could not open %s: %s", fname, strerror(errno));
 974                 return 0;
 975         }
 976         create_cfg_parser(cfg, fname, chroot);
 977         ub_c_in = in;
 978         ub_c_parse();
 979         fclose(in);
 980
 981         if(!cfg->dnscrypt) cfg->dnscrypt_port = 0;
 982
 983         if(cfg_parser->errors != 0) {
 984                 fprintf(stderr, "read %s failed: %d errors in configuration file\n",
 985                         fname, cfg_parser->errors);
 986                 errno=EINVAL;
 987                 return 0;
 988         }
 989
 990         return 1;
 991 }
 992
 993 struct config_stub* cfg_stub_find(struct config_stub*** pp, const char* nm)
 994 {
 995         struct config_stub* p = *(*pp);
 996         while(p) {
 997                 if(strcmp(p->name, nm) == 0)
 998                         return p;
 999                 (*pp) = &p->next;
1000                 p = p->next;
1001         }
1002         return NULL;
1003 }
1004
1005 void
1006 config_delstrlist(struct config_strlist* p)
1007 {
1008         struct config_strlist *np;
1009         while(p) {
1010                 np = p->next;
1011                 free(p->str);
1012                 free(p);
1013                 p = np;
1014         }
1015 }
1016
1017 void
1018 config_deldblstrlist(struct config_str2list* p)
1019 {
1020         struct config_str2list *np;
1021         while(p) {
1022                 np = p->next;
1023                 free(p->str);
1024                 free(p->str2);
1025                 free(p);
1026                 p = np;
1027         }
1028 }
1029
1030 void
1031 config_deltrplstrlist(struct config_str3list* p)
1032 {
1033         struct config_str3list *np;
1034         while(p) {
1035                 np = p->next;
1036                 free(p->str);
1037                 free(p->str2);
1038                 free(p->str3);
1039                 free(p);
1040                 p = np;
1041         }
1042 }
1043
1044 void
1045 config_delstub(struct config_stub* p)
1046 {
1047         if(!p) return;
1048         free(p->name);
1049         config_delstrlist(p->hosts);
1050         config_delstrlist(p->addrs);
1051         free(p);
1052 }
1053
1054 void
1055 config_delstubs(struct config_stub* p)
1056 {
1057         struct config_stub* np;
1058         while(p) {
1059                 np = p->next;
1060                 config_delstub(p);
1061                 p = np;
1062         }
1063 }
1064
1065 void
1066 config_delview(struct config_view* p)
1067 {
1068         if(!p) return;
1069         free(p->name);
1070         config_deldblstrlist(p->local_zones);
1071         config_delstrlist(p->local_zones_nodefault);
1072         config_delstrlist(p->local_data);
1073         free(p);
1074 }
1075
1076 void
1077 config_delviews(struct config_view* p)
1078 {
1079         struct config_view* np;
1080         while(p) {
1081                 np = p->next;
1082                 config_delview(p);
1083                 p = np;
1084         }
1085 }
1086 /** delete string array */
1087 static void
1088 config_del_strarray(char** array, int num)
1089 {
1090         int i;
1091         if(!array)
1092                 return;
1093         for(i=0; i<num; i++) {
1094                 free(array[i]);
1095         }
1096         free(array);
1097 }
1098
1099 void
1100 config_del_strbytelist(struct config_strbytelist* p)
1101 {
1102         struct config_strbytelist* np;
1103         while(p) {
1104                 np = p->next;
1105                 free(p->str);
1106                 free(p->str2);
1107                 free(p);
1108                 p = np;
1109         }
1110 }
1111
1112 void
1113 config_delete(struct config_file* cfg)
1114 {
1115         if(!cfg) return;
1116         free(cfg->username);
1117         free(cfg->chrootdir);
1118         free(cfg->directory);
1119         free(cfg->logfile);
1120         free(cfg->pidfile);
1121         free(cfg->target_fetch_policy);
1122         free(cfg->ssl_service_key);
1123         free(cfg->ssl_service_pem);
1124         free(cfg->log_identity);
1125         config_del_strarray(cfg->ifs, cfg->num_ifs);
1126         config_del_strarray(cfg->out_ifs, cfg->num_out_ifs);
1127         config_delstubs(cfg->stubs);
1128         config_delstubs(cfg->forwards);
1129         config_delviews(cfg->views);
1130         config_delstrlist(cfg->donotqueryaddrs);
1131         config_delstrlist(cfg->root_hints);
1132 #ifdef CLIENT_SUBNET
1133         config_delstrlist(cfg->client_subnet);
1134 #endif
1135         free(cfg->identity);
1136         free(cfg->version);
1137         free(cfg->module_conf);
1138         free(cfg->outgoing_avail_ports);
1139         config_delstrlist(cfg->caps_whitelist);
1140         config_delstrlist(cfg->private_address);
1141         config_delstrlist(cfg->private_domain);
1142         config_delstrlist(cfg->auto_trust_anchor_file_list);
1143         config_delstrlist(cfg->trust_anchor_file_list);
1144         config_delstrlist(cfg->trusted_keys_file_list);
1145         config_delstrlist(cfg->trust_anchor_list);
1146         config_delstrlist(cfg->domain_insecure);
1147         free(cfg->dlv_anchor_file);
1148         config_delstrlist(cfg->dlv_anchor_list);
1149         config_deldblstrlist(cfg->acls);
1150         free(cfg->val_nsec3_key_iterations);
1151         config_deldblstrlist(cfg->local_zones);
1152         config_delstrlist(cfg->local_zones_nodefault);
1153         config_delstrlist(cfg->local_data);
1154         config_deltrplstrlist(cfg->local_zone_overrides);
1155         config_del_strarray(cfg->tagname, cfg->num_tags);
1156         config_del_strbytelist(cfg->local_zone_tags);
1157         config_del_strbytelist(cfg->acl_tags);
1158         config_del_strbytelist(cfg->respip_tags);
1159         config_deltrplstrlist(cfg->acl_tag_actions);
1160         config_deltrplstrlist(cfg->acl_tag_datas);
1161         config_delstrlist(cfg->control_ifs);
1162         free(cfg->server_key_file);
1163         free(cfg->server_cert_file);
1164         free(cfg->control_key_file);
1165         free(cfg->control_cert_file);
1166         free(cfg->dns64_prefix);
1167         free(cfg->dnstap_socket_path);
1168         free(cfg->dnstap_identity);
1169         free(cfg->dnstap_version);
1170         config_deldblstrlist(cfg->ratelimit_for_domain);
1171         config_deldblstrlist(cfg->ratelimit_below_domain);
1172         free(cfg);
1173 }
1174
1175 static void
1176 init_outgoing_availports(int* a, int num)
1177 {
1178         /* generated with make iana_update */
1179         const int iana_assigned[] = {
1180 #include "util/iana_ports.inc"
1181                 -1 }; /* end marker to put behind trailing comma */
1182
1183         int i;
1184         /* do not use <1024, that could be trouble with the system, privs */
1185         for(i=1024; i<num; i++) {
1186                 a[i] = i;
1187         }
1188         /* create empty spot at 49152 to keep ephemeral ports available
1189          * to other programs */
1190         for(i=49152; i<49152+256; i++)
1191                 a[i] = 0;
1192         /* pick out all the IANA assigned ports */
1193         for(i=0; iana_assigned[i]!=-1; i++) {
1194                 if(iana_assigned[i] < num)
1195                         a[iana_assigned[i]] = 0;
1196         }
1197 }
1198
1199 int
1200 cfg_mark_ports(const char* str, int allow, int* avail, int num)
1201 {
1202         char* mid = strchr(str, '-');
1203         if(!mid) {
1204                 int port = atoi(str);
1205                 if(port == 0 && strcmp(str, "0") != 0) {
1206                         log_err("cannot parse port number '%s'", str);
1207                         return 0;
1208                 }
1209                 if(port < num)
1210                         avail[port] = (allow?port:0);
1211         } else {
1212                 int i, low, high = atoi(mid+1);
1213                 char buf[16];
1214                 if(high == 0 && strcmp(mid+1, "0") != 0) {
1215                         log_err("cannot parse port number '%s'", mid+1);
1216                         return 0;
1217                 }
1218                 if( (int)(mid-str)+1 >= (int)sizeof(buf) ) {
1219                         log_err("cannot parse port number '%s'", str);
1220                         return 0;
1221                 }
1222                 if(mid > str)
1223                         memcpy(buf, str, (size_t)(mid-str));
1224                 buf[mid-str] = 0;
1225                 low = atoi(buf);
1226                 if(low == 0 && strcmp(buf, "0") != 0) {
1227                         log_err("cannot parse port number '%s'", buf);
1228                         return 0;
1229                 }
1230                 for(i=low; i<=high; i++) {
1231                         if(i < num)
1232                                 avail[i] = (allow?i:0);
1233                 }
1234                 return 1;
1235         }
1236         return 1;
1237 }
1238
1239 int
1240 cfg_scan_ports(int* avail, int num)
1241 {
1242         int i;
1243         int count = 0;
1244         for(i=0; i<num; i++) {
1245                 if(avail[i])
1246                         count++;
1247         }
1248         return count;
1249 }
1250
1251 int cfg_condense_ports(struct config_file* cfg, int** avail)
1252 {
1253         int num = cfg_scan_ports(cfg->outgoing_avail_ports, 65536);
1254         int i, at = 0;
1255         *avail = NULL;
1256         if(num == 0)
1257                 return 0;
1258         *avail = (int*)reallocarray(NULL, (size_t)num, sizeof(int));
1259         if(!*avail)
1260                 return 0;
1261         for(i=0; i<65536; i++) {
1262                 if(cfg->outgoing_avail_ports[i])
1263                         (*avail)[at++] = cfg->outgoing_avail_ports[i];
1264         }
1265         log_assert(at == num);
1266         return num;
1267 }
1268
1269 /** print error with file and line number */
1270 static void ub_c_error_va_list(const char *fmt, va_list args)
1271 {
1272         cfg_parser->errors++;
1273         fprintf(stderr, "%s:%d: error: ", cfg_parser->filename,
1274         cfg_parser->line);
1275         vfprintf(stderr, fmt, args);
1276         fprintf(stderr, "\n");
1277 }
1278
1279 /** print error with file and line number */
1280 void ub_c_error_msg(const char* fmt, ...)
1281 {
1282         va_list args;
1283         va_start(args, fmt);
1284         ub_c_error_va_list(fmt, args);
1285         va_end(args);
1286 }
1287
1288 void ub_c_error(const char *str)
1289 {
1290         cfg_parser->errors++;
1291         fprintf(stderr, "%s:%d: error: %s\n", cfg_parser->filename,
1292                 cfg_parser->line, str);
1293 }
1294
1295 int ub_c_wrap(void)
1296 {
1297         return 1;
1298 }
1299
1300 int cfg_strlist_append(struct config_strlist_head* list, char* item)
1301 {
1302         struct config_strlist *s;
1303         if(!item || !list)
1304                 return 0;
1305         s = (struct config_strlist*)calloc(1, sizeof(struct config_strlist));
1306         if(!s)
1307                 return 0;
1308         s->str = item;
1309         s->next = NULL;
1310         if(list->last)
1311                 list->last->next = s;
1312         else
1313                 list->first = s;
1314         list->last = s;
1315         return 1;
1316 }
1317
1318 int
1319 cfg_region_strlist_insert(struct regional* region,
1320         struct config_strlist** head, char* item)
1321 {
1322         struct config_strlist *s;
1323         if(!item || !head)
1324                 return 0;
1325         s = (struct config_strlist*)regional_alloc_zero(region,
1326                 sizeof(struct config_strlist));
1327         if(!s)
1328                 return 0;
1329         s->str = item;
1330         s->next = *head;
1331         *head = s;
1332         return 1;
1333 }
1334
1335 int
1336 cfg_strlist_insert(struct config_strlist** head, char* item)
1337 {
1338         struct config_strlist *s;
1339         if(!item || !head)
1340                 return 0;
1341         s = (struct config_strlist*)calloc(1, sizeof(struct config_strlist));
1342         if(!s)
1343                 return 0;
1344         s->str = item;
1345         s->next = *head;
1346         *head = s;
1347         return 1;
1348 }
1349
1350 int
1351 cfg_str2list_insert(struct config_str2list** head, char* item, char* i2)
1352 {
1353         struct config_str2list *s;
1354         if(!item || !i2 || !head)
1355                 return 0;
1356         s = (struct config_str2list*)calloc(1, sizeof(struct config_str2list));
1357         if(!s)
1358                 return 0;
1359         s->str = item;
1360         s->str2 = i2;
1361         s->next = *head;
1362         *head = s;
1363         return 1;
1364 }
1365
1366 int
1367 cfg_str3list_insert(struct config_str3list** head, char* item, char* i2,
1368         char* i3)
1369 {
1370         struct config_str3list *s;
1371         if(!item || !i2 || !i3 || !head)
1372                 return 0;
1373         s = (struct config_str3list*)calloc(1, sizeof(struct config_str3list));
1374         if(!s)
1375                 return 0;
1376         s->str = item;
1377         s->str2 = i2;
1378         s->str3 = i3;
1379         s->next = *head;
1380         *head = s;
1381         return 1;
1382 }
1383
1384 int
1385 cfg_strbytelist_insert(struct config_strbytelist** head, char* item,
1386         uint8_t* i2, size_t i2len)
1387 {
1388         struct config_strbytelist* s;
1389         if(!item || !i2 || !head)
1390                 return 0;
1391         s = (struct config_strbytelist*)calloc(1, sizeof(*s));
1392         if(!s)
1393                 return 0;
1394         s->str = item;
1395         s->str2 = i2;
1396         s->str2len = i2len;
1397         s->next = *head;
1398         *head = s;
1399         return 1;
1400 }
1401
1402 time_t
1403 cfg_convert_timeval(const char* str)
1404 {
1405         time_t t;
1406         struct tm tm;
1407         memset(&tm, 0, sizeof(tm));
1408         if(strlen(str) < 14)
1409                 return 0;
1410         if(sscanf(str, "%4d%2d%2d%2d%2d%2d", &tm.tm_year, &tm.tm_mon,
1411                 &tm.tm_mday, &tm.tm_hour, &tm.tm_min, &tm.tm_sec) != 6)
1412                 return 0;
1413         tm.tm_year -= 1900;
1414         tm.tm_mon--;
1415         /* Check values */
1416         if (tm.tm_year < 70)    return 0;
1417         if (tm.tm_mon < 0 || tm.tm_mon > 11)    return 0;
1418         if (tm.tm_mday < 1 || tm.tm_mday > 31)  return 0;
1419         if (tm.tm_hour < 0 || tm.tm_hour > 23)  return 0;
1420         if (tm.tm_min < 0 || tm.tm_min > 59)    return 0;
1421         if (tm.tm_sec < 0 || tm.tm_sec > 59)    return 0;
1422         /* call ldns conversion function */
1423         t = sldns_mktime_from_utc(&tm);
1424         return t;
1425 }
1426
1427 int
1428 cfg_count_numbers(const char* s)
1429 {
1430         /* format ::= (sp num)+ sp  */
1431         /* num ::= [-](0-9)+        */
1432         /* sp ::= (space|tab)*      */
1433         int num = 0;
1434         while(*s) {
1435                 while(*s && isspace((unsigned char)*s))
1436                         s++;
1437                 if(!*s) /* end of string */
1438                         break;
1439                 if(*s == '-')
1440                         s++;
1441                 if(!*s) /* only - not allowed */
1442                         return 0;
1443                 if(!isdigit((unsigned char)*s)) /* bad character */
1444                         return 0;
1445                 while(*s && isdigit((unsigned char)*s))
1446                         s++;
1447                 num++;
1448         }
1449         return num;
1450 }
1451
1452 /** all digit number */
1453 static int isalldigit(const char* str, size_t l)
1454 {
1455         size_t i;
1456         for(i=0; i<l; i++)
1457                 if(!isdigit((unsigned char)str[i]))
1458                         return 0;
1459         return 1;
1460 }
1461
1462 int
1463 cfg_parse_memsize(const char* str, size_t* res)
1464 {
1465         size_t len;
1466         size_t mult = 1;
1467         if(!str || (len=(size_t)strlen(str)) == 0) {
1468                 log_err("not a size: '%s'", str);
1469                 return 0;
1470         }
1471         if(isalldigit(str, len)) {
1472                 *res = (size_t)atol(str);
1473                 return 1;
1474         }
1475         /* check appended num */
1476         while(len>0 && str[len-1]==' ')
1477                 len--;
1478         if(len > 1 && str[len-1] == 'b')
1479                 len--;
1480         else if(len > 1 && str[len-1] == 'B')
1481                 len--;
1482
1483         if(len > 1 && tolower((unsigned char)str[len-1]) == 'g')
1484                 mult = 1024*1024*1024;
1485         else if(len > 1 && tolower((unsigned char)str[len-1]) == 'm')
1486                 mult = 1024*1024;
1487         else if(len > 1 && tolower((unsigned char)str[len-1]) == 'k')
1488                 mult = 1024;
1489         else if(len > 0 && isdigit((unsigned char)str[len-1]))
1490                 mult = 1;
1491         else {
1492                 log_err("unknown size specifier: '%s'", str);
1493                 return 0;
1494         }
1495         while(len>1 && str[len-2]==' ')
1496                 len--;
1497
1498         if(!isalldigit(str, len-1)) {
1499                 log_err("unknown size specifier: '%s'", str);
1500                 return 0;
1501         }
1502         *res = ((size_t)atol(str)) * mult;
1503         return 1;
1504 }
1505
1506 int
1507 find_tag_id(struct config_file* cfg, const char* tag)
1508 {
1509         int i;
1510         for(i=0; i<cfg->num_tags; i++) {
1511                 if(strcmp(cfg->tagname[i], tag) == 0)
1512                         return i;
1513         }
1514         return -1;
1515 }
1516
1517 int
1518 config_add_tag(struct config_file* cfg, const char* tag)
1519 {
1520         char** newarray;
1521         char* newtag;
1522         if(find_tag_id(cfg, tag) != -1)
1523                 return 1; /* nothing to do */
1524         newarray = (char**)malloc(sizeof(char*)*(cfg->num_tags+1));
1525         if(!newarray)
1526                 return 0;
1527         newtag = strdup(tag);
1528         if(!newtag) {
1529                 free(newarray);
1530                 return 0;
1531         }
1532         if(cfg->tagname) {
1533                 memcpy(newarray, cfg->tagname, sizeof(char*)*cfg->num_tags);
1534                 free(cfg->tagname);
1535         }
1536         newarray[cfg->num_tags++] = newtag;
1537         cfg->tagname = newarray;
1538         return 1;
1539 }
1540
1541 /** set a bit in a bit array */
1542 static void
1543 cfg_set_bit(uint8_t* bitlist, size_t len, int id)
1544 {
1545         int pos = id/8;
1546         log_assert((size_t)pos < len);
1547         (void)len;
1548         bitlist[pos] |= 1<<(id%8);
1549 }
1550
1551 uint8_t* config_parse_taglist(struct config_file* cfg, char* str,
1552         size_t* listlen)
1553 {
1554         uint8_t* taglist = NULL;
1555         size_t len = 0;
1556         char* p, *s;
1557
1558         /* allocate */
1559         if(cfg->num_tags == 0) {
1560                 log_err("parse taglist, but no tags defined");
1561                 return 0;
1562         }
1563         len = (size_t)(cfg->num_tags+7)/8;
1564         taglist = calloc(1, len);
1565         if(!taglist) {
1566                 log_err("out of memory");
1567                 return 0;
1568         }
1569
1570         /* parse */
1571         s = str;
1572         while((p=strsep(&s, " \t\n")) != NULL) {
1573                 if(*p) {
1574                         int id = find_tag_id(cfg, p);
1575                         /* set this bit in the bitlist */
1576                         if(id == -1) {
1577                                 log_err("unknown tag: %s", p);
1578                                 free(taglist);
1579                                 return 0;
1580                         }
1581                         cfg_set_bit(taglist, len, id);
1582                 }
1583         }
1584
1585         *listlen = len;
1586         return taglist;
1587 }
1588
1589 char* config_taglist2str(struct config_file* cfg, uint8_t* taglist,
1590         size_t taglen)
1591 {
1592         char buf[10240];
1593         size_t i, j, len = 0;
1594         buf[0] = 0;
1595         for(i=0; i<taglen; i++) {
1596                 if(taglist[i] == 0)
1597                         continue;
1598                 for(j=0; j<8; j++) {
1599                         if((taglist[i] & (1<<j)) != 0) {
1600                                 size_t id = i*8 + j;
1601                                 snprintf(buf+len, sizeof(buf)-len, "%s%s",
1602                                         (len==0?"":" "), cfg->tagname[id]);
1603                                 len += strlen(buf+len);
1604                         }
1605                 }
1606         }
1607         return strdup(buf);
1608 }
1609
1610 int taglist_intersect(uint8_t* list1, size_t list1len, uint8_t* list2,
1611         size_t list2len)
1612 {
1613         size_t i;
1614         if(!list1 || !list2)
1615                 return 0;
1616         for(i=0; i<list1len && i<list2len; i++) {
1617                 if((list1[i] & list2[i]) != 0)
1618                         return 1;
1619         }
1620         return 0;
1621 }
1622
1623 void
1624 config_apply(struct config_file* config)
1625 {
1626         MAX_TTL = (time_t)config->max_ttl;
1627         MIN_TTL = (time_t)config->min_ttl;
1628         MAX_NEG_TTL = (time_t)config->max_negative_ttl;
1629         RTT_MIN_TIMEOUT = config->infra_cache_min_rtt;
1630         EDNS_ADVERTISED_SIZE = (uint16_t)config->edns_buffer_size;
1631         MINIMAL_RESPONSES = config->minimal_responses;
1632         RRSET_ROUNDROBIN = config->rrset_roundrobin;
1633         log_set_time_asc(config->log_time_ascii);
1634         autr_permit_small_holddown = config->permit_small_holddown;
1635 }
1636
1637 void config_lookup_uid(struct config_file* cfg)
1638 {
1639 #ifdef HAVE_GETPWNAM
1640         /* translate username into uid and gid */
1641         if(cfg->username && cfg->username[0]) {
1642                 struct passwd *pwd;
1643                 if((pwd = getpwnam(cfg->username)) != NULL) {
1644                         cfg_uid = pwd->pw_uid;
1645                         cfg_gid = pwd->pw_gid;
1646                 }
1647         }
1648 #else
1649         (void)cfg;
1650 #endif
1651 }
1652
1653 /**
1654  * Calculate string length of full pathname in original filesys
1655  * @param fname: the path name to convert.
1656  *      Must not be null or empty.
1657  * @param cfg: config struct for chroot and chdir (if set).
1658  * @param use_chdir: if false, only chroot is applied.
1659  * @return length of string.
1660  *      remember to allocate one more for 0 at end in mallocs.
1661  */
1662 static size_t
1663 strlen_after_chroot(const char* fname, struct config_file* cfg, int use_chdir)
1664 {
1665         size_t len = 0;
1666         int slashit = 0;
1667         if(cfg->chrootdir && cfg->chrootdir[0] &&
1668                 strncmp(cfg->chrootdir, fname, strlen(cfg->chrootdir)) == 0) {
1669                 /* already full pathname, return it */
1670                 return strlen(fname);
1671         }
1672         /* chroot */
1673         if(cfg->chrootdir && cfg->chrootdir[0]) {
1674                 /* start with chrootdir */
1675                 len += strlen(cfg->chrootdir);
1676                 slashit = 1;
1677         }
1678         /* chdir */
1679 #ifdef UB_ON_WINDOWS
1680         if(fname[0] != 0 && fname[1] == ':') {
1681                 /* full path, no chdir */
1682         } else
1683 #endif
1684         if(fname[0] == '/' || !use_chdir) {
1685                 /* full path, no chdir */
1686         } else if(cfg->directory && cfg->directory[0]) {
1687                 /* prepend chdir */
1688                 if(slashit && cfg->directory[0] != '/')
1689                         len++;
1690                 if(cfg->chrootdir && cfg->chrootdir[0] &&
1691                         strncmp(cfg->chrootdir, cfg->directory,
1692                         strlen(cfg->chrootdir)) == 0)
1693                         len += strlen(cfg->directory)-strlen(cfg->chrootdir);
1694                 else    len += strlen(cfg->directory);
1695                 slashit = 1;
1696         }
1697         /* fname */
1698         if(slashit && fname[0] != '/')
1699                 len++;
1700         len += strlen(fname);
1701         return len;
1702 }
1703
1704 char*
1705 fname_after_chroot(const char* fname, struct config_file* cfg, int use_chdir)
1706 {
1707         size_t len = strlen_after_chroot(fname, cfg, use_chdir)+1;
1708         int slashit = 0;
1709         char* buf = (char*)malloc(len);
1710         if(!buf)
1711                 return NULL;
1712         buf[0] = 0;
1713         /* is fname already in chroot ? */
1714         if(cfg->chrootdir && cfg->chrootdir[0] &&
1715                 strncmp(cfg->chrootdir, fname, strlen(cfg->chrootdir)) == 0) {
1716                 /* already full pathname, return it */
1717                 (void)strlcpy(buf, fname, len);
1718                 buf[len-1] = 0;
1719                 return buf;
1720         }
1721         /* chroot */
1722         if(cfg->chrootdir && cfg->chrootdir[0]) {
1723                 /* start with chrootdir */
1724                 (void)strlcpy(buf, cfg->chrootdir, len);
1725                 slashit = 1;
1726         }
1727 #ifdef UB_ON_WINDOWS
1728         if(fname[0] != 0 && fname[1] == ':') {
1729                 /* full path, no chdir */
1730         } else
1731 #endif
1732         /* chdir */
1733         if(fname[0] == '/' || !use_chdir) {
1734                 /* full path, no chdir */
1735         } else if(cfg->directory && cfg->directory[0]) {
1736                 /* prepend chdir */
1737                 if(slashit && cfg->directory[0] != '/')
1738                         (void)strlcat(buf, "/", len);
1739                 /* is the directory already in the chroot? */
1740                 if(cfg->chrootdir && cfg->chrootdir[0] &&
1741                         strncmp(cfg->chrootdir, cfg->directory,
1742                         strlen(cfg->chrootdir)) == 0)
1743                         (void)strlcat(buf, cfg->directory+strlen(cfg->chrootdir),
1744                                    len);
1745                 else (void)strlcat(buf, cfg->directory, len);
1746                 slashit = 1;
1747         }
1748         /* fname */
1749         if(slashit && fname[0] != '/')
1750                 (void)strlcat(buf, "/", len);
1751         (void)strlcat(buf, fname, len);
1752         buf[len-1] = 0;
1753         return buf;
1754 }
1755
1756 /** return next space character in string */
1757 static char* next_space_pos(const char* str)
1758 {
1759         char* sp = strchr(str, ' ');
1760         char* tab = strchr(str, '\t');
1761         if(!tab && !sp)
1762                 return NULL;
1763         if(!sp) return tab;
1764         if(!tab) return sp;
1765         return (sp<tab)?sp:tab;
1766 }
1767
1768 /** return last space character in string */
1769 static char* last_space_pos(const char* str)
1770 {
1771         char* sp = strrchr(str, ' ');
1772         char* tab = strrchr(str, '\t');
1773         if(!tab && !sp)
1774                 return NULL;
1775         if(!sp) return tab;
1776         if(!tab) return sp;
1777         return (sp>tab)?sp:tab;
1778 }
1779
1780 int
1781 cfg_parse_local_zone(struct config_file* cfg, const char* val)
1782 {
1783         const char *type, *name_end, *name;
1784         char buf[256];
1785
1786         /* parse it as: [zone_name] [between stuff] [zone_type] */
1787         name = val;
1788         while(*name && isspace((unsigned char)*name))
1789                 name++;
1790         if(!*name) {
1791                 log_err("syntax error: too short: %s", val);
1792                 return 0;
1793         }
1794         name_end = next_space_pos(name);
1795         if(!name_end || !*name_end) {
1796                 log_err("syntax error: expected zone type: %s", val);
1797                 return 0;
1798         }
1799         if (name_end - name > 255) {
1800                 log_err("syntax error: bad zone name: %s", val);
1801                 return 0;
1802         }
1803         (void)strlcpy(buf, name, sizeof(buf));
1804         buf[name_end-name] = '\0';
1805
1806         type = last_space_pos(name_end);
1807         while(type && *type && isspace((unsigned char)*type))
1808                 type++;
1809         if(!type || !*type) {
1810                 log_err("syntax error: expected zone type: %s", val);
1811                 return 0;
1812         }
1813
1814         if(strcmp(type, "nodefault")==0) {
1815                 return cfg_strlist_insert(&cfg->local_zones_nodefault,
1816                         strdup(name));
1817         } else {
1818                 return cfg_str2list_insert(&cfg->local_zones, strdup(buf),
1819                         strdup(type));
1820         }
1821 }
1822
1823 char* cfg_ptr_reverse(char* str)
1824 {
1825         char* ip, *ip_end;
1826         char* name;
1827         char* result;
1828         char buf[1024];
1829         struct sockaddr_storage addr;
1830         socklen_t addrlen;
1831
1832         /* parse it as: [IP] [between stuff] [name] */
1833         ip = str;
1834         while(*ip && isspace((unsigned char)*ip))
1835                 ip++;
1836         if(!*ip) {
1837                 log_err("syntax error: too short: %s", str);
1838                 return NULL;
1839         }
1840         ip_end = next_space_pos(ip);
1841         if(!ip_end || !*ip_end) {
1842                 log_err("syntax error: expected name: %s", str);
1843                 return NULL;
1844         }
1845
1846         name = last_space_pos(ip_end);
1847         if(!name || !*name) {
1848                 log_err("syntax error: expected name: %s", str);
1849                 return NULL;
1850         }
1851
1852         sscanf(ip, "%100s", buf);
1853         buf[sizeof(buf)-1]=0;
1854
1855         if(!ipstrtoaddr(buf, UNBOUND_DNS_PORT, &addr, &addrlen)) {
1856                 log_err("syntax error: cannot parse address: %s", str);
1857                 return NULL;
1858         }
1859
1860         /* reverse IPv4:
1861          * ddd.ddd.ddd.ddd.in-addr-arpa.
1862          * IPv6: (h.){32}.ip6.arpa.  */
1863
1864         if(addr_is_ip6(&addr, addrlen)) {
1865                 uint8_t ad[16];
1866                 const char* hex = "0123456789abcdef";
1867                 char *p = buf;
1868                 int i;
1869                 memmove(ad, &((struct sockaddr_in6*)&addr)->sin6_addr,
1870                         sizeof(ad));
1871                 for(i=15; i>=0; i--) {
1872                         uint8_t b = ad[i];
1873                         *p++ = hex[ (b&0x0f) ];
1874                         *p++ = '.';
1875                         *p++ = hex[ (b&0xf0) >> 4 ];
1876                         *p++ = '.';
1877                 }
1878                 snprintf(buf+16*4, sizeof(buf)-16*4, "ip6.arpa. ");
1879         } else {
1880                 uint8_t ad[4];
1881                 memmove(ad, &((struct sockaddr_in*)&addr)->sin_addr,
1882                         sizeof(ad));
1883                 snprintf(buf, sizeof(buf), "%u.%u.%u.%u.in-addr.arpa. ",
1884                         (unsigned)ad[3], (unsigned)ad[2],
1885                         (unsigned)ad[1], (unsigned)ad[0]);
1886         }
1887
1888         /* printed the reverse address, now the between goop and name on end */
1889         while(*ip_end && isspace((unsigned char)*ip_end))
1890                 ip_end++;
1891         if(name>ip_end) {
1892                 snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), "%.*s",
1893                         (int)(name-ip_end), ip_end);
1894         }
1895         snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " PTR %s", name);
1896
1897         result = strdup(buf);
1898         if(!result) {
1899                 log_err("out of memory parsing %s", str);
1900                 return NULL;
1901         }
1902         return result;
1903 }
1904
1905 #ifdef UB_ON_WINDOWS
1906 char*
1907 w_lookup_reg_str(const char* key, const char* name)
1908 {
1909         HKEY hk = NULL;
1910         DWORD type = 0;
1911         BYTE buf[1024];
1912         DWORD len = (DWORD)sizeof(buf);
1913         LONG ret;
1914         char* result = NULL;
1915         ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, key, 0, KEY_READ, &hk);
1916         if(ret == ERROR_FILE_NOT_FOUND)
1917                 return NULL; /* key does not exist */
1918         else if(ret != ERROR_SUCCESS) {
1919                 log_err("RegOpenKeyEx failed");
1920                 return NULL;
1921         }
1922         ret = RegQueryValueEx(hk, (LPCTSTR)name, 0, &type, buf, &len);
1923         if(RegCloseKey(hk))
1924                 log_err("RegCloseKey");
1925         if(ret == ERROR_FILE_NOT_FOUND)
1926                 return NULL; /* name does not exist */
1927         else if(ret != ERROR_SUCCESS) {
1928                 log_err("RegQueryValueEx failed");
1929                 return NULL;
1930         }
1931         if(type == REG_SZ || type == REG_MULTI_SZ || type == REG_EXPAND_SZ) {
1932                 buf[sizeof(buf)-1] = 0;
1933                 buf[sizeof(buf)-2] = 0; /* for multi_sz */
1934                 result = strdup((char*)buf);
1935                 if(!result) log_err("out of memory");
1936         }
1937         return result;
1938 }
1939
1940 void w_config_adjust_directory(struct config_file* cfg)
1941 {
1942         if(cfg->directory && cfg->directory[0]) {
1943                 TCHAR dirbuf[2*MAX_PATH+4];
1944                 if(strcmp(cfg->directory, "%EXECUTABLE%") == 0) {
1945                         /* get executable path, and if that contains
1946                          * directories, snip off the filename part */
1947                         dirbuf[0] = 0;
1948                         if(!GetModuleFileName(NULL, dirbuf, MAX_PATH))
1949                                 log_err("could not GetModuleFileName");
1950                         if(strrchr(dirbuf, '\\')) {
1951                                 (strrchr(dirbuf, '\\'))[0] = 0;
1952                         } else log_err("GetModuleFileName had no path");
1953                         if(dirbuf[0]) {
1954                                 /* adjust directory for later lookups to work*/
1955                                 free(cfg->directory);
1956                                 cfg->directory = memdup(dirbuf, strlen(dirbuf)+1);
1957                         }
1958                 }
1959         }
1960 }
1961 #endif /* UB_ON_WINDOWS */
1962
1963 void errinf(struct module_qstate* qstate, const char* str)
1964 {
1965         struct config_strlist* p;
1966         if(qstate->env->cfg->val_log_level < 2 || !str)
1967                 return;
1968         p = (struct config_strlist*)regional_alloc(qstate->region, sizeof(*p));
1969         if(!p) {
1970                 log_err("malloc failure in validator-error-info string");
1971                 return;
1972         }
1973         p->next = NULL;
1974         p->str = regional_strdup(qstate->region, str);
1975         if(!p->str) {
1976                 log_err("malloc failure in validator-error-info string");
1977                 return;
1978         }
1979         /* add at end */
1980         if(qstate->errinf) {
1981                 struct config_strlist* q = qstate->errinf;
1982                 while(q->next)
1983                         q = q->next;
1984                 q->next = p;
1985         } else  qstate->errinf = p;
1986 }
1987
1988 void errinf_origin(struct module_qstate* qstate, struct sock_list *origin)
1989 {
1990         struct sock_list* p;
1991         if(qstate->env->cfg->val_log_level < 2)
1992                 return;
1993         for(p=origin; p; p=p->next) {
1994                 char buf[256];
1995                 if(p == origin)
1996                         snprintf(buf, sizeof(buf), "from ");
1997                 else    snprintf(buf, sizeof(buf), "and ");
1998                 if(p->len == 0)
1999                         snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf),
2000                                 "cache");
2001                 else
2002                         addr_to_str(&p->addr, p->len, buf+strlen(buf),
2003                                 sizeof(buf)-strlen(buf));
2004                 errinf(qstate, buf);
2005         }
2006 }
2007
2008 char* errinf_to_str(struct module_qstate* qstate)
2009 {
2010         char buf[20480];
2011         char* p = buf;
2012         size_t left = sizeof(buf);
2013         struct config_strlist* s;
2014         char dname[LDNS_MAX_DOMAINLEN+1];
2015         char t[16], c[16];
2016         sldns_wire2str_type_buf(qstate->qinfo.qtype, t, sizeof(t));
2017         sldns_wire2str_class_buf(qstate->qinfo.qclass, c, sizeof(c));
2018         dname_str(qstate->qinfo.qname, dname);
2019         snprintf(p, left, "validation failure <%s %s %s>:", dname, t, c);
2020         left -= strlen(p); p += strlen(p);
2021         if(!qstate->errinf)
2022                 snprintf(p, left, " misc failure");
2023         else for(s=qstate->errinf; s; s=s->next) {
2024                 snprintf(p, left, " %s", s->str);
2025                 left -= strlen(p); p += strlen(p);
2026         }
2027         p = strdup(buf);
2028         if(!p)
2029                 log_err("malloc failure in errinf_to_str");
2030         return p;
2031 }
2032
2033 void errinf_rrset(struct module_qstate* qstate, struct ub_packed_rrset_key *rr)
2034 {
2035         char buf[1024];
2036         char dname[LDNS_MAX_DOMAINLEN+1];
2037         char t[16], c[16];
2038         if(qstate->env->cfg->val_log_level < 2 || !rr)
2039                 return;
2040         sldns_wire2str_type_buf(ntohs(rr->rk.type), t, sizeof(t));
2041         sldns_wire2str_class_buf(ntohs(rr->rk.rrset_class), c, sizeof(c));
2042         dname_str(rr->rk.dname, dname);
2043         snprintf(buf, sizeof(buf), "for <%s %s %s>", dname, t, c);
2044         errinf(qstate, buf);
2045 }
2046
2047 void errinf_dname(struct module_qstate* qstate, const char* str, uint8_t* dname)
2048 {
2049         char b[1024];
2050         char buf[LDNS_MAX_DOMAINLEN+1];
2051         if(qstate->env->cfg->val_log_level < 2 || !str || !dname)
2052                 return;
2053         dname_str(dname, buf);
2054         snprintf(b, sizeof(b), "%s %s", str, buf);
2055         errinf(qstate, b);
2056 }