%{ /* * Copyright (c) 2021-2024 Omar Polo * Copyright (c) 2018 Florian Obser * Copyright (c) 2004, 2005 Esben Norby * Copyright (c) 2004 Ryan McBride * Copyright (c) 2002, 2003, 2004 Henning Brauer * Copyright (c) 2001 Markus Friedl. All rights reserved. * Copyright (c) 2001 Daniel Hartmeier. All rights reserved. * Copyright (c) 2001 Theo de Raadt. All rights reserved. * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ #include "gmid.h" #include #include #include #include #include #include #include #include #include "log.h" struct conf *conf; static const char *default_host = NULL; static uint16_t default_port = 1965; TAILQ_HEAD(files, file) files = TAILQ_HEAD_INITIALIZER(files); static struct file { TAILQ_ENTRY(file) entry; FILE *stream; char *name; size_t ungetpos; size_t ungetsize; u_char *ungetbuf; int eof_reached; int lineno; int errors; } *file, *topfile; struct file *pushfile(const char *, int); int popfile(void); int yyparse(void); int yylex(void); void yyerror(const char *, ...) __attribute__((__format__ (printf, 1, 2))) __attribute__((__nonnull__ (1))); void yywarn(const char *, ...) __attribute__((__format__ (printf, 1, 2))) __attribute__((__nonnull__ (1))); int kw_cmp(const void *, const void *); int lookup(char *); int igetc(void); int lgetc(int); void lungetc(int); int findeol(void); /* * #define YYDEBUG 1 * int yydebug = 1; */ TAILQ_HEAD(symhead, sym) symhead = TAILQ_HEAD_INITIALIZER(symhead); struct sym { TAILQ_ENTRY(sym) entry; int used; int persist; char *name; char *val; }; int symset(const char *, const char *, int); char *symget(const char *); char *ensure_absolute_path(char*); int check_block_code(int); char *check_block_fmt(char*); int check_strip_no(int); int check_prefork_num(int); void advance_loc(void); void advance_proxy(void); int fastcgi_conf(const char *, const char *); void add_param(char *, char *); int getservice(const char *); void listen_on(const char *, const char *); static struct vhost *host; static struct location *loc; static struct proxy *proxy; static char *current_media; static int errors; typedef struct { union { char *string; int number; } v; int lineno; } YYSTYPE; #define YYSTYPE YYSTYPE %} /* for bison: */ /* %define parse.error verbose */ %token ACCESS ALIAS AUTO %token BLOCK %token CA CERT CGI CHROOT CLIENT %token DEFAULT %token FACILITY FASTCGI FOR_HOST %token INCLUDE INDEX IPV6 %token KEY %token LANG LISTEN LOCATION LOG %token OCSP OFF ON %token PARAM PORT PREFORK PROTO PROTOCOLS PROXY %token RELAY_TO REQUIRE RETURN ROOT %token SERVER SNI SOCKET STRIP STYLE SYSLOG %token TCP TOEXT TYPE TYPES %token USE_TLS USER %token VERIFYNAME %token ERROR %token STRING %token NUM %type bool proxy_port %type string numberstring listen_addr %% /* * Allow empty lines at the start of the configuration. */ grammar : nl conf | conf ; conf : /* empty */ | conf include nl | conf varset nl | conf option nl | conf vhost nl | conf types nl | conf error nl { file->errors++; } ; include : INCLUDE STRING { struct file *nfile; if ((nfile = pushfile($2, 0)) == NULL) { yyerror("failed to include file %s", $2); free($2); YYERROR; } free($2); file = nfile; lungetc('\n'); } ; bool : ON { $$ = 1; } | OFF { $$ = 0; } ; string : string STRING { if (asprintf(&$$, "%s%s", $1, $2) == -1) { free($1); free($2); yyerror("string: asprintf: %s", strerror(errno)); YYERROR; } free($1); free($2); } | STRING ; numberstring : NUM { char *s; if (asprintf(&s, "%d", $1) == -1) { yyerror("asprintf: number"); YYERROR; } $$ = s; } | STRING ; varset : STRING '=' string { char *s = $1; while (*s++) { if (isspace((unsigned char)*s)) { yyerror("macro name cannot contain " "whitespaces"); free($1); free($3); YYERROR; } } symset($1, $3, 0); free($1); free($3); } ; option : CHROOT string { if (strlcpy(conf->chroot, $2, sizeof(conf->chroot)) >= sizeof(conf->chroot)) yyerror("chroot path too long"); free($2); } | IPV6 bool { yywarn("option `ipv6' is deprecated," " please use `listen on'"); if ($2) default_host = NULL; else default_host = "0.0.0.0"; } | log | PORT NUM { yywarn("option `port' is deprecated," " please use `listen on'"); default_port = $2; } | PREFORK NUM { conf->prefork = check_prefork_num($2); } | PROTOCOLS string { if (tls_config_parse_protocols(&conf->protos, $2) == -1) yyerror("invalid protocols string \"%s\"", $2); free($2); } | USER string { if (strlcpy(conf->user, $2, sizeof(conf->user)) >= sizeof(conf->user)) yyerror("user name too long"); free($2); } ; log : LOG '{' optnl logopts '}' | LOG logopt ; logopts : /* empty */ | logopts logopt optnl ; logopt : ACCESS string { free(conf->log_access); conf->log_access = $2; } | STYLE string { if (!strcmp("combined", $2)) conf->log_format = LOG_FORMAT_COMBINED; else if (!strcmp("common", $2)) conf->log_format = LOG_FORMAT_COMMON; else if (!strcmp("condensed", $2)) conf->log_format = LOG_FORMAT_CONDENSED; else if (!strcmp("legacy", $2)) conf->log_format = LOG_FORMAT_LEGACY; else yyerror("unknown log style: %s", $2); free($2); } | SYSLOG FACILITY string { const char *str = $3; conf->log_syslog = 1; if (!strncasecmp(str, "LOG_", 4)) str += 4; if (!strcasecmp(str, "daemon")) conf->log_facility = LOG_DAEMON; #ifdef LOG_FTP else if (!strcasecmp(str, "ftp")) conf->log_facility = LOG_FTP; #endif else if (!strcasecmp(str, "local1")) conf->log_facility = LOG_LOCAL1; else if (!strcasecmp(str, "local2")) conf->log_facility = LOG_LOCAL2; else if (!strcasecmp(str, "local3")) conf->log_facility = LOG_LOCAL3; else if (!strcasecmp(str, "local4")) conf->log_facility = LOG_LOCAL4; else if (!strcasecmp(str, "local5")) conf->log_facility = LOG_LOCAL5; else if (!strcasecmp(str, "local6")) conf->log_facility = LOG_LOCAL6; else if (!strcasecmp(str, "local7")) conf->log_facility = LOG_LOCAL7; else if (!strcasecmp(str, "user")) conf->log_facility = LOG_USER; else yywarn("unknown syslog facility `%s'", $3); free($3); } | SYSLOG OFF { conf->log_syslog = 0; } | SYSLOG { conf->log_syslog = 1; } ; vhost : SERVER string { host = new_vhost(); TAILQ_INSERT_HEAD(&conf->hosts, host, vhosts); loc = new_location(); TAILQ_INSERT_HEAD(&host->locations, loc, locations); TAILQ_INIT(&host->proxies); (void) strlcpy(loc->match, "*", sizeof(loc->match)); if (strlcpy(host->domain, $2, sizeof(host->domain)) >= sizeof(host->domain)) yyerror("server name too long: %s", $2); if (strstr($2, "xn--") != NULL) { yywarn("\"%s\" looks like punycode: you " "should use the decoded hostname", $2); } free($2); } '{' optnl servbody '}' { if (host->cert_path == NULL || host->key_path == NULL) yyerror("invalid vhost definition: %s", host->domain); if (TAILQ_EMPTY(&host->addrs)) { char portno[32]; int r; r = snprintf(portno, sizeof(portno), "%d", default_port); if (r < 0 || (size_t)r >= sizeof(portno)) fatal("snprintf"); yywarn("missing `listen on' in server %s," " assuming %s port %d", host->domain, default_host ? default_host : "*", default_port); listen_on(default_host, portno); } } | error '}' { yyerror("bad server directive"); } ; servbody : /* empty */ | servbody servopt optnl | servbody location optnl | servbody proxy optnl ; listen_addr : '*' { $$ = NULL; } | STRING ; servopt : ALIAS string { struct alist *a; a = xcalloc(1, sizeof(*a)); if (strlcpy(a->alias, $2, sizeof(a->alias)) >= sizeof(a->alias)) yyerror("alias too long: %s", $2); free($2); TAILQ_INSERT_TAIL(&host->aliases, a, aliases); } | CERT string { ensure_absolute_path($2); free(host->cert_path); host->cert_path = $2; } | CGI string { free($2); yyerror("`cgi' was removed in gmid 2.0." " Please use fastcgi or proxy instead."); } | KEY string { ensure_absolute_path($2); free(host->key_path); host->key_path = $2; } | OCSP string { ensure_absolute_path($2); free(host->ocsp_path); host->ocsp_path = $2; } | PARAM string '=' string { yywarn("the top-level `param' directive is deprecated." " Please use `fastcgi { param ... }`"); add_param($2, $4); } | LISTEN ON listen_addr { listen_on($3, "1965"); free($3); } | LISTEN ON listen_addr PORT STRING { listen_on($3, $5); free($3); free($5); } | LISTEN ON listen_addr PORT NUM { char portno[32]; int r; r = snprintf(portno, sizeof(portno), "%d", $5); if (r < 0 || (size_t)r >= sizeof(portno)) fatal("snprintf"); listen_on($3, portno); free($3); } | locopt ; proxy : PROXY { advance_proxy(); } proxy_matches '{' optnl proxy_opts '}' { if (*proxy->host == '\0') yyerror("invalid proxy block: missing `relay-to' option"); if ((proxy->cert_path == NULL && proxy->key_path != NULL) || (proxy->cert_path != NULL && proxy->key_path == NULL)) yyerror("invalid proxy block: missing cert or key"); } ; proxy_matches : /* empty */ | proxy_matches proxy_match ; proxy_port : /* empty */ { $$ = 1965; } | PORT STRING { if (($$ = getservice($2)) == -1) yyerror("invalid port number %s", $2); free($2); } | PORT NUM { $$ = $2; } ; proxy_match : PROTO string { if (strlcpy(proxy->match_proto, $2, sizeof(proxy->match_proto)) >= sizeof(proxy->match_proto)) yyerror("proto too long: %s", $2); free($2); } | FOR_HOST string proxy_port { if (strlcpy(proxy->match_host, $2, sizeof(proxy->match_host)) >= sizeof(proxy->match_host)) yyerror("for-host too long: %s", $2); (void) snprintf(proxy->match_port, sizeof(proxy->match_port), "%d", $3); free($2); } ; proxy_opts : /* empty */ | proxy_opts proxy_opt optnl ; proxy_opt : CERT string { free(proxy->cert); ensure_absolute_path($2); proxy->cert_path = $2; } | KEY string { free(proxy->key); ensure_absolute_path($2); proxy->key_path = $2; } | PROTOCOLS string { if (tls_config_parse_protocols(&proxy->protocols, $2) == -1) yyerror("invalid protocols string \"%s\"", $2); free($2); } | RELAY_TO string proxy_port { if (strlcpy(proxy->host, $2, sizeof(proxy->host)) >= sizeof(proxy->host)) yyerror("relay-to host too long: %s", $2); (void) snprintf(proxy->port, sizeof(proxy->port), "%d", $3); free($2); } | REQUIRE CLIENT CA string { ensure_absolute_path($4); proxy->reqca_path = $4; } | SNI string { if (strlcpy(proxy->sni, $2, sizeof(proxy->sni)) >= sizeof(proxy->sni)) yyerror("sni hostname too long: %s", $2); free($2); } | USE_TLS bool { proxy->notls = !$2; } | VERIFYNAME bool { proxy->noverifyname = !$2; } ; location : LOCATION { advance_loc(); } string '{' optnl locopts '}' { /* drop the starting '/' if any */ if (*$3 == '/') memmove($3, $3+1, strlen($3)); if (strlcpy(loc->match, $3, sizeof(loc->match)) >= sizeof(loc->match)) yyerror("location path too long: %s", $3); free($3); } | error '}' ; locopts : /* empty */ | locopts locopt optnl ; locopt : AUTO INDEX bool { loc->auto_index = $3 ? 1 : -1; } | BLOCK RETURN NUM string { check_block_fmt($4); if (strlcpy(loc->block_fmt, $4, sizeof(loc->block_fmt)) >= sizeof(loc->block_fmt)) yyerror("block return meta too long: %s", $4); loc->block_code = check_block_code($3); free($4); } | BLOCK RETURN NUM { (void) strlcpy(loc->block_fmt, "temporary failure", sizeof(loc->block_fmt)); loc->block_code = check_block_code($3); if ($3 >= 30 && $3 < 40) yyerror("missing `meta' for block return %d", $3); } | BLOCK { (void) strlcpy(loc->block_fmt, "temporary failure", sizeof(loc->block_fmt)); loc->block_code = 40; } | DEFAULT TYPE string { if (strlcpy(loc->default_mime, $3, sizeof(loc->default_mime)) >= sizeof(loc->default_mime)) yyerror("default type too long: %s", $3); free($3); } | fastcgi | INDEX string { if (strlcpy(loc->index, $2, sizeof(loc->index)) >= sizeof(loc->index)) yyerror("index string too long: %s", $2); free($2); } | LANG string { if (strlcpy(loc->lang, $2, sizeof(loc->lang)) >= sizeof(loc->lang)) yyerror("lang too long: %s", $2); free($2); } | LOG bool { loc->disable_log = !$2; } | REQUIRE CLIENT CA string { ensure_absolute_path($4); loc->reqca_path = $4; } | ROOT string { if (strlcpy(loc->dir, $2, sizeof(loc->dir)) >= sizeof(loc->dir)) yyerror("root path too long: %s", $2); free($2); } | STRIP NUM { loc->strip = check_strip_no($2); } ; fastcgi : FASTCGI '{' optnl fastcgiopts '}' | FASTCGI fastcgiopt | FASTCGI OFF { loc->fcgi = -1; loc->nofcgi = 1; } | FASTCGI string { yywarn("`fastcgi path' is deprecated. " "Please use `fastcgi socket path' instead."); loc->fcgi = fastcgi_conf($2, NULL); free($2); } ; fastcgiopts : /* empty */ | fastcgiopts fastcgiopt optnl ; fastcgiopt : PARAM string '=' string { add_param($2, $4); } | SOCKET string { loc->fcgi = fastcgi_conf($2, NULL); free($2); } | SOCKET TCP string PORT NUM { char *c; if (asprintf(&c, "%d", $5) == -1) fatal("asprintf"); loc->fcgi = fastcgi_conf($3, c); free($3); free(c); } | SOCKET TCP string { loc->fcgi = fastcgi_conf($3, "9000"); } | SOCKET TCP string PORT string { loc->fcgi = fastcgi_conf($3, $5); free($3); free($5); } | STRIP NUM { loc->fcgi_strip = $2; } ; types : TYPES '{' optnl mediaopts_l '}' ; mediaopts_l : mediaopts_l mediaoptsl nl | mediaoptsl nl ; mediaoptsl : STRING { free(current_media); current_media = $1; } medianames_l | include ; medianames_l : medianames_l medianamesl | medianamesl ; medianamesl : numberstring { if (add_mime(&conf->mime, current_media, $1) == -1) fatal("add_mime"); free($1); } ; nl : '\n' optnl | ';' optnl ; optnl : nl | /*empty*/ ; %% static const struct keyword { const char *word; int token; } keywords[] = { /* these MUST be sorted */ {"access", ACCESS}, {"alias", ALIAS}, {"auto", AUTO}, {"block", BLOCK}, {"ca", CA}, {"cert", CERT}, {"cgi", CGI}, {"chroot", CHROOT}, {"client", CLIENT}, {"default", DEFAULT}, {"facility", FACILITY}, {"fastcgi", FASTCGI}, {"for-host", FOR_HOST}, {"include", INCLUDE}, {"index", INDEX}, {"ipv6", IPV6}, {"key", KEY}, {"lang", LANG}, {"listen", LISTEN}, {"location", LOCATION}, {"log", LOG}, {"ocsp", OCSP}, {"off", OFF}, {"on", ON}, {"param", PARAM}, {"port", PORT}, {"prefork", PREFORK}, {"proto", PROTO}, {"protocols", PROTOCOLS}, {"proxy", PROXY}, {"relay-to", RELAY_TO}, {"require", REQUIRE}, {"return", RETURN}, {"root", ROOT}, {"server", SERVER}, {"sni", SNI}, {"socket", SOCKET}, {"strip", STRIP}, {"style", STYLE}, {"syslog", SYSLOG}, {"tcp", TCP}, {"to-ext", TOEXT}, {"type", TYPE}, {"types", TYPES}, {"use-tls", USE_TLS}, {"user", USER}, {"verifyname", VERIFYNAME}, }; void yyerror(const char *msg, ...) { va_list ap; file->errors++; va_start(ap, msg); fprintf(stderr, "%s:%d error: ", config_path, yylval.lineno); vfprintf(stderr, msg, ap); fprintf(stderr, "\n"); va_end(ap); } void yywarn(const char *msg, ...) { va_list ap; va_start(ap, msg); fprintf(stderr, "%s:%d warning: ", config_path, yylval.lineno); vfprintf(stderr, msg, ap); fprintf(stderr, "\n"); va_end(ap); } int kw_cmp(const void *k, const void *e) { return strcmp(k, ((struct keyword *)e)->word); } int lookup(char *s) { const struct keyword *p; p = bsearch(s, keywords, sizeof(keywords)/sizeof(keywords[0]), sizeof(keywords[0]), kw_cmp); if (p) return p->token; else return STRING; } #define START_EXPAND 1 #define DONE_EXPAND 2 static int expanding; int igetc(void) { int c; while (1) { if (file->ungetpos > 0) c = file->ungetbuf[--file->ungetpos]; else c = getc(file->stream); if (c == START_EXPAND) expanding = 1; else if (c == DONE_EXPAND) expanding = 0; else break; } return c; } int lgetc(int quotec) { int c, next; if (quotec) { if ((c = igetc()) == EOF) { yyerror("reached end of file while parsing " "quoted string"); if (file == topfile || popfile() == EOF) return EOF; return quotec; } return c; } while ((c = igetc()) == '\\') { next = igetc(); if (next != '\n') { c = next; break; } yylval.lineno = file->lineno; file->lineno++; } if (c == EOF) { /* * Fake EOL when hit EOF for the first time. This gets line * count right if last line in included file is syntactically * invalid and has no newline. */ if (file->eof_reached == 0) { file->eof_reached = 1; return '\n'; } while (c == EOF) { if (file == topfile || popfile() == EOF) return EOF; c = igetc(); } } return c; } void lungetc(int c) { if (c == EOF) return; if (file->ungetpos >= file->ungetsize) { void *p = reallocarray(file->ungetbuf, file->ungetsize, 2); if (p == NULL) fatal("lungetc"); file->ungetbuf = p; file->ungetsize *= 2; } file->ungetbuf[file->ungetpos++] = c; } int findeol(void) { int c; /* Skip to either EOF or the first real EOL. */ while (1) { c = lgetc(0); if (c == '\n') { file->lineno++; break; } if (c == EOF) break; } return ERROR; } int yylex(void) { char buf[8096]; char *p, *val; int quotec, next, c; int token; top: p = buf; while ((c = lgetc(0)) == ' ' || c == '\t') ; /* nothing */ yylval.lineno = file->lineno; if (c == '#') while ((c = lgetc(0)) != '\n' && c != EOF) ; /* nothing */ if (c == '$' && !expanding) { while (1) { if ((c = lgetc(0)) == EOF) return 0; if (p + 1 >= buf + sizeof(buf) -1) { yyerror("string too long"); return findeol(); } if (isalnum(c) || c == '_') { *p++ = c; continue; } *p = '\0'; lungetc(c); break; } val = symget(buf); if (val == NULL) { yyerror("macro `%s' not defined", buf); return findeol(); } yylval.v.string = xstrdup(val); return STRING; } if (c == '@' && !expanding) { while (1) { if ((c = lgetc(0)) == EOF) return 0; if (p + 1 >= buf + sizeof(buf) - 1) { yyerror("string too long"); return findeol(); } if (isalnum(c) || c == '_') { *p++ = c; continue; } *p = '\0'; lungetc(c); break; } val = symget(buf); if (val == NULL) { yyerror("macro '%s' not defined", buf); return findeol(); } p = val + strlen(val) - 1; lungetc(DONE_EXPAND); while (p >= val) { lungetc(*p); p--; } lungetc(START_EXPAND); goto top; } switch (c) { case '\'': case '"': quotec = c; while (1) { if ((c = lgetc(quotec)) == EOF) return 0; if (c == '\n') { file->lineno++; continue; } else if (c == '\\') { if ((next = lgetc(quotec)) == EOF) return (0); if (next == quotec || next == ' ' || next == '\t') c = next; else if (next == '\n') { file->lineno++; continue; } else lungetc(next); } else if (c == quotec) { *p = '\0'; break; } else if (c == '\0') { yyerror("invalid syntax"); return findeol(); } if (p + 1 >= buf + sizeof(buf) - 1) { yyerror("string too long"); return findeol(); } *p++ = c; } yylval.v.string = strdup(buf); if (yylval.v.string == NULL) fatal("yylex: strdup"); return STRING; } #define allowed_to_end_number(x) \ (isspace(x) || x == ')' || x ==',' || x == '/' || x == '}' || x == '=') if (c == '-' || isdigit(c)) { do { *p++ = c; if ((size_t)(p-buf) >= sizeof(buf)) { yyerror("string too long"); return findeol(); } } while ((c = lgetc(0)) != EOF && isdigit(c)); lungetc(c); if (p == buf + 1 && buf[0] == '-') goto nodigits; if (c == EOF || allowed_to_end_number(c)) { const char *errstr = NULL; *p = '\0'; yylval.v.number = strtonum(buf, LLONG_MIN, LLONG_MAX, &errstr); if (errstr) { yyerror("\"%s\" invalid number: %s", buf, errstr); return findeol(); } return NUM; } else { nodigits: while (p > buf + 1) lungetc(*--p); c = *--p; if (c == '-') return c; } } #define allowed_in_string(x) \ (isalnum(x) || (ispunct(x) && x != '(' && x != ')' && \ x != '{' && x != '}' && \ x != '!' && x != '=' && x != '#' && \ x != ',' && x != ';')) if (isalnum(c) || c == ':' || c == '_') { do { *p++ = c; if ((size_t)(p-buf) >= sizeof(buf)) { yyerror("string too long"); return findeol(); } } while ((c = lgetc(0)) != EOF && (allowed_in_string(c))); lungetc(c); *p = '\0'; if ((token = lookup(buf)) == STRING) yylval.v.string = xstrdup(buf); return token; } if (c == '\n') { yylval.lineno = file->lineno; file->lineno++; } if (c == EOF) return 0; return c; } struct file * pushfile(const char *name, int secret) { struct file *nfile; nfile = xcalloc(1, sizeof(*nfile)); nfile->name = xstrdup(name); if ((nfile->stream = fopen(nfile->name, "r")) == NULL) { log_warn("can't open %s", nfile->name); free(nfile->name); free(nfile); return NULL; } nfile->lineno = TAILQ_EMPTY(&files) ? 1 : 0; nfile->ungetsize = 16; nfile->ungetbuf = xcalloc(1, nfile->ungetsize); TAILQ_INSERT_TAIL(&files, nfile, entry); return nfile; } int popfile(void) { struct file *prev; if ((prev = TAILQ_PREV(file, files, entry)) != NULL) prev->errors += file->errors; TAILQ_REMOVE(&files, file, entry); fclose(file->stream); free(file->name); free(file->ungetbuf); free(file); file = prev; return file ? 0 : EOF; } int parse_conf(struct conf *c, const char *filename) { struct sym *sym, *next; default_host = NULL; default_port = 1965; conf = c; file = pushfile(filename, 0); if (file == NULL) return -1; topfile = file; yyparse(); errors = file->errors; popfile(); /* Free macros and check which have not been used. */ TAILQ_FOREACH_SAFE(sym, &symhead, entry, next) { /* TODO: warn if !sym->used */ if (!sym->persist) { free(sym->name); free(sym->val); TAILQ_REMOVE(&symhead, sym, entry); free(sym); } } if (errors) return -1; return 0; } int symset(const char *name, const char *val, int persist) { struct sym *sym; TAILQ_FOREACH(sym, &symhead, entry) { if (!strcmp(name, sym->name)) break; } if (sym != NULL) { if (sym->persist) return 0; else { free(sym->name); free(sym->val); TAILQ_REMOVE(&symhead, sym, entry); free(sym); } } sym = xcalloc(1, sizeof(*sym)); sym->name = xstrdup(name); sym->val = xstrdup(val); sym->used = 0; sym->persist = persist; TAILQ_INSERT_TAIL(&symhead, sym, entry); return 0; } int cmdline_symset(char *s) { char *sym, *val; int ret; if ((val = strrchr(s, '=')) == NULL) return -1; sym = xcalloc(1, val - s + 1); memcpy(sym, s, val - s); ret = symset(sym, val + 1, 1); free(sym); return ret; } char * symget(const char *nam) { struct sym *sym; TAILQ_FOREACH(sym, &symhead, entry) { if (strcmp(nam, sym->name) == 0) { sym->used = 1; return sym->val; } } return NULL; } char * ensure_absolute_path(char *path) { if (path == NULL || *path != '/') yyerror("not an absolute path: %s", path); return path; } int check_block_code(int n) { if (n < 10 || n >= 70 || (n >= 20 && n <= 29)) yyerror("invalid block code %d", n); return n; } char * check_block_fmt(char *fmt) { char *s; for (s = fmt; *s; ++s) { if (*s != '%') continue; switch (*++s) { case '%': case 'p': case 'q': case 'P': case 'N': break; default: yyerror("invalid format specifier %%%c", *s); } } return fmt; } int check_strip_no(int n) { if (n <= 0) yyerror("invalid strip number %d", n); return n; } int check_prefork_num(int n) { if (n <= 0 || n >= PROC_MAX_INSTANCES) yyerror("invalid prefork number %d", n); return n; } void advance_loc(void) { loc = new_location(); TAILQ_INSERT_TAIL(&host->locations, loc, locations); } void advance_proxy(void) { proxy = new_proxy(); TAILQ_INSERT_TAIL(&host->proxies, proxy, proxies); } int fastcgi_conf(const char *path, const char *port) { struct fcgi *f; int i = 0; TAILQ_FOREACH(f, &conf->fcgi, fcgi) { if (!strcmp(f->path, path) && ((port == NULL && *f->port == '\0') || !strcmp(f->port, port))) return i; ++i; } f = xcalloc(1, sizeof(*f)); f->id = i; if (strlcpy(f->path, path, sizeof(f->path)) >= sizeof(f->path)) yyerror("fastcgi path is too long: %s", path); if (port != NULL && strlcpy(f->port, port, sizeof(f->port)) >= sizeof(f->port)) yyerror("port too long: %s", port); TAILQ_INSERT_TAIL(&conf->fcgi, f, fcgi); return f->id; } void add_param(char *name, char *val) { struct envlist *e; struct envhead *h = &loc->params; e = xcalloc(1, sizeof(*e)); if (strlcpy(e->name, name, sizeof(e->name)) >= sizeof(e->name)) yyerror("parameter name too long: %s", name); if (strlcpy(e->value, val, sizeof(e->value)) >= sizeof(e->value)) yyerror("param value too long: %s", val); TAILQ_INSERT_TAIL(h, e, envs); } int getservice(const char *n) { struct servent *s; const char *errstr; long long llval; llval = strtonum(n, 0, UINT16_MAX, &errstr); if (errstr) { s = getservbyname(n, "tcp"); if (s == NULL) s = getservbyname(n, "udp"); if (s == NULL) return (-1); return (ntohs(s->s_port)); } return ((unsigned short)llval); } static void add_to_addr_queue(struct addrhead *a, struct addrinfo *ai, const char *pp) { struct address *addr; struct sockaddr_in *sin; struct sockaddr_in6 *sin6; if (ai->ai_addrlen > sizeof(addr->ss)) fatalx("ai_addrlen larger than a sockaddr_storage"); TAILQ_FOREACH(addr, a, addrs) { if (addr->ai_flags == ai->ai_flags && addr->ai_family == ai->ai_family && addr->ai_socktype == ai->ai_socktype && addr->ai_protocol == ai->ai_protocol && addr->slen == ai->ai_addrlen && !memcmp(&addr->ss, ai->ai_addr, addr->slen)) return; } addr = xcalloc(1, sizeof(*addr)); addr->ai_flags = ai->ai_flags; addr->ai_family = ai->ai_family; addr->ai_socktype = ai->ai_socktype; addr->ai_protocol = ai->ai_protocol; addr->slen = ai->ai_addrlen; memcpy(&addr->ss, ai->ai_addr, ai->ai_addrlen); strlcpy(addr->pp, pp, sizeof(addr->pp)); /* for commodity */ switch (addr->ai_family) { case AF_INET: sin = (struct sockaddr_in *)&addr->ss; addr->port = ntohs(sin->sin_port); break; case AF_INET6: sin6 = (struct sockaddr_in6 *)&addr->ss; addr->port = ntohs(sin6->sin6_port); break; default: fatalx("unknown socket family %d", addr->ai_family); } addr->sock = -1; TAILQ_INSERT_HEAD(a, addr, addrs); } void listen_on(const char *hostname, const char *servname) { struct addrinfo hints, *res, *res0; char pp[NI_MAXHOST]; int error; memset(&hints, 0, sizeof(hints)); hints.ai_family = AF_UNSPEC; hints.ai_socktype = SOCK_STREAM; hints.ai_flags = AI_PASSIVE; error = getaddrinfo(hostname, servname, &hints, &res0); if (error) { yyerror("listen on \"%s\" port %s: %s", hostname, servname, gai_strerror(errno)); return; } for (res = res0; res; res = res->ai_next) { if (getnameinfo(res->ai_addr, res->ai_addrlen, pp, sizeof(pp), NULL, 0, NI_NUMERICHOST) == -1) { yyerror("getnameinfo failed: %s", strerror(errno)); break; } add_to_addr_queue(&host->addrs, res, pp); add_to_addr_queue(&conf->addrs, res, pp); } freeaddrinfo(res0); }