[ashd.git] / src / dirplex.c

/*
    ashd - A Sane HTTP Daemon
    Copyright (C) 2008  Fredrik Tolf <fredrik@dolda2000.com>

    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 3 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, see <http://www.gnu.org/licenses/>.
*/

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <sys/stat.h>
#include <ctype.h>
#include <dirent.h>
#include <fnmatch.h>
#include <time.h>

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <utils.h>
#include <mt.h>
#include <log.h>
#include <req.h>
#include <proc.h>
#include <resp.h>
#include <cf.h>

#define PAT_BASENAME 0
#define PAT_PATHNAME 1
#define PAT_ALL 2
#define PAT_DEFAULT 3

struct config {
    struct config *next, *prev;
    char *path;
    time_t mtime, lastck;
    struct child *children;
    struct pattern *patterns;
};

struct rule {
    int type;
    char *pattern;
};

struct pattern {
    struct pattern *next;
    char *childnm;
    struct rule **rules;
};

static struct config *cflist;
static struct config *gconfig, *lconfig;
static time_t now;

static void freepattern(struct pattern *pat)
{
    struct rule **rule;
    
    for(rule = pat->rules; *rule; rule++) {
	if((*rule)->pattern != NULL)
	    free((*rule)->pattern);
	free(*rule);
    }
    if(pat->childnm != NULL)
	free(pat->childnm);
    free(pat);
}

static void freeconfig(struct config *cf)
{
    struct child *ch, *nch;
    struct pattern *pat, *npat;
    
    if(cf->prev != NULL)
	cf->prev->next = cf->next;
    if(cf->next != NULL)
	cf->next->prev = cf->prev;
    if(cf == cflist)
	cflist = cf->next;
    if(cf->path != NULL)
	free(cf->path);
    for(ch = cf->children; ch != NULL; ch = nch) {
	nch = ch->next;
	freechild(ch);
    }
    for(pat = cf->patterns; pat != NULL; pat = npat) {
	npat = pat->next;
	freepattern(pat);
    }
    free(cf);
}

static struct child *getchild(struct config *cf, char *name)
{
    struct child *ch;
    
    for(ch = cf->children; ch; ch = ch->next) {
	if(!strcmp(ch->name, name))
	    break;
    }
    return(ch);
}

static struct rule *newrule(struct pattern *pat)
{
    int i;
    struct rule *rule;
    
    for(i = 0; pat->rules[i]; i++);
    pat->rules = srealloc(pat->rules, sizeof(*pat->rules) * (i + 2));
    rule = pat->rules[i] = szmalloc(sizeof(*rule));
    pat->rules[i + 1] = NULL;
    return(rule);
}

static struct pattern *newpattern(void)
{
    struct pattern *pat;
    
    omalloc(pat);
    pat->rules = szmalloc(sizeof(*pat->rules));
    return(pat);
}

static struct pattern *parsepattern(struct cfstate *s)
{
    struct pattern *pat;
    struct rule *rule;
    int sl;

    if(!strcmp(s->argv[0], "match")) {
	s->expstart = 1;
	pat = newpattern();
    } else {
	return(NULL);
    }
    
    sl = s->lno;
    while(1) {
	getcfline(s);
	if(!strcmp(s->argv[0], "filename")) {
	    if(s->argc < 2) {
		flog(LOG_WARNING, "%s:%i: missing pattern for `filename' match", s->file, s->lno);
		continue;
	    }
	    rule = newrule(pat);
	    rule->type = PAT_BASENAME;
	    rule->pattern = sstrdup(s->argv[1]);
	} else if(!strcmp(s->argv[0], "pathname")) {
	    if(s->argc < 2) {
		flog(LOG_WARNING, "%s:%i: missing pattern for `pathname' match", s->file, s->lno);
		continue;
	    }
	    rule = newrule(pat);
	    rule->type = PAT_PATHNAME;
	    rule->pattern = sstrdup(s->argv[1]);
	} else if(!strcmp(s->argv[0], "all")) {
	    newrule(pat)->type = PAT_ALL;
	} else if(!strcmp(s->argv[0], "default")) {
	    newrule(pat)->type = PAT_DEFAULT;
	} else if(!strcmp(s->argv[0], "handler")) {
	    if(s->argc < 2) {
		flog(LOG_WARNING, "%s:%i: missing child name for `handler' directive", s->file, s->lno);
		continue;
	    }
	    if(pat->childnm != NULL)
		free(pat->childnm);
	    pat->childnm = sstrdup(s->argv[1]);
	} else if(!strcmp(s->argv[0], "end") || !strcmp(s->argv[0], "eof")) {
	    break;
	} else {
	    flog(LOG_WARNING, "%s:%i: unknown directive `%s' in pattern declaration", s->file, s->lno, s->argv[0]);
	}
    }
    
