etc: Use the send handler from dirplex.d in apache-compat.
[ashd.git] / src / dirplex / conf.c
CommitLineData
992ce9ef
FT
1/*
2 ashd - A Sane HTTP Daemon
3 Copyright (C) 2008 Fredrik Tolf <fredrik@dolda2000.com>
4
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation, either version 3 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>.
17*/
18
19#include <stdlib.h>
20#include <stdio.h>
992ce9ef 21#include <unistd.h>
600a1ce7 22#include <string.h>
992ce9ef 23#include <errno.h>
992ce9ef 24#include <fnmatch.h>
600a1ce7 25#include <sys/stat.h>
992ce9ef
FT
26
27#ifdef HAVE_CONFIG_H
28#include <config.h>
29#endif
30#include <utils.h>
992ce9ef 31#include <log.h>
06c1a718 32#include <cf.h>
b70b2d4f 33#include <resp.h>
992ce9ef 34
600a1ce7 35#include "dirplex.h"
992ce9ef 36
0fc6fd13 37static struct config *cflist;
600a1ce7 38struct config *gconfig, *lconfig;
992ce9ef 39
1eba4f97
FT
40static void freerule(struct rule *rule)
41{
42 freeca(rule->patterns);
43 free(rule);
44}
45
992ce9ef
FT
46static void freepattern(struct pattern *pat)
47{
48 struct rule **rule;
acc2d159 49 struct headmod *head;
992ce9ef 50
1eba4f97
FT
51 for(rule = pat->rules; *rule; rule++)
52 freerule(*rule);
acc2d159
FT
53 while((head = pat->headers) != NULL) {
54 pat->headers = head->next;
55 free(head->name);
56 free(head->value);
57 free(head);
58 }
992ce9ef
FT
59 if(pat->childnm != NULL)
60 free(pat->childnm);
624f637d 61 freeca(pat->fchild);
992ce9ef
FT
62 free(pat);
63}
64
65static void freeconfig(struct config *cf)
66{
67 struct child *ch, *nch;
68 struct pattern *pat, *npat;
69
70 if(cf->prev != NULL)
71 cf->prev->next = cf->next;
72 if(cf->next != NULL)
73 cf->next->prev = cf->prev;
74 if(cf == cflist)
75 cflist = cf->next;
0fc6fd13
FT
76 if(cf->path != NULL)
77 free(cf->path);
992ce9ef
FT
78 for(ch = cf->children; ch != NULL; ch = nch) {
79 nch = ch->next;
80 freechild(ch);
81 }
82 for(pat = cf->patterns; pat != NULL; pat = npat) {
83 npat = pat->next;
84 freepattern(pat);
85 }
6373daf9 86 freeca(cf->index);
300d73d9
FT
87 if(cf->capture != NULL)
88 free(cf->capture);
992ce9ef
FT
89 free(cf);
90}
91
600a1ce7 92struct child *getchild(struct config *cf, char *name)
992ce9ef
FT
93{
94 struct child *ch;
95
96 for(ch = cf->children; ch; ch = ch->next) {
97 if(!strcmp(ch->name, name))
98 break;
99 }
100 return(ch);
101}
102
103static struct rule *newrule(struct pattern *pat)
104{
105 int i;
106 struct rule *rule;
107
108 for(i = 0; pat->rules[i]; i++);
109 pat->rules = srealloc(pat->rules, sizeof(*pat->rules) * (i + 2));
cceb3611 110 rule = pat->rules[i] = szmalloc(sizeof(*rule));
992ce9ef
FT
111 pat->rules[i + 1] = NULL;
112 return(rule);
113}
114
115static struct pattern *newpattern(void)
116{
117 struct pattern *pat;
118
119 omalloc(pat);
120 pat->rules = szmalloc(sizeof(*pat->rules));
121 return(pat);
122}
123
1eba4f97
FT
124static char **cadup(char **w)
125{
126 char **ret;
127 int i, l;
128
129 l = calen(w);
130 ret = smalloc(sizeof(*ret) * (l + 1));
131 for(i = 0; i < l; i++)
132 ret[i] = sstrdup(w[i]);
133 ret[i] = NULL;
134 return(ret);
135}
136
06c1a718
FT
137static struct pattern *parsepattern(struct cfstate *s)
138{
139 struct pattern *pat;
140 struct rule *rule;
acc2d159 141 struct headmod *head;
1eba4f97 142 int sl;
06c1a718
FT
143
144 if(!strcmp(s->argv[0], "match")) {
145 s->expstart = 1;
146 pat = newpattern();
147 } else {
148 return(NULL);
149 }
150
8232cebe
FT
151 if((s->argc > 1) && !strcmp(s->argv[1], "directory"))
152 pat->type = PT_DIR;
06c1a718
FT
153 sl = s->lno;
154 while(1) {
155 getcfline(s);
156 if(!strcmp(s->argv[0], "filename")) {
157 if(s->argc < 2) {
158 flog(LOG_WARNING, "%s:%i: missing pattern for `filename' match", s->file, s->lno);
159 continue;
160 }
161 rule = newrule(pat);
162 rule->type = PAT_BASENAME;
1eba4f97 163 rule->patterns = cadup(s->argv + 1);
06c1a718
FT
164 } else if(!strcmp(s->argv[0], "pathname")) {
165 if(s->argc < 2) {
166 flog(LOG_WARNING, "%s:%i: missing pattern for `pathname' match", s->file, s->lno);
167 continue;
168 }
169 rule = newrule(pat);
170 rule->type = PAT_PATHNAME;
1eba4f97 171 rule->patterns = cadup(s->argv + 1);
06c1a718
FT
172 } else if(!strcmp(s->argv[0], "all")) {
173 newrule(pat)->type = PAT_ALL;
174 } else if(!strcmp(s->argv[0], "default")) {
175 newrule(pat)->type = PAT_DEFAULT;
7711283c
FT
176 } else if(!strcmp(s->argv[0], "local")) {
177 newrule(pat)->type = PAT_LOCAL;
06c1a718
FT
178 } else if(!strcmp(s->argv[0], "handler")) {
179 if(s->argc < 2) {
180 flog(LOG_WARNING, "%s:%i: missing child name for `handler' directive", s->file, s->lno);
181 continue;
182 }
183 if(pat->childnm != NULL)
184 free(pat->childnm);
185 pat->childnm = sstrdup(s->argv[1]);
624f637d 186 } else if(!strcmp(s->argv[0], "fork")) {
1eba4f97 187 pat->fchild = cadup(s->argv + 1);
8cc893f5 188 } else if(!strcmp(s->argv[0], "set") || !strcmp(s->argv[0], "xset")) {
acc2d159 189 if(s->argc < 3) {
8cc893f5 190 flog(LOG_WARNING, "%s:%i: missing header name or pattern for `%s' directive", s->file, s->lno, s->argv[0]);
acc2d159
FT
191 continue;
192 }
193 omalloc(head);
8cc893f5
FT
194 if(!strcmp(s->argv[0], "xset"))
195 head->name = sprintf2("X-Ash-%s", s->argv[1]);
196 else
197 head->name = sstrdup(s->argv[1]);
acc2d159
FT
198 head->value = sstrdup(s->argv[2]);
199 head->next = pat->headers;
200 pat->headers = head;
06c1a718
FT
201 } else if(!strcmp(s->argv[0], "end") || !strcmp(s->argv[0], "eof")) {
202 break;
203 } else {
204 flog(LOG_WARNING, "%s:%i: unknown directive `%s' in pattern declaration", s->file, s->lno, s->argv[0]);
205 }
206 }
207
208 if(pat->rules[0] == NULL) {
209 flog(LOG_WARNING, "%s:%i: missing rules in match declaration", s->file, sl);
210 freepattern(pat);
211 return(NULL);
212 }
624f637d 213 if((pat->childnm == NULL) && (pat->fchild == NULL)) {
06c1a718
FT
214 flog(LOG_WARNING, "%s:%i: missing handler in match declaration", s->file, sl);
215 freepattern(pat);
216 return(NULL);
217 }
218 return(pat);
219}
220
17e55136
FT
221static struct config *emptyconfig(void)
222{
223 struct config *cf;
224
225 omalloc(cf);
226 return(cf);
227}
228
600a1ce7 229struct config *readconfig(char *file)
992ce9ef 230{
06c1a718
FT
231 struct cfstate *s;
232 FILE *in;
992ce9ef 233 struct config *cf;
992ce9ef
FT
234 struct child *child;
235 struct pattern *pat;
992ce9ef 236
17e55136
FT
237 if((in = fopen(file, "r")) == NULL) {
238 flog(LOG_WARNING, "%s: %s", file, strerror(errno));
992ce9ef 239 return(NULL);
06c1a718 240 }
17e55136
FT
241 s = mkcfparser(in, file);
242 cf = emptyconfig();
06c1a718
FT
243
244 while(1) {
245 getcfline(s);
246 if((child = parsechild(s)) != NULL) {
247 child->next = cf->children;
248 cf->children = child;
249 } else if((pat = parsepattern(s)) != NULL) {
250 pat->next = cf->patterns;
251 cf->patterns = pat;
6373daf9
FT
252 } else if(!strcmp(s->argv[0], "index-file")) {
253 freeca(cf->index);
254 cf->index = NULL;
255 if(s->argc > 1)
256 cf->index = cadup(s->argv + 1);
300d73d9
FT
257 } else if(!strcmp(s->argv[0], "capture")) {
258 if(s->argc < 2) {
259 flog(LOG_WARNING, "%s:%i: missing argument to capture declaration", s->file, s->lno);
260 continue;
261 }
262 if(cf->capture != NULL)
263 free(cf->capture);
264 cf->capture = sstrdup(s->argv[1]);
06c1a718
FT
265 } else if(!strcmp(s->argv[0], "eof")) {
266 break;
267 } else {
268 flog(LOG_WARNING, "%s:%i: unknown directive `%s'", s->file, s->lno, s->argv[0]);
992ce9ef 269 }
06c1a718 270 }
992ce9ef 271
06c1a718
FT
272 freecfparser(s);
273 fclose(in);
992ce9ef
FT
274 return(cf);
275}
276
600a1ce7 277struct config *getconfig(char *path)
992ce9ef 278{
a756e349 279 struct config *cf, *ocf;
992ce9ef 280 struct stat sb;
17e55136
FT
281 char *fn;
282 time_t mtime;
992ce9ef 283
17e55136 284 fn = sprintf3("%s/.htrc", path);
992ce9ef
FT
285 for(cf = cflist; cf != NULL; cf = cf->next) {
286 if(!strcmp(cf->path, path)) {
17e55136 287 if(now - cf->lastck > 5) {
0fb57c32 288 cf->lastck = now;
a756e349 289 if(stat(fn, &sb) || (sb.st_mtime != cf->mtime))
17e55136 290 break;
992ce9ef
FT
291 }
292 return(cf);
293 }
294 }
a756e349 295 ocf = cf;
17e55136
FT
296 if(access(fn, R_OK) || stat(fn, &sb)) {
297 cf = emptyconfig();
298 mtime = 0;
299 } else {
300 if((cf = readconfig(fn)) == NULL)
301 return(NULL);
302 mtime = sb.st_mtime;
992ce9ef 303 }
a756e349 304 if(ocf != NULL) {
1924fe8c 305 mergechildren(cf->children, ocf->children);
a756e349
FT
306 freeconfig(ocf);
307 }
17e55136
FT
308 cf->path = sstrdup(path);
309 cf->mtime = mtime;
310 cf->lastck = now;
311 cf->next = cflist;
d245c327
FT
312 cf->prev = NULL;
313 if(cflist != NULL)
314 cflist->prev = cf;
17e55136 315 cflist = cf;
992ce9ef
FT
316 return(cf);
317}
318
600a1ce7 319struct config **getconfigs(char *file)
992ce9ef 320{
8dce6d19
FT
321 static struct config **ret = NULL;
322 struct {
323 struct config **b;
324 size_t s, d;
325 } buf;
992ce9ef 326 struct config *cf;
8dce6d19
FT
327 char *tmp, *p;
328
329 if(ret != NULL)
330 free(ret);
331 bufinit(buf);
332 tmp = sstrdup(file);
992ce9ef 333 while(1) {
8dce6d19 334 if((p = strrchr(tmp, '/')) == NULL)
992ce9ef 335 break;
8dce6d19
FT
336 *p = 0;
337 if((cf = getconfig(tmp)) != NULL)
338 bufadd(buf, cf);
339 }
340 free(tmp);
341 if((cf = getconfig(".")) != NULL)
342 bufadd(buf, cf);
0fc6fd13
FT
343 if(lconfig != NULL)
344 bufadd(buf, lconfig);
345 if(gconfig != NULL)
346 bufadd(buf, gconfig);
8dce6d19
FT
347 bufadd(buf, NULL);
348 return(ret = buf.b);
349}
350
da75c835 351struct child *findchild(char *file, char *name, struct config **cf)
8dce6d19
FT
352{
353 int i;
354 struct config **cfs;
355 struct child *ch;
356
b70b2d4f
FT
357 if(cf != NULL)
358 *cf = NULL;
8dce6d19
FT
359 cfs = getconfigs(file);
360 for(i = 0; cfs[i] != NULL; i++) {
da75c835
FT
361 if((ch = getchild(cfs[i], name)) != NULL) {
362 if(cf != NULL)
363 *cf = cfs[i];
364 return(ch);
365 }
992ce9ef 366 }
b70b2d4f
FT
367 if(!strcmp(name, ".notfound"))
368 return(notfound);
da75c835 369 return(NULL);
992ce9ef
FT
370}
371
600a1ce7 372struct pattern *findmatch(char *file, int trydefault, int dir)
992ce9ef 373{
1eba4f97 374 int i, o, c;
8dce6d19
FT
375 char *bn;
376 struct config **cfs;
992ce9ef
FT
377 struct pattern *pat;
378 struct rule *rule;
7711283c 379 size_t pl;
992ce9ef
FT
380
381 if((bn = strrchr(file, '/')) != NULL)
382 bn++;
383 else
384 bn = file;
8dce6d19
FT
385 cfs = getconfigs(file);
386 for(c = 0; cfs[c] != NULL; c++) {
387 for(pat = cfs[c]->patterns; pat != NULL; pat = pat->next) {
8232cebe
FT
388 if(!dir && (pat->type == PT_DIR))
389 continue;
390 if(dir && (pat->type != PT_DIR))
391 continue;
992ce9ef
FT
392 for(i = 0; (rule = pat->rules[i]) != NULL; i++) {
393 if(rule->type == PAT_BASENAME) {
1eba4f97
FT
394 for(o = 0; rule->patterns[o] != NULL; o++) {
395 if(!fnmatch(rule->patterns[o], bn, 0))
396 break;
397 }
398 if(rule->patterns[o] == NULL)
992ce9ef
FT
399 break;
400 } else if(rule->type == PAT_PATHNAME) {
1eba4f97
FT
401 for(o = 0; rule->patterns[o] != NULL; o++) {
402 if(!fnmatch(rule->patterns[o], file, FNM_PATHNAME))
403 break;
404 }
405 if(rule->patterns[o] == NULL)
992ce9ef
FT
406 break;
407 } else if(rule->type == PAT_ALL) {
408 } else if(rule->type == PAT_DEFAULT) {
409 if(!trydefault)
410 break;
7711283c
FT
411 } else if(rule->type == PAT_LOCAL) {
412 if(cfs[c]->path == NULL)
413 break;
414 pl = strlen(cfs[c]->path);
415 if(!((strlen(file) > pl) && !strncmp(file, cfs[c]->path, pl) && (file[pl] == '/') && !strchr(file + pl + 1, '/')))
416 break;
992ce9ef
FT
417 }
418 }
419 if(!rule)
8dce6d19 420 return(pat);
992ce9ef
FT
421 }
422 }
8232cebe
FT
423 if(!trydefault)
424 return(findmatch(file, 1, dir));
8dce6d19 425 return(NULL);
992ce9ef 426}
b70b2d4f
FT
427
428static int donotfound(struct child *ch, struct hthead *req, int fd, void (*chinit)(void *), void *idata)
429{
430 simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
431 return(0);
432}
433
434static struct chandler i_notfound = {
435 .handle = donotfound,
436};
437
438static struct child s_notfound = {
439 .name = ".notfound",
440 .iface = &i_notfound,
441};
442struct child *notfound = &s_notfound;