blob: d1d1e9625d08ecece35bda6fa92f3f2d2ff919c4 [file] [log] [blame]
William Lallemand74c24fb2016-11-21 17:18:36 +01001/*
2 * Functions dedicated to statistics output and the stats socket
3 *
4 * Copyright 2000-2012 Willy Tarreau <w@1wt.eu>
5 * Copyright 2007-2009 Krzysztof Piotr Oledzki <ole@ans.pl>
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version
10 * 2 of the License, or (at your option) any later version.
11 *
12 */
13
14#include <ctype.h>
15#include <errno.h>
16#include <fcntl.h>
17#include <stdio.h>
18#include <stdlib.h>
19#include <string.h>
20#include <pwd.h>
21#include <grp.h>
22
23#include <sys/socket.h>
24#include <sys/stat.h>
25#include <sys/types.h>
26
Olivier Houchardf886e342017-04-05 22:24:59 +020027#include <net/if.h>
28
William Lallemand74c24fb2016-11-21 17:18:36 +010029#include <common/cfgparse.h>
30#include <common/compat.h>
31#include <common/config.h>
32#include <common/debug.h>
Willy Tarreau0108d902018-11-25 19:14:37 +010033#include <common/initcall.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010034#include <common/memory.h>
35#include <common/mini-clist.h>
36#include <common/standard.h>
37#include <common/ticks.h>
38#include <common/time.h>
39#include <common/uri_auth.h>
40#include <common/version.h>
41#include <common/base64.h>
42
43#include <types/applet.h>
William Lallemand9ed62032016-11-21 17:49:11 +010044#include <types/cli.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010045#include <types/global.h>
46#include <types/dns.h>
William Lallemand9ed62032016-11-21 17:49:11 +010047#include <types/stats.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010048
Willy Tarreau609aad92018-11-22 08:31:09 +010049#include <proto/activity.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010050#include <proto/backend.h>
51#include <proto/channel.h>
52#include <proto/checks.h>
53#include <proto/compression.h>
William Lallemand9ed62032016-11-21 17:49:11 +010054#include <proto/stats.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010055#include <proto/fd.h>
56#include <proto/freq_ctr.h>
57#include <proto/frontend.h>
58#include <proto/log.h>
59#include <proto/pattern.h>
60#include <proto/pipe.h>
William Lallemandce83b4a2018-10-26 14:47:30 +020061#include <proto/protocol.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010062#include <proto/listener.h>
63#include <proto/map.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010064#include <proto/proxy.h>
65#include <proto/sample.h>
66#include <proto/session.h>
67#include <proto/stream.h>
68#include <proto/server.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010069#include <proto/stream_interface.h>
70#include <proto/task.h>
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +020071#include <proto/proto_udp.h>
William Lallemand74c24fb2016-11-21 17:18:36 +010072
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +020073#define PAYLOAD_PATTERN "<<"
74
William Lallemand74c24fb2016-11-21 17:18:36 +010075static struct applet cli_applet;
76
77static const char stats_sock_usage_msg[] =
78 "Unknown command. Please enter one of the following commands only :\n"
William Lallemand74c24fb2016-11-21 17:18:36 +010079 " help : this message\n"
80 " prompt : toggle interactive mode with prompt\n"
81 " quit : disconnect\n"
William Lallemand74c24fb2016-11-21 17:18:36 +010082 "";
83
84static const char stats_permission_denied_msg[] =
85 "Permission denied\n"
86 "";
87
88
Christopher Faulet1bc04c72017-10-29 20:14:08 +010089static THREAD_LOCAL char *dynamic_usage_msg = NULL;
William Lallemand74c24fb2016-11-21 17:18:36 +010090
91/* List head of cli keywords */
92static struct cli_kw_list cli_keywords = {
93 .list = LIST_HEAD_INIT(cli_keywords.list)
94};
95
96extern const char *stat_status_codes[];
97
William Lallemand8a022572018-10-26 14:47:35 +020098static struct proxy *mworker_proxy; /* CLI proxy of the master */
99
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200100static char *cli_gen_usage_msg(struct appctx *appctx)
William Lallemand74c24fb2016-11-21 17:18:36 +0100101{
102 struct cli_kw_list *kw_list;
103 struct cli_kw *kw;
Willy Tarreau83061a82018-07-13 11:56:34 +0200104 struct buffer *tmp = get_trash_chunk();
105 struct buffer out;
William Lallemand74c24fb2016-11-21 17:18:36 +0100106
107 free(dynamic_usage_msg);
108 dynamic_usage_msg = NULL;
109
110 if (LIST_ISEMPTY(&cli_keywords.list))
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200111 goto end;
William Lallemand74c24fb2016-11-21 17:18:36 +0100112
113 chunk_reset(tmp);
114 chunk_strcat(tmp, stats_sock_usage_msg);
115 list_for_each_entry(kw_list, &cli_keywords.list, list) {
116 kw = &kw_list->kw[0];
William Lallemand0154edc2018-05-15 11:50:04 +0200117 while (kw->str_kw[0]) {
William Lallemand14721be2018-10-26 14:47:37 +0200118
119 /* in a worker or normal process, don't display master only commands */
120 if (master == 0 && (kw->level & ACCESS_MASTER_ONLY))
121 goto next_kw;
122
123 /* in master don't displays if we don't have the master bits */
124 if (master == 1 && !(kw->level & (ACCESS_MASTER_ONLY|ACCESS_MASTER)))
125 goto next_kw;
126
William Lallemand0154edc2018-05-15 11:50:04 +0200127 if (kw->usage)
128 chunk_appendf(tmp, " %s\n", kw->usage);
William Lallemand14721be2018-10-26 14:47:37 +0200129
130next_kw:
131
William Lallemand74c24fb2016-11-21 17:18:36 +0100132 kw++;
133 }
134 }
135 chunk_init(&out, NULL, 0);
136 chunk_dup(&out, tmp);
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200137 dynamic_usage_msg = out.area;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200138
139end:
140 if (dynamic_usage_msg) {
141 appctx->ctx.cli.severity = LOG_INFO;
142 appctx->ctx.cli.msg = dynamic_usage_msg;
143 }
144 else {
145 appctx->ctx.cli.severity = LOG_INFO;
146 appctx->ctx.cli.msg = stats_sock_usage_msg;
147 }
148 appctx->st0 = CLI_ST_PRINT;
149
William Lallemand74c24fb2016-11-21 17:18:36 +0100150 return dynamic_usage_msg;
151}
152
153struct cli_kw* cli_find_kw(char **args)
154{
155 struct cli_kw_list *kw_list;
156 struct cli_kw *kw;/* current cli_kw */
157 char **tmp_args;
158 const char **tmp_str_kw;
159 int found = 0;
160
161 if (LIST_ISEMPTY(&cli_keywords.list))
162 return NULL;
163
164 list_for_each_entry(kw_list, &cli_keywords.list, list) {
165 kw = &kw_list->kw[0];
166 while (*kw->str_kw) {
167 tmp_args = args;
168 tmp_str_kw = kw->str_kw;
169 while (*tmp_str_kw) {
170 if (strcmp(*tmp_str_kw, *tmp_args) == 0) {
171 found = 1;
172 } else {
173 found = 0;
174 break;
175 }
176 tmp_args++;
177 tmp_str_kw++;
178 }
179 if (found)
180 return (kw);
181 kw++;
182 }
183 }
184 return NULL;
185}
186
187void cli_register_kw(struct cli_kw_list *kw_list)
188{
189 LIST_ADDQ(&cli_keywords.list, &kw_list->list);
190}
191
192
193/* allocate a new stats frontend named <name>, and return it
194 * (or NULL in case of lack of memory).
195 */
196static struct proxy *alloc_stats_fe(const char *name, const char *file, int line)
197{
198 struct proxy *fe;
199
200 fe = calloc(1, sizeof(*fe));
201 if (!fe)
202 return NULL;
203
204 init_new_proxy(fe);
Olivier Houchardfbc74e82017-11-24 16:54:05 +0100205 fe->next = proxies_list;
206 proxies_list = fe;
William Lallemand74c24fb2016-11-21 17:18:36 +0100207 fe->last_change = now.tv_sec;
208 fe->id = strdup("GLOBAL");
209 fe->cap = PR_CAP_FE;
210 fe->maxconn = 10; /* default to 10 concurrent connections */
211 fe->timeout.client = MS_TO_TICKS(10000); /* default timeout of 10 seconds */
212 fe->conf.file = strdup(file);
213 fe->conf.line = line;
214 fe->accept = frontend_accept;
215 fe->default_target = &cli_applet.obj_type;
216
217 /* the stats frontend is the only one able to assign ID #0 */
218 fe->conf.id.key = fe->uuid = 0;
219 eb32_insert(&used_proxy_id, &fe->conf.id);
220 return fe;
221}
222
223/* This function parses a "stats" statement in the "global" section. It returns
224 * -1 if there is any error, otherwise zero. If it returns -1, it will write an
225 * error message into the <err> buffer which will be preallocated. The trailing
226 * '\n' must not be written. The function must be called with <args> pointing to
227 * the first word after "stats".
228 */
229static int stats_parse_global(char **args, int section_type, struct proxy *curpx,
230 struct proxy *defpx, const char *file, int line,
231 char **err)
232{
233 struct bind_conf *bind_conf;
234 struct listener *l;
235
236 if (!strcmp(args[1], "socket")) {
237 int cur_arg;
238
239 if (*args[2] == 0) {
240 memprintf(err, "'%s %s' in global section expects an address or a path to a UNIX socket", args[0], args[1]);
241 return -1;
242 }
243
244 if (!global.stats_fe) {
245 if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) {
246 memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]);
247 return -1;
248 }
249 }
250
Willy Tarreaua261e9b2016-12-22 20:44:00 +0100251 bind_conf = bind_conf_alloc(global.stats_fe, file, line, args[2], xprt_get(XPRT_RAW));
William Lallemand07a62f72017-05-24 00:57:40 +0200252 bind_conf->level &= ~ACCESS_LVL_MASK;
253 bind_conf->level |= ACCESS_LVL_OPER; /* default access level */
William Lallemand74c24fb2016-11-21 17:18:36 +0100254
255 if (!str2listener(args[2], global.stats_fe, bind_conf, file, line, err)) {
256 memprintf(err, "parsing [%s:%d] : '%s %s' : %s\n",
257 file, line, args[0], args[1], err && *err ? *err : "error");
258 return -1;
259 }
260
261 cur_arg = 3;
262 while (*args[cur_arg]) {
263 static int bind_dumped;
264 struct bind_kw *kw;
265
266 kw = bind_find_kw(args[cur_arg]);
267 if (kw) {
268 if (!kw->parse) {
269 memprintf(err, "'%s %s' : '%s' option is not implemented in this version (check build options).",
270 args[0], args[1], args[cur_arg]);
271 return -1;
272 }
273
274 if (kw->parse(args, cur_arg, global.stats_fe, bind_conf, err) != 0) {
275 if (err && *err)
276 memprintf(err, "'%s %s' : '%s'", args[0], args[1], *err);
277 else
278 memprintf(err, "'%s %s' : error encountered while processing '%s'",
279 args[0], args[1], args[cur_arg]);
280 return -1;
281 }
282
283 cur_arg += 1 + kw->skip;
284 continue;
285 }
286
287 if (!bind_dumped) {
288 bind_dump_kws(err);
289 indent_msg(err, 4);
290 bind_dumped = 1;
291 }
292
293 memprintf(err, "'%s %s' : unknown keyword '%s'.%s%s",
294 args[0], args[1], args[cur_arg],
295 err && *err ? " Registered keywords :" : "", err && *err ? *err : "");
296 return -1;
297 }
298
299 list_for_each_entry(l, &bind_conf->listeners, by_bind) {
300 l->maxconn = global.stats_fe->maxconn;
301 l->backlog = global.stats_fe->backlog;
302 l->accept = session_accept_fd;
William Lallemand74c24fb2016-11-21 17:18:36 +0100303 l->default_target = global.stats_fe->default_target;
304 l->options |= LI_O_UNLIMITED; /* don't make the peers subject to global limits */
305 l->nice = -64; /* we want to boost priority for local stats */
306 global.maxsock += l->maxconn;
307 }
308 }
309 else if (!strcmp(args[1], "timeout")) {
310 unsigned timeout;
311 const char *res = parse_time_err(args[2], &timeout, TIME_UNIT_MS);
312
313 if (res) {
314 memprintf(err, "'%s %s' : unexpected character '%c'", args[0], args[1], *res);
315 return -1;
316 }
317
318 if (!timeout) {
319 memprintf(err, "'%s %s' expects a positive value", args[0], args[1]);
320 return -1;
321 }
322 if (!global.stats_fe) {
323 if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) {
324 memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]);
325 return -1;
326 }
327 }
328 global.stats_fe->timeout.client = MS_TO_TICKS(timeout);
329 }
330 else if (!strcmp(args[1], "maxconn")) {
331 int maxconn = atol(args[2]);
332
333 if (maxconn <= 0) {
334 memprintf(err, "'%s %s' expects a positive value", args[0], args[1]);
335 return -1;
336 }
337
338 if (!global.stats_fe) {
339 if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) {
340 memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]);
341 return -1;
342 }
343 }
344 global.stats_fe->maxconn = maxconn;
345 }
346 else if (!strcmp(args[1], "bind-process")) { /* enable the socket only on some processes */
347 int cur_arg = 2;
348 unsigned long set = 0;
349
350 if (!global.stats_fe) {
351 if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) {
352 memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]);
353 return -1;
354 }
355 }
356
357 while (*args[cur_arg]) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100358 if (strcmp(args[cur_arg], "all") == 0) {
359 set = 0;
360 break;
361 }
Willy Tarreauc9a82e42019-01-26 13:25:14 +0100362 if (parse_process_number(args[cur_arg], &set, LONGBITS, NULL, err)) {
Christopher Fauletf1f0c5f2017-11-22 12:06:43 +0100363 memprintf(err, "'%s %s' : %s", args[0], args[1], *err);
William Lallemand74c24fb2016-11-21 17:18:36 +0100364 return -1;
365 }
366 cur_arg++;
367 }
368 global.stats_fe->bind_proc = set;
369 }
370 else {
371 memprintf(err, "'%s' only supports 'socket', 'maxconn', 'bind-process' and 'timeout' (got '%s')", args[0], args[1]);
372 return -1;
373 }
374 return 0;
375}
376
Willy Tarreaude57a572016-11-23 17:01:39 +0100377/* Verifies that the CLI at least has a level at least as high as <level>
378 * (typically ACCESS_LVL_ADMIN). Returns 1 if OK, otherwise 0. In case of
379 * failure, an error message is prepared and the appctx's state is adjusted
380 * to print it so that a return 1 is enough to abort any processing.
381 */
382int cli_has_level(struct appctx *appctx, int level)
383{
Willy Tarreaude57a572016-11-23 17:01:39 +0100384
William Lallemandf630d012018-12-13 09:05:44 +0100385 if ((appctx->cli_level & ACCESS_LVL_MASK) < level) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +0200386 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreaude57a572016-11-23 17:01:39 +0100387 appctx->ctx.cli.msg = stats_permission_denied_msg;
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100388 appctx->st0 = CLI_ST_PRINT;
Willy Tarreaude57a572016-11-23 17:01:39 +0100389 return 0;
390 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100391 return 1;
392}
393
William Lallemandb7ea1412018-12-13 09:05:47 +0100394/* same as cli_has_level but for the CLI proxy and without error message */
395int pcli_has_level(struct stream *s, int level)
396{
397 if ((s->pcli_flags & ACCESS_LVL_MASK) < level) {
398 return 0;
399 }
400 return 1;
401}
402
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200403/* Returns severity_output for the current session if set, or default for the socket */
404static int cli_get_severity_output(struct appctx *appctx)
405{
406 if (appctx->cli_severity_output)
407 return appctx->cli_severity_output;
408 return strm_li(si_strm(appctx->owner))->bind_conf->severity_output;
409}
William Lallemand74c24fb2016-11-21 17:18:36 +0100410
Willy Tarreau41908562016-11-24 16:23:38 +0100411/* Processes the CLI interpreter on the stats socket. This function is called
412 * from the CLI's IO handler running in an appctx context. The function returns 1
413 * if the request was understood, otherwise zero. It is called with appctx->st0
414 * set to CLI_ST_GETREQ and presets ->st2 to 0 so that parsers don't have to do
415 * it. It will possilbly leave st0 to CLI_ST_CALLBACK if the keyword needs to
416 * have its own I/O handler called again. Most of the time, parsers will only
417 * set st0 to CLI_ST_PRINT and put their message to be displayed into cli.msg.
Willy Tarreaueaffde32016-12-16 17:59:25 +0100418 * If a keyword parser is NULL and an I/O handler is declared, the I/O handler
419 * will automatically be used.
William Lallemand74c24fb2016-11-21 17:18:36 +0100420 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200421static int cli_parse_request(struct appctx *appctx)
William Lallemand74c24fb2016-11-21 17:18:36 +0100422{
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200423 char *args[MAX_STATS_ARGS + 1], *p, *end, *payload = NULL;
424 int i = 0;
William Lallemand74c24fb2016-11-21 17:18:36 +0100425 struct cli_kw *kw;
William Lallemand74c24fb2016-11-21 17:18:36 +0100426
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200427 appctx->st2 = 0;
428 memset(&appctx->ctx.cli, 0, sizeof(appctx->ctx.cli));
William Lallemand74c24fb2016-11-21 17:18:36 +0100429
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200430 p = appctx->chunk->area;
431 end = p + appctx->chunk->data;
William Lallemand74c24fb2016-11-21 17:18:36 +0100432
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200433 /*
434 * Get the payload start if there is one.
435 * For the sake of simplicity, the payload pattern is looked up
436 * everywhere from the start of the input but it can only be found
437 * at the end of the first line if APPCTX_CLI_ST1_PAYLOAD is set.
438 *
439 * The input string was zero terminated so it is safe to use
440 * the str*() functions throughout the parsing
441 */
442 if (appctx->st1 & APPCTX_CLI_ST1_PAYLOAD) {
443 payload = strstr(p, PAYLOAD_PATTERN);
444 end = payload;
445 /* skip the pattern */
446 payload += strlen(PAYLOAD_PATTERN);
447 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100448
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200449 /*
450 * Get pointers on words.
451 * One extra slot is reserved to store a pointer on a null byte.
452 */
453 while (i < MAX_STATS_ARGS && p < end) {
454 int j, k;
William Lallemand74c24fb2016-11-21 17:18:36 +0100455
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200456 /* skip leading spaces/tabs */
457 p += strspn(p, " \t");
458 if (!*p)
459 break;
William Lallemand74c24fb2016-11-21 17:18:36 +0100460
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200461 args[i] = p;
462 p += strcspn(p, " \t");
463 *p++ = 0;
William Lallemand74c24fb2016-11-21 17:18:36 +0100464
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200465 /* unescape backslashes (\) */
466 for (j = 0, k = 0; args[i][k]; k++) {
467 if (args[i][k] == '\\') {
468 if (args[i][k + 1] == '\\')
469 k++;
Dragan Dosena1c35ab2016-11-24 11:33:12 +0100470 else
471 continue;
472 }
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200473 args[i][j] = args[i][k];
William Lallemand74c24fb2016-11-21 17:18:36 +0100474 j++;
475 }
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200476 args[i][j] = 0;
William Lallemand74c24fb2016-11-21 17:18:36 +0100477
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200478 i++;
479 }
480 /* fill unused slots */
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200481 p = appctx->chunk->area + appctx->chunk->data;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200482 for (; i < MAX_STATS_ARGS + 1; i++)
483 args[i] = p;
Willy Tarreau41908562016-11-24 16:23:38 +0100484
485 kw = cli_find_kw(args);
Willy Tarreaueaffde32016-12-16 17:59:25 +0100486 if (!kw)
Willy Tarreau41908562016-11-24 16:23:38 +0100487 return 0;
488
William Lallemand14721be2018-10-26 14:47:37 +0200489 /* in a worker or normal process, don't display master only commands */
490 if (master == 0 && (kw->level & ACCESS_MASTER_ONLY))
491 return 0;
492
493 /* in master don't displays if we don't have the master bits */
494 if (master == 1 && !(kw->level & (ACCESS_MASTER_ONLY|ACCESS_MASTER)))
495 return 0;
496
Willy Tarreau41908562016-11-24 16:23:38 +0100497 appctx->io_handler = kw->io_handler;
Emeric Brund6871f72017-06-29 19:54:13 +0200498 appctx->io_release = kw->io_release;
499 /* kw->parse could set its own io_handler or ip_release handler */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200500 if ((!kw->parse || kw->parse(args, payload, appctx, kw->private) == 0) && appctx->io_handler) {
Willy Tarreau41908562016-11-24 16:23:38 +0100501 appctx->st0 = CLI_ST_CALLBACK;
William Lallemand74c24fb2016-11-21 17:18:36 +0100502 }
Willy Tarreau41908562016-11-24 16:23:38 +0100503 return 1;
William Lallemand74c24fb2016-11-21 17:18:36 +0100504}
505
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200506/* prepends then outputs the argument msg with a syslog-type severity depending on severity_output value */
507static int cli_output_msg(struct channel *chn, const char *msg, int severity, int severity_output)
508{
Willy Tarreau83061a82018-07-13 11:56:34 +0200509 struct buffer *tmp;
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200510
511 if (likely(severity_output == CLI_SEVERITY_NONE))
Willy Tarreau06d80a92017-10-19 14:32:15 +0200512 return ci_putblk(chn, msg, strlen(msg));
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200513
514 tmp = get_trash_chunk();
515 chunk_reset(tmp);
516
517 if (severity < 0 || severity > 7) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100518 ha_warning("socket command feedback with invalid severity %d", severity);
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200519 chunk_printf(tmp, "[%d]: ", severity);
520 }
521 else {
522 switch (severity_output) {
523 case CLI_SEVERITY_NUMBER:
524 chunk_printf(tmp, "[%d]: ", severity);
525 break;
526 case CLI_SEVERITY_STRING:
527 chunk_printf(tmp, "[%s]: ", log_levels[severity]);
528 break;
529 default:
Christopher Faulet767a84b2017-11-24 16:50:31 +0100530 ha_warning("Unrecognized severity output %d", severity_output);
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200531 }
532 }
533 chunk_appendf(tmp, "%s", msg);
534
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200535 return ci_putblk(chn, tmp->area, strlen(tmp->area));
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200536}
537
William Lallemand74c24fb2016-11-21 17:18:36 +0100538/* This I/O handler runs as an applet embedded in a stream interface. It is
539 * used to processes I/O from/to the stats unix socket. The system relies on a
540 * state machine handling requests and various responses. We read a request,
541 * then we process it and send the response, and we possibly display a prompt.
542 * Then we can read again. The state is stored in appctx->st0 and is one of the
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100543 * CLI_ST_* constants. appctx->st1 is used to indicate whether prompt is enabled
William Lallemand74c24fb2016-11-21 17:18:36 +0100544 * or not.
545 */
546static void cli_io_handler(struct appctx *appctx)
547{
548 struct stream_interface *si = appctx->owner;
549 struct channel *req = si_oc(si);
550 struct channel *res = si_ic(si);
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200551 struct bind_conf *bind_conf = strm_li(si_strm(si))->bind_conf;
William Lallemand74c24fb2016-11-21 17:18:36 +0100552 int reql;
553 int len;
554
555 if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO))
556 goto out;
557
Joseph Herlant008b3ce2018-11-25 12:51:45 -0800558 /* Check if the input buffer is available. */
Willy Tarreauc9fa0482018-07-10 17:43:27 +0200559 if (res->buf.size == 0) {
Willy Tarreau4b962a42018-11-15 11:03:21 +0100560 /* buf.size==0 means we failed to get a buffer and were
561 * already subscribed to a wait list to get a buffer.
562 */
Christopher Fauleta73e59b2016-12-09 17:30:18 +0100563 goto out;
564 }
565
William Lallemand74c24fb2016-11-21 17:18:36 +0100566 while (1) {
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100567 if (appctx->st0 == CLI_ST_INIT) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100568 /* Stats output not initialized yet */
569 memset(&appctx->ctx.stats, 0, sizeof(appctx->ctx.stats));
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200570 /* reset severity to default at init */
571 appctx->cli_severity_output = bind_conf->severity_output;
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100572 appctx->st0 = CLI_ST_GETREQ;
William Lallemandf630d012018-12-13 09:05:44 +0100573 appctx->cli_level = bind_conf->level;
William Lallemand74c24fb2016-11-21 17:18:36 +0100574 }
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100575 else if (appctx->st0 == CLI_ST_END) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100576 /* Let's close for real now. We just close the request
577 * side, the conditions below will complete if needed.
578 */
579 si_shutw(si);
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200580 free_trash_chunk(appctx->chunk);
William Lallemand74c24fb2016-11-21 17:18:36 +0100581 break;
582 }
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100583 else if (appctx->st0 == CLI_ST_GETREQ) {
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200584 char *str;
585
586 /* use a trash chunk to store received data */
587 if (!appctx->chunk) {
588 appctx->chunk = alloc_trash_chunk();
589 if (!appctx->chunk) {
590 appctx->st0 = CLI_ST_END;
591 continue;
592 }
593 }
594
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200595 str = appctx->chunk->area + appctx->chunk->data;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200596
William Lallemand74c24fb2016-11-21 17:18:36 +0100597 /* ensure we have some output room left in the event we
598 * would want to return some info right after parsing.
599 */
600 if (buffer_almost_full(si_ib(si))) {
Willy Tarreaudb398432018-11-15 11:08:52 +0100601 si_rx_room_blk(si);
William Lallemand74c24fb2016-11-21 17:18:36 +0100602 break;
603 }
604
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200605 /* '- 1' is to ensure a null byte can always be inserted at the end */
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200606 reql = co_getline(si_oc(si), str,
607 appctx->chunk->size - appctx->chunk->data - 1);
William Lallemand74c24fb2016-11-21 17:18:36 +0100608 if (reql <= 0) { /* closed or EOL not found */
609 if (reql == 0)
610 break;
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100611 appctx->st0 = CLI_ST_END;
William Lallemand74c24fb2016-11-21 17:18:36 +0100612 continue;
613 }
614
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200615 if (!(appctx->st1 & APPCTX_CLI_ST1_PAYLOAD)) {
616 /* seek for a possible unescaped semi-colon. If we find
617 * one, we replace it with an LF and skip only this part.
618 */
619 for (len = 0; len < reql; len++) {
620 if (str[len] == '\\') {
621 len++;
622 continue;
623 }
624 if (str[len] == ';') {
625 str[len] = '\n';
626 reql = len + 1;
627 break;
628 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100629 }
630 }
631
632 /* now it is time to check that we have a full line,
633 * remove the trailing \n and possibly \r, then cut the
634 * line.
635 */
636 len = reql - 1;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200637 if (str[len] != '\n') {
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100638 appctx->st0 = CLI_ST_END;
William Lallemand74c24fb2016-11-21 17:18:36 +0100639 continue;
640 }
641
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200642 if (len && str[len-1] == '\r')
William Lallemand74c24fb2016-11-21 17:18:36 +0100643 len--;
644
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200645 str[len] = '\0';
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200646 appctx->chunk->data += len;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200647
648 if (appctx->st1 & APPCTX_CLI_ST1_PAYLOAD) {
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200649 appctx->chunk->area[appctx->chunk->data] = '\n';
650 appctx->chunk->area[appctx->chunk->data + 1] = 0;
651 appctx->chunk->data++;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200652 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100653
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100654 appctx->st0 = CLI_ST_PROMPT;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200655
656 if (appctx->st1 & APPCTX_CLI_ST1_PAYLOAD) {
657 /* empty line */
658 if (!len) {
659 /* remove the last two \n */
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200660 appctx->chunk->data -= 2;
661 appctx->chunk->area[appctx->chunk->data] = 0;
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200662
663 if (!cli_parse_request(appctx))
664 cli_gen_usage_msg(appctx);
665
666 chunk_reset(appctx->chunk);
667 /* NB: cli_sock_parse_request() may have put
668 * another CLI_ST_O_* into appctx->st0.
669 */
670
671 appctx->st1 &= ~APPCTX_CLI_ST1_PAYLOAD;
William Lallemand74c24fb2016-11-21 17:18:36 +0100672 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100673 }
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200674 else {
675 /*
676 * Look for the "payload start" pattern at the end of a line
677 * Its location is not remembered here, this is just to switch
678 * to a gathering mode.
William Lallemand74c24fb2016-11-21 17:18:36 +0100679 */
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200680 if (!strcmp(appctx->chunk->area + appctx->chunk->data - strlen(PAYLOAD_PATTERN), PAYLOAD_PATTERN))
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200681 appctx->st1 |= APPCTX_CLI_ST1_PAYLOAD;
Andjelko Iharosc3680ec2017-07-20 16:49:14 +0200682 else {
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200683 /* no payload, the command is complete: parse the request */
684 if (!cli_parse_request(appctx))
685 cli_gen_usage_msg(appctx);
686
687 chunk_reset(appctx->chunk);
Andjelko Iharosc3680ec2017-07-20 16:49:14 +0200688 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100689 }
690
691 /* re-adjust req buffer */
Willy Tarreau06d80a92017-10-19 14:32:15 +0200692 co_skip(si_oc(si), reql);
William Lallemand74c24fb2016-11-21 17:18:36 +0100693 req->flags |= CF_READ_DONTWAIT; /* we plan to read small requests */
694 }
695 else { /* output functions */
696 switch (appctx->st0) {
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100697 case CLI_ST_PROMPT:
William Lallemand74c24fb2016-11-21 17:18:36 +0100698 break;
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100699 case CLI_ST_PRINT:
Andjelko Iharosc4df59e2017-07-20 11:59:48 +0200700 if (cli_output_msg(res, appctx->ctx.cli.msg, appctx->ctx.cli.severity,
701 cli_get_severity_output(appctx)) != -1)
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100702 appctx->st0 = CLI_ST_PROMPT;
William Lallemand74c24fb2016-11-21 17:18:36 +0100703 else
Willy Tarreaudb398432018-11-15 11:08:52 +0100704 si_rx_room_blk(si);
William Lallemand74c24fb2016-11-21 17:18:36 +0100705 break;
Aurélien Nephtalic511b7c2018-04-16 18:50:19 +0200706 case CLI_ST_PRINT_FREE: {
707 const char *msg = appctx->ctx.cli.err;
708
709 if (!msg)
710 msg = "Out of memory.\n";
711
712 if (cli_output_msg(res, msg, LOG_ERR, cli_get_severity_output(appctx)) != -1) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100713 free(appctx->ctx.cli.err);
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100714 appctx->st0 = CLI_ST_PROMPT;
William Lallemand74c24fb2016-11-21 17:18:36 +0100715 }
716 else
Willy Tarreaudb398432018-11-15 11:08:52 +0100717 si_rx_room_blk(si);
William Lallemand74c24fb2016-11-21 17:18:36 +0100718 break;
Aurélien Nephtalic511b7c2018-04-16 18:50:19 +0200719 }
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100720 case CLI_ST_CALLBACK: /* use custom pointer */
William Lallemand74c24fb2016-11-21 17:18:36 +0100721 if (appctx->io_handler)
722 if (appctx->io_handler(appctx)) {
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100723 appctx->st0 = CLI_ST_PROMPT;
William Lallemand74c24fb2016-11-21 17:18:36 +0100724 if (appctx->io_release) {
725 appctx->io_release(appctx);
726 appctx->io_release = NULL;
727 }
728 }
729 break;
730 default: /* abnormal state */
731 si->flags |= SI_FL_ERR;
732 break;
733 }
734
735 /* The post-command prompt is either LF alone or LF + '> ' in interactive mode */
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100736 if (appctx->st0 == CLI_ST_PROMPT) {
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200737 const char *prompt = "";
738
739 if (appctx->st1 & APPCTX_CLI_ST1_PROMPT) {
740 /*
741 * when entering a payload with interactive mode, change the prompt
742 * to emphasize that more data can still be sent
743 */
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200744 if (appctx->chunk->data && appctx->st1 & APPCTX_CLI_ST1_PAYLOAD)
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +0200745 prompt = "+ ";
746 else
747 prompt = "\n> ";
748 }
749 else {
750 if (!(appctx->st1 & APPCTX_CLI_ST1_PAYLOAD))
751 prompt = "\n";
752 }
753
754 if (ci_putstr(si_ic(si), prompt) != -1)
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100755 appctx->st0 = CLI_ST_GETREQ;
William Lallemand74c24fb2016-11-21 17:18:36 +0100756 else
Willy Tarreaudb398432018-11-15 11:08:52 +0100757 si_rx_room_blk(si);
William Lallemand74c24fb2016-11-21 17:18:36 +0100758 }
759
760 /* If the output functions are still there, it means they require more room. */
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100761 if (appctx->st0 >= CLI_ST_OUTPUT)
William Lallemand74c24fb2016-11-21 17:18:36 +0100762 break;
763
764 /* Now we close the output if one of the writers did so,
765 * or if we're not in interactive mode and the request
766 * buffer is empty. This still allows pipelined requests
767 * to be sent in non-interactive mode.
768 */
William Lallemand3de09d52018-12-11 16:10:56 +0100769 if (((res->flags & (CF_SHUTW|CF_SHUTW_NOW))) ||
770 (!(appctx->st1 & APPCTX_CLI_ST1_PROMPT) && !co_data(req) && (!(appctx->st1 & APPCTX_CLI_ST1_PAYLOAD)))) {
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100771 appctx->st0 = CLI_ST_END;
William Lallemand74c24fb2016-11-21 17:18:36 +0100772 continue;
773 }
774
775 /* switch state back to GETREQ to read next requests */
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100776 appctx->st0 = CLI_ST_GETREQ;
William Lallemand74c24fb2016-11-21 17:18:36 +0100777 }
778 }
779
780 if ((res->flags & CF_SHUTR) && (si->state == SI_ST_EST)) {
781 DPRINTF(stderr, "%s@%d: si to buf closed. req=%08x, res=%08x, st=%d\n",
782 __FUNCTION__, __LINE__, req->flags, res->flags, si->state);
783 /* Other side has closed, let's abort if we have no more processing to do
784 * and nothing more to consume. This is comparable to a broken pipe, so
785 * we forward the close to the request side so that it flows upstream to
786 * the client.
787 */
788 si_shutw(si);
789 }
790
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100791 if ((req->flags & CF_SHUTW) && (si->state == SI_ST_EST) && (appctx->st0 < CLI_ST_OUTPUT)) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100792 DPRINTF(stderr, "%s@%d: buf to si closed. req=%08x, res=%08x, st=%d\n",
793 __FUNCTION__, __LINE__, req->flags, res->flags, si->state);
794 /* We have no more processing to do, and nothing more to send, and
795 * the client side has closed. So we'll forward this state downstream
796 * on the response buffer.
797 */
798 si_shutr(si);
799 res->flags |= CF_READ_NULL;
800 }
801
802 out:
Christopher Faulet45073512018-07-20 10:16:29 +0200803 DPRINTF(stderr, "%s@%d: st=%d, rqf=%x, rpf=%x, rqh=%lu, rqs=%lu, rh=%lu, rs=%lu\n",
William Lallemand74c24fb2016-11-21 17:18:36 +0100804 __FUNCTION__, __LINE__,
Christopher Faulet45073512018-07-20 10:16:29 +0200805 si->state, req->flags, res->flags, ci_data(req), co_data(req), ci_data(res), co_data(res));
William Lallemand74c24fb2016-11-21 17:18:36 +0100806}
807
William Lallemand74c24fb2016-11-21 17:18:36 +0100808/* This is called when the stream interface is closed. For instance, upon an
809 * external abort, we won't call the i/o handler anymore so we may need to
810 * remove back references to the stream currently being dumped.
811 */
812static void cli_release_handler(struct appctx *appctx)
813{
814 if (appctx->io_release) {
815 appctx->io_release(appctx);
816 appctx->io_release = NULL;
817 }
Willy Tarreau3b6e5472016-11-24 15:53:53 +0100818 else if (appctx->st0 == CLI_ST_PRINT_FREE) {
William Lallemand74c24fb2016-11-21 17:18:36 +0100819 free(appctx->ctx.cli.err);
820 appctx->ctx.cli.err = NULL;
821 }
William Lallemand74c24fb2016-11-21 17:18:36 +0100822}
823
824/* This function dumps all environmnent variables to the buffer. It returns 0
825 * if the output buffer is full and it needs to be called again, otherwise
Willy Tarreauf6710f82016-12-16 17:45:44 +0100826 * non-zero. Dumps only one entry if st2 == STAT_ST_END. It uses cli.p0 as the
827 * pointer to the current variable.
William Lallemand74c24fb2016-11-21 17:18:36 +0100828 */
Willy Tarreau0a739292016-11-22 20:21:23 +0100829static int cli_io_handler_show_env(struct appctx *appctx)
William Lallemand74c24fb2016-11-21 17:18:36 +0100830{
Willy Tarreau0a739292016-11-22 20:21:23 +0100831 struct stream_interface *si = appctx->owner;
Willy Tarreauf6710f82016-12-16 17:45:44 +0100832 char **var = appctx->ctx.cli.p0;
William Lallemand74c24fb2016-11-21 17:18:36 +0100833
834 if (unlikely(si_ic(si)->flags & (CF_WRITE_ERROR|CF_SHUTW)))
835 return 1;
836
837 chunk_reset(&trash);
838
839 /* we have two inner loops here, one for the proxy, the other one for
840 * the buffer.
841 */
Willy Tarreauf6710f82016-12-16 17:45:44 +0100842 while (*var) {
843 chunk_printf(&trash, "%s\n", *var);
William Lallemand74c24fb2016-11-21 17:18:36 +0100844
Willy Tarreau06d80a92017-10-19 14:32:15 +0200845 if (ci_putchk(si_ic(si), &trash) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +0100846 si_rx_room_blk(si);
William Lallemand74c24fb2016-11-21 17:18:36 +0100847 return 0;
848 }
849 if (appctx->st2 == STAT_ST_END)
850 break;
Willy Tarreauf6710f82016-12-16 17:45:44 +0100851 var++;
852 appctx->ctx.cli.p0 = var;
William Lallemand74c24fb2016-11-21 17:18:36 +0100853 }
854
855 /* dump complete */
856 return 1;
857}
858
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200859/* This function dumps all file descriptors states (or the requested one) to
860 * the buffer. It returns 0 if the output buffer is full and it needs to be
861 * called again, otherwise non-zero. Dumps only one entry if st2 == STAT_ST_END.
862 * It uses cli.i0 as the fd number to restart from.
863 */
864static int cli_io_handler_show_fd(struct appctx *appctx)
865{
866 struct stream_interface *si = appctx->owner;
867 int fd = appctx->ctx.cli.i0;
Willy Tarreauca1b1572018-12-18 15:45:11 +0100868 int ret = 1;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200869
870 if (unlikely(si_ic(si)->flags & (CF_WRITE_ERROR|CF_SHUTW)))
Willy Tarreauca1b1572018-12-18 15:45:11 +0100871 goto end;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200872
873 chunk_reset(&trash);
874
Willy Tarreauca1b1572018-12-18 15:45:11 +0100875 /* isolate the threads once per round. We're limited to a buffer worth
876 * of output anyway, it cannot last very long.
877 */
878 thread_isolate();
879
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200880 /* we have two inner loops here, one for the proxy, the other one for
881 * the buffer.
882 */
Aurélien Nephtali498a1152018-03-09 18:51:16 +0100883 while (fd >= 0 && fd < global.maxsock) {
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200884 struct fdtab fdt;
Willy Tarreau286ec682017-08-09 16:35:44 +0200885 struct listener *li = NULL;
886 struct server *sv = NULL;
887 struct proxy *px = NULL;
Willy Tarreaua833cd92018-03-29 13:19:37 +0200888 const struct mux_ops *mux = NULL;
Willy Tarreau35b1b482018-03-28 18:41:30 +0200889 void *ctx = NULL;
Willy Tarreau286ec682017-08-09 16:35:44 +0200890 uint32_t conn_flags = 0;
Willy Tarreaue9ca8072018-12-19 18:40:58 +0100891 int is_back = 0;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200892
893 fdt = fdtab[fd];
894
Willy Tarreauca1b1572018-12-18 15:45:11 +0100895 if (!fdt.owner)
Willy Tarreau017af242017-10-04 20:24:54 +0200896 goto skip; // closed
897
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200898 if (fdt.iocb == conn_fd_handler) {
899 conn_flags = ((struct connection *)fdt.owner)->flags;
Willy Tarreau35b1b482018-03-28 18:41:30 +0200900 mux = ((struct connection *)fdt.owner)->mux;
Willy Tarreau3d2ee552018-12-19 14:12:10 +0100901 ctx = ((struct connection *)fdt.owner)->ctx;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200902 li = objt_listener(((struct connection *)fdt.owner)->target);
903 sv = objt_server(((struct connection *)fdt.owner)->target);
904 px = objt_proxy(((struct connection *)fdt.owner)->target);
Willy Tarreaue9ca8072018-12-19 18:40:58 +0100905 is_back = conn_is_back((struct connection *)fdt.owner);
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200906 }
907 else if (fdt.iocb == listener_accept)
908 li = fdt.owner;
909
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200910 chunk_printf(&trash,
Willy Tarreauc754b342018-03-30 15:00:15 +0200911 " %5d : st=0x%02x(R:%c%c%c W:%c%c%c) ev=0x%02x(%c%c%c%c%c) [%c%c] cnext=%d cprev=%d tmask=0x%lx umask=0x%lx owner=%p iocb=%p(%s)",
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200912 fd,
913 fdt.state,
914 (fdt.state & FD_EV_POLLED_R) ? 'P' : 'p',
915 (fdt.state & FD_EV_READY_R) ? 'R' : 'r',
916 (fdt.state & FD_EV_ACTIVE_R) ? 'A' : 'a',
917 (fdt.state & FD_EV_POLLED_W) ? 'P' : 'p',
918 (fdt.state & FD_EV_READY_W) ? 'R' : 'r',
919 (fdt.state & FD_EV_ACTIVE_W) ? 'A' : 'a',
920 fdt.ev,
921 (fdt.ev & FD_POLL_HUP) ? 'H' : 'h',
922 (fdt.ev & FD_POLL_ERR) ? 'E' : 'e',
923 (fdt.ev & FD_POLL_OUT) ? 'O' : 'o',
924 (fdt.ev & FD_POLL_PRI) ? 'P' : 'p',
925 (fdt.ev & FD_POLL_IN) ? 'I' : 'i',
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200926 fdt.linger_risk ? 'L' : 'l',
927 fdt.cloned ? 'C' : 'c',
Willy Tarreauc754b342018-03-30 15:00:15 +0200928 fdt.cache.next,
929 fdt.cache.prev,
930 fdt.thread_mask, fdt.update_mask,
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200931 fdt.owner,
932 fdt.iocb,
933 (fdt.iocb == conn_fd_handler) ? "conn_fd_handler" :
934 (fdt.iocb == dgram_fd_handler) ? "dgram_fd_handler" :
935 (fdt.iocb == listener_accept) ? "listener_accept" :
Olivier Houchard79321b92018-07-26 17:55:11 +0200936 (fdt.iocb == poller_pipe_io_handler) ? "poller_pipe_io_handler" :
William Lallemanddb6bdfb2018-11-20 17:36:51 +0100937 (fdt.iocb == mworker_accept_wrapper) ? "mworker_accept_wrapper" :
Willy Tarreauc754b342018-03-30 15:00:15 +0200938 "unknown");
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200939
940 if (fdt.iocb == conn_fd_handler) {
Willy Tarreaue9ca8072018-12-19 18:40:58 +0100941 chunk_appendf(&trash, " back=%d cflg=0x%08x", is_back, conn_flags);
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200942 if (px)
943 chunk_appendf(&trash, " px=%s", px->id);
944 else if (sv)
945 chunk_appendf(&trash, " sv=%s/%s", sv->id, sv->proxy->id);
946 else if (li)
947 chunk_appendf(&trash, " fe=%s", li->bind_conf->frontend->id);
Willy Tarreau35b1b482018-03-28 18:41:30 +0200948
Willy Tarreaub011d8f2018-03-30 14:41:19 +0200949 if (mux) {
Willy Tarreau3d2ee552018-12-19 14:12:10 +0100950 chunk_appendf(&trash, " mux=%s ctx=%p", mux->name, ctx);
Willy Tarreaub011d8f2018-03-30 14:41:19 +0200951 if (mux->show_fd)
952 mux->show_fd(&trash, fdt.owner);
953 }
Willy Tarreau35b1b482018-03-28 18:41:30 +0200954 else
955 chunk_appendf(&trash, " nomux");
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200956 }
957 else if (fdt.iocb == listener_accept) {
958 chunk_appendf(&trash, " l.st=%s fe=%s",
959 listener_state_str(li),
960 li->bind_conf->frontend->id);
961 }
962
963 chunk_appendf(&trash, "\n");
964
Willy Tarreau06d80a92017-10-19 14:32:15 +0200965 if (ci_putchk(si_ic(si), &trash) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +0100966 si_rx_room_blk(si);
Willy Tarreauca1b1572018-12-18 15:45:11 +0100967 appctx->ctx.cli.i0 = fd;
968 ret = 0;
969 break;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200970 }
971 skip:
972 if (appctx->st2 == STAT_ST_END)
973 break;
974
975 fd++;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200976 }
977
Willy Tarreauca1b1572018-12-18 15:45:11 +0100978 end:
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200979 /* dump complete */
Willy Tarreauca1b1572018-12-18 15:45:11 +0100980
981 thread_release();
982 return ret;
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +0200983}
984
Willy Tarreaud80cb4e2018-01-20 19:30:13 +0100985/* This function dumps some activity counters used by developers and support to
986 * rule out some hypothesis during bug reports. It returns 0 if the output
987 * buffer is full and it needs to be called again, otherwise non-zero. It dumps
988 * everything at once in the buffer and is not designed to do it in multiple
989 * passes.
990 */
991static int cli_io_handler_show_activity(struct appctx *appctx)
992{
993 struct stream_interface *si = appctx->owner;
994 int thr;
995
996 if (unlikely(si_ic(si)->flags & (CF_WRITE_ERROR|CF_SHUTW)))
997 return 1;
998
999 chunk_reset(&trash);
1000
1001 chunk_appendf(&trash, "thread_id: %u", tid);
1002 chunk_appendf(&trash, "\ndate_now: %lu.%06lu", (long)now.tv_sec, (long)now.tv_usec);
1003 chunk_appendf(&trash, "\nloops:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].loops);
1004 chunk_appendf(&trash, "\nwake_cache:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].wake_cache);
1005 chunk_appendf(&trash, "\nwake_tasks:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].wake_tasks);
Willy Tarreaud80cb4e2018-01-20 19:30:13 +01001006 chunk_appendf(&trash, "\nwake_signal:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].wake_signal);
1007 chunk_appendf(&trash, "\npoll_exp:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].poll_exp);
1008 chunk_appendf(&trash, "\npoll_drop:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].poll_drop);
1009 chunk_appendf(&trash, "\npoll_dead:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].poll_dead);
1010 chunk_appendf(&trash, "\npoll_skip:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].poll_skip);
1011 chunk_appendf(&trash, "\nfd_skip:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].fd_skip);
1012 chunk_appendf(&trash, "\nfd_lock:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].fd_lock);
1013 chunk_appendf(&trash, "\nfd_del:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].fd_del);
1014 chunk_appendf(&trash, "\nconn_dead:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].conn_dead);
1015 chunk_appendf(&trash, "\nstream:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].stream);
1016 chunk_appendf(&trash, "\nempty_rq:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].empty_rq);
1017 chunk_appendf(&trash, "\nlong_rq:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].long_rq);
Willy Tarreau4f93e0c2018-11-22 16:13:17 +01001018 chunk_appendf(&trash, "\ncpust_ms_tot:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", activity[thr].cpust_total/2);
1019 chunk_appendf(&trash, "\ncpust_ms_1s:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", read_freq_ctr(&activity[thr].cpust_1s)/2);
1020 chunk_appendf(&trash, "\ncpust_ms_15s:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", read_freq_ctr_period(&activity[thr].cpust_15s, 15000)/2);
Willy Tarreaubaba82f2018-11-22 08:42:42 +01001021 chunk_appendf(&trash, "\navg_loop_us:"); for (thr = 0; thr < global.nbthread; thr++) chunk_appendf(&trash, " %u", swrate_avg(activity[thr].avg_loop_us, TIME_STATS_SAMPLES));
Willy Tarreaud80cb4e2018-01-20 19:30:13 +01001022
1023 chunk_appendf(&trash, "\n");
1024
1025 if (ci_putchk(si_ic(si), &trash) == -1) {
1026 chunk_reset(&trash);
1027 chunk_printf(&trash, "[output too large, cannot dump]\n");
Willy Tarreaudb398432018-11-15 11:08:52 +01001028 si_rx_room_blk(si);
Willy Tarreaud80cb4e2018-01-20 19:30:13 +01001029 }
1030
1031 /* dump complete */
1032 return 1;
1033}
1034
William Lallemandeceddf72016-12-15 18:06:44 +01001035/*
Willy Tarreau3af9d832016-12-16 12:58:09 +01001036 * CLI IO handler for `show cli sockets`.
1037 * Uses ctx.cli.p0 to store the restart pointer.
William Lallemandeceddf72016-12-15 18:06:44 +01001038 */
1039static int cli_io_handler_show_cli_sock(struct appctx *appctx)
1040{
1041 struct bind_conf *bind_conf;
1042 struct stream_interface *si = appctx->owner;
1043
1044 chunk_reset(&trash);
1045
1046 switch (appctx->st2) {
1047 case STAT_ST_INIT:
1048 chunk_printf(&trash, "# socket lvl processes\n");
Willy Tarreau06d80a92017-10-19 14:32:15 +02001049 if (ci_putchk(si_ic(si), &trash) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +01001050 si_rx_room_blk(si);
William Lallemandeceddf72016-12-15 18:06:44 +01001051 return 0;
1052 }
William Lallemandeceddf72016-12-15 18:06:44 +01001053 appctx->st2 = STAT_ST_LIST;
1054
1055 case STAT_ST_LIST:
1056 if (global.stats_fe) {
1057 list_for_each_entry(bind_conf, &global.stats_fe->conf.bind, by_fe) {
1058 struct listener *l;
1059
1060 /*
Willy Tarreau3af9d832016-12-16 12:58:09 +01001061 * get the latest dumped node in appctx->ctx.cli.p0
William Lallemandeceddf72016-12-15 18:06:44 +01001062 * if the current node is the first of the list
1063 */
1064
Willy Tarreau3af9d832016-12-16 12:58:09 +01001065 if (appctx->ctx.cli.p0 &&
1066 &bind_conf->by_fe == (&global.stats_fe->conf.bind)->n) {
William Lallemandeceddf72016-12-15 18:06:44 +01001067 /* change the current node to the latest dumped and continue the loop */
Willy Tarreau3af9d832016-12-16 12:58:09 +01001068 bind_conf = LIST_ELEM(appctx->ctx.cli.p0, typeof(bind_conf), by_fe);
William Lallemandeceddf72016-12-15 18:06:44 +01001069 continue;
1070 }
1071
1072 list_for_each_entry(l, &bind_conf->listeners, by_bind) {
1073
1074 char addr[46];
1075 char port[6];
1076
1077 if (l->addr.ss_family == AF_UNIX) {
1078 const struct sockaddr_un *un;
1079
1080 un = (struct sockaddr_un *)&l->addr;
1081 chunk_appendf(&trash, "%s ", un->sun_path);
1082 } else if (l->addr.ss_family == AF_INET) {
1083 addr_to_str(&l->addr, addr, sizeof(addr));
1084 port_to_str(&l->addr, port, sizeof(port));
1085 chunk_appendf(&trash, "%s:%s ", addr, port);
1086 } else if (l->addr.ss_family == AF_INET6) {
1087 addr_to_str(&l->addr, addr, sizeof(addr));
1088 port_to_str(&l->addr, port, sizeof(port));
1089 chunk_appendf(&trash, "[%s]:%s ", addr, port);
William Lallemand26314342018-10-26 14:47:41 +02001090 } else if (l->addr.ss_family == AF_CUST_SOCKPAIR) {
1091 chunk_appendf(&trash, "sockpair@%d ", ((struct sockaddr_in *)&l->addr)->sin_addr.s_addr);
William Lallemandeceddf72016-12-15 18:06:44 +01001092 } else
William Lallemand26314342018-10-26 14:47:41 +02001093 chunk_appendf(&trash, "unknown ");
William Lallemandeceddf72016-12-15 18:06:44 +01001094
William Lallemand07a62f72017-05-24 00:57:40 +02001095 if ((bind_conf->level & ACCESS_LVL_MASK) == ACCESS_LVL_ADMIN)
William Lallemandeceddf72016-12-15 18:06:44 +01001096 chunk_appendf(&trash, "admin ");
William Lallemand07a62f72017-05-24 00:57:40 +02001097 else if ((bind_conf->level & ACCESS_LVL_MASK) == ACCESS_LVL_OPER)
1098 chunk_appendf(&trash, "operator ");
1099 else if ((bind_conf->level & ACCESS_LVL_MASK) == ACCESS_LVL_USER)
1100 chunk_appendf(&trash, "user ");
William Lallemandeceddf72016-12-15 18:06:44 +01001101 else
1102 chunk_appendf(&trash, " ");
1103
1104 if (bind_conf->bind_proc != 0) {
1105 int pos;
Willy Tarreau20c5e522016-12-16 12:50:55 +01001106 for (pos = 0; pos < 8 * sizeof(bind_conf->bind_proc); pos++) {
Willy Tarreau4305ac72016-12-16 12:56:31 +01001107 if (bind_conf->bind_proc & (1UL << pos)) {
William Lallemandeceddf72016-12-15 18:06:44 +01001108 chunk_appendf(&trash, "%d,", pos+1);
1109 }
1110 }
1111 /* replace the latest comma by a newline */
Willy Tarreau843b7cb2018-07-13 10:54:26 +02001112 trash.area[trash.data-1] = '\n';
William Lallemandeceddf72016-12-15 18:06:44 +01001113
1114 } else {
1115 chunk_appendf(&trash, "all\n");
1116 }
1117
Willy Tarreau06d80a92017-10-19 14:32:15 +02001118 if (ci_putchk(si_ic(si), &trash) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +01001119 si_rx_room_blk(si);
William Lallemandeceddf72016-12-15 18:06:44 +01001120 return 0;
1121 }
1122 }
Willy Tarreau3af9d832016-12-16 12:58:09 +01001123 appctx->ctx.cli.p0 = &bind_conf->by_fe; /* store the latest list node dumped */
William Lallemandeceddf72016-12-15 18:06:44 +01001124 }
1125 }
1126 default:
1127 appctx->st2 = STAT_ST_FIN;
1128 return 1;
1129 }
1130}
1131
1132
Willy Tarreau0a739292016-11-22 20:21:23 +01001133/* parse a "show env" CLI request. Returns 0 if it needs to continue, 1 if it
Willy Tarreauf6710f82016-12-16 17:45:44 +01001134 * wants to stop here. It puts the variable to be dumped into cli.p0 if a single
1135 * variable is requested otherwise puts environ there.
Willy Tarreau0a739292016-11-22 20:21:23 +01001136 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001137static int cli_parse_show_env(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau0a739292016-11-22 20:21:23 +01001138{
1139 extern char **environ;
Willy Tarreauf6710f82016-12-16 17:45:44 +01001140 char **var;
Willy Tarreau0a739292016-11-22 20:21:23 +01001141
1142 if (!cli_has_level(appctx, ACCESS_LVL_OPER))
1143 return 1;
1144
Willy Tarreauf6710f82016-12-16 17:45:44 +01001145 var = environ;
Willy Tarreau0a739292016-11-22 20:21:23 +01001146
1147 if (*args[2]) {
1148 int len = strlen(args[2]);
1149
Willy Tarreauf6710f82016-12-16 17:45:44 +01001150 for (; *var; var++) {
1151 if (strncmp(*var, args[2], len) == 0 &&
1152 (*var)[len] == '=')
Willy Tarreau0a739292016-11-22 20:21:23 +01001153 break;
1154 }
Willy Tarreauf6710f82016-12-16 17:45:44 +01001155 if (!*var) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001156 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau0a739292016-11-22 20:21:23 +01001157 appctx->ctx.cli.msg = "Variable not found\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001158 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau0a739292016-11-22 20:21:23 +01001159 return 1;
1160 }
1161 appctx->st2 = STAT_ST_END;
1162 }
Willy Tarreauf6710f82016-12-16 17:45:44 +01001163 appctx->ctx.cli.p0 = var;
Willy Tarreau0a739292016-11-22 20:21:23 +01001164 return 0;
1165}
1166
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +02001167/* parse a "show fd" CLI request. Returns 0 if it needs to continue, 1 if it
1168 * wants to stop here. It puts the FD number into cli.i0 if a specific FD is
1169 * requested and sets st2 to STAT_ST_END, otherwise leaves 0 in i0.
1170 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001171static int cli_parse_show_fd(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +02001172{
1173 if (!cli_has_level(appctx, ACCESS_LVL_OPER))
1174 return 1;
1175
1176 appctx->ctx.cli.i0 = 0;
1177
1178 if (*args[2]) {
1179 appctx->ctx.cli.i0 = atoi(args[2]);
1180 appctx->st2 = STAT_ST_END;
1181 }
1182 return 0;
1183}
1184
Willy Tarreau599852e2016-11-22 20:33:32 +01001185/* parse a "set timeout" CLI request. It always returns 1. */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001186static int cli_parse_set_timeout(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau599852e2016-11-22 20:33:32 +01001187{
1188 struct stream_interface *si = appctx->owner;
1189 struct stream *s = si_strm(si);
1190
1191 if (strcmp(args[2], "cli") == 0) {
1192 unsigned timeout;
1193 const char *res;
1194
1195 if (!*args[3]) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001196 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau599852e2016-11-22 20:33:32 +01001197 appctx->ctx.cli.msg = "Expects an integer value.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001198 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau599852e2016-11-22 20:33:32 +01001199 return 1;
1200 }
1201
1202 res = parse_time_err(args[3], &timeout, TIME_UNIT_S);
1203 if (res || timeout < 1) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001204 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau599852e2016-11-22 20:33:32 +01001205 appctx->ctx.cli.msg = "Invalid timeout value.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001206 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau599852e2016-11-22 20:33:32 +01001207 return 1;
1208 }
1209
1210 s->req.rto = s->res.wto = 1 + MS_TO_TICKS(timeout*1000);
1211 task_wakeup(s->task, TASK_WOKEN_MSG); // recompute timeouts
1212 return 1;
1213 }
1214 else {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001215 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau599852e2016-11-22 20:33:32 +01001216 appctx->ctx.cli.msg = "'set timeout' only supports 'cli'.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001217 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau599852e2016-11-22 20:33:32 +01001218 return 1;
1219 }
1220}
1221
Willy Tarreau2af99412016-11-23 11:10:59 +01001222/* parse a "set maxconn global" command. It always returns 1. */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001223static int cli_parse_set_maxconn_global(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau2af99412016-11-23 11:10:59 +01001224{
1225 int v;
1226
1227 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
1228 return 1;
1229
1230 if (!*args[3]) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001231 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau2af99412016-11-23 11:10:59 +01001232 appctx->ctx.cli.msg = "Expects an integer value.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001233 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau2af99412016-11-23 11:10:59 +01001234 return 1;
1235 }
1236
1237 v = atoi(args[3]);
1238 if (v > global.hardmaxconn) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001239 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau2af99412016-11-23 11:10:59 +01001240 appctx->ctx.cli.msg = "Value out of range.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001241 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau2af99412016-11-23 11:10:59 +01001242 return 1;
1243 }
1244
1245 /* check for unlimited values */
1246 if (v <= 0)
1247 v = global.hardmaxconn;
1248
1249 global.maxconn = v;
1250
1251 /* Dequeues all of the listeners waiting for a resource */
1252 if (!LIST_ISEMPTY(&global_listener_queue))
1253 dequeue_all_listeners(&global_listener_queue);
1254
1255 return 1;
1256}
1257
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02001258static int set_severity_output(int *target, char *argument)
1259{
1260 if (!strcmp(argument, "none")) {
1261 *target = CLI_SEVERITY_NONE;
1262 return 1;
1263 }
1264 else if (!strcmp(argument, "number")) {
1265 *target = CLI_SEVERITY_NUMBER;
1266 return 1;
1267 }
1268 else if (!strcmp(argument, "string")) {
1269 *target = CLI_SEVERITY_STRING;
1270 return 1;
1271 }
1272 return 0;
1273}
1274
1275/* parse a "set severity-output" command. */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001276static int cli_parse_set_severity_output(char **args, char *payload, struct appctx *appctx, void *private)
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02001277{
1278 if (*args[2] && set_severity_output(&appctx->cli_severity_output, args[2]))
1279 return 0;
1280
1281 appctx->ctx.cli.severity = LOG_ERR;
Aurélien Nephtali6e8a41d2018-03-15 21:48:50 +01001282 appctx->ctx.cli.msg = "one of 'none', 'number', 'string' is a required argument\n";
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02001283 appctx->st0 = CLI_ST_PRINT;
1284 return 1;
1285}
William Lallemandeceddf72016-12-15 18:06:44 +01001286
William Lallemand67a234f2018-12-13 09:05:45 +01001287
1288/* show the level of the current CLI session */
1289static int cli_parse_show_lvl(char **args, char *payload, struct appctx *appctx, void *private)
1290{
1291
1292 appctx->ctx.cli.severity = LOG_INFO;
1293 if ((appctx->cli_level & ACCESS_LVL_MASK) == ACCESS_LVL_ADMIN)
1294 appctx->ctx.cli.msg = "admin\n";
1295 else if ((appctx->cli_level & ACCESS_LVL_MASK) == ACCESS_LVL_OPER)
1296 appctx->ctx.cli.msg = "operator\n";
1297 else if ((appctx->cli_level & ACCESS_LVL_MASK) == ACCESS_LVL_USER)
1298 appctx->ctx.cli.msg = "user\n";
1299 else
1300 appctx->ctx.cli.msg = "unknown\n";
1301
1302 appctx->st0 = CLI_ST_PRINT;
1303 return 1;
1304
1305}
1306
1307/* parse and set the CLI level dynamically */
1308static int cli_parse_set_lvl(char **args, char *payload, struct appctx *appctx, void *private)
1309{
1310 if (!strcmp(args[0], "operator")) {
1311 if (!cli_has_level(appctx, ACCESS_LVL_OPER)) {
1312 return 1;
1313 }
1314 appctx->cli_level &= ~ACCESS_LVL_MASK;
1315 appctx->cli_level |= ACCESS_LVL_OPER;
1316
1317 } else if (!strcmp(args[0], "user")) {
1318 if (!cli_has_level(appctx, ACCESS_LVL_USER)) {
1319 return 1;
1320 }
1321 appctx->cli_level &= ~ACCESS_LVL_MASK;
1322 appctx->cli_level |= ACCESS_LVL_USER;
1323 }
1324 return 1;
1325}
1326
William Lallemanda57b7e32018-12-14 21:11:31 +01001327/* reload the master process */
1328static int cli_parse_reload(char **args, char *payload, struct appctx *appctx, void *private)
1329{
1330 if (!cli_has_level(appctx, ACCESS_LVL_OPER))
1331 return 1;
1332
1333 mworker_reload();
1334
1335 return 1;
1336}
1337
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001338int cli_parse_default(char **args, char *payload, struct appctx *appctx, void *private)
William Lallemandeceddf72016-12-15 18:06:44 +01001339{
1340 return 0;
1341}
1342
Willy Tarreau45c742b2016-11-24 14:51:17 +01001343/* parse a "set rate-limit" command. It always returns 1. */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001344static int cli_parse_set_ratelimit(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau45c742b2016-11-24 14:51:17 +01001345{
1346 int v;
1347 int *res;
1348 int mul = 1;
1349
1350 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
1351 return 1;
1352
1353 if (strcmp(args[2], "connections") == 0 && strcmp(args[3], "global") == 0)
1354 res = &global.cps_lim;
1355 else if (strcmp(args[2], "sessions") == 0 && strcmp(args[3], "global") == 0)
1356 res = &global.sps_lim;
1357#ifdef USE_OPENSSL
1358 else if (strcmp(args[2], "ssl-sessions") == 0 && strcmp(args[3], "global") == 0)
1359 res = &global.ssl_lim;
1360#endif
1361 else if (strcmp(args[2], "http-compression") == 0 && strcmp(args[3], "global") == 0) {
1362 res = &global.comp_rate_lim;
1363 mul = 1024;
1364 }
1365 else {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001366 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001367 appctx->ctx.cli.msg =
1368 "'set rate-limit' only supports :\n"
1369 " - 'connections global' to set the per-process maximum connection rate\n"
1370 " - 'sessions global' to set the per-process maximum session rate\n"
1371#ifdef USE_OPENSSL
Aurélien Nephtalib53e2082018-03-11 16:55:02 +01001372 " - 'ssl-sessions global' to set the per-process maximum SSL session rate\n"
Willy Tarreau45c742b2016-11-24 14:51:17 +01001373#endif
1374 " - 'http-compression global' to set the per-process maximum compression speed in kB/s\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001375 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001376 return 1;
1377 }
1378
1379 if (!*args[4]) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001380 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001381 appctx->ctx.cli.msg = "Expects an integer value.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001382 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001383 return 1;
1384 }
1385
1386 v = atoi(args[4]);
1387 if (v < 0) {
Andjelko Iharosc3680ec2017-07-20 16:49:14 +02001388 appctx->ctx.cli.severity = LOG_ERR;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001389 appctx->ctx.cli.msg = "Value out of range.\n";
Willy Tarreau3b6e5472016-11-24 15:53:53 +01001390 appctx->st0 = CLI_ST_PRINT;
Willy Tarreau45c742b2016-11-24 14:51:17 +01001391 return 1;
1392 }
1393
1394 *res = v * mul;
1395
1396 /* Dequeues all of the listeners waiting for a resource */
1397 if (!LIST_ISEMPTY(&global_listener_queue))
1398 dequeue_all_listeners(&global_listener_queue);
1399
1400 return 1;
1401}
1402
William Lallemandf6975e92017-05-26 17:42:10 +02001403/* parse the "expose-fd" argument on the bind lines */
1404static int bind_parse_expose_fd(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
1405{
1406 if (!*args[cur_arg + 1]) {
1407 memprintf(err, "'%s' : missing fd type", args[cur_arg]);
1408 return ERR_ALERT | ERR_FATAL;
1409 }
1410 if (!strcmp(args[cur_arg+1], "listeners")) {
1411 conf->level |= ACCESS_FD_LISTENERS;
1412 } else {
1413 memprintf(err, "'%s' only supports 'listeners' (got '%s')",
1414 args[cur_arg], args[cur_arg+1]);
1415 return ERR_ALERT | ERR_FATAL;
1416 }
1417
1418 return 0;
1419}
1420
William Lallemand74c24fb2016-11-21 17:18:36 +01001421/* parse the "level" argument on the bind lines */
1422static int bind_parse_level(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
1423{
1424 if (!*args[cur_arg + 1]) {
1425 memprintf(err, "'%s' : missing level", args[cur_arg]);
1426 return ERR_ALERT | ERR_FATAL;
1427 }
1428
William Lallemand07a62f72017-05-24 00:57:40 +02001429 if (!strcmp(args[cur_arg+1], "user")) {
1430 conf->level &= ~ACCESS_LVL_MASK;
1431 conf->level |= ACCESS_LVL_USER;
1432 } else if (!strcmp(args[cur_arg+1], "operator")) {
1433 conf->level &= ~ACCESS_LVL_MASK;
1434 conf->level |= ACCESS_LVL_OPER;
1435 } else if (!strcmp(args[cur_arg+1], "admin")) {
1436 conf->level &= ~ACCESS_LVL_MASK;
1437 conf->level |= ACCESS_LVL_ADMIN;
1438 } else {
William Lallemand74c24fb2016-11-21 17:18:36 +01001439 memprintf(err, "'%s' only supports 'user', 'operator', and 'admin' (got '%s')",
1440 args[cur_arg], args[cur_arg+1]);
1441 return ERR_ALERT | ERR_FATAL;
1442 }
1443
1444 return 0;
1445}
1446
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02001447static int bind_parse_severity_output(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
1448{
1449 if (!*args[cur_arg + 1]) {
1450 memprintf(err, "'%s' : missing severity format", args[cur_arg]);
1451 return ERR_ALERT | ERR_FATAL;
1452 }
1453
1454 if (set_severity_output(&conf->severity_output, args[cur_arg+1]))
1455 return 0;
1456 else {
1457 memprintf(err, "'%s' only supports 'none', 'number', and 'string' (got '%s')",
1458 args[cur_arg], args[cur_arg+1]);
1459 return ERR_ALERT | ERR_FATAL;
1460 }
1461}
1462
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001463
1464 /* Displays workers and processes */
1465static int cli_io_handler_show_proc(struct appctx *appctx)
1466{
1467 struct stream_interface *si = appctx->owner;
1468 struct mworker_proc *child;
William Lallemande09cdc62018-11-19 18:46:16 +01001469 int old = 0;
William Lallemand16dd1b32018-11-19 18:46:18 +01001470 int up = now.tv_sec - proc_self->timestamp;
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001471
1472 if (unlikely(si_ic(si)->flags & (CF_WRITE_ERROR|CF_SHUTW)))
1473 return 1;
1474
1475 chunk_reset(&trash);
1476
William Lallemande3683302018-11-19 18:46:17 +01001477 chunk_printf(&trash, "#%-14s %-15s %-15s %-15s %s\n", "<PID>", "<type>", "<relative PID>", "<reloads>", "<uptime>");
William Lallemand16dd1b32018-11-19 18:46:18 +01001478 chunk_appendf(&trash, "%-15u %-15s %-15u %-15d %dd %02dh%02dm%02ds\n", getpid(), "master", 0, proc_self->reloads, up / 86400, (up % 86400) / 3600, (up % 3600) / 60, (up % 60));
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001479
William Lallemande09cdc62018-11-19 18:46:16 +01001480 /* displays current processes */
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001481
William Lallemande09cdc62018-11-19 18:46:16 +01001482 chunk_appendf(&trash, "# workers\n");
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001483 list_for_each_entry(child, &proc_list, list) {
William Lallemand16dd1b32018-11-19 18:46:18 +01001484 up = now.tv_sec - child->timestamp;
1485
1486 if (child->type != 'w')
1487 continue;
William Lallemande09cdc62018-11-19 18:46:16 +01001488
1489 if (child->reloads > 0) {
1490 old++;
1491 continue;
1492 }
William Lallemande3683302018-11-19 18:46:17 +01001493 chunk_appendf(&trash, "%-15u %-15s %-15u %-15d %dd %02dh%02dm%02ds\n", child->pid, "worker", child->relative_pid, child->reloads, up / 86400, (up % 86400) / 3600, (up % 3600) / 60, (up % 60));
William Lallemand256bf0d2018-12-12 13:45:57 +01001494 }
William Lallemande09cdc62018-11-19 18:46:16 +01001495
1496 /* displays old processes */
1497
1498 if (old) {
William Lallemand256bf0d2018-12-12 13:45:57 +01001499 char *msg = NULL;
1500
William Lallemande09cdc62018-11-19 18:46:16 +01001501 chunk_appendf(&trash, "# old workers\n");
1502 list_for_each_entry(child, &proc_list, list) {
William Lallemand16dd1b32018-11-19 18:46:18 +01001503 up = now.tv_sec - child->timestamp;
1504
1505 if (child->type != 'w')
1506 continue;
1507
William Lallemand256bf0d2018-12-12 13:45:57 +01001508 if (child->reloads > 0) {
1509 memprintf(&msg, "[was: %u]", child->relative_pid);
1510 chunk_appendf(&trash, "%-15u %-15s %-15s %-15d %dd %02dh%02dm%02ds\n", child->pid, "worker", msg, child->reloads, up / 86400, (up % 86400) / 3600, (up % 3600) / 60, (up % 60));
1511 }
William Lallemande09cdc62018-11-19 18:46:16 +01001512 }
William Lallemand256bf0d2018-12-12 13:45:57 +01001513 free(msg);
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001514 }
1515
1516 if (ci_putchk(si_ic(si), &trash) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +01001517 si_rx_room_blk(si);
William Lallemandb9f9e3b2018-10-26 14:47:39 +02001518 return 0;
1519 }
1520
1521 /* dump complete */
1522 return 1;
1523}
1524
Olivier Houchardf886e342017-04-05 22:24:59 +02001525/* Send all the bound sockets, always returns 1 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001526static int _getsocks(char **args, char *payload, struct appctx *appctx, void *private)
Olivier Houchardf886e342017-04-05 22:24:59 +02001527{
1528 char *cmsgbuf = NULL;
1529 unsigned char *tmpbuf = NULL;
1530 struct cmsghdr *cmsg;
1531 struct stream_interface *si = appctx->owner;
William Lallemandf6975e92017-05-26 17:42:10 +02001532 struct stream *s = si_strm(si);
Olivier Houchard9aaf7782017-09-13 18:30:23 +02001533 struct connection *remote = cs_conn(objt_cs(si_opposite(si)->end));
Olivier Houchardf886e342017-04-05 22:24:59 +02001534 struct msghdr msghdr;
1535 struct iovec iov;
Olivier Houchard54740872017-04-06 14:45:14 +02001536 struct timeval tv = { .tv_sec = 1, .tv_usec = 0 };
Olivier Houchardf886e342017-04-05 22:24:59 +02001537 int *tmpfd;
1538 int tot_fd_nb = 0;
1539 struct proxy *px;
1540 int i = 0;
Willy Tarreauc2b7f802018-09-20 11:22:29 +02001541 int fd = -1;
Olivier Houchardf886e342017-04-05 22:24:59 +02001542 int curoff = 0;
Willy Tarreauc2b7f802018-09-20 11:22:29 +02001543 int old_fcntl = -1;
Olivier Houchardf886e342017-04-05 22:24:59 +02001544 int ret;
1545
Willy Tarreauc2b7f802018-09-20 11:22:29 +02001546 if (!remote) {
1547 ha_warning("Only works on real connections\n");
1548 goto out;
1549 }
1550
1551 fd = remote->handle.fd;
1552
Olivier Houchardf886e342017-04-05 22:24:59 +02001553 /* Temporary set the FD in blocking mode, that will make our life easier */
1554 old_fcntl = fcntl(fd, F_GETFL);
1555 if (old_fcntl < 0) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001556 ha_warning("Couldn't get the flags for the unix socket\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001557 goto out;
1558 }
1559 cmsgbuf = malloc(CMSG_SPACE(sizeof(int) * MAX_SEND_FD));
1560 if (!cmsgbuf) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001561 ha_warning("Failed to allocate memory to send sockets\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001562 goto out;
1563 }
1564 if (fcntl(fd, F_SETFL, old_fcntl &~ O_NONBLOCK) == -1) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001565 ha_warning("Cannot make the unix socket blocking\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001566 goto out;
1567 }
Olivier Houchard54740872017-04-06 14:45:14 +02001568 setsockopt(fd, SOL_SOCKET, SO_RCVTIMEO, (void *)&tv, sizeof(tv));
Olivier Houchardf886e342017-04-05 22:24:59 +02001569 iov.iov_base = &tot_fd_nb;
1570 iov.iov_len = sizeof(tot_fd_nb);
William Lallemandf6975e92017-05-26 17:42:10 +02001571 if (!(strm_li(s)->bind_conf->level & ACCESS_FD_LISTENERS))
Olivier Houchardf886e342017-04-05 22:24:59 +02001572 goto out;
1573 memset(&msghdr, 0, sizeof(msghdr));
1574 /*
1575 * First, calculates the total number of FD, so that we can let
1576 * the caller know how much he should expects.
1577 */
Olivier Houchardfbc74e82017-11-24 16:54:05 +01001578 px = proxies_list;
Olivier Houchardf886e342017-04-05 22:24:59 +02001579 while (px) {
1580 struct listener *l;
1581
1582 list_for_each_entry(l, &px->conf.listeners, by_fe) {
Olivier Houchard1fc05162017-04-06 01:05:05 +02001583 /* Only transfer IPv4/IPv6/UNIX sockets */
1584 if (l->state >= LI_ZOMBIE &&
1585 (l->proto->sock_family == AF_INET ||
Olivier Houchardf886e342017-04-05 22:24:59 +02001586 l->proto->sock_family == AF_INET6 ||
Olivier Houchard1fc05162017-04-06 01:05:05 +02001587 l->proto->sock_family == AF_UNIX))
Olivier Houchardf886e342017-04-05 22:24:59 +02001588 tot_fd_nb++;
1589 }
1590 px = px->next;
1591 }
1592 if (tot_fd_nb == 0)
1593 goto out;
1594
1595 /* First send the total number of file descriptors, so that the
1596 * receiving end knows what to expect.
1597 */
1598 msghdr.msg_iov = &iov;
1599 msghdr.msg_iovlen = 1;
1600 ret = sendmsg(fd, &msghdr, 0);
1601 if (ret != sizeof(tot_fd_nb)) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001602 ha_warning("Failed to send the number of sockets to send\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001603 goto out;
1604 }
1605
1606 /* Now send the fds */
1607 msghdr.msg_control = cmsgbuf;
1608 msghdr.msg_controllen = CMSG_SPACE(sizeof(int) * MAX_SEND_FD);
1609 cmsg = CMSG_FIRSTHDR(&msghdr);
1610 cmsg->cmsg_len = CMSG_LEN(MAX_SEND_FD * sizeof(int));
1611 cmsg->cmsg_level = SOL_SOCKET;
1612 cmsg->cmsg_type = SCM_RIGHTS;
1613 tmpfd = (int *)CMSG_DATA(cmsg);
1614
Olivier Houchardfbc74e82017-11-24 16:54:05 +01001615 px = proxies_list;
Olivier Houchardf886e342017-04-05 22:24:59 +02001616 /* For each socket, e message is sent, containing the following :
1617 * Size of the namespace name (or 0 if none), as an unsigned char.
1618 * The namespace name, if any
1619 * Size of the interface name (or 0 if none), as an unsigned char
1620 * The interface name, if any
1621 * Listener options, as an int.
1622 */
1623 /* We will send sockets MAX_SEND_FD per MAX_SEND_FD, allocate a
1624 * buffer big enough to store the socket informations.
1625 */
Olivier Houchardf143b802017-11-04 15:13:01 +01001626 tmpbuf = malloc(MAX_SEND_FD * (1 + MAXPATHLEN + 1 + IFNAMSIZ + sizeof(int)));
Olivier Houchardf886e342017-04-05 22:24:59 +02001627 if (tmpbuf == NULL) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001628 ha_warning("Failed to allocate memory to transfer socket informations\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001629 goto out;
1630 }
1631 iov.iov_base = tmpbuf;
1632 while (px) {
1633 struct listener *l;
1634
1635 list_for_each_entry(l, &px->conf.listeners, by_fe) {
1636 int ret;
1637 /* Only transfer IPv4/IPv6 sockets */
Olivier Houchard1fc05162017-04-06 01:05:05 +02001638 if (l->state >= LI_ZOMBIE &&
Olivier Houchardf886e342017-04-05 22:24:59 +02001639 (l->proto->sock_family == AF_INET ||
1640 l->proto->sock_family == AF_INET6 ||
1641 l->proto->sock_family == AF_UNIX)) {
1642 memcpy(&tmpfd[i % MAX_SEND_FD], &l->fd, sizeof(l->fd));
1643 if (!l->netns)
1644 tmpbuf[curoff++] = 0;
1645#ifdef CONFIG_HAP_NS
1646 else {
1647 char *name = l->netns->node.key;
1648 unsigned char len = l->netns->name_len;
1649 tmpbuf[curoff++] = len;
1650 memcpy(tmpbuf + curoff, name, len);
1651 curoff += len;
1652 }
1653#endif
1654 if (l->interface) {
1655 unsigned char len = strlen(l->interface);
1656 tmpbuf[curoff++] = len;
1657 memcpy(tmpbuf + curoff, l->interface, len);
1658 curoff += len;
1659 } else
1660 tmpbuf[curoff++] = 0;
1661 memcpy(tmpbuf + curoff, &l->options,
1662 sizeof(l->options));
1663 curoff += sizeof(l->options);
1664
1665
1666 i++;
1667 } else
1668 continue;
1669 if ((!(i % MAX_SEND_FD))) {
1670 iov.iov_len = curoff;
1671 if (sendmsg(fd, &msghdr, 0) != curoff) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001672 ha_warning("Failed to transfer sockets\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001673 goto out;
1674 }
1675 /* Wait for an ack */
1676 do {
1677 ret = recv(fd, &tot_fd_nb,
1678 sizeof(tot_fd_nb), 0);
1679 } while (ret == -1 && errno == EINTR);
1680 if (ret <= 0) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001681 ha_warning("Unexpected error while transferring sockets\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001682 goto out;
1683 }
1684 curoff = 0;
1685 }
1686
1687 }
1688 px = px->next;
1689 }
1690 if (i % MAX_SEND_FD) {
1691 iov.iov_len = curoff;
1692 cmsg->cmsg_len = CMSG_LEN((i % MAX_SEND_FD) * sizeof(int));
1693 msghdr.msg_controllen = CMSG_SPACE(sizeof(int) * (i % MAX_SEND_FD));
1694 if (sendmsg(fd, &msghdr, 0) != curoff) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001695 ha_warning("Failed to transfer sockets\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001696 goto out;
1697 }
1698 }
1699
1700out:
Willy Tarreauc2b7f802018-09-20 11:22:29 +02001701 if (fd >= 0 && old_fcntl >= 0 && fcntl(fd, F_SETFL, old_fcntl) == -1) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001702 ha_warning("Cannot make the unix socket non-blocking\n");
Olivier Houchardf886e342017-04-05 22:24:59 +02001703 goto out;
1704 }
1705 appctx->st0 = CLI_ST_END;
1706 free(cmsgbuf);
1707 free(tmpbuf);
1708 return 1;
1709}
1710
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02001711static int cli_parse_simple(char **args, char *payload, struct appctx *appctx, void *private)
1712{
1713 if (*args[0] == 'h')
1714 /* help */
1715 cli_gen_usage_msg(appctx);
1716 else if (*args[0] == 'p')
1717 /* prompt */
1718 appctx->st1 ^= APPCTX_CLI_ST1_PROMPT;
1719 else if (*args[0] == 'q')
1720 /* quit */
1721 appctx->st0 = CLI_ST_END;
1722
1723 return 1;
1724}
Olivier Houchardf886e342017-04-05 22:24:59 +02001725
William Lallemand2f4ce202018-10-26 14:47:47 +02001726void pcli_write_prompt(struct stream *s)
1727{
1728 struct buffer *msg = get_trash_chunk();
1729 struct channel *oc = si_oc(&s->si[0]);
1730
William Lallemanddc12c2e2018-12-13 09:05:46 +01001731 if (!(s->pcli_flags & PCLI_F_PROMPT))
William Lallemand5b80fa22018-12-11 16:10:54 +01001732 return;
1733
William Lallemanddc12c2e2018-12-13 09:05:46 +01001734 if (s->pcli_flags & PCLI_F_PAYLOAD) {
William Lallemandebf61802018-12-11 16:10:57 +01001735 chunk_appendf(msg, "+ ");
1736 } else {
1737 if (s->pcli_next_pid == 0)
Willy Tarreau52880f92018-12-15 13:30:03 +01001738 chunk_appendf(msg, "master%s> ",
1739 (global.mode & MODE_MWORKER_WAIT) ? "[ReloadFailed]" : "");
William Lallemandebf61802018-12-11 16:10:57 +01001740 else
1741 chunk_appendf(msg, "%d> ", s->pcli_next_pid);
1742 }
William Lallemand2f4ce202018-10-26 14:47:47 +02001743 co_inject(oc, msg->area, msg->data);
1744}
1745
William Lallemand291810d2018-10-26 14:47:38 +02001746
William Lallemandcf62f7e2018-10-26 14:47:40 +02001747/* The pcli_* functions are used for the CLI proxy in the master */
1748
William Lallemanddeeaa592018-10-26 14:47:48 +02001749void pcli_reply_and_close(struct stream *s, const char *msg)
1750{
1751 struct buffer *buf = get_trash_chunk();
1752
1753 chunk_initstr(buf, msg);
Willy Tarreau14bfe9a2018-12-19 15:19:27 +01001754 si_retnclose(&s->si[0], buf);
William Lallemanddeeaa592018-10-26 14:47:48 +02001755}
1756
William Lallemand291810d2018-10-26 14:47:38 +02001757static enum obj_type *pcli_pid_to_server(int proc_pid)
1758{
1759 struct mworker_proc *child;
1760
William Lallemandbddd33a2018-12-11 16:10:53 +01001761 /* return the CLI applet of the master */
1762 if (proc_pid == 0)
1763 return &cli_applet.obj_type;
1764
William Lallemand291810d2018-10-26 14:47:38 +02001765 list_for_each_entry(child, &proc_list, list) {
1766 if (child->pid == proc_pid){
1767 return &child->srv->obj_type;
1768 }
1769 }
1770 return NULL;
1771}
1772
1773/* Take a CLI prefix in argument (eg: @!1234 @master @1)
1774 * Return:
1775 * 0: master
1776 * > 0: pid of a worker
1777 * < 0: didn't find a worker
1778 */
1779static int pcli_prefix_to_pid(const char *prefix)
1780{
1781 int proc_pid;
1782 struct mworker_proc *child;
1783 char *errtol = NULL;
1784
1785 if (*prefix != '@') /* not a prefix, should not happen */
1786 return -1;
1787
1788 prefix++;
1789 if (!*prefix) /* sent @ alone, return the master */
1790 return 0;
1791
1792 if (strcmp("master", prefix) == 0) {
1793 return 0;
1794 } else if (*prefix == '!') {
1795 prefix++;
1796 if (!*prefix)
1797 return -1;
1798
1799 proc_pid = strtol(prefix, &errtol, 10);
1800 if (*errtol != '\0')
1801 return -1;
1802 list_for_each_entry(child, &proc_list, list) {
William Lallemand16dd1b32018-11-19 18:46:18 +01001803 if (child->type != 'w')
1804 continue;
William Lallemand291810d2018-10-26 14:47:38 +02001805 if (child->pid == proc_pid){
1806 return child->pid;
1807 }
1808 }
1809 } else {
1810 struct mworker_proc *chosen = NULL;
1811 /* this is a relative pid */
1812
1813 proc_pid = strtol(prefix, &errtol, 10);
1814 if (*errtol != '\0')
1815 return -1;
1816
1817 if (proc_pid == 0) /* return the master */
1818 return 0;
1819
1820 /* chose the right process, the current one is the one with the
1821 least number of reloads */
1822 list_for_each_entry(child, &proc_list, list) {
William Lallemand16dd1b32018-11-19 18:46:18 +01001823 if (child->type != 'w')
1824 continue;
William Lallemand291810d2018-10-26 14:47:38 +02001825 if (child->relative_pid == proc_pid){
1826 if (child->reloads == 0)
1827 return child->pid;
1828 else if (chosen == NULL || child->reloads < chosen->reloads)
1829 chosen = child;
1830 }
1831 }
1832 if (chosen)
1833 return chosen->pid;
1834 }
1835 return -1;
1836}
1837
William Lallemandbddd33a2018-12-11 16:10:53 +01001838/* Return::
1839 * >= 0 : number of words to escape
1840 * = -1 : error
1841 */
1842
1843int pcli_find_and_exec_kw(struct stream *s, char **args, int argl, char **errmsg, int *next_pid)
1844{
1845 if (argl < 1)
1846 return 0;
1847
1848 /* there is a prefix */
1849 if (args[0][0] == '@') {
1850 int target_pid = pcli_prefix_to_pid(args[0]);
1851
1852 if (target_pid == -1) {
1853 memprintf(errmsg, "Can't find the target PID matching the prefix '%s'\n", args[0]);
1854 return -1;
1855 }
1856
1857 /* if the prefix is alone, define a default target */
1858 if (argl == 1)
1859 s->pcli_next_pid = target_pid;
1860 else
1861 *next_pid = target_pid;
1862 return 1;
William Lallemand5b80fa22018-12-11 16:10:54 +01001863 } else if (!strcmp("prompt", args[0])) {
William Lallemanddc12c2e2018-12-13 09:05:46 +01001864 s->pcli_flags ^= PCLI_F_PROMPT;
William Lallemand5b80fa22018-12-11 16:10:54 +01001865 return argl; /* return the number of elements in the array */
William Lallemand5f610682018-12-11 16:10:55 +01001866
1867 } else if (!strcmp("quit", args[0])) {
1868 channel_shutr_now(&s->req);
1869 channel_shutw_now(&s->res);
1870 return argl; /* return the number of elements in the array */
William Lallemandb7ea1412018-12-13 09:05:47 +01001871 } else if (!strcmp(args[0], "operator")) {
1872 if (!pcli_has_level(s, ACCESS_LVL_OPER)) {
1873 memprintf(errmsg, "Permission denied!\n");
1874 return -1;
1875 }
1876 s->pcli_flags &= ~ACCESS_LVL_MASK;
1877 s->pcli_flags |= ACCESS_LVL_OPER;
1878 return argl;
1879
1880 } else if (!strcmp(args[0], "user")) {
1881 if (!pcli_has_level(s, ACCESS_LVL_USER)) {
1882 memprintf(errmsg, "Permission denied!\n");
1883 return -1;
1884 }
1885 s->pcli_flags &= ~ACCESS_LVL_MASK;
1886 s->pcli_flags |= ACCESS_LVL_USER;
1887 return argl;
William Lallemandbddd33a2018-12-11 16:10:53 +01001888 }
1889
1890 return 0;
1891}
1892
1893/*
1894 * Parse the CLI request:
1895 * - It does basically the same as the cli_io_handler, but as a proxy
1896 * - It can exec a command and strip non forwardable commands
William Lallemandcf62f7e2018-10-26 14:47:40 +02001897 *
1898 * Return:
William Lallemandbddd33a2018-12-11 16:10:53 +01001899 * - the number of characters to forward or
1900 * - 1 if there is an error or not enough data
William Lallemandcf62f7e2018-10-26 14:47:40 +02001901 */
William Lallemandbddd33a2018-12-11 16:10:53 +01001902int pcli_parse_request(struct stream *s, struct channel *req, char **errmsg, int *next_pid)
William Lallemandcf62f7e2018-10-26 14:47:40 +02001903{
William Lallemandbddd33a2018-12-11 16:10:53 +01001904 char *str = (char *)ci_head(req);
1905 char *end = (char *)ci_stop(req);
1906 char *args[MAX_STATS_ARGS + 1]; /* +1 for storing a NULL */
1907 int argl; /* number of args */
1908 char *p;
1909 char *trim = NULL;
William Lallemandebf61802018-12-11 16:10:57 +01001910 char *payload = NULL;
William Lallemandbddd33a2018-12-11 16:10:53 +01001911 int wtrim = 0; /* number of words to trim */
1912 int reql = 0;
William Lallemandb7ea1412018-12-13 09:05:47 +01001913 int ret;
William Lallemandbddd33a2018-12-11 16:10:53 +01001914 int i = 0;
1915
1916 p = str;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001917
William Lallemanddc12c2e2018-12-13 09:05:46 +01001918 if (!(s->pcli_flags & PCLI_F_PAYLOAD)) {
William Lallemandebf61802018-12-11 16:10:57 +01001919
1920 /* Looks for the end of one command */
1921 while (p+reql < end) {
1922 /* handle escaping */
1923 if (p[reql] == '\\') {
1924 reql++;
1925 continue;
1926 }
1927 if (p[reql] == ';' || p[reql] == '\n') {
1928 /* found the end of the command */
1929 p[reql] = '\n';
1930 reql++;
1931 break;
1932 }
William Lallemandbddd33a2018-12-11 16:10:53 +01001933 reql++;
William Lallemandbddd33a2018-12-11 16:10:53 +01001934 }
William Lallemandebf61802018-12-11 16:10:57 +01001935 } else {
1936 while (p+reql < end) {
1937 if (p[reql] == '\n') {
1938 /* found the end of the line */
1939 reql++;
1940 break;
1941 }
William Lallemandbddd33a2018-12-11 16:10:53 +01001942 reql++;
William Lallemandbddd33a2018-12-11 16:10:53 +01001943 }
William Lallemandbddd33a2018-12-11 16:10:53 +01001944 }
William Lallemandcf62f7e2018-10-26 14:47:40 +02001945
William Lallemandbddd33a2018-12-11 16:10:53 +01001946 /* set end to first byte after the end of the command */
1947 end = p + reql;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001948
William Lallemandbddd33a2018-12-11 16:10:53 +01001949 /* there is no end to this command, need more to parse ! */
1950 if (*(end-1) != '\n') {
1951 return -1;
1952 }
William Lallemandcf62f7e2018-10-26 14:47:40 +02001953
William Lallemand3301f3e2018-12-13 09:05:48 +01001954 if (s->pcli_flags & PCLI_F_PAYLOAD) {
1955 if (reql == 1) /* last line of the payload */
1956 s->pcli_flags &= ~PCLI_F_PAYLOAD;
William Lallemandebf61802018-12-11 16:10:57 +01001957 return reql;
1958 }
1959
William Lallemandbddd33a2018-12-11 16:10:53 +01001960 *(end-1) = '\0';
William Lallemandcf62f7e2018-10-26 14:47:40 +02001961
William Lallemandbddd33a2018-12-11 16:10:53 +01001962 /* splits the command in words */
1963 while (i < MAX_STATS_ARGS && p < end) {
1964 int j, k;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001965
William Lallemandbddd33a2018-12-11 16:10:53 +01001966 /* skip leading spaces/tabs */
1967 p += strspn(p, " \t");
1968 if (!*p)
William Lallemandcf62f7e2018-10-26 14:47:40 +02001969 break;
1970
William Lallemandbddd33a2018-12-11 16:10:53 +01001971 args[i] = p;
1972 p += strcspn(p, " \t");
1973 *p++ = 0;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001974
William Lallemandbddd33a2018-12-11 16:10:53 +01001975 /* unescape backslashes (\) */
1976 for (j = 0, k = 0; args[i][k]; k++) {
1977 if (args[i][k] == '\\') {
1978 if (args[i][k + 1] == '\\')
1979 k++;
1980 else
1981 continue;
1982 }
1983 args[i][j] = args[i][k];
1984 j++;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001985 }
William Lallemandbddd33a2018-12-11 16:10:53 +01001986 args[i][j] = 0;
1987 i++;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001988 }
1989
William Lallemandbddd33a2018-12-11 16:10:53 +01001990 argl = i;
William Lallemandcf62f7e2018-10-26 14:47:40 +02001991
William Lallemandbddd33a2018-12-11 16:10:53 +01001992 for (; i < MAX_STATS_ARGS + 1; i++)
1993 args[i] = NULL;
1994
1995 wtrim = pcli_find_and_exec_kw(s, args, argl, errmsg, next_pid);
1996
1997 /* End of words are ending by \0, we need to replace the \0s by spaces
19981 before forwarding them */
1999 p = str;
William Lallemand3301f3e2018-12-13 09:05:48 +01002000 while (p < end-1) {
William Lallemandbddd33a2018-12-11 16:10:53 +01002001 if (*p == '\0')
2002 *p = ' ';
2003 p++;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002004 }
2005
William Lallemand3301f3e2018-12-13 09:05:48 +01002006 payload = strstr(str, PAYLOAD_PATTERN);
2007 if ((end - 1) == (payload + strlen(PAYLOAD_PATTERN))) {
2008 /* if the payload pattern is at the end */
2009 s->pcli_flags |= PCLI_F_PAYLOAD;
2010 ret = reql;
2011 }
2012
William Lallemandbddd33a2018-12-11 16:10:53 +01002013 *(end-1) = '\n';
William Lallemandcf62f7e2018-10-26 14:47:40 +02002014
William Lallemandbddd33a2018-12-11 16:10:53 +01002015 if (wtrim > 0) {
2016 trim = &args[wtrim][0];
2017 if (trim == NULL) /* if this was the last word in the table */
2018 trim = end;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002019
William Lallemandbddd33a2018-12-11 16:10:53 +01002020 b_del(&req->buf, trim - str);
2021
William Lallemandb7ea1412018-12-13 09:05:47 +01002022 ret = end - trim;
William Lallemandbddd33a2018-12-11 16:10:53 +01002023 } else if (wtrim < 0) {
2024 /* parsing error */
2025 return -1;
William Lallemandb7ea1412018-12-13 09:05:47 +01002026 } else {
2027 /* the whole string */
2028 ret = end - str;
William Lallemandbddd33a2018-12-11 16:10:53 +01002029 }
2030
William Lallemandb7ea1412018-12-13 09:05:47 +01002031 if (ret > 1) {
2032 if (pcli_has_level(s, ACCESS_LVL_ADMIN)) {
2033 goto end;
2034 } else if (pcli_has_level(s, ACCESS_LVL_OPER)) {
2035 ci_insert_line2(req, 0, "operator", strlen("operator"));
2036 ret += strlen("operator") + 2;
2037 } else if (pcli_has_level(s, ACCESS_LVL_USER)) {
2038 ci_insert_line2(req, 0, "user", strlen("user"));
2039 ret += strlen("user") + 2;
2040 }
2041 }
2042end:
William Lallemandbddd33a2018-12-11 16:10:53 +01002043
William Lallemandb7ea1412018-12-13 09:05:47 +01002044 return ret;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002045}
2046
2047int pcli_wait_for_request(struct stream *s, struct channel *req, int an_bit)
2048{
William Lallemandbddd33a2018-12-11 16:10:53 +01002049 int next_pid = -1;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002050 int to_forward;
William Lallemandbddd33a2018-12-11 16:10:53 +01002051 char *errmsg = NULL;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002052
William Lallemandb7ea1412018-12-13 09:05:47 +01002053 if ((s->pcli_flags & ACCESS_LVL_MASK) == ACCESS_LVL_NONE)
2054 s->pcli_flags |= strm_li(s)->bind_conf->level & ACCESS_LVL_MASK;
2055
William Lallemandcf62f7e2018-10-26 14:47:40 +02002056read_again:
2057 /* if the channel is closed for read, we won't receive any more data
2058 from the client, but we don't want to forward this close to the
2059 server */
2060 channel_dont_close(req);
2061
2062 /* We don't know yet to which server we will connect */
2063 channel_dont_connect(req);
2064
2065
2066 /* we are not waiting for a response, there is no more request and we
2067 * receive a close from the client, we can leave */
2068 if (!(ci_data(req)) && req->flags & CF_SHUTR) {
2069 channel_shutw_now(&s->res);
2070 s->req.analysers &= ~AN_REQ_WAIT_CLI;
2071 return 1;
2072 }
2073
2074 req->flags |= CF_READ_DONTWAIT;
2075
2076 /* need more data */
2077 if (!ci_data(req))
2078 return 0;
2079
2080 /* If there is data available for analysis, log the end of the idle time. */
2081 if (c_data(req) && s->logs.t_idle == -1)
2082 s->logs.t_idle = tv_ms_elapsed(&s->logs.tv_accept, &now) - s->logs.t_handshake;
2083
William Lallemandbddd33a2018-12-11 16:10:53 +01002084 to_forward = pcli_parse_request(s, req, &errmsg, &next_pid);
William Lallemandcf62f7e2018-10-26 14:47:40 +02002085 if (to_forward > 0) {
William Lallemandbddd33a2018-12-11 16:10:53 +01002086 int target_pid;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002087 /* enough data */
2088
William Lallemandcf62f7e2018-10-26 14:47:40 +02002089 /* forward only 1 command */
2090 channel_forward(req, to_forward);
William Lallemandebf61802018-12-11 16:10:57 +01002091
William Lallemanddc12c2e2018-12-13 09:05:46 +01002092 if (!(s->pcli_flags & PCLI_F_PAYLOAD)) {
William Lallemandebf61802018-12-11 16:10:57 +01002093 /* we send only 1 command per request, and we write close after it */
2094 channel_shutw_now(req);
2095 } else {
2096 pcli_write_prompt(s);
2097 }
2098
2099 s->res.flags |= CF_WAKE_ONCE; /* need to be called again */
William Lallemandcf62f7e2018-10-26 14:47:40 +02002100
2101 /* remove the XFER_DATA analysers, which forwards all
2102 * the data, we don't want to forward the next requests
2103 * We need to add CF_FLT_ANALYZE to abort the forward too.
2104 */
2105 req->analysers &= ~(AN_REQ_FLT_XFER_DATA|AN_REQ_WAIT_CLI);
2106 req->analysers |= AN_REQ_FLT_END|CF_FLT_ANALYZE;
2107 s->res.analysers |= AN_RES_WAIT_CLI;
2108
William Lallemandebf61802018-12-11 16:10:57 +01002109 if (!(s->flags & SF_ASSIGNED)) {
2110 if (next_pid > -1)
2111 target_pid = next_pid;
2112 else
2113 target_pid = s->pcli_next_pid;
2114 /* we can connect now */
2115 s->target = pcli_pid_to_server(target_pid);
William Lallemandcf62f7e2018-10-26 14:47:40 +02002116
William Lallemandebf61802018-12-11 16:10:57 +01002117 s->flags |= (SF_DIRECT | SF_ASSIGNED);
2118 channel_auto_connect(req);
2119 }
William Lallemandcf62f7e2018-10-26 14:47:40 +02002120
2121 } else if (to_forward == 0) {
William Lallemandcf62f7e2018-10-26 14:47:40 +02002122 /* we trimmed things but we might have other commands to consume */
William Lallemandbddd33a2018-12-11 16:10:53 +01002123 pcli_write_prompt(s);
William Lallemandcf62f7e2018-10-26 14:47:40 +02002124 goto read_again;
William Lallemandbddd33a2018-12-11 16:10:53 +01002125 } else if (to_forward == -1 && errmsg) {
2126 /* there was an error during the parsing */
2127 pcli_reply_and_close(s, errmsg);
2128 return 0;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002129 } else if (to_forward == -1 && channel_full(req, global.tune.maxrewrite)) {
2130 /* buffer is full and we didn't catch the end of a command */
2131 goto send_help;
2132 }
2133
2134 return 0;
2135
2136send_help:
2137 b_reset(&req->buf);
2138 b_putblk(&req->buf, "help\n", 5);
2139 goto read_again;
2140}
2141
2142int pcli_wait_for_response(struct stream *s, struct channel *rep, int an_bit)
2143{
2144 struct proxy *fe = strm_fe(s);
2145 struct proxy *be = s->be;
2146
William Lallemand6b7cd0a2018-11-06 17:37:11 +01002147 if (rep->flags & CF_READ_ERROR) {
2148 pcli_reply_and_close(s, "Can't connect to the target CLI!\n");
2149 s->res.analysers &= ~AN_RES_WAIT_CLI;
2150 return 0;
2151 }
William Lallemandcf62f7e2018-10-26 14:47:40 +02002152 rep->flags |= CF_READ_DONTWAIT; /* try to get back here ASAP */
2153 rep->flags |= CF_NEVER_WAIT;
2154
2155 /* don't forward the close */
2156 channel_dont_close(&s->res);
2157 channel_dont_close(&s->req);
2158
William Lallemanddc12c2e2018-12-13 09:05:46 +01002159 if (s->pcli_flags & PCLI_F_PAYLOAD) {
William Lallemandebf61802018-12-11 16:10:57 +01002160 s->req.analysers |= AN_REQ_WAIT_CLI;
2161 s->res.analysers &= ~AN_RES_WAIT_CLI;
2162 s->req.flags |= CF_WAKE_ONCE; /* need to be called again if there is some command left in the request */
2163 return 0;
2164 }
2165
William Lallemandcf62f7e2018-10-26 14:47:40 +02002166 /* forward the data */
2167 if (ci_data(rep)) {
2168 c_adv(rep, ci_data(rep));
2169 return 0;
2170 }
2171
2172 if ((rep->flags & (CF_SHUTR|CF_READ_NULL))) {
2173 /* stream cleanup */
2174
William Lallemand2f4ce202018-10-26 14:47:47 +02002175 pcli_write_prompt(s);
2176
William Lallemandcf62f7e2018-10-26 14:47:40 +02002177 s->si[1].flags |= SI_FL_NOLINGER | SI_FL_NOHALF;
2178 si_shutr(&s->si[1]);
2179 si_shutw(&s->si[1]);
2180
2181 /*
2182 * starting from there this the same code as
2183 * http_end_txn_clean_session().
2184 *
2185 * It allows to do frontend keepalive while reconnecting to a
2186 * new server for each request.
2187 */
2188
2189 if (s->flags & SF_BE_ASSIGNED) {
2190 HA_ATOMIC_SUB(&be->beconn, 1);
2191 if (unlikely(s->srv_conn))
2192 sess_change_server(s, NULL);
2193 }
2194
2195 s->logs.t_close = tv_ms_elapsed(&s->logs.tv_accept, &now);
2196 stream_process_counters(s);
2197
2198 /* don't count other requests' data */
2199 s->logs.bytes_in -= ci_data(&s->req);
2200 s->logs.bytes_out -= ci_data(&s->res);
2201
2202 /* we may need to know the position in the queue */
2203 pendconn_free(s);
2204
2205 /* let's do a final log if we need it */
2206 if (!LIST_ISEMPTY(&fe->logformat) && s->logs.logwait &&
2207 !(s->flags & SF_MONITOR) &&
2208 (!(fe->options & PR_O_NULLNOLOG) || s->req.total)) {
2209 s->do_log(s);
2210 }
2211
2212 /* stop tracking content-based counters */
2213 stream_stop_content_counters(s);
2214 stream_update_time_stats(s);
2215
2216 s->logs.accept_date = date; /* user-visible date for logging */
2217 s->logs.tv_accept = now; /* corrected date for internal use */
2218 s->logs.t_handshake = 0; /* There are no handshake in keep alive connection. */
2219 s->logs.t_idle = -1;
2220 tv_zero(&s->logs.tv_request);
2221 s->logs.t_queue = -1;
2222 s->logs.t_connect = -1;
2223 s->logs.t_data = -1;
2224 s->logs.t_close = 0;
2225 s->logs.prx_queue_pos = 0; /* we get the number of pending conns before us */
2226 s->logs.srv_queue_pos = 0; /* we will get this number soon */
2227
2228 s->logs.bytes_in = s->req.total = ci_data(&s->req);
2229 s->logs.bytes_out = s->res.total = ci_data(&s->res);
2230
2231 stream_del_srv_conn(s);
2232 if (objt_server(s->target)) {
2233 if (s->flags & SF_CURR_SESS) {
2234 s->flags &= ~SF_CURR_SESS;
Willy Tarreaub54c40a2018-12-02 19:28:41 +01002235 HA_ATOMIC_SUB(&__objt_server(s->target)->cur_sess, 1);
William Lallemandcf62f7e2018-10-26 14:47:40 +02002236 }
Willy Tarreaub54c40a2018-12-02 19:28:41 +01002237 if (may_dequeue_tasks(__objt_server(s->target), be))
2238 process_srv_queue(__objt_server(s->target));
William Lallemandcf62f7e2018-10-26 14:47:40 +02002239 }
2240
2241 s->target = NULL;
2242
2243 /* only release our endpoint if we don't intend to reuse the
2244 * connection.
2245 */
2246 if (!si_conn_ready(&s->si[1])) {
2247 si_release_endpoint(&s->si[1]);
2248 s->srv_conn = NULL;
2249 }
2250
2251 s->si[1].state = s->si[1].prev_state = SI_ST_INI;
2252 s->si[1].err_type = SI_ET_NONE;
2253 s->si[1].conn_retries = 0; /* used for logging too */
2254 s->si[1].exp = TICK_ETERNITY;
2255 s->si[1].flags &= SI_FL_ISBACK | SI_FL_DONT_WAKE; /* we're in the context of process_stream */
2256 s->req.flags &= ~(CF_SHUTW|CF_SHUTW_NOW|CF_AUTO_CONNECT|CF_WRITE_ERROR|CF_STREAMER|CF_STREAMER_FAST|CF_NEVER_WAIT|CF_WAKE_CONNECT|CF_WROTE_DATA);
2257 s->res.flags &= ~(CF_SHUTR|CF_SHUTR_NOW|CF_READ_ATTACHED|CF_READ_ERROR|CF_READ_NOEXP|CF_STREAMER|CF_STREAMER_FAST|CF_WRITE_PARTIAL|CF_NEVER_WAIT|CF_WROTE_DATA);
2258 s->flags &= ~(SF_DIRECT|SF_ASSIGNED|SF_ADDR_SET|SF_BE_ASSIGNED|SF_FORCE_PRST|SF_IGNORE_PRST);
2259 s->flags &= ~(SF_CURR_SESS|SF_REDIRECTABLE|SF_SRV_REUSED);
2260 s->flags &= ~(SF_ERR_MASK|SF_FINST_MASK|SF_REDISP);
2261 /* reinitialise the current rule list pointer to NULL. We are sure that
2262 * any rulelist match the NULL pointer.
2263 */
2264 s->current_rule_list = NULL;
2265
2266 s->be = strm_fe(s);
2267 s->logs.logwait = strm_fe(s)->to_log;
2268 s->logs.level = 0;
2269 stream_del_srv_conn(s);
2270 s->target = NULL;
2271 /* re-init store persistence */
2272 s->store_count = 0;
2273 s->uniq_id = global.req_count++;
2274
2275 s->req.flags |= CF_READ_DONTWAIT; /* one read is usually enough */
2276
2277 s->req.flags |= CF_WAKE_ONCE; /* need to be called again if there is some command left in the request */
2278
2279 s->req.analysers |= AN_REQ_WAIT_CLI;
2280 s->res.analysers &= ~AN_RES_WAIT_CLI;
2281
2282 /* We must trim any excess data from the response buffer, because we
2283 * may have blocked an invalid response from a server that we don't
Joseph Herlant008b3ce2018-11-25 12:51:45 -08002284 * want to accidently forward once we disable the analysers, nor do
William Lallemandcf62f7e2018-10-26 14:47:40 +02002285 * we want those data to come along with next response. A typical
2286 * example of such data would be from a buggy server responding to
2287 * a HEAD with some data, or sending more than the advertised
2288 * content-length.
2289 */
2290 if (unlikely(ci_data(&s->res)))
2291 b_set_data(&s->res.buf, co_data(&s->res));
2292
2293 /* Now we can realign the response buffer */
2294 c_realign_if_empty(&s->res);
2295
2296 s->req.rto = strm_fe(s)->timeout.client;
2297 s->req.wto = TICK_ETERNITY;
2298
2299 s->res.rto = TICK_ETERNITY;
2300 s->res.wto = strm_fe(s)->timeout.client;
2301
2302 s->req.rex = TICK_ETERNITY;
2303 s->req.wex = TICK_ETERNITY;
2304 s->req.analyse_exp = TICK_ETERNITY;
2305 s->res.rex = TICK_ETERNITY;
2306 s->res.wex = TICK_ETERNITY;
2307 s->res.analyse_exp = TICK_ETERNITY;
2308 s->si[1].hcto = TICK_ETERNITY;
2309
2310 /* we're removing the analysers, we MUST re-enable events detection.
2311 * We don't enable close on the response channel since it's either
2312 * already closed, or in keep-alive with an idle connection handler.
2313 */
2314 channel_auto_read(&s->req);
2315 channel_auto_close(&s->req);
2316 channel_auto_read(&s->res);
2317
2318
2319 return 1;
2320 }
2321 return 0;
2322}
2323
William Lallemand8a022572018-10-26 14:47:35 +02002324/*
2325 * The mworker functions are used to initialize the CLI in the master process
2326 */
2327
William Lallemand309dc9a2018-10-26 14:47:45 +02002328 /*
2329 * Stop the mworker proxy
2330 */
2331void mworker_cli_proxy_stop()
2332{
William Lallemand550db6d2018-11-06 17:37:12 +01002333 if (mworker_proxy)
2334 stop_proxy(mworker_proxy);
William Lallemand309dc9a2018-10-26 14:47:45 +02002335}
2336
William Lallemand8a022572018-10-26 14:47:35 +02002337/*
2338 * Create the mworker CLI proxy
2339 */
2340int mworker_cli_proxy_create()
2341{
2342 struct mworker_proc *child;
William Lallemand744a0892018-11-22 16:46:51 +01002343 char *msg = NULL;
2344 char *errmsg = NULL;
William Lallemand8a022572018-10-26 14:47:35 +02002345
2346 mworker_proxy = calloc(1, sizeof(*mworker_proxy));
2347 if (!mworker_proxy)
2348 return -1;
2349
2350 init_new_proxy(mworker_proxy);
2351 mworker_proxy->next = proxies_list;
2352 proxies_list = mworker_proxy;
2353 mworker_proxy->id = strdup("MASTER");
William Lallemandcf62f7e2018-10-26 14:47:40 +02002354 mworker_proxy->mode = PR_MODE_CLI;
William Lallemand8a022572018-10-26 14:47:35 +02002355 mworker_proxy->state = PR_STNEW;
2356 mworker_proxy->last_change = now.tv_sec;
2357 mworker_proxy->cap = PR_CAP_LISTEN; /* this is a listen section */
2358 mworker_proxy->maxconn = 10; /* default to 10 concurrent connections */
2359 mworker_proxy->timeout.client = 0; /* no timeout */
2360 mworker_proxy->conf.file = strdup("MASTER");
2361 mworker_proxy->conf.line = 0;
2362 mworker_proxy->accept = frontend_accept;
2363 mworker_proxy-> lbprm.algo = BE_LB_ALGO_NONE;
2364
2365 /* Does not init the default target the CLI applet, but must be done in
2366 * the request parsing code */
2367 mworker_proxy->default_target = NULL;
2368
2369 /* the check_config_validity() will get an ID for the proxy */
2370 mworker_proxy->uuid = -1;
2371
2372 proxy_store_name(mworker_proxy);
2373
2374 /* create all servers using the mworker_proc list */
2375 list_for_each_entry(child, &proc_list, list) {
William Lallemand8a022572018-10-26 14:47:35 +02002376 struct server *newsrv = NULL;
2377 struct sockaddr_storage *sk;
2378 int port1, port2, port;
2379 struct protocol *proto;
William Lallemand8a022572018-10-26 14:47:35 +02002380
2381 newsrv = new_server(mworker_proxy);
2382 if (!newsrv)
William Lallemand744a0892018-11-22 16:46:51 +01002383 goto error;
William Lallemand8a022572018-10-26 14:47:35 +02002384
2385 /* we don't know the new pid yet */
2386 if (child->pid == -1)
2387 memprintf(&msg, "cur-%d", child->relative_pid);
2388 else
2389 memprintf(&msg, "old-%d", child->pid);
2390
2391 newsrv->next = mworker_proxy->srv;
2392 mworker_proxy->srv = newsrv;
2393 newsrv->conf.file = strdup(msg);
2394 newsrv->id = strdup(msg);
2395 newsrv->conf.line = 0;
2396
2397 memprintf(&msg, "sockpair@%d", child->ipc_fd[0]);
Tim Duesterhus4cae3b22018-11-22 16:46:50 +01002398 if ((sk = str2sa_range(msg, &port, &port1, &port2, &errmsg, NULL, NULL, 0)) == 0) {
William Lallemand744a0892018-11-22 16:46:51 +01002399 goto error;
Tim Duesterhus4cae3b22018-11-22 16:46:50 +01002400 }
2401 free(msg);
2402 msg = NULL;
William Lallemand8a022572018-10-26 14:47:35 +02002403
2404 proto = protocol_by_family(sk->ss_family);
2405 if (!proto || !proto->connect) {
William Lallemand744a0892018-11-22 16:46:51 +01002406 goto error;
William Lallemand8a022572018-10-26 14:47:35 +02002407 }
2408
2409 /* no port specified */
2410 newsrv->flags |= SRV_F_MAPPORTS;
2411 newsrv->addr = *sk;
William Lallemandcf62f7e2018-10-26 14:47:40 +02002412 /* don't let the server participate to load balancing */
2413 newsrv->iweight = 0;
2414 newsrv->uweight = 0;
William Lallemand8a022572018-10-26 14:47:35 +02002415 srv_lb_commit_status(newsrv);
William Lallemand291810d2018-10-26 14:47:38 +02002416
2417 child->srv = newsrv;
William Lallemand8a022572018-10-26 14:47:35 +02002418 }
2419 return 0;
William Lallemand744a0892018-11-22 16:46:51 +01002420
2421error:
2422 ha_alert("%s\n", errmsg);
2423
2424 list_for_each_entry(child, &proc_list, list) {
2425 free((char *)child->srv->conf.file); /* cast because of const char * */
2426 free(child->srv->id);
2427 free(child->srv);
2428 child->srv = NULL;
2429 }
2430 free(mworker_proxy->id);
2431 free(mworker_proxy->conf.file);
2432 free(mworker_proxy);
2433 mworker_proxy = NULL;
2434 free(errmsg);
2435 free(msg);
2436
2437 return -1;
William Lallemand8a022572018-10-26 14:47:35 +02002438}
Olivier Houchardf886e342017-04-05 22:24:59 +02002439
William Lallemandce83b4a2018-10-26 14:47:30 +02002440/*
William Lallemande7361152018-10-26 14:47:36 +02002441 * Create a new listener for the master CLI proxy
2442 */
2443int mworker_cli_proxy_new_listener(char *line)
2444{
2445 struct bind_conf *bind_conf;
2446 struct listener *l;
2447 char *err = NULL;
2448 char *args[MAX_LINE_ARGS + 1];
2449 int arg;
2450 int cur_arg;
2451
2452 arg = 0;
2453 args[0] = line;
2454
2455 /* args is a bind configuration with spaces replaced by commas */
2456 while (*line && arg < MAX_LINE_ARGS) {
2457
2458 if (*line == ',') {
2459 *line++ = '\0';
2460 while (*line == ',')
2461 line++;
2462 args[++arg] = line;
2463 }
2464 line++;
2465 }
2466
2467 args[++arg] = "\0";
2468
2469 bind_conf = bind_conf_alloc(mworker_proxy, "master-socket", 0, "", xprt_get(XPRT_RAW));
William Lallemand744a0892018-11-22 16:46:51 +01002470 if (!bind_conf)
2471 goto err;
William Lallemande7361152018-10-26 14:47:36 +02002472
2473 bind_conf->level &= ~ACCESS_LVL_MASK;
2474 bind_conf->level |= ACCESS_LVL_ADMIN;
2475
2476 if (!str2listener(args[0], mworker_proxy, bind_conf, "master-socket", 0, &err)) {
2477 ha_alert("Cannot create the listener of the master CLI\n");
William Lallemand744a0892018-11-22 16:46:51 +01002478 goto err;
William Lallemande7361152018-10-26 14:47:36 +02002479 }
2480
2481 cur_arg = 1;
2482
2483 while (*args[cur_arg]) {
2484 static int bind_dumped;
2485 struct bind_kw *kw;
2486
2487 kw = bind_find_kw(args[cur_arg]);
2488 if (kw) {
2489 if (!kw->parse) {
2490 memprintf(&err, "'%s %s' : '%s' option is not implemented in this version (check build options).",
2491 args[0], args[1], args[cur_arg]);
2492 goto err;
2493 }
2494
2495 if (kw->parse(args, cur_arg, global.stats_fe, bind_conf, &err) != 0) {
2496 if (err)
2497 memprintf(&err, "'%s %s' : '%s'", args[0], args[1], err);
2498 else
2499 memprintf(&err, "'%s %s' : error encountered while processing '%s'",
2500 args[0], args[1], args[cur_arg]);
2501 goto err;
2502 }
2503
2504 cur_arg += 1 + kw->skip;
2505 continue;
2506 }
2507
2508 if (!bind_dumped) {
2509 bind_dump_kws(&err);
2510 indent_msg(&err, 4);
2511 bind_dumped = 1;
2512 }
2513
2514 memprintf(&err, "'%s %s' : unknown keyword '%s'.%s%s",
2515 args[0], args[1], args[cur_arg],
2516 err ? " Registered keywords :" : "", err ? err : "");
2517 goto err;
2518 }
2519
2520
2521 list_for_each_entry(l, &bind_conf->listeners, by_bind) {
2522 l->maxconn = 10;
2523 l->backlog = 10;
2524 l->accept = session_accept_fd;
2525 l->default_target = mworker_proxy->default_target;
2526 /* don't make the peers subject to global limits and don't close it in the master */
2527 l->options |= (LI_O_UNLIMITED|LI_O_MWORKER); /* we are keeping this FD in the master */
2528 l->nice = -64; /* we want to boost priority for local stats */
2529 global.maxsock += l->maxconn;
2530 }
2531
2532 return 0;
2533
2534err:
2535 ha_alert("%s\n", err);
William Lallemand744a0892018-11-22 16:46:51 +01002536 free(err);
2537 free(bind_conf);
William Lallemande7361152018-10-26 14:47:36 +02002538 return -1;
2539
2540}
2541
2542/*
William Lallemandce83b4a2018-10-26 14:47:30 +02002543 * Create a new CLI socket using a socketpair for a worker process
2544 * <mworker_proc> is the process structure, and <proc> is the process number
2545 */
2546int mworker_cli_sockpair_new(struct mworker_proc *mworker_proc, int proc)
2547{
2548 struct bind_conf *bind_conf;
2549 struct listener *l;
2550 char *path = NULL;
2551 char *err = NULL;
2552
2553 /* master pipe to ensure the master is still alive */
2554 if (socketpair(AF_UNIX, SOCK_STREAM, 0, mworker_proc->ipc_fd) < 0) {
2555 ha_alert("Cannot create worker socketpair.\n");
2556 return -1;
2557 }
2558
2559 /* XXX: we might want to use a separate frontend at some point */
2560 if (!global.stats_fe) {
2561 if ((global.stats_fe = alloc_stats_fe("GLOBAL", "master-socket", 0)) == NULL) {
2562 ha_alert("out of memory trying to allocate the stats frontend");
William Lallemand744a0892018-11-22 16:46:51 +01002563 goto error;
William Lallemandce83b4a2018-10-26 14:47:30 +02002564 }
2565 }
2566
2567 bind_conf = bind_conf_alloc(global.stats_fe, "master-socket", 0, "", xprt_get(XPRT_RAW));
William Lallemand744a0892018-11-22 16:46:51 +01002568 if (!bind_conf)
2569 goto error;
2570
William Lallemandce83b4a2018-10-26 14:47:30 +02002571 bind_conf->level &= ~ACCESS_LVL_MASK;
2572 bind_conf->level |= ACCESS_LVL_ADMIN; /* TODO: need to lower the rights with a CLI keyword*/
2573
2574 bind_conf->bind_proc = 1UL << proc;
2575 global.stats_fe->bind_proc = 0; /* XXX: we should be careful with that, it can be removed by configuration */
2576
2577 if (!memprintf(&path, "sockpair@%d", mworker_proc->ipc_fd[1])) {
2578 ha_alert("Cannot allocate listener.\n");
William Lallemand744a0892018-11-22 16:46:51 +01002579 goto error;
William Lallemandce83b4a2018-10-26 14:47:30 +02002580 }
2581
2582 if (!str2listener(path, global.stats_fe, bind_conf, "master-socket", 0, &err)) {
Tim Duesterhus4cae3b22018-11-22 16:46:50 +01002583 free(path);
William Lallemandce83b4a2018-10-26 14:47:30 +02002584 ha_alert("Cannot create a CLI sockpair listener for process #%d\n", proc);
William Lallemand744a0892018-11-22 16:46:51 +01002585 goto error;
William Lallemandce83b4a2018-10-26 14:47:30 +02002586 }
Tim Duesterhus4cae3b22018-11-22 16:46:50 +01002587 free(path);
2588 path = NULL;
William Lallemandce83b4a2018-10-26 14:47:30 +02002589
2590 list_for_each_entry(l, &bind_conf->listeners, by_bind) {
2591 l->maxconn = global.stats_fe->maxconn;
2592 l->backlog = global.stats_fe->backlog;
2593 l->accept = session_accept_fd;
2594 l->default_target = global.stats_fe->default_target;
William Lallemanda3372292018-11-16 16:57:22 +01002595 l->options |= (LI_O_UNLIMITED | LI_O_NOSTOP);
William Lallemandce83b4a2018-10-26 14:47:30 +02002596 /* it's a sockpair but we don't want to keep the fd in the master */
2597 l->options &= ~LI_O_INHERITED;
2598 l->nice = -64; /* we want to boost priority for local stats */
2599 global.maxsock += l->maxconn;
2600 }
2601
2602 return 0;
William Lallemand744a0892018-11-22 16:46:51 +01002603
2604error:
2605 close(mworker_proc->ipc_fd[0]);
2606 close(mworker_proc->ipc_fd[1]);
2607 free(err);
2608
2609 return -1;
William Lallemandce83b4a2018-10-26 14:47:30 +02002610}
2611
William Lallemand74c24fb2016-11-21 17:18:36 +01002612static struct applet cli_applet = {
2613 .obj_type = OBJ_TYPE_APPLET,
2614 .name = "<CLI>", /* used for logging */
2615 .fct = cli_io_handler,
2616 .release = cli_release_handler,
2617};
2618
Willy Tarreau0a739292016-11-22 20:21:23 +01002619/* register cli keywords */
2620static struct cli_kw_list cli_kws = {{ },{
William Lallemand4e8450b2018-10-26 14:47:43 +02002621 { { "@<relative pid>", NULL }, "@<relative pid> : send a command to the <relative pid> process", NULL, cli_io_handler_show_proc, NULL, NULL, ACCESS_MASTER_ONLY},
2622 { { "@!<pid>", NULL }, "@!<pid> : send a command to the <pid> process", cli_parse_default, NULL, NULL, NULL, ACCESS_MASTER_ONLY},
2623 { { "@master", NULL }, "@master : send a command to the master process", cli_parse_default, NULL, NULL, NULL, ACCESS_MASTER_ONLY},
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02002624 { { "help", NULL }, NULL, cli_parse_simple, NULL },
2625 { { "prompt", NULL }, NULL, cli_parse_simple, NULL },
2626 { { "quit", NULL }, NULL, cli_parse_simple, NULL },
Willy Tarreau2af99412016-11-23 11:10:59 +01002627 { { "set", "maxconn", "global", NULL }, "set maxconn global : change the per-process maxconn setting", cli_parse_set_maxconn_global, NULL },
Willy Tarreau45c742b2016-11-24 14:51:17 +01002628 { { "set", "rate-limit", NULL }, "set rate-limit : change a rate limiting value", cli_parse_set_ratelimit, NULL },
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02002629 { { "set", "severity-output", NULL }, "set severity-output [none|number|string] : set presence of severity level in feedback information", cli_parse_set_severity_output, NULL, NULL },
Willy Tarreau599852e2016-11-22 20:33:32 +01002630 { { "set", "timeout", NULL }, "set timeout : change a timeout setting", cli_parse_set_timeout, NULL, NULL },
Willy Tarreau0a739292016-11-22 20:21:23 +01002631 { { "show", "env", NULL }, "show env [var] : dump environment variables known to the process", cli_parse_show_env, cli_io_handler_show_env, NULL },
William Lallemand35851fb2018-10-26 14:47:42 +02002632 { { "show", "cli", "sockets", NULL }, "show cli sockets : dump list of cli sockets", cli_parse_default, cli_io_handler_show_cli_sock, NULL, NULL, ACCESS_MASTER },
William Lallemand67a234f2018-12-13 09:05:45 +01002633 { { "show", "cli", "level", NULL }, "show cli level : display the level of the current CLI session", cli_parse_show_lvl, NULL, NULL, NULL, ACCESS_MASTER},
Willy Tarreau7a4a0ac2017-07-25 19:32:50 +02002634 { { "show", "fd", NULL }, "show fd [num] : dump list of file descriptors in use", cli_parse_show_fd, cli_io_handler_show_fd, NULL },
Willy Tarreaud80cb4e2018-01-20 19:30:13 +01002635 { { "show", "activity", NULL }, "show activity : show per-thread activity stats (for support/developers)", cli_parse_default, cli_io_handler_show_activity, NULL },
William Lallemandb9f9e3b2018-10-26 14:47:39 +02002636 { { "show", "proc", NULL }, "show proc : show processes status", cli_parse_default, cli_io_handler_show_proc, NULL, NULL, ACCESS_MASTER_ONLY},
William Lallemand67a234f2018-12-13 09:05:45 +01002637 { { "operator", NULL }, "operator : lower the level of the current CLI session to operator", cli_parse_set_lvl, NULL, NULL, NULL, ACCESS_MASTER},
2638 { { "user", NULL }, "user : lower the level of the current CLI session to user", cli_parse_set_lvl, NULL, NULL, NULL, ACCESS_MASTER},
William Lallemanda57b7e32018-12-14 21:11:31 +01002639 { { "reload", NULL }, "reload : reload haproxy", cli_parse_reload, NULL, NULL, NULL, ACCESS_MASTER_ONLY},
Olivier Houchardf886e342017-04-05 22:24:59 +02002640 { { "_getsocks", NULL }, NULL, _getsocks, NULL },
Willy Tarreau0a739292016-11-22 20:21:23 +01002641 {{},}
2642}};
2643
Willy Tarreau0108d902018-11-25 19:14:37 +01002644INITCALL1(STG_REGISTER, cli_register_kw, &cli_kws);
2645
William Lallemand74c24fb2016-11-21 17:18:36 +01002646static struct cfg_kw_list cfg_kws = {ILH, {
2647 { CFG_GLOBAL, "stats", stats_parse_global },
2648 { 0, NULL, NULL },
2649}};
2650
Willy Tarreau0108d902018-11-25 19:14:37 +01002651INITCALL1(STG_REGISTER, cfg_register_keywords, &cfg_kws);
2652
William Lallemand74c24fb2016-11-21 17:18:36 +01002653static struct bind_kw_list bind_kws = { "STAT", { }, {
William Lallemandf6975e92017-05-26 17:42:10 +02002654 { "level", bind_parse_level, 1 }, /* set the unix socket admin level */
2655 { "expose-fd", bind_parse_expose_fd, 1 }, /* set the unix socket expose fd rights */
Andjelko Iharosc4df59e2017-07-20 11:59:48 +02002656 { "severity-output", bind_parse_severity_output, 1 }, /* set the severity output format */
William Lallemand74c24fb2016-11-21 17:18:36 +01002657 { NULL, NULL, 0 },
2658}};
2659
Willy Tarreau0108d902018-11-25 19:14:37 +01002660INITCALL1(STG_REGISTER, bind_register_keywords, &bind_kws);
William Lallemand74c24fb2016-11-21 17:18:36 +01002661
2662/*
2663 * Local variables:
2664 * c-indent-level: 8
2665 * c-basic-offset: 8
2666 * End:
2667 */