1 /*
2  * This file is in the public domain.
3  */
4 
5 #include <sys/tree.h>
6 
7 #include <ctype.h>
8 #include <event.h>
9 #include <libgen.h>
10 #include <limits.h>
11 #include <signal.h>
12 #include <stdlib.h>
13 #include <string.h>
14 #include <unistd.h>
15 
16 #include <sqlite3.h>
17 
18 #include "msearchd.h"
19 
20 char		dbpath[PATH_MAX];
21 
22 void		 server_sig_handler(int, short, void *);
23 void		 server_open_db(struct env *);
24 void		 server_close_db(struct env *);
25 __dead void	 server_shutdown(struct env *);
26 int		 server_reply(struct client *, int, const char *);
27 int		 server_urldecode(char *);
28 char		*server_getquery(struct client *);
29 
30 void
31 server_sig_handler(int sig, short ev, void *arg)
32 {
33 	struct env	*env = arg;
34 
35 	/*
36 	 * Normal signal handler rules don't apply here because libevent
37 	 * decouples for us.
38 	 */
39 
40 	switch (sig) {
41 	case SIGHUP:
42 		log_info("re-opening the db");
43 		server_close_db(env);
44 		server_open_db(env);
45 		break;
46 	case SIGTERM:
47 	case SIGINT:
48 		server_shutdown(env);
49 		break;
50 	default:
51 		fatalx("unexpected signal %d", sig);
52 	}
53 }
54 
55 static inline void
56 loadstmt(sqlite3 *db, sqlite3_stmt **stmt, const char *sql)
57 {
58 	int	err;
59 
60 	err = sqlite3_prepare_v2(db, sql, -1, stmt, NULL);
61 	if (err != SQLITE_OK)
62 		fatalx("failed to prepare statement \"%s\": %s",
63 		    sql, sqlite3_errstr(err));
64 }
65 
66 void
67 server_open_db(struct env *env)
68 {
69 	int	err;
70 
71 	err = sqlite3_open_v2(dbpath, &env->env_db,
72 	    SQLITE_OPEN_READONLY, NULL);
73 	if (err != SQLITE_OK)
74 		fatalx("can't open database %s: %s", dbpath,
75 		    sqlite3_errmsg(env->env_db));
76 
77 	loadstmt(env->env_db, &env->env_query,
78 	    "select mid, \"from\", date, subj"
79 	    " from email"
80 	    " where email match ?"
81 	    " order by rank, date"
82 	    " limit 100");
83 }
84 
85 void
86 server_close_db(struct env *env)
87 {
88 	int	err;
89 
90 	sqlite3_finalize(env->env_query);
91 
92 	if ((err = sqlite3_close(env->env_db)) != SQLITE_OK)
93 		log_warnx("sqlite3_close %s", sqlite3_errstr(err));
94 }
95 
96 int
97 server_main(const char *db)
98 {
99 	char		 path[PATH_MAX], *parent;
100 	struct env	 env;
101 	struct event	 sighup;
102 	struct event	 sigint;
103 	struct event	 sigterm;
104 
105 	signal(SIGPIPE, SIG_IGN);
106 
107 	memset(&env, 0, sizeof(env));
108 
109 	if (realpath(db, dbpath) == NULL)
110 		fatal("realpath %s", db);
111 
112 	strlcpy(path, dbpath, sizeof(path));
113 	parent = dirname(path);
114 	if (unveil(parent, "r") == -1)
115 		fatal("unveil(%s, r)", parent);
116 
117 	/*
118 	 * rpath flock: sqlite3
119 	 * unix: accept(2)
120 	 */
121 	if (pledge("stdio rpath flock unix", NULL) == -1)
122 		fatal("pledge");
123 
124 	server_open_db(&env);
125 
126 	event_init();
127 
128 	env.env_sockfd = 3;
129 
130 	event_set(&env.env_sockev, env.env_sockfd, EV_READ|EV_PERSIST,
131 	    fcgi_accept, &env);
132 	event_add(&env.env_sockev, NULL);
133 
134 	evtimer_set(&env.env_pausev, fcgi_accept, &env);
135 
136 	signal_set(&sighup, SIGHUP, server_sig_handler, &env);
137 	signal_set(&sigint, SIGINT, server_sig_handler, &env);
138 	signal_set(&sigterm, SIGTERM, server_sig_handler, &env);
139 
140 	signal_add(&sighup, NULL);
141 	signal_add(&sigint, NULL);
142 	signal_add(&sigterm, NULL);
143 
144 	log_info("ready");
145 	event_dispatch();
146 
147 	server_shutdown(&env);
148 }
149 
150 void __dead
151 server_shutdown(struct env *env)
152 {
153 	log_info("shutting down");
154 	server_close_db(env);
155 	exit(0);
156 }
157 
158 int
159 server_reply(struct client *clt, int status, const char *arg)
160 {
161 	if (status != 200 &&
162 	    clt_printf(clt, "Status: %d\r\n", status) == -1)
163 		return (-1);
164 
165 	if (status == 302) {
166 		if (clt_printf(clt, "Location: %s\r\n", arg) == -1)
167 			return (-1);
168 		arg = NULL;
169 	}
170 
171 	if (arg != NULL &&
172 	    clt_printf(clt, "Content-Type: %s\r\n", arg) == -1)
173 		return (-1);
174 
175 	return (clt_puts(clt, "\r\n"));
176 }
177 
178 int
179 server_urldecode(char *s)
180 {
181 	unsigned int	 x;
182 	char		*q, code[3] = {0};
183 
184 	q = s;
185 	for (;;) {
186 		if (*s == '\0')
187 			break;
188 
189 		if (*s == '+') {
190 			*q++ = ' ';
191 			s++;
192 			continue;
193 		}
194 
195 		if (*s != '%') {
196 			*q++ = *s++;
197 			continue;
198 		}
199 
200 		if (!isxdigit((unsigned char)s[1]) ||
201 		    !isxdigit((unsigned char)s[2]))
202 			return (-1);
203 		code[0] = s[1];
204 		code[1] = s[2];
205 		x = strtoul(code, NULL, 16);
206 		*q++ = (char)x;
207 		s += 3;
208 	}
209 	*q = '\0';
210 	return (0);
211 }
212 
213 char *
214 server_getquery(struct client *clt)
215 {
216 	char	*tmp, *field;
217 
218 	tmp = clt->clt_query;
219 	while ((field = strsep(&tmp, "&")) != NULL) {
220 		if (server_urldecode(field) == -1)
221 			continue;
222 
223 		if (!strncmp(field, "q=", 2))
224 			return (field + 2);
225 		log_info("unknown query param %s", field);
226 	}
227 
228 	return (NULL);
229 }
230 
231 static inline int
232 fts_escape(const char *p, char *buf, size_t bufsize)
233 {
234 	char		*q;
235 
236 	/*
237 	 * split p into words and quote them into buf.
238 	 * quoting means wrapping each word into "..." and
239 	 * replace every " with "".
240 	 * i.e. 'C++ "framework"' -> '"C++" """framework"""'
241 	 * flatting all the whitespaces seems fine too.
242 	 */
243 
244 	q = buf;
245 	while (bufsize != 0) {
246 		p += strspn(p, " \f\n\r\t\v");
247 		if (*p == '\0')
248 			break;
249 
250 		*q++ = '"';
251 		bufsize--;
252 		while (*p && !isspace((unsigned char)*p) && bufsize != 0) {
253 			if (*p == '"') { /* double the quote character */
254 				*q++ = '"';
255 				if (--bufsize == 0)
256 					break;
257 			}
258 			*q++ = *p++;
259 			bufsize--;
260 		}
261 
262 		if (bufsize < 2)
263 			break;
264 		*q++ = '"';
265 		*q++ = ' ';
266 		bufsize -= 2;
267 	}
268 	if ((*p == '\0') && bufsize != 0) {
269 		*q = '\0';
270 		return (0);
271 	}
272 	return (-1);
273 }
274 
275 static int
276 render_tmpl(struct client *clt, const char *tmpl,
277     const char *var, const char *val)
278 {
279 	const char	*t;
280 	size_t		 vlen;
281 
282 	if (var == NULL)
283 		return (clt_puts(clt, tmpl));
284 
285 	vlen = strlen(var);
286 	while ((t = strstr(tmpl, var)) != NULL) {
287 		if (clt_write(clt, tmpl, t - tmpl) == -1 ||
288 		    clt_putsan(clt, val) == -1)
289 			return (-1);
290 		tmpl = t + vlen;
291 	}
292 
293 	return (clt_puts(clt, tmpl));
294 }
295 
296 int
297 server_handle(struct env *env, struct client *clt)
298 {
299 	char		 dbuf[64];
300 	char		 esc[QUERY_MAXLEN];
301 	char		*query;
302 	const char	*mid, *from, *subj;
303 	uint64_t	 date;
304 	time_t		 d;
305 	struct tm	*tm;
306 	int		 err, have_results = 0;
307 
308 	if ((query = server_getquery(clt)) != NULL &&
309 	    fts_escape(query, esc, sizeof(esc)) != -1 &&
310 	    *esc != '\0') {
311 		log_debug("searching for %s", esc);
312 
313 		err = sqlite3_bind_text(env->env_query, 1, esc, -1, NULL);
314 		if (err != SQLITE_OK) {
315 			sqlite3_reset(env->env_query);
316 			if (server_reply(clt, 500, "text/plain") == -1)
317 				return (-1);
318 			if (clt_puts(clt, "Internal server error\n") == -1)
319 				return (-1);
320 			return (fcgi_end_request(clt, 1));
321 		}
322 	} else
323 		query = NULL;
324 
325 	if (server_reply(clt, 200, "text/html") == -1)
326 		goto err;
327 
328 	if (render_tmpl(clt, tmpl_head, "TITLE", "Search") == -1 ||
329 	    render_tmpl(clt, tmpl_search_header, NULL, NULL) == -1 ||
330 	    render_tmpl(clt, tmpl_search, "QUERY", query) == -1)
331 		goto err;
332 
333 	if (query == NULL)
334 		goto done;
335 
336 	if (clt_puts(clt, "<div class='thread'><ul>") == -1)
337 		goto err;
338 
339 	for (;;) {
340 		err = sqlite3_step(env->env_query);
341 		if (err == SQLITE_DONE)
342 			break;
343 		if (err != SQLITE_ROW) {
344 			log_warnx("%s: sqlite3_step %s", __func__,
345 			    sqlite3_errstr(err));
346 			break;
347 		}
348 
349 		have_results = 1;
350 
351 		mid = sqlite3_column_text(env->env_query, 0);
352 		from = sqlite3_column_text(env->env_query, 1);
353 		date = sqlite3_column_int64(env->env_query, 2);
354 		subj = sqlite3_column_text(env->env_query, 3);
355 
356 		if ((sizeof(d) == 4) && date > UINT32_MAX) {
357 			log_warnx("overflow of 32bit time value");
358 			date = 0;
359 		}
360 
361 		d = date;
362 		if ((tm = gmtime(&d)) == NULL) {
363 			log_warnx("gmtime failure");
364 			continue;
365 		}
366 
367 		if (strftime(dbuf, sizeof(dbuf), "%F %R", tm) == 0) {
368 			log_warnx("strftime failure");
369 			continue;
370 		}
371 
372 		if (clt_puts(clt, "<li class='mail'>"
373 		    "<p class='mail-meta'><time>") == -1 ||
374 		    clt_putsan(clt, dbuf) == -1 ||
375 		    clt_puts(clt, "</time> <span class='from'>") == -1 ||
376 		    clt_putsan(clt, from) == -1 ||
377 		    clt_puts(clt, "</span><span class=colon>:</span>") == -1 ||
378 		    clt_puts(clt, "</p>"
379 			"<p class='subject'>"
380 			"<a href='/mail/") == -1 ||
381 		    clt_putsan(clt, mid) == -1 ||
382 		    clt_puts(clt, ".html'>") == -1 ||
383 		    clt_putsan(clt, subj) == -1 ||
384 		    clt_puts(clt, "</a></p></li>") == -1)
385 			goto err;
386 	}
387 
388 	if (clt_puts(clt, "</ul></div>") == -1)
389 		goto err;
390 
391 	if (!have_results &&
392 	    clt_puts(clt, "<p class='notice'>No mail found.</p>") == -1)
393 		goto err;
394 
395 done:
396 	if (render_tmpl(clt, tmpl_foot, NULL, NULL) == -1)
397 		goto err;
398 
399 	sqlite3_reset(env->env_query);
400 	return (fcgi_end_request(clt, 0));
401 err:
402 	sqlite3_reset(env->env_query);
403 	return (-1);
404 }
405 
406 void
407 server_client_free(struct client *clt)
408 {
409 	free(clt->clt_server_name);
410 	free(clt->clt_script_name);
411 	free(clt->clt_path_info);
412 	free(clt->clt_query);
413 	free(clt);
414 }