server_fcgi.c revision 1.54
1/*	$OpenBSD: server_fcgi.c,v 1.54 2015/06/09 08:50:52 jung Exp $	*/
2
3/*
4 * Copyright (c) 2014 Florian Obser <florian@openbsd.org>
5 *
6 * Permission to use, copy, modify, and distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
9 *
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17 */
18
19#include <sys/types.h>
20#include <sys/time.h>
21#include <sys/socket.h>
22#include <sys/un.h>
23
24#include <netinet/in.h>
25#include <arpa/inet.h>
26
27#include <limits.h>
28#include <errno.h>
29#include <stdlib.h>
30#include <string.h>
31#include <stdio.h>
32#include <time.h>
33#include <ctype.h>
34#include <event.h>
35#include <unistd.h>
36
37#include "httpd.h"
38#include "http.h"
39
40#define FCGI_PADDING_SIZE	 255
41#define FCGI_RECORD_SIZE	 \
42    (sizeof(struct fcgi_record_header) + FCGI_CONTENT_SIZE + FCGI_PADDING_SIZE)
43
44#define FCGI_BEGIN_REQUEST	 1
45#define FCGI_ABORT_REQUEST	 2
46#define FCGI_END_REQUEST	 3
47#define FCGI_PARAMS		 4
48#define FCGI_STDIN		 5
49#define FCGI_STDOUT		 6
50#define FCGI_STDERR		 7
51#define FCGI_DATA		 8
52#define FCGI_GET_VALUES		 9
53#define FCGI_GET_VALUES_RESULT	10
54#define FCGI_UNKNOWN_TYPE	11
55#define FCGI_MAXTYPE		(FCGI_UNKNOWN_TYPE)
56
57#define FCGI_RESPONDER		 1
58
59struct fcgi_record_header {
60	uint8_t		version;
61	uint8_t		type;
62	uint16_t	id;
63	uint16_t	content_len;
64	uint8_t		padding_len;
65	uint8_t		reserved;
66} __packed;
67
68struct fcgi_begin_request_body {
69	uint16_t	role;
70	uint8_t		flags;
71	uint8_t		reserved[5];
72} __packed;
73
74struct server_fcgi_param {
75	int		total_len;
76	uint8_t		buf[FCGI_RECORD_SIZE];
77};
78
79int	server_fcgi_header(struct client *, u_int);
80void	server_fcgi_read(struct bufferevent *, void *);
81int	server_fcgi_writeheader(struct client *, struct kv *, void *);
82int	server_fcgi_writechunk(struct client *);
83int	server_fcgi_getheaders(struct client *);
84int	fcgi_add_param(struct server_fcgi_param *, const char *, const char *,
85	    struct client *);
86
87int
88server_fcgi(struct httpd *env, struct client *clt)
89{
90	struct server_fcgi_param	 param;
91	struct server_config		*srv_conf = clt->clt_srv_conf;
92	struct http_descriptor		*desc = clt->clt_descreq;
93	struct fcgi_record_header	*h;
94	struct fcgi_begin_request_body	*begin;
95	char				 hbuf[HOST_NAME_MAX+1];
96	size_t				 scriptlen;
97	int				 pathlen;
98	int				 fd = -1, ret;
99	const char			*stripped, *p, *alias, *errstr = NULL;
100	char				*str, *script = NULL;
101
102	if (srv_conf->socket[0] == ':') {
103		struct sockaddr_storage	 ss;
104		in_port_t		 port;
105
106		p = srv_conf->socket + 1;
107
108		port = strtonum(p, 0, 0xffff, &errstr);
109		if (errstr != NULL) {
110			log_warn("%s: strtonum %s, %s", __func__, p, errstr);
111			goto fail;
112		}
113		memset(&ss, 0, sizeof(ss));
114		ss.ss_family = AF_INET;
115		((struct sockaddr_in *)
116		    &ss)->sin_addr.s_addr = htonl(INADDR_LOOPBACK);
117		port = htons(port);
118
119		if ((fd = server_socket_connect(&ss, port, srv_conf)) == -1)
120			goto fail;
121	} else {
122		struct sockaddr_un	 sun;
123		size_t			 len;
124
125		if ((fd = socket(AF_UNIX, SOCK_STREAM, 0)) == -1)
126			goto fail;
127
128		memset(&sun, 0, sizeof(sun));
129		sun.sun_family = AF_UNIX;
130		len = strlcpy(sun.sun_path,
131		    srv_conf->socket, sizeof(sun.sun_path));
132		if (len >= sizeof(sun.sun_path)) {
133			errstr = "socket path to long";
134			goto fail;
135		}
136		sun.sun_len = len;
137
138		if (connect(fd, (struct sockaddr *)&sun, sizeof(sun)) == -1)
139			goto fail;
140	}
141
142	socket_set_blockmode(fd, BM_NONBLOCK);
143
144	memset(hbuf, 0, sizeof(hbuf));
145	clt->clt_fcgi_state = FCGI_READ_HEADER;
146	clt->clt_fcgi_toread = sizeof(struct fcgi_record_header);
147
148	if (clt->clt_srvevb != NULL)
149		evbuffer_free(clt->clt_srvevb);
150
151	clt->clt_srvevb = evbuffer_new();
152	if (clt->clt_srvevb == NULL) {
153		errstr = "failed to allocate evbuffer";
154		goto fail;
155	}
156
157	close(clt->clt_fd);
158	clt->clt_fd = fd;
159
160	if (clt->clt_srvbev != NULL)
161		bufferevent_free(clt->clt_srvbev);
162
163	clt->clt_srvbev = bufferevent_new(fd, server_fcgi_read,
164	    NULL, server_file_error, clt);
165	if (clt->clt_srvbev == NULL) {
166		errstr = "failed to allocate fcgi buffer event";
167		goto fail;
168	}
169
170	memset(&param, 0, sizeof(param));
171
172	h = (struct fcgi_record_header *)&param.buf;
173	h->version = 1;
174	h->type = FCGI_BEGIN_REQUEST;
175	h->id = htons(1);
176	h->content_len = htons(sizeof(struct fcgi_begin_request_body));
177	h->padding_len = 0;
178
179	begin = (struct fcgi_begin_request_body *)&param.buf[sizeof(struct
180	    fcgi_record_header)];
181	begin->role = htons(FCGI_RESPONDER);
182
183	bufferevent_write(clt->clt_srvbev, &param.buf,
184	    sizeof(struct fcgi_record_header) +
185	    sizeof(struct fcgi_begin_request_body));
186
187	h->type = FCGI_PARAMS;
188	h->content_len = param.total_len = 0;
189
190	alias = desc->http_path_alias != NULL
191	    ? desc->http_path_alias
192	    : desc->http_path;
193
194	stripped = server_root_strip(alias, srv_conf->strip);
195	if ((pathlen = asprintf(&script, "%s%s", srv_conf->root, stripped))
196	    == -1) {
197		errstr = "failed to get script name";
198		goto fail;
199	}
200
201	scriptlen = path_info(script);
202	/*
203	 * no part of root should show up in PATH_INFO.
204	 * therefore scriptlen should be >= strlen(root)
205	 */
206	if (scriptlen < strlen(srv_conf->root))
207		scriptlen = strlen(srv_conf->root);
208	if ((int)scriptlen < pathlen) {
209		if (fcgi_add_param(&param, "PATH_INFO",
210		    script + scriptlen, clt) == -1) {
211			errstr = "failed to encode param";
212			goto fail;
213		}
214		script[scriptlen] = '\0';
215	}
216
217	/*
218	 * calculate length of http SCRIPT_NAME:
219	 * add length of stripped prefix,
220	 * subtract length of prepended local root
221	 */
222	scriptlen += (stripped - alias) - strlen(srv_conf->root);
223	if ((str = strndup(alias, scriptlen)) == NULL)
224		goto fail;
225	ret = fcgi_add_param(&param, "SCRIPT_NAME", str, clt);
226	free(str);
227	if (ret == -1) {
228		errstr = "failed to encode param";
229		goto fail;
230	}
231	if (fcgi_add_param(&param, "SCRIPT_FILENAME", script, clt) == -1) {
232		errstr = "failed to encode param";
233		goto fail;
234	}
235
236	if (desc->http_query)
237		if (fcgi_add_param(&param, "QUERY_STRING", desc->http_query,
238		    clt) == -1) {
239			errstr = "failed to encode param";
240			goto fail;
241		}
242
243	if (fcgi_add_param(&param, "DOCUMENT_ROOT", srv_conf->root,
244	    clt) == -1) {
245		errstr = "failed to encode param";
246		goto fail;
247	}
248	if (fcgi_add_param(&param, "DOCUMENT_URI", alias,
249	    clt) == -1) {
250		errstr = "failed to encode param";
251		goto fail;
252	}
253	if (fcgi_add_param(&param, "GATEWAY_INTERFACE", "CGI/1.1",
254	    clt) == -1) {
255		errstr = "failed to encode param";
256		goto fail;
257	}
258
259	if (srv_conf->flags & SRVFLAG_AUTH) {
260		if (fcgi_add_param(&param, "REMOTE_USER",
261		    clt->clt_remote_user, clt) == -1) {
262			errstr = "failed to encode param";
263			goto fail;
264		}
265	}
266
267	/* Add HTTP_* headers */
268	if (server_headers(clt, desc, server_fcgi_writeheader, &param) == -1) {
269		errstr = "failed to encode param";
270		goto fail;
271	}
272
273	if (srv_conf->flags & SRVFLAG_TLS)
274		if (fcgi_add_param(&param, "HTTPS", "on", clt) == -1) {
275			errstr = "failed to encode param";
276			goto fail;
277		}
278
279	(void)print_host(&clt->clt_ss, hbuf, sizeof(hbuf));
280	if (fcgi_add_param(&param, "REMOTE_ADDR", hbuf, clt) == -1) {
281		errstr = "failed to encode param";
282		goto fail;
283	}
284
285	(void)snprintf(hbuf, sizeof(hbuf), "%d", ntohs(clt->clt_port));
286	if (fcgi_add_param(&param, "REMOTE_PORT", hbuf, clt) == -1) {
287		errstr = "failed to encode param";
288		goto fail;
289	}
290
291	if (fcgi_add_param(&param, "REQUEST_METHOD",
292	    server_httpmethod_byid(desc->http_method), clt) == -1) {
293		errstr = "failed to encode param";
294		goto fail;
295	}
296
297	if (!desc->http_query) {
298		if (fcgi_add_param(&param, "REQUEST_URI", desc->http_path,
299		    clt) == -1) {
300			errstr = "failed to encode param";
301			goto fail;
302		}
303	} else if (asprintf(&str, "%s?%s", desc->http_path,
304	    desc->http_query) != -1) {
305		ret = fcgi_add_param(&param, "REQUEST_URI", str, clt);
306		free(str);
307		if (ret == -1) {
308			errstr = "failed to encode param";
309			goto fail;
310		}
311	}
312
313	(void)print_host(&clt->clt_srv_ss, hbuf, sizeof(hbuf));
314	if (fcgi_add_param(&param, "SERVER_ADDR", hbuf, clt) == -1) {
315		errstr = "failed to encode param";
316		goto fail;
317	}
318
319	(void)snprintf(hbuf, sizeof(hbuf), "%d",
320	    ntohs(server_socket_getport(&clt->clt_srv_ss)));
321	if (fcgi_add_param(&param, "SERVER_PORT", hbuf, clt) == -1) {
322		errstr = "failed to encode param";
323		goto fail;
324	}
325
326	if (fcgi_add_param(&param, "SERVER_NAME", srv_conf->name,
327	    clt) == -1) {
328		errstr = "failed to encode param";
329		goto fail;
330	}
331
332	if (fcgi_add_param(&param, "SERVER_PROTOCOL", desc->http_version,
333	    clt) == -1) {
334		errstr = "failed to encode param";
335		goto fail;
336	}
337
338	if (fcgi_add_param(&param, "SERVER_SOFTWARE", HTTPD_SERVERNAME,
339	    clt) == -1) {
340		errstr = "failed to encode param";
341		goto fail;
342	}
343
344	if (param.total_len != 0) {	/* send last params record */
345		bufferevent_write(clt->clt_srvbev, &param.buf,
346		    sizeof(struct fcgi_record_header) +
347		    ntohs(h->content_len));
348	}
349
350	/* send "no more params" message */
351	h->content_len = 0;
352	bufferevent_write(clt->clt_srvbev, &param.buf,
353	    sizeof(struct fcgi_record_header));
354
355	bufferevent_settimeout(clt->clt_srvbev,
356	    srv_conf->timeout.tv_sec, srv_conf->timeout.tv_sec);
357	bufferevent_enable(clt->clt_srvbev, EV_READ|EV_WRITE);
358	if (clt->clt_toread != 0) {
359		server_read_httpcontent(clt->clt_bev, clt);
360		bufferevent_enable(clt->clt_bev, EV_READ);
361	} else {
362		bufferevent_disable(clt->clt_bev, EV_READ);
363		fcgi_add_stdin(clt, NULL);
364	}
365
366	if (strcmp(desc->http_version, "HTTP/1.1") == 0) {
367		clt->clt_fcgi_chunked = 1;
368	} else {
369		/* HTTP/1.0 does not support chunked encoding */
370		clt->clt_fcgi_chunked = 0;
371		clt->clt_persist = 0;
372	}
373	clt->clt_fcgi_end = 0;
374	clt->clt_done = 0;
375
376	free(script);
377	return (0);
378 fail:
379	free(script);
380	if (errstr == NULL)
381		errstr = strerror(errno);
382	server_abort_http(clt, 500, errstr);
383	return (-1);
384}
385
386int
387fcgi_add_stdin(struct client *clt, struct evbuffer *evbuf)
388{
389	struct fcgi_record_header	h;
390
391	memset(&h, 0, sizeof(h));
392	h.version = 1;
393	h.type = FCGI_STDIN;
394	h.id = htons(1);
395	h.padding_len = 0;
396
397	if (evbuf == NULL) {
398		h.content_len = 0;
399		return bufferevent_write(clt->clt_srvbev, &h,
400		    sizeof(struct fcgi_record_header));
401	} else {
402		h.content_len = htons(EVBUFFER_LENGTH(evbuf));
403		if (bufferevent_write(clt->clt_srvbev, &h,
404		    sizeof(struct fcgi_record_header)) == -1)
405			return -1;
406		return bufferevent_write_buffer(clt->clt_srvbev, evbuf);
407	}
408	return (0);
409}
410
411int
412fcgi_add_param(struct server_fcgi_param *p, const char *key,
413    const char *val, struct client *clt)
414{
415	struct fcgi_record_header	*h;
416	int				 len = 0;
417	int				 key_len = strlen(key);
418	int				 val_len = strlen(val);
419	uint8_t				*param;
420
421	len += key_len + val_len;
422	len += key_len > 127 ? 4 : 1;
423	len += val_len > 127 ? 4 : 1;
424
425	DPRINTF("%s: %s[%d] => %s[%d], total_len: %d", __func__, key, key_len,
426	    val, val_len, p->total_len);
427
428	if (len > FCGI_CONTENT_SIZE)
429		return (-1);
430
431	if (p->total_len + len > FCGI_CONTENT_SIZE) {
432		bufferevent_write(clt->clt_srvbev, p->buf,
433		    sizeof(struct fcgi_record_header) + p->total_len);
434		p->total_len = 0;
435	}
436
437	h = (struct fcgi_record_header *)p->buf;
438	param = p->buf + sizeof(*h) + p->total_len;
439
440	if (key_len > 127) {
441		*param++ = ((key_len >> 24) & 0xff) | 0x80;
442		*param++ = ((key_len >> 16) & 0xff);
443		*param++ = ((key_len >> 8) & 0xff);
444		*param++ = (key_len & 0xff);
445	} else
446		*param++ = key_len;
447
448	if (val_len > 127) {
449		*param++ = ((val_len >> 24) & 0xff) | 0x80;
450		*param++ = ((val_len >> 16) & 0xff);
451		*param++ = ((val_len >> 8) & 0xff);
452		*param++ = (val_len & 0xff);
453	} else
454		*param++ = val_len;
455
456	memcpy(param, key, key_len);
457	param += key_len;
458	memcpy(param, val, val_len);
459
460	p->total_len += len;
461
462	h->content_len = htons(p->total_len);
463	return (0);
464}
465
466void
467server_fcgi_read(struct bufferevent *bev, void *arg)
468{
469	uint8_t				 buf[FCGI_RECORD_SIZE];
470	struct client			*clt = (struct client *) arg;
471	struct fcgi_record_header	*h;
472	size_t				 len;
473	char				*ptr;
474
475	do {
476		len = bufferevent_read(bev, buf, clt->clt_fcgi_toread);
477		/* XXX error handling */
478		evbuffer_add(clt->clt_srvevb, buf, len);
479		clt->clt_fcgi_toread -= len;
480		DPRINTF("%s: len: %lu toread: %d state: %d type: %d",
481		    __func__, len, clt->clt_fcgi_toread,
482		    clt->clt_fcgi_state, clt->clt_fcgi_type);
483
484		if (clt->clt_fcgi_toread != 0)
485			return;
486
487		switch (clt->clt_fcgi_state) {
488		case FCGI_READ_HEADER:
489			clt->clt_fcgi_state = FCGI_READ_CONTENT;
490			h = (struct fcgi_record_header *)
491			    EVBUFFER_DATA(clt->clt_srvevb);
492			DPRINTF("%s: record header: version %d type %d id %d "
493			    "content len %d padding %d", __func__,
494			    h->version, h->type, ntohs(h->id),
495			    ntohs(h->content_len), h->padding_len);
496			clt->clt_fcgi_type = h->type;
497			clt->clt_fcgi_toread = ntohs(h->content_len);
498			clt->clt_fcgi_padding_len = h->padding_len;
499			evbuffer_drain(clt->clt_srvevb,
500			    EVBUFFER_LENGTH(clt->clt_srvevb));
501			if (clt->clt_fcgi_toread != 0)
502				break;
503			else if (clt->clt_fcgi_type == FCGI_STDOUT &&
504			    !clt->clt_chunk) {
505				server_abort_http(clt, 500, "empty stdout");
506				return;
507			}
508
509			/* fallthrough if content_len == 0 */
510		case FCGI_READ_CONTENT:
511			switch (clt->clt_fcgi_type) {
512			case FCGI_STDERR:
513				if (EVBUFFER_LENGTH(clt->clt_srvevb) > 0 &&
514				    (ptr = get_string(
515				    EVBUFFER_DATA(clt->clt_srvevb),
516				    EVBUFFER_LENGTH(clt->clt_srvevb)))
517				    != NULL) {
518					server_sendlog(clt->clt_srv_conf,
519					    IMSG_LOG_ERROR, "%s", ptr);
520					free(ptr);
521				}
522				break;
523			case FCGI_STDOUT:
524				if (++clt->clt_chunk == 1) {
525					if (server_fcgi_header(clt,
526					    server_fcgi_getheaders(clt))
527					    == -1) {
528						server_abort_http(clt, 500,
529						    "malformed fcgi headers");
530						return;
531					}
532					if (!EVBUFFER_LENGTH(clt->clt_srvevb))
533						break;
534				}
535				/* FALLTHROUGH */
536			case FCGI_END_REQUEST:
537				if (server_fcgi_writechunk(clt) == -1) {
538					server_abort_http(clt, 500,
539					    "encoding error");
540					return;
541				}
542				break;
543			}
544			evbuffer_drain(clt->clt_srvevb,
545			    EVBUFFER_LENGTH(clt->clt_srvevb));
546			if (!clt->clt_fcgi_padding_len) {
547				clt->clt_fcgi_state = FCGI_READ_HEADER;
548				clt->clt_fcgi_toread =
549				    sizeof(struct fcgi_record_header);
550			} else {
551				clt->clt_fcgi_state = FCGI_READ_PADDING;
552				clt->clt_fcgi_toread =
553				    clt->clt_fcgi_padding_len;
554			}
555			break;
556		case FCGI_READ_PADDING:
557			evbuffer_drain(clt->clt_srvevb,
558			    EVBUFFER_LENGTH(clt->clt_srvevb));
559			clt->clt_fcgi_state = FCGI_READ_HEADER;
560			clt->clt_fcgi_toread =
561			    sizeof(struct fcgi_record_header);
562			break;
563		}
564	} while (len > 0);
565}
566
567int
568server_fcgi_header(struct client *clt, u_int code)
569{
570	struct http_descriptor	*desc = clt->clt_descreq;
571	struct http_descriptor	*resp = clt->clt_descresp;
572	const char		*error;
573	char			 tmbuf[32];
574	struct kv		*kv, key;
575
576	if (desc == NULL || (error = server_httperror_byid(code)) == NULL)
577		return (-1);
578
579	if (server_log_http(clt, code, 0) == -1)
580		return (-1);
581
582	/* Add error codes */
583	if (kv_setkey(&resp->http_pathquery, "%lu", code) == -1 ||
584	    kv_set(&resp->http_pathquery, "%s", error) == -1)
585		return (-1);
586
587	/* Add headers */
588	if (kv_add(&resp->http_headers, "Server", HTTPD_SERVERNAME) == NULL)
589		return (-1);
590
591	/* Set chunked encoding */
592	if (clt->clt_fcgi_chunked) {
593		/* XXX Should we keep and handle Content-Length instead? */
594		key.kv_key = "Content-Length";
595		if ((kv = kv_find(&resp->http_headers, &key)) != NULL)
596			kv_delete(&resp->http_headers, kv);
597
598		/*
599		 * XXX What if the FastCGI added some kind of Transfer-Encoding?
600		 * XXX like gzip, deflate or even "chunked"?
601		 */
602		if (kv_add(&resp->http_headers,
603		    "Transfer-Encoding", "chunked") == NULL)
604			return (-1);
605	}
606
607	/* Is it a persistent connection? */
608	if (clt->clt_persist) {
609		if (kv_add(&resp->http_headers,
610		    "Connection", "keep-alive") == NULL)
611			return (-1);
612	} else if (kv_add(&resp->http_headers, "Connection", "close") == NULL)
613		return (-1);
614
615	/* Date header is mandatory and should be added as late as possible */
616	if (server_http_time(time(NULL), tmbuf, sizeof(tmbuf)) <= 0 ||
617	    kv_add(&resp->http_headers, "Date", tmbuf) == NULL)
618		return (-1);
619
620	/* Write initial header (fcgi might append more) */
621	if (server_writeresponse_http(clt) == -1 ||
622	    server_bufferevent_print(clt, "\r\n") == -1 ||
623	    server_headers(clt, resp, server_writeheader_http, NULL) == -1 ||
624	    server_bufferevent_print(clt, "\r\n") == -1)
625		return (-1);
626
627	return (0);
628}
629
630int
631server_fcgi_writeheader(struct client *clt, struct kv *hdr, void *arg)
632{
633	struct server_fcgi_param	*param = arg;
634	char				*val, *name, *p;
635	const char			*key;
636	int				 ret;
637
638	if (hdr->kv_flags & KV_FLAG_INVALID)
639		return (0);
640
641	/* The key might have been updated in the parent */
642	if (hdr->kv_parent != NULL && hdr->kv_parent->kv_key != NULL)
643		key = hdr->kv_parent->kv_key;
644	else
645		key = hdr->kv_key;
646
647	val = hdr->kv_value;
648
649	if (strcasecmp(key, "Content-Length") == 0 ||
650	    strcasecmp(key, "Content-Type") == 0) {
651		if ((name = strdup(key)) == NULL)
652			return (-1);
653	} else {
654		if (asprintf(&name, "HTTP_%s", key) == -1)
655			return (-1);
656	}
657
658	/*
659	 * RFC 7230 defines a header field-name as a "token" and a "token"
660	 * is defined as one or more characters for which isalpha or
661	 * isdigit is true plus a list of additional characters.
662	 * According to RFC 3875 a CGI environment variable is created
663	 * by converting all letters to upper case and replacing '-'
664	 * with '_'.
665	 */
666	for (p = name; *p != '\0'; p++) {
667		if (isalpha((unsigned char)*p))
668			*p = toupper((unsigned char)*p);
669		else if (!(*p == '!' || *p == '#' || *p == '$' || *p == '%' ||
670		    *p == '&' || *p == '\'' || *p == '*' || *p == '+' ||
671		    *p == '.' || *p == '^' || *p == '_' || *p == '`' ||
672		    *p == '|' || *p == '~' || isdigit((unsigned char)*p)))
673			*p = '_';
674	}
675
676	ret = fcgi_add_param(param, name, val, clt);
677	free(name);
678
679	return (ret);
680}
681
682int
683server_fcgi_writechunk(struct client *clt)
684{
685	struct evbuffer *evb = clt->clt_srvevb;
686	size_t		 len;
687
688	if (clt->clt_fcgi_type == FCGI_END_REQUEST) {
689		len = 0;
690	} else
691		len = EVBUFFER_LENGTH(evb);
692
693	if (clt->clt_fcgi_chunked) {
694		/* If len is 0, make sure to write the end marker only once */
695		if (len == 0 && clt->clt_fcgi_end++)
696			return (0);
697		if (server_bufferevent_printf(clt, "%zx\r\n", len) == -1 ||
698		    server_bufferevent_write_chunk(clt, evb, len) == -1 ||
699		    server_bufferevent_print(clt, "\r\n") == -1)
700			return (-1);
701	} else if (len)
702		return (server_bufferevent_write_buffer(clt, evb));
703
704	return (0);
705}
706
707int
708server_fcgi_getheaders(struct client *clt)
709{
710	struct http_descriptor	*resp = clt->clt_descresp;
711	struct evbuffer		*evb = clt->clt_srvevb;
712	int			 code = 200;
713	char			*line, *key, *value;
714	const char		*errstr;
715
716	while ((line = evbuffer_getline(evb)) != NULL && *line != '\0') {
717		key = line;
718
719		if ((value = strchr(key, ':')) == NULL)
720			break;
721		if (*value == ':') {
722			*value++ = '\0';
723			value += strspn(value, " \t");
724		} else {
725			*value++ = '\0';
726		}
727
728		DPRINTF("%s: %s: %s", __func__, key, value);
729
730		if (strcasecmp("Status", key) == 0) {
731			value[strcspn(value, " \t")] = '\0';
732			code = (int)strtonum(value, 100, 600, &errstr);
733			if (errstr != NULL || server_httperror_byid(
734			    code) == NULL)
735				code = 200;
736		} else {
737			(void)kv_add(&resp->http_headers, key, value);
738		}
739		free(line);
740	}
741
742	return (code);
743}
744