static char *
lxl_dns_core_listen(lxl_conf_t *cf, lxl_command_t *cmd, void *conf)
{
size_t off;
lxl_uint_t i, nelts;
lxl_url_t u;
lxl_str_t *value;
in_port_t port;
struct sockaddr *sa;
struct sockaddr_in *sin;
lxl_dns_listen_t *ls;
lxl_dns_core_main_conf_t *cmcf;
value = lxl_array_elts(cf->args);
u.url = value[1];
u.listen = 1;
if (lxl_parse_url(cf->pool, &u) != 0) {
if (u.err) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "%s in \"%s\" of the \"listen\" directive", u.err, u.url.data);
}
return LXL_CONF_ERROR;
}
cmcf = lxl_dns_conf_get_module_main_conf(cf, lxl_dns_core_module);
ls = lxl_array_elts(&cmcf->listens);
nelts = lxl_array_nelts(&cmcf->listens);
for (i = 0; i < nelts; ++i) {
sa = (struct sockaddr *) ls[i].sockaddr;
off = offsetof(struct sockaddr_in, sin_addr);
sin = (struct sockaddr_in *) sa;
port = sin->sin_port;
if (memcmp(ls[i].sockaddr + off, u.sockaddr + off, 4) != 0) {
continue;
}
if (port != u.port) {
continue;
}
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "duplicate \"%s\" address and port again", &u.url);
return LXL_CONF_ERROR;
}
ls = lxl_array_push(&cmcf->listens);
if (ls == NULL) {
return LXL_CONF_ERROR;
}
memset(ls, 0x00, sizeof(lxl_dns_listen_t));
memcpy(ls->sockaddr, u.sockaddr, u.socklen);
ls->socklen = u.socklen;
ls->wildcard = u.wildcard;
ls->ctx = cf->ctx;
return LXL_CONF_OK;
}
static char *
lxl_event_use(lxl_conf_t *cf, lxl_command_t *cmd, void *conf)
{
lxl_event_conf_t *ecf = (lxl_event_conf_t *) conf;
lxl_int_t i;
lxl_str_t *value;
lxl_event_module_t *module;
if (ecf->use != LXL_CONF_UNSET_UINT) {
return "is duplicate";
}
value = lxl_array_elts(cf->args);
for (i = 0; lxl_modules[i]; ++i) {
if (lxl_modules[i]->type != LXL_EVENT_MODULE) {
continue;
}
module = (lxl_event_module_t *) lxl_modules[i]->ctx;
if (module->name->len == value[1].len
&& memcmp(module->name->data, value[1].data, value[1].len) == 0) {
ecf->use = lxl_modules[i]->ctx_index;
ecf->name = module->name->data;
return LXL_CONF_OK;
}
}
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "invalid event type \"%s\"", value[1].data);
return LXL_CONF_ERROR;
}
static char *
lxl_dfst_storage_lowat_check(lxl_conf_t *cf, void *post, void *data)
{
lxl_conf_log_error(LXL_LOG_WARN, cf, 0, "storage_send_lowat is not supoort, ignored");
return LXL_CONF_OK;
}
static char *
lxl_event_connections(lxl_conf_t *cf, lxl_command_t *cmd, void *conf)
{
lxl_event_conf_t *ecf = (lxl_event_conf_t *) conf;
lxl_str_t *value;
if (ecf->connections != LXL_CONF_UNSET_UINT) {
return "is duplicate";
}
value = lxl_array_elts(cf->args);
ecf->connections = atoi(value[1].data);
if (ecf->connections <= 0) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "invalid number \"%s\"", value[1].data);
return LXL_CONF_ERROR;
}
cf->cycle->connection_n = ecf->connections;
return LXL_CONF_OK;
}
static char *
lxl_log_set_log(lxl_conf_t *cf, lxl_command_t *cmd, void *conf)
{
lxl_log_conf_t *lcf = (lxl_log_conf_t *) conf;
int n, use_flush, set_error_level, set_flush_flag;
lxl_uint_t i, nelts, error_level, debug_level;
lxl_str_t *value, name;
lxl_log_t *log;
lxl_cycle_t *cycle;
cycle = cf->cycle;
log = cycle->log;
if (lcf->use_flush != LXL_CONF_UNSET) {
return "is duplicate";
}
nelts = lxl_array_nelts(cf->args);
value = lxl_array_elts(cf->args);
if (value[1].len == 6 && memcmp(value[1].data, "stderr", 6) == 0) {
lcf->use_stderr = 1;
} else {
name = value[1];
if (lxl_get_full_name(cycle->pool, &cycle->prefix, &name) == -1) {
return LXL_CONF_ERROR;
}
if (name.len > LXL_MAX_CONF_PATH) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "error_log path %s is to long", name.data);
return LXL_CONF_ERROR;
}
lcf->file.len = name.len;
lcf->file.data = name.data;
lcf->use_stderr = 0;
}
if (nelts == 2) {
log->use_flush = 0;
log->error_level = LXL_LOG_ERROR;
log->debug_level = 0;
return LXL_CONF_OK;
}
set_error_level = 0;
set_flush_flag = 0;
use_flush = 0;
error_level = LXL_LOG_ERROR;
debug_level = 0;
for (i = 2; i < nelts; ++i) {
n = lxl_log_get_error_level(value[i].data);
if (n != -1) {
if (set_error_level) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "duplicat log level \"%s\"", value[i].data);
return LXL_CONF_ERROR;
}
set_error_level = 1;
error_level = (lxl_uint_t) n;
continue;
}
n = lxl_log_get_debug_level(value[i].data);
if (n != -1) {
debug_level |= (lxl_uint_t) n;
continue;
}
n = lxl_log_get_flush_flag(value[i].data);
if (n != -1) {
if (set_flush_flag) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "duplicat log flush flag \"%s\"", value[i].data);
return LXL_CONF_ERROR;
}
set_flush_flag = 1;
use_flush = n;
continue;
}
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "invalid log arguments \"%s\"", value[i].data);
return LXL_CONF_ERROR;
}
lcf->use_flush = use_flush;
lcf->error_level = error_level;
lcf->debug_level = debug_level;
return LXL_CONF_OK;
}
char *
lxl_conf_parse(lxl_conf_t *cf, lxl_str_t *filename)
{
int fd;
lxl_int_t rc;
lxl_buf_t buf;
lxl_conf_file_t conf_file;
enum {
parse_file = 0,
parse_block
} type;
if (filename) {
fd = open(filename->data, O_RDONLY);
if (fd == -1) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, errno, "open() \"%s\" failed", filename->data);
return LXL_CONF_ERROR;
}
cf->conf_file = &conf_file;
if (lxl_fd_info(fd, &cf->conf_file->file.info) == -1) {
lxl_log_error(LXL_LOG_EMERG, errno, lxl_fd_info_n " \"%s\" failed", filename->data);
}
cf->conf_file->buffer = &buf;
buf.start = lxl_alloc(LXL_CONF_BUFFER);
if (buf.start == NULL) {
goto failed;
}
buf.pos = buf.start;
buf.last = buf.start;
buf.end = buf.last + LXL_CONF_BUFFER;
cf->conf_file->line = 1;
cf->conf_file->file.fd = fd;
cf->conf_file->file.name.len = filename->len;
cf->conf_file->file.name.data = filename->data;
cf->conf_file->file.offset = 0;
cf->conf_file->file.sys_offset = 0;
type = parse_file;
} else {
type = parse_block;
}
for (; ;) {
rc = lxl_conf_read_token(cf);
#if 1
lxl_uint_t i, nelts;
lxl_str_t *value;
nelts = lxl_array_nelts(cf->args);
value = lxl_array_elts(cf->args);
for (i = 0; i < nelts; ++i) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "args: index:%lu value:%s", i, value[i].data);
}
#endif
if (rc == LXL_ERROR) {
goto done;
}
if (rc == LXL_CONF_BLOCK_DONE) {
if (type != parse_block) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected end of file, unexpected \"}\"");
}
goto done;
}
if (rc == LXL_CONF_FILE_DONE) {
if (type == parse_block) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected end of file, expecting \"}\"");
goto failed;
}
goto done;
}
/*if (cf->handler) {
}*/
rc = lxl_conf_handler(cf, rc);
if (rc == -1) {
goto failed;
}
}
failed:
rc = LXL_ERROR;
done:
if (filename) {
if (cf->conf_file->buffer->start) {
lxl_free(cf->conf_file->buffer->start);
}
if (close(fd) == -1) {
lxl_log_error(LXL_LOG_ALERT, errno, "close() %s failed", filename->data);
return LXL_CONF_ERROR;
}
}
if (rc == LXL_ERROR) {
return LXL_CONF_ERROR;
}
return LXL_CONF_OK;
}
static int
lxl_conf_read_token(lxl_conf_t *cf)
{
char ch, *dst, *src, *start;
off_t file_size;
size_t len;
ssize_t n, size;
lxl_str_t *word;
lxl_buf_t *b;
lxl_uint_t found, start_line, last_space, sharp_comment;
found = 0;
last_space = 1;
sharp_comment = 0;
lxl_array_clear(cf->args);
b = cf->conf_file->buffer;
start = b->pos;
start_line = cf->conf_file->line;
file_size = lxl_file_size(&cf->conf_file->file.info);
for (; ;) {
if (b->pos >= b->last) {
if (cf->conf_file->file.offset >= file_size) {
if (cf->args->nelts > 0 || !last_space) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected end file, \";\" or \"}\"");
return LXL_ERROR;
}
return LXL_CONF_FILE_DONE;
}
len = b->pos - start;
if (len == LXL_CONF_BUFFER) {
cf->conf_file->line = start_line;
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "too long paraments \"%*s...\" started", start);
return LXL_ERROR;
}
if (len) {
memmove(b->start, start, len);
}
size = (ssize_t) (file_size - cf->conf_file->file.offset);
if (size > b->end - (b->start + len)) {
size = b->end - (b->start + len);
}
n = lxl_read_file(&cf->conf_file->file, b->start + len, size, cf->conf_file->file.offset);
if (n == -1) {
return -1;
}
if (n != size) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, lxl_read_file_n " returned only %ld bytes instead of %ld", n, size);
return -1;
}
b->pos = b->start + len;
b->last = b->pos + n;
start = b->start;
}
ch = *b->pos++;
if (ch == '\n') {
cf->conf_file->line++;
if (sharp_comment) {
sharp_comment = 0;
}
}
if (sharp_comment) {
continue;
}
if (last_space) {
if (ch == ' ' || ch == '\t' || ch == CR || ch == LF) {
continue;
}
start = b->pos - 1;
start_line = cf->conf_file->line;
switch (ch) {
case ';':
if (lxl_array_nelts(cf->args) == 0) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected \";\"");
return LXL_ERROR;
}
return LXL_OK;
case '{':
if (lxl_array_nelts(cf->args) == 0) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected \"{\"");
return LXL_ERROR;
}
return LXL_CONF_BLOCK_START;
case '}':
if (lxl_array_nelts(cf->args) != 0) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unexpected \"}\"");
return LXL_ERROR;
}
return LXL_CONF_BLOCK_DONE;
case '#':
sharp_comment = 1;
continue;
default:
last_space = 0;
}
} else {
if (ch == ' ' || ch == '\t' || ch == CR || ch == LF || ch == ';' || ch == '{') {
last_space = 1;
found = 1;
}
if (found) {
word = lxl_array_push(cf->args);
if (word == NULL) {
return LXL_ERROR;
}
word->data = lxl_pnalloc(cf->pool, b->pos - start + 1);
if (word == NULL) {
return LXL_ERROR;
}
for (dst = word->data, src = start, len = 0; src < b->pos - 1; ++len) {
*dst++ = *src++;
}
*dst = '\0';
word->len = len;
if (ch == ';') {
return LXL_OK;
}
if (ch == '{') {
return LXL_CONF_BLOCK_START;
}
found = 0;
}
}
}
}
static int
lxl_conf_handler(lxl_conf_t *cf, lxl_int_t last)
{
char *rv;
void *conf, **confp;
lxl_uint_t i, nelts, found;
lxl_str_t *name;
lxl_command_t *cmd;
found = 0;
name = (lxl_str_t *) lxl_array_elts(cf->args);
for (i = 0; lxl_modules[i]; ++i) {
cmd = lxl_modules[i]->commands;
if (cmd == NULL) {
continue;
}
for ( /* void */; cmd->name.len; ++cmd) {
if (name->len == cmd->name.len && memcmp(name->data, cmd->name.data, name->len) == 0) {
found = 1;
if (lxl_modules[i]->type != cf->module_type) {
continue;
}
/* is directive's location right ? */
if (!(cmd->type & cf->cmd_type)) {
continue;
}
if (!(cmd->type & LXL_CONF_BLOCK) && last != LXL_OK) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "directive \"%s\" is not terminated by \";\"", name->data);
return -1;
}
if ((cmd->type & LXL_CONF_BLOCK) && last != LXL_CONF_BLOCK_START) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "directive \"%s\" has not opening \"{\"", name->data);
return -1;
}
nelts = lxl_array_nelts(cf->args);
if (cmd->type & LXL_CONF_FLAG) {
if (nelts != 2) {
goto invalid;
}
} else if (cmd->type & LXL_CONF_1MORE) {
if (nelts < 2) {
goto invalid;
}
} else if (cmd->type & LXL_CONF_2MORE) {
if (nelts < 3) {
goto invalid;
}
} else if (nelts > LXL_CONF_MAX_ARGS) {
goto invalid;
} else if (!(cmd->type & argument_number[nelts - 1])) {
goto invalid;
}
conf = NULL;
if (cmd->type & LXL_DIRECT_CONF) {
conf = ((void **) cf->ctx)[lxl_modules[i]->index];
} else if (cmd->type & LXL_MAIN_CONF) {
conf = &(((void **) cf->ctx)[lxl_modules[i]->index]);
} else if (cf->ctx) {
confp = *(void **) ((char *) cf->ctx + cmd->conf);
if (confp) {
conf = confp[lxl_modules[i]->ctx_index];
}
}
rv = cmd->set(cf, cmd, conf);
if (rv == LXL_CONF_OK) {
return 0;
}
if (rv == LXL_CONF_ERROR) {
return -1;
}
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "\"%s\" directive %s", name->data, rv);
return -1;
}
}
}
if (found) {
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "\"%s\" directive not allowed here", name->data);
return -1;
}
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "unknow directive \"%s\"", name->data);
return -1;
invalid:
lxl_conf_log_error(LXL_LOG_EMERG, cf, 0, "invalid number of arguments in \"%s\"", name->data);
return -1;
}
