blob: ee743e7b99a537912cb5668014f575751c755000 [file] [log] [blame]
Willy Tarreaubaaee002006-06-26 02:48:02 +02001/*
2 * Server management functions.
3 *
Willy Tarreau21faa912012-10-10 08:27:36 +02004 * Copyright 2000-2012 Willy Tarreau <w@1wt.eu>
Krzysztof Piotr Oledzki5259dfe2008-01-21 01:54:06 +01005 * Copyright 2007-2008 Krzysztof Piotr Oledzki <ole@ans.pl>
Willy Tarreaubaaee002006-06-26 02:48:02 +02006 *
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
Willy Tarreau0a4b0ab2020-06-11 11:22:44 +020014#include <sys/types.h>
Willy Tarreaub2551052020-06-09 09:07:15 +020015#include <netinet/tcp.h>
Willy Tarreau272adea2014-03-31 10:39:59 +020016#include <ctype.h>
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +020017#include <errno.h>
Willy Tarreau272adea2014-03-31 10:39:59 +020018
Willy Tarreaub2551052020-06-09 09:07:15 +020019#include <import/ebsttree.h>
Willy Tarreau6be78492020-06-05 00:00:29 +020020#include <import/xxhash.h>
21
Willy Tarreaub2551052020-06-09 09:07:15 +020022#include <haproxy/api.h>
Willy Tarreau3f0f82e2020-06-04 19:42:41 +020023#include <haproxy/applet-t.h>
Willy Tarreau49801602020-06-04 22:50:02 +020024#include <haproxy/backend.h>
Willy Tarreau6be78492020-06-05 00:00:29 +020025#include <haproxy/cfgparse.h>
Willy Tarreau4aa573d2020-06-04 18:21:56 +020026#include <haproxy/check.h>
Willy Tarreau83487a82020-06-04 20:19:54 +020027#include <haproxy/cli.h>
Willy Tarreau7ea393d2020-06-04 18:02:10 +020028#include <haproxy/connection.h>
Willy Tarreau3afc4c42020-06-03 18:23:19 +020029#include <haproxy/dict-t.h>
Willy Tarreaueb92deb2020-06-04 10:53:16 +020030#include <haproxy/dns.h>
Willy Tarreau8d366972020-05-27 16:10:29 +020031#include <haproxy/errors.h>
Willy Tarreauf268ee82020-06-04 17:05:57 +020032#include <haproxy/global.h>
Willy Tarreau36979d92020-06-05 17:27:29 +020033#include <haproxy/log.h>
Willy Tarreaucee013e2020-06-05 11:40:38 +020034#include <haproxy/mailers.h>
Willy Tarreau7a00efb2020-06-02 17:02:59 +020035#include <haproxy/namespace.h>
Willy Tarreaub2551052020-06-09 09:07:15 +020036#include <haproxy/port_range.h>
37#include <haproxy/protocol.h>
Willy Tarreaua55c4542020-06-04 22:59:39 +020038#include <haproxy/queue.h>
Willy Tarreaue6ce10b2020-06-04 15:33:47 +020039#include <haproxy/sample.h>
Willy Tarreau1e56f922020-06-04 23:20:13 +020040#include <haproxy/server.h>
Willy Tarreau2eec9b52020-06-04 19:58:55 +020041#include <haproxy/stats-t.h>
Willy Tarreaudfd3de82020-06-04 23:46:14 +020042#include <haproxy/stream.h>
Willy Tarreau5e539c92020-06-04 20:45:39 +020043#include <haproxy/stream_interface.h>
Willy Tarreaucea0e1b2020-06-04 17:25:40 +020044#include <haproxy/task.h>
Willy Tarreau51cd5952020-06-05 12:25:38 +020045#include <haproxy/tcpcheck.h>
Willy Tarreau92b4f132020-06-01 11:05:15 +020046#include <haproxy/time.h>
Krzysztof Oledzki85130942007-10-22 16:21:10 +020047
Baptiste Assmannda29fe22019-06-13 13:24:29 +020048
Willy Tarreau3ff577e2018-08-02 11:48:52 +020049static void srv_update_status(struct server *s);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +020050static void srv_update_state(struct server *srv, int version, char **params);
Baptiste Assmann83cbaa52016-11-02 15:34:05 +010051static int srv_apply_lastaddr(struct server *srv, int *err_code);
Olivier Houchardd16bfe62017-10-31 15:21:19 +010052static int srv_set_fqdn(struct server *srv, const char *fqdn, int dns_locked);
Baptiste Assmannda29fe22019-06-13 13:24:29 +020053static void srv_state_parse_line(char *buf, const int version, char **params, char **srv_params);
54static int srv_state_get_version(FILE *f);
William Dauchy6318d332020-05-02 21:52:36 +020055static void srv_cleanup_connections(struct server *srv);
Willy Tarreaubaaee002006-06-26 02:48:02 +020056
Willy Tarreau21faa912012-10-10 08:27:36 +020057/* List head of all known server keywords */
58static struct srv_kw_list srv_keywords = {
59 .list = LIST_HEAD_INIT(srv_keywords.list)
60};
Krzysztof Oledzki85130942007-10-22 16:21:10 +020061
Willy Tarreauaf613e82020-06-05 08:40:51 +020062__decl_thread(HA_SPINLOCK_T idle_conn_srv_lock);
Olivier Houchard9ea5d362019-02-14 18:29:09 +010063struct eb_root idle_conn_srv = EB_ROOT;
64struct task *idle_conn_task = NULL;
Olivier Houchard9ea5d362019-02-14 18:29:09 +010065
Frédéric Lécaille7da71292019-05-20 09:47:07 +020066/* The server names dictionary */
67struct dict server_name_dict = {
68 .name = "server names",
69 .values = EB_ROOT_UNIQUE,
70};
71
Baptiste Assmannda29fe22019-06-13 13:24:29 +020072/* tree where global state_file is loaded */
Willy Tarreaufd1aa012019-12-20 17:23:40 +010073struct eb_root state_file = EB_ROOT_UNIQUE;
Baptiste Assmannda29fe22019-06-13 13:24:29 +020074
Simon Hormana3608442013-11-01 16:46:15 +090075int srv_downtime(const struct server *s)
Willy Tarreau21faa912012-10-10 08:27:36 +020076{
Emeric Brun52a91d32017-08-31 14:41:55 +020077 if ((s->cur_state != SRV_ST_STOPPED) && s->last_change < now.tv_sec) // ignore negative time
Krzysztof Oledzki85130942007-10-22 16:21:10 +020078 return s->down_time;
79
80 return now.tv_sec - s->last_change + s->down_time;
81}
Willy Tarreaubaaee002006-06-26 02:48:02 +020082
Bhaskar Maddalaa20cb852014-02-03 16:26:46 -050083int srv_lastsession(const struct server *s)
84{
85 if (s->counters.last_sess)
86 return now.tv_sec - s->counters.last_sess;
87
88 return -1;
89}
90
Simon Horman4a741432013-02-23 15:35:38 +090091int srv_getinter(const struct check *check)
Willy Tarreau21faa912012-10-10 08:27:36 +020092{
Simon Horman4a741432013-02-23 15:35:38 +090093 const struct server *s = check->server;
94
Willy Tarreauff5ae352013-12-11 20:36:34 +010095 if ((check->state & CHK_ST_CONFIGURED) && (check->health == check->rise + check->fall - 1))
Simon Horman4a741432013-02-23 15:35:38 +090096 return check->inter;
Krzysztof Piotr Oledzki5259dfe2008-01-21 01:54:06 +010097
Emeric Brun52a91d32017-08-31 14:41:55 +020098 if ((s->next_state == SRV_ST_STOPPED) && check->health == 0)
Simon Horman4a741432013-02-23 15:35:38 +090099 return (check->downinter)?(check->downinter):(check->inter);
Krzysztof Piotr Oledzki5259dfe2008-01-21 01:54:06 +0100100
Simon Horman4a741432013-02-23 15:35:38 +0900101 return (check->fastinter)?(check->fastinter):(check->inter);
Krzysztof Piotr Oledzki5259dfe2008-01-21 01:54:06 +0100102}
103
Olivier Houcharde9bad0a2018-01-17 17:39:34 +0100104/*
105 * Check that we did not get a hash collision.
106 * Unlikely, but it can happen.
107 */
108static inline void srv_check_for_dup_dyncookie(struct server *s)
Olivier Houchard4e694042017-03-14 20:01:29 +0100109{
110 struct proxy *p = s->proxy;
111 struct server *tmpserv;
Olivier Houcharde9bad0a2018-01-17 17:39:34 +0100112
113 for (tmpserv = p->srv; tmpserv != NULL;
114 tmpserv = tmpserv->next) {
115 if (tmpserv == s)
116 continue;
117 if (tmpserv->next_admin & SRV_ADMF_FMAINT)
118 continue;
119 if (tmpserv->cookie &&
120 strcmp(tmpserv->cookie, s->cookie) == 0) {
121 ha_warning("We generated two equal cookies for two different servers.\n"
122 "Please change the secret key for '%s'.\n",
123 s->proxy->id);
124 }
125 }
126
127}
128
Willy Tarreau46b7f532018-08-21 11:54:26 +0200129/*
Willy Tarreau5e83d992019-07-30 11:59:34 +0200130 * Must be called with the server lock held, and will grab the proxy lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +0200131 */
Olivier Houcharde9bad0a2018-01-17 17:39:34 +0100132void srv_set_dyncookie(struct server *s)
133{
134 struct proxy *p = s->proxy;
Olivier Houchard4e694042017-03-14 20:01:29 +0100135 char *tmpbuf;
136 unsigned long long hash_value;
Olivier Houchard2cb49eb2017-03-15 15:11:06 +0100137 size_t key_len;
Olivier Houchard4e694042017-03-14 20:01:29 +0100138 size_t buffer_len;
139 int addr_len;
140 int port;
141
Willy Tarreau5e83d992019-07-30 11:59:34 +0200142 HA_SPIN_LOCK(PROXY_LOCK, &p->lock);
143
Olivier Houchard4e694042017-03-14 20:01:29 +0100144 if ((s->flags & SRV_F_COOKIESET) ||
145 !(s->proxy->ck_opts & PR_CK_DYNAMIC) ||
146 s->proxy->dyncookie_key == NULL)
Willy Tarreau5e83d992019-07-30 11:59:34 +0200147 goto out;
Olivier Houchard2cb49eb2017-03-15 15:11:06 +0100148 key_len = strlen(p->dyncookie_key);
Olivier Houchard4e694042017-03-14 20:01:29 +0100149
150 if (s->addr.ss_family != AF_INET &&
151 s->addr.ss_family != AF_INET6)
Willy Tarreau5e83d992019-07-30 11:59:34 +0200152 goto out;
Olivier Houchard4e694042017-03-14 20:01:29 +0100153 /*
154 * Buffer to calculate the cookie value.
155 * The buffer contains the secret key + the server IP address
156 * + the TCP port.
157 */
158 addr_len = (s->addr.ss_family == AF_INET) ? 4 : 16;
159 /*
160 * The TCP port should use only 2 bytes, but is stored in
161 * an unsigned int in struct server, so let's use 4, to be
162 * on the safe side.
163 */
164 buffer_len = key_len + addr_len + 4;
Willy Tarreau843b7cb2018-07-13 10:54:26 +0200165 tmpbuf = trash.area;
Olivier Houchard4e694042017-03-14 20:01:29 +0100166 memcpy(tmpbuf, p->dyncookie_key, key_len);
167 memcpy(&(tmpbuf[key_len]),
168 s->addr.ss_family == AF_INET ?
169 (void *)&((struct sockaddr_in *)&s->addr)->sin_addr.s_addr :
170 (void *)&(((struct sockaddr_in6 *)&s->addr)->sin6_addr.s6_addr),
171 addr_len);
172 /*
173 * Make sure it's the same across all the load balancers,
174 * no matter their endianness.
175 */
176 port = htonl(s->svc_port);
177 memcpy(&tmpbuf[key_len + addr_len], &port, 4);
178 hash_value = XXH64(tmpbuf, buffer_len, 0);
179 memprintf(&s->cookie, "%016llx", hash_value);
180 if (!s->cookie)
Willy Tarreau5e83d992019-07-30 11:59:34 +0200181 goto out;
Olivier Houchard4e694042017-03-14 20:01:29 +0100182 s->cklen = 16;
Olivier Houcharde9bad0a2018-01-17 17:39:34 +0100183
184 /* Don't bother checking if the dyncookie is duplicated if
185 * the server is marked as "disabled", maybe it doesn't have
186 * its real IP yet, but just a place holder.
Olivier Houchard4e694042017-03-14 20:01:29 +0100187 */
Olivier Houcharde9bad0a2018-01-17 17:39:34 +0100188 if (!(s->next_admin & SRV_ADMF_FMAINT))
189 srv_check_for_dup_dyncookie(s);
Willy Tarreau5e83d992019-07-30 11:59:34 +0200190 out:
191 HA_SPIN_UNLOCK(PROXY_LOCK, &p->lock);
Olivier Houchard4e694042017-03-14 20:01:29 +0100192}
193
Willy Tarreau21faa912012-10-10 08:27:36 +0200194/*
195 * Registers the server keyword list <kwl> as a list of valid keywords for next
196 * parsing sessions.
197 */
198void srv_register_keywords(struct srv_kw_list *kwl)
199{
200 LIST_ADDQ(&srv_keywords.list, &kwl->list);
201}
202
203/* Return a pointer to the server keyword <kw>, or NULL if not found. If the
204 * keyword is found with a NULL ->parse() function, then an attempt is made to
205 * find one with a valid ->parse() function. This way it is possible to declare
206 * platform-dependant, known keywords as NULL, then only declare them as valid
207 * if some options are met. Note that if the requested keyword contains an
208 * opening parenthesis, everything from this point is ignored.
209 */
210struct srv_kw *srv_find_kw(const char *kw)
211{
212 int index;
213 const char *kwend;
214 struct srv_kw_list *kwl;
215 struct srv_kw *ret = NULL;
216
217 kwend = strchr(kw, '(');
218 if (!kwend)
219 kwend = kw + strlen(kw);
220
221 list_for_each_entry(kwl, &srv_keywords.list, list) {
222 for (index = 0; kwl->kw[index].kw != NULL; index++) {
223 if ((strncmp(kwl->kw[index].kw, kw, kwend - kw) == 0) &&
224 kwl->kw[index].kw[kwend-kw] == 0) {
225 if (kwl->kw[index].parse)
226 return &kwl->kw[index]; /* found it !*/
227 else
228 ret = &kwl->kw[index]; /* may be OK */
229 }
230 }
231 }
232 return ret;
233}
234
235/* Dumps all registered "server" keywords to the <out> string pointer. The
236 * unsupported keywords are only dumped if their supported form was not
237 * found.
238 */
239void srv_dump_kws(char **out)
240{
241 struct srv_kw_list *kwl;
242 int index;
243
Christopher Faulet784063e2020-05-18 12:14:18 +0200244 if (!out)
245 return;
246
Willy Tarreau21faa912012-10-10 08:27:36 +0200247 *out = NULL;
248 list_for_each_entry(kwl, &srv_keywords.list, list) {
249 for (index = 0; kwl->kw[index].kw != NULL; index++) {
250 if (kwl->kw[index].parse ||
251 srv_find_kw(kwl->kw[index].kw) == &kwl->kw[index]) {
252 memprintf(out, "%s[%4s] %s%s%s%s\n", *out ? *out : "",
253 kwl->scope,
254 kwl->kw[index].kw,
255 kwl->kw[index].skip ? " <arg>" : "",
256 kwl->kw[index].default_ok ? " [dflt_ok]" : "",
257 kwl->kw[index].parse ? "" : " (not supported)");
258 }
259 }
260 }
261}
Krzysztof Piotr Oledzki5259dfe2008-01-21 01:54:06 +0100262
Frédéric Lécaillef5bf9032017-03-10 11:51:05 +0100263/* Parse the "backup" server keyword */
264static int srv_parse_backup(char **args, int *cur_arg,
265 struct proxy *curproxy, struct server *newsrv, char **err)
266{
267 newsrv->flags |= SRV_F_BACKUP;
268 return 0;
269}
270
Alexander Liu2a54bb72019-05-22 19:44:48 +0800271
Frédéric Lécaille9d1b95b2017-03-15 09:13:33 +0100272/* Parse the "cookie" server keyword */
273static int srv_parse_cookie(char **args, int *cur_arg,
274 struct proxy *curproxy, struct server *newsrv, char **err)
275{
276 char *arg;
277
278 arg = args[*cur_arg + 1];
279 if (!*arg) {
280 memprintf(err, "'%s' expects <value> as argument.\n", args[*cur_arg]);
281 return ERR_ALERT | ERR_FATAL;
282 }
283
284 free(newsrv->cookie);
285 newsrv->cookie = strdup(arg);
286 newsrv->cklen = strlen(arg);
287 newsrv->flags |= SRV_F_COOKIESET;
288 return 0;
289}
290
Frédéric Lécaille2a0d0612017-03-21 11:53:54 +0100291/* Parse the "disabled" server keyword */
292static int srv_parse_disabled(char **args, int *cur_arg,
293 struct proxy *curproxy, struct server *newsrv, char **err)
294{
Emeric Brun52a91d32017-08-31 14:41:55 +0200295 newsrv->next_admin |= SRV_ADMF_CMAINT | SRV_ADMF_FMAINT;
296 newsrv->next_state = SRV_ST_STOPPED;
Frédéric Lécaille2a0d0612017-03-21 11:53:54 +0100297 newsrv->check.state |= CHK_ST_PAUSED;
298 newsrv->check.health = 0;
299 return 0;
300}
301
302/* Parse the "enabled" server keyword */
303static int srv_parse_enabled(char **args, int *cur_arg,
304 struct proxy *curproxy, struct server *newsrv, char **err)
305{
Emeric Brun52a91d32017-08-31 14:41:55 +0200306 newsrv->next_admin &= ~SRV_ADMF_CMAINT & ~SRV_ADMF_FMAINT;
307 newsrv->next_state = SRV_ST_RUNNING;
Frédéric Lécaille2a0d0612017-03-21 11:53:54 +0100308 newsrv->check.state &= ~CHK_ST_PAUSED;
309 newsrv->check.health = newsrv->check.rise;
310 return 0;
311}
312
Willy Tarreau9c538e02019-01-23 10:21:49 +0100313static int srv_parse_max_reuse(char **args, int *cur_arg, struct proxy *curproxy, struct server *newsrv, char **err)
314{
315 char *arg;
316
317 arg = args[*cur_arg + 1];
318 if (!*arg) {
319 memprintf(err, "'%s' expects <value> as argument.\n", args[*cur_arg]);
320 return ERR_ALERT | ERR_FATAL;
321 }
322 newsrv->max_reuse = atoi(arg);
323
324 return 0;
325}
326
Olivier Houchardb7b3faa2018-12-14 18:15:36 +0100327static int srv_parse_pool_purge_delay(char **args, int *cur_arg, struct proxy *curproxy, struct server *newsrv, char **err)
Olivier Houchard0c18a6f2018-12-02 14:11:41 +0100328{
329 const char *res;
330 char *arg;
331 unsigned int time;
332
333 arg = args[*cur_arg + 1];
334 if (!*arg) {
335 memprintf(err, "'%s' expects <value> as argument.\n", args[*cur_arg]);
336 return ERR_ALERT | ERR_FATAL;
337 }
338 res = parse_time_err(arg, &time, TIME_UNIT_MS);
Willy Tarreau9faebe32019-06-07 19:00:37 +0200339 if (res == PARSE_TIME_OVER) {
340 memprintf(err, "timer overflow in argument '%s' to '%s' (maximum value is 2147483647 ms or ~24.8 days)",
341 args[*cur_arg+1], args[*cur_arg]);
342 return ERR_ALERT | ERR_FATAL;
343 }
344 else if (res == PARSE_TIME_UNDER) {
345 memprintf(err, "timer underflow in argument '%s' to '%s' (minimum non-null value is 1 ms)",
346 args[*cur_arg+1], args[*cur_arg]);
347 return ERR_ALERT | ERR_FATAL;
348 }
349 else if (res) {
Olivier Houchard0c18a6f2018-12-02 14:11:41 +0100350 memprintf(err, "unexpected character '%c' in argument to <%s>.\n",
351 *res, args[*cur_arg]);
352 return ERR_ALERT | ERR_FATAL;
353 }
Olivier Houchardb7b3faa2018-12-14 18:15:36 +0100354 newsrv->pool_purge_delay = time;
Olivier Houchard0c18a6f2018-12-02 14:11:41 +0100355
356 return 0;
357}
358
Willy Tarreau2f3f4d32020-07-01 07:43:51 +0200359static int srv_parse_pool_low_conn(char **args, int *cur_arg, struct proxy *curproxy, struct server *newsrv, char **err)
360{
361 char *arg;
362
363 arg = args[*cur_arg + 1];
364 if (!*arg) {
365 memprintf(err, "'%s' expects <value> as argument.\n", args[*cur_arg]);
366 return ERR_ALERT | ERR_FATAL;
367 }
368
369 newsrv->low_idle_conns = atoi(arg);
370 return 0;
371}
372
Olivier Houchard006e3102018-12-10 18:30:32 +0100373static int srv_parse_pool_max_conn(char **args, int *cur_arg, struct proxy *curproxy, struct server *newsrv, char **err)
374{
375 char *arg;
376
377 arg = args[*cur_arg + 1];
378 if (!*arg) {
379 memprintf(err, "'%s' expects <value> as argument.\n", args[*cur_arg]);
380 return ERR_ALERT | ERR_FATAL;
381 }
Willy Tarreaucb923d52019-01-23 10:39:27 +0100382
Olivier Houchard006e3102018-12-10 18:30:32 +0100383 newsrv->max_idle_conns = atoi(arg);
Willy Tarreaucb923d52019-01-23 10:39:27 +0100384 if ((int)newsrv->max_idle_conns < -1) {
385 memprintf(err, "'%s' must be >= -1", args[*cur_arg]);
386 return ERR_ALERT | ERR_FATAL;
387 }
Olivier Houchard006e3102018-12-10 18:30:32 +0100388
389 return 0;
390}
391
Willy Tarreaudff55432012-10-10 17:51:05 +0200392/* parse the "id" server keyword */
393static int srv_parse_id(char **args, int *cur_arg, struct proxy *curproxy, struct server *newsrv, char **err)
394{
395 struct eb32_node *node;
396
397 if (!*args[*cur_arg + 1]) {
398 memprintf(err, "'%s' : expects an integer argument", args[*cur_arg]);
399 return ERR_ALERT | ERR_FATAL;
400 }
401
402 newsrv->puid = atol(args[*cur_arg + 1]);
403 newsrv->conf.id.key = newsrv->puid;
404
405 if (newsrv->puid <= 0) {
406 memprintf(err, "'%s' : custom id has to be > 0", args[*cur_arg]);
407 return ERR_ALERT | ERR_FATAL;
408 }
409
410 node = eb32_lookup(&curproxy->conf.used_server_id, newsrv->puid);
411 if (node) {
412 struct server *target = container_of(node, struct server, conf.id);
413 memprintf(err, "'%s' : custom id %d already used at %s:%d ('server %s')",
414 args[*cur_arg], newsrv->puid, target->conf.file, target->conf.line,
415 target->id);
416 return ERR_ALERT | ERR_FATAL;
417 }
418
419 eb32_insert(&curproxy->conf.used_server_id, &newsrv->conf.id);
Baptiste Assmann7cc419a2015-07-07 22:02:20 +0200420 newsrv->flags |= SRV_F_FORCED_ID;
Willy Tarreaudff55432012-10-10 17:51:05 +0200421 return 0;
422}
423
Frédéric Lécaille22f41a22017-03-16 17:17:36 +0100424/* Parse the "namespace" server keyword */
425static int srv_parse_namespace(char **args, int *cur_arg,
426 struct proxy *curproxy, struct server *newsrv, char **err)
427{
Willy Tarreaue5733232019-05-22 19:24:06 +0200428#ifdef USE_NS
Frédéric Lécaille22f41a22017-03-16 17:17:36 +0100429 char *arg;
430
431 arg = args[*cur_arg + 1];
432 if (!*arg) {
433 memprintf(err, "'%s' : expects <name> as argument", args[*cur_arg]);
434 return ERR_ALERT | ERR_FATAL;
435 }
436
437 if (!strcmp(arg, "*")) {
438 /* Use the namespace associated with the connection (if present). */
439 newsrv->flags |= SRV_F_USE_NS_FROM_PP;
440 return 0;
441 }
442
443 /*
444 * As this parser may be called several times for the same 'default-server'
445 * object, or for a new 'server' instance deriving from a 'default-server'
446 * one with SRV_F_USE_NS_FROM_PP flag enabled, let's reset it.
447 */
448 newsrv->flags &= ~SRV_F_USE_NS_FROM_PP;
449
450 newsrv->netns = netns_store_lookup(arg, strlen(arg));
451 if (!newsrv->netns)
452 newsrv->netns = netns_store_insert(arg);
453
454 if (!newsrv->netns) {
455 memprintf(err, "Cannot open namespace '%s'", arg);
456 return ERR_ALERT | ERR_FATAL;
457 }
458
459 return 0;
460#else
461 memprintf(err, "'%s': '%s' option not implemented", args[0], args[*cur_arg]);
462 return ERR_ALERT | ERR_FATAL;
463#endif
464}
465
Frédéric Lécaillef5bf9032017-03-10 11:51:05 +0100466/* Parse the "no-backup" server keyword */
467static int srv_parse_no_backup(char **args, int *cur_arg,
468 struct proxy *curproxy, struct server *newsrv, char **err)
469{
470 newsrv->flags &= ~SRV_F_BACKUP;
471 return 0;
472}
473
Frédéric Lécaille25df8902017-03-10 14:04:31 +0100474
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100475/* Disable server PROXY protocol flags. */
Willy Tarreau0e492e22019-04-15 21:25:03 +0200476static inline int srv_disable_pp_flags(struct server *srv, unsigned int flags)
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100477{
478 srv->pp_opts &= ~flags;
479 return 0;
480}
481
482/* Parse the "no-send-proxy" server keyword */
483static int srv_parse_no_send_proxy(char **args, int *cur_arg,
484 struct proxy *curproxy, struct server *newsrv, char **err)
485{
486 return srv_disable_pp_flags(newsrv, SRV_PP_V1);
487}
488
489/* Parse the "no-send-proxy-v2" server keyword */
490static int srv_parse_no_send_proxy_v2(char **args, int *cur_arg,
491 struct proxy *curproxy, struct server *newsrv, char **err)
492{
493 return srv_disable_pp_flags(newsrv, SRV_PP_V2);
494}
495
Frédéric Lécaille1b9423d2019-07-04 14:19:06 +0200496/* Parse the "no-tfo" server keyword */
497static int srv_parse_no_tfo(char **args, int *cur_arg,
498 struct proxy *curproxy, struct server *newsrv, char **err)
499{
500 newsrv->flags &= ~SRV_F_FASTOPEN;
501 return 0;
502}
503
Frédéric Lécaillef9bc1d62017-03-10 15:50:49 +0100504/* Parse the "non-stick" server keyword */
505static int srv_parse_non_stick(char **args, int *cur_arg,
506 struct proxy *curproxy, struct server *newsrv, char **err)
507{
508 newsrv->flags |= SRV_F_NON_STICK;
509 return 0;
510}
511
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100512/* Enable server PROXY protocol flags. */
Willy Tarreau0e492e22019-04-15 21:25:03 +0200513static inline int srv_enable_pp_flags(struct server *srv, unsigned int flags)
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100514{
515 srv->pp_opts |= flags;
516 return 0;
517}
Christopher Faulet8ed0a3e2018-04-10 14:45:45 +0200518/* parse the "proto" server keyword */
519static int srv_parse_proto(char **args, int *cur_arg,
520 struct proxy *px, struct server *newsrv, char **err)
521{
522 struct ist proto;
523
524 if (!*args[*cur_arg + 1]) {
525 memprintf(err, "'%s' : missing value", args[*cur_arg]);
526 return ERR_ALERT | ERR_FATAL;
527 }
528 proto = ist2(args[*cur_arg + 1], strlen(args[*cur_arg + 1]));
529 newsrv->mux_proto = get_mux_proto(proto);
530 if (!newsrv->mux_proto) {
531 memprintf(err, "'%s' : unknown MUX protocol '%s'", args[*cur_arg], args[*cur_arg+1]);
532 return ERR_ALERT | ERR_FATAL;
533 }
Christopher Faulet8ed0a3e2018-04-10 14:45:45 +0200534 return 0;
535}
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100536
Emmanuel Hocdetf643b802018-02-01 15:20:32 +0100537/* parse the "proxy-v2-options" */
538static int srv_parse_proxy_v2_options(char **args, int *cur_arg,
539 struct proxy *px, struct server *newsrv, char **err)
540{
541 char *p, *n;
542 for (p = args[*cur_arg+1]; p; p = n) {
543 n = strchr(p, ',');
544 if (n)
545 *n++ = '\0';
546 if (!strcmp(p, "ssl")) {
547 newsrv->pp_opts |= SRV_PP_V2_SSL;
548 } else if (!strcmp(p, "cert-cn")) {
549 newsrv->pp_opts |= SRV_PP_V2_SSL;
550 newsrv->pp_opts |= SRV_PP_V2_SSL_CN;
Emmanuel Hocdetfa8d0f12018-02-01 15:53:52 +0100551 } else if (!strcmp(p, "cert-key")) {
552 newsrv->pp_opts |= SRV_PP_V2_SSL;
553 newsrv->pp_opts |= SRV_PP_V2_SSL_KEY_ALG;
554 } else if (!strcmp(p, "cert-sig")) {
555 newsrv->pp_opts |= SRV_PP_V2_SSL;
556 newsrv->pp_opts |= SRV_PP_V2_SSL_SIG_ALG;
557 } else if (!strcmp(p, "ssl-cipher")) {
558 newsrv->pp_opts |= SRV_PP_V2_SSL;
559 newsrv->pp_opts |= SRV_PP_V2_SSL_CIPHER;
Emmanuel Hocdet253c3b72018-02-01 18:29:59 +0100560 } else if (!strcmp(p, "authority")) {
561 newsrv->pp_opts |= SRV_PP_V2_AUTHORITY;
Emmanuel Hocdet4399c752018-02-05 15:26:43 +0100562 } else if (!strcmp(p, "crc32c")) {
563 newsrv->pp_opts |= SRV_PP_V2_CRC32C;
Tim Duesterhuscf6e0c82020-03-13 12:34:24 +0100564 } else if (!strcmp(p, "unique-id")) {
565 newsrv->pp_opts |= SRV_PP_V2_UNIQUE_ID;
Emmanuel Hocdetf643b802018-02-01 15:20:32 +0100566 } else
567 goto fail;
568 }
569 return 0;
570 fail:
571 if (err)
572 memprintf(err, "'%s' : proxy v2 option not implemented", p);
573 return ERR_ALERT | ERR_FATAL;
574}
575
Frédéric Lécaille547356e2017-03-15 08:55:39 +0100576/* Parse the "observe" server keyword */
577static int srv_parse_observe(char **args, int *cur_arg,
578 struct proxy *curproxy, struct server *newsrv, char **err)
579{
580 char *arg;
581
582 arg = args[*cur_arg + 1];
583 if (!*arg) {
584 memprintf(err, "'%s' expects <mode> as argument.\n", args[*cur_arg]);
585 return ERR_ALERT | ERR_FATAL;
586 }
587
588 if (!strcmp(arg, "none")) {
589 newsrv->observe = HANA_OBS_NONE;
590 }
591 else if (!strcmp(arg, "layer4")) {
592 newsrv->observe = HANA_OBS_LAYER4;
593 }
594 else if (!strcmp(arg, "layer7")) {
595 if (curproxy->mode != PR_MODE_HTTP) {
596 memprintf(err, "'%s' can only be used in http proxies.\n", arg);
597 return ERR_ALERT;
598 }
599 newsrv->observe = HANA_OBS_LAYER7;
600 }
601 else {
602 memprintf(err, "'%s' expects one of 'none', 'layer4', 'layer7' "
603 "but got '%s'\n", args[*cur_arg], arg);
604 return ERR_ALERT | ERR_FATAL;
605 }
606
607 return 0;
608}
609
Frédéric Lécaille16186232017-03-14 16:42:49 +0100610/* Parse the "redir" server keyword */
611static int srv_parse_redir(char **args, int *cur_arg,
612 struct proxy *curproxy, struct server *newsrv, char **err)
613{
614 char *arg;
615
616 arg = args[*cur_arg + 1];
617 if (!*arg) {
618 memprintf(err, "'%s' expects <prefix> as argument.\n", args[*cur_arg]);
619 return ERR_ALERT | ERR_FATAL;
620 }
621
622 free(newsrv->rdr_pfx);
623 newsrv->rdr_pfx = strdup(arg);
624 newsrv->rdr_len = strlen(arg);
625
626 return 0;
627}
628
Frédéric Lécaille31045e42017-03-10 16:40:00 +0100629/* Parse the "send-proxy" server keyword */
630static int srv_parse_send_proxy(char **args, int *cur_arg,
631 struct proxy *curproxy, struct server *newsrv, char **err)
632{
633 return srv_enable_pp_flags(newsrv, SRV_PP_V1);
634}
635
636/* Parse the "send-proxy-v2" server keyword */
637static int srv_parse_send_proxy_v2(char **args, int *cur_arg,
638 struct proxy *curproxy, struct server *newsrv, char **err)
639{
640 return srv_enable_pp_flags(newsrv, SRV_PP_V2);
641}
642
Frédéric Lécailledba97072017-03-17 15:33:50 +0100643
644/* Parse the "source" server keyword */
645static int srv_parse_source(char **args, int *cur_arg,
646 struct proxy *curproxy, struct server *newsrv, char **err)
647{
648 char *errmsg;
649 int port_low, port_high;
650 struct sockaddr_storage *sk;
651 struct protocol *proto;
652
653 errmsg = NULL;
654
655 if (!*args[*cur_arg + 1]) {
656 memprintf(err, "'%s' expects <addr>[:<port>[-<port>]], and optionally '%s' <addr>, "
657 "and '%s' <name> as argument.\n", args[*cur_arg], "usesrc", "interface");
658 goto err;
659 }
660
661 /* 'sk' is statically allocated (no need to be freed). */
662 sk = str2sa_range(args[*cur_arg + 1], NULL, &port_low, &port_high, &errmsg, NULL, NULL, 1);
663 if (!sk) {
664 memprintf(err, "'%s %s' : %s\n", args[*cur_arg], args[*cur_arg + 1], errmsg);
665 goto err;
666 }
667
668 proto = protocol_by_family(sk->ss_family);
669 if (!proto || !proto->connect) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100670 ha_alert("'%s %s' : connect() not supported for this address family.\n",
671 args[*cur_arg], args[*cur_arg + 1]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100672 goto err;
673 }
674
675 newsrv->conn_src.opts |= CO_SRC_BIND;
676 newsrv->conn_src.source_addr = *sk;
677
678 if (port_low != port_high) {
679 int i;
680
681 if (!port_low || !port_high) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100682 ha_alert("'%s' does not support port offsets (found '%s').\n",
683 args[*cur_arg], args[*cur_arg + 1]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100684 goto err;
685 }
686
687 if (port_low <= 0 || port_low > 65535 ||
688 port_high <= 0 || port_high > 65535 ||
689 port_low > port_high) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100690 ha_alert("'%s': invalid source port range %d-%d.\n", args[*cur_arg], port_low, port_high);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100691 goto err;
692 }
693 newsrv->conn_src.sport_range = port_range_alloc_range(port_high - port_low + 1);
694 for (i = 0; i < newsrv->conn_src.sport_range->size; i++)
695 newsrv->conn_src.sport_range->ports[i] = port_low + i;
696 }
697
698 *cur_arg += 2;
699 while (*(args[*cur_arg])) {
700 if (!strcmp(args[*cur_arg], "usesrc")) { /* address to use outside */
701#if defined(CONFIG_HAP_TRANSPARENT)
702 if (!*args[*cur_arg + 1]) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100703 ha_alert("'usesrc' expects <addr>[:<port>], 'client', 'clientip', "
704 "or 'hdr_ip(name,#)' as argument.\n");
Frédéric Lécailledba97072017-03-17 15:33:50 +0100705 goto err;
706 }
707 if (!strcmp(args[*cur_arg + 1], "client")) {
708 newsrv->conn_src.opts &= ~CO_SRC_TPROXY_MASK;
709 newsrv->conn_src.opts |= CO_SRC_TPROXY_CLI;
710 }
711 else if (!strcmp(args[*cur_arg + 1], "clientip")) {
712 newsrv->conn_src.opts &= ~CO_SRC_TPROXY_MASK;
713 newsrv->conn_src.opts |= CO_SRC_TPROXY_CIP;
714 }
715 else if (!strncmp(args[*cur_arg + 1], "hdr_ip(", 7)) {
716 char *name, *end;
717
718 name = args[*cur_arg + 1] + 7;
Willy Tarreau90807112020-02-25 08:16:33 +0100719 while (isspace((unsigned char)*name))
Frédéric Lécailledba97072017-03-17 15:33:50 +0100720 name++;
721
722 end = name;
Willy Tarreau90807112020-02-25 08:16:33 +0100723 while (*end && !isspace((unsigned char)*end) && *end != ',' && *end != ')')
Frédéric Lécailledba97072017-03-17 15:33:50 +0100724 end++;
725
726 newsrv->conn_src.opts &= ~CO_SRC_TPROXY_MASK;
727 newsrv->conn_src.opts |= CO_SRC_TPROXY_DYN;
728 free(newsrv->conn_src.bind_hdr_name);
729 newsrv->conn_src.bind_hdr_name = calloc(1, end - name + 1);
730 newsrv->conn_src.bind_hdr_len = end - name;
731 memcpy(newsrv->conn_src.bind_hdr_name, name, end - name);
732 newsrv->conn_src.bind_hdr_name[end - name] = '\0';
733 newsrv->conn_src.bind_hdr_occ = -1;
734
735 /* now look for an occurrence number */
Willy Tarreau90807112020-02-25 08:16:33 +0100736 while (isspace((unsigned char)*end))
Frédéric Lécailledba97072017-03-17 15:33:50 +0100737 end++;
738 if (*end == ',') {
739 end++;
740 name = end;
741 if (*end == '-')
742 end++;
Willy Tarreau90807112020-02-25 08:16:33 +0100743 while (isdigit((unsigned char)*end))
Frédéric Lécailledba97072017-03-17 15:33:50 +0100744 end++;
745 newsrv->conn_src.bind_hdr_occ = strl2ic(name, end - name);
746 }
747
748 if (newsrv->conn_src.bind_hdr_occ < -MAX_HDR_HISTORY) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100749 ha_alert("usesrc hdr_ip(name,num) does not support negative"
750 " occurrences values smaller than %d.\n", MAX_HDR_HISTORY);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100751 goto err;
752 }
753 }
754 else {
755 struct sockaddr_storage *sk;
756 int port1, port2;
757
758 /* 'sk' is statically allocated (no need to be freed). */
759 sk = str2sa_range(args[*cur_arg + 1], NULL, &port1, &port2, &errmsg, NULL, NULL, 1);
760 if (!sk) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100761 ha_alert("'%s %s' : %s\n", args[*cur_arg], args[*cur_arg + 1], errmsg);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100762 goto err;
763 }
764
765 proto = protocol_by_family(sk->ss_family);
766 if (!proto || !proto->connect) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100767 ha_alert("'%s %s' : connect() not supported for this address family.\n",
768 args[*cur_arg], args[*cur_arg + 1]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100769 goto err;
770 }
771
772 if (port1 != port2) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100773 ha_alert("'%s' : port ranges and offsets are not allowed in '%s'\n",
774 args[*cur_arg], args[*cur_arg + 1]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100775 goto err;
776 }
777 newsrv->conn_src.tproxy_addr = *sk;
778 newsrv->conn_src.opts |= CO_SRC_TPROXY_ADDR;
779 }
780 global.last_checks |= LSTCHK_NETADM;
781 *cur_arg += 2;
782 continue;
783#else /* no TPROXY support */
Christopher Faulet767a84b2017-11-24 16:50:31 +0100784 ha_alert("'usesrc' not allowed here because support for TPROXY was not compiled in.\n");
Frédéric Lécailledba97072017-03-17 15:33:50 +0100785 goto err;
786#endif /* defined(CONFIG_HAP_TRANSPARENT) */
787 } /* "usesrc" */
788
789 if (!strcmp(args[*cur_arg], "interface")) { /* specifically bind to this interface */
790#ifdef SO_BINDTODEVICE
791 if (!*args[*cur_arg + 1]) {
Christopher Faulet767a84b2017-11-24 16:50:31 +0100792 ha_alert("'%s' : missing interface name.\n", args[0]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100793 goto err;
794 }
795 free(newsrv->conn_src.iface_name);
796 newsrv->conn_src.iface_name = strdup(args[*cur_arg + 1]);
797 newsrv->conn_src.iface_len = strlen(newsrv->conn_src.iface_name);
798 global.last_checks |= LSTCHK_NETADM;
799#else
Christopher Faulet767a84b2017-11-24 16:50:31 +0100800 ha_alert("'%s' : '%s' option not implemented.\n", args[0], args[*cur_arg]);
Frédéric Lécailledba97072017-03-17 15:33:50 +0100801 goto err;
802#endif
803 *cur_arg += 2;
804 continue;
805 }
806 /* this keyword in not an option of "source" */
807 break;
808 } /* while */
809
810 return 0;
811
812 err:
813 free(errmsg);
814 return ERR_ALERT | ERR_FATAL;
815}
816
Frédéric Lécaillef9bc1d62017-03-10 15:50:49 +0100817/* Parse the "stick" server keyword */
818static int srv_parse_stick(char **args, int *cur_arg,
819 struct proxy *curproxy, struct server *newsrv, char **err)
820{
821 newsrv->flags &= ~SRV_F_NON_STICK;
822 return 0;
823}
824
Frédéric Lécaille67e0e612017-03-14 15:21:31 +0100825/* Parse the "track" server keyword */
826static int srv_parse_track(char **args, int *cur_arg,
827 struct proxy *curproxy, struct server *newsrv, char **err)
828{
829 char *arg;
830
831 arg = args[*cur_arg + 1];
832 if (!*arg) {
833 memprintf(err, "'track' expects [<proxy>/]<server> as argument.\n");
834 return ERR_ALERT | ERR_FATAL;
835 }
836
837 free(newsrv->trackit);
838 newsrv->trackit = strdup(arg);
839
840 return 0;
Alexander Liu2a54bb72019-05-22 19:44:48 +0800841}
842
843/* Parse the "socks4" server keyword */
844static int srv_parse_socks4(char **args, int *cur_arg,
845 struct proxy *curproxy, struct server *newsrv, char **err)
846{
847 char *errmsg;
848 int port_low, port_high;
849 struct sockaddr_storage *sk;
850 struct protocol *proto;
851
852 errmsg = NULL;
853
854 if (!*args[*cur_arg + 1]) {
855 memprintf(err, "'%s' expects <addr>:<port> as argument.\n", args[*cur_arg]);
856 goto err;
857 }
858
859 /* 'sk' is statically allocated (no need to be freed). */
860 sk = str2sa_range(args[*cur_arg + 1], NULL, &port_low, &port_high, &errmsg, NULL, NULL, 1);
861 if (!sk) {
862 memprintf(err, "'%s %s' : %s\n", args[*cur_arg], args[*cur_arg + 1], errmsg);
863 goto err;
864 }
865
866 proto = protocol_by_family(sk->ss_family);
867 if (!proto || !proto->connect) {
868 ha_alert("'%s %s' : connect() not supported for this address family.\n", args[*cur_arg], args[*cur_arg + 1]);
869 goto err;
870 }
871
872 newsrv->flags |= SRV_F_SOCKS4_PROXY;
873 newsrv->socks4_addr = *sk;
874
875 if (port_low != port_high) {
876 ha_alert("'%s' does not support port offsets (found '%s').\n", args[*cur_arg], args[*cur_arg + 1]);
877 goto err;
878 }
879
880 if (!port_low) {
881 ha_alert("'%s': invalid port range %d-%d.\n", args[*cur_arg], port_low, port_high);
882 goto err;
883 }
884
885 return 0;
886
887 err:
888 free(errmsg);
889 return ERR_ALERT | ERR_FATAL;
Frédéric Lécaille67e0e612017-03-14 15:21:31 +0100890}
891
Frédéric Lécailledba97072017-03-17 15:33:50 +0100892
Willy Tarreau034c88c2017-01-23 23:36:45 +0100893/* parse the "tfo" server keyword */
894static int srv_parse_tfo(char **args, int *cur_arg, struct proxy *px, struct server *newsrv, char **err)
895{
896 newsrv->flags |= SRV_F_FASTOPEN;
897 return 0;
898}
899
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200900/* Shutdown all connections of a server. The caller must pass a termination
Willy Tarreaue7dff022015-04-03 01:14:29 +0200901 * code in <why>, which must be one of SF_ERR_* indicating the reason for the
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200902 * shutdown.
Willy Tarreau46b7f532018-08-21 11:54:26 +0200903 *
904 * Must be called with the server lock held.
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200905 */
Willy Tarreau87b09662015-04-03 00:22:06 +0200906void srv_shutdown_streams(struct server *srv, int why)
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200907{
Willy Tarreau87b09662015-04-03 00:22:06 +0200908 struct stream *stream, *stream_bck;
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200909
Willy Tarreau87b09662015-04-03 00:22:06 +0200910 list_for_each_entry_safe(stream, stream_bck, &srv->actconns, by_srv)
911 if (stream->srv_conn == srv)
912 stream_shutdown(stream, why);
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200913}
914
915/* Shutdown all connections of all backup servers of a proxy. The caller must
Willy Tarreaue7dff022015-04-03 01:14:29 +0200916 * pass a termination code in <why>, which must be one of SF_ERR_* indicating
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200917 * the reason for the shutdown.
Willy Tarreau46b7f532018-08-21 11:54:26 +0200918 *
919 * Must be called with the server lock held.
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200920 */
Willy Tarreau87b09662015-04-03 00:22:06 +0200921void srv_shutdown_backup_streams(struct proxy *px, int why)
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200922{
923 struct server *srv;
924
925 for (srv = px->srv; srv != NULL; srv = srv->next)
926 if (srv->flags & SRV_F_BACKUP)
Willy Tarreau87b09662015-04-03 00:22:06 +0200927 srv_shutdown_streams(srv, why);
Willy Tarreau4aac7db2014-05-16 11:48:10 +0200928}
929
Willy Tarreaubda92272014-05-20 21:55:30 +0200930/* Appends some information to a message string related to a server going UP or
931 * DOWN. If both <forced> and <reason> are null and the server tracks another
932 * one, a "via" information will be provided to know where the status came from.
Emeric Brun5a133512017-10-19 14:42:30 +0200933 * If <check> is non-null, an entire string describing the check result will be
934 * appended after a comma and a space (eg: to report some information from the
935 * check that changed the state). In the other case, the string will be built
936 * using the check results stored into the struct server if present.
937 * If <xferred> is non-negative, some information about requeued sessions are
Willy Tarreaubda92272014-05-20 21:55:30 +0200938 * provided.
Willy Tarreau46b7f532018-08-21 11:54:26 +0200939 *
940 * Must be called with the server lock held.
Willy Tarreaua0066dd2014-05-16 11:25:16 +0200941 */
Willy Tarreau83061a82018-07-13 11:56:34 +0200942void srv_append_status(struct buffer *msg, struct server *s,
943 struct check *check, int xferred, int forced)
Willy Tarreaua0066dd2014-05-16 11:25:16 +0200944{
Emeric Brun5a133512017-10-19 14:42:30 +0200945 short status = s->op_st_chg.status;
946 short code = s->op_st_chg.code;
947 long duration = s->op_st_chg.duration;
948 char *desc = s->op_st_chg.reason;
949
950 if (check) {
951 status = check->status;
952 code = check->code;
953 duration = check->duration;
954 desc = check->desc;
955 }
956
957 if (status != -1) {
958 chunk_appendf(msg, ", reason: %s", get_check_status_description(status));
959
960 if (status >= HCHK_STATUS_L57DATA)
961 chunk_appendf(msg, ", code: %d", code);
962
963 if (desc && *desc) {
Willy Tarreau83061a82018-07-13 11:56:34 +0200964 struct buffer src;
Emeric Brun5a133512017-10-19 14:42:30 +0200965
966 chunk_appendf(msg, ", info: \"");
967
968 chunk_initlen(&src, desc, 0, strlen(desc));
969 chunk_asciiencode(msg, &src, '"');
970
971 chunk_appendf(msg, "\"");
972 }
973
974 if (duration >= 0)
975 chunk_appendf(msg, ", check duration: %ldms", duration);
976 }
977 else if (desc && *desc) {
978 chunk_appendf(msg, ", %s", desc);
979 }
980 else if (!forced && s->track) {
Willy Tarreaubda92272014-05-20 21:55:30 +0200981 chunk_appendf(msg, " via %s/%s", s->track->proxy->id, s->track->id);
Emeric Brun5a133512017-10-19 14:42:30 +0200982 }
Willy Tarreaua0066dd2014-05-16 11:25:16 +0200983
984 if (xferred >= 0) {
Emeric Brun52a91d32017-08-31 14:41:55 +0200985 if (s->next_state == SRV_ST_STOPPED)
Willy Tarreaua0066dd2014-05-16 11:25:16 +0200986 chunk_appendf(msg, ". %d active and %d backup servers left.%s"
987 " %d sessions active, %d requeued, %d remaining in queue",
988 s->proxy->srv_act, s->proxy->srv_bck,
989 (s->proxy->srv_bck && !s->proxy->srv_act) ? " Running on backup." : "",
990 s->cur_sess, xferred, s->nbpend);
991 else
992 chunk_appendf(msg, ". %d active and %d backup servers online.%s"
993 " %d sessions requeued, %d total in queue",
994 s->proxy->srv_act, s->proxy->srv_bck,
995 (s->proxy->srv_bck && !s->proxy->srv_act) ? " Running on backup." : "",
996 xferred, s->nbpend);
997 }
998}
999
Emeric Brun5a133512017-10-19 14:42:30 +02001000/* Marks server <s> down, regardless of its checks' statuses. The server is
1001 * registered in a list to postpone the counting of the remaining servers on
1002 * the proxy and transfers queued streams whenever possible to other servers at
1003 * a sync point. Maintenance servers are ignored. It stores the <reason> if
1004 * non-null as the reason for going down or the available data from the check
1005 * struct to recompute this reason later.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001006 *
1007 * Must be called with the server lock held.
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001008 */
Emeric Brun5a133512017-10-19 14:42:30 +02001009void srv_set_stopped(struct server *s, const char *reason, struct check *check)
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001010{
1011 struct server *srv;
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001012
Emeric Brun64cc49c2017-10-03 14:46:45 +02001013 if ((s->cur_admin & SRV_ADMF_MAINT) || s->next_state == SRV_ST_STOPPED)
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001014 return;
1015
Emeric Brun52a91d32017-08-31 14:41:55 +02001016 s->next_state = SRV_ST_STOPPED;
Emeric Brun5a133512017-10-19 14:42:30 +02001017 *s->op_st_chg.reason = 0;
1018 s->op_st_chg.status = -1;
1019 if (reason) {
1020 strlcpy2(s->op_st_chg.reason, reason, sizeof(s->op_st_chg.reason));
1021 }
1022 else if (check) {
Willy Tarreau358847f2017-11-20 21:33:21 +01001023 strlcpy2(s->op_st_chg.reason, check->desc, sizeof(s->op_st_chg.reason));
Emeric Brun5a133512017-10-19 14:42:30 +02001024 s->op_st_chg.code = check->code;
1025 s->op_st_chg.status = check->status;
1026 s->op_st_chg.duration = check->duration;
1027 }
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001028
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001029 /* propagate changes */
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001030 srv_update_status(s);
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001031
Emeric Brun9f0b4582017-10-23 14:39:51 +02001032 for (srv = s->trackers; srv; srv = srv->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001033 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Emeric Brun5a133512017-10-19 14:42:30 +02001034 srv_set_stopped(srv, NULL, NULL);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001035 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02001036 }
Willy Tarreaue7d1ef12014-05-20 22:25:12 +02001037}
1038
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001039/* Marks server <s> up regardless of its checks' statuses and provided it isn't
Emeric Brun5a133512017-10-19 14:42:30 +02001040 * in maintenance. The server is registered in a list to postpone the counting
1041 * of the remaining servers on the proxy and tries to grab requests from the
1042 * proxy at a sync point. Maintenance servers are ignored. It stores the
1043 * <reason> if non-null as the reason for going down or the available data
1044 * from the check struct to recompute this reason later.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001045 *
1046 * Must be called with the server lock held.
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001047 */
Emeric Brun5a133512017-10-19 14:42:30 +02001048void srv_set_running(struct server *s, const char *reason, struct check *check)
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001049{
1050 struct server *srv;
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001051
Emeric Brun64cc49c2017-10-03 14:46:45 +02001052 if (s->cur_admin & SRV_ADMF_MAINT)
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001053 return;
1054
Emeric Brun52a91d32017-08-31 14:41:55 +02001055 if (s->next_state == SRV_ST_STARTING || s->next_state == SRV_ST_RUNNING)
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001056 return;
1057
Emeric Brun52a91d32017-08-31 14:41:55 +02001058 s->next_state = SRV_ST_STARTING;
Emeric Brun5a133512017-10-19 14:42:30 +02001059 *s->op_st_chg.reason = 0;
1060 s->op_st_chg.status = -1;
1061 if (reason) {
1062 strlcpy2(s->op_st_chg.reason, reason, sizeof(s->op_st_chg.reason));
1063 }
1064 else if (check) {
Willy Tarreau358847f2017-11-20 21:33:21 +01001065 strlcpy2(s->op_st_chg.reason, check->desc, sizeof(s->op_st_chg.reason));
Emeric Brun5a133512017-10-19 14:42:30 +02001066 s->op_st_chg.code = check->code;
1067 s->op_st_chg.status = check->status;
1068 s->op_st_chg.duration = check->duration;
1069 }
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001070
Emeric Brun64cc49c2017-10-03 14:46:45 +02001071 if (s->slowstart <= 0)
1072 s->next_state = SRV_ST_RUNNING;
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001073
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001074 /* propagate changes */
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001075 srv_update_status(s);
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001076
Emeric Brun9f0b4582017-10-23 14:39:51 +02001077 for (srv = s->trackers; srv; srv = srv->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001078 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Emeric Brun5a133512017-10-19 14:42:30 +02001079 srv_set_running(srv, NULL, NULL);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001080 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02001081 }
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001082}
1083
Willy Tarreau8eb77842014-05-21 13:54:57 +02001084/* Marks server <s> stopping regardless of its checks' statuses and provided it
Emeric Brun5a133512017-10-19 14:42:30 +02001085 * isn't in maintenance. The server is registered in a list to postpone the
1086 * counting of the remaining servers on the proxy and tries to grab requests
1087 * from the proxy. Maintenance servers are ignored. It stores the
1088 * <reason> if non-null as the reason for going down or the available data
1089 * from the check struct to recompute this reason later.
Willy Tarreau8eb77842014-05-21 13:54:57 +02001090 * up. Note that it makes use of the trash to build the log strings, so <reason>
1091 * must not be placed there.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001092 *
1093 * Must be called with the server lock held.
Willy Tarreau8eb77842014-05-21 13:54:57 +02001094 */
Emeric Brun5a133512017-10-19 14:42:30 +02001095void srv_set_stopping(struct server *s, const char *reason, struct check *check)
Willy Tarreau8eb77842014-05-21 13:54:57 +02001096{
1097 struct server *srv;
Willy Tarreau8eb77842014-05-21 13:54:57 +02001098
Emeric Brun64cc49c2017-10-03 14:46:45 +02001099 if (s->cur_admin & SRV_ADMF_MAINT)
Willy Tarreau8eb77842014-05-21 13:54:57 +02001100 return;
1101
Emeric Brun52a91d32017-08-31 14:41:55 +02001102 if (s->next_state == SRV_ST_STOPPING)
Willy Tarreau8eb77842014-05-21 13:54:57 +02001103 return;
1104
Emeric Brun52a91d32017-08-31 14:41:55 +02001105 s->next_state = SRV_ST_STOPPING;
Emeric Brun5a133512017-10-19 14:42:30 +02001106 *s->op_st_chg.reason = 0;
1107 s->op_st_chg.status = -1;
1108 if (reason) {
1109 strlcpy2(s->op_st_chg.reason, reason, sizeof(s->op_st_chg.reason));
1110 }
1111 else if (check) {
Willy Tarreau358847f2017-11-20 21:33:21 +01001112 strlcpy2(s->op_st_chg.reason, check->desc, sizeof(s->op_st_chg.reason));
Emeric Brun5a133512017-10-19 14:42:30 +02001113 s->op_st_chg.code = check->code;
1114 s->op_st_chg.status = check->status;
1115 s->op_st_chg.duration = check->duration;
1116 }
Willy Tarreau8eb77842014-05-21 13:54:57 +02001117
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001118 /* propagate changes */
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001119 srv_update_status(s);
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001120
Emeric Brun9f0b4582017-10-23 14:39:51 +02001121 for (srv = s->trackers; srv; srv = srv->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001122 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Emeric Brun5a133512017-10-19 14:42:30 +02001123 srv_set_stopping(srv, NULL, NULL);
Christopher Faulet8d01fd62018-01-24 21:49:41 +01001124 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02001125 }
Willy Tarreau8eb77842014-05-21 13:54:57 +02001126}
Willy Tarreaudbd5e782014-05-20 22:46:35 +02001127
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001128/* Enables admin flag <mode> (among SRV_ADMF_*) on server <s>. This is used to
1129 * enforce either maint mode or drain mode. It is not allowed to set more than
1130 * one flag at once. The equivalent "inherited" flag is propagated to all
1131 * tracking servers. Maintenance mode disables health checks (but not agent
1132 * checks). When either the flag is already set or no flag is passed, nothing
Willy Tarreau8b428482016-11-07 15:53:43 +01001133 * is done. If <cause> is non-null, it will be displayed at the end of the log
1134 * lines to justify the state change.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001135 *
1136 * Must be called with the server lock held.
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001137 */
Willy Tarreau8b428482016-11-07 15:53:43 +01001138void srv_set_admin_flag(struct server *s, enum srv_admin mode, const char *cause)
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001139{
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001140 struct server *srv;
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001141
1142 if (!mode)
1143 return;
1144
1145 /* stop going down as soon as we meet a server already in the same state */
Emeric Brun52a91d32017-08-31 14:41:55 +02001146 if (s->next_admin & mode)
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001147 return;
1148
Emeric Brun52a91d32017-08-31 14:41:55 +02001149 s->next_admin |= mode;
Emeric Brun64cc49c2017-10-03 14:46:45 +02001150 if (cause)
1151 strlcpy2(s->adm_st_chg_cause, cause, sizeof(s->adm_st_chg_cause));
1152
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001153 /* propagate changes */
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001154 srv_update_status(s);
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001155
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001156 /* stop going down if the equivalent flag was already present (forced or inherited) */
Emeric Brun52a91d32017-08-31 14:41:55 +02001157 if (((mode & SRV_ADMF_MAINT) && (s->next_admin & ~mode & SRV_ADMF_MAINT)) ||
1158 ((mode & SRV_ADMF_DRAIN) && (s->next_admin & ~mode & SRV_ADMF_DRAIN)))
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001159 return;
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001160
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001161 /* compute the inherited flag to propagate */
1162 if (mode & SRV_ADMF_MAINT)
1163 mode = SRV_ADMF_IMAINT;
1164 else if (mode & SRV_ADMF_DRAIN)
1165 mode = SRV_ADMF_IDRAIN;
1166
Emeric Brun9f0b4582017-10-23 14:39:51 +02001167 for (srv = s->trackers; srv; srv = srv->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001168 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Willy Tarreau8b428482016-11-07 15:53:43 +01001169 srv_set_admin_flag(srv, mode, cause);
Christopher Faulet8d01fd62018-01-24 21:49:41 +01001170 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02001171 }
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001172}
1173
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001174/* Disables admin flag <mode> (among SRV_ADMF_*) on server <s>. This is used to
1175 * stop enforcing either maint mode or drain mode. It is not allowed to set more
1176 * than one flag at once. The equivalent "inherited" flag is propagated to all
1177 * tracking servers. Leaving maintenance mode re-enables health checks. When
1178 * either the flag is already cleared or no flag is passed, nothing is done.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001179 *
1180 * Must be called with the server lock held.
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001181 */
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001182void srv_clr_admin_flag(struct server *s, enum srv_admin mode)
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001183{
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001184 struct server *srv;
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001185
1186 if (!mode)
1187 return;
1188
1189 /* stop going down as soon as we see the flag is not there anymore */
Emeric Brun52a91d32017-08-31 14:41:55 +02001190 if (!(s->next_admin & mode))
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001191 return;
1192
Emeric Brun52a91d32017-08-31 14:41:55 +02001193 s->next_admin &= ~mode;
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001194
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001195 /* propagate changes */
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001196 srv_update_status(s);
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001197
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001198 /* stop going down if the equivalent flag is still present (forced or inherited) */
Emeric Brun52a91d32017-08-31 14:41:55 +02001199 if (((mode & SRV_ADMF_MAINT) && (s->next_admin & SRV_ADMF_MAINT)) ||
1200 ((mode & SRV_ADMF_DRAIN) && (s->next_admin & SRV_ADMF_DRAIN)))
Willy Tarreaueeba36b2018-08-21 08:22:26 +02001201 return;
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001202
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001203 if (mode & SRV_ADMF_MAINT)
1204 mode = SRV_ADMF_IMAINT;
1205 else if (mode & SRV_ADMF_DRAIN)
1206 mode = SRV_ADMF_IDRAIN;
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001207
Emeric Brun9f0b4582017-10-23 14:39:51 +02001208 for (srv = s->trackers; srv; srv = srv->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001209 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Willy Tarreaubfc7b7a2014-05-22 16:14:34 +02001210 srv_clr_admin_flag(srv, mode);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001211 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02001212 }
Willy Tarreaua0066dd2014-05-16 11:25:16 +02001213}
1214
Willy Tarreau757478e2016-11-03 19:22:19 +01001215/* principle: propagate maint and drain to tracking servers. This is useful
1216 * upon startup so that inherited states are correct.
1217 */
1218static void srv_propagate_admin_state(struct server *srv)
1219{
1220 struct server *srv2;
1221
1222 if (!srv->trackers)
1223 return;
1224
1225 for (srv2 = srv->trackers; srv2; srv2 = srv2->tracknext) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001226 HA_SPIN_LOCK(SERVER_LOCK, &srv2->lock);
Emeric Brun52a91d32017-08-31 14:41:55 +02001227 if (srv->next_admin & (SRV_ADMF_MAINT | SRV_ADMF_CMAINT))
Willy Tarreau8b428482016-11-07 15:53:43 +01001228 srv_set_admin_flag(srv2, SRV_ADMF_IMAINT, NULL);
Willy Tarreau757478e2016-11-03 19:22:19 +01001229
Emeric Brun52a91d32017-08-31 14:41:55 +02001230 if (srv->next_admin & SRV_ADMF_DRAIN)
Willy Tarreau8b428482016-11-07 15:53:43 +01001231 srv_set_admin_flag(srv2, SRV_ADMF_IDRAIN, NULL);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01001232 HA_SPIN_UNLOCK(SERVER_LOCK, &srv2->lock);
Willy Tarreau757478e2016-11-03 19:22:19 +01001233 }
1234}
1235
1236/* Compute and propagate the admin states for all servers in proxy <px>.
1237 * Only servers *not* tracking another one are considered, because other
1238 * ones will be handled when the server they track is visited.
1239 */
1240void srv_compute_all_admin_states(struct proxy *px)
1241{
1242 struct server *srv;
1243
1244 for (srv = px->srv; srv; srv = srv->next) {
1245 if (srv->track)
1246 continue;
1247 srv_propagate_admin_state(srv);
1248 }
1249}
1250
Willy Tarreaudff55432012-10-10 17:51:05 +02001251/* Note: must not be declared <const> as its list will be overwritten.
1252 * Please take care of keeping this list alphabetically sorted, doing so helps
1253 * all code contributors.
1254 * Optional keywords are also declared with a NULL ->parse() function so that
1255 * the config parser can report an appropriate error when a known keyword was
1256 * not enabled.
Frédéric Lécailledfacd692017-04-16 17:14:14 +02001257 * Note: -1 as ->skip value means that the number of arguments are variable.
Willy Tarreaudff55432012-10-10 17:51:05 +02001258 */
1259static struct srv_kw_list srv_kws = { "ALL", { }, {
Frédéric Lécaille1502cfd2017-03-10 15:36:14 +01001260 { "backup", srv_parse_backup, 0, 1 }, /* Flag as backup server */
Frédéric Lécaille9d1b95b2017-03-15 09:13:33 +01001261 { "cookie", srv_parse_cookie, 1, 1 }, /* Assign a cookie to the server */
Frédéric Lécaille2a0d0612017-03-21 11:53:54 +01001262 { "disabled", srv_parse_disabled, 0, 1 }, /* Start the server in 'disabled' state */
1263 { "enabled", srv_parse_enabled, 0, 1 }, /* Start the server in 'enabled' state */
Frédéric Lécaille1502cfd2017-03-10 15:36:14 +01001264 { "id", srv_parse_id, 1, 0 }, /* set id# of server */
Willy Tarreau9c538e02019-01-23 10:21:49 +01001265 { "max-reuse", srv_parse_max_reuse, 1, 1 }, /* Set the max number of requests on a connection, -1 means unlimited */
Frédéric Lécaille22f41a22017-03-16 17:17:36 +01001266 { "namespace", srv_parse_namespace, 1, 1 }, /* Namespace the server socket belongs to (if supported) */
Frédéric Lécaille1502cfd2017-03-10 15:36:14 +01001267 { "no-backup", srv_parse_no_backup, 0, 1 }, /* Flag as non-backup server */
Frédéric Lécaille31045e42017-03-10 16:40:00 +01001268 { "no-send-proxy", srv_parse_no_send_proxy, 0, 1 }, /* Disable use of PROXY V1 protocol */
1269 { "no-send-proxy-v2", srv_parse_no_send_proxy_v2, 0, 1 }, /* Disable use of PROXY V2 protocol */
Frédéric Lécaille1b9423d2019-07-04 14:19:06 +02001270 { "no-tfo", srv_parse_no_tfo, 0, 1 }, /* Disable use of TCP Fast Open */
Frédéric Lécaillef9bc1d62017-03-10 15:50:49 +01001271 { "non-stick", srv_parse_non_stick, 0, 1 }, /* Disable stick-table persistence */
Frédéric Lécaille547356e2017-03-15 08:55:39 +01001272 { "observe", srv_parse_observe, 1, 1 }, /* Enables health adjusting based on observing communication with the server */
Willy Tarreau2f3f4d32020-07-01 07:43:51 +02001273 { "pool-low-conn", srv_parse_pool_low_conn, 1, 1 }, /* Set the min number of orphan idle connecbefore being allowed to pick from other threads */
Olivier Houchard006e3102018-12-10 18:30:32 +01001274 { "pool-max-conn", srv_parse_pool_max_conn, 1, 1 }, /* Set the max number of orphan idle connections, 0 means unlimited */
Olivier Houchardb7b3faa2018-12-14 18:15:36 +01001275 { "pool-purge-delay", srv_parse_pool_purge_delay, 1, 1 }, /* Set the time before we destroy orphan idle connections, defaults to 1s */
Christopher Faulet8ed0a3e2018-04-10 14:45:45 +02001276 { "proto", srv_parse_proto, 1, 1 }, /* Set the proto to use for all outgoing connections */
Emmanuel Hocdetf643b802018-02-01 15:20:32 +01001277 { "proxy-v2-options", srv_parse_proxy_v2_options, 1, 1 }, /* options for send-proxy-v2 */
Frédéric Lécaille16186232017-03-14 16:42:49 +01001278 { "redir", srv_parse_redir, 1, 1 }, /* Enable redirection mode */
Frédéric Lécaille31045e42017-03-10 16:40:00 +01001279 { "send-proxy", srv_parse_send_proxy, 0, 1 }, /* Enforce use of PROXY V1 protocol */
1280 { "send-proxy-v2", srv_parse_send_proxy_v2, 0, 1 }, /* Enforce use of PROXY V2 protocol */
Frédéric Lécailledfacd692017-04-16 17:14:14 +02001281 { "source", srv_parse_source, -1, 1 }, /* Set the source address to be used to connect to the server */
Frédéric Lécaillef9bc1d62017-03-10 15:50:49 +01001282 { "stick", srv_parse_stick, 0, 1 }, /* Enable stick-table persistence */
Olivier Houchard8d82db72019-07-04 13:34:10 +02001283 { "tfo", srv_parse_tfo, 0, 1 }, /* enable TCP Fast Open of server */
Frédéric Lécaille67e0e612017-03-14 15:21:31 +01001284 { "track", srv_parse_track, 1, 1 }, /* Set the current state of the server, tracking another one */
Alexander Liu2a54bb72019-05-22 19:44:48 +08001285 { "socks4", srv_parse_socks4, 1, 1 }, /* Set the socks4 proxy of the server*/
Willy Tarreaudff55432012-10-10 17:51:05 +02001286 { NULL, NULL, 0 },
1287}};
1288
Willy Tarreau0108d902018-11-25 19:14:37 +01001289INITCALL1(STG_REGISTER, srv_register_keywords, &srv_kws);
Willy Tarreaudff55432012-10-10 17:51:05 +02001290
Willy Tarreau004e0452013-11-21 11:22:01 +01001291/* Recomputes the server's eweight based on its state, uweight, the current time,
Ilya Shipitsinc02a23f2020-05-06 00:53:22 +05001292 * and the proxy's algorithm. To be used after updating sv->uweight. The warmup
Willy Tarreau3ff577e2018-08-02 11:48:52 +02001293 * state is automatically disabled if the time is elapsed. If <must_update> is
1294 * not zero, the update will be propagated immediately.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001295 *
1296 * Must be called with the server lock held.
Willy Tarreau004e0452013-11-21 11:22:01 +01001297 */
Willy Tarreau3ff577e2018-08-02 11:48:52 +02001298void server_recalc_eweight(struct server *sv, int must_update)
Willy Tarreau004e0452013-11-21 11:22:01 +01001299{
1300 struct proxy *px = sv->proxy;
1301 unsigned w;
1302
1303 if (now.tv_sec < sv->last_change || now.tv_sec >= sv->last_change + sv->slowstart) {
1304 /* go to full throttle if the slowstart interval is reached */
Emeric Brun52a91d32017-08-31 14:41:55 +02001305 if (sv->next_state == SRV_ST_STARTING)
1306 sv->next_state = SRV_ST_RUNNING;
Willy Tarreau004e0452013-11-21 11:22:01 +01001307 }
1308
1309 /* We must take care of not pushing the server to full throttle during slow starts.
1310 * It must also start immediately, at least at the minimal step when leaving maintenance.
1311 */
Emeric Brun52a91d32017-08-31 14:41:55 +02001312 if ((sv->next_state == SRV_ST_STARTING) && (px->lbprm.algo & BE_LB_PROP_DYN))
Willy Tarreau004e0452013-11-21 11:22:01 +01001313 w = (px->lbprm.wdiv * (now.tv_sec - sv->last_change) + sv->slowstart) / sv->slowstart;
1314 else
1315 w = px->lbprm.wdiv;
1316
Emeric Brun52a91d32017-08-31 14:41:55 +02001317 sv->next_eweight = (sv->uweight * w + px->lbprm.wmult - 1) / px->lbprm.wmult;
Willy Tarreau004e0452013-11-21 11:22:01 +01001318
Willy Tarreau3ff577e2018-08-02 11:48:52 +02001319 /* propagate changes only if needed (i.e. not recursively) */
Willy Tarreau49725a02018-08-21 19:54:09 +02001320 if (must_update)
Willy Tarreau3ff577e2018-08-02 11:48:52 +02001321 srv_update_status(sv);
Willy Tarreau004e0452013-11-21 11:22:01 +01001322}
1323
Willy Tarreaubaaee002006-06-26 02:48:02 +02001324/*
Simon Horman7d09b9a2013-02-12 10:45:51 +09001325 * Parses weight_str and configures sv accordingly.
1326 * Returns NULL on success, error message string otherwise.
Willy Tarreau46b7f532018-08-21 11:54:26 +02001327 *
1328 * Must be called with the server lock held.
Simon Horman7d09b9a2013-02-12 10:45:51 +09001329 */
1330const char *server_parse_weight_change_request(struct server *sv,
1331 const char *weight_str)
1332{
1333 struct proxy *px;
Simon Hormanb796afa2013-02-12 10:45:53 +09001334 long int w;
1335 char *end;
Simon Horman7d09b9a2013-02-12 10:45:51 +09001336
1337 px = sv->proxy;
1338
1339 /* if the weight is terminated with '%', it is set relative to
1340 * the initial weight, otherwise it is absolute.
1341 */
1342 if (!*weight_str)
1343 return "Require <weight> or <weight%>.\n";
1344
Simon Hormanb796afa2013-02-12 10:45:53 +09001345 w = strtol(weight_str, &end, 10);
1346 if (end == weight_str)
1347 return "Empty weight string empty or preceded by garbage";
1348 else if (end[0] == '%' && end[1] == '\0') {
Simon Horman58b5d292013-02-12 10:45:52 +09001349 if (w < 0)
Simon Horman7d09b9a2013-02-12 10:45:51 +09001350 return "Relative weight must be positive.\n";
Simon Horman58b5d292013-02-12 10:45:52 +09001351 /* Avoid integer overflow */
1352 if (w > 25600)
1353 w = 25600;
Simon Horman7d09b9a2013-02-12 10:45:51 +09001354 w = sv->iweight * w / 100;
Simon Horman58b5d292013-02-12 10:45:52 +09001355 if (w > 256)
1356 w = 256;
Simon Horman7d09b9a2013-02-12 10:45:51 +09001357 }
1358 else if (w < 0 || w > 256)
1359 return "Absolute weight can only be between 0 and 256 inclusive.\n";
Simon Hormanb796afa2013-02-12 10:45:53 +09001360 else if (end[0] != '\0')
1361 return "Trailing garbage in weight string";
Simon Horman7d09b9a2013-02-12 10:45:51 +09001362
1363 if (w && w != sv->iweight && !(px->lbprm.algo & BE_LB_PROP_DYN))
1364 return "Backend is using a static LB algorithm and only accepts weights '0%' and '100%'.\n";
1365
1366 sv->uweight = w;
Willy Tarreau3ff577e2018-08-02 11:48:52 +02001367 server_recalc_eweight(sv, 1);
Simon Horman7d09b9a2013-02-12 10:45:51 +09001368
1369 return NULL;
1370}
1371
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001372/*
Thierry Fournier09a91782016-02-24 08:25:39 +01001373 * Parses <addr_str> and configures <sv> accordingly. <from> precise
1374 * the source of the change in the associated message log.
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001375 * Returns:
1376 * - error string on error
1377 * - NULL on success
Willy Tarreau46b7f532018-08-21 11:54:26 +02001378 *
1379 * Must be called with the server lock held.
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001380 */
1381const char *server_parse_addr_change_request(struct server *sv,
Thierry Fournier09a91782016-02-24 08:25:39 +01001382 const char *addr_str, const char *updater)
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001383{
1384 unsigned char ip[INET6_ADDRSTRLEN];
1385
1386 if (inet_pton(AF_INET6, addr_str, ip)) {
Thierry Fournier09a91782016-02-24 08:25:39 +01001387 update_server_addr(sv, ip, AF_INET6, updater);
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001388 return NULL;
1389 }
1390 if (inet_pton(AF_INET, addr_str, ip)) {
Thierry Fournier09a91782016-02-24 08:25:39 +01001391 update_server_addr(sv, ip, AF_INET, updater);
Baptiste Assmann3d8f8312015-04-13 22:54:33 +02001392 return NULL;
1393 }
1394
1395 return "Could not understand IP address format.\n";
1396}
1397
Willy Tarreau46b7f532018-08-21 11:54:26 +02001398/*
1399 * Must be called with the server lock held.
1400 */
Nenad Merdanovic174dd372016-04-24 23:10:06 +02001401const char *server_parse_maxconn_change_request(struct server *sv,
1402 const char *maxconn_str)
1403{
1404 long int v;
1405 char *end;
1406
1407 if (!*maxconn_str)
1408 return "Require <maxconn>.\n";
1409
1410 v = strtol(maxconn_str, &end, 10);
1411 if (end == maxconn_str)
1412 return "maxconn string empty or preceded by garbage";
1413 else if (end[0] != '\0')
1414 return "Trailing garbage in maxconn string";
1415
1416 if (sv->maxconn == sv->minconn) { // static maxconn
1417 sv->maxconn = sv->minconn = v;
1418 } else { // dynamic maxconn
1419 sv->maxconn = v;
1420 }
1421
1422 if (may_dequeue_tasks(sv, sv->proxy))
1423 process_srv_queue(sv);
1424
1425 return NULL;
1426}
1427
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001428#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001429static struct sample_expr *srv_sni_sample_parse_expr(struct server *srv, struct proxy *px,
1430 const char *file, int linenum, char **err)
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001431{
1432 int idx;
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001433 const char *args[] = {
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001434 srv->sni_expr,
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001435 NULL,
1436 };
1437
1438 idx = 0;
Olivier Houchard7d8e6882017-04-20 18:21:17 +02001439 px->conf.args.ctx = ARGC_SRV;
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001440
Willy Tarreaue3b57bf2020-02-14 16:50:14 +01001441 return sample_parse_expr((char **)args, &idx, file, linenum, err, &px->conf.args, NULL);
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001442}
1443
1444static int server_parse_sni_expr(struct server *newsrv, struct proxy *px, char **err)
1445{
1446 struct sample_expr *expr;
1447
1448 expr = srv_sni_sample_parse_expr(newsrv, px, px->conf.file, px->conf.line, err);
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001449 if (!expr) {
1450 memprintf(err, "error detected while parsing sni expression : %s", *err);
1451 return ERR_ALERT | ERR_FATAL;
1452 }
1453
1454 if (!(expr->fetch->val & SMP_VAL_BE_SRV_CON)) {
1455 memprintf(err, "error detected while parsing sni expression : "
1456 " fetch method '%s' extracts information from '%s', "
1457 "none of which is available here.\n",
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001458 newsrv->sni_expr, sample_src_names(expr->fetch->use));
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001459 return ERR_ALERT | ERR_FATAL;
1460 }
1461
1462 px->http_needed |= !!(expr->fetch->use & SMP_USE_HTTP_ANY);
1463 release_sample_expr(newsrv->ssl_ctx.sni);
1464 newsrv->ssl_ctx.sni = expr;
1465
1466 return 0;
1467}
1468#endif
1469
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001470static void display_parser_err(const char *file, int linenum, char **args, int cur_arg, int err_code, char **err)
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001471{
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001472 char *msg = "error encountered while processing ";
1473 char *quote = "'";
1474 char *token = args[cur_arg];
1475
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001476 if (err && *err) {
1477 indent_msg(err, 2);
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001478 msg = *err;
1479 quote = "";
1480 token = "";
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001481 }
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001482
1483 if (err_code & ERR_WARN && !(err_code & ERR_ALERT))
1484 ha_warning("parsing [%s:%d] : '%s %s' : %s%s%s%s.\n",
1485 file, linenum, args[0], args[1],
1486 msg, quote, token, quote);
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001487 else
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001488 ha_alert("parsing [%s:%d] : '%s %s' : %s%s%s%s.\n",
1489 file, linenum, args[0], args[1],
1490 msg, quote, token, quote);
Frédéric Lécaille9a146de2017-03-20 14:54:41 +01001491}
1492
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001493static void srv_conn_src_sport_range_cpy(struct server *srv,
1494 struct server *src)
1495{
1496 int range_sz;
1497
1498 range_sz = src->conn_src.sport_range->size;
1499 if (range_sz > 0) {
1500 srv->conn_src.sport_range = port_range_alloc_range(range_sz);
1501 if (srv->conn_src.sport_range != NULL) {
1502 int i;
1503
1504 for (i = 0; i < range_sz; i++) {
1505 srv->conn_src.sport_range->ports[i] =
1506 src->conn_src.sport_range->ports[i];
1507 }
1508 }
1509 }
1510}
1511
1512/*
1513 * Copy <src> server connection source settings to <srv> server everything needed.
1514 */
1515static void srv_conn_src_cpy(struct server *srv, struct server *src)
1516{
1517 srv->conn_src.opts = src->conn_src.opts;
1518 srv->conn_src.source_addr = src->conn_src.source_addr;
1519
1520 /* Source port range copy. */
1521 if (src->conn_src.sport_range != NULL)
1522 srv_conn_src_sport_range_cpy(srv, src);
1523
1524#ifdef CONFIG_HAP_TRANSPARENT
1525 if (src->conn_src.bind_hdr_name != NULL) {
1526 srv->conn_src.bind_hdr_name = strdup(src->conn_src.bind_hdr_name);
1527 srv->conn_src.bind_hdr_len = strlen(src->conn_src.bind_hdr_name);
1528 }
1529 srv->conn_src.bind_hdr_occ = src->conn_src.bind_hdr_occ;
1530 srv->conn_src.tproxy_addr = src->conn_src.tproxy_addr;
1531#endif
1532 if (src->conn_src.iface_name != NULL)
1533 srv->conn_src.iface_name = strdup(src->conn_src.iface_name);
1534}
1535
1536/*
1537 * Copy <src> server SSL settings to <srv> server allocating
1538 * everything needed.
1539 */
1540#if defined(USE_OPENSSL)
1541static void srv_ssl_settings_cpy(struct server *srv, struct server *src)
1542{
1543 if (src->ssl_ctx.ca_file != NULL)
1544 srv->ssl_ctx.ca_file = strdup(src->ssl_ctx.ca_file);
1545 if (src->ssl_ctx.crl_file != NULL)
1546 srv->ssl_ctx.crl_file = strdup(src->ssl_ctx.crl_file);
1547 if (src->ssl_ctx.client_crt != NULL)
1548 srv->ssl_ctx.client_crt = strdup(src->ssl_ctx.client_crt);
1549
1550 srv->ssl_ctx.verify = src->ssl_ctx.verify;
1551
1552 if (src->ssl_ctx.verify_host != NULL)
1553 srv->ssl_ctx.verify_host = strdup(src->ssl_ctx.verify_host);
1554 if (src->ssl_ctx.ciphers != NULL)
1555 srv->ssl_ctx.ciphers = strdup(src->ssl_ctx.ciphers);
Jerome Magnin2e8d52f2020-04-22 11:40:18 +02001556 if (src->ssl_ctx.options)
1557 srv->ssl_ctx.options = src->ssl_ctx.options;
1558 if (src->ssl_ctx.methods.flags)
1559 srv->ssl_ctx.methods.flags = src->ssl_ctx.methods.flags;
1560 if (src->ssl_ctx.methods.min)
1561 srv->ssl_ctx.methods.min = src->ssl_ctx.methods.min;
1562 if (src->ssl_ctx.methods.max)
1563 srv->ssl_ctx.methods.max = src->ssl_ctx.methods.max;
1564
Willy Tarreau5db847a2019-05-09 14:13:35 +02001565#if (HA_OPENSSL_VERSION_NUMBER >= 0x10101000L && !defined OPENSSL_IS_BORINGSSL)
Dirkjan Bussink415150f2018-09-14 11:14:21 +02001566 if (src->ssl_ctx.ciphersuites != NULL)
1567 srv->ssl_ctx.ciphersuites = strdup(src->ssl_ctx.ciphersuites);
1568#endif
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001569 if (src->sni_expr != NULL)
1570 srv->sni_expr = strdup(src->sni_expr);
Olivier Houchardc7566002018-11-20 23:33:50 +01001571
1572#ifdef TLSEXT_TYPE_application_layer_protocol_negotiation
1573 if (src->ssl_ctx.alpn_str) {
1574 srv->ssl_ctx.alpn_str = malloc(src->ssl_ctx.alpn_len);
1575 if (srv->ssl_ctx.alpn_str) {
1576 memcpy(srv->ssl_ctx.alpn_str, src->ssl_ctx.alpn_str,
1577 src->ssl_ctx.alpn_len);
1578 srv->ssl_ctx.alpn_len = src->ssl_ctx.alpn_len;
1579 }
1580 }
1581#endif
1582#ifdef OPENSSL_NPN_NEGOTIATED
1583 if (src->ssl_ctx.npn_str) {
1584 srv->ssl_ctx.npn_str = malloc(src->ssl_ctx.npn_len);
1585 if (srv->ssl_ctx.npn_str) {
1586 memcpy(srv->ssl_ctx.npn_str, src->ssl_ctx.npn_str,
1587 src->ssl_ctx.npn_len);
1588 srv->ssl_ctx.npn_len = src->ssl_ctx.npn_len;
1589 }
1590 }
1591#endif
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001592}
1593#endif
1594
1595/*
Baptiste Assmann201c07f2017-05-22 15:17:15 +02001596 * Prepare <srv> for hostname resolution.
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001597 * May be safely called with a default server as <src> argument (without hostname).
Frédéric Lécailleb418c122017-04-26 11:24:02 +02001598 * Returns -1 in case of any allocation failure, 0 if not.
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001599 */
Baptiste Assmann201c07f2017-05-22 15:17:15 +02001600static int srv_prepare_for_resolution(struct server *srv, const char *hostname)
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001601{
Christopher Faulet67957bd2017-09-27 11:00:59 +02001602 char *hostname_dn;
1603 int hostname_len, hostname_dn_len;
1604
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001605 if (!hostname)
Frédéric Lécailleb418c122017-04-26 11:24:02 +02001606 return 0;
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001607
Christopher Faulet67957bd2017-09-27 11:00:59 +02001608 hostname_len = strlen(hostname);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02001609 hostname_dn = trash.area;
Christopher Faulet67957bd2017-09-27 11:00:59 +02001610 hostname_dn_len = dns_str_to_dn_label(hostname, hostname_len + 1,
1611 hostname_dn, trash.size);
1612 if (hostname_dn_len == -1)
1613 goto err;
Baptiste Assmann81ed1a02017-05-03 10:11:44 +02001614
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001615
Christopher Faulet67957bd2017-09-27 11:00:59 +02001616 free(srv->hostname);
1617 free(srv->hostname_dn);
1618 srv->hostname = strdup(hostname);
1619 srv->hostname_dn = strdup(hostname_dn);
1620 srv->hostname_dn_len = hostname_dn_len;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02001621 if (!srv->hostname || !srv->hostname_dn)
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001622 goto err;
1623
Frédéric Lécailleb418c122017-04-26 11:24:02 +02001624 return 0;
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001625
1626 err:
Christopher Faulet67957bd2017-09-27 11:00:59 +02001627 free(srv->hostname); srv->hostname = NULL;
1628 free(srv->hostname_dn); srv->hostname_dn = NULL;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02001629 return -1;
1630}
1631
Baptiste Assmann201c07f2017-05-22 15:17:15 +02001632/*
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001633 * Copy <src> server settings to <srv> server allocating
1634 * everything needed.
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001635 * This function is not supposed to be called at any time, but only
1636 * during server settings parsing or during server allocations from
1637 * a server template, and just after having calloc()'ed a new server.
1638 * So, <src> may only be a default server (when parsing server settings)
1639 * or a server template (during server allocations from a server template).
1640 * <srv_tmpl> distinguishes these two cases (must be 1 if <srv> is a template,
1641 * 0 if not).
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001642 */
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001643static void srv_settings_cpy(struct server *srv, struct server *src, int srv_tmpl)
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001644{
1645 /* Connection source settings copy */
1646 srv_conn_src_cpy(srv, src);
1647
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001648 if (srv_tmpl) {
1649 srv->addr = src->addr;
1650 srv->svc_port = src->svc_port;
1651 }
1652
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001653 srv->pp_opts = src->pp_opts;
1654 if (src->rdr_pfx != NULL) {
1655 srv->rdr_pfx = strdup(src->rdr_pfx);
1656 srv->rdr_len = src->rdr_len;
1657 }
1658 if (src->cookie != NULL) {
1659 srv->cookie = strdup(src->cookie);
1660 srv->cklen = src->cklen;
1661 }
1662 srv->use_ssl = src->use_ssl;
Willy Tarreau24441082019-12-11 15:43:45 +01001663 srv->check.addr = src->check.addr;
1664 srv->agent.addr = src->agent.addr;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001665 srv->check.use_ssl = src->check.use_ssl;
1666 srv->check.port = src->check.port;
Olivier Houchard21944012018-12-21 19:42:01 +01001667 srv->check.sni = src->check.sni;
Olivier Houchard92150142018-12-21 19:47:01 +01001668 srv->check.alpn_str = src->check.alpn_str;
Ilya Shipitsin0c50b1e2019-04-30 21:21:28 +05001669 srv->check.alpn_len = src->check.alpn_len;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001670 /* Note: 'flags' field has potentially been already initialized. */
1671 srv->flags |= src->flags;
1672 srv->do_check = src->do_check;
1673 srv->do_agent = src->do_agent;
1674 if (srv->check.port)
1675 srv->flags |= SRV_F_CHECKPORT;
1676 srv->check.inter = src->check.inter;
1677 srv->check.fastinter = src->check.fastinter;
1678 srv->check.downinter = src->check.downinter;
1679 srv->agent.use_ssl = src->agent.use_ssl;
1680 srv->agent.port = src->agent.port;
Christopher Faulet0ae3d1d2020-04-06 17:54:24 +02001681
1682 if (src->agent.tcpcheck_rules) {
1683 srv->agent.tcpcheck_rules = calloc(1, sizeof(*srv->agent.tcpcheck_rules));
1684 if (srv->agent.tcpcheck_rules) {
1685 srv->agent.tcpcheck_rules->flags = src->agent.tcpcheck_rules->flags;
1686 srv->agent.tcpcheck_rules->list = src->agent.tcpcheck_rules->list;
1687 LIST_INIT(&srv->agent.tcpcheck_rules->preset_vars);
1688 dup_tcpcheck_vars(&srv->agent.tcpcheck_rules->preset_vars,
1689 &src->agent.tcpcheck_rules->preset_vars);
1690 }
1691 }
1692
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001693 srv->agent.inter = src->agent.inter;
1694 srv->agent.fastinter = src->agent.fastinter;
1695 srv->agent.downinter = src->agent.downinter;
1696 srv->maxqueue = src->maxqueue;
1697 srv->minconn = src->minconn;
1698 srv->maxconn = src->maxconn;
1699 srv->slowstart = src->slowstart;
1700 srv->observe = src->observe;
1701 srv->onerror = src->onerror;
1702 srv->onmarkeddown = src->onmarkeddown;
1703 srv->onmarkedup = src->onmarkedup;
1704 if (src->trackit != NULL)
1705 srv->trackit = strdup(src->trackit);
1706 srv->consecutive_errors_limit = src->consecutive_errors_limit;
1707 srv->uweight = srv->iweight = src->iweight;
1708
1709 srv->check.send_proxy = src->check.send_proxy;
1710 /* health: up, but will fall down at first failure */
1711 srv->check.rise = srv->check.health = src->check.rise;
1712 srv->check.fall = src->check.fall;
1713
1714 /* Here we check if 'disabled' is the default server state */
Emeric Brun52a91d32017-08-31 14:41:55 +02001715 if (src->next_admin & (SRV_ADMF_CMAINT | SRV_ADMF_FMAINT)) {
1716 srv->next_admin |= SRV_ADMF_CMAINT | SRV_ADMF_FMAINT;
1717 srv->next_state = SRV_ST_STOPPED;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001718 srv->check.state |= CHK_ST_PAUSED;
1719 srv->check.health = 0;
1720 }
1721
1722 /* health: up but will fall down at first failure */
1723 srv->agent.rise = srv->agent.health = src->agent.rise;
1724 srv->agent.fall = src->agent.fall;
1725
1726 if (src->resolvers_id != NULL)
1727 srv->resolvers_id = strdup(src->resolvers_id);
1728 srv->dns_opts.family_prio = src->dns_opts.family_prio;
Baptiste Assmann8e2d9432018-06-22 15:04:43 +02001729 srv->dns_opts.accept_duplicate_ip = src->dns_opts.accept_duplicate_ip;
Daniel Corbettf8716912019-11-17 09:48:56 -05001730 srv->dns_opts.ignore_weight = src->dns_opts.ignore_weight;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001731 if (srv->dns_opts.family_prio == AF_UNSPEC)
1732 srv->dns_opts.family_prio = AF_INET6;
1733 memcpy(srv->dns_opts.pref_net,
1734 src->dns_opts.pref_net,
1735 sizeof srv->dns_opts.pref_net);
1736 srv->dns_opts.pref_net_nb = src->dns_opts.pref_net_nb;
1737
1738 srv->init_addr_methods = src->init_addr_methods;
1739 srv->init_addr = src->init_addr;
1740#if defined(USE_OPENSSL)
1741 srv_ssl_settings_cpy(srv, src);
1742#endif
1743#ifdef TCP_USER_TIMEOUT
1744 srv->tcp_ut = src->tcp_ut;
1745#endif
Christopher Faulet8ed0a3e2018-04-10 14:45:45 +02001746 srv->mux_proto = src->mux_proto;
Olivier Houchardb7b3faa2018-12-14 18:15:36 +01001747 srv->pool_purge_delay = src->pool_purge_delay;
Willy Tarreau2f3f4d32020-07-01 07:43:51 +02001748 srv->low_idle_conns = src->low_idle_conns;
Olivier Houchard006e3102018-12-10 18:30:32 +01001749 srv->max_idle_conns = src->max_idle_conns;
Willy Tarreau9c538e02019-01-23 10:21:49 +01001750 srv->max_reuse = src->max_reuse;
Christopher Faulet8ed0a3e2018-04-10 14:45:45 +02001751
Olivier Houchard8da5f982017-08-04 18:35:36 +02001752 if (srv_tmpl)
1753 srv->srvrq = src->srvrq;
Alexander Liu2a54bb72019-05-22 19:44:48 +08001754
1755 srv->check.via_socks4 = src->check.via_socks4;
1756 srv->socks4_addr = src->socks4_addr;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001757}
1758
William Lallemand313bfd12018-10-26 14:47:32 +02001759struct server *new_server(struct proxy *proxy)
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001760{
1761 struct server *srv;
1762
1763 srv = calloc(1, sizeof *srv);
1764 if (!srv)
1765 return NULL;
1766
1767 srv->obj_type = OBJ_TYPE_SERVER;
1768 srv->proxy = proxy;
1769 LIST_INIT(&srv->actconns);
Patrick Hemmer0355dab2018-05-11 12:52:31 -04001770 srv->pendconns = EB_ROOT;
Christopher Faulet40a007c2017-07-03 15:41:01 +02001771
Emeric Brun52a91d32017-08-31 14:41:55 +02001772 srv->next_state = SRV_ST_RUNNING; /* early server setup */
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001773 srv->last_change = now.tv_sec;
1774
Christopher Faulet38290462020-04-21 11:46:40 +02001775 srv->check.obj_type = OBJ_TYPE_CHECK;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001776 srv->check.status = HCHK_STATUS_INI;
1777 srv->check.server = srv;
Olivier Houchardc98aa1f2019-01-11 18:17:17 +01001778 srv->check.proxy = proxy;
Christopher Faulet5d503fc2020-03-30 20:34:34 +02001779 srv->check.tcpcheck_rules = &proxy->tcpcheck_rules;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001780
Christopher Faulet38290462020-04-21 11:46:40 +02001781 srv->agent.obj_type = OBJ_TYPE_CHECK;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001782 srv->agent.status = HCHK_STATUS_INI;
1783 srv->agent.server = srv;
Willy Tarreau1ba32032019-01-21 07:48:26 +01001784 srv->agent.proxy = proxy;
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001785 srv->xprt = srv->check.xprt = srv->agent.xprt = xprt_get(XPRT_RAW);
1786
Willy Tarreau975b1552019-06-06 16:25:55 +02001787 /* please don't put default server settings here, they are set in
1788 * init_default_instance().
1789 */
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001790 return srv;
1791}
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001792
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001793#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
1794static int server_sni_expr_init(const char *file, int linenum, char **args, int cur_arg,
1795 struct server *srv, struct proxy *proxy)
1796{
1797 int ret;
1798 char *err = NULL;
1799
1800 if (!srv->sni_expr)
1801 return 0;
1802
1803 ret = server_parse_sni_expr(srv, proxy, &err);
1804 if (!ret)
1805 return 0;
1806
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01001807 display_parser_err(file, linenum, args, cur_arg, ret, &err);
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001808 free(err);
1809
1810 return ret;
1811}
1812#endif
1813
1814/*
1815 * Server initializations finalization.
1816 * Initialize health check, agent check and SNI expression if enabled.
1817 * Must not be called for a default server instance.
1818 */
1819static int server_finalize_init(const char *file, int linenum, char **args, int cur_arg,
1820 struct server *srv, struct proxy *px)
1821{
Christopher Fauletb3b53522020-04-27 11:17:10 +02001822#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001823 int ret;
Christopher Fauletb3b53522020-04-27 11:17:10 +02001824#endif
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001825
Christopher Faulet8892e5d2020-03-26 19:48:20 +01001826 if (srv->do_check && srv->trackit) {
1827 ha_alert("parsing [%s:%d]: unable to enable checks and tracking at the same time!\n",
1828 file, linenum);
1829 return ERR_ALERT | ERR_FATAL;
1830 }
1831
1832 if (srv->do_agent && !srv->agent.port) {
1833 ha_alert("parsing [%s:%d] : server %s does not have agent port. Agent check has been disabled.\n",
1834 file, linenum, srv->id);
1835 return ERR_ALERT | ERR_FATAL;
Frédéric Lécaille759ea982017-03-30 17:32:36 +02001836 }
1837
1838#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
1839 if ((ret = server_sni_expr_init(file, linenum, args, cur_arg, srv, px)) != 0)
1840 return ret;
1841#endif
1842
1843 if (srv->flags & SRV_F_BACKUP)
1844 px->srv_bck++;
1845 else
1846 px->srv_act++;
1847 srv_lb_commit_status(srv);
1848
1849 return 0;
1850}
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02001851
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001852/*
1853 * Parse as much as possible such a range string argument: low[-high]
1854 * Set <nb_low> and <nb_high> values so that they may be reused by this loop
1855 * for(int i = nb_low; i <= nb_high; i++)... with nb_low >= 1.
1856 * Fails if 'low' < 0 or 'high' is present and not higher than 'low'.
1857 * Returns 0 if succeeded, -1 if not.
1858 */
1859static int srv_tmpl_parse_range(struct server *srv, const char *arg, int *nb_low, int *nb_high)
1860{
1861 char *nb_high_arg;
1862
1863 *nb_high = 0;
1864 chunk_printf(&trash, "%s", arg);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02001865 *nb_low = atoi(trash.area);
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001866
Willy Tarreau843b7cb2018-07-13 10:54:26 +02001867 if ((nb_high_arg = strchr(trash.area, '-'))) {
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001868 *nb_high_arg++ = '\0';
1869 *nb_high = atoi(nb_high_arg);
1870 }
1871 else {
1872 *nb_high += *nb_low;
1873 *nb_low = 1;
1874 }
1875
1876 if (*nb_low < 0 || *nb_high < *nb_low)
1877 return -1;
1878
1879 return 0;
1880}
1881
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001882static inline void srv_set_id_from_prefix(struct server *srv, const char *prefix, int nb)
1883{
1884 chunk_printf(&trash, "%s%d", prefix, nb);
1885 free(srv->id);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02001886 srv->id = strdup(trash.area);
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001887}
1888
1889/*
1890 * Initialize as much as possible servers from <srv> server template.
1891 * Note that a server template is a special server with
1892 * a few different parameters than a server which has
1893 * been parsed mostly the same way as a server.
Joseph Herlant44466822018-11-15 08:57:51 -08001894 * Returns the number of servers successfully allocated,
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001895 * 'srv' template included.
1896 */
1897static int server_template_init(struct server *srv, struct proxy *px)
1898{
1899 int i;
1900 struct server *newsrv;
1901
1902 for (i = srv->tmpl_info.nb_low + 1; i <= srv->tmpl_info.nb_high; i++) {
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001903 newsrv = new_server(px);
1904 if (!newsrv)
1905 goto err;
1906
1907 srv_settings_cpy(newsrv, srv, 1);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02001908 srv_prepare_for_resolution(newsrv, srv->hostname);
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001909#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
1910 if (newsrv->sni_expr) {
1911 newsrv->ssl_ctx.sni = srv_sni_sample_parse_expr(newsrv, px, NULL, 0, NULL);
1912 if (!newsrv->ssl_ctx.sni)
1913 goto err;
1914 }
1915#endif
1916 /* Set this new server ID. */
1917 srv_set_id_from_prefix(newsrv, srv->tmpl_info.prefix, i);
1918
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02001919 /* Linked backwards first. This will be restablished after parsing. */
1920 newsrv->next = px->srv;
1921 px->srv = newsrv;
1922 }
1923 srv_set_id_from_prefix(srv, srv->tmpl_info.prefix, srv->tmpl_info.nb_low);
1924
1925 return i - srv->tmpl_info.nb_low;
1926
1927 err:
1928 srv_set_id_from_prefix(srv, srv->tmpl_info.prefix, srv->tmpl_info.nb_low);
1929 if (newsrv) {
1930#ifdef SSL_CTRL_SET_TLSEXT_HOSTNAME
1931 release_sample_expr(newsrv->ssl_ctx.sni);
1932#endif
1933 free_check(&newsrv->agent);
1934 free_check(&newsrv->check);
1935 }
1936 free(newsrv);
1937 return i - srv->tmpl_info.nb_low;
1938}
1939
Emeric Brund3db3842020-07-21 16:54:36 +02001940int parse_server(const char *file, int linenum, char **args, struct proxy *curproxy,
1941 struct proxy *defproxy, int parse_addr, int in_peers_section, int initial_resolve)
Willy Tarreau272adea2014-03-31 10:39:59 +02001942{
1943 struct server *newsrv = NULL;
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001944 const char *err = NULL;
Willy Tarreau272adea2014-03-31 10:39:59 +02001945 char *errmsg = NULL;
1946 int err_code = 0;
1947 unsigned val;
Willy Tarreau07101d52015-09-08 16:16:35 +02001948 char *fqdn = NULL;
Willy Tarreau272adea2014-03-31 10:39:59 +02001949
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001950 if (!strcmp(args[0], "server") ||
Frédéric Lécaillec06b5d42018-04-26 10:06:41 +02001951 !strcmp(args[0], "peer") ||
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001952 !strcmp(args[0], "default-server") ||
1953 !strcmp(args[0], "server-template")) {
Willy Tarreau272adea2014-03-31 10:39:59 +02001954 int cur_arg;
Frédéric Lécaille6e0843c2017-03-21 16:39:15 +01001955 int defsrv = (*args[0] == 'd');
Frédéric Lécaillec06b5d42018-04-26 10:06:41 +02001956 int srv = !defsrv && (*args[0] == 'p' || !strcmp(args[0], "server"));
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001957 int srv_tmpl = !defsrv && !srv;
1958 int tmpl_range_low = 0, tmpl_range_high = 0;
Willy Tarreau272adea2014-03-31 10:39:59 +02001959
1960 if (!defsrv && curproxy == defproxy) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001961 ha_alert("parsing [%s:%d] : '%s' not allowed in 'defaults' section.\n", file, linenum, args[0]);
Willy Tarreau272adea2014-03-31 10:39:59 +02001962 err_code |= ERR_ALERT | ERR_FATAL;
1963 goto out;
1964 }
1965 else if (warnifnotcap(curproxy, PR_CAP_BE, file, linenum, args[0], NULL))
Olivier Houchard306e6532018-07-24 16:48:59 +02001966 err_code |= ERR_WARN;
Willy Tarreau272adea2014-03-31 10:39:59 +02001967
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001968 /* There is no mandatory first arguments for default server. */
Frédéric Lécaille355b2032019-01-11 14:06:12 +01001969 if (srv && parse_addr) {
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001970 if (!*args[2]) {
Frédéric Lécaille8ba10fe2020-04-03 09:43:47 +02001971 if (in_peers_section) {
1972 return 0;
1973 }
1974 else {
1975 /* 'server' line number of argument check. */
1976 ha_alert("parsing [%s:%d] : '%s' expects <name> and <addr>[:<port>] as arguments.\n",
1977 file, linenum, args[0]);
1978 err_code |= ERR_ALERT | ERR_FATAL;
1979 goto out;
1980 }
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001981 }
1982
1983 err = invalid_char(args[1]);
1984 }
1985 else if (srv_tmpl) {
1986 if (!*args[3]) {
1987 /* 'server-template' line number of argument check. */
Christopher Faulet767a84b2017-11-24 16:50:31 +01001988 ha_alert("parsing [%s:%d] : '%s' expects <prefix> <nb | range> <addr>[:<port>] as arguments.\n",
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001989 file, linenum, args[0]);
1990 err_code |= ERR_ALERT | ERR_FATAL;
1991 goto out;
1992 }
1993
1994 err = invalid_prefix_char(args[1]);
Willy Tarreau272adea2014-03-31 10:39:59 +02001995 }
1996
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001997 if (err) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01001998 ha_alert("parsing [%s:%d] : character '%c' is not permitted in %s %s '%s'.\n",
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02001999 file, linenum, *err, args[0], srv ? "name" : "prefix", args[1]);
Willy Tarreau272adea2014-03-31 10:39:59 +02002000 err_code |= ERR_ALERT | ERR_FATAL;
2001 goto out;
2002 }
2003
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02002004 cur_arg = 2;
2005 if (srv_tmpl) {
2006 /* Parse server-template <nb | range> arg. */
2007 if (srv_tmpl_parse_range(newsrv, args[cur_arg], &tmpl_range_low, &tmpl_range_high) < 0) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002008 ha_alert("parsing [%s:%d] : Wrong %s number or range arg '%s'.\n",
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02002009 file, linenum, args[0], args[cur_arg]);
2010 err_code |= ERR_ALERT | ERR_FATAL;
2011 goto out;
2012 }
2013 cur_arg++;
2014 }
2015
Willy Tarreau272adea2014-03-31 10:39:59 +02002016 if (!defsrv) {
2017 struct sockaddr_storage *sk;
Willy Tarreau6ecb10a2017-01-06 18:36:06 +01002018 int port1, port2, port;
Willy Tarreau272adea2014-03-31 10:39:59 +02002019 struct protocol *proto;
2020
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02002021 newsrv = new_server(curproxy);
2022 if (!newsrv) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002023 ha_alert("parsing [%s:%d] : out of memory.\n", file, linenum);
Willy Tarreau272adea2014-03-31 10:39:59 +02002024 err_code |= ERR_ALERT | ERR_ABORT;
2025 goto out;
2026 }
2027
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02002028 if (srv_tmpl) {
2029 newsrv->tmpl_info.nb_low = tmpl_range_low;
2030 newsrv->tmpl_info.nb_high = tmpl_range_high;
2031 }
2032
Willy Tarreau272adea2014-03-31 10:39:59 +02002033 /* the servers are linked backwards first */
2034 newsrv->next = curproxy->srv;
2035 curproxy->srv = newsrv;
Willy Tarreau272adea2014-03-31 10:39:59 +02002036 newsrv->conf.file = strdup(file);
2037 newsrv->conf.line = linenum;
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02002038 /* Note: for a server template, its id is its prefix.
2039 * This is a temporary id which will be used for server allocations to come
2040 * after parsing.
2041 */
2042 if (srv)
2043 newsrv->id = strdup(args[1]);
2044 else
2045 newsrv->tmpl_info.prefix = strdup(args[1]);
Willy Tarreau272adea2014-03-31 10:39:59 +02002046
2047 /* several ways to check the port component :
2048 * - IP => port=+0, relative (IPv4 only)
2049 * - IP: => port=+0, relative
2050 * - IP:N => port=N, absolute
2051 * - IP:+N => port=+N, relative
2052 * - IP:-N => port=-N, relative
2053 */
Frédéric Lécaille355b2032019-01-11 14:06:12 +01002054 if (!parse_addr)
2055 goto skip_addr;
2056
Emeric Brund3db3842020-07-21 16:54:36 +02002057 sk = str2sa_range(args[cur_arg], &port, &port1, &port2, &errmsg, NULL, &fqdn, initial_resolve);
Willy Tarreau272adea2014-03-31 10:39:59 +02002058 if (!sk) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002059 ha_alert("parsing [%s:%d] : '%s %s' : %s\n", file, linenum, args[0], args[1], errmsg);
Willy Tarreau272adea2014-03-31 10:39:59 +02002060 err_code |= ERR_ALERT | ERR_FATAL;
2061 goto out;
2062 }
2063
2064 proto = protocol_by_family(sk->ss_family);
Willy Tarreau9698f4b2017-01-06 18:42:57 +01002065 if (!fqdn && (!proto || !proto->connect)) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002066 ha_alert("parsing [%s:%d] : '%s %s' : connect() not supported for this address family.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002067 file, linenum, args[0], args[1]);
2068 err_code |= ERR_ALERT | ERR_FATAL;
2069 goto out;
2070 }
2071
2072 if (!port1 || !port2) {
2073 /* no port specified, +offset, -offset */
Willy Tarreauc93cd162014-05-13 15:54:22 +02002074 newsrv->flags |= SRV_F_MAPPORTS;
Willy Tarreau272adea2014-03-31 10:39:59 +02002075 }
2076 else if (port1 != port2) {
2077 /* port range */
Christopher Faulet767a84b2017-11-24 16:50:31 +01002078 ha_alert("parsing [%s:%d] : '%s %s' : port ranges are not allowed in '%s'\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002079 file, linenum, args[0], args[1], args[2]);
2080 err_code |= ERR_ALERT | ERR_FATAL;
2081 goto out;
2082 }
Willy Tarreau272adea2014-03-31 10:39:59 +02002083
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002084 /* save hostname and create associated name resolution */
Baptiste Assmann4f91f7e2017-05-03 12:09:54 +02002085 if (fqdn) {
Christopher Faulet67957bd2017-09-27 11:00:59 +02002086 if (fqdn[0] == '_') { /* SRV record */
Olivier Houchard8da5f982017-08-04 18:35:36 +02002087 /* Check if a SRV request already exists, and if not, create it */
Christopher Faulet67957bd2017-09-27 11:00:59 +02002088 if ((newsrv->srvrq = find_srvrq_by_name(fqdn, curproxy)) == NULL)
2089 newsrv->srvrq = new_dns_srvrq(newsrv, fqdn);
2090 if (newsrv->srvrq == NULL) {
Olivier Houchard8da5f982017-08-04 18:35:36 +02002091 err_code |= ERR_ALERT | ERR_FATAL;
2092 goto out;
Christopher Faulet67957bd2017-09-27 11:00:59 +02002093 }
2094 }
2095 else if (srv_prepare_for_resolution(newsrv, fqdn) == -1) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002096 ha_alert("parsing [%s:%d] : Can't create DNS resolution for server '%s'\n",
Christopher Faulet67957bd2017-09-27 11:00:59 +02002097 file, linenum, newsrv->id);
2098 err_code |= ERR_ALERT | ERR_FATAL;
2099 goto out;
Baptiste Assmann4f91f7e2017-05-03 12:09:54 +02002100 }
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002101 }
2102
Willy Tarreau272adea2014-03-31 10:39:59 +02002103 newsrv->addr = *sk;
Willy Tarreau6ecb10a2017-01-06 18:36:06 +01002104 newsrv->svc_port = port;
Willy Tarreau272adea2014-03-31 10:39:59 +02002105
Olivier Houchard8da5f982017-08-04 18:35:36 +02002106 if (!newsrv->srvrq && !newsrv->hostname && !protocol_by_family(newsrv->addr.ss_family)) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002107 ha_alert("parsing [%s:%d] : Unknown protocol family %d '%s'\n",
Frédéric Lécailleb82f7422017-04-13 18:24:23 +02002108 file, linenum, newsrv->addr.ss_family, args[cur_arg]);
Willy Tarreau272adea2014-03-31 10:39:59 +02002109 err_code |= ERR_ALERT | ERR_FATAL;
2110 goto out;
2111 }
Frédéric Lécaille5c3cd972017-03-15 16:36:09 +01002112
Frédéric Lécaille355b2032019-01-11 14:06:12 +01002113 cur_arg++;
2114 skip_addr:
Frédéric Lécaille58b207c2017-03-30 14:18:30 +02002115 /* Copy default server settings to new server settings. */
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02002116 srv_settings_cpy(newsrv, &curproxy->defsrv, 0);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01002117 HA_SPIN_INIT(&newsrv->lock);
Willy Tarreau272adea2014-03-31 10:39:59 +02002118 } else {
2119 newsrv = &curproxy->defsrv;
2120 cur_arg = 1;
Thierry Fournierada34842016-02-17 21:25:09 +01002121 newsrv->dns_opts.family_prio = AF_INET6;
Baptiste Assmann8e2d9432018-06-22 15:04:43 +02002122 newsrv->dns_opts.accept_duplicate_ip = 0;
Willy Tarreau272adea2014-03-31 10:39:59 +02002123 }
2124
2125 while (*args[cur_arg]) {
Christopher Fauletcbba66c2020-04-06 14:26:30 +02002126 if (!strcmp(args[cur_arg], "init-addr")) {
Baptiste Assmann25938272016-09-21 20:26:16 +02002127 char *p, *end;
2128 int done;
Willy Tarreau4310d362016-11-02 15:05:56 +01002129 struct sockaddr_storage sa;
Baptiste Assmann25938272016-09-21 20:26:16 +02002130
2131 newsrv->init_addr_methods = 0;
2132 memset(&newsrv->init_addr, 0, sizeof(newsrv->init_addr));
2133
2134 for (p = args[cur_arg + 1]; *p; p = end) {
2135 /* cut on next comma */
2136 for (end = p; *end && *end != ','; end++);
2137 if (*end)
2138 *(end++) = 0;
2139
Willy Tarreau4310d362016-11-02 15:05:56 +01002140 memset(&sa, 0, sizeof(sa));
Baptiste Assmann25938272016-09-21 20:26:16 +02002141 if (!strcmp(p, "libc")) {
2142 done = srv_append_initaddr(&newsrv->init_addr_methods, SRV_IADDR_LIBC);
2143 }
2144 else if (!strcmp(p, "last")) {
2145 done = srv_append_initaddr(&newsrv->init_addr_methods, SRV_IADDR_LAST);
2146 }
Willy Tarreau37ebe122016-11-04 15:17:58 +01002147 else if (!strcmp(p, "none")) {
2148 done = srv_append_initaddr(&newsrv->init_addr_methods, SRV_IADDR_NONE);
2149 }
Willy Tarreau4310d362016-11-02 15:05:56 +01002150 else if (str2ip2(p, &sa, 0)) {
2151 if (is_addr(&newsrv->init_addr)) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002152 ha_alert("parsing [%s:%d]: '%s' : initial address already specified, cannot add '%s'.\n",
Willy Tarreau4310d362016-11-02 15:05:56 +01002153 file, linenum, args[cur_arg], p);
2154 err_code |= ERR_ALERT | ERR_FATAL;
2155 goto out;
2156 }
2157 newsrv->init_addr = sa;
2158 done = srv_append_initaddr(&newsrv->init_addr_methods, SRV_IADDR_IP);
2159 }
Baptiste Assmann25938272016-09-21 20:26:16 +02002160 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002161 ha_alert("parsing [%s:%d]: '%s' : unknown init-addr method '%s', supported methods are 'libc', 'last', 'none'.\n",
Baptiste Assmann25938272016-09-21 20:26:16 +02002162 file, linenum, args[cur_arg], p);
2163 err_code |= ERR_ALERT | ERR_FATAL;
2164 goto out;
2165 }
2166 if (!done) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002167 ha_alert("parsing [%s:%d]: '%s' : too many init-addr methods when trying to add '%s'\n",
Baptiste Assmann25938272016-09-21 20:26:16 +02002168 file, linenum, args[cur_arg], p);
2169 err_code |= ERR_ALERT | ERR_FATAL;
2170 goto out;
2171 }
2172 }
2173 cur_arg += 2;
2174 }
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002175 else if (!strcmp(args[cur_arg], "resolvers")) {
Frédéric Lécailledaa2fe62017-04-20 12:17:50 +02002176 free(newsrv->resolvers_id);
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002177 newsrv->resolvers_id = strdup(args[cur_arg + 1]);
2178 cur_arg += 2;
2179 }
Baptiste Assmann8e2d9432018-06-22 15:04:43 +02002180 else if (!strcmp(args[cur_arg], "resolve-opts")) {
2181 char *p, *end;
2182
2183 for (p = args[cur_arg + 1]; *p; p = end) {
2184 /* cut on next comma */
2185 for (end = p; *end && *end != ','; end++);
2186 if (*end)
2187 *(end++) = 0;
2188
2189 if (!strcmp(p, "allow-dup-ip")) {
2190 newsrv->dns_opts.accept_duplicate_ip = 1;
2191 }
Daniel Corbettf8716912019-11-17 09:48:56 -05002192 else if (!strcmp(p, "ignore-weight")) {
2193 newsrv->dns_opts.ignore_weight = 1;
2194 }
Baptiste Assmann8e2d9432018-06-22 15:04:43 +02002195 else if (!strcmp(p, "prevent-dup-ip")) {
2196 newsrv->dns_opts.accept_duplicate_ip = 0;
2197 }
2198 else {
Daniel Corbettf8716912019-11-17 09:48:56 -05002199 ha_alert("parsing [%s:%d]: '%s' : unknown resolve-opts option '%s', supported methods are 'allow-dup-ip', 'ignore-weight', and 'prevent-dup-ip'.\n",
Baptiste Assmann8e2d9432018-06-22 15:04:43 +02002200 file, linenum, args[cur_arg], p);
2201 err_code |= ERR_ALERT | ERR_FATAL;
2202 goto out;
2203 }
2204 }
2205
2206 cur_arg += 2;
2207 }
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002208 else if (!strcmp(args[cur_arg], "resolve-prefer")) {
2209 if (!strcmp(args[cur_arg + 1], "ipv4"))
Thierry Fournierada34842016-02-17 21:25:09 +01002210 newsrv->dns_opts.family_prio = AF_INET;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002211 else if (!strcmp(args[cur_arg + 1], "ipv6"))
Thierry Fournierada34842016-02-17 21:25:09 +01002212 newsrv->dns_opts.family_prio = AF_INET6;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002213 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002214 ha_alert("parsing [%s:%d]: '%s' expects either ipv4 or ipv6 as argument.\n",
Baptiste Assmanna68ca962015-04-14 01:15:08 +02002215 file, linenum, args[cur_arg]);
2216 err_code |= ERR_ALERT | ERR_FATAL;
2217 goto out;
2218 }
2219 cur_arg += 2;
2220 }
Thierry Fournierac88cfe2016-02-17 22:05:30 +01002221 else if (!strcmp(args[cur_arg], "resolve-net")) {
2222 char *p, *e;
2223 unsigned char mask;
2224 struct dns_options *opt;
2225
2226 if (!args[cur_arg + 1] || args[cur_arg + 1][0] == '\0') {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002227 ha_alert("parsing [%s:%d]: '%s' expects a list of networks.\n",
Thierry Fournierac88cfe2016-02-17 22:05:30 +01002228 file, linenum, args[cur_arg]);
2229 err_code |= ERR_ALERT | ERR_FATAL;
2230 goto out;
2231 }
2232
2233 opt = &newsrv->dns_opts;
2234
2235 /* Split arguments by comma, and convert it from ipv4 or ipv6
2236 * string network in in_addr or in6_addr.
2237 */
2238 p = args[cur_arg + 1];
2239 e = p;
2240 while (*p != '\0') {
Joseph Herlant44466822018-11-15 08:57:51 -08002241 /* If no room available, return error. */
David Carlierd10025c2016-04-08 10:26:44 +01002242 if (opt->pref_net_nb >= SRV_MAX_PREF_NET) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002243 ha_alert("parsing [%s:%d]: '%s' exceed %d networks.\n",
Thierry Fournierac88cfe2016-02-17 22:05:30 +01002244 file, linenum, args[cur_arg], SRV_MAX_PREF_NET);
2245 err_code |= ERR_ALERT | ERR_FATAL;
2246 goto out;
2247 }
2248 /* look for end or comma. */
2249 while (*e != ',' && *e != '\0')
2250 e++;
2251 if (*e == ',') {
2252 *e = '\0';
2253 e++;
2254 }
2255 if (str2net(p, 0, &opt->pref_net[opt->pref_net_nb].addr.in4,
2256 &opt->pref_net[opt->pref_net_nb].mask.in4)) {
2257 /* Try to convert input string from ipv4 or ipv6 network. */
2258 opt->pref_net[opt->pref_net_nb].family = AF_INET;
2259 } else if (str62net(p, &opt->pref_net[opt->pref_net_nb].addr.in6,
2260 &mask)) {
2261 /* Try to convert input string from ipv6 network. */
2262 len2mask6(mask, &opt->pref_net[opt->pref_net_nb].mask.in6);
2263 opt->pref_net[opt->pref_net_nb].family = AF_INET6;
2264 } else {
Ilya Shipitsinc02a23f2020-05-06 00:53:22 +05002265 /* All network conversions fail, return error. */
Christopher Faulet767a84b2017-11-24 16:50:31 +01002266 ha_alert("parsing [%s:%d]: '%s': invalid network '%s'.\n",
Thierry Fournierac88cfe2016-02-17 22:05:30 +01002267 file, linenum, args[cur_arg], p);
2268 err_code |= ERR_ALERT | ERR_FATAL;
2269 goto out;
2270 }
2271 opt->pref_net_nb++;
2272 p = e;
2273 }
2274
2275 cur_arg += 2;
2276 }
Willy Tarreau272adea2014-03-31 10:39:59 +02002277 else if (!strcmp(args[cur_arg], "weight")) {
2278 int w;
2279 w = atol(args[cur_arg + 1]);
2280 if (w < 0 || w > SRV_UWGHT_MAX) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002281 ha_alert("parsing [%s:%d] : weight of server %s is not within 0 and %d (%d).\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002282 file, linenum, newsrv->id, SRV_UWGHT_MAX, w);
2283 err_code |= ERR_ALERT | ERR_FATAL;
2284 goto out;
2285 }
2286 newsrv->uweight = newsrv->iweight = w;
2287 cur_arg += 2;
2288 }
Emeric Brun97556472020-05-30 01:42:45 +02002289 else if (!strcmp(args[cur_arg], "log-proto")) {
2290 if (!strcmp(args[cur_arg + 1], "legacy"))
2291 newsrv->log_proto = SRV_LOG_PROTO_LEGACY;
2292 else if (!strcmp(args[cur_arg + 1], "octet-count"))
2293 newsrv->log_proto = SRV_LOG_PROTO_OCTET_COUNTING;
2294 else {
2295 ha_alert("parsing [%s:%d]: '%s' expects one of 'legacy' or "
2296 "'octet-count' but got '%s'\n",
2297 file, linenum, args[cur_arg], args[cur_arg + 1]);
2298 err_code |= ERR_ALERT | ERR_FATAL;
2299 goto out;
2300 }
2301 cur_arg += 2;
2302 }
Willy Tarreau272adea2014-03-31 10:39:59 +02002303 else if (!strcmp(args[cur_arg], "minconn")) {
2304 newsrv->minconn = atol(args[cur_arg + 1]);
2305 cur_arg += 2;
2306 }
2307 else if (!strcmp(args[cur_arg], "maxconn")) {
2308 newsrv->maxconn = atol(args[cur_arg + 1]);
2309 cur_arg += 2;
2310 }
2311 else if (!strcmp(args[cur_arg], "maxqueue")) {
2312 newsrv->maxqueue = atol(args[cur_arg + 1]);
2313 cur_arg += 2;
2314 }
2315 else if (!strcmp(args[cur_arg], "slowstart")) {
2316 /* slowstart is stored in seconds */
2317 const char *err = parse_time_err(args[cur_arg + 1], &val, TIME_UNIT_MS);
Willy Tarreau9faebe32019-06-07 19:00:37 +02002318
2319 if (err == PARSE_TIME_OVER) {
2320 ha_alert("parsing [%s:%d]: timer overflow in argument <%s> to <%s> of server %s, maximum value is 2147483647 ms (~24.8 days).\n",
2321 file, linenum, args[cur_arg+1], args[cur_arg], newsrv->id);
2322 err_code |= ERR_ALERT | ERR_FATAL;
2323 goto out;
2324 }
2325 else if (err == PARSE_TIME_UNDER) {
2326 ha_alert("parsing [%s:%d]: timer underflow in argument <%s> to <%s> of server %s, minimum non-null value is 1 ms.\n",
2327 file, linenum, args[cur_arg+1], args[cur_arg], newsrv->id);
2328 err_code |= ERR_ALERT | ERR_FATAL;
2329 goto out;
2330 }
2331 else if (err) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002332 ha_alert("parsing [%s:%d] : unexpected character '%c' in 'slowstart' argument of server %s.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002333 file, linenum, *err, newsrv->id);
2334 err_code |= ERR_ALERT | ERR_FATAL;
2335 goto out;
2336 }
2337 newsrv->slowstart = (val + 999) / 1000;
2338 cur_arg += 2;
2339 }
Willy Tarreau272adea2014-03-31 10:39:59 +02002340 else if (!strcmp(args[cur_arg], "on-error")) {
2341 if (!strcmp(args[cur_arg + 1], "fastinter"))
2342 newsrv->onerror = HANA_ONERR_FASTINTER;
2343 else if (!strcmp(args[cur_arg + 1], "fail-check"))
2344 newsrv->onerror = HANA_ONERR_FAILCHK;
2345 else if (!strcmp(args[cur_arg + 1], "sudden-death"))
2346 newsrv->onerror = HANA_ONERR_SUDDTH;
2347 else if (!strcmp(args[cur_arg + 1], "mark-down"))
2348 newsrv->onerror = HANA_ONERR_MARKDWN;
2349 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002350 ha_alert("parsing [%s:%d]: '%s' expects one of 'fastinter', "
Willy Tarreau272adea2014-03-31 10:39:59 +02002351 "'fail-check', 'sudden-death' or 'mark-down' but got '%s'\n",
2352 file, linenum, args[cur_arg], args[cur_arg + 1]);
2353 err_code |= ERR_ALERT | ERR_FATAL;
2354 goto out;
2355 }
2356
2357 cur_arg += 2;
2358 }
2359 else if (!strcmp(args[cur_arg], "on-marked-down")) {
2360 if (!strcmp(args[cur_arg + 1], "shutdown-sessions"))
2361 newsrv->onmarkeddown = HANA_ONMARKEDDOWN_SHUTDOWNSESSIONS;
2362 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002363 ha_alert("parsing [%s:%d]: '%s' expects 'shutdown-sessions' but got '%s'\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002364 file, linenum, args[cur_arg], args[cur_arg + 1]);
2365 err_code |= ERR_ALERT | ERR_FATAL;
2366 goto out;
2367 }
2368
2369 cur_arg += 2;
2370 }
2371 else if (!strcmp(args[cur_arg], "on-marked-up")) {
2372 if (!strcmp(args[cur_arg + 1], "shutdown-backup-sessions"))
2373 newsrv->onmarkedup = HANA_ONMARKEDUP_SHUTDOWNBACKUPSESSIONS;
2374 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002375 ha_alert("parsing [%s:%d]: '%s' expects 'shutdown-backup-sessions' but got '%s'\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002376 file, linenum, args[cur_arg], args[cur_arg + 1]);
2377 err_code |= ERR_ALERT | ERR_FATAL;
2378 goto out;
2379 }
2380
2381 cur_arg += 2;
2382 }
2383 else if (!strcmp(args[cur_arg], "error-limit")) {
2384 if (!*args[cur_arg + 1]) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002385 ha_alert("parsing [%s:%d]: '%s' expects an integer argument.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002386 file, linenum, args[cur_arg]);
2387 err_code |= ERR_ALERT | ERR_FATAL;
2388 goto out;
2389 }
2390
2391 newsrv->consecutive_errors_limit = atoi(args[cur_arg + 1]);
2392
2393 if (newsrv->consecutive_errors_limit <= 0) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002394 ha_alert("parsing [%s:%d]: %s has to be > 0.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002395 file, linenum, args[cur_arg]);
2396 err_code |= ERR_ALERT | ERR_FATAL;
2397 goto out;
2398 }
2399 cur_arg += 2;
2400 }
Frédéric Lécaille8d083ed2017-04-14 15:19:56 +02002401 else if (!strcmp(args[cur_arg], "usesrc")) { /* address to use outside: needs "source" first */
Christopher Faulet767a84b2017-11-24 16:50:31 +01002402 ha_alert("parsing [%s:%d] : '%s' only allowed after a '%s' statement.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002403 file, linenum, "usesrc", "source");
2404 err_code |= ERR_ALERT | ERR_FATAL;
2405 goto out;
KOVACS Krisztianb3e54fe2014-11-17 15:11:45 +01002406 }
Willy Tarreau272adea2014-03-31 10:39:59 +02002407 else {
2408 static int srv_dumped;
2409 struct srv_kw *kw;
2410 char *err;
2411
2412 kw = srv_find_kw(args[cur_arg]);
2413 if (kw) {
2414 char *err = NULL;
2415 int code;
2416
2417 if (!kw->parse) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002418 ha_alert("parsing [%s:%d] : '%s %s' : '%s' option is not implemented in this version (check build options).\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002419 file, linenum, args[0], args[1], args[cur_arg]);
Frédéric Lécailledfacd692017-04-16 17:14:14 +02002420 if (kw->skip != -1)
2421 cur_arg += 1 + kw->skip ;
Willy Tarreau272adea2014-03-31 10:39:59 +02002422 err_code |= ERR_ALERT | ERR_FATAL;
2423 goto out;
2424 }
2425
2426 if (defsrv && !kw->default_ok) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01002427 ha_alert("parsing [%s:%d] : '%s %s' : '%s' option is not accepted in default-server sections.\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002428 file, linenum, args[0], args[1], args[cur_arg]);
Frédéric Lécailledfacd692017-04-16 17:14:14 +02002429 if (kw->skip != -1)
2430 cur_arg += 1 + kw->skip ;
Willy Tarreau272adea2014-03-31 10:39:59 +02002431 err_code |= ERR_ALERT;
2432 continue;
2433 }
2434
2435 code = kw->parse(args, &cur_arg, curproxy, newsrv, &err);
2436 err_code |= code;
2437
2438 if (code) {
Gaetan Rivet10c4b4a2020-02-11 11:42:38 +01002439 display_parser_err(file, linenum, args, cur_arg, code, &err);
Willy Tarreau272adea2014-03-31 10:39:59 +02002440 if (code & ERR_FATAL) {
2441 free(err);
Frédéric Lécailledfacd692017-04-16 17:14:14 +02002442 if (kw->skip != -1)
2443 cur_arg += 1 + kw->skip;
Willy Tarreau272adea2014-03-31 10:39:59 +02002444 goto out;
2445 }
2446 }
2447 free(err);
Frédéric Lécailledfacd692017-04-16 17:14:14 +02002448 if (kw->skip != -1)
2449 cur_arg += 1 + kw->skip;
Willy Tarreau272adea2014-03-31 10:39:59 +02002450 continue;
2451 }
2452
2453 err = NULL;
2454 if (!srv_dumped) {
2455 srv_dump_kws(&err);
2456 indent_msg(&err, 4);
2457 srv_dumped = 1;
2458 }
2459
Christopher Faulet767a84b2017-11-24 16:50:31 +01002460 ha_alert("parsing [%s:%d] : '%s %s' unknown keyword '%s'.%s%s\n",
Willy Tarreau272adea2014-03-31 10:39:59 +02002461 file, linenum, args[0], args[1], args[cur_arg],
2462 err ? " Registered keywords :" : "", err ? err : "");
2463 free(err);
2464
2465 err_code |= ERR_ALERT | ERR_FATAL;
2466 goto out;
2467 }
2468 }
2469
Frédéric Lécaille759ea982017-03-30 17:32:36 +02002470 if (!defsrv)
2471 err_code |= server_finalize_init(file, linenum, args, cur_arg, newsrv, curproxy);
2472 if (err_code & ERR_FATAL)
2473 goto out;
Frédéric Lécaille72ed4752017-04-14 13:28:00 +02002474 if (srv_tmpl)
2475 server_template_init(newsrv, curproxy);
Willy Tarreau272adea2014-03-31 10:39:59 +02002476 }
Willy Tarreau07101d52015-09-08 16:16:35 +02002477 free(fqdn);
Willy Tarreau272adea2014-03-31 10:39:59 +02002478 return 0;
2479
2480 out:
Willy Tarreau07101d52015-09-08 16:16:35 +02002481 free(fqdn);
Willy Tarreau272adea2014-03-31 10:39:59 +02002482 free(errmsg);
2483 return err_code;
2484}
2485
Baptiste Assmann19a106d2015-07-08 22:03:56 +02002486/* Returns a pointer to the first server matching either id <id>.
2487 * NULL is returned if no match is found.
2488 * the lookup is performed in the backend <bk>
2489 */
2490struct server *server_find_by_id(struct proxy *bk, int id)
2491{
2492 struct eb32_node *eb32;
2493 struct server *curserver;
2494
2495 if (!bk || (id ==0))
2496 return NULL;
2497
2498 /* <bk> has no backend capabilities, so it can't have a server */
2499 if (!(bk->cap & PR_CAP_BE))
2500 return NULL;
2501
2502 curserver = NULL;
2503
2504 eb32 = eb32_lookup(&bk->conf.used_server_id, id);
2505 if (eb32)
2506 curserver = container_of(eb32, struct server, conf.id);
2507
2508 return curserver;
2509}
2510
2511/* Returns a pointer to the first server matching either name <name>, or id
2512 * if <name> starts with a '#'. NULL is returned if no match is found.
2513 * the lookup is performed in the backend <bk>
2514 */
2515struct server *server_find_by_name(struct proxy *bk, const char *name)
2516{
2517 struct server *curserver;
2518
2519 if (!bk || !name)
2520 return NULL;
2521
2522 /* <bk> has no backend capabilities, so it can't have a server */
2523 if (!(bk->cap & PR_CAP_BE))
2524 return NULL;
2525
2526 curserver = NULL;
2527 if (*name == '#') {
2528 curserver = server_find_by_id(bk, atoi(name + 1));
2529 if (curserver)
2530 return curserver;
2531 }
2532 else {
2533 curserver = bk->srv;
2534
2535 while (curserver && (strcmp(curserver->id, name) != 0))
2536 curserver = curserver->next;
2537
2538 if (curserver)
2539 return curserver;
2540 }
2541
2542 return NULL;
2543}
2544
2545struct server *server_find_best_match(struct proxy *bk, char *name, int id, int *diff)
2546{
2547 struct server *byname;
2548 struct server *byid;
2549
2550 if (!name && !id)
2551 return NULL;
2552
2553 if (diff)
2554 *diff = 0;
2555
2556 byname = byid = NULL;
2557
2558 if (name) {
2559 byname = server_find_by_name(bk, name);
2560 if (byname && (!id || byname->puid == id))
2561 return byname;
2562 }
2563
2564 /* remaining possibilities :
2565 * - name not set
2566 * - name set but not found
2567 * - name found but ID doesn't match
2568 */
2569 if (id) {
2570 byid = server_find_by_id(bk, id);
2571 if (byid) {
2572 if (byname) {
2573 /* use id only if forced by configuration */
2574 if (byid->flags & SRV_F_FORCED_ID) {
2575 if (diff)
2576 *diff |= 2;
2577 return byid;
2578 }
2579 else {
2580 if (diff)
2581 *diff |= 1;
2582 return byname;
2583 }
2584 }
2585
2586 /* remaining possibilities:
2587 * - name not set
2588 * - name set but not found
2589 */
2590 if (name && diff)
2591 *diff |= 2;
2592 return byid;
2593 }
2594
2595 /* id bot found */
2596 if (byname) {
2597 if (diff)
2598 *diff |= 1;
2599 return byname;
2600 }
2601 }
2602
2603 return NULL;
2604}
2605
Willy Tarreau46b7f532018-08-21 11:54:26 +02002606/* Update a server state using the parameters available in the params list.
2607 *
2608 * Grabs the server lock during operation.
2609 */
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002610static void srv_update_state(struct server *srv, int version, char **params)
2611{
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002612 char *p;
Willy Tarreau83061a82018-07-13 11:56:34 +02002613 struct buffer *msg;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002614
2615 /* fields since version 1
2616 * and common to all other upcoming versions
2617 */
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002618 enum srv_state srv_op_state;
2619 enum srv_admin srv_admin_state;
2620 unsigned srv_uweight, srv_iweight;
2621 unsigned long srv_last_time_change;
2622 short srv_check_status;
2623 enum chk_result srv_check_result;
2624 int srv_check_health;
2625 int srv_check_state, srv_agent_state;
2626 int bk_f_forced_id;
2627 int srv_f_forced_id;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002628 int fqdn_set_by_cli;
2629 const char *fqdn;
Frédéric Lécaille31694712017-08-01 08:47:19 +02002630 const char *port_str;
2631 unsigned int port;
Baptiste Assmann6d0f38f2018-07-02 17:00:54 +02002632 char *srvrecord;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002633
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002634 fqdn = NULL;
Frédéric Lécaille31694712017-08-01 08:47:19 +02002635 port = 0;
Willy Tarreau31138fa2015-09-29 18:38:47 +02002636 msg = get_trash_chunk();
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002637 switch (version) {
2638 case 1:
2639 /*
2640 * now we can proceed with server's state update:
2641 * srv_addr: params[0]
2642 * srv_op_state: params[1]
2643 * srv_admin_state: params[2]
2644 * srv_uweight: params[3]
2645 * srv_iweight: params[4]
2646 * srv_last_time_change: params[5]
2647 * srv_check_status: params[6]
2648 * srv_check_result: params[7]
2649 * srv_check_health: params[8]
2650 * srv_check_state: params[9]
2651 * srv_agent_state: params[10]
2652 * bk_f_forced_id: params[11]
2653 * srv_f_forced_id: params[12]
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002654 * srv_fqdn: params[13]
Frédéric Lécaille31694712017-08-01 08:47:19 +02002655 * srv_port: params[14]
Baptiste Assmann6d0f38f2018-07-02 17:00:54 +02002656 * srvrecord: params[15]
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002657 */
2658
2659 /* validating srv_op_state */
2660 p = NULL;
2661 errno = 0;
2662 srv_op_state = strtol(params[1], &p, 10);
2663 if ((p == params[1]) || errno == EINVAL || errno == ERANGE ||
2664 (srv_op_state != SRV_ST_STOPPED &&
2665 srv_op_state != SRV_ST_STARTING &&
2666 srv_op_state != SRV_ST_RUNNING &&
2667 srv_op_state != SRV_ST_STOPPING)) {
2668 chunk_appendf(msg, ", invalid srv_op_state value '%s'", params[1]);
2669 }
2670
2671 /* validating srv_admin_state */
2672 p = NULL;
2673 errno = 0;
2674 srv_admin_state = strtol(params[2], &p, 10);
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002675 fqdn_set_by_cli = !!(srv_admin_state & SRV_ADMF_HMAINT);
Willy Tarreau757478e2016-11-03 19:22:19 +01002676
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002677 /* inherited statuses will be recomputed later.
2678 * Also disable SRV_ADMF_HMAINT flag (set from stats socket fqdn).
2679 */
2680 srv_admin_state &= ~SRV_ADMF_IDRAIN & ~SRV_ADMF_IMAINT & ~SRV_ADMF_HMAINT;
Willy Tarreau757478e2016-11-03 19:22:19 +01002681
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002682 if ((p == params[2]) || errno == EINVAL || errno == ERANGE ||
2683 (srv_admin_state != 0 &&
2684 srv_admin_state != SRV_ADMF_FMAINT &&
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002685 srv_admin_state != SRV_ADMF_CMAINT &&
2686 srv_admin_state != (SRV_ADMF_CMAINT | SRV_ADMF_FMAINT) &&
Willy Tarreaue1bde142016-11-03 18:33:25 +01002687 srv_admin_state != (SRV_ADMF_CMAINT | SRV_ADMF_FDRAIN) &&
Willy Tarreau757478e2016-11-03 19:22:19 +01002688 srv_admin_state != SRV_ADMF_FDRAIN)) {
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002689 chunk_appendf(msg, ", invalid srv_admin_state value '%s'", params[2]);
2690 }
2691
2692 /* validating srv_uweight */
2693 p = NULL;
2694 errno = 0;
2695 srv_uweight = strtol(params[3], &p, 10);
Willy Tarreaue1aebb22015-09-29 18:32:57 +02002696 if ((p == params[3]) || errno == EINVAL || errno == ERANGE || (srv_uweight > SRV_UWGHT_MAX))
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002697 chunk_appendf(msg, ", invalid srv_uweight value '%s'", params[3]);
2698
2699 /* validating srv_iweight */
2700 p = NULL;
2701 errno = 0;
2702 srv_iweight = strtol(params[4], &p, 10);
Willy Tarreaue1aebb22015-09-29 18:32:57 +02002703 if ((p == params[4]) || errno == EINVAL || errno == ERANGE || (srv_iweight > SRV_UWGHT_MAX))
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002704 chunk_appendf(msg, ", invalid srv_iweight value '%s'", params[4]);
2705
2706 /* validating srv_last_time_change */
2707 p = NULL;
2708 errno = 0;
2709 srv_last_time_change = strtol(params[5], &p, 10);
2710 if ((p == params[5]) || errno == EINVAL || errno == ERANGE)
2711 chunk_appendf(msg, ", invalid srv_last_time_change value '%s'", params[5]);
2712
2713 /* validating srv_check_status */
2714 p = NULL;
2715 errno = 0;
2716 srv_check_status = strtol(params[6], &p, 10);
2717 if (p == params[6] || errno == EINVAL || errno == ERANGE ||
2718 (srv_check_status >= HCHK_STATUS_SIZE))
2719 chunk_appendf(msg, ", invalid srv_check_status value '%s'", params[6]);
2720
2721 /* validating srv_check_result */
2722 p = NULL;
2723 errno = 0;
2724 srv_check_result = strtol(params[7], &p, 10);
2725 if ((p == params[7]) || errno == EINVAL || errno == ERANGE ||
2726 (srv_check_result != CHK_RES_UNKNOWN &&
2727 srv_check_result != CHK_RES_NEUTRAL &&
2728 srv_check_result != CHK_RES_FAILED &&
2729 srv_check_result != CHK_RES_PASSED &&
2730 srv_check_result != CHK_RES_CONDPASS)) {
2731 chunk_appendf(msg, ", invalid srv_check_result value '%s'", params[7]);
2732 }
2733
2734 /* validating srv_check_health */
2735 p = NULL;
2736 errno = 0;
2737 srv_check_health = strtol(params[8], &p, 10);
2738 if (p == params[8] || errno == EINVAL || errno == ERANGE)
2739 chunk_appendf(msg, ", invalid srv_check_health value '%s'", params[8]);
2740
2741 /* validating srv_check_state */
2742 p = NULL;
2743 errno = 0;
2744 srv_check_state = strtol(params[9], &p, 10);
2745 if (p == params[9] || errno == EINVAL || errno == ERANGE ||
2746 (srv_check_state & ~(CHK_ST_INPROGRESS | CHK_ST_CONFIGURED | CHK_ST_ENABLED | CHK_ST_PAUSED | CHK_ST_AGENT)))
2747 chunk_appendf(msg, ", invalid srv_check_state value '%s'", params[9]);
2748
2749 /* validating srv_agent_state */
2750 p = NULL;
2751 errno = 0;
2752 srv_agent_state = strtol(params[10], &p, 10);
2753 if (p == params[10] || errno == EINVAL || errno == ERANGE ||
2754 (srv_agent_state & ~(CHK_ST_INPROGRESS | CHK_ST_CONFIGURED | CHK_ST_ENABLED | CHK_ST_PAUSED | CHK_ST_AGENT)))
2755 chunk_appendf(msg, ", invalid srv_agent_state value '%s'", params[10]);
2756
2757 /* validating bk_f_forced_id */
2758 p = NULL;
2759 errno = 0;
2760 bk_f_forced_id = strtol(params[11], &p, 10);
2761 if (p == params[11] || errno == EINVAL || errno == ERANGE || !((bk_f_forced_id == 0) || (bk_f_forced_id == 1)))
2762 chunk_appendf(msg, ", invalid bk_f_forced_id value '%s'", params[11]);
2763
2764 /* validating srv_f_forced_id */
2765 p = NULL;
2766 errno = 0;
2767 srv_f_forced_id = strtol(params[12], &p, 10);
2768 if (p == params[12] || errno == EINVAL || errno == ERANGE || !((srv_f_forced_id == 0) || (srv_f_forced_id == 1)))
2769 chunk_appendf(msg, ", invalid srv_f_forced_id value '%s'", params[12]);
2770
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002771 /* validating srv_fqdn */
2772 fqdn = params[13];
2773 if (fqdn && *fqdn == '-')
2774 fqdn = NULL;
2775 if (fqdn && (strlen(fqdn) > DNS_MAX_NAME_SIZE || invalid_domainchar(fqdn))) {
2776 chunk_appendf(msg, ", invalid srv_fqdn value '%s'", params[13]);
2777 fqdn = NULL;
2778 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002779
Frédéric Lécaille31694712017-08-01 08:47:19 +02002780 port_str = params[14];
2781 if (port_str) {
2782 port = strl2uic(port_str, strlen(port_str));
2783 if (port > USHRT_MAX) {
2784 chunk_appendf(msg, ", invalid srv_port value '%s'", port_str);
2785 port_str = NULL;
2786 }
2787 }
2788
Baptiste Assmann6d0f38f2018-07-02 17:00:54 +02002789 /* SRV record
2790 * NOTE: in HAProxy, SRV records must start with an underscore '_'
2791 */
2792 srvrecord = params[15];
2793 if (srvrecord && *srvrecord != '_')
2794 srvrecord = NULL;
2795
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002796 /* don't apply anything if one error has been detected */
Willy Tarreau843b7cb2018-07-13 10:54:26 +02002797 if (msg->data)
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002798 goto out;
2799
Christopher Faulet2a944ee2017-11-07 10:42:54 +01002800 HA_SPIN_LOCK(SERVER_LOCK, &srv->lock);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002801 /* recover operational state and apply it to this server
2802 * and all servers tracking this one */
Jérôme Magninf57afa42019-01-20 11:27:40 +01002803 srv->check.health = srv_check_health;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002804 switch (srv_op_state) {
2805 case SRV_ST_STOPPED:
2806 srv->check.health = 0;
Emeric Brun5a133512017-10-19 14:42:30 +02002807 srv_set_stopped(srv, "changed from server-state after a reload", NULL);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002808 break;
2809 case SRV_ST_STARTING:
Jérôme Magninf57afa42019-01-20 11:27:40 +01002810 /* If rise == 1 there is no STARTING state, let's switch to
2811 * RUNNING
2812 */
2813 if (srv->check.rise == 1) {
2814 srv->check.health = srv->check.rise + srv->check.fall - 1;
2815 srv_set_running(srv, "", NULL);
2816 break;
2817 }
2818 if (srv->check.health < 1 || srv->check.health >= srv->check.rise)
2819 srv->check.health = srv->check.rise - 1;
Emeric Brun52a91d32017-08-31 14:41:55 +02002820 srv->next_state = srv_op_state;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002821 break;
2822 case SRV_ST_STOPPING:
Jérôme Magninf57afa42019-01-20 11:27:40 +01002823 /* If fall == 1 there is no STOPPING state, let's switch to
2824 * STOPPED
2825 */
2826 if (srv->check.fall == 1) {
2827 srv->check.health = 0;
2828 srv_set_stopped(srv, "changed from server-state after a reload", NULL);
2829 break;
2830 }
2831 if (srv->check.health < srv->check.rise ||
2832 srv->check.health > srv->check.rise + srv->check.fall - 2)
2833 srv->check.health = srv->check.rise;
Emeric Brun5a133512017-10-19 14:42:30 +02002834 srv_set_stopping(srv, "changed from server-state after a reload", NULL);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002835 break;
2836 case SRV_ST_RUNNING:
2837 srv->check.health = srv->check.rise + srv->check.fall - 1;
Emeric Brun5a133512017-10-19 14:42:30 +02002838 srv_set_running(srv, "", NULL);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002839 break;
2840 }
2841
2842 /* When applying server state, the following rules apply:
2843 * - in case of a configuration change, we apply the setting from the new
2844 * configuration, regardless of old running state
2845 * - if no configuration change, we apply old running state only if old running
2846 * state is different from new configuration state
2847 */
2848 /* configuration has changed */
Emeric Brun52a91d32017-08-31 14:41:55 +02002849 if ((srv_admin_state & SRV_ADMF_CMAINT) != (srv->next_admin & SRV_ADMF_CMAINT)) {
2850 if (srv->next_admin & SRV_ADMF_CMAINT)
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002851 srv_adm_set_maint(srv);
2852 else
2853 srv_adm_set_ready(srv);
2854 }
2855 /* configuration is the same, let's compate old running state and new conf state */
2856 else {
Emeric Brun52a91d32017-08-31 14:41:55 +02002857 if (srv_admin_state & SRV_ADMF_FMAINT && !(srv->next_admin & SRV_ADMF_CMAINT))
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002858 srv_adm_set_maint(srv);
Emeric Brun52a91d32017-08-31 14:41:55 +02002859 else if (!(srv_admin_state & SRV_ADMF_FMAINT) && (srv->next_admin & SRV_ADMF_CMAINT))
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002860 srv_adm_set_ready(srv);
2861 }
2862 /* apply drain mode if server is currently enabled */
Emeric Brun52a91d32017-08-31 14:41:55 +02002863 if (!(srv->next_admin & SRV_ADMF_FMAINT) && (srv_admin_state & SRV_ADMF_FDRAIN)) {
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002864 /* The SRV_ADMF_FDRAIN flag is inherited when srv->iweight is 0
Willy Tarreau22cace22016-11-03 18:19:49 +01002865 * (srv->iweight is the weight set up in configuration).
2866 * There are two possible reasons for FDRAIN to have been present :
2867 * - previous config weight was zero
2868 * - "set server b/s drain" was sent to the CLI
2869 *
2870 * In the first case, we simply want to drop this drain state
2871 * if the new weight is not zero anymore, meaning the administrator
2872 * has intentionally turned the weight back to a positive value to
2873 * enable the server again after an operation. In the second case,
2874 * the drain state was forced on the CLI regardless of the config's
2875 * weight so we don't want a change to the config weight to lose this
2876 * status. What this means is :
2877 * - if previous weight was 0 and new one is >0, drop the DRAIN state.
2878 * - if the previous weight was >0, keep it.
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002879 */
Willy Tarreau22cace22016-11-03 18:19:49 +01002880 if (srv_iweight > 0 || srv->iweight == 0)
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002881 srv_adm_set_drain(srv);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002882 }
2883
2884 srv->last_change = date.tv_sec - srv_last_time_change;
2885 srv->check.status = srv_check_status;
2886 srv->check.result = srv_check_result;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002887
2888 /* Only case we want to apply is removing ENABLED flag which could have been
2889 * done by the "disable health" command over the stats socket
2890 */
2891 if ((srv->check.state & CHK_ST_CONFIGURED) &&
2892 (srv_check_state & CHK_ST_CONFIGURED) &&
2893 !(srv_check_state & CHK_ST_ENABLED))
2894 srv->check.state &= ~CHK_ST_ENABLED;
2895
2896 /* Only case we want to apply is removing ENABLED flag which could have been
2897 * done by the "disable agent" command over the stats socket
2898 */
2899 if ((srv->agent.state & CHK_ST_CONFIGURED) &&
2900 (srv_agent_state & CHK_ST_CONFIGURED) &&
2901 !(srv_agent_state & CHK_ST_ENABLED))
2902 srv->agent.state &= ~CHK_ST_ENABLED;
2903
Baptiste Assmann6076d1c2015-09-17 22:53:59 +02002904 /* We want to apply the previous 'running' weight (srv_uweight) only if there
2905 * was no change in the configuration: both previous and new iweight are equals
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002906 *
Baptiste Assmann6076d1c2015-09-17 22:53:59 +02002907 * It means that a configuration file change has precedence over a unix socket change
2908 * for server's weight
2909 *
2910 * by default, HAProxy applies the following weight when parsing the configuration
2911 * srv->uweight = srv->iweight
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002912 */
Baptiste Assmann6076d1c2015-09-17 22:53:59 +02002913 if (srv_iweight == srv->iweight) {
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002914 srv->uweight = srv_uweight;
2915 }
Willy Tarreau3ff577e2018-08-02 11:48:52 +02002916 server_recalc_eweight(srv, 1);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002917
Willy Tarreaue5a60682016-11-09 14:54:53 +01002918 /* load server IP address */
Daniel Corbett9215ffa2018-05-19 19:43:24 -04002919 if (strcmp(params[0], "-"))
2920 srv->lastaddr = strdup(params[0]);
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002921
2922 if (fqdn && srv->hostname) {
2923 if (!strcmp(srv->hostname, fqdn)) {
2924 /* Here we reset the 'set from stats socket FQDN' flag
2925 * to support such transitions:
2926 * Let's say initial FQDN value is foo1 (in configuration file).
2927 * - FQDN changed from stats socket, from foo1 to foo2 value,
2928 * - FQDN changed again from file configuration (with the same previous value
2929 set from stats socket, from foo1 to foo2 value),
2930 * - reload for any other reason than a FQDN modification,
2931 * the configuration file FQDN matches the fqdn server state file value.
2932 * So we must reset the 'set from stats socket FQDN' flag to be consistent with
Joseph Herlant44466822018-11-15 08:57:51 -08002933 * any further FQDN modification.
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002934 */
Emeric Brun52a91d32017-08-31 14:41:55 +02002935 srv->next_admin &= ~SRV_ADMF_HMAINT;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002936 }
2937 else {
2938 /* If the FDQN has been changed from stats socket,
2939 * apply fqdn state file value (which is the value set
2940 * from stats socket).
Baptiste Assmann13a92322019-06-07 09:40:55 +02002941 * Also ensure the runtime resolver will process this resolution.
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002942 */
2943 if (fqdn_set_by_cli) {
Olivier Houchardd16bfe62017-10-31 15:21:19 +01002944 srv_set_fqdn(srv, fqdn, 0);
Baptiste Assmann13a92322019-06-07 09:40:55 +02002945 srv->flags &= ~SRV_F_NO_RESOLUTION;
Emeric Brun52a91d32017-08-31 14:41:55 +02002946 srv->next_admin |= SRV_ADMF_HMAINT;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002947 }
2948 }
2949 }
Baptiste Assmann6d0f38f2018-07-02 17:00:54 +02002950 /* If all the conditions below are validated, this means
2951 * we're evaluating a server managed by SRV resolution
2952 */
2953 else if (fqdn && !srv->hostname && srvrecord) {
2954 int res;
2955
2956 /* we can't apply previous state if SRV record has changed */
2957 if (srv->srvrq && strcmp(srv->srvrq->name, srvrecord) != 0) {
2958 chunk_appendf(msg, ", SRV record mismatch between configuration ('%s') and state file ('%s) for server '%s'. Previous state not applied", srv->srvrq->name, srvrecord, srv->id);
2959 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
2960 goto out;
2961 }
2962
2963 /* create or find a SRV resolution for this srv record */
2964 if (srv->srvrq == NULL && (srv->srvrq = find_srvrq_by_name(srvrecord, srv->proxy)) == NULL)
2965 srv->srvrq = new_dns_srvrq(srv, srvrecord);
2966 if (srv->srvrq == NULL) {
2967 chunk_appendf(msg, ", can't create or find SRV resolution '%s' for server '%s'", srvrecord, srv->id);
2968 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
2969 goto out;
2970 }
2971
2972 /* prepare DNS resolution for this server */
2973 res = srv_prepare_for_resolution(srv, fqdn);
2974 if (res == -1) {
2975 chunk_appendf(msg, ", can't allocate memory for DNS resolution for server '%s'", srv->id);
2976 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
2977 goto out;
2978 }
2979
2980 /* configure check.port accordingly */
2981 if ((srv->check.state & CHK_ST_CONFIGURED) &&
2982 !(srv->flags & SRV_F_CHECKPORT))
2983 srv->check.port = port;
2984
2985 /* Unset SRV_F_MAPPORTS for SRV records.
2986 * SRV_F_MAPPORTS is unfortunately set by parse_server()
2987 * because no ports are provided in the configuration file.
2988 * This is because HAProxy will use the port found into the SRV record.
2989 */
2990 srv->flags &= ~SRV_F_MAPPORTS;
2991 }
Frédéric Lécailleb418c122017-04-26 11:24:02 +02002992
Frédéric Lécaille31694712017-08-01 08:47:19 +02002993 if (port_str)
2994 srv->svc_port = port;
Christopher Faulet2a944ee2017-11-07 10:42:54 +01002995 HA_SPIN_UNLOCK(SERVER_LOCK, &srv->lock);
Frédéric Lécaille31694712017-08-01 08:47:19 +02002996
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02002997 break;
2998 default:
2999 chunk_appendf(msg, ", version '%d' not supported", version);
3000 }
3001
3002 out:
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003003 if (msg->data) {
Baptiste Assmann0821bb92016-01-21 00:20:50 +01003004 chunk_appendf(msg, "\n");
Christopher Faulet767a84b2017-11-24 16:50:31 +01003005 ha_warning("server-state application failed for server '%s/%s'%s",
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003006 srv->proxy->id, srv->id, msg->area);
Baptiste Assmann0821bb92016-01-21 00:20:50 +01003007 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003008}
3009
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003010
3011/*
3012 * read next line from file <f> and return the server state version if one found.
3013 * If no version is found, then 0 is returned
3014 * Note that this should be the first read on <f>
3015 */
3016static int srv_state_get_version(FILE *f) {
3017 char buf[2];
3018 int ret;
3019
3020 /* first character of first line of the file must contain the version of the export */
3021 if (fgets(buf, 2, f) == NULL) {
3022 return 0;
3023 }
3024
3025 ret = atoi(buf);
3026 if ((ret < SRV_STATE_FILE_VERSION_MIN) ||
3027 (ret > SRV_STATE_FILE_VERSION_MAX))
3028 return 0;
3029
3030 return ret;
3031}
3032
3033
3034/*
3035 * parses server state line stored in <buf> and supposedly in version <version>.
3036 * Set <params> and <srv_params> accordingly.
3037 * In case of error, params[0] is set to NULL.
3038 */
3039static void srv_state_parse_line(char *buf, const int version, char **params, char **srv_params)
3040{
3041 int buflen, arg, srv_arg;
3042 char *cur, *end;
3043
3044 buflen = strlen(buf);
3045 cur = buf;
3046 end = cur + buflen;
3047
3048 /* we need at least one character */
3049 if (buflen == 0) {
3050 params[0] = NULL;
3051 return;
3052 }
3053
3054 /* ignore blank characters at the beginning of the line */
Willy Tarreau90807112020-02-25 08:16:33 +01003055 while (isspace((unsigned char)*cur))
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003056 ++cur;
3057
3058 /* Ignore empty or commented lines */
3059 if (cur == end || *cur == '#') {
3060 params[0] = NULL;
3061 return;
3062 }
3063
3064 /* truncated lines */
3065 if (buf[buflen - 1] != '\n') {
3066 //ha_warning("server-state file '%s': truncated line\n", filepath);
3067 params[0] = NULL;
3068 return;
3069 }
3070
3071 /* Removes trailing '\n' */
3072 buf[buflen - 1] = '\0';
3073
3074 /* we're now ready to move the line into *srv_params[] */
3075 params[0] = cur;
3076 arg = 1;
3077 srv_arg = 0;
3078 while (*cur && arg < SRV_STATE_FILE_MAX_FIELDS) {
Willy Tarreau90807112020-02-25 08:16:33 +01003079 if (isspace((unsigned char)*cur)) {
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003080 *cur = '\0';
3081 ++cur;
Willy Tarreau90807112020-02-25 08:16:33 +01003082 while (isspace((unsigned char)*cur))
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003083 ++cur;
3084 switch (version) {
3085 case 1:
3086 /*
3087 * srv_addr: params[4] => srv_params[0]
3088 * srv_op_state: params[5] => srv_params[1]
3089 * srv_admin_state: params[6] => srv_params[2]
3090 * srv_uweight: params[7] => srv_params[3]
3091 * srv_iweight: params[8] => srv_params[4]
3092 * srv_last_time_change: params[9] => srv_params[5]
3093 * srv_check_status: params[10] => srv_params[6]
3094 * srv_check_result: params[11] => srv_params[7]
3095 * srv_check_health: params[12] => srv_params[8]
3096 * srv_check_state: params[13] => srv_params[9]
3097 * srv_agent_state: params[14] => srv_params[10]
3098 * bk_f_forced_id: params[15] => srv_params[11]
3099 * srv_f_forced_id: params[16] => srv_params[12]
3100 * srv_fqdn: params[17] => srv_params[13]
3101 * srv_port: params[18] => srv_params[14]
3102 * srvrecord: params[19] => srv_params[15]
3103 */
3104 if (arg >= 4) {
3105 srv_params[srv_arg] = cur;
3106 ++srv_arg;
3107 }
3108 break;
3109 }
3110
3111 params[arg] = cur;
3112 ++arg;
3113 }
3114 else {
3115 ++cur;
3116 }
3117 }
3118
3119 /* if line is incomplete line, then ignore it.
3120 * otherwise, update useful flags */
3121 switch (version) {
3122 case 1:
3123 if (arg < SRV_STATE_FILE_NB_FIELDS_VERSION_1) {
3124 params[0] = NULL;
3125 return;
3126 }
3127 break;
3128 }
3129
3130 return;
3131}
3132
3133
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003134/* This function parses all the proxies and only take care of the backends (since we're looking for server)
3135 * For each proxy, it does the following:
3136 * - opens its server state file (either one or local one)
3137 * - read whole file, line by line
3138 * - analyse each line to check if it matches our current backend:
3139 * - backend name matches
3140 * - backend id matches if id is forced and name doesn't match
3141 * - if the server pointed by the line is found, then state is applied
3142 *
3143 * If the running backend uuid or id differs from the state file, then HAProxy reports
3144 * a warning.
Willy Tarreau46b7f532018-08-21 11:54:26 +02003145 *
3146 * Grabs the server's lock via srv_update_state().
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003147 */
3148void apply_server_state(void)
3149{
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003150 char mybuf[SRV_STATE_LINE_MAXLEN];
Frédéric Lécailleb418c122017-04-26 11:24:02 +02003151 char *params[SRV_STATE_FILE_MAX_FIELDS] = {0};
3152 char *srv_params[SRV_STATE_FILE_MAX_FIELDS] = {0};
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003153 int version, global_file_version;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003154 FILE *f;
3155 char *filepath;
3156 char globalfilepath[MAXPATHLEN + 1];
3157 char localfilepath[MAXPATHLEN + 1];
3158 int len, fileopenerr, globalfilepathlen, localfilepathlen;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003159 struct proxy *curproxy, *bk;
3160 struct server *srv;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003161 char *line;
3162 char *bkname, *srvname;
3163 struct state_line *st;
3164 struct ebmb_node *node, *next_node;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003165
Willy Tarreau2d067f92020-07-16 06:40:27 +02003166 f = NULL;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003167 global_file_version = 0;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003168 globalfilepathlen = 0;
3169 /* create the globalfilepath variable */
3170 if (global.server_state_file) {
3171 /* absolute path or no base directory provided */
3172 if ((global.server_state_file[0] == '/') || (!global.server_state_base)) {
3173 len = strlen(global.server_state_file);
3174 if (len > MAXPATHLEN) {
3175 globalfilepathlen = 0;
3176 goto globalfileerror;
3177 }
3178 memcpy(globalfilepath, global.server_state_file, len);
3179 globalfilepath[len] = '\0';
3180 globalfilepathlen = len;
3181 }
3182 else if (global.server_state_base) {
3183 len = strlen(global.server_state_base);
Willy Tarreau5dfb6c42018-10-16 19:26:12 +02003184 if (len > MAXPATHLEN) {
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003185 globalfilepathlen = 0;
3186 goto globalfileerror;
3187 }
Olivier Houchard17f8b902018-10-16 18:35:01 +02003188 memcpy(globalfilepath, global.server_state_base, len);
Willy Tarreau5dfb6c42018-10-16 19:26:12 +02003189 globalfilepath[len] = 0;
3190 globalfilepathlen = len;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003191
3192 /* append a slash if needed */
3193 if (!globalfilepathlen || globalfilepath[globalfilepathlen - 1] != '/') {
3194 if (globalfilepathlen + 1 > MAXPATHLEN) {
3195 globalfilepathlen = 0;
3196 goto globalfileerror;
3197 }
3198 globalfilepath[globalfilepathlen++] = '/';
3199 }
3200
3201 len = strlen(global.server_state_file);
3202 if (globalfilepathlen + len > MAXPATHLEN) {
3203 globalfilepathlen = 0;
3204 goto globalfileerror;
3205 }
3206 memcpy(globalfilepath + globalfilepathlen, global.server_state_file, len);
3207 globalfilepathlen += len;
3208 globalfilepath[globalfilepathlen++] = 0;
3209 }
3210 }
3211 globalfileerror:
3212 if (globalfilepathlen == 0)
3213 globalfilepath[0] = '\0';
3214
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003215 /* Load global server state in a tree */
3216 if (globalfilepathlen > 0) {
3217 errno = 0;
3218 f = fopen(globalfilepath, "r");
3219 if (errno)
3220 ha_warning("Can't open global server state file '%s': %s\n", globalfilepath, strerror(errno));
Vedran Furac5d486272019-10-16 14:49:38 +02003221 if (!f)
3222 goto out_load_server_state_in_tree;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003223
3224 global_file_version = srv_state_get_version(f);
3225 if (global_file_version == 0)
3226 goto out_load_server_state_in_tree;
3227
3228 while (fgets(mybuf, SRV_STATE_LINE_MAXLEN, f)) {
3229 line = NULL;
3230
3231 line = strdup(mybuf);
3232 if (line == NULL)
3233 continue;
3234
3235 srv_state_parse_line(mybuf, global_file_version, params, srv_params);
3236 if (params[0] == NULL)
Willy Tarreauca7a5af2019-12-20 17:26:27 +01003237 goto nextline;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003238
3239 /* bkname */
3240 bkname = params[1];
3241 /* srvname */
3242 srvname = params[3];
3243
3244 /* key */
3245 chunk_printf(&trash, "%s %s", bkname, srvname);
3246
3247 /* store line in tree */
Willy Tarreau7d6a1fa2019-12-20 17:18:13 +01003248 st = calloc(1, sizeof(*st) + trash.data + 1);
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003249 if (st == NULL) {
3250 goto nextline;
3251 }
Willy Tarreau7d6a1fa2019-12-20 17:18:13 +01003252 memcpy(st->name_name.key, trash.area, trash.data + 1);
Willy Tarreaufd1aa012019-12-20 17:23:40 +01003253 if (ebst_insert(&state_file, &st->name_name) != &st->name_name) {
3254 /* this is a duplicate key, probably a hand-crafted file,
3255 * drop it!
3256 */
3257 goto nextline;
3258 }
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003259
3260 /* save line */
3261 st->line = line;
3262
3263 continue;
3264
3265 nextline:
3266 /* free up memory in case of error during the processing of the line */
3267 free(line);
3268 }
3269 }
3270 out_load_server_state_in_tree:
3271
Ilya Shipitsindc6e8a92020-07-16 02:02:40 +05003272 if (f) {
3273 fclose(f);
3274 f = NULL;
3275 }
3276
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003277 /* parse all proxies and load states form tree (global file) or from local file */
Olivier Houchardfbc74e82017-11-24 16:54:05 +01003278 for (curproxy = proxies_list; curproxy != NULL; curproxy = curproxy->next) {
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003279 /* servers are only in backends */
3280 if (!(curproxy->cap & PR_CAP_BE))
3281 continue;
3282 fileopenerr = 0;
3283 filepath = NULL;
3284
3285 /* search server state file path and name */
3286 switch (curproxy->load_server_state_from_file) {
3287 /* read servers state from global file */
3288 case PR_SRV_STATE_FILE_GLOBAL:
3289 /* there was an error while generating global server state file path */
3290 if (globalfilepathlen == 0)
3291 continue;
3292 filepath = globalfilepath;
3293 fileopenerr = 1;
3294 break;
3295 /* this backend has its own file */
3296 case PR_SRV_STATE_FILE_LOCAL:
3297 localfilepathlen = 0;
3298 localfilepath[0] = '\0';
3299 len = 0;
3300 /* create the localfilepath variable */
3301 /* absolute path or no base directory provided */
3302 if ((curproxy->server_state_file_name[0] == '/') || (!global.server_state_base)) {
3303 len = strlen(curproxy->server_state_file_name);
3304 if (len > MAXPATHLEN) {
3305 localfilepathlen = 0;
3306 goto localfileerror;
3307 }
3308 memcpy(localfilepath, curproxy->server_state_file_name, len);
3309 localfilepath[len] = '\0';
3310 localfilepathlen = len;
3311 }
3312 else if (global.server_state_base) {
3313 len = strlen(global.server_state_base);
3314 localfilepathlen += len;
3315
3316 if (localfilepathlen > MAXPATHLEN) {
3317 localfilepathlen = 0;
3318 goto localfileerror;
3319 }
Olivier Houchard17f8b902018-10-16 18:35:01 +02003320 memcpy(localfilepath, global.server_state_base, len);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003321 localfilepath[localfilepathlen] = 0;
3322
3323 /* append a slash if needed */
3324 if (!localfilepathlen || localfilepath[localfilepathlen - 1] != '/') {
3325 if (localfilepathlen + 1 > MAXPATHLEN) {
3326 localfilepathlen = 0;
3327 goto localfileerror;
3328 }
3329 localfilepath[localfilepathlen++] = '/';
3330 }
3331
3332 len = strlen(curproxy->server_state_file_name);
3333 if (localfilepathlen + len > MAXPATHLEN) {
3334 localfilepathlen = 0;
3335 goto localfileerror;
3336 }
3337 memcpy(localfilepath + localfilepathlen, curproxy->server_state_file_name, len);
3338 localfilepathlen += len;
3339 localfilepath[localfilepathlen++] = 0;
3340 }
3341 filepath = localfilepath;
3342 localfileerror:
3343 if (localfilepathlen == 0)
3344 localfilepath[0] = '\0';
3345
3346 break;
3347 case PR_SRV_STATE_FILE_NONE:
3348 default:
3349 continue;
3350 }
3351
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003352 /* when global file is used, we get data from the tree
3353 * Note that in such case we don't check backend name neither uuid.
3354 * Backend name can't be wrong since it's used as a key to retrieve the server state
3355 * line from the tree.
3356 */
3357 if (curproxy->load_server_state_from_file == PR_SRV_STATE_FILE_GLOBAL) {
3358 struct server *srv = curproxy->srv;
3359 while (srv) {
3360 struct ebmb_node *node;
3361 struct state_line *st;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003362
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003363 chunk_printf(&trash, "%s %s", curproxy->id, srv->id);
3364 node = ebst_lookup(&state_file, trash.area);
3365 if (!node)
3366 goto next;
Dragan Dosencf4fb032015-11-04 23:03:26 +01003367
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003368 st = container_of(node, struct state_line, name_name);
3369 memcpy(mybuf, st->line, strlen(st->line));
3370 mybuf[strlen(st->line)] = 0;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003371
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003372 srv_state_parse_line(mybuf, global_file_version, params, srv_params);
3373 if (params[0] == NULL)
3374 goto next;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003375
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003376 srv_update_state(srv, global_file_version, srv_params);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003377
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003378 next:
3379 srv = srv->next;
3380 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003381
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003382 continue; /* next proxy in list */
3383 }
3384 else {
3385 /* load 'local' state file */
3386 errno = 0;
3387 f = fopen(filepath, "r");
3388 if (errno && fileopenerr)
3389 ha_warning("Can't open server state file '%s': %s\n", filepath, strerror(errno));
3390 if (!f)
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003391 continue;
3392
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003393 mybuf[0] = '\0';
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003394
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003395 /* first character of first line of the file must contain the version of the export */
3396 version = srv_state_get_version(f);
3397 if (version == 0) {
3398 ha_warning("Can't get version of the server state file '%s'\n", filepath);
3399 goto fileclose;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02003400 }
3401
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003402 while (fgets(mybuf, SRV_STATE_LINE_MAXLEN, f)) {
3403 int bk_f_forced_id = 0;
3404 int check_id = 0;
3405 int check_name = 0;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003406
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003407 srv_state_parse_line(mybuf, version, params, srv_params);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003408
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003409 if (params[0] == NULL) {
3410 continue;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003411 }
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003412
3413 /* if line is incomplete line, then ignore it.
3414 * otherwise, update useful flags */
3415 switch (version) {
3416 case 1:
3417 bk_f_forced_id = (atoi(params[15]) & PR_O_FORCED_ID);
3418 check_id = (atoi(params[0]) == curproxy->uuid);
3419 check_name = (strcmp(curproxy->id, params[1]) == 0);
3420 break;
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003421 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003422
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003423 bk = curproxy;
3424
3425 /* if backend can't be found, let's continue */
3426 if (!check_id && !check_name)
3427 continue;
3428 else if (!check_id && check_name) {
3429 ha_warning("backend ID mismatch: from server state file: '%s', from running config '%d'\n", params[0], bk->uuid);
3430 send_log(bk, LOG_NOTICE, "backend ID mismatch: from server state file: '%s', from running config '%d'\n", params[0], bk->uuid);
3431 }
3432 else if (check_id && !check_name) {
3433 ha_warning("backend name mismatch: from server state file: '%s', from running config '%s'\n", params[1], bk->id);
3434 send_log(bk, LOG_NOTICE, "backend name mismatch: from server state file: '%s', from running config '%s'\n", params[1], bk->id);
3435 /* if name doesn't match, we still want to update curproxy if the backend id
3436 * was forced in previous the previous configuration */
3437 if (!bk_f_forced_id)
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003438 continue;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003439 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003440
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003441 /* look for the server by its name: param[3] */
3442 srv = server_find_best_match(bk, params[3], 0, NULL);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003443
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003444 if (!srv) {
3445 /* if no server found, then warning and continue with next line */
3446 ha_warning("can't find server '%s' in backend '%s'\n",
3447 params[3], params[1]);
3448 send_log(bk, LOG_NOTICE, "can't find server '%s' in backend '%s'\n",
3449 params[3], params[1]);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003450 continue;
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003451 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003452
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003453 /* now we can proceed with server's state update */
3454 srv_update_state(srv, version, srv_params);
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003455 }
Ilya Shipitsindc6e8a92020-07-16 02:02:40 +05003456
3457 fileclose:
3458 fclose(f);
3459
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003460 }
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003461 }
Baptiste Assmannda29fe22019-06-13 13:24:29 +02003462
3463 /* now free memory allocated for the tree */
3464 for (node = ebmb_first(&state_file), next_node = node ? ebmb_next(node) : NULL;
3465 node;
3466 node = next_node, next_node = node ? ebmb_next(node) : NULL) {
3467 st = container_of(node, struct state_line, name_name);
3468 ebmb_delete(&st->name_name);
3469 free(st->line);
3470 free(st);
3471 }
3472
Baptiste Assmanne11cfcd2015-08-19 16:44:03 +02003473}
3474
Simon Horman7d09b9a2013-02-12 10:45:51 +09003475/*
Baptiste Assmann14e40142015-04-14 01:13:07 +02003476 * update a server's current IP address.
3477 * ip is a pointer to the new IP address, whose address family is ip_sin_family.
3478 * ip is in network format.
3479 * updater is a string which contains an information about the requester of the update.
3480 * updater is used if not NULL.
3481 *
3482 * A log line and a stderr warning message is generated based on server's backend options.
Willy Tarreau46b7f532018-08-21 11:54:26 +02003483 *
3484 * Must be called with the server lock held.
Baptiste Assmann14e40142015-04-14 01:13:07 +02003485 */
Thierry Fournierd35b7a62016-02-24 08:23:22 +01003486int update_server_addr(struct server *s, void *ip, int ip_sin_family, const char *updater)
Baptiste Assmann14e40142015-04-14 01:13:07 +02003487{
Christopher Fauletd6c6b5f2020-09-08 10:27:24 +02003488 /* save the new IP family & address if necessary */
3489 switch (ip_sin_family) {
3490 case AF_INET:
3491 if (s->addr.ss_family == ip_sin_family &&
3492 !memcmp(ip, &((struct sockaddr_in *)&s->addr)->sin_addr.s_addr, 4))
3493 return 0;
3494 break;
3495 case AF_INET6:
3496 if (s->addr.ss_family == ip_sin_family &&
3497 !memcmp(ip, &((struct sockaddr_in6 *)&s->addr)->sin6_addr.s6_addr, 16))
3498 return 0;
3499 break;
3500 };
3501
Baptiste Assmann14e40142015-04-14 01:13:07 +02003502 /* generates a log line and a warning on stderr */
3503 if (1) {
3504 /* book enough space for both IPv4 and IPv6 */
3505 char oldip[INET6_ADDRSTRLEN];
3506 char newip[INET6_ADDRSTRLEN];
3507
3508 memset(oldip, '\0', INET6_ADDRSTRLEN);
3509 memset(newip, '\0', INET6_ADDRSTRLEN);
3510
3511 /* copy old IP address in a string */
3512 switch (s->addr.ss_family) {
3513 case AF_INET:
3514 inet_ntop(s->addr.ss_family, &((struct sockaddr_in *)&s->addr)->sin_addr, oldip, INET_ADDRSTRLEN);
3515 break;
3516 case AF_INET6:
3517 inet_ntop(s->addr.ss_family, &((struct sockaddr_in6 *)&s->addr)->sin6_addr, oldip, INET6_ADDRSTRLEN);
3518 break;
Christopher Fauletb0b76072020-09-08 10:38:40 +02003519 default:
3520 strcpy(oldip, "(none)");
3521 break;
Baptiste Assmann14e40142015-04-14 01:13:07 +02003522 };
3523
3524 /* copy new IP address in a string */
3525 switch (ip_sin_family) {
3526 case AF_INET:
3527 inet_ntop(ip_sin_family, ip, newip, INET_ADDRSTRLEN);
3528 break;
3529 case AF_INET6:
3530 inet_ntop(ip_sin_family, ip, newip, INET6_ADDRSTRLEN);
3531 break;
3532 };
3533
3534 /* save log line into a buffer */
3535 chunk_printf(&trash, "%s/%s changed its IP from %s to %s by %s",
3536 s->proxy->id, s->id, oldip, newip, updater);
3537
3538 /* write the buffer on stderr */
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003539 ha_warning("%s.\n", trash.area);
Baptiste Assmann14e40142015-04-14 01:13:07 +02003540
3541 /* send a log */
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003542 send_log(s->proxy, LOG_NOTICE, "%s.\n", trash.area);
Baptiste Assmann14e40142015-04-14 01:13:07 +02003543 }
3544
3545 /* save the new IP family */
3546 s->addr.ss_family = ip_sin_family;
3547 /* save the new IP address */
3548 switch (ip_sin_family) {
3549 case AF_INET:
Willy Tarreaueec1d382016-07-13 11:59:39 +02003550 memcpy(&((struct sockaddr_in *)&s->addr)->sin_addr.s_addr, ip, 4);
Baptiste Assmann14e40142015-04-14 01:13:07 +02003551 break;
3552 case AF_INET6:
3553 memcpy(((struct sockaddr_in6 *)&s->addr)->sin6_addr.s6_addr, ip, 16);
3554 break;
3555 };
Olivier Houchard4e694042017-03-14 20:01:29 +01003556 srv_set_dyncookie(s);
Baptiste Assmann14e40142015-04-14 01:13:07 +02003557
3558 return 0;
3559}
3560
3561/*
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003562 * This function update a server's addr and port only for AF_INET and AF_INET6 families.
3563 *
3564 * Caller can pass its name through <updater> to get it integrated in the response message
3565 * returned by the function.
3566 *
3567 * The function first does the following, in that order:
3568 * - validates the new addr and/or port
3569 * - checks if an update is required (new IP or port is different than current ones)
3570 * - checks the update is allowed:
3571 * - don't switch from/to a family other than AF_INET4 and AF_INET6
3572 * - allow all changes if no CHECKS are configured
3573 * - if CHECK is configured:
3574 * - if switch to port map (SRV_F_MAPPORTS), ensure health check have their own ports
3575 * - applies required changes to both ADDR and PORT if both 'required' and 'allowed'
3576 * conditions are met
Willy Tarreau46b7f532018-08-21 11:54:26 +02003577 *
3578 * Must be called with the server lock held.
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003579 */
3580const char *update_server_addr_port(struct server *s, const char *addr, const char *port, char *updater)
3581{
3582 struct sockaddr_storage sa;
3583 int ret, port_change_required;
3584 char current_addr[INET6_ADDRSTRLEN];
David Carlier327298c2016-11-20 10:42:38 +00003585 uint16_t current_port, new_port;
Willy Tarreau83061a82018-07-13 11:56:34 +02003586 struct buffer *msg;
Olivier Houchard4e694042017-03-14 20:01:29 +01003587 int changed = 0;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003588
3589 msg = get_trash_chunk();
3590 chunk_reset(msg);
3591
3592 if (addr) {
3593 memset(&sa, 0, sizeof(struct sockaddr_storage));
3594 if (str2ip2(addr, &sa, 0) == NULL) {
3595 chunk_printf(msg, "Invalid addr '%s'", addr);
3596 goto out;
3597 }
3598
3599 /* changes are allowed on AF_INET* families only */
3600 if ((sa.ss_family != AF_INET) && (sa.ss_family != AF_INET6)) {
3601 chunk_printf(msg, "Update to families other than AF_INET and AF_INET6 supported only through configuration file");
3602 goto out;
3603 }
3604
3605 /* collecting data currently setup */
3606 memset(current_addr, '\0', sizeof(current_addr));
3607 ret = addr_to_str(&s->addr, current_addr, sizeof(current_addr));
3608 /* changes are allowed on AF_INET* families only */
3609 if ((ret != AF_INET) && (ret != AF_INET6)) {
3610 chunk_printf(msg, "Update for the current server address family is only supported through configuration file");
3611 goto out;
3612 }
3613
3614 /* applying ADDR changes if required and allowed
3615 * ipcmp returns 0 when both ADDR are the same
3616 */
3617 if (ipcmp(&s->addr, &sa) == 0) {
3618 chunk_appendf(msg, "no need to change the addr");
3619 goto port;
3620 }
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003621 ipcpy(&sa, &s->addr);
Olivier Houchard4e694042017-03-14 20:01:29 +01003622 changed = 1;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003623
3624 /* we also need to update check's ADDR only if it uses the server's one */
3625 if ((s->check.state & CHK_ST_CONFIGURED) && (s->flags & SRV_F_CHECKADDR)) {
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003626 ipcpy(&sa, &s->check.addr);
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003627 }
3628
3629 /* we also need to update agent ADDR only if it use the server's one */
3630 if ((s->agent.state & CHK_ST_CONFIGURED) && (s->flags & SRV_F_AGENTADDR)) {
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003631 ipcpy(&sa, &s->agent.addr);
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003632 }
3633
3634 /* update report for caller */
3635 chunk_printf(msg, "IP changed from '%s' to '%s'", current_addr, addr);
3636 }
3637
3638 port:
3639 if (port) {
3640 char sign = '\0';
3641 char *endptr;
3642
3643 if (addr)
3644 chunk_appendf(msg, ", ");
3645
3646 /* collecting data currently setup */
Willy Tarreau04276f32017-01-06 17:41:29 +01003647 current_port = s->svc_port;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003648
3649 /* check if PORT change is required */
3650 port_change_required = 0;
3651
3652 sign = *port;
Ryabin Sergey77ee7522017-01-11 19:39:55 +04003653 errno = 0;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003654 new_port = strtol(port, &endptr, 10);
3655 if ((errno != 0) || (port == endptr)) {
3656 chunk_appendf(msg, "problem converting port '%s' to an int", port);
3657 goto out;
3658 }
3659
3660 /* check if caller triggers a port mapped or offset */
3661 if (sign == '-' || (sign == '+')) {
3662 /* check if server currently uses port map */
3663 if (!(s->flags & SRV_F_MAPPORTS)) {
3664 /* switch from fixed port to port map mandatorily triggers
3665 * a port change */
3666 port_change_required = 1;
3667 /* check is configured
3668 * we're switching from a fixed port to a SRV_F_MAPPORTS (mapped) port
3669 * prevent PORT change if check doesn't have it's dedicated port while switching
3670 * to port mapping */
3671 if ((s->check.state & CHK_ST_CONFIGURED) && !(s->flags & SRV_F_CHECKPORT)) {
3672 chunk_appendf(msg, "can't change <port> to port map because it is incompatible with current health check port configuration (use 'port' statement from the 'server' directive.");
3673 goto out;
3674 }
3675 }
3676 /* we're already using port maps */
3677 else {
3678 port_change_required = current_port != new_port;
3679 }
3680 }
3681 /* fixed port */
3682 else {
3683 port_change_required = current_port != new_port;
3684 }
3685
3686 /* applying PORT changes if required and update response message */
3687 if (port_change_required) {
3688 /* apply new port */
Willy Tarreau04276f32017-01-06 17:41:29 +01003689 s->svc_port = new_port;
Olivier Houchard4e694042017-03-14 20:01:29 +01003690 changed = 1;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003691
3692 /* prepare message */
3693 chunk_appendf(msg, "port changed from '");
3694 if (s->flags & SRV_F_MAPPORTS)
3695 chunk_appendf(msg, "+");
3696 chunk_appendf(msg, "%d' to '", current_port);
3697
3698 if (sign == '-') {
3699 s->flags |= SRV_F_MAPPORTS;
3700 chunk_appendf(msg, "%c", sign);
3701 /* just use for result output */
3702 new_port = -new_port;
3703 }
3704 else if (sign == '+') {
3705 s->flags |= SRV_F_MAPPORTS;
3706 chunk_appendf(msg, "%c", sign);
3707 }
3708 else {
3709 s->flags &= ~SRV_F_MAPPORTS;
3710 }
3711
3712 chunk_appendf(msg, "%d'", new_port);
3713
3714 /* we also need to update health checks port only if it uses server's realport */
3715 if ((s->check.state & CHK_ST_CONFIGURED) && !(s->flags & SRV_F_CHECKPORT)) {
3716 s->check.port = new_port;
3717 }
3718 }
3719 else {
3720 chunk_appendf(msg, "no need to change the port");
3721 }
3722 }
3723
3724out:
William Dauchy6318d332020-05-02 21:52:36 +02003725 if (changed) {
3726 /* force connection cleanup on the given server */
3727 srv_cleanup_connections(s);
Olivier Houchard4e694042017-03-14 20:01:29 +01003728 srv_set_dyncookie(s);
William Dauchy6318d332020-05-02 21:52:36 +02003729 }
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003730 if (updater)
3731 chunk_appendf(msg, " by '%s'", updater);
3732 chunk_appendf(msg, "\n");
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003733 return msg->area;
Baptiste Assmannd458adc2016-08-02 08:18:55 +02003734}
3735
3736
3737/*
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003738 * update server status based on result of name resolution
3739 * returns:
3740 * 0 if server status is updated
3741 * 1 if server status has not changed
Willy Tarreau46b7f532018-08-21 11:54:26 +02003742 *
3743 * Must be called with the server lock held.
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003744 */
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003745int snr_update_srv_status(struct server *s, int has_no_ip)
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003746{
Christopher Faulet67957bd2017-09-27 11:00:59 +02003747 struct dns_resolvers *resolvers = s->resolvers;
3748 struct dns_resolution *resolution = s->dns_requester->resolution;
3749 int exp;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003750
Jerome Magnin012261a2020-07-28 13:38:22 +02003751 /* If resolution is NULL we're dealing with SRV records Additional records */
3752 if (resolution == NULL) {
Baptiste Assmann87138c32020-08-04 10:57:21 +02003753 /* since this server has an IP, it can go back in production */
3754 if (has_no_ip == 0) {
3755 srv_clr_admin_flag(s, SRV_ADMF_RMAINT);
3756 return 1;
3757 }
3758
Jerome Magnin012261a2020-07-28 13:38:22 +02003759 if (s->next_admin & SRV_ADMF_RMAINT)
3760 return 1;
3761
3762 srv_set_admin_flag(s, SRV_ADMF_RMAINT, "entry removed from SRV record");
3763 return 0;
3764 }
3765
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003766 switch (resolution->status) {
3767 case RSLV_STATUS_NONE:
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003768 /* status when HAProxy has just (re)started.
3769 * Nothing to do, since the task is already automatically started */
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003770 break;
3771
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003772 case RSLV_STATUS_VALID:
3773 /*
3774 * resume health checks
3775 * server will be turned back on if health check is safe
3776 */
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003777 if (has_no_ip) {
Emeric Brun52a91d32017-08-31 14:41:55 +02003778 if (s->next_admin & SRV_ADMF_RMAINT)
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003779 return 1;
3780 srv_set_admin_flag(s, SRV_ADMF_RMAINT,
3781 "No IP for server ");
Christopher Faulet67957bd2017-09-27 11:00:59 +02003782 return 0;
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003783 }
Christopher Faulet67957bd2017-09-27 11:00:59 +02003784
Emeric Brun52a91d32017-08-31 14:41:55 +02003785 if (!(s->next_admin & SRV_ADMF_RMAINT))
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003786 return 1;
3787 srv_clr_admin_flag(s, SRV_ADMF_RMAINT);
3788 chunk_printf(&trash, "Server %s/%s administratively READY thanks to valid DNS answer",
3789 s->proxy->id, s->id);
3790
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003791 ha_warning("%s.\n", trash.area);
3792 send_log(s->proxy, LOG_NOTICE, "%s.\n", trash.area);
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003793 return 0;
3794
3795 case RSLV_STATUS_NX:
3796 /* stop server if resolution is NX for a long enough period */
Christopher Faulet67957bd2017-09-27 11:00:59 +02003797 exp = tick_add(resolution->last_valid, resolvers->hold.nx);
3798 if (!tick_is_expired(exp, now_ms))
3799 break;
3800
3801 if (s->next_admin & SRV_ADMF_RMAINT)
3802 return 1;
3803 srv_set_admin_flag(s, SRV_ADMF_RMAINT, "DNS NX status");
3804 return 0;
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003805
3806 case RSLV_STATUS_TIMEOUT:
3807 /* stop server if resolution is TIMEOUT for a long enough period */
Christopher Faulet67957bd2017-09-27 11:00:59 +02003808 exp = tick_add(resolution->last_valid, resolvers->hold.timeout);
3809 if (!tick_is_expired(exp, now_ms))
3810 break;
3811
3812 if (s->next_admin & SRV_ADMF_RMAINT)
3813 return 1;
3814 srv_set_admin_flag(s, SRV_ADMF_RMAINT, "DNS timeout status");
3815 return 0;
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003816
3817 case RSLV_STATUS_REFUSED:
3818 /* stop server if resolution is REFUSED for a long enough period */
Christopher Faulet67957bd2017-09-27 11:00:59 +02003819 exp = tick_add(resolution->last_valid, resolvers->hold.refused);
3820 if (!tick_is_expired(exp, now_ms))
3821 break;
3822
3823 if (s->next_admin & SRV_ADMF_RMAINT)
3824 return 1;
3825 srv_set_admin_flag(s, SRV_ADMF_RMAINT, "DNS refused status");
3826 return 0;
Baptiste Assmann3b9fe9f2016-11-02 22:58:18 +01003827
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003828 default:
Christopher Faulet67957bd2017-09-27 11:00:59 +02003829 /* stop server if resolution failed for a long enough period */
3830 exp = tick_add(resolution->last_valid, resolvers->hold.other);
3831 if (!tick_is_expired(exp, now_ms))
3832 break;
3833
3834 if (s->next_admin & SRV_ADMF_RMAINT)
3835 return 1;
3836 srv_set_admin_flag(s, SRV_ADMF_RMAINT, "unspecified DNS error");
3837 return 0;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003838 }
3839
3840 return 1;
3841}
3842
3843/*
3844 * Server Name Resolution valid response callback
3845 * It expects:
3846 * - <nameserver>: the name server which answered the valid response
3847 * - <response>: buffer containing a valid DNS response
3848 * - <response_len>: size of <response>
3849 * It performs the following actions:
3850 * - ignore response if current ip found and server family not met
3851 * - update with first new ip found if family is met and current IP is not found
3852 * returns:
3853 * 0 on error
3854 * 1 when no error or safe ignore
Olivier Houchard28381072017-11-06 17:30:28 +01003855 *
3856 * Must be called with server lock held
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003857 */
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003858int snr_resolution_cb(struct dns_requester *requester, struct dns_nameserver *nameserver)
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003859{
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003860 struct server *s = NULL;
3861 struct dns_resolution *resolution = NULL;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003862 void *serverip, *firstip;
3863 short server_sin_family, firstip_sin_family;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003864 int ret;
Willy Tarreau83061a82018-07-13 11:56:34 +02003865 struct buffer *chk = get_trash_chunk();
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003866 int has_no_ip = 0;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003867
Christopher Faulet67957bd2017-09-27 11:00:59 +02003868 s = objt_server(requester->owner);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003869 if (!s)
3870 return 1;
3871
Christopher Faulet67957bd2017-09-27 11:00:59 +02003872 resolution = s->dns_requester->resolution;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003873
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003874 /* initializing variables */
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003875 firstip = NULL; /* pointer to the first valid response found */
3876 /* it will be used as the new IP if a change is required */
3877 firstip_sin_family = AF_UNSPEC;
3878 serverip = NULL; /* current server IP address */
3879
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003880 /* initializing server IP pointer */
3881 server_sin_family = s->addr.ss_family;
3882 switch (server_sin_family) {
3883 case AF_INET:
3884 serverip = &((struct sockaddr_in *)&s->addr)->sin_addr.s_addr;
3885 break;
3886
3887 case AF_INET6:
3888 serverip = &((struct sockaddr_in6 *)&s->addr)->sin6_addr.s6_addr;
3889 break;
3890
Willy Tarreau3acfcd12017-01-06 19:18:32 +01003891 case AF_UNSPEC:
3892 break;
3893
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003894 default:
3895 goto invalid;
3896 }
3897
Baptiste Assmann729c9012017-05-22 15:13:10 +02003898 ret = dns_get_ip_from_response(&resolution->response, &s->dns_opts,
Thierry Fournierada34842016-02-17 21:25:09 +01003899 serverip, server_sin_family, &firstip,
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02003900 &firstip_sin_family, s);
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003901
3902 switch (ret) {
3903 case DNS_UPD_NO:
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003904 goto update_status;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003905
3906 case DNS_UPD_SRVIP_NOT_FOUND:
3907 goto save_ip;
3908
3909 case DNS_UPD_CNAME:
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003910 goto invalid;
3911
Baptiste Assmann0453a1d2015-09-09 00:51:08 +02003912 case DNS_UPD_NO_IP_FOUND:
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003913 has_no_ip = 1;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003914 goto update_status;
Baptiste Assmann0453a1d2015-09-09 00:51:08 +02003915
Baptiste Assmannfad03182015-10-28 02:03:32 +01003916 case DNS_UPD_NAME_ERROR:
Baptiste Assmannfad03182015-10-28 02:03:32 +01003917 /* update resolution status to OTHER error type */
Christopher Faulet67957bd2017-09-27 11:00:59 +02003918 resolution->status = RSLV_STATUS_OTHER;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003919 goto update_status;
Baptiste Assmannfad03182015-10-28 02:03:32 +01003920
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003921 default:
3922 goto invalid;
3923
3924 }
3925
3926 save_ip:
Christopher Faulet67957bd2017-09-27 11:00:59 +02003927 if (nameserver) {
3928 nameserver->counters.update++;
3929 /* save the first ip we found */
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003930 chunk_printf(chk, "%s/%s", nameserver->resolvers->id, nameserver->id);
Christopher Faulet67957bd2017-09-27 11:00:59 +02003931 }
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003932 else
3933 chunk_printf(chk, "DNS cache");
Willy Tarreau843b7cb2018-07-13 10:54:26 +02003934 update_server_addr(s, firstip, firstip_sin_family, (char *) chk->area);
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003935
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003936 update_status:
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003937 snr_update_srv_status(s, has_no_ip);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003938 return 1;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003939
3940 invalid:
Christopher Faulet3bbd65b2017-09-15 11:55:45 +02003941 if (nameserver) {
Christopher Faulet67957bd2017-09-27 11:00:59 +02003942 nameserver->counters.invalid++;
3943 goto update_status;
Christopher Faulet3bbd65b2017-09-15 11:55:45 +02003944 }
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003945 snr_update_srv_status(s, has_no_ip);
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003946 return 0;
3947}
3948
3949/*
3950 * Server Name Resolution error management callback
3951 * returns:
3952 * 0 on error
3953 * 1 when no error or safe ignore
Willy Tarreau46b7f532018-08-21 11:54:26 +02003954 *
3955 * Grabs the server's lock.
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003956 */
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003957int snr_resolution_error_cb(struct dns_requester *requester, int error_code)
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003958{
Christopher Faulet67957bd2017-09-27 11:00:59 +02003959 struct server *s;
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003960
Christopher Faulet67957bd2017-09-27 11:00:59 +02003961 s = objt_server(requester->owner);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02003962 if (!s)
3963 return 1;
Christopher Faulet2a944ee2017-11-07 10:42:54 +01003964 HA_SPIN_LOCK(SERVER_LOCK, &s->lock);
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003965 snr_update_srv_status(s, 0);
Christopher Faulet2a944ee2017-11-07 10:42:54 +01003966 HA_SPIN_UNLOCK(SERVER_LOCK, &s->lock);
Baptiste Assmanna68ca962015-04-14 01:15:08 +02003967 return 1;
3968}
3969
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02003970/*
3971 * Function to check if <ip> is already affected to a server in the backend
Olivier Houcharda8c6db82017-07-06 18:46:47 +02003972 * which owns <srv> and is up.
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02003973 * It returns a pointer to the first server found or NULL if <ip> is not yet
3974 * assigned.
Olivier Houchard28381072017-11-06 17:30:28 +01003975 *
3976 * Must be called with server lock held
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02003977 */
3978struct server *snr_check_ip_callback(struct server *srv, void *ip, unsigned char *ip_family)
3979{
3980 struct server *tmpsrv;
3981 struct proxy *be;
3982
3983 if (!srv)
3984 return NULL;
3985
3986 be = srv->proxy;
3987 for (tmpsrv = be->srv; tmpsrv; tmpsrv = tmpsrv->next) {
Emeric Brune9fd6b52017-11-02 17:20:39 +01003988 /* we found the current server is the same, ignore it */
3989 if (srv == tmpsrv)
3990 continue;
3991
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02003992 /* We want to compare the IP in the record with the IP of the servers in the
3993 * same backend, only if:
3994 * * DNS resolution is enabled on the server
3995 * * the hostname used for the resolution by our server is the same than the
3996 * one used for the server found in the backend
3997 * * the server found in the backend is not our current server
3998 */
Christopher Faulet2a944ee2017-11-07 10:42:54 +01003999 HA_SPIN_LOCK(SERVER_LOCK, &tmpsrv->lock);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004000 if ((tmpsrv->hostname_dn == NULL) ||
4001 (srv->hostname_dn_len != tmpsrv->hostname_dn_len) ||
4002 (strcmp(srv->hostname_dn, tmpsrv->hostname_dn) != 0) ||
Emeric Brune9fd6b52017-11-02 17:20:39 +01004003 (srv->puid == tmpsrv->puid)) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004004 HA_SPIN_UNLOCK(SERVER_LOCK, &tmpsrv->lock);
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004005 continue;
Emeric Brune9fd6b52017-11-02 17:20:39 +01004006 }
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004007
Olivier Houcharda8c6db82017-07-06 18:46:47 +02004008 /* If the server has been taken down, don't consider it */
Emeric Brune9fd6b52017-11-02 17:20:39 +01004009 if (tmpsrv->next_admin & SRV_ADMF_RMAINT) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004010 HA_SPIN_UNLOCK(SERVER_LOCK, &tmpsrv->lock);
Olivier Houcharda8c6db82017-07-06 18:46:47 +02004011 continue;
Emeric Brune9fd6b52017-11-02 17:20:39 +01004012 }
Olivier Houcharda8c6db82017-07-06 18:46:47 +02004013
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004014 /* At this point, we have 2 different servers using the same DNS hostname
4015 * for their respective resolution.
4016 */
4017 if (*ip_family == tmpsrv->addr.ss_family &&
4018 ((tmpsrv->addr.ss_family == AF_INET &&
4019 memcmp(ip, &((struct sockaddr_in *)&tmpsrv->addr)->sin_addr, 4) == 0) ||
4020 (tmpsrv->addr.ss_family == AF_INET6 &&
4021 memcmp(ip, &((struct sockaddr_in6 *)&tmpsrv->addr)->sin6_addr, 16) == 0))) {
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004022 HA_SPIN_UNLOCK(SERVER_LOCK, &tmpsrv->lock);
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004023 return tmpsrv;
4024 }
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004025 HA_SPIN_UNLOCK(SERVER_LOCK, &tmpsrv->lock);
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004026 }
4027
Emeric Brune9fd6b52017-11-02 17:20:39 +01004028
Baptiste Assmannfb7091e2017-05-03 15:43:12 +02004029 return NULL;
4030}
4031
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004032/* Sets the server's address (srv->addr) from srv->hostname using the libc's
4033 * resolver. This is suited for initial address configuration. Returns 0 on
4034 * success otherwise a non-zero error code. In case of error, *err_code, if
4035 * not NULL, is filled up.
4036 */
4037int srv_set_addr_via_libc(struct server *srv, int *err_code)
4038{
4039 if (str2ip2(srv->hostname, &srv->addr, 1) == NULL) {
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004040 if (err_code)
Willy Tarreau465b6e52016-11-07 19:19:22 +01004041 *err_code |= ERR_WARN;
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004042 return 1;
4043 }
4044 return 0;
4045}
4046
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004047/* Set the server's FDQN (->hostname) from <hostname>.
4048 * Returns -1 if failed, 0 if not.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004049 *
4050 * Must be called with the server lock held.
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004051 */
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004052int srv_set_fqdn(struct server *srv, const char *hostname, int dns_locked)
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004053{
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004054 struct dns_resolution *resolution;
Christopher Faulet67957bd2017-09-27 11:00:59 +02004055 char *hostname_dn;
4056 int hostname_len, hostname_dn_len;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004057
Frédéric Lécaille5afb3cf2018-08-21 15:04:23 +02004058 /* Note that the server lock is already held. */
4059 if (!srv->resolvers)
4060 return -1;
4061
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004062 if (!dns_locked)
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004063 HA_SPIN_LOCK(DNS_LOCK, &srv->resolvers->lock);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004064 /* run time DNS resolution was not active for this server
4065 * and we can't enable it at run time for now.
4066 */
4067 if (!srv->dns_requester)
Christopher Fauletb2812a62017-10-04 16:17:58 +02004068 goto err;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004069
4070 chunk_reset(&trash);
Christopher Faulet67957bd2017-09-27 11:00:59 +02004071 hostname_len = strlen(hostname);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004072 hostname_dn = trash.area;
Christopher Faulet67957bd2017-09-27 11:00:59 +02004073 hostname_dn_len = dns_str_to_dn_label(hostname, hostname_len + 1,
4074 hostname_dn, trash.size);
4075 if (hostname_dn_len == -1)
Christopher Fauletb2812a62017-10-04 16:17:58 +02004076 goto err;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004077
Christopher Faulet67957bd2017-09-27 11:00:59 +02004078 resolution = srv->dns_requester->resolution;
4079 if (resolution &&
4080 resolution->hostname_dn &&
4081 !strcmp(resolution->hostname_dn, hostname_dn))
Christopher Fauletb2812a62017-10-04 16:17:58 +02004082 goto end;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004083
Christopher Faulet67957bd2017-09-27 11:00:59 +02004084 dns_unlink_resolution(srv->dns_requester);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004085
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004086 free(srv->hostname);
4087 free(srv->hostname_dn);
Christopher Faulet67957bd2017-09-27 11:00:59 +02004088 srv->hostname = strdup(hostname);
4089 srv->hostname_dn = strdup(hostname_dn);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004090 srv->hostname_dn_len = hostname_dn_len;
4091 if (!srv->hostname || !srv->hostname_dn)
Christopher Fauletb2812a62017-10-04 16:17:58 +02004092 goto err;
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004093
Baptiste Assmann13a92322019-06-07 09:40:55 +02004094 if (srv->flags & SRV_F_NO_RESOLUTION)
4095 goto end;
4096
Olivier Houchard55dcdf42017-11-06 15:15:04 +01004097 if (dns_link_resolution(srv, OBJ_TYPE_SERVER, 1) == -1)
Christopher Fauletb2812a62017-10-04 16:17:58 +02004098 goto err;
4099
4100 end:
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004101 if (!dns_locked)
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004102 HA_SPIN_UNLOCK(DNS_LOCK, &srv->resolvers->lock);
Baptiste Assmann201c07f2017-05-22 15:17:15 +02004103 return 0;
Christopher Fauletb2812a62017-10-04 16:17:58 +02004104
4105 err:
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004106 if (!dns_locked)
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004107 HA_SPIN_UNLOCK(DNS_LOCK, &srv->resolvers->lock);
Christopher Fauletb2812a62017-10-04 16:17:58 +02004108 return -1;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004109}
4110
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004111/* Sets the server's address (srv->addr) from srv->lastaddr which was filled
4112 * from the state file. This is suited for initial address configuration.
4113 * Returns 0 on success otherwise a non-zero error code. In case of error,
4114 * *err_code, if not NULL, is filled up.
4115 */
4116static int srv_apply_lastaddr(struct server *srv, int *err_code)
4117{
4118 if (!str2ip2(srv->lastaddr, &srv->addr, 0)) {
4119 if (err_code)
4120 *err_code |= ERR_WARN;
4121 return 1;
4122 }
4123 return 0;
4124}
4125
Willy Tarreau25e51522016-11-04 15:10:17 +01004126/* returns 0 if no error, otherwise a combination of ERR_* flags */
4127static int srv_iterate_initaddr(struct server *srv)
4128{
4129 int return_code = 0;
4130 int err_code;
4131 unsigned int methods;
4132
4133 methods = srv->init_addr_methods;
4134 if (!methods) { // default to "last,libc"
4135 srv_append_initaddr(&methods, SRV_IADDR_LAST);
4136 srv_append_initaddr(&methods, SRV_IADDR_LIBC);
4137 }
4138
Willy Tarreau3eed10e2016-11-07 21:03:16 +01004139 /* "-dr" : always append "none" so that server addresses resolution
4140 * failures are silently ignored, this is convenient to validate some
4141 * configs out of their environment.
4142 */
4143 if (global.tune.options & GTUNE_RESOLVE_DONTFAIL)
4144 srv_append_initaddr(&methods, SRV_IADDR_NONE);
4145
Willy Tarreau25e51522016-11-04 15:10:17 +01004146 while (methods) {
4147 err_code = 0;
4148 switch (srv_get_next_initaddr(&methods)) {
4149 case SRV_IADDR_LAST:
4150 if (!srv->lastaddr)
4151 continue;
4152 if (srv_apply_lastaddr(srv, &err_code) == 0)
Olivier Houchard4e694042017-03-14 20:01:29 +01004153 goto out;
Willy Tarreau25e51522016-11-04 15:10:17 +01004154 return_code |= err_code;
4155 break;
4156
4157 case SRV_IADDR_LIBC:
4158 if (!srv->hostname)
4159 continue;
4160 if (srv_set_addr_via_libc(srv, &err_code) == 0)
Olivier Houchard4e694042017-03-14 20:01:29 +01004161 goto out;
Willy Tarreau25e51522016-11-04 15:10:17 +01004162 return_code |= err_code;
4163 break;
4164
Willy Tarreau37ebe122016-11-04 15:17:58 +01004165 case SRV_IADDR_NONE:
4166 srv_set_admin_flag(srv, SRV_ADMF_RMAINT, NULL);
Willy Tarreau465b6e52016-11-07 19:19:22 +01004167 if (return_code) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01004168 ha_warning("parsing [%s:%d] : 'server %s' : could not resolve address '%s', disabling server.\n",
4169 srv->conf.file, srv->conf.line, srv->id, srv->hostname);
Willy Tarreau465b6e52016-11-07 19:19:22 +01004170 }
Willy Tarreau37ebe122016-11-04 15:17:58 +01004171 return return_code;
4172
Willy Tarreau4310d362016-11-02 15:05:56 +01004173 case SRV_IADDR_IP:
4174 ipcpy(&srv->init_addr, &srv->addr);
4175 if (return_code) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01004176 ha_warning("parsing [%s:%d] : 'server %s' : could not resolve address '%s', falling back to configured address.\n",
4177 srv->conf.file, srv->conf.line, srv->id, srv->hostname);
Willy Tarreau4310d362016-11-02 15:05:56 +01004178 }
Olivier Houchard4e694042017-03-14 20:01:29 +01004179 goto out;
Willy Tarreau4310d362016-11-02 15:05:56 +01004180
Willy Tarreau25e51522016-11-04 15:10:17 +01004181 default: /* unhandled method */
4182 break;
4183 }
4184 }
4185
4186 if (!return_code) {
Christopher Faulet767a84b2017-11-24 16:50:31 +01004187 ha_alert("parsing [%s:%d] : 'server %s' : no method found to resolve address '%s'\n",
Willy Tarreau25e51522016-11-04 15:10:17 +01004188 srv->conf.file, srv->conf.line, srv->id, srv->hostname);
4189 }
Willy Tarreau465b6e52016-11-07 19:19:22 +01004190 else {
Christopher Faulet767a84b2017-11-24 16:50:31 +01004191 ha_alert("parsing [%s:%d] : 'server %s' : could not resolve address '%s'.\n",
Willy Tarreau465b6e52016-11-07 19:19:22 +01004192 srv->conf.file, srv->conf.line, srv->id, srv->hostname);
4193 }
Willy Tarreau25e51522016-11-04 15:10:17 +01004194
4195 return_code |= ERR_ALERT | ERR_FATAL;
4196 return return_code;
Olivier Houchard4e694042017-03-14 20:01:29 +01004197out:
4198 srv_set_dyncookie(srv);
4199 return return_code;
Willy Tarreau25e51522016-11-04 15:10:17 +01004200}
4201
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004202/*
4203 * This function parses all backends and all servers within each backend
4204 * and performs servers' addr resolution based on information provided by:
4205 * - configuration file
4206 * - server-state file (states provided by an 'old' haproxy process)
4207 *
4208 * Returns 0 if no error, otherwise, a combination of ERR_ flags.
4209 */
4210int srv_init_addr(void)
4211{
4212 struct proxy *curproxy;
4213 int return_code = 0;
4214
Olivier Houchardfbc74e82017-11-24 16:54:05 +01004215 curproxy = proxies_list;
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004216 while (curproxy) {
4217 struct server *srv;
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004218
4219 /* servers are in backend only */
4220 if (!(curproxy->cap & PR_CAP_BE))
4221 goto srv_init_addr_next;
4222
Willy Tarreau25e51522016-11-04 15:10:17 +01004223 for (srv = curproxy->srv; srv; srv = srv->next)
Willy Tarreau3d609a72017-09-06 14:22:45 +02004224 if (srv->hostname)
4225 return_code |= srv_iterate_initaddr(srv);
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004226
4227 srv_init_addr_next:
4228 curproxy = curproxy->next;
4229 }
4230
4231 return return_code;
4232}
4233
Willy Tarreau46b7f532018-08-21 11:54:26 +02004234/*
4235 * Must be called with the server lock held.
4236 */
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004237const char *update_server_fqdn(struct server *server, const char *fqdn, const char *updater, int dns_locked)
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004238{
4239
Willy Tarreau83061a82018-07-13 11:56:34 +02004240 struct buffer *msg;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004241
4242 msg = get_trash_chunk();
4243 chunk_reset(msg);
4244
Olivier Houchard8da5f982017-08-04 18:35:36 +02004245 if (server->hostname && !strcmp(fqdn, server->hostname)) {
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004246 chunk_appendf(msg, "no need to change the FDQN");
4247 goto out;
4248 }
4249
4250 if (strlen(fqdn) > DNS_MAX_NAME_SIZE || invalid_domainchar(fqdn)) {
4251 chunk_appendf(msg, "invalid fqdn '%s'", fqdn);
4252 goto out;
4253 }
4254
4255 chunk_appendf(msg, "%s/%s changed its FQDN from %s to %s",
4256 server->proxy->id, server->id, server->hostname, fqdn);
4257
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004258 if (srv_set_fqdn(server, fqdn, dns_locked) < 0) {
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004259 chunk_reset(msg);
4260 chunk_appendf(msg, "could not update %s/%s FQDN",
4261 server->proxy->id, server->id);
4262 goto out;
4263 }
4264
4265 /* Flag as FQDN set from stats socket. */
Emeric Brun52a91d32017-08-31 14:41:55 +02004266 server->next_admin |= SRV_ADMF_HMAINT;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004267
4268 out:
4269 if (updater)
4270 chunk_appendf(msg, " by '%s'", updater);
4271 chunk_appendf(msg, "\n");
4272
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004273 return msg->area;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004274}
4275
4276
Willy Tarreau21b069d2016-11-23 17:15:08 +01004277/* Expects to find a backend and a server in <arg> under the form <backend>/<server>,
4278 * and returns the pointer to the server. Otherwise, display adequate error messages
Willy Tarreau3b6e5472016-11-24 15:53:53 +01004279 * on the CLI, sets the CLI's state to CLI_ST_PRINT and returns NULL. This is only
Willy Tarreau21b069d2016-11-23 17:15:08 +01004280 * used for CLI commands requiring a server name.
4281 * Important: the <arg> is modified to remove the '/'.
4282 */
4283struct server *cli_find_server(struct appctx *appctx, char *arg)
4284{
4285 struct proxy *px;
4286 struct server *sv;
4287 char *line;
4288
4289 /* split "backend/server" and make <line> point to server */
4290 for (line = arg; *line; line++)
4291 if (*line == '/') {
4292 *line++ = '\0';
4293 break;
4294 }
4295
4296 if (!*line || !*arg) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004297 cli_err(appctx, "Require 'backend/server'.\n");
Willy Tarreau21b069d2016-11-23 17:15:08 +01004298 return NULL;
4299 }
4300
4301 if (!get_backend_server(arg, line, &px, &sv)) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004302 cli_err(appctx, px ? "No such server.\n" : "No such backend.\n");
Willy Tarreau21b069d2016-11-23 17:15:08 +01004303 return NULL;
4304 }
4305
4306 if (px->state == PR_STSTOPPED) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004307 cli_err(appctx, "Proxy is disabled.\n");
Willy Tarreau21b069d2016-11-23 17:15:08 +01004308 return NULL;
4309 }
4310
4311 return sv;
4312}
4313
William Lallemand222baf22016-11-19 02:00:33 +01004314
Willy Tarreau46b7f532018-08-21 11:54:26 +02004315/* grabs the server lock */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004316static int cli_parse_set_server(char **args, char *payload, struct appctx *appctx, void *private)
William Lallemand222baf22016-11-19 02:00:33 +01004317{
4318 struct server *sv;
4319 const char *warning;
4320
4321 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4322 return 1;
4323
4324 sv = cli_find_server(appctx, args[2]);
4325 if (!sv)
4326 return 1;
4327
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004328 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Emeric Brun9f0b4582017-10-23 14:39:51 +02004329
William Lallemand222baf22016-11-19 02:00:33 +01004330 if (strcmp(args[3], "weight") == 0) {
4331 warning = server_parse_weight_change_request(sv, args[4]);
Willy Tarreau9d008692019-08-09 11:21:01 +02004332 if (warning)
4333 cli_err(appctx, warning);
William Lallemand222baf22016-11-19 02:00:33 +01004334 }
4335 else if (strcmp(args[3], "state") == 0) {
4336 if (strcmp(args[4], "ready") == 0)
4337 srv_adm_set_ready(sv);
4338 else if (strcmp(args[4], "drain") == 0)
4339 srv_adm_set_drain(sv);
4340 else if (strcmp(args[4], "maint") == 0)
4341 srv_adm_set_maint(sv);
Willy Tarreau9d008692019-08-09 11:21:01 +02004342 else
4343 cli_err(appctx, "'set server <srv> state' expects 'ready', 'drain' and 'maint'.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004344 }
4345 else if (strcmp(args[3], "health") == 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004346 if (sv->track)
4347 cli_err(appctx, "cannot change health on a tracking server.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004348 else if (strcmp(args[4], "up") == 0) {
4349 sv->check.health = sv->check.rise + sv->check.fall - 1;
Emeric Brun5a133512017-10-19 14:42:30 +02004350 srv_set_running(sv, "changed from CLI", NULL);
William Lallemand222baf22016-11-19 02:00:33 +01004351 }
4352 else if (strcmp(args[4], "stopping") == 0) {
4353 sv->check.health = sv->check.rise + sv->check.fall - 1;
Emeric Brun5a133512017-10-19 14:42:30 +02004354 srv_set_stopping(sv, "changed from CLI", NULL);
William Lallemand222baf22016-11-19 02:00:33 +01004355 }
4356 else if (strcmp(args[4], "down") == 0) {
4357 sv->check.health = 0;
Emeric Brun5a133512017-10-19 14:42:30 +02004358 srv_set_stopped(sv, "changed from CLI", NULL);
William Lallemand222baf22016-11-19 02:00:33 +01004359 }
Willy Tarreau9d008692019-08-09 11:21:01 +02004360 else
4361 cli_err(appctx, "'set server <srv> health' expects 'up', 'stopping', or 'down'.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004362 }
4363 else if (strcmp(args[3], "agent") == 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004364 if (!(sv->agent.state & CHK_ST_ENABLED))
4365 cli_err(appctx, "agent checks are not enabled on this server.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004366 else if (strcmp(args[4], "up") == 0) {
4367 sv->agent.health = sv->agent.rise + sv->agent.fall - 1;
Emeric Brun5a133512017-10-19 14:42:30 +02004368 srv_set_running(sv, "changed from CLI", NULL);
William Lallemand222baf22016-11-19 02:00:33 +01004369 }
4370 else if (strcmp(args[4], "down") == 0) {
4371 sv->agent.health = 0;
Emeric Brun5a133512017-10-19 14:42:30 +02004372 srv_set_stopped(sv, "changed from CLI", NULL);
William Lallemand222baf22016-11-19 02:00:33 +01004373 }
Willy Tarreau9d008692019-08-09 11:21:01 +02004374 else
4375 cli_err(appctx, "'set server <srv> agent' expects 'up' or 'down'.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004376 }
Misiek2da082d2017-01-09 09:40:42 +01004377 else if (strcmp(args[3], "agent-addr") == 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004378 if (!(sv->agent.state & CHK_ST_ENABLED))
4379 cli_err(appctx, "agent checks are not enabled on this server.\n");
4380 else if (str2ip(args[4], &sv->agent.addr) == NULL)
4381 cli_err(appctx, "incorrect addr address given for agent.\n");
Misiek2da082d2017-01-09 09:40:42 +01004382 }
4383 else if (strcmp(args[3], "agent-send") == 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004384 if (!(sv->agent.state & CHK_ST_ENABLED))
4385 cli_err(appctx, "agent checks are not enabled on this server.\n");
4386 else {
Christopher Faulet0ae3d1d2020-04-06 17:54:24 +02004387 if (!set_srv_agent_send(sv, args[4]))
Willy Tarreau9d008692019-08-09 11:21:01 +02004388 cli_err(appctx, "cannot allocate memory for new string.\n");
Misiek2da082d2017-01-09 09:40:42 +01004389 }
4390 }
William Lallemand222baf22016-11-19 02:00:33 +01004391 else if (strcmp(args[3], "check-port") == 0) {
4392 int i = 0;
4393 if (strl2irc(args[4], strlen(args[4]), &i) != 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004394 cli_err(appctx, "'set server <srv> check-port' expects an integer as argument.\n");
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004395 goto out_unlock;
William Lallemand222baf22016-11-19 02:00:33 +01004396 }
4397 if ((i < 0) || (i > 65535)) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004398 cli_err(appctx, "provided port is not valid.\n");
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004399 goto out_unlock;
William Lallemand222baf22016-11-19 02:00:33 +01004400 }
4401 /* prevent the update of port to 0 if MAPPORTS are in use */
4402 if ((sv->flags & SRV_F_MAPPORTS) && (i == 0)) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004403 cli_err(appctx, "can't unset 'port' since MAPPORTS is in use.\n");
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004404 goto out_unlock;
William Lallemand222baf22016-11-19 02:00:33 +01004405 }
4406 sv->check.port = i;
Willy Tarreau9d008692019-08-09 11:21:01 +02004407 cli_msg(appctx, LOG_NOTICE, "health check port updated.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004408 }
4409 else if (strcmp(args[3], "addr") == 0) {
4410 char *addr = NULL;
4411 char *port = NULL;
4412 if (strlen(args[4]) == 0) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004413 cli_err(appctx, "set server <b>/<s> addr requires an address and optionally a port.\n");
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004414 goto out_unlock;
William Lallemand222baf22016-11-19 02:00:33 +01004415 }
4416 else {
4417 addr = args[4];
4418 }
4419 if (strcmp(args[5], "port") == 0) {
4420 port = args[6];
4421 }
4422 warning = update_server_addr_port(sv, addr, port, "stats socket command");
Willy Tarreau9d008692019-08-09 11:21:01 +02004423 if (warning)
4424 cli_msg(appctx, LOG_WARNING, warning);
William Lallemand222baf22016-11-19 02:00:33 +01004425 srv_clr_admin_flag(sv, SRV_ADMF_RMAINT);
4426 }
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004427 else if (strcmp(args[3], "fqdn") == 0) {
4428 if (!*args[4]) {
Willy Tarreau9d008692019-08-09 11:21:01 +02004429 cli_err(appctx, "set server <b>/<s> fqdn requires a FQDN.\n");
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004430 goto out_unlock;
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004431 }
Baptiste Assmann13a92322019-06-07 09:40:55 +02004432 /* ensure runtime resolver will process this new fqdn */
4433 if (sv->flags & SRV_F_NO_RESOLUTION) {
4434 sv->flags &= ~SRV_F_NO_RESOLUTION;
4435 }
Olivier Houchardd16bfe62017-10-31 15:21:19 +01004436 warning = update_server_fqdn(sv, args[4], "stats socket command", 0);
Willy Tarreau9d008692019-08-09 11:21:01 +02004437 if (warning)
4438 cli_msg(appctx, LOG_WARNING, warning);
Frédéric Lécailleb418c122017-04-26 11:24:02 +02004439 }
William Lallemand222baf22016-11-19 02:00:33 +01004440 else {
Willy Tarreau9d008692019-08-09 11:21:01 +02004441 cli_err(appctx,
4442 "'set server <srv>' only supports 'agent', 'health', 'state',"
4443 " 'weight', 'addr', 'fqdn' and 'check-port'.\n");
William Lallemand222baf22016-11-19 02:00:33 +01004444 }
Willy Tarreau6ce38f32017-11-05 10:19:23 +01004445 out_unlock:
Christopher Faulet2a944ee2017-11-07 10:42:54 +01004446 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
William Lallemand222baf22016-11-19 02:00:33 +01004447 return 1;
4448}
4449
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004450static int cli_parse_get_weight(char **args, char *payload, struct appctx *appctx, void *private)
William Lallemand6b160942016-11-22 12:34:35 +01004451{
4452 struct stream_interface *si = appctx->owner;
4453 struct proxy *px;
4454 struct server *sv;
4455 char *line;
4456
4457
4458 /* split "backend/server" and make <line> point to server */
4459 for (line = args[2]; *line; line++)
4460 if (*line == '/') {
4461 *line++ = '\0';
4462 break;
4463 }
4464
Willy Tarreau9d008692019-08-09 11:21:01 +02004465 if (!*line)
4466 return cli_err(appctx, "Require 'backend/server'.\n");
William Lallemand6b160942016-11-22 12:34:35 +01004467
Willy Tarreau9d008692019-08-09 11:21:01 +02004468 if (!get_backend_server(args[2], line, &px, &sv))
4469 return cli_err(appctx, px ? "No such server.\n" : "No such backend.\n");
William Lallemand6b160942016-11-22 12:34:35 +01004470
4471 /* return server's effective weight at the moment */
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004472 snprintf(trash.area, trash.size, "%d (initial %d)\n", sv->uweight,
4473 sv->iweight);
4474 if (ci_putstr(si_ic(si), trash.area) == -1) {
Willy Tarreaudb398432018-11-15 11:08:52 +01004475 si_rx_room_blk(si);
Christopher Faulet90b5abe2016-12-05 14:25:08 +01004476 return 0;
4477 }
William Lallemand6b160942016-11-22 12:34:35 +01004478 return 1;
4479}
4480
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004481/* Parse a "set weight" command.
4482 *
4483 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004484 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004485static int cli_parse_set_weight(char **args, char *payload, struct appctx *appctx, void *private)
William Lallemand6b160942016-11-22 12:34:35 +01004486{
4487 struct server *sv;
4488 const char *warning;
4489
4490 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4491 return 1;
4492
4493 sv = cli_find_server(appctx, args[2]);
4494 if (!sv)
4495 return 1;
4496
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004497 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
4498
William Lallemand6b160942016-11-22 12:34:35 +01004499 warning = server_parse_weight_change_request(sv, args[3]);
Willy Tarreau9d008692019-08-09 11:21:01 +02004500 if (warning)
4501 cli_err(appctx, warning);
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004502
4503 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
4504
William Lallemand6b160942016-11-22 12:34:35 +01004505 return 1;
4506}
4507
Willy Tarreau46b7f532018-08-21 11:54:26 +02004508/* parse a "set maxconn server" command. It always returns 1.
4509 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004510 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004511 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004512static int cli_parse_set_maxconn_server(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreaub8026272016-11-23 11:26:56 +01004513{
4514 struct server *sv;
4515 const char *warning;
4516
4517 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4518 return 1;
4519
4520 sv = cli_find_server(appctx, args[3]);
4521 if (!sv)
4522 return 1;
4523
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004524 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
4525
Willy Tarreaub8026272016-11-23 11:26:56 +01004526 warning = server_parse_maxconn_change_request(sv, args[4]);
Willy Tarreau9d008692019-08-09 11:21:01 +02004527 if (warning)
4528 cli_err(appctx, warning);
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004529
4530 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
4531
Willy Tarreaub8026272016-11-23 11:26:56 +01004532 return 1;
4533}
William Lallemand6b160942016-11-22 12:34:35 +01004534
Willy Tarreau46b7f532018-08-21 11:54:26 +02004535/* parse a "disable agent" command. It always returns 1.
4536 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004537 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004538 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004539static int cli_parse_disable_agent(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004540{
4541 struct server *sv;
4542
4543 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4544 return 1;
4545
4546 sv = cli_find_server(appctx, args[2]);
4547 if (!sv)
4548 return 1;
4549
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004550 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004551 sv->agent.state &= ~CHK_ST_ENABLED;
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004552 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004553 return 1;
4554}
4555
Willy Tarreau46b7f532018-08-21 11:54:26 +02004556/* parse a "disable health" command. It always returns 1.
4557 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004558 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004559 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004560static int cli_parse_disable_health(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004561{
4562 struct server *sv;
4563
4564 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4565 return 1;
4566
4567 sv = cli_find_server(appctx, args[2]);
4568 if (!sv)
4569 return 1;
4570
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004571 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004572 sv->check.state &= ~CHK_ST_ENABLED;
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004573 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004574 return 1;
4575}
4576
Willy Tarreau46b7f532018-08-21 11:54:26 +02004577/* parse a "disable server" command. It always returns 1.
4578 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004579 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004580 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004581static int cli_parse_disable_server(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreauffb4d582016-11-24 12:47:00 +01004582{
4583 struct server *sv;
4584
4585 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4586 return 1;
4587
4588 sv = cli_find_server(appctx, args[2]);
4589 if (!sv)
4590 return 1;
4591
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004592 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreauffb4d582016-11-24 12:47:00 +01004593 srv_adm_set_maint(sv);
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004594 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreauffb4d582016-11-24 12:47:00 +01004595 return 1;
4596}
4597
Willy Tarreau46b7f532018-08-21 11:54:26 +02004598/* parse a "enable agent" command. It always returns 1.
4599 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004600 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004601 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004602static int cli_parse_enable_agent(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004603{
4604 struct server *sv;
4605
4606 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4607 return 1;
4608
4609 sv = cli_find_server(appctx, args[2]);
4610 if (!sv)
4611 return 1;
4612
Willy Tarreau9d008692019-08-09 11:21:01 +02004613 if (!(sv->agent.state & CHK_ST_CONFIGURED))
4614 return cli_err(appctx, "Agent was not configured on this server, cannot enable.\n");
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004615
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004616 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004617 sv->agent.state |= CHK_ST_ENABLED;
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004618 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004619 return 1;
4620}
4621
Willy Tarreau46b7f532018-08-21 11:54:26 +02004622/* parse a "enable health" command. It always returns 1.
4623 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004624 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004625 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004626static int cli_parse_enable_health(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004627{
4628 struct server *sv;
4629
4630 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4631 return 1;
4632
4633 sv = cli_find_server(appctx, args[2]);
4634 if (!sv)
4635 return 1;
4636
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004637 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004638 sv->check.state |= CHK_ST_ENABLED;
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004639 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004640 return 1;
4641}
4642
Willy Tarreau46b7f532018-08-21 11:54:26 +02004643/* parse a "enable server" command. It always returns 1.
4644 *
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004645 * Grabs the server lock.
Willy Tarreau46b7f532018-08-21 11:54:26 +02004646 */
Aurélien Nephtaliabbf6072018-04-18 13:26:46 +02004647static int cli_parse_enable_server(char **args, char *payload, struct appctx *appctx, void *private)
Willy Tarreauffb4d582016-11-24 12:47:00 +01004648{
4649 struct server *sv;
4650
4651 if (!cli_has_level(appctx, ACCESS_LVL_ADMIN))
4652 return 1;
4653
4654 sv = cli_find_server(appctx, args[2]);
4655 if (!sv)
4656 return 1;
4657
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004658 HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
Willy Tarreauffb4d582016-11-24 12:47:00 +01004659 srv_adm_set_ready(sv);
Olivier Houcharde9bad0a2018-01-17 17:39:34 +01004660 if (!(sv->flags & SRV_F_COOKIESET)
4661 && (sv->proxy->ck_opts & PR_CK_DYNAMIC) &&
4662 sv->cookie)
4663 srv_check_for_dup_dyncookie(sv);
Willy Tarreau3bcc2692018-08-21 15:35:31 +02004664 HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
Willy Tarreauffb4d582016-11-24 12:47:00 +01004665 return 1;
4666}
4667
William Lallemand222baf22016-11-19 02:00:33 +01004668/* register cli keywords */
4669static struct cli_kw_list cli_kws = {{ },{
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004670 { { "disable", "agent", NULL }, "disable agent : disable agent checks (use 'set server' instead)", cli_parse_disable_agent, NULL },
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004671 { { "disable", "health", NULL }, "disable health : disable health checks (use 'set server' instead)", cli_parse_disable_health, NULL },
Willy Tarreauffb4d582016-11-24 12:47:00 +01004672 { { "disable", "server", NULL }, "disable server : disable a server for maintenance (use 'set server' instead)", cli_parse_disable_server, NULL },
Willy Tarreau58d9cb72016-11-24 12:56:01 +01004673 { { "enable", "agent", NULL }, "enable agent : enable agent checks (use 'set server' instead)", cli_parse_enable_agent, NULL },
Willy Tarreau2c04eda2016-11-24 12:51:04 +01004674 { { "enable", "health", NULL }, "enable health : enable health checks (use 'set server' instead)", cli_parse_enable_health, NULL },
Willy Tarreauffb4d582016-11-24 12:47:00 +01004675 { { "enable", "server", NULL }, "enable server : enable a disabled server (use 'set server' instead)", cli_parse_enable_server, NULL },
Willy Tarreaub8026272016-11-23 11:26:56 +01004676 { { "set", "maxconn", "server", NULL }, "set maxconn server : change a server's maxconn setting", cli_parse_set_maxconn_server, NULL },
William Lallemand222baf22016-11-19 02:00:33 +01004677 { { "set", "server", NULL }, "set server : change a server's state, weight or address", cli_parse_set_server },
William Lallemand6b160942016-11-22 12:34:35 +01004678 { { "get", "weight", NULL }, "get weight : report a server's current weight", cli_parse_get_weight },
4679 { { "set", "weight", NULL }, "set weight : change a server's weight (deprecated)", cli_parse_set_weight },
4680
William Lallemand222baf22016-11-19 02:00:33 +01004681 {{},}
4682}};
4683
Willy Tarreau0108d902018-11-25 19:14:37 +01004684INITCALL1(STG_REGISTER, cli_register_kw, &cli_kws);
Baptiste Assmann83cbaa52016-11-02 15:34:05 +01004685
Emeric Brun64cc49c2017-10-03 14:46:45 +02004686/*
4687 * This function applies server's status changes, it is
4688 * is designed to be called asynchronously.
4689 *
Willy Tarreau46b7f532018-08-21 11:54:26 +02004690 * Must be called with the server lock held.
Emeric Brun64cc49c2017-10-03 14:46:45 +02004691 */
Willy Tarreau3ff577e2018-08-02 11:48:52 +02004692static void srv_update_status(struct server *s)
Emeric Brun64cc49c2017-10-03 14:46:45 +02004693{
4694 struct check *check = &s->check;
4695 int xferred;
4696 struct proxy *px = s->proxy;
4697 int prev_srv_count = s->proxy->srv_bck + s->proxy->srv_act;
4698 int srv_was_stopping = (s->cur_state == SRV_ST_STOPPING) || (s->cur_admin & SRV_ADMF_DRAIN);
4699 int log_level;
Willy Tarreau83061a82018-07-13 11:56:34 +02004700 struct buffer *tmptrash = NULL;
Emeric Brun64cc49c2017-10-03 14:46:45 +02004701
Emeric Brun64cc49c2017-10-03 14:46:45 +02004702 /* If currently main is not set we try to apply pending state changes */
4703 if (!(s->cur_admin & SRV_ADMF_MAINT)) {
4704 int next_admin;
4705
4706 /* Backup next admin */
4707 next_admin = s->next_admin;
4708
4709 /* restore current admin state */
4710 s->next_admin = s->cur_admin;
4711
4712 if ((s->cur_state != SRV_ST_STOPPED) && (s->next_state == SRV_ST_STOPPED)) {
4713 s->last_change = now.tv_sec;
4714 if (s->proxy->lbprm.set_server_status_down)
4715 s->proxy->lbprm.set_server_status_down(s);
4716
4717 if (s->onmarkeddown & HANA_ONMARKEDDOWN_SHUTDOWNSESSIONS)
4718 srv_shutdown_streams(s, SF_ERR_DOWN);
4719
4720 /* we might have streams queued on this server and waiting for
4721 * a connection. Those which are redispatchable will be queued
4722 * to another server or to the proxy itself.
4723 */
4724 xferred = pendconn_redistribute(s);
4725
4726 tmptrash = alloc_trash_chunk();
4727 if (tmptrash) {
4728 chunk_printf(tmptrash,
4729 "%sServer %s/%s is DOWN", s->flags & SRV_F_BACKUP ? "Backup " : "",
4730 s->proxy->id, s->id);
4731
Emeric Brun5a133512017-10-19 14:42:30 +02004732 srv_append_status(tmptrash, s, NULL, xferred, 0);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004733 ha_warning("%s.\n", tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004734
4735 /* we don't send an alert if the server was previously paused */
4736 log_level = srv_was_stopping ? LOG_NOTICE : LOG_ALERT;
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004737 send_log(s->proxy, log_level, "%s.\n",
4738 tmptrash->area);
4739 send_email_alert(s, log_level, "%s",
4740 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004741 free_trash_chunk(tmptrash);
4742 tmptrash = NULL;
4743 }
4744 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
4745 set_backend_down(s->proxy);
4746
4747 s->counters.down_trans++;
4748 }
4749 else if ((s->cur_state != SRV_ST_STOPPING) && (s->next_state == SRV_ST_STOPPING)) {
4750 s->last_change = now.tv_sec;
4751 if (s->proxy->lbprm.set_server_status_down)
4752 s->proxy->lbprm.set_server_status_down(s);
4753
4754 /* we might have streams queued on this server and waiting for
4755 * a connection. Those which are redispatchable will be queued
4756 * to another server or to the proxy itself.
4757 */
4758 xferred = pendconn_redistribute(s);
4759
4760 tmptrash = alloc_trash_chunk();
4761 if (tmptrash) {
4762 chunk_printf(tmptrash,
4763 "%sServer %s/%s is stopping", s->flags & SRV_F_BACKUP ? "Backup " : "",
4764 s->proxy->id, s->id);
4765
Emeric Brun5a133512017-10-19 14:42:30 +02004766 srv_append_status(tmptrash, s, NULL, xferred, 0);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004767
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004768 ha_warning("%s.\n", tmptrash->area);
4769 send_log(s->proxy, LOG_NOTICE, "%s.\n",
4770 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004771 free_trash_chunk(tmptrash);
4772 tmptrash = NULL;
4773 }
4774
4775 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
4776 set_backend_down(s->proxy);
4777 }
4778 else if (((s->cur_state != SRV_ST_RUNNING) && (s->next_state == SRV_ST_RUNNING))
4779 || ((s->cur_state != SRV_ST_STARTING) && (s->next_state == SRV_ST_STARTING))) {
4780 if (s->proxy->srv_bck == 0 && s->proxy->srv_act == 0) {
4781 if (s->proxy->last_change < now.tv_sec) // ignore negative times
4782 s->proxy->down_time += now.tv_sec - s->proxy->last_change;
4783 s->proxy->last_change = now.tv_sec;
4784 }
4785
4786 if (s->next_state == SRV_ST_STOPPED && s->last_change < now.tv_sec) // ignore negative times
4787 s->down_time += now.tv_sec - s->last_change;
4788
4789 s->last_change = now.tv_sec;
4790 if (s->next_state == SRV_ST_STARTING)
4791 task_schedule(s->warmup, tick_add(now_ms, MS_TO_TICKS(MAX(1000, s->slowstart / 20))));
4792
Willy Tarreau3ff577e2018-08-02 11:48:52 +02004793 server_recalc_eweight(s, 0);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004794 /* now propagate the status change to any LB algorithms */
4795 if (px->lbprm.update_server_eweight)
4796 px->lbprm.update_server_eweight(s);
4797 else if (srv_willbe_usable(s)) {
4798 if (px->lbprm.set_server_status_up)
4799 px->lbprm.set_server_status_up(s);
4800 }
4801 else {
4802 if (px->lbprm.set_server_status_down)
4803 px->lbprm.set_server_status_down(s);
4804 }
4805
4806 /* If the server is set with "on-marked-up shutdown-backup-sessions",
4807 * and it's not a backup server and its effective weight is > 0,
4808 * then it can accept new connections, so we shut down all streams
4809 * on all backup servers.
4810 */
4811 if ((s->onmarkedup & HANA_ONMARKEDUP_SHUTDOWNBACKUPSESSIONS) &&
4812 !(s->flags & SRV_F_BACKUP) && s->next_eweight)
4813 srv_shutdown_backup_streams(s->proxy, SF_ERR_UP);
4814
4815 /* check if we can handle some connections queued at the proxy. We
4816 * will take as many as we can handle.
4817 */
4818 xferred = pendconn_grab_from_px(s);
4819
4820 tmptrash = alloc_trash_chunk();
4821 if (tmptrash) {
4822 chunk_printf(tmptrash,
4823 "%sServer %s/%s is UP", s->flags & SRV_F_BACKUP ? "Backup " : "",
4824 s->proxy->id, s->id);
4825
Emeric Brun5a133512017-10-19 14:42:30 +02004826 srv_append_status(tmptrash, s, NULL, xferred, 0);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004827 ha_warning("%s.\n", tmptrash->area);
4828 send_log(s->proxy, LOG_NOTICE, "%s.\n",
4829 tmptrash->area);
4830 send_email_alert(s, LOG_NOTICE, "%s",
4831 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004832 free_trash_chunk(tmptrash);
4833 tmptrash = NULL;
4834 }
4835
4836 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
4837 set_backend_down(s->proxy);
4838 }
4839 else if (s->cur_eweight != s->next_eweight) {
4840 /* now propagate the status change to any LB algorithms */
4841 if (px->lbprm.update_server_eweight)
4842 px->lbprm.update_server_eweight(s);
4843 else if (srv_willbe_usable(s)) {
4844 if (px->lbprm.set_server_status_up)
4845 px->lbprm.set_server_status_up(s);
4846 }
4847 else {
4848 if (px->lbprm.set_server_status_down)
4849 px->lbprm.set_server_status_down(s);
4850 }
4851
4852 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
4853 set_backend_down(s->proxy);
4854 }
4855
4856 s->next_admin = next_admin;
4857 }
4858
Emeric Brun5a133512017-10-19 14:42:30 +02004859 /* reset operational state change */
4860 *s->op_st_chg.reason = 0;
4861 s->op_st_chg.status = s->op_st_chg.code = -1;
4862 s->op_st_chg.duration = 0;
Emeric Brun64cc49c2017-10-03 14:46:45 +02004863
4864 /* Now we try to apply pending admin changes */
4865
4866 /* Maintenance must also disable health checks */
4867 if (!(s->cur_admin & SRV_ADMF_MAINT) && (s->next_admin & SRV_ADMF_MAINT)) {
4868 if (s->check.state & CHK_ST_ENABLED) {
4869 s->check.state |= CHK_ST_PAUSED;
4870 check->health = 0;
4871 }
4872
4873 if (s->cur_state == SRV_ST_STOPPED) { /* server was already down */
Olivier Houchard796a2b32017-10-24 17:42:47 +02004874 tmptrash = alloc_trash_chunk();
4875 if (tmptrash) {
4876 chunk_printf(tmptrash,
4877 "%sServer %s/%s was DOWN and now enters maintenance%s%s%s",
4878 s->flags & SRV_F_BACKUP ? "Backup " : "", s->proxy->id, s->id,
4879 *(s->adm_st_chg_cause) ? " (" : "", s->adm_st_chg_cause, *(s->adm_st_chg_cause) ? ")" : "");
Emeric Brun64cc49c2017-10-03 14:46:45 +02004880
Olivier Houchard796a2b32017-10-24 17:42:47 +02004881 srv_append_status(tmptrash, s, NULL, -1, (s->next_admin & SRV_ADMF_FMAINT));
Emeric Brun64cc49c2017-10-03 14:46:45 +02004882
Olivier Houchard796a2b32017-10-24 17:42:47 +02004883 if (!(global.mode & MODE_STARTING)) {
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004884 ha_warning("%s.\n", tmptrash->area);
4885 send_log(s->proxy, LOG_NOTICE, "%s.\n",
4886 tmptrash->area);
Olivier Houchard796a2b32017-10-24 17:42:47 +02004887 }
4888 free_trash_chunk(tmptrash);
4889 tmptrash = NULL;
Emeric Brun64cc49c2017-10-03 14:46:45 +02004890 }
Emeric Brun8f298292017-12-06 16:47:17 +01004891 /* commit new admin status */
4892
4893 s->cur_admin = s->next_admin;
Emeric Brun64cc49c2017-10-03 14:46:45 +02004894 }
4895 else { /* server was still running */
4896 check->health = 0; /* failure */
4897 s->last_change = now.tv_sec;
Emeric Brune3114802017-12-21 14:42:26 +01004898
4899 s->next_state = SRV_ST_STOPPED;
Emeric Brun64cc49c2017-10-03 14:46:45 +02004900 if (s->proxy->lbprm.set_server_status_down)
4901 s->proxy->lbprm.set_server_status_down(s);
4902
Emeric Brun64cc49c2017-10-03 14:46:45 +02004903 if (s->onmarkeddown & HANA_ONMARKEDDOWN_SHUTDOWNSESSIONS)
4904 srv_shutdown_streams(s, SF_ERR_DOWN);
4905
William Dauchy6318d332020-05-02 21:52:36 +02004906 /* force connection cleanup on the given server */
4907 srv_cleanup_connections(s);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004908 /* we might have streams queued on this server and waiting for
4909 * a connection. Those which are redispatchable will be queued
4910 * to another server or to the proxy itself.
4911 */
4912 xferred = pendconn_redistribute(s);
4913
4914 tmptrash = alloc_trash_chunk();
4915 if (tmptrash) {
4916 chunk_printf(tmptrash,
4917 "%sServer %s/%s is going DOWN for maintenance%s%s%s",
4918 s->flags & SRV_F_BACKUP ? "Backup " : "",
4919 s->proxy->id, s->id,
4920 *(s->adm_st_chg_cause) ? " (" : "", s->adm_st_chg_cause, *(s->adm_st_chg_cause) ? ")" : "");
4921
4922 srv_append_status(tmptrash, s, NULL, xferred, (s->next_admin & SRV_ADMF_FMAINT));
4923
4924 if (!(global.mode & MODE_STARTING)) {
Willy Tarreau843b7cb2018-07-13 10:54:26 +02004925 ha_warning("%s.\n", tmptrash->area);
4926 send_log(s->proxy, srv_was_stopping ? LOG_NOTICE : LOG_ALERT, "%s.\n",
4927 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02004928 }
4929 free_trash_chunk(tmptrash);
4930 tmptrash = NULL;
4931 }
4932 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
4933 set_backend_down(s->proxy);
4934
4935 s->counters.down_trans++;
4936 }
4937 }
4938 else if ((s->cur_admin & SRV_ADMF_MAINT) && !(s->next_admin & SRV_ADMF_MAINT)) {
4939 /* OK here we're leaving maintenance, we have many things to check,
4940 * because the server might possibly be coming back up depending on
4941 * its state. In practice, leaving maintenance means that we should
4942 * immediately turn to UP (more or less the slowstart) under the
4943 * following conditions :
4944 * - server is neither checked nor tracked
4945 * - server tracks another server which is not checked
4946 * - server tracks another server which is already up
4947 * Which sums up as something simpler :
4948 * "either the tracking server is up or the server's checks are disabled
4949 * or up". Otherwise we only re-enable health checks. There's a special
4950 * case associated to the stopping state which can be inherited. Note
4951 * that the server might still be in drain mode, which is naturally dealt
4952 * with by the lower level functions.
4953 */
4954
4955 if (s->check.state & CHK_ST_ENABLED) {
4956 s->check.state &= ~CHK_ST_PAUSED;
4957 check->health = check->rise; /* start OK but check immediately */
4958 }
4959
4960 if ((!s->track || s->track->next_state != SRV_ST_STOPPED) &&
4961 (!(s->agent.state & CHK_ST_ENABLED) || (s->agent.health >= s->agent.rise)) &&
4962 (!(s->check.state & CHK_ST_ENABLED) || (s->check.health >= s->check.rise))) {
4963 if (s->track && s->track->next_state == SRV_ST_STOPPING) {
4964 s->next_state = SRV_ST_STOPPING;
4965 }
4966 else {
4967 s->next_state = SRV_ST_STARTING;
4968 if (s->slowstart > 0)
4969 task_schedule(s->warmup, tick_add(now_ms, MS_TO_TICKS(MAX(1000, s->slowstart / 20))));
4970 else
4971 s->next_state = SRV_ST_RUNNING;
4972 }
4973
4974 }
4975
4976 tmptrash = alloc_trash_chunk();
4977 if (tmptrash) {
4978 if (!(s->next_admin & SRV_ADMF_FMAINT) && (s->cur_admin & SRV_ADMF_FMAINT)) {
4979 chunk_printf(tmptrash,
4980 "%sServer %s/%s is %s/%s (leaving forced maintenance)",
4981 s->flags & SRV_F_BACKUP ? "Backup " : "",
4982 s->proxy->id, s->id,
4983 (s->next_state == SRV_ST_STOPPED) ? "DOWN" : "UP",
4984 (s->next_admin & SRV_ADMF_DRAIN) ? "DRAIN" : "READY");
4985 }
4986 if (!(s->next_admin & SRV_ADMF_RMAINT) && (s->cur_admin & SRV_ADMF_RMAINT)) {
4987 chunk_printf(tmptrash,
4988 "%sServer %s/%s ('%s') is %s/%s (resolves again)",
4989 s->flags & SRV_F_BACKUP ? "Backup " : "",
4990 s->proxy->id, s->id, s->hostname,
4991 (s->next_state == SRV_ST_STOPPED) ? "DOWN" : "UP",
4992 (s->next_admin & SRV_ADMF_DRAIN) ? "DRAIN" : "READY");
4993 }
4994 if (!(s->next_admin & SRV_ADMF_IMAINT) && (s->cur_admin & SRV_ADMF_IMAINT)) {
4995 chunk_printf(tmptrash,
4996 "%sServer %s/%s is %s/%s (leaving maintenance)",
4997 s->flags & SRV_F_BACKUP ? "Backup " : "",
4998 s->proxy->id, s->id,
4999 (s->next_state == SRV_ST_STOPPED) ? "DOWN" : "UP",
5000 (s->next_admin & SRV_ADMF_DRAIN) ? "DRAIN" : "READY");
5001 }
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005002 ha_warning("%s.\n", tmptrash->area);
5003 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5004 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005005 free_trash_chunk(tmptrash);
5006 tmptrash = NULL;
5007 }
5008
Willy Tarreau3ff577e2018-08-02 11:48:52 +02005009 server_recalc_eweight(s, 0);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005010 /* now propagate the status change to any LB algorithms */
5011 if (px->lbprm.update_server_eweight)
5012 px->lbprm.update_server_eweight(s);
5013 else if (srv_willbe_usable(s)) {
5014 if (px->lbprm.set_server_status_up)
5015 px->lbprm.set_server_status_up(s);
5016 }
5017 else {
5018 if (px->lbprm.set_server_status_down)
5019 px->lbprm.set_server_status_down(s);
5020 }
5021
5022 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
5023 set_backend_down(s->proxy);
5024
Willy Tarreau6a78e612018-08-07 10:14:53 +02005025 /* If the server is set with "on-marked-up shutdown-backup-sessions",
5026 * and it's not a backup server and its effective weight is > 0,
5027 * then it can accept new connections, so we shut down all streams
5028 * on all backup servers.
5029 */
5030 if ((s->onmarkedup & HANA_ONMARKEDUP_SHUTDOWNBACKUPSESSIONS) &&
5031 !(s->flags & SRV_F_BACKUP) && s->next_eweight)
5032 srv_shutdown_backup_streams(s->proxy, SF_ERR_UP);
5033
5034 /* check if we can handle some connections queued at the proxy. We
5035 * will take as many as we can handle.
5036 */
5037 xferred = pendconn_grab_from_px(s);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005038 }
5039 else if (s->next_admin & SRV_ADMF_MAINT) {
5040 /* remaining in maintenance mode, let's inform precisely about the
5041 * situation.
5042 */
5043 if (!(s->next_admin & SRV_ADMF_FMAINT) && (s->cur_admin & SRV_ADMF_FMAINT)) {
5044 tmptrash = alloc_trash_chunk();
5045 if (tmptrash) {
5046 chunk_printf(tmptrash,
5047 "%sServer %s/%s is leaving forced maintenance but remains in maintenance",
5048 s->flags & SRV_F_BACKUP ? "Backup " : "",
5049 s->proxy->id, s->id);
5050
5051 if (s->track) /* normally it's mandatory here */
5052 chunk_appendf(tmptrash, " via %s/%s",
5053 s->track->proxy->id, s->track->id);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005054 ha_warning("%s.\n", tmptrash->area);
5055 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5056 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005057 free_trash_chunk(tmptrash);
5058 tmptrash = NULL;
5059 }
5060 }
5061 if (!(s->next_admin & SRV_ADMF_RMAINT) && (s->cur_admin & SRV_ADMF_RMAINT)) {
5062 tmptrash = alloc_trash_chunk();
5063 if (tmptrash) {
5064 chunk_printf(tmptrash,
5065 "%sServer %s/%s ('%s') resolves again but remains in maintenance",
5066 s->flags & SRV_F_BACKUP ? "Backup " : "",
5067 s->proxy->id, s->id, s->hostname);
5068
5069 if (s->track) /* normally it's mandatory here */
5070 chunk_appendf(tmptrash, " via %s/%s",
5071 s->track->proxy->id, s->track->id);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005072 ha_warning("%s.\n", tmptrash->area);
5073 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5074 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005075 free_trash_chunk(tmptrash);
5076 tmptrash = NULL;
5077 }
5078 }
5079 else if (!(s->next_admin & SRV_ADMF_IMAINT) && (s->cur_admin & SRV_ADMF_IMAINT)) {
5080 tmptrash = alloc_trash_chunk();
5081 if (tmptrash) {
5082 chunk_printf(tmptrash,
5083 "%sServer %s/%s remains in forced maintenance",
5084 s->flags & SRV_F_BACKUP ? "Backup " : "",
5085 s->proxy->id, s->id);
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005086 ha_warning("%s.\n", tmptrash->area);
5087 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5088 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005089 free_trash_chunk(tmptrash);
5090 tmptrash = NULL;
5091 }
5092 }
5093 /* don't report anything when leaving drain mode and remaining in maintenance */
5094
5095 s->cur_admin = s->next_admin;
5096 }
5097
5098 if (!(s->next_admin & SRV_ADMF_MAINT)) {
5099 if (!(s->cur_admin & SRV_ADMF_DRAIN) && (s->next_admin & SRV_ADMF_DRAIN)) {
5100 /* drain state is applied only if not yet in maint */
5101
5102 s->last_change = now.tv_sec;
5103 if (px->lbprm.set_server_status_down)
5104 px->lbprm.set_server_status_down(s);
5105
5106 /* we might have streams queued on this server and waiting for
5107 * a connection. Those which are redispatchable will be queued
5108 * to another server or to the proxy itself.
5109 */
5110 xferred = pendconn_redistribute(s);
5111
5112 tmptrash = alloc_trash_chunk();
5113 if (tmptrash) {
5114 chunk_printf(tmptrash, "%sServer %s/%s enters drain state%s%s%s",
5115 s->flags & SRV_F_BACKUP ? "Backup " : "", s->proxy->id, s->id,
5116 *(s->adm_st_chg_cause) ? " (" : "", s->adm_st_chg_cause, *(s->adm_st_chg_cause) ? ")" : "");
5117
5118 srv_append_status(tmptrash, s, NULL, xferred, (s->next_admin & SRV_ADMF_FDRAIN));
5119
5120 if (!(global.mode & MODE_STARTING)) {
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005121 ha_warning("%s.\n", tmptrash->area);
5122 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5123 tmptrash->area);
5124 send_email_alert(s, LOG_NOTICE, "%s",
5125 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005126 }
5127 free_trash_chunk(tmptrash);
5128 tmptrash = NULL;
5129 }
5130
5131 if (prev_srv_count && s->proxy->srv_bck == 0 && s->proxy->srv_act == 0)
5132 set_backend_down(s->proxy);
5133 }
5134 else if ((s->cur_admin & SRV_ADMF_DRAIN) && !(s->next_admin & SRV_ADMF_DRAIN)) {
5135 /* OK completely leaving drain mode */
5136 if (s->proxy->srv_bck == 0 && s->proxy->srv_act == 0) {
5137 if (s->proxy->last_change < now.tv_sec) // ignore negative times
5138 s->proxy->down_time += now.tv_sec - s->proxy->last_change;
5139 s->proxy->last_change = now.tv_sec;
5140 }
5141
5142 if (s->last_change < now.tv_sec) // ignore negative times
5143 s->down_time += now.tv_sec - s->last_change;
5144 s->last_change = now.tv_sec;
Willy Tarreau3ff577e2018-08-02 11:48:52 +02005145 server_recalc_eweight(s, 0);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005146
5147 tmptrash = alloc_trash_chunk();
5148 if (tmptrash) {
5149 if (!(s->next_admin & SRV_ADMF_FDRAIN)) {
5150 chunk_printf(tmptrash,
5151 "%sServer %s/%s is %s (leaving forced drain)",
5152 s->flags & SRV_F_BACKUP ? "Backup " : "",
5153 s->proxy->id, s->id,
5154 (s->next_state == SRV_ST_STOPPED) ? "DOWN" : "UP");
5155 }
5156 else {
5157 chunk_printf(tmptrash,
5158 "%sServer %s/%s is %s (leaving drain)",
5159 s->flags & SRV_F_BACKUP ? "Backup " : "",
5160 s->proxy->id, s->id,
5161 (s->next_state == SRV_ST_STOPPED) ? "DOWN" : "UP");
5162 if (s->track) /* normally it's mandatory here */
5163 chunk_appendf(tmptrash, " via %s/%s",
5164 s->track->proxy->id, s->track->id);
5165 }
5166
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005167 ha_warning("%s.\n", tmptrash->area);
5168 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5169 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005170 free_trash_chunk(tmptrash);
5171 tmptrash = NULL;
5172 }
5173
5174 /* now propagate the status change to any LB algorithms */
5175 if (px->lbprm.update_server_eweight)
5176 px->lbprm.update_server_eweight(s);
5177 else if (srv_willbe_usable(s)) {
5178 if (px->lbprm.set_server_status_up)
5179 px->lbprm.set_server_status_up(s);
5180 }
5181 else {
5182 if (px->lbprm.set_server_status_down)
5183 px->lbprm.set_server_status_down(s);
5184 }
5185 }
5186 else if ((s->next_admin & SRV_ADMF_DRAIN)) {
5187 /* remaining in drain mode after removing one of its flags */
5188
5189 tmptrash = alloc_trash_chunk();
5190 if (tmptrash) {
5191 if (!(s->next_admin & SRV_ADMF_FDRAIN)) {
5192 chunk_printf(tmptrash,
5193 "%sServer %s/%s is leaving forced drain but remains in drain mode",
5194 s->flags & SRV_F_BACKUP ? "Backup " : "",
5195 s->proxy->id, s->id);
5196
5197 if (s->track) /* normally it's mandatory here */
5198 chunk_appendf(tmptrash, " via %s/%s",
5199 s->track->proxy->id, s->track->id);
5200 }
5201 else {
5202 chunk_printf(tmptrash,
5203 "%sServer %s/%s remains in forced drain mode",
5204 s->flags & SRV_F_BACKUP ? "Backup " : "",
5205 s->proxy->id, s->id);
5206 }
Willy Tarreau843b7cb2018-07-13 10:54:26 +02005207 ha_warning("%s.\n", tmptrash->area);
5208 send_log(s->proxy, LOG_NOTICE, "%s.\n",
5209 tmptrash->area);
Emeric Brun64cc49c2017-10-03 14:46:45 +02005210 free_trash_chunk(tmptrash);
5211 tmptrash = NULL;
5212 }
5213
5214 /* commit new admin status */
5215
5216 s->cur_admin = s->next_admin;
5217 }
5218 }
5219
5220 /* Re-set log strings to empty */
Emeric Brun64cc49c2017-10-03 14:46:45 +02005221 *s->adm_st_chg_cause = 0;
5222}
Emeric Brun64cc49c2017-10-03 14:46:45 +02005223
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005224struct task *srv_cleanup_toremove_connections(struct task *task, void *context, unsigned short state)
5225{
5226 struct connection *conn;
5227
Willy Tarreau4d82bf52020-06-28 00:19:17 +02005228 while ((conn = MT_LIST_POP(&idle_conns[tid].toremove_conns,
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005229 struct connection *, list)) != NULL) {
Christopher Faulet73c12072019-04-08 11:23:22 +02005230 conn->mux->destroy(conn->ctx);
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005231 }
5232
5233 return task;
5234}
5235
Olivier Houchardff1d0922020-06-29 20:15:59 +02005236/* Move toremove_nb connections from idle_list to toremove_list, -1 means
5237 * moving them all.
5238 * Returns the number of connections moved.
5239 */
5240static int srv_migrate_conns_to_remove(struct mt_list *idle_list, struct mt_list *toremove_list, int toremove_nb)
5241{
5242 struct mt_list *elt1, elt2;
5243 struct connection *conn;
5244 int i = 0;
5245
5246 mt_list_for_each_entry_safe(conn, idle_list, list, elt1, elt2) {
5247 if (toremove_nb != -1 && i >= toremove_nb)
5248 break;
5249 MT_LIST_DEL_SAFE_NOINIT(elt1);
Willy Tarreaude4db172020-07-10 08:10:29 +02005250 MT_LIST_ADDQ(toremove_list, &conn->list);
Olivier Houchardff1d0922020-06-29 20:15:59 +02005251 i++;
5252 }
5253 return i;
5254}
William Dauchy6318d332020-05-02 21:52:36 +02005255/* cleanup connections for a given server
5256 * might be useful when going on forced maintenance or live changing ip/port
5257 */
William Dauchy707ad322020-05-04 13:52:40 +02005258static void srv_cleanup_connections(struct server *srv)
William Dauchy6318d332020-05-02 21:52:36 +02005259{
William Dauchy6318d332020-05-02 21:52:36 +02005260 int did_remove;
5261 int i;
William Dauchy6318d332020-05-02 21:52:36 +02005262
Willy Tarreauc35bcfc2020-06-29 14:43:16 +02005263 /* check all threads starting with ours */
William Dauchy6318d332020-05-02 21:52:36 +02005264 HA_SPIN_LOCK(OTHER_LOCK, &idle_conn_srv_lock);
Willy Tarreauc35bcfc2020-06-29 14:43:16 +02005265 for (i = tid;;) {
William Dauchy6318d332020-05-02 21:52:36 +02005266 did_remove = 0;
Olivier Houchardff1d0922020-06-29 20:15:59 +02005267 if (srv_migrate_conns_to_remove(&srv->idle_conns[i], &idle_conns[i].toremove_conns, -1) > 0)
William Dauchy6318d332020-05-02 21:52:36 +02005268 did_remove = 1;
Olivier Houchardff1d0922020-06-29 20:15:59 +02005269 if (srv_migrate_conns_to_remove(&srv->safe_conns[i], &idle_conns[i].toremove_conns, -1) > 0)
5270 did_remove = 1;
William Dauchy6318d332020-05-02 21:52:36 +02005271 if (did_remove)
Willy Tarreau4d82bf52020-06-28 00:19:17 +02005272 task_wakeup(idle_conns[i].cleanup_task, TASK_WOKEN_OTHER);
Willy Tarreauc35bcfc2020-06-29 14:43:16 +02005273
5274 if ((i = ((i + 1 == global.nbthread) ? 0 : i + 1)) == tid)
5275 break;
William Dauchy6318d332020-05-02 21:52:36 +02005276 }
5277 HA_SPIN_UNLOCK(OTHER_LOCK, &idle_conn_srv_lock);
5278}
5279
Willy Tarreau980855b2019-02-07 14:59:29 +01005280struct task *srv_cleanup_idle_connections(struct task *task, void *context, unsigned short state)
Olivier Houchard0c18a6f2018-12-02 14:11:41 +01005281{
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005282 struct server *srv;
5283 struct eb32_node *eb;
5284 int i;
5285 unsigned int next_wakeup;
5286 int need_wakeup = 0;
Olivier Houchardb7b3faa2018-12-14 18:15:36 +01005287
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005288 HA_SPIN_LOCK(OTHER_LOCK, &idle_conn_srv_lock);
5289 while (1) {
5290 int srv_is_empty = 1;
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005291 int exceed_conns;
5292 int to_kill;
5293 int curr_idle;
Olivier Houchardb7b3faa2018-12-14 18:15:36 +01005294
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005295 eb = eb32_lookup_ge(&idle_conn_srv, now_ms - TIMER_LOOK_BACK);
5296 if (!eb) {
5297 /* we might have reached the end of the tree, typically because
5298 * <now_ms> is in the first half and we're first scanning the last
5299 * half. Let's loop back to the beginning of the tree now.
5300 */
Olivier Houchard0c18a6f2018-12-02 14:11:41 +01005301
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005302 eb = eb32_first(&idle_conn_srv);
5303 if (likely(!eb))
5304 break;
5305 }
5306 if (tick_is_lt(now_ms, eb->key)) {
5307 /* timer not expired yet, revisit it later */
5308 next_wakeup = eb->key;
5309 need_wakeup = 1;
Olivier Houchard0c18a6f2018-12-02 14:11:41 +01005310 break;
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005311 }
5312 srv = eb32_entry(eb, struct server, idle_node);
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005313
5314 /* Calculate how many idle connections we want to kill :
5315 * we want to remove half the difference between the total
5316 * of established connections (used or idle) and the max
5317 * number of used connections.
5318 */
5319 curr_idle = srv->curr_idle_conns;
5320 if (curr_idle == 0)
5321 goto remove;
Willy Tarreaubdb86bd2020-06-29 15:56:35 +02005322 exceed_conns = srv->curr_used_conns + curr_idle - MAX(srv->max_used_conns, srv->est_need_conns);
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005323 exceed_conns = to_kill = exceed_conns / 2 + (exceed_conns & 1);
Willy Tarreaubdb86bd2020-06-29 15:56:35 +02005324
5325 srv->est_need_conns = (srv->est_need_conns + srv->max_used_conns + 1) / 2;
5326 if (srv->est_need_conns < srv->max_used_conns)
5327 srv->est_need_conns = srv->max_used_conns;
5328
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005329 srv->max_used_conns = srv->curr_used_conns;
5330
Willy Tarreau18ed7892020-07-02 19:05:30 +02005331 if (exceed_conns <= 0)
5332 goto remove;
5333
Willy Tarreauc35bcfc2020-06-29 14:43:16 +02005334 /* check all threads starting with ours */
5335 for (i = tid;;) {
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005336 int max_conn;
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005337 int j;
5338 int did_remove = 0;
5339
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005340 max_conn = (exceed_conns * srv->curr_idle_thr[i]) /
5341 curr_idle + 1;
Olivier Houchardff1d0922020-06-29 20:15:59 +02005342
5343 j = srv_migrate_conns_to_remove(&srv->idle_conns[i], &idle_conns[i].toremove_conns, max_conn);
5344 if (j > 0)
5345 did_remove = 1;
5346 if (max_conn - j > 0 &&
5347 srv_migrate_conns_to_remove(&srv->safe_conns[i], &idle_conns[i].toremove_conns, max_conn - j) > 0)
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005348 did_remove = 1;
Olivier Houchardff1d0922020-06-29 20:15:59 +02005349
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005350 if (did_remove && max_conn < srv->curr_idle_thr[i])
5351 srv_is_empty = 0;
5352 if (did_remove)
Willy Tarreau4d82bf52020-06-28 00:19:17 +02005353 task_wakeup(idle_conns[i].cleanup_task, TASK_WOKEN_OTHER);
Willy Tarreauc35bcfc2020-06-29 14:43:16 +02005354
5355 if ((i = ((i + 1 == global.nbthread) ? 0 : i + 1)) == tid)
5356 break;
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005357 }
Olivier Houchard079cb9a2020-03-30 00:23:57 +02005358remove:
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005359 eb32_delete(&srv->idle_node);
5360 if (!srv_is_empty) {
5361 /* There are still more idle connections, add the
5362 * server back in the tree.
5363 */
5364 srv->idle_node.key = tick_add(srv->pool_purge_delay,
5365 now_ms);
5366 eb32_insert(&idle_conn_srv, &srv->idle_node);
5367 }
Olivier Houchard0c18a6f2018-12-02 14:11:41 +01005368 }
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005369 HA_SPIN_UNLOCK(OTHER_LOCK, &idle_conn_srv_lock);
5370
5371 if (need_wakeup)
5372 task->expire = next_wakeup;
Olivier Houchardb7b3faa2018-12-14 18:15:36 +01005373 else
5374 task->expire = TICK_ETERNITY;
Olivier Houchard9ea5d362019-02-14 18:29:09 +01005375
Olivier Houchard0c18a6f2018-12-02 14:11:41 +01005376 return task;
5377}
Olivier Houchard88698d92019-04-16 19:07:22 +02005378
Willy Tarreau76cc6992020-07-01 18:49:24 +02005379/* config parser for global "tune.idle-pool.shared", accepts "on" or "off" */
5380static int cfg_parse_idle_pool_shared(char **args, int section_type, struct proxy *curpx,
5381 struct proxy *defpx, const char *file, int line,
5382 char **err)
5383{
5384 if (too_many_args(1, args, err, NULL))
5385 return -1;
5386
5387 if (strcmp(args[1], "on") == 0)
5388 global.tune.options |= GTUNE_IDLE_POOL_SHARED;
5389 else if (strcmp(args[1], "off") == 0)
5390 global.tune.options &= ~GTUNE_IDLE_POOL_SHARED;
5391 else {
5392 memprintf(err, "'%s' expects either 'on' or 'off' but got '%s'.", args[0], args[1]);
5393 return -1;
5394 }
5395 return 0;
5396}
5397
Olivier Houchard88698d92019-04-16 19:07:22 +02005398/* config parser for global "tune.pool-{low,high}-fd-ratio" */
5399static int cfg_parse_pool_fd_ratio(char **args, int section_type, struct proxy *curpx,
5400 struct proxy *defpx, const char *file, int line,
5401 char **err)
5402{
5403 int arg = -1;
5404
5405 if (too_many_args(1, args, err, NULL))
5406 return -1;
5407
5408 if (*(args[1]) != 0)
5409 arg = atoi(args[1]);
5410
5411 if (arg < 0 || arg > 100) {
5412 memprintf(err, "'%s' expects an integer argument between 0 and 100.", args[0]);
5413 return -1;
5414 }
5415
5416 if (args[0][10] == 'h')
5417 global.tune.pool_high_ratio = arg;
5418 else
5419 global.tune.pool_low_ratio = arg;
5420 return 0;
5421}
5422
5423/* config keyword parsers */
5424static struct cfg_kw_list cfg_kws = {ILH, {
Willy Tarreau76cc6992020-07-01 18:49:24 +02005425 { CFG_GLOBAL, "tune.idle-pool.shared", cfg_parse_idle_pool_shared },
Olivier Houchard88698d92019-04-16 19:07:22 +02005426 { CFG_GLOBAL, "tune.pool-high-fd-ratio", cfg_parse_pool_fd_ratio },
5427 { CFG_GLOBAL, "tune.pool-low-fd-ratio", cfg_parse_pool_fd_ratio },
5428 { 0, NULL, NULL }
5429}};
5430
5431INITCALL1(STG_REGISTER, cfg_register_keywords, &cfg_kws);
5432
Baptiste Assmanna68ca962015-04-14 01:15:08 +02005433/*
Willy Tarreaubaaee002006-06-26 02:48:02 +02005434 * Local variables:
5435 * c-indent-level: 8
5436 * c-basic-offset: 8
5437 * End:
5438 */