    if(pat->rules[0] == NULL) {
	flog(LOG_WARNING, "%s:%i: missing rules in match declaration", s->file, sl);
	freepattern(pat);
	return(NULL);
    }
    if(pat->childnm == NULL) {
	flog(LOG_WARNING, "%s:%i: missing handler in match declaration", s->file, sl);
	freepattern(pat);
	return(NULL);
    }
    return(pat);
}

static struct config *emptyconfig(void)
{
    struct config *cf;
    
    omalloc(cf);
    return(cf);
}

static struct config *readconfig(char *file)
{
    struct cfstate *s;
    FILE *in;
    struct config *cf;
    struct child *child;
    struct pattern *pat;
    
    if((in = fopen(file, "r")) == NULL) {
	flog(LOG_WARNING, "%s: %s", file, strerror(errno));
	return(NULL);
    }
    s = mkcfparser(in, file);
    cf = emptyconfig();
    
    while(1) {
	getcfline(s);
	if((child = parsechild(s)) != NULL) {
	    child->next = cf->children;
	    cf->children = child;
	} else if((pat = parsepattern(s)) != NULL) {
	    pat->next = cf->patterns;
	    cf->patterns = pat;
	} else if(!strcmp(s->argv[0], "eof")) {
	    break;
	} else {
	    flog(LOG_WARNING, "%s:%i: unknown directive `%s'", s->file, s->lno, s->argv[0]);
	}
    }
    
    freecfparser(s);
    fclose(in);
    return(cf);
}

static struct config *getconfig(char *path)
{
    struct config *cf;
    struct stat sb;
    char *fn;
    time_t mtime;
    
    fn = sprintf3("%s/.htrc", path);
    for(cf = cflist; cf != NULL; cf = cf->next) {
	if(!strcmp(cf->path, path)) {
	    if(now - cf->lastck > 5) {
		if(stat(fn, &sb) || (sb.st_mtime != cf->mtime)) {
		    freeconfig(cf);
		    break;
		}
	    }
	    cf->lastck = now;
	    return(cf);
	}
    }
    if(access(fn, R_OK) || stat(fn, &sb)) {
	cf = emptyconfig();
	mtime = 0;
    } else {
	if((cf = readconfig(fn)) == NULL)
	    return(NULL);
	mtime = sb.st_mtime;
    }
    cf->path = sstrdup(path);
    cf->mtime = mtime;
    cf->lastck = now;
    cf->next = cflist;
    cflist = cf;
    return(cf);
}

static struct config **getconfigs(char *file)
{
    static struct config **ret = NULL;
    struct {
	struct config **b;
	size_t s, d;
    } buf;
    struct config *cf;
    char *tmp, *p;
    
    if(ret != NULL)
	free(ret);
    bufinit(buf);
    tmp = sstrdup(file);
    while(1) {
	if((p = strrchr(tmp, '/')) == NULL)
	    break;
	*p = 0;
	if((cf = getconfig(tmp)) != NULL)
	    bufadd(buf, cf);
    }
    free(tmp);
    if((cf = getconfig(".")) != NULL)
	bufadd(buf, cf);
    if(lconfig != NULL)
	bufadd(buf, lconfig);
    if(gconfig != NULL)
	bufadd(buf, gconfig);
    bufadd(buf, NULL);
    return(ret = buf.b);
}

static struct child *findchild(char *file, char *name)
{
    int i;
    struct config **cfs;
    struct child *ch;
    
    cfs = getconfigs(file);
    for(i = 0; cfs[i] != NULL; i++) {
	if((ch = getchild(cfs[i], name)) != NULL)
	    break;
    }
    return(ch);
}

static struct pattern *findmatch(char *file, int trydefault)
{
    int i, c;
    char *bn;
    struct config **cfs;
    struct pattern *pat;
    struct rule *rule;
    
