1 /*
2  * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
3  *
4  * Permission to use, copy, modify, and distribute this software for any
5  * purpose with or without fee is hereby granted, provided that the above
6  * copyright notice and this permission notice appear in all copies.
7  *
8  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
15  */
16 
17 #include "gmid.h"
18 
19 #include <sys/types.h>
20 #include <sys/uio.h>
21 
22 #include <errno.h>
23 #include <event.h>
24 #include <imsg.h>
25 #include <netdb.h>
26 #include <stdarg.h>
27 #include <stdio.h>
28 #include <string.h>
29 #include <syslog.h>
30 #include <time.h>
31 
32 static struct event imsgev;
33 
34 static void	handle_imsg_quit(struct imsgbuf*, struct imsg*, size_t);
35 static void	handle_imsg_log(struct imsgbuf*, struct imsg*, size_t);
36 static void	handle_dispatch_imsg(int, short, void*);
37 
38 static imsg_handlerfn *handlers[] = {
39 	[IMSG_QUIT] = handle_imsg_quit,
40 	[IMSG_LOG] = handle_imsg_log,
41 };
42 
43 static inline void
44 print_date(void)
45 {
46 	struct tm	tminfo;
47 	time_t		t;
48 	char		buf[20];
49 
50 	time(&t);
51 	strftime(buf, sizeof(buf), "%F %T",
52 	    localtime_r(&t, &tminfo));
53 	fprintf(stderr, "[%s] ", buf);
54 }
55 
56 void
57 fatal(const char *fmt, ...)
58 {
59 	va_list ap;
60 
61 	va_start(ap, fmt);
62 
63 	if (conf.foreground) {
64 		print_date();
65 		vfprintf(stderr, fmt, ap);
66 		fprintf(stderr, "\n");
67 	} else
68 		vsyslog(LOG_DAEMON | LOG_CRIT, fmt, ap);
69 
70 	va_end(ap);
71 	exit(1);
72 }
73 
74 static inline int
75 should_log(int priority)
76 {
77 	switch (priority) {
78 	case LOG_ERR:
79 		return 1;
80 	case LOG_WARNING:
81 		return 1;
82 	case LOG_NOTICE:
83 		return conf.verbose >= 1;
84 	case LOG_INFO:
85 		return conf.verbose >= 2;
86 	case LOG_DEBUG:
87 		return conf.verbose >= 3;
88 	default:
89 		return 0;
90 	}
91 }
92 
93 static inline void
94 send_log(const char *msg, size_t len)
95 {
96 	imsg_compose(&logibuf, IMSG_LOG, 0, 0, -1, msg, len);
97 	/* XXX: use event_once() */
98 	imsg_flush(&logibuf);
99 }
100 
101 static inline void
102 vlog(int priority, struct client *c,
103     const char *fmt, va_list ap)
104 {
105 	char hbuf[NI_MAXHOST], sbuf[NI_MAXSERV];
106 	char *fmted, *s;
107 	size_t len;
108 	int ec;
109 
110 	if (!should_log(priority))
111 		return;
112 
113 	if (c != NULL) {
114 		len = sizeof(c->addr);
115 		ec = getnameinfo((struct sockaddr*)&c->addr, len,
116 		    hbuf, sizeof(hbuf),
117 		    sbuf, sizeof(sbuf),
118 		    NI_NUMERICHOST | NI_NUMERICSERV);
119 		if (ec != 0)
120 			fatal("getnameinfo: %s", gai_strerror(ec));
121 	}
122 
123 	if (vasprintf(&fmted, fmt, ap) == -1)
124 		fatal("vasprintf: %s", strerror(errno));
125 
126         if (c == NULL)
127 		ec = asprintf(&s, "internal: %s", fmted);
128 	else
129 		ec = asprintf(&s, "%s:%s %s", hbuf, sbuf, fmted);
130 
131 	if (ec < 0)
132 		fatal("asprintf: %s", strerror(errno));
133 
134 	send_log(s, ec+1);
135 
136 	free(fmted);
137 	free(s);
138 }
139 
140 void
141 log_err(struct client *c, const char *fmt, ...)
142 {
143 	va_list ap;
144 
145 	va_start(ap, fmt);
146 	vlog(LOG_ERR, c, fmt, ap);
147 	va_end(ap);
148 }
149 
150 void
151 log_warn(struct client *c, const char *fmt, ...)
152 {
153 	va_list ap;
154 
155 	va_start(ap, fmt);
156 	vlog(LOG_WARNING, c, fmt, ap);
157 	va_end(ap);
158 }
159 
160 void
161 log_notice(struct client *c, const char *fmt, ...)
162 {
163 	va_list ap;
164 
165 	va_start(ap, fmt);
166 	vlog(LOG_NOTICE, c, fmt, ap);
167 	va_end(ap);
168 }
169 
170 void
171 log_info(struct client *c, const char *fmt, ...)
172 {
173 	va_list ap;
174 
175 	va_start(ap, fmt);
176 	vlog(LOG_INFO, c, fmt, ap);
177 	va_end(ap);
178 }
179 
180 void
181 log_debug(struct client *c, const char *fmt, ...)
182 {
183 	va_list ap;
184 
185 	va_start(ap, fmt);
186 	vlog(LOG_DEBUG, c, fmt, ap);
187 	va_end(ap);
188 }
189 
190 /* strchr, but with a bound */
191 static char *
192 gmid_strnchr(char *s, int c, size_t len)
193 {
194 	size_t i;
195 
196 	for (i = 0; i < len; ++i)
197 		if (s[i] == c)
198 			return &s[i];
199 	return NULL;
200 }
201 
202 void
203 log_request(struct client *c, char *meta, size_t l)
204 {
205 	char hbuf[NI_MAXHOST], sbuf[NI_MAXSERV], b[GEMINI_URL_LEN];
206 	char *t, *fmted;
207 	size_t len;
208 	int ec;
209 
210 	len = sizeof(c->addr);
211 	ec = getnameinfo((struct sockaddr*)&c->addr, len,
212 	    hbuf, sizeof(hbuf),
213 	    sbuf, sizeof(sbuf),
214 	    NI_NUMERICHOST | NI_NUMERICSERV);
215 	if (ec != 0)
216 		fatal("getnameinfo: %s", gai_strerror(ec));
217 
218 	if (c->iri.schema != NULL) {
219 		/* serialize the IRI */
220 		strlcpy(b, c->iri.schema, sizeof(b));
221 		strlcat(b, "://", sizeof(b));
222 
223 		/* log the decoded host name, but if it was invalid
224 		 * use the raw one. */
225 		if (*c->domain != '\0')
226 			strlcat(b, c->domain, sizeof(b));
227 		else
228 			strlcat(b, c->iri.host, sizeof(b));
229 
230 		strlcat(b, "/", sizeof(b));
231 		strlcat(b, c->iri.path, sizeof(b)); /* TODO: sanitize UTF8 */
232 		if (*c->iri.query != '\0') {	    /* TODO: sanitize UTF8 */
233 			strlcat(b, "?", sizeof(b));
234 			strlcat(b, c->iri.query, sizeof(b));
235 		}
236 	} else {
237 		strlcpy(b, c->req, sizeof(b));
238 	}
239 
240 	if ((t = gmid_strnchr(meta, '\r', l)) == NULL)
241 		t = meta + len;
242 
243 	ec = asprintf(&fmted, "%s:%s GET %s %.*s", hbuf, sbuf, b,
244 	    (int)(t-meta), meta);
245 	if (ec < 0)
246 		err(1, "asprintf");
247 	send_log(fmted, ec+1);
248 	free(fmted);
249 }
250 
251 
252 
253 static void
254 handle_imsg_quit(struct imsgbuf *ibuf, struct imsg *imsg, size_t datalen)
255 {
256 	event_loopbreak();
257 }
258 
259 static void
260 handle_imsg_log(struct imsgbuf *ibuf, struct imsg *imsg, size_t datalen)
261 {
262 	char *msg;
263 
264 	msg = imsg->data;
265 	msg[datalen-1] = '\0';
266 
267 	if (conf.foreground) {
268 		print_date();
269 		fprintf(stderr, "%s\n", msg);
270 	} else
271 		syslog(LOG_DAEMON, "%s", msg);
272 }
273 
274 static void
275 handle_dispatch_imsg(int fd, short ev, void *d)
276 {
277 	struct imsgbuf *ibuf = d;
278 	dispatch_imsg(ibuf, handlers, sizeof(handlers));
279 }
280 
281 int
282 logger_main(int fd, struct imsgbuf *ibuf)
283 {
284 	event_init();
285 
286 	event_set(&imsgev, fd, EV_READ | EV_PERSIST, &handle_dispatch_imsg, ibuf);
287 	event_add(&imsgev, NULL);
288 
289 	sandbox_logger_process();
290 
291 	event_dispatch();
292 
293 	return 0;
294 }