1 /* $OpenBSD: conf.c,v 1.55 2003/06/03 14:28:16 ho Exp $ */
2 /* $EOM: conf.c,v 1.48 2000/12/04 02:04:29 angelos Exp $ */
5 * Copyright (c) 1998, 1999, 2000, 2001 Niklas Hallqvist. All rights reserved.
6 * Copyright (c) 2000, 2001, 2002 HÃ¥kan Olsson. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 * This code was written under funding by Ericsson Radio Systems.
33 #include <sys/param.h>
35 #include <sys/socket.h>
37 #include <netinet/in.h>
38 #include <arpa/inet.h>
52 static void conf_load_defaults(void);
53 static int conf_set(int , char *, char *, char *,
57 TAILQ_ENTRY (conf_trans) link;
59 enum conf_op { CONF_SET, CONF_REMOVE, CONF_REMOVE_SECTION } op;
68 TAILQ_HEAD (conf_trans_head, conf_trans) conf_trans_queue;
73 static const u_int8_t bin2asc[]
74 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
76 static const u_int8_t asc2bin[] =
78 255, 255, 255, 255, 255, 255, 255, 255,
79 255, 255, 255, 255, 255, 255, 255, 255,
80 255, 255, 255, 255, 255, 255, 255, 255,
81 255, 255, 255, 255, 255, 255, 255, 255,
82 255, 255, 255, 255, 255, 255, 255, 255,
83 255, 255, 255, 62, 255, 255, 255, 63,
84 52, 53, 54, 55, 56, 57, 58, 59,
85 60, 61, 255, 255, 255, 255, 255, 255,
86 255, 0, 1, 2, 3, 4, 5, 6,
87 7, 8, 9, 10, 11, 12, 13, 14,
88 15, 16, 17, 18, 19, 20, 21, 22,
89 23, 24, 25, 255, 255, 255, 255, 255,
90 255, 26, 27, 28, 29, 30, 31, 32,
91 33, 34, 35, 36, 37, 38, 39, 40,
92 41, 42, 43, 44, 45, 46, 47, 48,
93 49, 50, 51, 255, 255, 255, 255, 255
97 LIST_ENTRY (conf_binding) link;
106 LIST_HEAD (conf_bindings, conf_binding) conf_bindings[256];
108 static char *conf_addr;
110 static __inline__ u_int8_t
116 hash = ((hash << 1) | (hash >> 7)) ^ tolower (*s);
123 * Insert a tag-value combination from LINE (the equal sign is at POS)
126 conf_remove_now(char *section, char *tag)
128 struct conf_binding *cb, *next;
130 cb = LIST_FIRST(&conf_bindings[conf_hash (section)]);
131 for (; cb; cb = next) {
132 next = LIST_NEXT(cb, link);
133 if (strcasecmp(cb->section, section) == 0
134 && strcasecmp(cb->tag, tag) == 0) {
135 LIST_REMOVE(cb, link);
136 xlog(LOG_INFO,"[%s]:%s->%s removed", section, tag, cb->value);
149 conf_remove_section_now(char *section)
151 struct conf_binding *cb, *next;
154 cb = LIST_FIRST(&conf_bindings[conf_hash (section)]);
155 for (; cb; cb = next) {
156 next = LIST_NEXT(cb, link);
157 if (strcasecmp(cb->section, section) == 0) {
159 LIST_REMOVE(cb, link);
160 xlog(LOG_INFO, "[%s]:%s->%s removed", section, cb->tag, cb->value);
172 * Insert a tag-value combination from LINE (the equal sign is at POS)
173 * into SECTION of our configuration database.
176 conf_set_now(char *section, char *arg, char *tag,
177 char *value, int override, int is_default)
179 struct conf_binding *node = 0;
182 conf_remove_now(section, tag);
183 else if (conf_get_section(section, arg, tag)) {
185 xlog(LOG_INFO, "conf_set: duplicate tag [%s]:%s, ignoring...\n",
190 node = calloc(1, sizeof *node);
192 xlog_warn("conf_set: calloc (1, %lu) failed", (unsigned long)sizeof *node);
195 node->section = strdup(section);
197 node->arg = strdup(arg);
198 node->tag = strdup(tag);
199 node->value = strdup(value);
200 node->is_default = is_default;
202 LIST_INSERT_HEAD(&conf_bindings[conf_hash (section)], node, link);
207 * Parse the line LINE of SZ bytes. Skip Comments, recognize section
208 * headers and feed tag-value pairs into our configuration database.
211 conf_parse_line(int trans, char *line, size_t sz)
216 static char *section = 0;
217 static char *arg = 0;
220 /* Lines starting with '#' or ';' are comments. */
222 /* Ignore blank lines */
226 /* Strip off any leading blanks */
227 while (isblank(*line))
230 if (*line == '#' || *line == ';')
233 /* '[section]' parsing... */
236 /* Strip off any blanks after '[' */
237 while (isblank(*line))
239 for (i = 0; i < sz; i++) {
240 if (line[i] == ']') {
247 xlog_warn("config file error: line %d: "
248 "non-matched ']', ignoring until next section", ln);
252 /* Strip off any blanks before ']' */
255 while (*val && !isblank(*val))
259 section = malloc(i+1);
261 xlog_warn("conf_parse_line: %d: malloc (%lu) failed", ln,
265 strncpy(section, line, i);
272 ptr = strchr(val, '"');
276 while (*ptr && *ptr != '"' && *ptr != ']')
278 if (*ptr == '\0' || *ptr == ']') {
279 xlog_warn("config file error: line %d: "
280 "non-matched '\"', ignoring until next section", ln);
285 xlog_warn("conf_parse_line: %d: malloc arg failed", ln);
290 /* Deal with assignments. */
291 for (i = 0; i < sz; i++) {
292 if (line[i] == '=') {
293 /* If no section, we are ignoring the lines. */
295 xlog_warn("config file error: line %d: "
296 "ignoring line due to no section", ln);
299 line[strcspn (line, " \t=")] = '\0';
300 val = line + i + 1 + strspn (line + i + 1, " \t");
302 /* Skip trailing comments, if any */
303 for (j = 0; j < sz - (val - line); j++) {
304 if (val[j] == '#' || val[j] == ';') {
310 /* Skip trailing whitespace, if any */
311 for (j--; j > 0; j--) {
318 /* XXX Perhaps should we not ignore errors? */
319 conf_set(trans, section, arg, line, val, 0, 0);
323 /* Other non-empty lines are weird. */
324 i = strspn(line, " \t");
326 xlog_warn("config file error: line %d:", ln);
331 /* Parse the mapped configuration file. */
333 conf_parse(int trans, char *buf, size_t sz)
336 char *bufend = buf + sz;
340 while (cp < bufend) {
342 /* Check for escaped newlines. */
343 if (cp > buf && *(cp - 1) == '\\')
344 *(cp - 1) = *cp = ' ';
347 conf_parse_line(trans, line, cp - line);
354 xlog_warn("conf_parse: last line non-terminated, ignored.");
358 conf_load_defaults(void)
369 for (i = 0; i < sizeof conf_bindings / sizeof conf_bindings[0]; i++)
370 LIST_INIT (&conf_bindings[i]);
372 TAILQ_INIT (&conf_trans_queue);
376 /* Open the config file and map it into our address space, then parse it. */
380 struct conf_binding *cb = 0;
384 char *new_conf_addr = 0;
387 if ((stat (conf_path, &sb) == 0) || (errno != ENOENT)) {
389 fd = open (conf_path, O_RDONLY, 0);
391 xlog_warn("conf_reinit: open (\"%s\", O_RDONLY) failed", conf_path);
395 new_conf_addr = malloc(sz);
396 if (!new_conf_addr) {
397 xlog_warn("conf_reinit: malloc (%lu) failed", (unsigned long)sz);
401 /* XXX I assume short reads won't happen here. */
402 if (read (fd, new_conf_addr, sz) != (int)sz) {
403 xlog_warn("conf_reinit: read (%d, %p, %lu) failed",
404 fd, new_conf_addr, (unsigned long)sz);
409 trans = conf_begin();
410 /* XXX Should we not care about errors and rollback? */
411 conf_parse(trans, new_conf_addr, sz);
414 trans = conf_begin();
416 /* Load default configuration values. */
417 conf_load_defaults();
419 /* Free potential existing configuration. */
421 for (i = 0; i < sizeof conf_bindings / sizeof conf_bindings[0]; i++) {
422 cb = LIST_FIRST (&conf_bindings[i]);
423 for (; cb; cb = LIST_FIRST (&conf_bindings[i]))
424 conf_remove_now(cb->section, cb->tag);
430 conf_addr = new_conf_addr;
440 * Return the numeric value denoted by TAG in section SECTION or DEF
441 * if that tag does not exist.
444 conf_get_num(char *section, char *tag, int def)
446 char *value = conf_get_str(section, tag);
454 /* Validate X according to the range denoted by TAG in section SECTION. */
456 conf_match_num(char *section, char *tag, int x)
458 char *value = conf_get_str (section, tag);
459 int val, min, max, n;
463 n = sscanf (value, "%d,%d:%d", &val, &min, &max);
466 xlog(LOG_INFO, "conf_match_num: %s:%s %d==%d?", section, tag, val, x);
469 xlog(LOG_INFO, "conf_match_num: %s:%s %d<=%d<=%d?", section,
471 return min <= x && max >= x;
473 xlog(LOG_INFO, "conf_match_num: section %s tag %s: invalid number spec %s",
474 section, tag, value);
479 /* Return the string value denoted by TAG in section SECTION. */
481 conf_get_str(char *section, char *tag)
483 struct conf_binding *cb;
485 cb = LIST_FIRST (&conf_bindings[conf_hash (section)]);
486 for (; cb; cb = LIST_NEXT (cb, link)) {
487 if (strcasecmp (section, cb->section) == 0
488 && strcasecmp (tag, cb->tag) == 0)
494 * Find a section that may or may not have an argument
497 conf_get_section(char *section, char *arg, char *tag)
499 struct conf_binding *cb;
501 cb = LIST_FIRST (&conf_bindings[conf_hash (section)]);
502 for (; cb; cb = LIST_NEXT (cb, link)) {
503 if (strcasecmp(section, cb->section) != 0)
505 if (arg && strcasecmp(arg, cb->arg) != 0)
507 if (strcasecmp(tag, cb->tag) != 0)
515 * Build a list of string values out of the comma separated value denoted by
519 conf_get_list(char *section, char *tag)
521 char *liststr = 0, *p, *field, *t;
522 struct conf_list *list = 0;
523 struct conf_list_node *node;
525 list = malloc (sizeof *list);
528 TAILQ_INIT (&list->fields);
530 liststr = conf_get_str(section, tag);
533 liststr = strdup (liststr);
537 while ((field = strsep (&p, ",")) != NULL) {
538 /* Skip leading whitespace */
539 while (isspace (*field))
541 /* Skip trailing whitespace */
543 for (t = p - 1; t > field && isspace (*t); t--)
546 if (*field == '\0') {
547 xlog(LOG_INFO, "conf_get_list: empty field, ignoring...");
551 node = calloc (1, sizeof *node);
554 node->field = strdup (field);
559 TAILQ_INSERT_TAIL (&list->fields, node, link);
566 conf_free_list(list);
573 conf_get_tag_list(char *section)
575 struct conf_list *list = 0;
576 struct conf_list_node *node;
577 struct conf_binding *cb;
579 list = malloc(sizeof *list);
582 TAILQ_INIT(&list->fields);
584 cb = LIST_FIRST(&conf_bindings[conf_hash (section)]);
585 for (; cb; cb = LIST_NEXT(cb, link)) {
586 if (strcasecmp (section, cb->section) == 0) {
588 node = calloc(1, sizeof *node);
591 node->field = strdup(cb->tag);
596 TAILQ_INSERT_TAIL(&list->fields, node, link);
603 conf_free_list(list);
607 /* Decode a PEM encoded buffer. */
609 conf_decode_base64 (u_int8_t *out, u_int32_t *len, u_char *buf)
612 u_int8_t c1, c2, c3, c4;
615 if (*buf > 127 || (c1 = asc2bin[*buf]) == 255)
619 if (*buf > 127 || (c2 = asc2bin[*buf]) == 255)
627 /* Check last four bit */
631 if (strcmp((char *)buf, "==") == 0)
635 } else if (*buf > 127 || (c3 = asc2bin[*buf]) == 255)
642 /* Check last two bit */
646 if (strcmp((char *)buf, "="))
648 } else if (*buf > 127 || (c4 = asc2bin[*buf]) == 255)
655 *out++ = (c1 << 2) | (c2 >> 4);
656 *out++ = (c2 << 4) | (c3 >> 2);
657 *out++ = (c3 << 6) | c4;
665 conf_free_list(struct conf_list *list)
667 struct conf_list_node *node = TAILQ_FIRST(&list->fields);
670 TAILQ_REMOVE(&list->fields, node, link);
674 node = TAILQ_FIRST(&list->fields);
687 static struct conf_trans *
688 conf_trans_node(int transaction, enum conf_op op)
690 struct conf_trans *node;
692 node = calloc (1, sizeof *node);
694 xlog_warn("conf_trans_node: calloc (1, %lu) failed",
695 (unsigned long)sizeof *node);
698 node->trans = transaction;
700 TAILQ_INSERT_TAIL (&conf_trans_queue, node, link);
704 /* Queue a set operation. */
706 conf_set(int transaction, char *section, char *arg,
707 char *tag, char *value, int override, int is_default)
709 struct conf_trans *node;
711 node = conf_trans_node(transaction, CONF_SET);
714 node->section = strdup(section);
715 if (!node->section) {
716 xlog_warn("conf_set: strdup(\"%s\") failed", section);
719 /* Make Section names case-insensitive */
720 upper2lower(node->section);
723 node->arg = strdup(arg);
725 xlog_warn("conf_set: strdup(\"%s\") failed", arg);
731 node->tag = strdup(tag);
733 xlog_warn("conf_set: strdup(\"%s\") failed", tag);
736 node->value = strdup(value);
738 xlog_warn("conf_set: strdup(\"%s\") failed", value);
741 node->override = override;
742 node->is_default = is_default;
755 /* Queue a remove operation. */
757 conf_remove(int transaction, char *section, char *tag)
759 struct conf_trans *node;
761 node = conf_trans_node(transaction, CONF_REMOVE);
764 node->section = strdup(section);
765 if (!node->section) {
766 xlog_warn("conf_remove: strdup(\"%s\") failed", section);
769 node->tag = strdup(tag);
771 xlog_warn("conf_remove: strdup(\"%s\") failed", tag);
777 if (node && node->section)
778 free (node->section);
784 /* Queue a remove section operation. */
786 conf_remove_section(int transaction, char *section)
788 struct conf_trans *node;
790 node = conf_trans_node(transaction, CONF_REMOVE_SECTION);
793 node->section = strdup(section);
794 if (!node->section) {
795 xlog_warn("conf_remove_section: strdup(\"%s\") failed", section);
806 /* Execute all queued operations for this transaction. Cleanup. */
808 conf_end(int transaction, int commit)
810 struct conf_trans *node, *next;
812 for (node = TAILQ_FIRST(&conf_trans_queue); node; node = next) {
813 next = TAILQ_NEXT(node, link);
814 if (node->trans == transaction) {
818 conf_set_now(node->section, node->arg,
819 node->tag, node->value, node->override,
823 conf_remove_now(node->section, node->tag);
825 case CONF_REMOVE_SECTION:
826 conf_remove_section_now(node->section);
829 xlog(LOG_INFO, "conf_end: unknown operation: %d", node->op);
832 TAILQ_REMOVE (&conf_trans_queue, node, link);
846 * Dump running configuration upon SIGUSR1.
847 * Configuration is "stored in reverse order", so reverse it again.
855 conf_report_dump(struct dumper *node)
857 /* Recursive, cleanup when we're done. */
859 conf_report_dump(node->next);
862 xlog(LOG_INFO, "%s=\t%s", node->s, node->v);
864 xlog(LOG_INFO, "%s", node->s);
865 if (strlen(node->s) > 0)
875 struct conf_binding *cb, *last = 0;
876 unsigned int i, len, diff_arg = 0;
877 char *current_section = (char *)0;
878 char *current_arg = (char *)0;
879 struct dumper *dumper, *dnode;
881 dumper = dnode = (struct dumper *)calloc(1, sizeof *dumper);
885 xlog(LOG_INFO, "conf_report: dumping running configuration");
887 for (i = 0; i < sizeof conf_bindings / sizeof conf_bindings[0]; i++)
888 for (cb = LIST_FIRST(&conf_bindings[i]); cb; cb = LIST_NEXT(cb, link)) {
889 if (!cb->is_default) {
890 /* Make sure the Section arugment is the same */
891 if (current_arg && current_section && cb->arg) {
892 if (strcmp(cb->section, current_section) == 0 &&
893 strcmp(cb->arg, current_arg) != 0)
896 /* Dump this entry. */
897 if (!current_section || strcmp(cb->section, current_section)
899 if (current_section || diff_arg) {
900 len = strlen (current_section) + 3;
902 len += strlen(current_arg) + 3;
903 dnode->s = malloc(len);
908 snprintf(dnode->s, len, "[%s \"%s\"]",
909 current_section, current_arg);
911 snprintf(dnode->s, len, "[%s]", current_section);
914 (struct dumper *)calloc(1, sizeof (struct dumper));
921 (struct dumper *)calloc(1, sizeof (struct dumper));
926 current_section = cb->section;
927 current_arg = cb->arg;
931 dnode->v = cb->value;
932 dnode->next = (struct dumper *)calloc (1, sizeof (struct dumper));
941 len = strlen(last->section) + 3;
943 len += strlen(last->arg) + 3;
944 dnode->s = malloc(len);
948 snprintf(dnode->s, len, "[%s \"%s\"]", last->section, last->arg);
950 snprintf(dnode->s, len, "[%s]", last->section);
952 conf_report_dump(dumper);
956 xlog_warn("conf_report: malloc/calloc failed");
957 while ((dnode = dumper) != 0) {
958 dumper = dumper->next;