    if((bn = strrchr(file, '/')) != NULL)
	bn++;
    else
	bn = file;
    cfs = getconfigs(file);
    for(c = 0; cfs[c] != NULL; c++) {
	for(pat = cfs[c]->patterns; pat != NULL; pat = pat->next) {
	    for(i = 0; (rule = pat->rules[i]) != NULL; i++) {
		if(rule->type == PAT_BASENAME) {
		    if(fnmatch(rule->pattern, bn, 0))
			break;
		} else if(rule->type == PAT_PATHNAME) {
		    if(fnmatch(rule->pattern, file, FNM_PATHNAME))
			break;
		} else if(rule->type == PAT_ALL) {
		} else if(rule->type == PAT_DEFAULT) {
		    if(!trydefault)
			break;
		}
	    }
	    if(!rule)
		return(pat);
	}
    }
    return(NULL);
}

static void handlefile(struct hthead *req, int fd, char *path)
{
    struct pattern *pat;
    struct child *ch;

    headappheader(req, "X-Ash-File", path);
    if(((pat = findmatch(path, 0)) == NULL) && ((pat = findmatch(path, 1)) == NULL)) {
	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
	return;
    }
    if((ch = findchild(path, pat->childnm)) == NULL) {
	flog(LOG_ERR, "child %s requested, but was not declared", pat->childnm);
	simpleerror(fd, 500, "Configuration Error", "The server is erroneously configured. Handler %s was requested, but not declared.", pat->childnm);
	return;
    }
    
    if(childhandle(ch, req, fd))
	simpleerror(fd, 500, "Server Error", "The request handler crashed.");
}

static void handledir(struct hthead *req, int fd, char *path)
{
    /* XXX: Todo */
    simpleerror(fd, 403, "Not Authorized", "Will not send directory listings or indices yet.");
}

static int checkdir(struct hthead *req, int fd, char *path)
{
    return(0);
}

static void serve(struct hthead *req, int fd)
{
    char *p, *p2, *path, *tmp, *buf, *p3, *nm;
    struct stat sb;
    DIR *dir;
    struct dirent *dent;
    
    now = time(NULL);
    nm = req->rest;
    path = sstrdup(".");
    p = nm;
    while(1) {
	if((p2 = strchr(p, '/')) == NULL) {
	} else {
	    *(p2++) = 0;
	}
	
	if(!*p) {
	    if(p2 == NULL) {
		if(stat(path, &sb)) {
		    flog(LOG_WARNING, "failed to stat previously stated directory %s: %s", path, strerror(errno));
		    simpleerror(fd, 500, "Internal Server Error", "The server encountered an unexpected condition.");
		    goto fail;
		}
		break;
	    } else {
		simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
		goto fail;
	    }
	}
	if(*p == '.') {
	    simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
	    goto fail;
	}
	
	getconfig(path);
	
	/*
	 * First, check the name verbatimely:
	 */
	buf = sprintf3("%s/%s", path, p);
	if(!stat(buf, &sb)) {
	    if(S_ISDIR(sb.st_mode)) {
		tmp = path;
		if(!strcmp(path, "."))
		    path = sstrdup(p);
		else
		    path = sprintf2("%s/%s", path, p);
		free(tmp);
		if(p2 == NULL) {
		    stdredir(req, fd, 301, sprintf3("%s/", p));
		    goto out;
		}
		if(checkdir(req, fd, path))
		    break;
		goto next;
	    }
	    if(S_ISREG(sb.st_mode)) {
		tmp = path;
		path = sprintf2("%s/%s", path, p);
		free(tmp);
		break;
	    }
	    simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
	    goto fail;
	}

	/*
	 * Check the file extensionlessly:
	 */
	if(!strchr(p, '.') && ((dir = opendir(path)) != NULL)) {
	    while((dent = readdir(dir)) != NULL) {
		buf = sprintf3("%s/%s", path, dent->d_name);
		if((p3 = strchr(dent->d_name, '.')) != NULL)
		    *p3 = 0;
		if(strcmp(dent->d_name, p))
		    continue;
		if(stat(buf, &sb))
		    continue;
		if(!S_ISREG(sb.st_mode))
		    continue;
		tmp = path;
		path = sstrdup(buf);
		free(tmp);
		break;
	    }
	    closedir(dir);
	    if(dent != NULL)
		break;
	}
	
	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
	goto fail;
	
    next:
	if(p2 == NULL)
	    break;
	p = p2;
    }
    if(p2 == NULL)
	replrest(req, "");
    else
	replrest(req, p2);
    if(!strncmp(path, "./", 2))
	memmove(path, path + 2, strlen(path + 2) + 1);
    if(S_ISDIR(sb.st_mode)) {
	handledir(req, fd, path);
    } else if(S_ISREG(sb.st_mode)) {
	handlefile(req, fd, path);
    } else {
	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
	goto fail;
    }
    goto out;
    
fail:
    /* No special handling, for now at least. */
out:
    free(path);
}

