X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=bacula%2Fsrc%2Flib%2Fparse_conf.c;h=b39eedf6bf0b12ebd284ac6dbea72d5c2a83ca3c;hb=d8628580f5e43ec26d4816ac521cf2b1675a129b;hp=527b724149f4f011eeaf9b6c8d57f8a722c67d74;hpb=bb827dbd7f8f7421aace966d6c29e42399d01fbd;p=bacula%2Fbacula diff --git a/bacula/src/lib/parse_conf.c b/bacula/src/lib/parse_conf.c old mode 100755 new mode 100644 index 527b724149..b39eedf6bf --- a/bacula/src/lib/parse_conf.c +++ b/bacula/src/lib/parse_conf.c @@ -1,6 +1,33 @@ +/* + Bacula® - The Network Backup Solution + + Copyright (C) 2000-2009 Free Software Foundation Europe e.V. + + The main author of Bacula is Kern Sibbald, with contributions from + many others, a complete list can be found in the file AUTHORS. + This program is Free Software; you can redistribute it and/or + modify it under the terms of version two of the GNU General Public + License as published by the Free Software Foundation and included + in the file LICENSE. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA + 02110-1301, USA. + + Bacula® is a registered trademark of Kern Sibbald. + The licensor of Bacula is the Free Software Foundation Europe + (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich, + Switzerland, email:ftf@fsfeurope.org. +*/ /* * Master Configuration routines. - * + * * This file contains the common parts of the Bacula * configuration routines. * @@ -8,109 +35,92 @@ * * 1. The generic lexical scanner in lib/lex.c and lib/lex.h * - * 2. The generic config scanner in lib/parse_conf.c and - * lib/parse_conf.h. - * These files contain the parser code, some utility - * routines, and the common store routines (name, int, - * string). + * 2. The generic config scanner in lib/parse_conf.c and + * lib/parse_conf.h. + * These files contain the parser code, some utility + * routines, and the common store routines (name, int, + * string, time, int64, size, ...). * * 3. The daemon specific file, which contains the Resource - * definitions as well as any specific store routines - * for the resource records. + * definitions as well as any specific store routines + * for the resource records. * * N.B. This is a two pass parser, so if you malloc() a string * in a "store" routine, you must ensure to do it during - * only one of the two passes, or to free it between. - * Also, note that the resource record is malloced and - * saved in save_resource() during pass 1. Anything that - * you want saved after pass two (e.g. resource pointers) - * must explicitly be done in save_resource. Take a look - * at the Job resource in src/dird/dird_conf.c to see how - * it is done. + * only one of the two passes, or to free it between. + * Also, note that the resource record is malloced and + * saved in save_resource() during pass 1. Anything that + * you want saved after pass two (e.g. resource pointers) + * must explicitly be done in save_resource. Take a look + * at the Job resource in src/dird/dird_conf.c to see how + * it is done. * * Kern Sibbald, January MM * * Version $Id$ */ -/* - Copyright (C) 2000-2004 Kern Sibbald and John Walker - - This program is free software; you can redistribute it and/or - modify it under the terms of the GNU General Public License as - published by the Free Software Foundation; either version 2 of - the License, or (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. - - You should have received a copy of the GNU General Public - License along with this program; if not, write to the Free - Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, - MA 02111-1307, USA. - - */ - #include "bacula.h" -extern int debug_level; +#if defined(HAVE_WIN32) +#include "shlobj.h" +#else +#define MAX_PATH 1024 +#endif -/* Each daemon has a slightly different set of - * resources, so it will define the following - * global values. +/* + * Define the Union of all the common resource structure definitions. */ -extern int r_first; -extern int r_last; -extern RES_TABLE resources[]; -extern RES **res_head; +union URES { + MSGS res_msgs; + RES hdr; +}; -#ifdef HAVE_WIN32 -// work around visual studio name manling preventing external linkage since res_all +#if defined(_MSC_VER) +// work around visual studio name mangling preventing external linkage since res_all // is declared as a different type when instantiated. -extern "C" CURES res_all; -extern "C" int res_all_size; +extern "C" URES res_all; #else -extern CURES res_all; -extern int res_all_size; +extern URES res_all; #endif +extern brwlock_t res_lock; /* resource lock */ -static brwlock_t res_lock; /* resource lock */ -static int res_locked = 0; /* set when resource chains locked -- for debug */ /* Forward referenced subroutines */ static void scan_types(LEX *lc, MSGS *msg, int dest, char *where, char *cmd); - +static const char *get_default_configdir(); +static bool find_config_file(const char *config_file, char *full_path, int max_path); /* Common Resource definitions */ /* Message resource directives - * name handler value code flags default_value + * name handler value code flags default_value */ RES_ITEM msgs_items[] = { {"name", store_name, ITEM(res_msgs.hdr.name), 0, 0, 0}, {"description", store_str, ITEM(res_msgs.hdr.desc), 0, 0, 0}, {"mailcommand", store_str, ITEM(res_msgs.mail_cmd), 0, 0, 0}, {"operatorcommand", store_str, ITEM(res_msgs.operator_cmd), 0, 0, 0}, - {"syslog", store_msgs, ITEM(res_msgs), MD_SYSLOG, 0, 0}, + {"syslog", store_msgs, ITEM(res_msgs), MD_SYSLOG, 0, 0}, {"mail", store_msgs, ITEM(res_msgs), MD_MAIL, 0, 0}, {"mailonerror", store_msgs, ITEM(res_msgs), MD_MAIL_ON_ERROR, 0, 0}, + {"mailonsuccess", store_msgs, ITEM(res_msgs), MD_MAIL_ON_SUCCESS, 0, 0}, {"file", store_msgs, ITEM(res_msgs), MD_FILE, 0, 0}, {"append", store_msgs, ITEM(res_msgs), MD_APPEND, 0, 0}, {"stdout", store_msgs, ITEM(res_msgs), MD_STDOUT, 0, 0}, {"stderr", store_msgs, ITEM(res_msgs), MD_STDERR, 0, 0}, {"director", store_msgs, ITEM(res_msgs), MD_DIRECTOR, 0, 0}, - {"console", store_msgs, ITEM(res_msgs), MD_CONSOLE, 0, 0}, + {"console", store_msgs, ITEM(res_msgs), MD_CONSOLE, 0, 0}, {"operator", store_msgs, ITEM(res_msgs), MD_OPERATOR, 0, 0}, - {NULL, NULL, NULL, 0, 0} + {"catalog", store_msgs, ITEM(res_msgs), MD_CATALOG, 0, 0}, + {NULL, NULL, {0}, 0, 0, 0} }; -struct s_mtypes { +struct s_mtypes { const char *name; - int token; + int token; }; /* Various message types */ static struct s_mtypes msg_types[] = { @@ -126,8 +136,29 @@ static struct s_mtypes msg_types[] = { {"mount", M_MOUNT}, {"terminate", M_TERM}, {"restored", M_RESTORED}, + {"security", M_SECURITY}, + {"alert", M_ALERT}, + {"volmgmt", M_VOLMGMT}, {"all", M_MAX+1}, - {NULL, 0} + {NULL, 0} +}; + +/* Used for certain KeyWord tables */ +struct s_kw { + const char *name; + int token; +}; + +/* + * Tape Label types permitted in Pool records + * + * tape label label code = token + */ +static s_kw tapelabels[] = { + {"bacula", B_BACULA_LABEL}, + {"ansi", B_ANSI_LABEL}, + {"ibm", B_IBM_LABEL}, + {NULL, 0} }; @@ -151,46 +182,42 @@ const char *res_to_str(int rcode) } -/* +/* * Initialize the static structure to zeros, then * apply all the default values. */ -void init_resource(int type, RES_ITEM *items, int pass) +static void init_resource(CONFIG *config, int type, RES_ITEM *items, int pass) { int i; int rindex = type - r_first; - static bool first = true; - int errstat; - if (first && (errstat=rwl_init(&res_lock)) != 0) { - Emsg1(M_ABORT, 0, _("Unable to initialize resource lock. ERR=%s\n"), - strerror(errstat)); - } - first = false; - - memset(&res_all, 0, res_all_size); + memset(config->m_res_all, 0, config->m_res_all_size); res_all.hdr.rcode = type; res_all.hdr.refcnt = 1; + /* Set defaults in each item */ for (i=0; items[i].name; i++) { Dmsg3(900, "Item=%s def=%s defval=%d\n", items[i].name, - (items[i].flags & ITEM_DEFAULT) ? "yes" : "no", - items[i].default_value); + (items[i].flags & ITEM_DEFAULT) ? "yes" : "no", + items[i].default_value); if (items[i].flags & ITEM_DEFAULT && items[i].default_value != 0) { - if (items[i].handler == store_yesno) { - *(int *)(items[i].value) |= items[i].code; - } else if (items[i].handler == store_pint || - items[i].handler == store_int) { - *(int *)(items[i].value) = items[i].default_value; - } else if (items[i].handler == store_int64) { - *(int64_t *)(items[i].value) = items[i].default_value; - } else if (items[i].handler == store_size) { - *(uint64_t *)(items[i].value) = (uint64_t)items[i].default_value; - } else if (items[i].handler == store_time) { - *(utime_t *)(items[i].value) = (utime_t)items[i].default_value; - } else if (pass == 1 && items[i].handler == store_addresses) { - init_default_addresses((dlist**)items[i].value, items[i].default_value); - } + if (items[i].handler == store_bit) { + *(uint32_t *)(items[i].value) |= items[i].code; + } else if (items[i].handler == store_bool) { + *(bool *)(items[i].value) = items[i].default_value != 0; + } else if (items[i].handler == store_pint32 || + items[i].handler == store_int32 || + items[i].handler == store_size32) { + *(uint32_t *)(items[i].value) = items[i].default_value; + } else if (items[i].handler == store_int64) { + *(int64_t *)(items[i].value) = items[i].default_value; + } else if (items[i].handler == store_size64) { + *(uint64_t *)(items[i].value) = (uint64_t)items[i].default_value; + } else if (items[i].handler == store_time) { + *(utime_t *)(items[i].value) = (utime_t)items[i].default_value; + } else if (pass == 1 && items[i].handler == store_addresses) { + init_default_addresses((dlist**)items[i].value, items[i].default_value); + } } /* If this triggers, take a look at lib/parse_conf.h */ if (i >= MAX_RES_ITEMS) { @@ -206,74 +233,79 @@ void store_msgs(LEX *lc, RES_ITEM *item, int index, int pass) int token; char *cmd; POOLMEM *dest; - int dest_len; + int dest_len; Dmsg2(900, "store_msgs pass=%d code=%d\n", pass, item->code); if (pass == 1) { switch (item->code) { case MD_STDOUT: case MD_STDERR: - case MD_SYSLOG: /* syslog */ + case MD_SYSLOG: /* syslog */ case MD_CONSOLE: - scan_types(lc, (MSGS *)(item->value), item->code, NULL, NULL); - break; - case MD_OPERATOR: /* send to operator */ - case MD_DIRECTOR: /* send to Director */ - case MD_MAIL: /* mail */ - case MD_MAIL_ON_ERROR: /* mail if Job errors */ - if (item->code == MD_OPERATOR) { - cmd = res_all.res_msgs.operator_cmd; - } else { - cmd = res_all.res_msgs.mail_cmd; - } - dest = get_pool_memory(PM_MESSAGE); - dest[0] = 0; - dest_len = 0; - /* Pick up comma separated list of destinations */ - for ( ;; ) { - token = lex_get_token(lc, T_NAME); /* scan destination */ - dest = check_pool_memory_size(dest, dest_len + lc->str_len + 2); - if (dest[0] != 0) { - pm_strcat(&dest, " "); /* separate multiple destinations with space */ - dest_len++; - } - pm_strcat(&dest, lc->str); - dest_len += lc->str_len; + case MD_CATALOG: + scan_types(lc, (MSGS *)(item->value), item->code, NULL, NULL); + break; + case MD_OPERATOR: /* send to operator */ + case MD_DIRECTOR: /* send to Director */ + case MD_MAIL: /* mail */ + case MD_MAIL_ON_ERROR: /* mail if Job errors */ + case MD_MAIL_ON_SUCCESS: /* mail if Job succeeds */ + if (item->code == MD_OPERATOR) { + cmd = res_all.res_msgs.operator_cmd; + } else { + cmd = res_all.res_msgs.mail_cmd; + } + dest = get_pool_memory(PM_MESSAGE); + dest[0] = 0; + dest_len = 0; + /* Pick up comma separated list of destinations */ + for ( ;; ) { + token = lex_get_token(lc, T_NAME); /* scan destination */ + dest = check_pool_memory_size(dest, dest_len + lc->str_len + 2); + if (dest[0] != 0) { + pm_strcat(dest, " "); /* separate multiple destinations with space */ + dest_len++; + } + pm_strcat(dest, lc->str); + dest_len += lc->str_len; Dmsg2(900, "store_msgs newdest=%s: dest=%s:\n", lc->str, NPRT(dest)); - token = lex_get_token(lc, T_ALL); - if (token == T_COMMA) { - continue; /* get another destination */ - } - if (token != T_EQUALS) { - scan_err1(lc, _("expected an =, got: %s"), lc->str); - } - break; - } + token = lex_get_token(lc, T_SKIP_EOL); + if (token == T_COMMA) { + continue; /* get another destination */ + } + if (token != T_EQUALS) { + scan_err1(lc, _("expected an =, got: %s"), lc->str); + return; + } + break; + } Dmsg1(900, "mail_cmd=%s\n", NPRT(cmd)); - scan_types(lc, (MSGS *)(item->value), item->code, dest, cmd); - free_pool_memory(dest); + scan_types(lc, (MSGS *)(item->value), item->code, dest, cmd); + free_pool_memory(dest); Dmsg0(900, "done with dest codes\n"); - break; - case MD_FILE: /* file */ - case MD_APPEND: /* append */ - dest = get_pool_memory(PM_MESSAGE); - /* Pick up a single destination */ - token = lex_get_token(lc, T_NAME); /* scan destination */ - pm_strcpy(&dest, lc->str); - dest_len = lc->str_len; - token = lex_get_token(lc, T_ALL); + break; + + case MD_FILE: /* file */ + case MD_APPEND: /* append */ + dest = get_pool_memory(PM_MESSAGE); + /* Pick up a single destination */ + token = lex_get_token(lc, T_NAME); /* scan destination */ + pm_strcpy(dest, lc->str); + dest_len = lc->str_len; + token = lex_get_token(lc, T_SKIP_EOL); Dmsg1(900, "store_msgs dest=%s:\n", NPRT(dest)); - if (token != T_EQUALS) { - scan_err1(lc, _("expected an =, got: %s"), lc->str); - } - scan_types(lc, (MSGS *)(item->value), item->code, dest, NULL); - free_pool_memory(dest); + if (token != T_EQUALS) { + scan_err1(lc, _("expected an =, got: %s"), lc->str); + return; + } + scan_types(lc, (MSGS *)(item->value), item->code, dest, NULL); + free_pool_memory(dest); Dmsg0(900, "done with dest codes\n"); - break; + break; default: scan_err1(lc, _("Unknown item code: %d\n"), item->code); - break; + return; } } scan_to_eol(lc); @@ -281,7 +313,7 @@ void store_msgs(LEX *lc, RES_ITEM *item, int index, int pass) Dmsg0(900, "Done store_msgs\n"); } -/* +/* * Scan for message types and add them to the message * destination. The basic job here is to connect message types * (WARNING, ERROR, FATAL, INFO, ...) with an appropriate @@ -289,54 +321,53 @@ void store_msgs(LEX *lc, RES_ITEM *item, int index, int pass) */ static void scan_types(LEX *lc, MSGS *msg, int dest_code, char *where, char *cmd) { - int i, found, quit, is_not; + int i; + bool found, is_not; int msg_type = 0; char *str; - for (quit=0; !quit;) { - lex_get_token(lc, T_NAME); /* expect at least one type */ - found = FALSE; + for ( ;; ) { + lex_get_token(lc, T_NAME); /* expect at least one type */ + found = false; if (lc->str[0] == '!') { - is_not = TRUE; - str = &lc->str[1]; + is_not = true; + str = &lc->str[1]; } else { - is_not = FALSE; - str = &lc->str[0]; + is_not = false; + str = &lc->str[0]; } for (i=0; msg_types[i].name; i++) { - if (strcasecmp(str, msg_types[i].name) == 0) { - msg_type = msg_types[i].token; - found = TRUE; - break; - } + if (strcasecmp(str, msg_types[i].name) == 0) { + msg_type = msg_types[i].token; + found = true; + break; + } } if (!found) { scan_err1(lc, _("message type: %s not found"), str); - /* NOT REACHED */ + return; } - if (msg_type == M_MAX+1) { /* all? */ - for (i=1; i<=M_MAX; i++) { /* yes set all types */ - add_msg_dest(msg, dest_code, i, where, cmd); - } + if (msg_type == M_MAX+1) { /* all? */ + for (i=1; i<=M_MAX; i++) { /* yes set all types */ + add_msg_dest(msg, dest_code, i, where, cmd); + } + } else if (is_not) { + rem_msg_dest(msg, dest_code, msg_type, where); } else { - if (is_not) { - rem_msg_dest(msg, dest_code, msg_type, where); - } else { - add_msg_dest(msg, dest_code, msg_type, where, cmd); - } + add_msg_dest(msg, dest_code, msg_type, where, cmd); } if (lc->ch != ',') { - break; + break; } Dmsg0(900, "call lex_get_token() to eat comma\n"); - lex_get_token(lc, T_ALL); /* eat comma */ + lex_get_token(lc, T_ALL); /* eat comma */ } Dmsg0(900, "Done scan_types()\n"); } -/* +/* * This routine is ONLY for resource names * Store a name at specified address. */ @@ -346,12 +377,14 @@ void store_name(LEX *lc, RES_ITEM *item, int index, int pass) lex_get_token(lc, T_NAME); if (!is_name_valid(lc->str, &msg)) { scan_err1(lc, "%s\n", msg); + return; } free_pool_memory(msg); /* Store the name both pass 1 and pass 2 */ if (*(item->value)) { - scan_err2(lc, _("Attempt to redefine name \"%s\" to \"%s\"."), - *(item->value), lc->str); + scan_err2(lc, _("Attempt to redefine name \"%s\" to \"%s\"."), + *(item->value), lc->str); + return; } *(item->value) = bstrdup(lc->str); scan_to_eol(lc); @@ -395,7 +428,7 @@ void store_dir(LEX *lc, RES_ITEM *item, int index, int pass) lex_get_token(lc, T_STRING); if (pass == 1) { if (lc->str[0] != '|') { - do_shell_expansion(lc->str, sizeof(lc->str)); + do_shell_expansion(lc->str, sizeof(lc->str)); } *(item->value) = bstrdup(lc->str); } @@ -409,7 +442,7 @@ void store_password(LEX *lc, RES_ITEM *item, int index, int pass) { unsigned int i, j; struct MD5Context md5c; - unsigned char signature[16]; + unsigned char digest[CRYPTO_DIGEST_MD5_SIZE]; char sig[100]; @@ -417,10 +450,10 @@ void store_password(LEX *lc, RES_ITEM *item, int index, int pass) if (pass == 1) { MD5Init(&md5c); MD5Update(&md5c, (unsigned char *) (lc->str), lc->str_len); - MD5Final(signature, &md5c); - for (i = j = 0; i < sizeof(signature); i++) { - sprintf(&sig[j], "%02x", signature[i]); - j += 2; + MD5Final(digest, &md5c); + for (i = j = 0; i < sizeof(digest); i++) { + sprintf(&sig[j], "%02x", digest[i]); + j += 2; } *(item->value) = bstrdup(sig); } @@ -430,7 +463,7 @@ void store_password(LEX *lc, RES_ITEM *item, int index, int pass) /* Store a resource at specified address. - * If we are in pass 2, do a lookup of the + * If we are in pass 2, do a lookup of the * resource. */ void store_res(LEX *lc, RES_ITEM *item, int index, int pass) @@ -439,24 +472,108 @@ void store_res(LEX *lc, RES_ITEM *item, int index, int pass) lex_get_token(lc, T_NAME); if (pass == 2) { - res = GetResWithName(item->code, lc->str); - if (res == NULL) { - scan_err3(lc, _("Could not find config Resource %s referenced on line %d : %s\n"), - lc->str, lc->line_no, lc->line); - } - if (*(item->value)) { - scan_err3(lc, _("Attempt to redefine resource \"%s\" referenced on line %d : %s\n"), - lc->str, lc->line_no, lc->line); - } - *(item->value) = (char *)res; + res = GetResWithName(item->code, lc->str); + if (res == NULL) { + scan_err3(lc, _("Could not find config Resource %s referenced on line %d : %s\n"), + lc->str, lc->line_no, lc->line); + return; + } + if (*(item->value)) { + scan_err3(lc, _("Attempt to redefine resource \"%s\" referenced on line %d : %s\n"), + item->name, lc->line_no, lc->line); + return; + } + *(item->value) = (char *)res; } scan_to_eol(lc); set_bit(index, res_all.hdr.item_present); } +/* + * Store a resource pointer in an alist. default_value indicates how many + * times this routine can be called -- i.e. how many alists + * there are. + * If we are in pass 2, do a lookup of the + * resource. + */ +void store_alist_res(LEX *lc, RES_ITEM *item, int index, int pass) +{ + RES *res; + int count = item->default_value; + int i = 0; + alist *list; + + if (pass == 2) { + if (count == 0) { /* always store in item->value */ + i = 0; + if ((item->value)[i] == NULL) { + list = New(alist(10, not_owned_by_alist)); + } else { + list = (alist *)(item->value)[i]; + } + } else { + /* Find empty place to store this directive */ + while ((item->value)[i] != NULL && i++ < count) { } + if (i >= count) { + scan_err4(lc, _("Too many %s directives. Max. is %d. line %d: %s\n"), + lc->str, count, lc->line_no, lc->line); + return; + } + list = New(alist(10, not_owned_by_alist)); + } + + for (;;) { + lex_get_token(lc, T_NAME); /* scan next item */ + res = GetResWithName(item->code, lc->str); + if (res == NULL) { + scan_err3(lc, _("Could not find config Resource \"%s\" referenced on line %d : %s\n"), + item->name, lc->line_no, lc->line); + return; + } + Dmsg5(900, "Append %p to alist %p size=%d i=%d %s\n", + res, list, list->size(), i, item->name); + list->append(res); + (item->value)[i] = (char *)list; + if (lc->ch != ',') { /* if no other item follows */ + break; /* get out */ + } + lex_get_token(lc, T_ALL); /* eat comma */ + } + } + scan_to_eol(lc); + set_bit(index, res_all.hdr.item_present); +} + + +/* + * Store a string in an alist. + */ +void store_alist_str(LEX *lc, RES_ITEM *item, int index, int pass) +{ + alist *list; + + if (pass == 2) { + if (*(item->value) == NULL) { + list = New(alist(10, owned_by_alist)); + } else { + list = (alist *)(*(item->value)); + } + + lex_get_token(lc, T_STRING); /* scan next item */ + Dmsg4(900, "Append %s to alist %p size=%d %s\n", + lc->str, list, list->size(), item->name); + list->append(bstrdup(lc->str)); + *(item->value) = (char *)list; + } + scan_to_eol(lc); + set_bit(index, res_all.hdr.item_present); +} + + + /* * Store default values for Resource from xxxDefs - * If we are in pass 2, do a lookup of the + * If we are in pass 2, do a lookup of the * resource and store everything not explicitly set * in main resource. * @@ -472,20 +589,10 @@ void store_defs(LEX *lc, RES_ITEM *item, int index, int pass) Dmsg2(900, "Code=%d name=%s\n", item->code, lc->str); res = GetResWithName(item->code, lc->str); if (res == NULL) { - scan_err3(lc, _("Missing config Resource \"%s\" referenced on line %d : %s\n"), - lc->str, lc->line_no, lc->line); - } - /* for each item not set, we copy the field from res */ -#ifdef xxx - for (int i=0; item->name;; i++, item++) { - if (bit_is_set(i, res->item_present)) { - Dmsg2(900, "Item %d is present in %s\n", i, res->name); - } else { - Dmsg2(900, "Item %d is not present in %s\n", i, res->name); - } + scan_err3(lc, _("Missing config Resource \"%s\" referenced on line %d : %s\n"), + lc->str, lc->line_no, lc->line); + return; } - /* ***FIXME **** add code */ -#endif } scan_to_eol(lc); } @@ -493,19 +600,19 @@ void store_defs(LEX *lc, RES_ITEM *item, int index, int pass) /* Store an integer at specified address */ -void store_int(LEX *lc, RES_ITEM *item, int index, int pass) +void store_int32(LEX *lc, RES_ITEM *item, int index, int pass) { lex_get_token(lc, T_INT32); - *(int *)(item->value) = lc->int32_val; + *(uint32_t *)(item->value) = lc->int32_val; scan_to_eol(lc); set_bit(index, res_all.hdr.item_present); } /* Store a positive integer at specified address */ -void store_pint(LEX *lc, RES_ITEM *item, int index, int pass) +void store_pint32(LEX *lc, RES_ITEM *item, int index, int pass) { lex_get_token(lc, T_PINT32); - *(int *)(item->value) = lc->pint32_val; + *(uint32_t *)(item->value) = lc->pint32_val; scan_to_eol(lc); set_bit(index, res_all.hdr.item_present); } @@ -521,64 +628,99 @@ void store_int64(LEX *lc, RES_ITEM *item, int index, int pass) } /* Store a size in bytes */ -void store_size(LEX *lc, RES_ITEM *item, int index, int pass) +static void store_size(LEX *lc, RES_ITEM *item, int index, int pass, bool size32) { int token; uint64_t uvalue; + char bsize[500]; Dmsg0(900, "Enter store_size\n"); - token = lex_get_token(lc, T_ALL); + token = lex_get_token(lc, T_SKIP_EOL); errno = 0; switch (token) { case T_NUMBER: case T_IDENTIFIER: case T_UNQUOTED_STRING: - if (!size_to_uint64(lc->str, lc->str_len, &uvalue)) { + bstrncpy(bsize, lc->str, sizeof(bsize)); /* save first part */ + /* if terminated by space, scan and get modifier */ + while (lc->ch == ' ') { + token = lex_get_token(lc, T_ALL); + switch (token) { + case T_NUMBER: + case T_IDENTIFIER: + case T_UNQUOTED_STRING: + bstrncat(bsize, lc->str, sizeof(bsize)); + break; + } + } + if (!size_to_uint64(bsize, strlen(bsize), &uvalue)) { scan_err1(lc, _("expected a size number, got: %s"), lc->str); + return; + } + if (size32) { + *(uint32_t *)(item->value) = (uint32_t)uvalue; + } else { + *(uint64_t *)(item->value) = uvalue; } - *(uint64_t *)(item->value) = uvalue; break; default: scan_err1(lc, _("expected a size, got: %s"), lc->str); - break; + return; + } + if (token != T_EOL) { + scan_to_eol(lc); } - scan_to_eol(lc); set_bit(index, res_all.hdr.item_present); Dmsg0(900, "Leave store_size\n"); } +/* Store a size in bytes */ +void store_size32(LEX *lc, RES_ITEM *item, int index, int pass) +{ + store_size(lc, item, index, pass, true /* 32 bit */); +} + +/* Store a size in bytes */ +void store_size64(LEX *lc, RES_ITEM *item, int index, int pass) +{ + store_size(lc, item, index, pass, false /* not 32 bit */); +} + /* Store a time period in seconds */ void store_time(LEX *lc, RES_ITEM *item, int index, int pass) { - int token; + int token; utime_t utime; char period[500]; - token = lex_get_token(lc, T_ALL); + token = lex_get_token(lc, T_SKIP_EOL); errno = 0; switch (token) { case T_NUMBER: case T_IDENTIFIER: case T_UNQUOTED_STRING: - bstrncpy(period, lc->str, sizeof(period)); - if (lc->ch == ' ') { - token = lex_get_token(lc, T_ALL); - switch (token) { - case T_IDENTIFIER: - case T_UNQUOTED_STRING: - bstrncat(period, lc->str, sizeof(period)); - break; - } + bstrncpy(period, lc->str, sizeof(period)); /* get first part */ + /* if terminated by space, scan and get modifier */ + while (lc->ch == ' ') { + token = lex_get_token(lc, T_ALL); + switch (token) { + case T_NUMBER: + case T_IDENTIFIER: + case T_UNQUOTED_STRING: + bstrncat(period, lc->str, sizeof(period)); + break; + } } if (!duration_to_utime(period, &utime)) { scan_err1(lc, _("expected a time period, got: %s"), period); + return; } *(utime_t *)(item->value) = utime; break; default: scan_err1(lc, _("expected a time period, got: %s"), lc->str); - break; + return; } if (token != T_EOL) { scan_to_eol(lc); @@ -588,94 +730,61 @@ void store_time(LEX *lc, RES_ITEM *item, int index, int pass) /* Store a yes/no in a bit field */ -void store_yesno(LEX *lc, RES_ITEM *item, int index, int pass) +void store_bit(LEX *lc, RES_ITEM *item, int index, int pass) { lex_get_token(lc, T_NAME); - if (strcasecmp(lc->str, "yes") == 0) { - *(int *)(item->value) |= item->code; - } else if (strcasecmp(lc->str, "no") == 0) { - *(int *)(item->value) &= ~(item->code); + if (strcasecmp(lc->str, "yes") == 0 || strcasecmp(lc->str, "true") == 0) { + *(uint32_t *)(item->value) |= item->code; + } else if (strcasecmp(lc->str, "no") == 0 || strcasecmp(lc->str, "false") == 0) { + *(uint32_t *)(item->value) &= ~(item->code); } else { - scan_err1(lc, _("Expect a YES or NO, got: %s"), lc->str); + scan_err2(lc, _("Expect %s, got: %s"), "YES, NO, TRUE, or FALSE", lc->str); /* YES and NO must not be translated */ + return; } scan_to_eol(lc); set_bit(index, res_all.hdr.item_present); } - -/* #define TRACE_RES */ - -void b_LockRes(const char *file, int line) +/* Store a bool in a bit field */ +void store_bool(LEX *lc, RES_ITEM *item, int index, int pass) { - int errstat; -#ifdef TRACE_RES - Dmsg4(000, "LockRes %d,%d at %s:%d\n", res_locked, res_lock.w_active, - file, line); -#endif - if ((errstat=rwl_writelock(&res_lock)) != 0) { - Emsg3(M_ABORT, 0, "rwl_writelock failure at %s:%d: ERR=%s\n", - file, line, strerror(errstat)); + lex_get_token(lc, T_NAME); + if (strcasecmp(lc->str, "yes") == 0 || strcasecmp(lc->str, "true") == 0) { + *(bool *)(item->value) = true; + } else if (strcasecmp(lc->str, "no") == 0 || strcasecmp(lc->str, "false") == 0) { + *(bool *)(item->value) = false; + } else { + scan_err2(lc, _("Expect %s, got: %s"), "YES, NO, TRUE, or FALSE", lc->str); /* YES and NO must not be translated */ + return; } - res_locked++; + scan_to_eol(lc); + set_bit(index, res_all.hdr.item_present); } -void b_UnlockRes(const char *file, int line) -{ - int errstat; - res_locked--; -#ifdef TRACE_RES - Dmsg4(000, "UnLockRes %d,%d at %s:%d\n", res_locked, res_lock.w_active, - file, line); -#endif - if ((errstat=rwl_writeunlock(&res_lock)) != 0) { - Emsg3(M_ABORT, 0, "rwl_writeunlock failure at %s:%d:. ERR=%s\n", - file, line, strerror(errstat)); - } -} /* - * Return resource of type rcode that matches name + * Store Tape Label Type (Bacula, ANSI, IBM) + * */ -RES * -GetResWithName(int rcode, char *name) +void store_label(LEX *lc, RES_ITEM *item, int index, int pass) { - RES *res; - int rindex = rcode - r_first; - - LockRes(); - res = res_head[rindex]; - while (res) { - if (strcmp(res->name, name) == 0) { - break; + int token, i; + + token = lex_get_token(lc, T_NAME); + /* Store the label pass 2 so that type is defined */ + for (i=0; tapelabels[i].name; i++) { + if (strcasecmp(lc->str, tapelabels[i].name) == 0) { + *(uint32_t *)(item->value) = tapelabels[i].token; + i = 0; + break; } - res = res->next; - } - UnlockRes(); - return res; - -} - -/* - * Return next resource of type rcode. On first - * call second arg (res) is NULL, on subsequent - * calls, it is called with previous value. - */ -RES * -GetNextRes(int rcode, RES *res) -{ - RES *nres; - int rindex = rcode - r_first; - - - if (!res_locked) { - Emsg0(M_ABORT, 0, "Resource chain not locked.\n"); } - if (res == NULL) { - nres = res_head[rindex]; - } else { - nres = res->next; + if (i != 0) { + scan_err1(lc, _("Expected a Tape Label keyword, got: %s"), lc->str); + return; } - return nres; + scan_to_eol(lc); + set_bit(index, res_all.hdr.item_present); } @@ -685,146 +794,323 @@ enum parse_state { p_resource }; +CONFIG *new_config_parser() +{ + CONFIG *config; + config = (CONFIG *)malloc(sizeof(CONFIG)); + memset(config, 0, sizeof(CONFIG)); + return config; +} + +void CONFIG::init( + const char *cf, + LEX_ERROR_HANDLER *scan_error, + int32_t err_type, + void *vres_all, + int32_t res_all_size, + int32_t r_first, + int32_t r_last, + RES_TABLE *resources, + RES **res_head) +{ + m_cf = cf; + m_scan_error = scan_error; + m_err_type = err_type; + m_res_all = vres_all; + m_res_all_size = res_all_size; + m_r_first = r_first; + m_r_last = r_last; + m_resources = resources; + m_res_head = res_head; +} + /********************************************************************* * - * Parse configuration file - * + * Parse configuration file + * * Return 0 if reading failed, 1 otherwise + * Note, the default behavior unless you have set an alternate + * scan_error handler is to die on an error. */ -int -parse_config(const char *cf, int exit_on_error) +#ifdef xxx +int +parse_config(const char *cf, LEX_ERROR_HANDLER *scan_error, int err_type) +{ + int ok; + CONFIG *config = new_config_parser(); + config->init(cf, scan_error, err_type, (void *)&res_all, res_all_size, + r_first, r_last, resources, res_head); + ok = config->parse_config(); + free(config); + return ok; +} +#endif + + +bool CONFIG::parse_config() { - set_exit_on_error(exit_on_error); LEX *lc = NULL; int token, i, pass; int res_type = 0; enum parse_state state = p_none; RES_ITEM *items = NULL; int level = 0; + static bool first = true; + int errstat; + const char *cf = m_cf; + LEX_ERROR_HANDLER *scan_error = m_scan_error; + int err_type = m_err_type; + + if (first && (errstat=rwl_init(&res_lock)) != 0) { + berrno be; + Jmsg1(NULL, M_ABORT, 0, _("Unable to initialize resource lock. ERR=%s\n"), + be.bstrerror(errstat)); + } + first = false; + + char *full_path = (char *)alloca(MAX_PATH + 1); + + if (!find_config_file(cf, full_path, MAX_PATH +1)) { + Jmsg0(NULL, M_ABORT, 0, _("Config filename too long.\n")); + } + cf = full_path; /* Make two passes. The first builds the name symbol table, - * and the second picks up the items. + * and the second picks up the items. */ Dmsg0(900, "Enter parse_config()\n"); for (pass=1; pass <= 2; pass++) { Dmsg1(900, "parse_config pass %d\n", pass); - if ((lc = lex_open_file(lc, cf, NULL)) == NULL) { - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; + if ((lc = lex_open_file(lc, cf, scan_error)) == NULL) { + berrno be; + /* We must create a lex packet to print the error */ + lc = (LEX *)malloc(sizeof(LEX)); + memset(lc, 0, sizeof(LEX)); + if (scan_error) { + lc->scan_error = scan_error; + } else { + lex_set_default_error_handler(lc); + } + lex_set_error_handler_error_type(lc, err_type) ; + bstrncpy(lc->str, cf, sizeof(lc->str)); + lc->fname = lc->str; + scan_err2(lc, _("Cannot open config file \"%s\": %s\n"), + lc->str, be.bstrerror()); + free(lc); + return 0; } + lex_set_error_handler_error_type(lc, err_type) ; while ((token=lex_get_token(lc, T_ALL)) != T_EOF) { - Dmsg1(900, "parse got token=%s\n", lex_tok_to_str(token)); - switch (state) { - case p_none: - if (token == T_EOL) { - break; - } - if (token != T_IDENTIFIER) { + Dmsg3(900, "parse state=%d pass=%d got token=%s\n", state, pass, + lex_tok_to_str(token)); + switch (state) { + case p_none: + if (token == T_EOL) { + break; + } else if (token == T_UTF8_BOM) { + /* We can assume the file is UTF-8 as we have seen a UTF-8 BOM */ + break; + } else if (token == T_UTF16_BOM) { + scan_err0(lc, _("Currently we cannot handle UTF-16 source files. " + "Please convert the conf file to UTF-8\n")); + return 0; + } else if (token != T_IDENTIFIER) { scan_err1(lc, _("Expected a Resource name identifier, got: %s"), lc->str); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - for (i=0; resources[i].name; i++) - if (strcasecmp(resources[i].name, lc->str) == 0) { - state = p_resource; - items = resources[i].items; - res_type = resources[i].rcode; - init_resource(res_type, items, pass); - break; - } - if (state == p_none) { + return 0; + } + for (i=0; resources[i].name; i++) { + if (strcasecmp(resources[i].name, lc->str) == 0) { + items = resources[i].items; + if (!items) { + break; + } + state = p_resource; + res_type = resources[i].rcode; + init_resource(this, res_type, items, pass); + break; + } + } + if (state == p_none) { scan_err1(lc, _("expected resource name, got: %s"), lc->str); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - break; - case p_resource: - switch (token) { - case T_BOB: - level++; - break; - case T_IDENTIFIER: - if (level != 1) { + return 0; + } + break; + case p_resource: + switch (token) { + case T_BOB: + level++; + break; + case T_IDENTIFIER: + if (level != 1) { scan_err1(lc, _("not in resource definition: %s"), lc->str); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - for (i=0; items[i].name; i++) { - if (strcasecmp(items[i].name, lc->str) == 0) { - /* If the ITEM_NO_EQUALS flag is set we do NOT - * scan for = after the keyword */ - if (!(items[i].flags & ITEM_NO_EQUALS)) { - token = lex_get_token(lc, T_ALL); + return 0; + } + for (i=0; items[i].name; i++) { + if (strcasecmp(items[i].name, lc->str) == 0) { + /* If the ITEM_NO_EQUALS flag is set we do NOT + * scan for = after the keyword */ + if (!(items[i].flags & ITEM_NO_EQUALS)) { + token = lex_get_token(lc, T_SKIP_EOL); Dmsg1 (900, "in T_IDENT got token=%s\n", lex_tok_to_str(token)); - if (token != T_EQUALS) { + if (token != T_EQUALS) { scan_err1(lc, _("expected an equals, got: %s"), lc->str); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - } - Dmsg1(900, "calling handler for %s\n", items[i].name); - /* Call item handler */ - items[i].handler(lc, &items[i], i, pass); - i = -1; - break; - } - } - if (i >= 0) { + return 0; + } + } + Dmsg1(800, "calling handler for %s\n", items[i].name); + /* Call item handler */ + items[i].handler(lc, &items[i], i, pass); + i = -1; + break; + } + } + if (i >= 0) { Dmsg2(900, "level=%d id=%s\n", level, lc->str); Dmsg1(900, "Keyword = %s\n", lc->str); scan_err1(lc, _("Keyword \"%s\" not permitted in this resource.\n" "Perhaps you left the trailing brace off of the previous resource."), lc->str); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - break; - - case T_EOB: - level--; - state = p_none; + return 0; + } + break; + + case T_EOB: + level--; + state = p_none; Dmsg0(900, "T_EOB => define new resource\n"); - save_resource(res_type, items, pass); /* save resource */ - break; - - case T_EOL: - break; - - default: - scan_err2(lc, _("unexpected token %d %s in resource definition"), - token, lex_tok_to_str(token)); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } - break; - default: + if (res_all.hdr.name == NULL) { + scan_err0(lc, _("Name not specified for resource")); + return 0; + } + save_resource(res_type, items, pass); /* save resource */ + break; + + case T_EOL: + break; + + default: + scan_err2(lc, _("unexpected token %d %s in resource definition"), + token, lex_tok_to_str(token)); + return 0; + } + break; + default: scan_err1(lc, _("Unknown parser state %d\n"), state); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; - } + return 0; + } } if (state != p_none) { scan_err0(lc, _("End of conf file reached with unclosed resource.")); - set_exit_on_error(1); /* Never reached if exit_on_error == 1 */ - return 0; + return 0; } if (debug_level >= 900 && pass == 2) { - int i; - for (i=r_first; i<=r_last; i++) { - dump_resource(i, res_head[i-r_first], prtmsg, NULL); - } + int i; + for (i=m_r_first; i<=m_r_last; i++) { + dump_resource(i, m_res_head[i-m_r_first], prtmsg, NULL); + } } lc = lex_close_file(lc); } Dmsg0(900, "Leave parse_config()\n"); - set_exit_on_error(1); return 1; } +const char *get_default_configdir() +{ +#if defined(HAVE_WIN32) + HRESULT hr; + static char szConfigDir[MAX_PATH + 1] = { 0 }; + + if (!p_SHGetFolderPath) { + bstrncpy(szConfigDir, DEFAULT_CONFIGDIR, sizeof(szConfigDir)); + return szConfigDir; + } + + if (szConfigDir[0] == '\0') { + hr = p_SHGetFolderPath(NULL, CSIDL_COMMON_APPDATA, NULL, 0, szConfigDir); + + if (SUCCEEDED(hr)) { + bstrncat(szConfigDir, "\\Bacula", sizeof(szConfigDir)); + } else { + bstrncpy(szConfigDir, DEFAULT_CONFIGDIR, sizeof(szConfigDir)); + } + } + return szConfigDir; +#else + return SYSCONFDIR; +#endif +} + +/* + * Returns false on error + * true on OK, with full_path set to where config file should be + */ +static bool +find_config_file(const char *config_file, char *full_path, int max_path) +{ + int file_length = strlen(config_file) + 1; + + /* If a full path specified, use it */ + if (first_path_separator(config_file) != NULL) { + if (file_length > max_path) { + return false; + } + bstrncpy(full_path, config_file, file_length); + return true; + } + + /* config_file is default file name, now find default dir */ + const char *config_dir = get_default_configdir(); + int dir_length = strlen(config_dir); + + if ((dir_length + 1 + file_length) > max_path) { + return false; + } + + memcpy(full_path, config_dir, dir_length + 1); + + if (!IsPathSeparator(full_path[dir_length - 1])) { + full_path[dir_length++] = '/'; + } + + memcpy(&full_path[dir_length], config_file, file_length); + + return true; +} + /********************************************************************* * - * Free configuration resources + * Free configuration resources * */ +void CONFIG::free_resources() +{ + for (int i=m_r_first; i<=m_r_last; i++) { + free_resource(m_res_head[i-m_r_first], i); + m_res_head[i-m_r_first] = NULL; + } +} + +RES **CONFIG::save_resources() +{ + int num = m_r_last - m_r_first + 1; + RES **res = (RES **)malloc(num*sizeof(RES *)); + for (int i=0; i