Blame


1 15902770 2021-01-15 op /* -*- mode: fundamental; indent-tabs-mode: t; -*- */
2 15902770 2021-01-15 op %{
3 15902770 2021-01-15 op
4 15902770 2021-01-15 op /*
5 15902770 2021-01-15 op * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
6 15902770 2021-01-15 op *
7 15902770 2021-01-15 op * Permission to use, copy, modify, and distribute this software for any
8 15902770 2021-01-15 op * purpose with or without fee is hereby granted, provided that the above
9 15902770 2021-01-15 op * copyright notice and this permission notice appear in all copies.
10 15902770 2021-01-15 op *
11 15902770 2021-01-15 op * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 15902770 2021-01-15 op * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 15902770 2021-01-15 op * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 15902770 2021-01-15 op * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 15902770 2021-01-15 op * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 15902770 2021-01-15 op * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 15902770 2021-01-15 op * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 15902770 2021-01-15 op */
19 15902770 2021-01-15 op
20 002a84a1 2021-02-10 op #include <errno.h>
21 6abda252 2021-02-06 op #include <stdarg.h>
22 15902770 2021-01-15 op #include <stdio.h>
23 32693ee6 2021-01-28 op #include <string.h>
24 15902770 2021-01-15 op
25 15902770 2021-01-15 op #include "gmid.h"
26 15902770 2021-01-15 op
27 15902770 2021-01-15 op /*
28 15902770 2021-01-15 op * #define YYDEBUG 1
29 15902770 2021-01-15 op * int yydebug = 1;
30 15902770 2021-01-15 op */
31 15902770 2021-01-15 op
32 ca21e100 2021-02-04 op struct vhost *host;
33 ca21e100 2021-02-04 op struct location *loc;
34 15902770 2021-01-15 op
35 13ed2fb6 2021-01-27 op int goterror = 0;
36 15902770 2021-01-15 op
37 b8e64ccd 2021-03-31 op static struct vhost *new_vhost(void);
38 b8e64ccd 2021-03-31 op static struct location *new_location(void);
39 b8e64ccd 2021-03-31 op
40 6abda252 2021-02-06 op void yyerror(const char*, ...);
41 13ed2fb6 2021-01-27 op int parse_portno(const char*);
42 13ed2fb6 2021-01-27 op void parse_conf(const char*);
43 e17642a7 2021-02-01 op char *ensure_absolute_path(char*);
44 6abda252 2021-02-06 op int check_block_code(int);
45 6abda252 2021-02-06 op char *check_block_fmt(char*);
46 6abda252 2021-02-06 op int check_strip_no(int);
47 a709ddf5 2021-02-07 op int check_prefork_num(int);
48 49b73ba1 2021-02-10 op void advance_loc(void);
49 c705ecb1 2021-05-03 op void only_once(const void*, const char*);
50 8ad1c570 2021-05-09 op void only_oncei(int, const char*);
51 8ad1c570 2021-05-09 op int fastcgi_conf(char *, char *, char *);
52 c92b802b 2021-06-11 op void add_param(char *, char *, int);
53 13ed2fb6 2021-01-27 op
54 15902770 2021-01-15 op %}
55 15902770 2021-01-15 op
56 15902770 2021-01-15 op /* for bison: */
57 15902770 2021-01-15 op /* %define parse.error verbose */
58 15902770 2021-01-15 op
59 15902770 2021-01-15 op %union {
60 15902770 2021-01-15 op char *str;
61 15902770 2021-01-15 op int num;
62 15902770 2021-01-15 op }
63 15902770 2021-01-15 op
64 d06d6f4b 2021-04-29 op %token TIPV6 TPORT TPROTOCOLS TMIME TDEFAULT TTYPE TCHROOT TUSER TSERVER
65 d06d6f4b 2021-04-29 op %token TPREFORK TLOCATION TCERT TKEY TROOT TCGI TENV TLANG TLOG TINDEX TAUTO
66 8ad1c570 2021-05-09 op %token TSTRIP TBLOCK TRETURN TENTRYPOINT TREQUIRE TCLIENT TCA TALIAS TTCP
67 c92b802b 2021-06-11 op %token TFASTCGI TSPAWN TPARAM
68 d06d6f4b 2021-04-29 op
69 15902770 2021-01-15 op %token TERR
70 15902770 2021-01-15 op
71 15902770 2021-01-15 op %token <str> TSTRING
72 15902770 2021-01-15 op %token <num> TNUM
73 15902770 2021-01-15 op %token <num> TBOOL
74 15902770 2021-01-15 op
75 15902770 2021-01-15 op %%
76 15902770 2021-01-15 op
77 15902770 2021-01-15 op conf : options vhosts ;
78 15902770 2021-01-15 op
79 15902770 2021-01-15 op options : /* empty */
80 15902770 2021-01-15 op | options option
81 15902770 2021-01-15 op ;
82 15902770 2021-01-15 op
83 eb59f87e 2021-02-09 op option : TCHROOT TSTRING { conf.chroot = $2; }
84 eb59f87e 2021-02-09 op | TIPV6 TBOOL { conf.ipv6 = $2; }
85 eb59f87e 2021-02-09 op | TMIME TSTRING TSTRING { add_mime(&conf.mime, $2, $3); }
86 15902770 2021-01-15 op | TPORT TNUM { conf.port = $2; }
87 eb59f87e 2021-02-09 op | TPREFORK TNUM { conf.prefork = check_prefork_num($2); }
88 5bc3c98e 2021-01-15 op | TPROTOCOLS TSTRING {
89 5bc3c98e 2021-01-15 op if (tls_config_parse_protocols(&conf.protos, $2) == -1)
90 002a84a1 2021-02-10 op yyerror("invalid protocols string \"%s\"", $2);
91 5bc3c98e 2021-01-15 op }
92 ae08ec7d 2021-01-25 op | TUSER TSTRING { conf.user = $2; }
93 15902770 2021-01-15 op ;
94 15902770 2021-01-15 op
95 15902770 2021-01-15 op vhosts : /* empty */
96 15902770 2021-01-15 op | vhosts vhost
97 15902770 2021-01-15 op ;
98 15902770 2021-01-15 op
99 b8e64ccd 2021-03-31 op vhost : TSERVER TSTRING {
100 b8e64ccd 2021-03-31 op host = new_vhost();
101 b8e64ccd 2021-03-31 op TAILQ_INSERT_HEAD(&hosts, host, vhosts);
102 b8e64ccd 2021-03-31 op
103 b8e64ccd 2021-03-31 op loc = new_location();
104 b8e64ccd 2021-03-31 op TAILQ_INSERT_HEAD(&host->locations, loc, locations);
105 b8e64ccd 2021-03-31 op
106 b8e64ccd 2021-03-31 op loc->match = xstrdup("*");
107 15902770 2021-01-15 op host->domain = $2;
108 15902770 2021-01-15 op
109 cbeee4ca 2021-01-28 op if (strstr($2, "xn--") != NULL) {
110 cbeee4ca 2021-01-28 op warnx("%s:%d \"%s\" looks like punycode: "
111 415ac7a2 2021-01-28 op "you should use the decoded hostname.",
112 415ac7a2 2021-01-28 op config_path, yylineno, $2);
113 cbeee4ca 2021-01-28 op }
114 b8e64ccd 2021-03-31 op } '{' servopts locations '}' {
115 cbeee4ca 2021-01-28 op
116 fdea6aa0 2021-04-30 op if (host->cert == NULL || host->key == NULL)
117 002a84a1 2021-02-10 op yyerror("invalid vhost definition: %s", $2);
118 15902770 2021-01-15 op }
119 15902770 2021-01-15 op | error '}' { yyerror("error in server directive"); }
120 15902770 2021-01-15 op ;
121 15902770 2021-01-15 op
122 15902770 2021-01-15 op servopts : /* empty */
123 15902770 2021-01-15 op | servopts servopt
124 15902770 2021-01-15 op ;
125 15902770 2021-01-15 op
126 cc8c2901 2021-04-29 op servopt : TALIAS TSTRING {
127 cc8c2901 2021-04-29 op struct alist *a;
128 cc8c2901 2021-04-29 op
129 cc8c2901 2021-04-29 op a = xcalloc(1, sizeof(*a));
130 cc8c2901 2021-04-29 op a->alias = $2;
131 cc8c2901 2021-04-29 op if (TAILQ_EMPTY(&host->aliases))
132 cc8c2901 2021-04-29 op TAILQ_INSERT_HEAD(&host->aliases, a, aliases);
133 cc8c2901 2021-04-29 op else
134 cc8c2901 2021-04-29 op TAILQ_INSERT_TAIL(&host->aliases, a, aliases);
135 cc8c2901 2021-04-29 op }
136 c705ecb1 2021-05-03 op | TCERT TSTRING {
137 c705ecb1 2021-05-03 op only_once(host->cert, "cert");
138 c705ecb1 2021-05-03 op host->cert = ensure_absolute_path($2);
139 c705ecb1 2021-05-03 op }
140 15902770 2021-01-15 op | TCGI TSTRING {
141 c705ecb1 2021-05-03 op only_once(host->cgi, "cgi");
142 15902770 2021-01-15 op /* drop the starting '/', if any */
143 709f4c94 2021-02-04 op if (*$2 == '/')
144 709f4c94 2021-02-04 op memmove($2, $2+1, strlen($2));
145 709f4c94 2021-02-04 op host->cgi = $2;
146 05c23a54 2021-01-19 op }
147 e3ddf390 2021-02-06 op | TENTRYPOINT TSTRING {
148 c705ecb1 2021-05-03 op only_once(host->entrypoint, "entrypoint");
149 e3ddf390 2021-02-06 op while (*$2 == '/')
150 e3ddf390 2021-02-06 op memmove($2, $2+1, strlen($2));
151 e3ddf390 2021-02-06 op host->entrypoint = $2;
152 e3ddf390 2021-02-06 op }
153 9cc630aa 2021-04-28 op | TENV TSTRING TSTRING {
154 c92b802b 2021-06-11 op add_param($2, $3, 1);
155 9cc630aa 2021-04-28 op }
156 c705ecb1 2021-05-03 op | TKEY TSTRING {
157 c705ecb1 2021-05-03 op only_once(host->key, "key");
158 c705ecb1 2021-05-03 op host->key = ensure_absolute_path($2);
159 c92b802b 2021-06-11 op }
160 c92b802b 2021-06-11 op | TPARAM TSTRING TSTRING {
161 c92b802b 2021-06-11 op add_param($2, $3, 0);
162 c705ecb1 2021-05-03 op }
163 c8b74339 2021-01-24 op | locopt
164 c8b74339 2021-01-24 op ;
165 c8b74339 2021-01-24 op
166 c8b74339 2021-01-24 op locations : /* empty */
167 c8b74339 2021-01-24 op | locations location
168 c8b74339 2021-01-24 op ;
169 c8b74339 2021-01-24 op
170 49b73ba1 2021-02-10 op location : TLOCATION { advance_loc(); } TSTRING '{' locopts '}' {
171 49b73ba1 2021-02-10 op /* drop the starting '/' if any */
172 49b73ba1 2021-02-10 op if (*$3 == '/')
173 49b73ba1 2021-02-10 op memmove($3, $3+1, strlen($3));
174 49b73ba1 2021-02-10 op loc->match = $3;
175 6119e13e 2021-01-19 op }
176 c8b74339 2021-01-24 op | error '}'
177 c8b74339 2021-01-24 op ;
178 c8b74339 2021-01-24 op
179 c8b74339 2021-01-24 op locopts : /* empty */
180 c8b74339 2021-01-24 op | locopts locopt
181 c8b74339 2021-01-24 op ;
182 c8b74339 2021-01-24 op
183 eb59f87e 2021-02-09 op locopt : TAUTO TINDEX TBOOL { loc->auto_index = $3 ? 1 : -1; }
184 6abda252 2021-02-06 op | TBLOCK TRETURN TNUM TSTRING {
185 c705ecb1 2021-05-03 op only_once(loc->block_fmt, "block");
186 6abda252 2021-02-06 op loc->block_fmt = check_block_fmt($4);
187 6abda252 2021-02-06 op loc->block_code = check_block_code($3);
188 6abda252 2021-02-06 op }
189 6abda252 2021-02-06 op | TBLOCK TRETURN TNUM {
190 c705ecb1 2021-05-03 op only_once(loc->block_fmt, "block");
191 6abda252 2021-02-06 op loc->block_fmt = xstrdup("temporary failure");
192 6abda252 2021-02-06 op loc->block_code = check_block_code($3);
193 6abda252 2021-02-06 op if ($3 >= 30 && $3 < 40)
194 6abda252 2021-02-06 op yyerror("missing `meta' for block return %d", $3);
195 6abda252 2021-02-06 op }
196 6abda252 2021-02-06 op | TBLOCK {
197 c705ecb1 2021-05-03 op only_once(loc->block_fmt, "block");
198 6abda252 2021-02-06 op loc->block_fmt = xstrdup("temporary failure");
199 6abda252 2021-02-06 op loc->block_code = 40;
200 6abda252 2021-02-06 op }
201 eb59f87e 2021-02-09 op | TDEFAULT TTYPE TSTRING {
202 c705ecb1 2021-05-03 op only_once(loc->default_mime, "default type");
203 eb59f87e 2021-02-09 op loc->default_mime = $3;
204 eb59f87e 2021-02-09 op }
205 0d047efc 2021-05-24 op | TFASTCGI fastcgi
206 eb59f87e 2021-02-09 op | TINDEX TSTRING {
207 c705ecb1 2021-05-03 op only_once(loc->index, "index");
208 eb59f87e 2021-02-09 op loc->index = $2;
209 eb59f87e 2021-02-09 op }
210 eb59f87e 2021-02-09 op | TLANG TSTRING {
211 c705ecb1 2021-05-03 op only_once(loc->lang, "lang");
212 eb59f87e 2021-02-09 op loc->lang = $2;
213 eb59f87e 2021-02-09 op }
214 793835cb 2021-02-23 op | TLOG TBOOL { loc->disable_log = !$2; }
215 02be96c6 2021-02-09 op | TREQUIRE TCLIENT TCA TSTRING {
216 c705ecb1 2021-05-03 op only_once(loc->reqca, "require client ca");
217 adbe6a64 2021-04-30 op ensure_absolute_path($4);
218 02be96c6 2021-02-09 op if ((loc->reqca = load_ca($4)) == NULL)
219 02be96c6 2021-02-09 op yyerror("couldn't load ca cert: %s", $4);
220 02be96c6 2021-02-09 op free($4);
221 fdea6aa0 2021-04-30 op }
222 fdea6aa0 2021-04-30 op | TROOT TSTRING {
223 c705ecb1 2021-05-03 op only_once(loc->dir, "root");
224 fdea6aa0 2021-04-30 op loc->dir = ensure_absolute_path($2);
225 02be96c6 2021-02-09 op }
226 eb59f87e 2021-02-09 op | TSTRIP TNUM { loc->strip = check_strip_no($2); }
227 15902770 2021-01-15 op ;
228 13ed2fb6 2021-01-27 op
229 0d047efc 2021-05-24 op fastcgi : TSPAWN TSTRING {
230 0d047efc 2021-05-24 op only_oncei(loc->fcgi, "fastcgi");
231 0d047efc 2021-05-24 op loc->fcgi = fastcgi_conf(NULL, NULL, $2);
232 0d047efc 2021-05-24 op }
233 0d047efc 2021-05-24 op | TSTRING {
234 0d047efc 2021-05-24 op only_oncei(loc->fcgi, "fastcgi");
235 0d047efc 2021-05-24 op loc->fcgi = fastcgi_conf($1, NULL, NULL);
236 0d047efc 2021-05-24 op }
237 0d047efc 2021-05-24 op | TTCP TSTRING TNUM {
238 0d047efc 2021-05-24 op char *c;
239 0d047efc 2021-05-24 op if (asprintf(&c, "%d", $3) == -1)
240 0d047efc 2021-05-24 op err(1, "asprintf");
241 0d047efc 2021-05-24 op only_oncei(loc->fcgi, "fastcgi");
242 0d047efc 2021-05-24 op loc->fcgi = fastcgi_conf($2, c, NULL);
243 0d047efc 2021-05-24 op }
244 0d047efc 2021-05-24 op | TTCP TSTRING {
245 0d047efc 2021-05-24 op only_oncei(loc->fcgi, "fastcgi");
246 0d047efc 2021-05-24 op loc->fcgi = fastcgi_conf($2, xstrdup("9000"), NULL);
247 0d047efc 2021-05-24 op }
248 0d047efc 2021-05-24 op | TTCP TSTRING TSTRING {
249 0d047efc 2021-05-24 op only_oncei(loc->fcgi, "fastcgi");
250 0d047efc 2021-05-24 op loc->fcgi = fastcgi_conf($2, $3, NULL);
251 0d047efc 2021-05-24 op }
252 0d047efc 2021-05-24 op ;
253 0d047efc 2021-05-24 op
254 13ed2fb6 2021-01-27 op %%
255 b8e64ccd 2021-03-31 op
256 b8e64ccd 2021-03-31 op static struct vhost *
257 b8e64ccd 2021-03-31 op new_vhost(void)
258 b8e64ccd 2021-03-31 op {
259 b8e64ccd 2021-03-31 op return xcalloc(1, sizeof(struct vhost));
260 b8e64ccd 2021-03-31 op }
261 13ed2fb6 2021-01-27 op
262 b8e64ccd 2021-03-31 op static struct location *
263 b8e64ccd 2021-03-31 op new_location(void)
264 b8e64ccd 2021-03-31 op {
265 fdea6aa0 2021-04-30 op struct location *l;
266 fdea6aa0 2021-04-30 op
267 fdea6aa0 2021-04-30 op l = xcalloc(1, sizeof(*l));
268 fdea6aa0 2021-04-30 op l->dirfd = -1;
269 8ad1c570 2021-05-09 op l->fcgi = -1;
270 fdea6aa0 2021-04-30 op return l;
271 b8e64ccd 2021-03-31 op }
272 b8e64ccd 2021-03-31 op
273 13ed2fb6 2021-01-27 op void
274 6abda252 2021-02-06 op yyerror(const char *msg, ...)
275 13ed2fb6 2021-01-27 op {
276 6abda252 2021-02-06 op va_list ap;
277 6abda252 2021-02-06 op
278 13ed2fb6 2021-01-27 op goterror = 1;
279 6abda252 2021-02-06 op
280 6abda252 2021-02-06 op va_start(ap, msg);
281 6abda252 2021-02-06 op fprintf(stderr, "%s:%d: ", config_path, yylineno);
282 6abda252 2021-02-06 op vfprintf(stderr, msg, ap);
283 a1373913 2021-02-07 op fprintf(stderr, "\n");
284 6abda252 2021-02-06 op va_end(ap);
285 13ed2fb6 2021-01-27 op }
286 13ed2fb6 2021-01-27 op
287 13ed2fb6 2021-01-27 op int
288 13ed2fb6 2021-01-27 op parse_portno(const char *p)
289 13ed2fb6 2021-01-27 op {
290 13ed2fb6 2021-01-27 op const char *errstr;
291 13ed2fb6 2021-01-27 op int n;
292 13ed2fb6 2021-01-27 op
293 13ed2fb6 2021-01-27 op n = strtonum(p, 0, UINT16_MAX, &errstr);
294 13ed2fb6 2021-01-27 op if (errstr != NULL)
295 2d34f732 2021-02-10 op yyerror("port number is %s: %s", errstr, p);
296 13ed2fb6 2021-01-27 op return n;
297 13ed2fb6 2021-01-27 op }
298 13ed2fb6 2021-01-27 op
299 13ed2fb6 2021-01-27 op void
300 13ed2fb6 2021-01-27 op parse_conf(const char *path)
301 13ed2fb6 2021-01-27 op {
302 13ed2fb6 2021-01-27 op config_path = path;
303 13ed2fb6 2021-01-27 op if ((yyin = fopen(path, "r")) == NULL)
304 48b69cb2 2021-04-28 op err(1, "cannot open config: %s", path);
305 13ed2fb6 2021-01-27 op yyparse();
306 13ed2fb6 2021-01-27 op fclose(yyin);
307 13ed2fb6 2021-01-27 op
308 13ed2fb6 2021-01-27 op if (goterror)
309 13ed2fb6 2021-01-27 op exit(1);
310 b8e64ccd 2021-03-31 op
311 b8e64ccd 2021-03-31 op if (TAILQ_FIRST(&hosts)->domain == NULL)
312 48b69cb2 2021-04-28 op errx(1, "no vhost defined in %s", path);
313 13ed2fb6 2021-01-27 op }
314 e17642a7 2021-02-01 op
315 e17642a7 2021-02-01 op char *
316 e17642a7 2021-02-01 op ensure_absolute_path(char *path)
317 e17642a7 2021-02-01 op {
318 e17642a7 2021-02-01 op if (path == NULL || *path != '/')
319 adbe6a64 2021-04-30 op yyerror("not an absolute path: %s", path);
320 e17642a7 2021-02-01 op return path;
321 e17642a7 2021-02-01 op }
322 6abda252 2021-02-06 op
323 6abda252 2021-02-06 op int
324 6abda252 2021-02-06 op check_block_code(int n)
325 6abda252 2021-02-06 op {
326 6abda252 2021-02-06 op if (n < 10 || n >= 70 || (n >= 20 && n <= 29))
327 6abda252 2021-02-06 op yyerror("invalid block code %d", n);
328 6abda252 2021-02-06 op return n;
329 6abda252 2021-02-06 op }
330 6abda252 2021-02-06 op
331 6abda252 2021-02-06 op char *
332 6abda252 2021-02-06 op check_block_fmt(char *fmt)
333 6abda252 2021-02-06 op {
334 6abda252 2021-02-06 op char *s;
335 6abda252 2021-02-06 op
336 6abda252 2021-02-06 op for (s = fmt; *s; ++s) {
337 6abda252 2021-02-06 op if (*s != '%')
338 6abda252 2021-02-06 op continue;
339 6abda252 2021-02-06 op switch (*++s) {
340 6abda252 2021-02-06 op case '%':
341 6abda252 2021-02-06 op case 'p':
342 6abda252 2021-02-06 op case 'q':
343 6abda252 2021-02-06 op case 'P':
344 6abda252 2021-02-06 op case 'N':
345 6abda252 2021-02-06 op break;
346 6abda252 2021-02-06 op default:
347 6abda252 2021-02-06 op yyerror("invalid format specifier %%%c", *s);
348 6abda252 2021-02-06 op }
349 6abda252 2021-02-06 op }
350 6abda252 2021-02-06 op
351 6abda252 2021-02-06 op return fmt;
352 6abda252 2021-02-06 op }
353 6abda252 2021-02-06 op
354 6abda252 2021-02-06 op int
355 6abda252 2021-02-06 op check_strip_no(int n)
356 6abda252 2021-02-06 op {
357 6abda252 2021-02-06 op if (n <= 0)
358 6abda252 2021-02-06 op yyerror("invalid strip number %d", n);
359 a709ddf5 2021-02-07 op return n;
360 a709ddf5 2021-02-07 op }
361 a709ddf5 2021-02-07 op
362 a709ddf5 2021-02-07 op int
363 a709ddf5 2021-02-07 op check_prefork_num(int n)
364 a709ddf5 2021-02-07 op {
365 2c3e53da 2021-03-03 op if (n <= 0 || n >= PROC_MAX)
366 a709ddf5 2021-02-07 op yyerror("invalid prefork number %d", n);
367 6abda252 2021-02-06 op return n;
368 6abda252 2021-02-06 op }
369 49b73ba1 2021-02-10 op
370 49b73ba1 2021-02-10 op void
371 49b73ba1 2021-02-10 op advance_loc(void)
372 49b73ba1 2021-02-10 op {
373 b8e64ccd 2021-03-31 op loc = new_location();
374 b8e64ccd 2021-03-31 op TAILQ_INSERT_TAIL(&host->locations, loc, locations);
375 49b73ba1 2021-02-10 op }
376 c705ecb1 2021-05-03 op
377 c705ecb1 2021-05-03 op void
378 c705ecb1 2021-05-03 op only_once(const void *ptr, const char *name)
379 c705ecb1 2021-05-03 op {
380 c705ecb1 2021-05-03 op if (ptr != NULL)
381 c705ecb1 2021-05-03 op yyerror("`%s' specified more than once", name);
382 c705ecb1 2021-05-03 op }
383 8ad1c570 2021-05-09 op
384 8ad1c570 2021-05-09 op void
385 8ad1c570 2021-05-09 op only_oncei(int i, const char *name)
386 8ad1c570 2021-05-09 op {
387 8ad1c570 2021-05-09 op if (i != -1)
388 8ad1c570 2021-05-09 op yyerror("`%s' specified more than once", name);
389 8ad1c570 2021-05-09 op }
390 8ad1c570 2021-05-09 op
391 8ad1c570 2021-05-09 op int
392 8ad1c570 2021-05-09 op fastcgi_conf(char *path, char *port, char *prog)
393 8ad1c570 2021-05-09 op {
394 8ad1c570 2021-05-09 op struct fcgi *f;
395 8ad1c570 2021-05-09 op int i;
396 8ad1c570 2021-05-09 op
397 8ad1c570 2021-05-09 op for (i = 0; i < FCGI_MAX; ++i) {
398 8ad1c570 2021-05-09 op f = &fcgi[i];
399 8ad1c570 2021-05-09 op
400 8ad1c570 2021-05-09 op if (f->path == NULL) {
401 8ad1c570 2021-05-09 op f->id = i;
402 8ad1c570 2021-05-09 op f->path = path;
403 8ad1c570 2021-05-09 op f->port = port;
404 8ad1c570 2021-05-09 op f->prog = prog;
405 8ad1c570 2021-05-09 op return i;
406 8ad1c570 2021-05-09 op }
407 8ad1c570 2021-05-09 op
408 8ad1c570 2021-05-09 op /* XXX: what to do with prog? */
409 8ad1c570 2021-05-09 op if (!strcmp(f->path, path) &&
410 8ad1c570 2021-05-09 op ((port == NULL && f->port == NULL) ||
411 8ad1c570 2021-05-09 op !strcmp(f->port, port))) {
412 8ad1c570 2021-05-09 op free(path);
413 8ad1c570 2021-05-09 op free(port);
414 8ad1c570 2021-05-09 op return i;
415 8ad1c570 2021-05-09 op }
416 8ad1c570 2021-05-09 op }
417 8ad1c570 2021-05-09 op
418 8ad1c570 2021-05-09 op yyerror("too much `fastcgi' rules defined.");
419 8ad1c570 2021-05-09 op return -1;
420 c92b802b 2021-06-11 op }
421 c92b802b 2021-06-11 op
422 c92b802b 2021-06-11 op void
423 c92b802b 2021-06-11 op add_param(char *name, char *val, int env)
424 c92b802b 2021-06-11 op {
425 c92b802b 2021-06-11 op struct envlist *e;
426 c92b802b 2021-06-11 op struct envhead *h;
427 c92b802b 2021-06-11 op
428 c92b802b 2021-06-11 op if (env)
429 c92b802b 2021-06-11 op h = &host->env;
430 c92b802b 2021-06-11 op else
431 c92b802b 2021-06-11 op h = &host->params;
432 c92b802b 2021-06-11 op
433 c92b802b 2021-06-11 op e = xcalloc(1, sizeof(*e));
434 c92b802b 2021-06-11 op e->name = name;
435 c92b802b 2021-06-11 op e->value = val;
436 c92b802b 2021-06-11 op if (TAILQ_EMPTY(h))
437 c92b802b 2021-06-11 op TAILQ_INSERT_HEAD(h, e, envs);
438 c92b802b 2021-06-11 op else
439 c92b802b 2021-06-11 op TAILQ_INSERT_TAIL(h, e, envs);
440 8ad1c570 2021-05-09 op }