static void usage(FILE *out)
{
    fprintf(out, "usage: dirplex [-hN] [-c CONFIG] DIR\n");
}

int main(int argc, char **argv)
{
    int c;
    int nodef;
    char *gcf, *lcf;
    struct hthead *req;
    int fd;
    
    nodef = 0;
    lcf = NULL;
    while((c = getopt(argc, argv, "hNc:")) >= 0) {
	switch(c) {
	case 'h':
	    usage(stdout);
	    exit(0);
	case 'N':
	    nodef = 1;
	    break;
	case 'c':
	    lcf = optarg;
	    break;
	default:
	    usage(stderr);
	    exit(1);
	}
    }
    if(argc - optind < 1) {
	usage(stderr);
	exit(1);
    }
    if(!nodef) {
	if((gcf = findstdconf("ashd/dirplex.rc")) != NULL) {
	    gconfig = readconfig(gcf);
	    free(gcf);
	}
    }
    if(lcf != NULL) {
	if((lconfig = readconfig(lcf)) == NULL)
	    exit(1);
    }
    if(chdir(argv[optind])) {
	flog(LOG_ERR, "could not change directory to %s: %s", argv[optind], strerror(errno));
	exit(1);
    }
    signal(SIGCHLD, SIG_IGN);
    while(1) {
	if((fd = recvreq(0, &req)) < 0) {
	    if(errno != 0)
		flog(LOG_ERR, "recvreq: %s", strerror(errno));
	    break;
	}
	serve(req, fd);
	freehthead(req);
	close(fd);
    }
    return(0);
}
Commit	Line	Data
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>
	21	#include <string.h>
	22	#include <unistd.h>
	23	#include <errno.h>
	24	#include <sys/stat.h>
	25	#include <ctype.h>
	26	#include <dirent.h>
	27	#include <fnmatch.h>
17e55136	28	#include <time.h>
992ce9ef FT	29
	30	#ifdef HAVE_CONFIG_H
	31	#include <config.h>
	32	#endif
	33	#include <utils.h>
	34	#include <mt.h>
	35	#include <log.h>
	36	#include <req.h>
	37	#include <proc.h>
d422fdfd	38	#include <resp.h>
06c1a718	39	#include <cf.h>
992ce9ef	40
992ce9ef FT	41	#define PAT_BASENAME 0
	42	#define PAT_PATHNAME 1
	43	#define PAT_ALL 2
	44	#define PAT_DEFAULT 3
	45
	46	struct config {
	47	struct config next, prev;
	48	char *path;
17e55136	49	time_t mtime, lastck;
992ce9ef FT	50	struct child *children;
	51	struct pattern *patterns;
	52	};
	53
992ce9ef FT	54	struct rule {
	55	int type;
	56	char *pattern;
	57	};
	58
	59	struct pattern {
	60	struct pattern *next;
	61	char *childnm;
	62	struct rule **rules;
	63	};
	64
0fc6fd13 FT	65	static struct config *cflist;
0fc6fd13 FT	66	static struct config gconfig, lconfig;
17e55136	67	static time_t now;
992ce9ef	68
992ce9ef FT	69	static void freepattern(struct pattern *pat)
	70	{
	71	struct rule **rule;
	72
	73	for(rule = pat->rules; *rule; rule++) {
	74	if((*rule)->pattern != NULL)
	75	free((*rule)->pattern);
	76	free(*rule);
	77	}
	78	if(pat->childnm != NULL)
	79	free(pat->childnm);
	80	free(pat);
	81	}
	82
	83	static void freeconfig(struct config *cf)
	84	{
	85	struct child ch, nch;
	86	struct pattern pat, npat;
	87
	88	if(cf->prev != NULL)
	89	cf->prev->next = cf->next;
	90	if(cf->next != NULL)
	91	cf->next->prev = cf->prev;
	92	if(cf == cflist)
	93	cflist = cf->next;
0fc6fd13 FT	94	if(cf->path != NULL)
0fc6fd13 FT	95	free(cf->path);
992ce9ef FT	96	for(ch = cf->children; ch != NULL; ch = nch) {
	97	nch = ch->next;
	98	freechild(ch);
	99	}
	100	for(pat = cf->patterns; pat != NULL; pat = npat) {
	101	npat = pat->next;
	102	freepattern(pat);
	103	}
	104	free(cf);
	105	}
	106
992ce9ef FT	107	static struct child getchild(struct config cf, char *name)
	108	{
	109	struct child *ch;
	110
	111	for(ch = cf->children; ch; ch = ch->next) {
	112	if(!strcmp(ch->name, name))
	113	break;
	114	}
	115	return(ch);
	116	}
	117
	118	static struct rule newrule(struct pattern pat)
	119	{
	120	int i;
	121	struct rule *rule;
	122
	123	for(i = 0; pat->rules[i]; i++);
	124	pat->rules = srealloc(pat->rules, sizeof(pat->rules) (i + 2));
cceb3611	125	rule = pat->rules[i] = szmalloc(sizeof(*rule));
992ce9ef FT	126	pat->rules[i + 1] = NULL;
	127	return(rule);
	128	}
	129
	130	static struct pattern *newpattern(void)
	131	{
	132	struct pattern *pat;
	133
	134	omalloc(pat);
	135	pat->rules = szmalloc(sizeof(*pat->rules));
	136	return(pat);
	137	}
	138
06c1a718 FT	139	static struct pattern parsepattern(struct cfstate s)
	140	{
	141	struct pattern *pat;
	142	struct rule *rule;
	143	int sl;
	144
	145	if(!strcmp(s->argv[0], "match")) {
	146	s->expstart = 1;
	147	pat = newpattern();
	148	} else {
	149	return(NULL);
	150	}
	151
	152	sl = s->lno;
	153	while(1) {
	154	getcfline(s);
	155	if(!strcmp(s->argv[0], "filename")) {
	156	if(s->argc < 2) {
	157	flog(LOG_WARNING, "%s:%i: missing pattern for `filename' match", s->file, s->lno);
	158	continue;
	159	}
	160	rule = newrule(pat);
	161	rule->type = PAT_BASENAME;
	162	rule->pattern = sstrdup(s->argv[1]);
	163	} else if(!strcmp(s->argv[0], "pathname")) {
	164	if(s->argc < 2) {
	165	flog(LOG_WARNING, "%s:%i: missing pattern for `pathname' match", s->file, s->lno);
	166	continue;
	167	}
	168	rule = newrule(pat);
	169	rule->type = PAT_PATHNAME;
	170	rule->pattern = sstrdup(s->argv[1]);
	171	} else if(!strcmp(s->argv[0], "all")) {
	172	newrule(pat)->type = PAT_ALL;
	173	} else if(!strcmp(s->argv[0], "default")) {
	174	newrule(pat)->type = PAT_DEFAULT;
	175	} else if(!strcmp(s->argv[0], "handler")) {
	176	if(s->argc < 2) {
	177	flog(LOG_WARNING, "%s:%i: missing child name for `handler' directive", s->file, s->lno);
	178	continue;
	179	}
	180	if(pat->childnm != NULL)
	181	free(pat->childnm);
	182	pat->childnm = sstrdup(s->argv[1]);
	183	} else if(!strcmp(s->argv[0], "end") \|\| !strcmp(s->argv[0], "eof")) {
	184	break;
	185	} else {
	186	flog(LOG_WARNING, "%s:%i: unknown directive `%s' in pattern declaration", s->file, s->lno, s->argv[0]);
	187	}
	188	}
	189
	190	if(pat->rules[0] == NULL) {
	191	flog(LOG_WARNING, "%s:%i: missing rules in match declaration", s->file, sl);
	192	freepattern(pat);
	193	return(NULL);
	194	}
	195	if(pat->childnm == NULL) {
	196	flog(LOG_WARNING, "%s:%i: missing handler in match declaration", s->file, sl);
	197	freepattern(pat);
	198	return(NULL);
	199	}
	200	return(pat);
	201	}
	202
17e55136 FT	203	static struct config *emptyconfig(void)
	204	{
	205	struct config *cf;
	206
	207	omalloc(cf);
	208	return(cf);
	209	}
	210
	211	static struct config readconfig(char file)
992ce9ef	212	{
06c1a718 FT	213	struct cfstate *s;
06c1a718 FT	214	FILE *in;
992ce9ef	215	struct config *cf;
992ce9ef FT	216	struct child *child;
992ce9ef FT	217	struct pattern *pat;
992ce9ef	218
17e55136 FT	219	if((in = fopen(file, "r")) == NULL) {
17e55136 FT	220	flog(LOG_WARNING, "%s: %s", file, strerror(errno));
992ce9ef	221	return(NULL);
06c1a718	222	}
17e55136 FT	223	s = mkcfparser(in, file);
17e55136 FT	224	cf = emptyconfig();
06c1a718 FT	225
	226	while(1) {
	227	getcfline(s);
	228	if((child = parsechild(s)) != NULL) {
	229	child->next = cf->children;
	230	cf->children = child;
	231	} else if((pat = parsepattern(s)) != NULL) {
	232	pat->next = cf->patterns;
	233	cf->patterns = pat;
	234	} else if(!strcmp(s->argv[0], "eof")) {
	235	break;
	236	} else {
	237	flog(LOG_WARNING, "%s:%i: unknown directive `%s'", s->file, s->lno, s->argv[0]);
992ce9ef	238	}
06c1a718	239	}
992ce9ef	240
06c1a718 FT	241	freecfparser(s);
06c1a718 FT	242	fclose(in);
992ce9ef FT	243	return(cf);
	244	}
	245
	246	static struct config getconfig(char path)
	247	{
	248	struct config *cf;
	249	struct stat sb;
17e55136 FT	250	char *fn;
17e55136 FT	251	time_t mtime;
992ce9ef	252
17e55136	253	fn = sprintf3("%s/.htrc", path);
992ce9ef FT	254	for(cf = cflist; cf != NULL; cf = cf->next) {
992ce9ef FT	255	if(!strcmp(cf->path, path)) {
17e55136 FT	256	if(now - cf->lastck > 5) {
	257	if(stat(fn, &sb) \|\| (sb.st_mtime != cf->mtime)) {
	258	freeconfig(cf);
	259	break;
	260	}
992ce9ef	261	}
17e55136	262	cf->lastck = now;
992ce9ef FT	263	return(cf);
	264	}
	265	}
17e55136 FT	266	if(access(fn, R_OK) \|\| stat(fn, &sb)) {
	267	cf = emptyconfig();
	268	mtime = 0;
	269	} else {
	270	if((cf = readconfig(fn)) == NULL)
	271	return(NULL);
	272	mtime = sb.st_mtime;
992ce9ef	273	}
17e55136 FT	274	cf->path = sstrdup(path);
	275	cf->mtime = mtime;
	276	cf->lastck = now;
	277	cf->next = cflist;
	278	cflist = cf;
992ce9ef FT	279	return(cf);
	280	}
	281
8dce6d19	282	static struct config *getconfigs(char file)
992ce9ef	283	{
8dce6d19 FT	284	static struct config **ret = NULL;
	285	struct {
	286	struct config **b;
	287	size_t s, d;
	288	} buf;
992ce9ef	289	struct config *cf;
8dce6d19 FT	290	char tmp, p;
	291
	292	if(ret != NULL)
	293	free(ret);
	294	bufinit(buf);
	295	tmp = sstrdup(file);
992ce9ef	296	while(1) {
8dce6d19	297	if((p = strrchr(tmp, '/')) == NULL)
992ce9ef	298	break;
8dce6d19 FT	299	*p = 0;
	300	if((cf = getconfig(tmp)) != NULL)
	301	bufadd(buf, cf);
	302	}
	303	free(tmp);
	304	if((cf = getconfig(".")) != NULL)
	305	bufadd(buf, cf);
0fc6fd13 FT	306	if(lconfig != NULL)
	307	bufadd(buf, lconfig);
	308	if(gconfig != NULL)
	309	bufadd(buf, gconfig);
8dce6d19 FT	310	bufadd(buf, NULL);
	311	return(ret = buf.b);
	312	}
	313
	314	static struct child findchild(char file, char *name)
	315	{
	316	int i;
	317	struct config **cfs;
	318	struct child *ch;
	319
	320	cfs = getconfigs(file);
	321	for(i = 0; cfs[i] != NULL; i++) {
	322	if((ch = getchild(cfs[i], name)) != NULL)
992ce9ef FT	323	break;
992ce9ef FT	324	}
992ce9ef FT	325	return(ch);
	326	}
	327
	328	static struct pattern findmatch(char file, int trydefault)
	329	{
8dce6d19 FT	330	int i, c;
	331	char *bn;
	332	struct config **cfs;
992ce9ef FT	333	struct pattern *pat;
	334	struct rule *rule;
	335
	336	if((bn = strrchr(file, '/')) != NULL)
	337	bn++;
	338	else
	339	bn = file;
8dce6d19 FT	340	cfs = getconfigs(file);
	341	for(c = 0; cfs[c] != NULL; c++) {
	342	for(pat = cfs[c]->patterns; pat != NULL; pat = pat->next) {
992ce9ef FT	343	for(i = 0; (rule = pat->rules[i]) != NULL; i++) {
	344	if(rule->type == PAT_BASENAME) {
	345	if(fnmatch(rule->pattern, bn, 0))
	346	break;
	347	} else if(rule->type == PAT_PATHNAME) {
	348	if(fnmatch(rule->pattern, file, FNM_PATHNAME))
	349	break;
	350	} else if(rule->type == PAT_ALL) {
	351	} else if(rule->type == PAT_DEFAULT) {
	352	if(!trydefault)
	353	break;
	354	}
	355	}
	356	if(!rule)
8dce6d19	357	return(pat);
992ce9ef FT	358	}
992ce9ef FT	359	}
8dce6d19	360	return(NULL);
992ce9ef FT	361	}
992ce9ef FT	362
54cefaba	363	static void handlefile(struct hthead req, int fd, char path)
992ce9ef	364	{
992ce9ef FT	365	struct pattern *pat;
992ce9ef FT	366	struct child *ch;
54cefaba FT	367
	368	headappheader(req, "X-Ash-File", path);
	369	if(((pat = findmatch(path, 0)) == NULL) && ((pat = findmatch(path, 1)) == NULL)) {
d58ed97c	370	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
992ce9ef FT	371	return;
992ce9ef FT	372	}
54cefaba	373	if((ch = findchild(path, pat->childnm)) == NULL) {
992ce9ef	374	flog(LOG_ERR, "child %s requested, but was not declared", pat->childnm);
d422fdfd	375	simpleerror(fd, 500, "Configuration Error", "The server is erroneously configured. Handler %s was requested, but not declared.", pat->childnm);
992ce9ef FT	376	return;
	377	}
	378
d1b065b5 FT	379	if(childhandle(ch, req, fd))
d1b065b5 FT	380	simpleerror(fd, 500, "Server Error", "The request handler crashed.");
54cefaba FT	381	}
	382
	383	static void handledir(struct hthead req, int fd, char path)
	384	{
d422fdfd	385	/* XXX: Todo */
06c1a718	386	simpleerror(fd, 403, "Not Authorized", "Will not send directory listings or indices yet.");
54cefaba FT	387	}
	388
	389	static int checkdir(struct hthead req, int fd, char path)
	390	{
	391	return(0);
	392	}
	393
	394	static void serve(struct hthead *req, int fd)
	395	{
	396	char p, p2, path, tmp, buf, p3, *nm;
	397	struct stat sb;
	398	DIR *dir;
	399	struct dirent *dent;
992ce9ef	400
17e55136	401	now = time(NULL);
54cefaba FT	402	nm = req->rest;
	403	path = sstrdup(".");
	404	p = nm;
	405	while(1) {
	406	if((p2 = strchr(p, '/')) == NULL) {
	407	} else {
	408	*(p2++) = 0;
	409	}
	410
	411	if(!*p) {
	412	if(p2 == NULL) {
	413	if(stat(path, &sb)) {
	414	flog(LOG_WARNING, "failed to stat previously stated directory %s: %s", path, strerror(errno));
d422fdfd	415	simpleerror(fd, 500, "Internal Server Error", "The server encountered an unexpected condition.");
54cefaba FT	416	goto fail;
	417	}
	418	break;
	419	} else {
d422fdfd	420	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
54cefaba FT	421	goto fail;
	422	}
	423	}
d422fdfd FT	424	if(*p == '.') {
d422fdfd FT	425	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
54cefaba	426	goto fail;
d422fdfd	427	}
54cefaba FT	428
	429	getconfig(path);
	430
	431	/*
	432	* First, check the name verbatimely:
	433	*/
	434	buf = sprintf3("%s/%s", path, p);
	435	if(!stat(buf, &sb)) {
	436	if(S_ISDIR(sb.st_mode)) {
	437	tmp = path;
	438	if(!strcmp(path, "."))
	439	path = sstrdup(p);
	440	else
	441	path = sprintf2("%s/%s", path, p);
	442	free(tmp);
755faed0 FT	443	if(p2 == NULL) {
	444	stdredir(req, fd, 301, sprintf3("%s/", p));
	445	goto out;
	446	}
54cefaba FT	447	if(checkdir(req, fd, path))
	448	break;
	449	goto next;
	450	}
	451	if(S_ISREG(sb.st_mode)) {
	452	tmp = path;
	453	path = sprintf2("%s/%s", path, p);
	454	free(tmp);
	455	break;
	456	}
d422fdfd	457	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
54cefaba FT	458	goto fail;
	459	}
	460
	461	/*
	462	* Check the file extensionlessly:
	463	*/
	464	if(!strchr(p, '.') && ((dir = opendir(path)) != NULL)) {
	465	while((dent = readdir(dir)) != NULL) {
	466	buf = sprintf3("%s/%s", path, dent->d_name);
	467	if((p3 = strchr(dent->d_name, '.')) != NULL)
	468	*p3 = 0;
	469	if(strcmp(dent->d_name, p))
	470	continue;
	471	if(stat(buf, &sb))
	472	continue;
	473	if(!S_ISREG(sb.st_mode))
	474	continue;
	475	tmp = path;
	476	path = sstrdup(buf);
	477	free(tmp);
	478	break;
	479	}
	480	closedir(dir);
	481	if(dent != NULL)
	482	break;
	483	}
	484
d422fdfd	485	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
54cefaba FT	486	goto fail;
	487
	488	next:
	489	if(p2 == NULL)
	490	break;
	491	p = p2;
	492	}
	493	if(p2 == NULL)
	494	replrest(req, "");
	495	else
	496	replrest(req, p2);
	497	if(!strncmp(path, "./", 2))
	498	memmove(path, path + 2, strlen(path + 2) + 1);
	499	if(S_ISDIR(sb.st_mode)) {
	500	handledir(req, fd, path);
	501	} else if(S_ISREG(sb.st_mode)) {
	502	handlefile(req, fd, path);
	503	} else {
d422fdfd	504	simpleerror(fd, 404, "Not Found", "The requested URL has no corresponding resource.");
54cefaba FT	505	goto fail;
	506	}
	507	goto out;
	508
	509	fail:
d422fdfd	510	/* No special handling, for now at least. */
54cefaba FT	511	out:
54cefaba FT	512	free(path);
992ce9ef FT	513	}
992ce9ef FT	514
0fc6fd13 FT	515	static void usage(FILE *out)
	516	{
	517	fprintf(out, "usage: dirplex [-hN] [-c CONFIG] DIR\n");
	518	}
	519
992ce9ef FT	520	int main(int argc, char **argv)
992ce9ef FT	521	{
0fc6fd13 FT	522	int c;
	523	int nodef;
	524	char gcf, lcf;
992ce9ef FT	525	struct hthead *req;
	526	int fd;
	527
0fc6fd13 FT	528	nodef = 0;
	529	lcf = NULL;
	530	while((c = getopt(argc, argv, "hNc:")) >= 0) {
	531	switch(c) {
	532	case 'h':
	533	usage(stdout);
	534	exit(0);
	535	case 'N':
	536	nodef = 1;
	537	break;
	538	case 'c':
	539	lcf = optarg;
	540	break;
	541	default:
	542	usage(stderr);
	543	exit(1);
	544	}
	545	}
	546	if(argc - optind < 1) {
	547	usage(stderr);
992ce9ef FT	548	exit(1);
992ce9ef FT	549	}
0fc6fd13 FT	550	if(!nodef) {
	551	if((gcf = findstdconf("ashd/dirplex.rc")) != NULL) {
	552	gconfig = readconfig(gcf);
	553	free(gcf);
	554	}
	555	}
	556	if(lcf != NULL) {
	557	if((lconfig = readconfig(lcf)) == NULL)
	558	exit(1);
	559	}
	560	if(chdir(argv[optind])) {
	561	flog(LOG_ERR, "could not change directory to %s: %s", argv[optind], strerror(errno));
992ce9ef FT	562	exit(1);
	563	}
	564	signal(SIGCHLD, SIG_IGN);
	565	while(1) {
	566	if((fd = recvreq(0, &req)) < 0) {
	567	if(errno != 0)
	568	flog(LOG_ERR, "recvreq: %s", strerror(errno));
	569	break;
	570	}
	571	serve(req, fd);
	572	freehthead(req);
	573	close(fd);
	574	}
	575	return(0);
	576	}