blob: e744c76759674afb1182549799c2d1a316e3c514 [file] [log] [blame]
Willy Tarreaue6b98942007-10-29 01:09:36 +01001/*
2 * AF_INET/AF_INET6 SOCK_STREAM protocol layer (tcp)
3 *
Willy Tarreau1a687942010-05-23 22:40:30 +02004 * Copyright 2000-2010 Willy Tarreau <w@1wt.eu>
Willy Tarreaue6b98942007-10-29 01:09:36 +01005 *
6 * This program is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU General Public License
8 * as published by the Free Software Foundation; either version
9 * 2 of the License, or (at your option) any later version.
10 *
11 */
12
13#include <ctype.h>
14#include <errno.h>
15#include <fcntl.h>
16#include <stdio.h>
17#include <stdlib.h>
18#include <string.h>
19#include <time.h>
20
21#include <sys/param.h>
22#include <sys/socket.h>
23#include <sys/stat.h>
24#include <sys/types.h>
25#include <sys/un.h>
26
Dmitry Sivachenkocaf58982009-08-24 15:11:06 +040027#include <netinet/tcp.h>
28
Willy Tarreaub6866442008-07-14 23:54:42 +020029#include <common/cfgparse.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010030#include <common/compat.h>
31#include <common/config.h>
32#include <common/debug.h>
33#include <common/errors.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010034#include <common/mini-clist.h>
35#include <common/standard.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010036
Willy Tarreaue6b98942007-10-29 01:09:36 +010037#include <types/global.h>
Willy Tarreau9650f372009-08-16 14:02:45 +020038#include <types/server.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010039
40#include <proto/acl.h>
Willy Tarreau9fcb9842012-04-20 14:45:49 +020041#include <proto/arg.h>
Willy Tarreauc7e42382012-08-24 19:22:53 +020042#include <proto/channel.h>
Willy Tarreaud2274c62012-07-06 14:29:45 +020043#include <proto/connection.h>
Willy Tarreaudd2f85e2012-09-02 22:34:23 +020044#include <proto/fd.h>
Willy Tarreaud1d54542012-09-12 22:58:11 +020045#include <proto/listener.h>
Willy Tarreau9650f372009-08-16 14:02:45 +020046#include <proto/log.h>
47#include <proto/port_range.h>
Willy Tarreaud1d54542012-09-12 22:58:11 +020048#include <proto/protocol.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010049#include <proto/proto_tcp.h>
Willy Tarreaub6866442008-07-14 23:54:42 +020050#include <proto/proxy.h>
Willy Tarreaucd3b0942012-04-27 21:52:18 +020051#include <proto/sample.h>
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +020052#include <proto/session.h>
Willy Tarreaua975b8f2010-06-05 19:13:27 +020053#include <proto/stick_table.h>
Willy Tarreaua975b8f2010-06-05 19:13:27 +020054#include <proto/task.h>
Willy Tarreaue6b98942007-10-29 01:09:36 +010055
Willy Tarreaue8c66af2008-01-13 18:40:14 +010056#ifdef CONFIG_HAP_CTTPROXY
57#include <import/ip_tproxy.h>
58#endif
59
Emeric Bruncf20bf12010-10-22 16:06:11 +020060static int tcp_bind_listeners(struct protocol *proto, char *errmsg, int errlen);
61static int tcp_bind_listener(struct listener *listener, char *errmsg, int errlen);
Willy Tarreaue6b98942007-10-29 01:09:36 +010062
63/* Note: must not be declared <const> as its list will be overwritten */
64static struct protocol proto_tcpv4 = {
65 .name = "tcpv4",
66 .sock_domain = AF_INET,
67 .sock_type = SOCK_STREAM,
68 .sock_prot = IPPROTO_TCP,
69 .sock_family = AF_INET,
70 .sock_addrlen = sizeof(struct sockaddr_in),
71 .l3_addrlen = 32/8,
Willy Tarreaubbebbbf2012-05-07 21:22:09 +020072 .accept = &listener_accept,
Willy Tarreau26d8c592012-05-07 18:12:14 +020073 .connect = tcp_connect_server,
Emeric Bruncf20bf12010-10-22 16:06:11 +020074 .bind = tcp_bind_listener,
Willy Tarreaue6b98942007-10-29 01:09:36 +010075 .bind_all = tcp_bind_listeners,
76 .unbind_all = unbind_all_listeners,
77 .enable_all = enable_all_listeners,
Willy Tarreau59b94792012-05-11 16:16:40 +020078 .get_src = tcp_get_src,
79 .get_dst = tcp_get_dst,
Willy Tarreaue6b98942007-10-29 01:09:36 +010080 .listeners = LIST_HEAD_INIT(proto_tcpv4.listeners),
81 .nb_listeners = 0,
82};
83
84/* Note: must not be declared <const> as its list will be overwritten */
85static struct protocol proto_tcpv6 = {
86 .name = "tcpv6",
87 .sock_domain = AF_INET6,
88 .sock_type = SOCK_STREAM,
89 .sock_prot = IPPROTO_TCP,
90 .sock_family = AF_INET6,
91 .sock_addrlen = sizeof(struct sockaddr_in6),
92 .l3_addrlen = 128/8,
Willy Tarreaubbebbbf2012-05-07 21:22:09 +020093 .accept = &listener_accept,
Willy Tarreau26d8c592012-05-07 18:12:14 +020094 .connect = tcp_connect_server,
Emeric Bruncf20bf12010-10-22 16:06:11 +020095 .bind = tcp_bind_listener,
Willy Tarreaue6b98942007-10-29 01:09:36 +010096 .bind_all = tcp_bind_listeners,
97 .unbind_all = unbind_all_listeners,
98 .enable_all = enable_all_listeners,
Willy Tarreau59b94792012-05-11 16:16:40 +020099 .get_src = tcp_get_src,
100 .get_dst = tcp_get_dst,
Willy Tarreaue6b98942007-10-29 01:09:36 +0100101 .listeners = LIST_HEAD_INIT(proto_tcpv6.listeners),
102 .nb_listeners = 0,
103};
104
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100105
David du Colombier6f5ccb12011-03-10 22:26:24 +0100106/* Binds ipv4/ipv6 address <local> to socket <fd>, unless <flags> is set, in which
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100107 * case we try to bind <remote>. <flags> is a 2-bit field consisting of :
108 * - 0 : ignore remote address (may even be a NULL pointer)
109 * - 1 : use provided address
110 * - 2 : use provided port
111 * - 3 : use both
112 *
113 * The function supports multiple foreign binding methods :
114 * - linux_tproxy: we directly bind to the foreign address
115 * - cttproxy: we bind to a local address then nat.
116 * The second one can be used as a fallback for the first one.
117 * This function returns 0 when everything's OK, 1 if it could not bind, to the
118 * local address, 2 if it could not bind to the foreign address.
119 */
David du Colombier6f5ccb12011-03-10 22:26:24 +0100120int tcp_bind_socket(int fd, int flags, struct sockaddr_storage *local, struct sockaddr_storage *remote)
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100121{
David du Colombier6f5ccb12011-03-10 22:26:24 +0100122 struct sockaddr_storage bind_addr;
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100123 int foreign_ok = 0;
124 int ret;
125
126#ifdef CONFIG_HAP_LINUX_TPROXY
127 static int ip_transp_working = 1;
David du Colombier65c17962012-07-13 14:34:59 +0200128 static int ip6_transp_working = 1;
129 switch (local->ss_family) {
130 case AF_INET:
131 if (flags && ip_transp_working) {
132 if (setsockopt(fd, SOL_IP, IP_TRANSPARENT, &one, sizeof(one)) == 0
133 || setsockopt(fd, SOL_IP, IP_FREEBIND, &one, sizeof(one)) == 0)
134 foreign_ok = 1;
135 else
136 ip_transp_working = 0;
137 }
138 break;
139 case AF_INET6:
140 if (flags && ip6_transp_working) {
141 if (setsockopt(fd, SOL_IPV6, IPV6_TRANSPARENT, &one, sizeof(one)) == 0)
142 foreign_ok = 1;
143 else
144 ip6_transp_working = 0;
145 }
146 break;
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100147 }
148#endif
149 if (flags) {
150 memset(&bind_addr, 0, sizeof(bind_addr));
Willy Tarreau96dd0792011-04-19 07:20:57 +0200151 bind_addr.ss_family = remote->ss_family;
David du Colombier6f5ccb12011-03-10 22:26:24 +0100152 switch (remote->ss_family) {
153 case AF_INET:
154 if (flags & 1)
155 ((struct sockaddr_in *)&bind_addr)->sin_addr = ((struct sockaddr_in *)remote)->sin_addr;
156 if (flags & 2)
157 ((struct sockaddr_in *)&bind_addr)->sin_port = ((struct sockaddr_in *)remote)->sin_port;
158 break;
159 case AF_INET6:
160 if (flags & 1)
161 ((struct sockaddr_in6 *)&bind_addr)->sin6_addr = ((struct sockaddr_in6 *)remote)->sin6_addr;
162 if (flags & 2)
163 ((struct sockaddr_in6 *)&bind_addr)->sin6_port = ((struct sockaddr_in6 *)remote)->sin6_port;
164 break;
Willy Tarreau5dc1e982011-12-16 21:25:11 +0100165 default:
166 /* we don't want to try to bind to an unknown address family */
167 foreign_ok = 0;
David du Colombier6f5ccb12011-03-10 22:26:24 +0100168 }
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100169 }
170
Simon Hormande072bd2011-06-24 15:11:37 +0900171 setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, &one, sizeof(one));
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100172 if (foreign_ok) {
Willy Tarreau5f2877a2012-10-26 19:57:58 +0200173 if (is_addr(&bind_addr)) {
174 ret = bind(fd, (struct sockaddr *)&bind_addr, get_addr_len(&bind_addr));
175 if (ret < 0)
176 return 2;
177 }
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100178 }
179 else {
Willy Tarreau5f2877a2012-10-26 19:57:58 +0200180 if (is_addr(local)) {
181 ret = bind(fd, (struct sockaddr *)local, get_addr_len(local));
182 if (ret < 0)
183 return 1;
184 }
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100185 }
186
187 if (!flags)
188 return 0;
189
190#ifdef CONFIG_HAP_CTTPROXY
Willy Tarreau6f831b42011-03-20 14:03:54 +0100191 if (!foreign_ok && remote->ss_family == AF_INET) {
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100192 struct in_tproxy itp1, itp2;
193 memset(&itp1, 0, sizeof(itp1));
194
195 itp1.op = TPROXY_ASSIGN;
Willy Tarreau6f831b42011-03-20 14:03:54 +0100196 itp1.v.addr.faddr = ((struct sockaddr_in *)&bind_addr)->sin_addr;
197 itp1.v.addr.fport = ((struct sockaddr_in *)&bind_addr)->sin_port;
Willy Tarreaue8c66af2008-01-13 18:40:14 +0100198
199 /* set connect flag on socket */
200 itp2.op = TPROXY_FLAGS;
201 itp2.v.flags = ITP_CONNECT | ITP_ONCE;
202
203 if (setsockopt(fd, SOL_IP, IP_TPROXY, &itp1, sizeof(itp1)) != -1 &&
204 setsockopt(fd, SOL_IP, IP_TPROXY, &itp2, sizeof(itp2)) != -1) {
205 foreign_ok = 1;
206 }
207 }
208#endif
209 if (!foreign_ok)
210 /* we could not bind to a foreign address */
211 return 2;
212
213 return 0;
214}
Willy Tarreaue6b98942007-10-29 01:09:36 +0100215
Willy Tarreau9650f372009-08-16 14:02:45 +0200216
217/*
Willy Tarreau14f8e862012-08-30 22:23:13 +0200218 * This function initiates a TCP connection establishment to the target assigned
219 * to connection <conn> using (si->{target,addr.to}). A source address may be
220 * pointed to by conn->addr.from in case of transparent proxying. Normal source
221 * bind addresses are still determined locally (due to the possible need of a
222 * source port). conn->target may point either to a valid server or to a backend,
Willy Tarreau3fdb3662012-11-12 00:42:33 +0100223 * depending on conn->target. Only OBJ_TYPE_PROXY and OBJ_TYPE_SERVER are
Willy Tarreau14f8e862012-08-30 22:23:13 +0200224 * supported. The <data> parameter is a boolean indicating whether there are data
225 * waiting for being sent or not, in order to adjust data write polling and on
226 * some platforms, the ability to avoid an empty initial ACK.
Willy Tarreaub1d67742010-03-29 19:36:59 +0200227 *
Willy Tarreau9650f372009-08-16 14:02:45 +0200228 * It can return one of :
229 * - SN_ERR_NONE if everything's OK
230 * - SN_ERR_SRVTO if there are no more servers
231 * - SN_ERR_SRVCL if the connection was refused by the server
232 * - SN_ERR_PRXCOND if the connection has been limited by the proxy (maxconn)
233 * - SN_ERR_RESOURCE if a system resource is lacking (eg: fd limits, ports, ...)
234 * - SN_ERR_INTERNAL for any other purely internal errors
235 * Additionnally, in the case of SN_ERR_RESOURCE, an emergency log will be emitted.
236 */
Willy Tarreauf1536862011-03-03 18:27:32 +0100237
Willy Tarreau14f8e862012-08-30 22:23:13 +0200238int tcp_connect_server(struct connection *conn, int data)
Willy Tarreau9650f372009-08-16 14:02:45 +0200239{
240 int fd;
Willy Tarreauac825402011-03-04 22:04:29 +0100241 struct server *srv;
242 struct proxy *be;
243
Willy Tarreau3fdb3662012-11-12 00:42:33 +0100244 switch (obj_type(conn->target)) {
245 case OBJ_TYPE_PROXY:
246 be = objt_proxy(conn->target);
Willy Tarreauac825402011-03-04 22:04:29 +0100247 srv = NULL;
248 break;
Willy Tarreau3fdb3662012-11-12 00:42:33 +0100249 case OBJ_TYPE_SERVER:
250 srv = objt_server(conn->target);
Willy Tarreauac825402011-03-04 22:04:29 +0100251 be = srv->proxy;
252 break;
253 default:
254 return SN_ERR_INTERNAL;
255 }
Willy Tarreau9650f372009-08-16 14:02:45 +0200256
Willy Tarreau986a9d22012-08-30 21:11:38 +0200257 if ((fd = conn->t.sock.fd = socket(conn->addr.to.ss_family, SOCK_STREAM, IPPROTO_TCP)) == -1) {
Willy Tarreau9650f372009-08-16 14:02:45 +0200258 qfprintf(stderr, "Cannot get a server socket.\n");
259
260 if (errno == ENFILE)
261 send_log(be, LOG_EMERG,
262 "Proxy %s reached system FD limit at %d. Please check system tunables.\n",
263 be->id, maxfd);
264 else if (errno == EMFILE)
265 send_log(be, LOG_EMERG,
266 "Proxy %s reached process FD limit at %d. Please check 'ulimit-n' and restart.\n",
267 be->id, maxfd);
268 else if (errno == ENOBUFS || errno == ENOMEM)
269 send_log(be, LOG_EMERG,
270 "Proxy %s reached system memory limit at %d sockets. Please check system tunables.\n",
271 be->id, maxfd);
272 /* this is a resource error */
273 return SN_ERR_RESOURCE;
274 }
275
276 if (fd >= global.maxsock) {
277 /* do not log anything there, it's a normal condition when this option
278 * is used to serialize connections to a server !
279 */
280 Alert("socket(): not enough free sockets. Raise -n argument. Giving up.\n");
281 close(fd);
282 return SN_ERR_PRXCOND; /* it is a configuration limit */
283 }
284
285 if ((fcntl(fd, F_SETFL, O_NONBLOCK)==-1) ||
Simon Hormande072bd2011-06-24 15:11:37 +0900286 (setsockopt(fd, IPPROTO_TCP, TCP_NODELAY, &one, sizeof(one)) == -1)) {
Willy Tarreau9650f372009-08-16 14:02:45 +0200287 qfprintf(stderr,"Cannot set client socket to non blocking mode.\n");
288 close(fd);
289 return SN_ERR_INTERNAL;
290 }
291
292 if (be->options & PR_O_TCP_SRV_KA)
Simon Hormande072bd2011-06-24 15:11:37 +0900293 setsockopt(fd, SOL_SOCKET, SO_KEEPALIVE, &one, sizeof(one));
Willy Tarreau9650f372009-08-16 14:02:45 +0200294
Willy Tarreau9650f372009-08-16 14:02:45 +0200295 /* allow specific binding :
296 * - server-specific at first
297 * - proxy-specific next
298 */
299 if (srv != NULL && srv->state & SRV_BIND_SRC) {
Willy Tarreau9650f372009-08-16 14:02:45 +0200300 int ret, flags = 0;
301
Willy Tarreau5f2877a2012-10-26 19:57:58 +0200302 if (is_addr(&conn->addr.from)) {
303 switch (srv->state & SRV_TPROXY_MASK) {
304 case SRV_TPROXY_ADDR:
305 case SRV_TPROXY_CLI:
306 flags = 3;
307 break;
308 case SRV_TPROXY_CIP:
309 case SRV_TPROXY_DYN:
310 flags = 1;
311 break;
312 }
Willy Tarreau9650f372009-08-16 14:02:45 +0200313 }
Willy Tarreaub1d67742010-03-29 19:36:59 +0200314
Willy Tarreau9650f372009-08-16 14:02:45 +0200315#ifdef SO_BINDTODEVICE
316 /* Note: this might fail if not CAP_NET_RAW */
317 if (srv->iface_name)
318 setsockopt(fd, SOL_SOCKET, SO_BINDTODEVICE, srv->iface_name, srv->iface_len + 1);
319#endif
320
321 if (srv->sport_range) {
322 int attempts = 10; /* should be more than enough to find a spare port */
David du Colombier6f5ccb12011-03-10 22:26:24 +0100323 struct sockaddr_storage src;
Willy Tarreau9650f372009-08-16 14:02:45 +0200324
325 ret = 1;
326 src = srv->source_addr;
327
328 do {
329 /* note: in case of retry, we may have to release a previously
330 * allocated port, hence this loop's construct.
331 */
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200332 port_range_release_port(fdinfo[fd].port_range, fdinfo[fd].local_port);
333 fdinfo[fd].port_range = NULL;
Willy Tarreau9650f372009-08-16 14:02:45 +0200334
335 if (!attempts)
336 break;
337 attempts--;
338
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200339 fdinfo[fd].local_port = port_range_alloc_port(srv->sport_range);
340 if (!fdinfo[fd].local_port)
Willy Tarreau9650f372009-08-16 14:02:45 +0200341 break;
342
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200343 fdinfo[fd].port_range = srv->sport_range;
Willy Tarreau86ad42c2011-08-27 12:29:07 +0200344 set_host_port(&src, fdinfo[fd].local_port);
Willy Tarreau9650f372009-08-16 14:02:45 +0200345
Willy Tarreau986a9d22012-08-30 21:11:38 +0200346 ret = tcp_bind_socket(fd, flags, &src, &conn->addr.from);
Willy Tarreau9650f372009-08-16 14:02:45 +0200347 } while (ret != 0); /* binding NOK */
348 }
349 else {
Willy Tarreau986a9d22012-08-30 21:11:38 +0200350 ret = tcp_bind_socket(fd, flags, &srv->source_addr, &conn->addr.from);
Willy Tarreau9650f372009-08-16 14:02:45 +0200351 }
352
353 if (ret) {
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200354 port_range_release_port(fdinfo[fd].port_range, fdinfo[fd].local_port);
355 fdinfo[fd].port_range = NULL;
Willy Tarreau9650f372009-08-16 14:02:45 +0200356 close(fd);
357
358 if (ret == 1) {
359 Alert("Cannot bind to source address before connect() for server %s/%s. Aborting.\n",
360 be->id, srv->id);
361 send_log(be, LOG_EMERG,
362 "Cannot bind to source address before connect() for server %s/%s.\n",
363 be->id, srv->id);
364 } else {
365 Alert("Cannot bind to tproxy source address before connect() for server %s/%s. Aborting.\n",
366 be->id, srv->id);
367 send_log(be, LOG_EMERG,
368 "Cannot bind to tproxy source address before connect() for server %s/%s.\n",
369 be->id, srv->id);
370 }
371 return SN_ERR_RESOURCE;
372 }
373 }
374 else if (be->options & PR_O_BIND_SRC) {
Willy Tarreau9650f372009-08-16 14:02:45 +0200375 int ret, flags = 0;
376
Willy Tarreau5f2877a2012-10-26 19:57:58 +0200377 if (is_addr(&conn->addr.from)) {
378 switch (be->options & PR_O_TPXY_MASK) {
379 case PR_O_TPXY_ADDR:
380 case PR_O_TPXY_CLI:
381 flags = 3;
382 break;
383 case PR_O_TPXY_CIP:
384 case PR_O_TPXY_DYN:
385 flags = 1;
386 break;
387 }
Willy Tarreau9650f372009-08-16 14:02:45 +0200388 }
Willy Tarreaub1d67742010-03-29 19:36:59 +0200389
Willy Tarreau9650f372009-08-16 14:02:45 +0200390#ifdef SO_BINDTODEVICE
391 /* Note: this might fail if not CAP_NET_RAW */
392 if (be->iface_name)
393 setsockopt(fd, SOL_SOCKET, SO_BINDTODEVICE, be->iface_name, be->iface_len + 1);
394#endif
Willy Tarreau986a9d22012-08-30 21:11:38 +0200395 ret = tcp_bind_socket(fd, flags, &be->source_addr, &conn->addr.from);
Willy Tarreau9650f372009-08-16 14:02:45 +0200396 if (ret) {
397 close(fd);
398 if (ret == 1) {
399 Alert("Cannot bind to source address before connect() for proxy %s. Aborting.\n",
400 be->id);
401 send_log(be, LOG_EMERG,
402 "Cannot bind to source address before connect() for proxy %s.\n",
403 be->id);
404 } else {
405 Alert("Cannot bind to tproxy source address before connect() for proxy %s. Aborting.\n",
406 be->id);
407 send_log(be, LOG_EMERG,
408 "Cannot bind to tproxy source address before connect() for proxy %s.\n",
409 be->id);
410 }
411 return SN_ERR_RESOURCE;
412 }
413 }
414
Dmitry Sivachenkocaf58982009-08-24 15:11:06 +0400415#if defined(TCP_QUICKACK)
Willy Tarreau9650f372009-08-16 14:02:45 +0200416 /* disabling tcp quick ack now allows the first request to leave the
417 * machine with the first ACK. We only do this if there are pending
418 * data in the buffer.
419 */
Willy Tarreau14f8e862012-08-30 22:23:13 +0200420 if ((be->options2 & PR_O2_SMARTCON) && data)
Simon Hormande072bd2011-06-24 15:11:37 +0900421 setsockopt(fd, IPPROTO_TCP, TCP_QUICKACK, &zero, sizeof(zero));
Willy Tarreau9650f372009-08-16 14:02:45 +0200422#endif
423
Willy Tarreaue803de22010-01-21 17:43:04 +0100424 if (global.tune.server_sndbuf)
425 setsockopt(fd, SOL_SOCKET, SO_SNDBUF, &global.tune.server_sndbuf, sizeof(global.tune.server_sndbuf));
426
427 if (global.tune.server_rcvbuf)
428 setsockopt(fd, SOL_SOCKET, SO_RCVBUF, &global.tune.server_rcvbuf, sizeof(global.tune.server_rcvbuf));
429
Willy Tarreau986a9d22012-08-30 21:11:38 +0200430 if ((connect(fd, (struct sockaddr *)&conn->addr.to, get_addr_len(&conn->addr.to)) == -1) &&
Willy Tarreau9650f372009-08-16 14:02:45 +0200431 (errno != EINPROGRESS) && (errno != EALREADY) && (errno != EISCONN)) {
432
433 if (errno == EAGAIN || errno == EADDRINUSE) {
434 char *msg;
435 if (errno == EAGAIN) /* no free ports left, try again later */
436 msg = "no free ports";
437 else
438 msg = "local address already in use";
439
440 qfprintf(stderr,"Cannot connect: %s.\n",msg);
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200441 port_range_release_port(fdinfo[fd].port_range, fdinfo[fd].local_port);
442 fdinfo[fd].port_range = NULL;
Willy Tarreau9650f372009-08-16 14:02:45 +0200443 close(fd);
444 send_log(be, LOG_EMERG,
445 "Connect() failed for server %s/%s: %s.\n",
446 be->id, srv->id, msg);
447 return SN_ERR_RESOURCE;
448 } else if (errno == ETIMEDOUT) {
449 //qfprintf(stderr,"Connect(): ETIMEDOUT");
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200450 port_range_release_port(fdinfo[fd].port_range, fdinfo[fd].local_port);
451 fdinfo[fd].port_range = NULL;
Willy Tarreau9650f372009-08-16 14:02:45 +0200452 close(fd);
453 return SN_ERR_SRVTO;
454 } else {
455 // (errno == ECONNREFUSED || errno == ENETUNREACH || errno == EACCES || errno == EPERM)
456 //qfprintf(stderr,"Connect(): %d", errno);
Willy Tarreau8d5d77e2009-10-18 07:25:52 +0200457 port_range_release_port(fdinfo[fd].port_range, fdinfo[fd].local_port);
458 fdinfo[fd].port_range = NULL;
Willy Tarreau9650f372009-08-16 14:02:45 +0200459 close(fd);
460 return SN_ERR_SRVCL;
461 }
462 }
463
Willy Tarreau986a9d22012-08-30 21:11:38 +0200464 fdtab[fd].owner = conn;
Willy Tarreau986a9d22012-08-30 21:11:38 +0200465 conn->flags = CO_FL_WAIT_L4_CONN; /* connection in progress */
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200466
Willy Tarreaud2274c62012-07-06 14:29:45 +0200467 fdtab[fd].iocb = conn_fd_handler;
Willy Tarreau9650f372009-08-16 14:02:45 +0200468 fd_insert(fd);
Willy Tarreau986a9d22012-08-30 21:11:38 +0200469 conn_sock_want_send(conn); /* for connect status */
Willy Tarreau15678ef2012-08-31 13:54:11 +0200470
Willy Tarreauf7bc57c2012-10-03 00:19:48 +0200471 if (conn_xprt_init(conn) < 0) {
Willy Tarreau184636e2012-09-06 14:04:41 +0200472 fd_delete(fd);
Willy Tarreau15678ef2012-08-31 13:54:11 +0200473 return SN_ERR_RESOURCE;
Willy Tarreau184636e2012-09-06 14:04:41 +0200474 }
Willy Tarreau15678ef2012-08-31 13:54:11 +0200475
Willy Tarreau14f8e862012-08-30 22:23:13 +0200476 if (data)
Willy Tarreau986a9d22012-08-30 21:11:38 +0200477 conn_data_want_send(conn); /* prepare to send data if any */
Willy Tarreau9650f372009-08-16 14:02:45 +0200478
Willy Tarreau9650f372009-08-16 14:02:45 +0200479 return SN_ERR_NONE; /* connection is OK */
480}
481
482
Willy Tarreau59b94792012-05-11 16:16:40 +0200483/*
484 * Retrieves the source address for the socket <fd>, with <dir> indicating
485 * if we're a listener (=0) or an initiator (!=0). It returns 0 in case of
486 * success, -1 in case of error. The socket's source address is stored in
487 * <sa> for <salen> bytes.
488 */
489int tcp_get_src(int fd, struct sockaddr *sa, socklen_t salen, int dir)
490{
491 if (dir)
492 return getsockname(fd, sa, &salen);
493 else
494 return getpeername(fd, sa, &salen);
495}
496
497
498/*
499 * Retrieves the original destination address for the socket <fd>, with <dir>
500 * indicating if we're a listener (=0) or an initiator (!=0). In the case of a
501 * listener, if the original destination address was translated, the original
502 * address is retrieved. It returns 0 in case of success, -1 in case of error.
503 * The socket's source address is stored in <sa> for <salen> bytes.
504 */
505int tcp_get_dst(int fd, struct sockaddr *sa, socklen_t salen, int dir)
506{
507 if (dir)
508 return getpeername(fd, sa, &salen);
509#if defined(TPROXY) && defined(SO_ORIGINAL_DST)
510 else if (getsockopt(fd, SOL_IP, SO_ORIGINAL_DST, sa, &salen) == 0)
511 return 0;
512#endif
513 else
514 return getsockname(fd, sa, &salen);
515}
516
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200517/* This is the callback which is set when a connection establishment is pending
518 * and we have nothing to send, or if we have an init function we want to call
Willy Tarreauafad0e02012-08-09 14:45:22 +0200519 * once the connection is established. It updates the FD polling status. It
520 * returns 0 if it fails in a fatal way or needs to poll to go further, otherwise
521 * it returns non-zero and removes itself from the connection's flags (the bit is
522 * provided in <flag> by the caller).
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200523 */
Willy Tarreau239d7182012-07-23 18:53:03 +0200524int tcp_connect_probe(struct connection *conn)
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200525{
Willy Tarreau239d7182012-07-23 18:53:03 +0200526 int fd = conn->t.sock.fd;
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200527
Willy Tarreau80184712012-07-06 14:54:49 +0200528 if (conn->flags & CO_FL_ERROR)
Willy Tarreauafad0e02012-08-09 14:45:22 +0200529 return 0;
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200530
Willy Tarreau80184712012-07-06 14:54:49 +0200531 if (!(conn->flags & CO_FL_WAIT_L4_CONN))
Willy Tarreau0b0c0972012-07-23 20:05:00 +0200532 return 1; /* strange we were called while ready */
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200533
Willy Tarreau2da156f2012-07-23 15:07:23 +0200534 /* stop here if we reached the end of data */
535 if ((fdtab[fd].ev & (FD_POLL_IN|FD_POLL_HUP)) == FD_POLL_HUP)
536 goto out_error;
537
Willy Tarreau2c6be842012-07-06 17:12:34 +0200538 /* We have no data to send to check the connection, and
539 * getsockopt() will not inform us whether the connection
540 * is still pending. So we'll reuse connect() to check the
541 * state of the socket. This has the advantage of giving us
542 * the following info :
543 * - error
544 * - connecting (EALREADY, EINPROGRESS)
545 * - connected (EISCONN, 0)
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200546 */
Willy Tarreau986a9d22012-08-30 21:11:38 +0200547 if (connect(fd, (struct sockaddr *)&conn->addr.to, get_addr_len(&conn->addr.to)) < 0) {
Willy Tarreauf9dabec2012-08-17 17:33:53 +0200548 if (errno == EALREADY || errno == EINPROGRESS) {
549 conn_sock_stop_recv(conn);
550 conn_sock_poll_send(conn);
Willy Tarreau0b0c0972012-07-23 20:05:00 +0200551 return 0;
Willy Tarreauf9dabec2012-08-17 17:33:53 +0200552 }
Willy Tarreaua190d592012-05-20 18:35:19 +0200553
Willy Tarreau2c6be842012-07-06 17:12:34 +0200554 if (errno && errno != EISCONN)
Willy Tarreaua190d592012-05-20 18:35:19 +0200555 goto out_error;
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200556
Willy Tarreau2c6be842012-07-06 17:12:34 +0200557 /* otherwise we're connected */
Willy Tarreaua190d592012-05-20 18:35:19 +0200558 }
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200559
Willy Tarreau076be252012-07-06 16:02:29 +0200560 /* The FD is ready now, we'll mark the connection as complete and
Willy Tarreauf7bc57c2012-10-03 00:19:48 +0200561 * forward the event to the transport layer which will notify the
562 * data layer.
Willy Tarreaua190d592012-05-20 18:35:19 +0200563 */
Willy Tarreau80184712012-07-06 14:54:49 +0200564 conn->flags &= ~CO_FL_WAIT_L4_CONN;
Willy Tarreau0b0c0972012-07-23 20:05:00 +0200565 return 1;
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200566
567 out_error:
Willy Tarreau0b0c0972012-07-23 20:05:00 +0200568 /* Write error on the file descriptor. Report it to the connection
569 * and disable polling on this FD.
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200570 */
571
Willy Tarreau80184712012-07-06 14:54:49 +0200572 conn->flags |= CO_FL_ERROR;
Willy Tarreauf9dabec2012-08-17 17:33:53 +0200573 conn_sock_stop_both(conn);
Willy Tarreauafad0e02012-08-09 14:45:22 +0200574 return 0;
Willy Tarreaueeda90e2012-05-11 19:53:32 +0200575}
576
Willy Tarreau59b94792012-05-11 16:16:40 +0200577
Willy Tarreaue6b98942007-10-29 01:09:36 +0100578/* This function tries to bind a TCPv4/v6 listener. It may return a warning or
579 * an error message in <err> if the message is at most <errlen> bytes long
580 * (including '\0'). The return value is composed from ERR_ABORT, ERR_WARN,
581 * ERR_ALERT, ERR_RETRYABLE and ERR_FATAL. ERR_NONE indicates that everything
582 * was alright and that no message was returned. ERR_RETRYABLE means that an
583 * error occurred but that it may vanish after a retry (eg: port in use), and
Aman Guptad94991d2012-04-06 17:39:26 -0700584 * ERR_FATAL indicates a non-fixable error. ERR_WARN and ERR_ALERT do not alter
Willy Tarreaue6b98942007-10-29 01:09:36 +0100585 * the meaning of the error, but just indicate that a message is present which
586 * should be displayed with the respective level. Last, ERR_ABORT indicates
587 * that it's pointless to try to start other listeners. No error message is
588 * returned if errlen is NULL.
589 */
590int tcp_bind_listener(struct listener *listener, char *errmsg, int errlen)
591{
592 __label__ tcp_return, tcp_close_return;
593 int fd, err;
594 const char *msg = NULL;
595
596 /* ensure we never return garbage */
597 if (errmsg && errlen)
598 *errmsg = 0;
599
600 if (listener->state != LI_ASSIGNED)
601 return ERR_NONE; /* already bound */
602
603 err = ERR_NONE;
604
605 if ((fd = socket(listener->addr.ss_family, SOCK_STREAM, IPPROTO_TCP)) == -1) {
606 err |= ERR_RETRYABLE | ERR_ALERT;
607 msg = "cannot create listening socket";
608 goto tcp_return;
609 }
Willy Tarreauedcf6682008-11-30 23:15:34 +0100610
Willy Tarreaue6b98942007-10-29 01:09:36 +0100611 if (fd >= global.maxsock) {
612 err |= ERR_FATAL | ERR_ABORT | ERR_ALERT;
613 msg = "not enough free sockets (raise '-n' parameter)";
614 goto tcp_close_return;
615 }
616
Willy Tarreaufb14edc2009-06-14 15:24:37 +0200617 if (fcntl(fd, F_SETFL, O_NONBLOCK) == -1) {
Willy Tarreaue6b98942007-10-29 01:09:36 +0100618 err |= ERR_FATAL | ERR_ALERT;
619 msg = "cannot make socket non-blocking";
620 goto tcp_close_return;
621 }
622
Simon Hormande072bd2011-06-24 15:11:37 +0900623 if (setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, &one, sizeof(one)) == -1) {
Willy Tarreaue6b98942007-10-29 01:09:36 +0100624 /* not fatal but should be reported */
625 msg = "cannot do so_reuseaddr";
626 err |= ERR_ALERT;
627 }
628
629 if (listener->options & LI_O_NOLINGER)
Simon Hormande072bd2011-06-24 15:11:37 +0900630 setsockopt(fd, SOL_SOCKET, SO_LINGER, &nolinger, sizeof(struct linger));
Willy Tarreauedcf6682008-11-30 23:15:34 +0100631
Willy Tarreaue6b98942007-10-29 01:09:36 +0100632#ifdef SO_REUSEPORT
633 /* OpenBSD supports this. As it's present in old libc versions of Linux,
634 * it might return an error that we will silently ignore.
635 */
Simon Hormande072bd2011-06-24 15:11:37 +0900636 setsockopt(fd, SOL_SOCKET, SO_REUSEPORT, &one, sizeof(one));
Willy Tarreaue6b98942007-10-29 01:09:36 +0100637#endif
Willy Tarreaub1e52e82008-01-13 14:49:51 +0100638#ifdef CONFIG_HAP_LINUX_TPROXY
David du Colombier65c17962012-07-13 14:34:59 +0200639 if (listener->options & LI_O_FOREIGN) {
640 switch (listener->addr.ss_family) {
641 case AF_INET:
642 if ((setsockopt(fd, SOL_IP, IP_TRANSPARENT, &one, sizeof(one)) == -1)
643 && (setsockopt(fd, SOL_IP, IP_FREEBIND, &one, sizeof(one)) == -1)) {
644 msg = "cannot make listening socket transparent";
645 err |= ERR_ALERT;
646 }
647 break;
648 case AF_INET6:
649 if (setsockopt(fd, SOL_IPV6, IPV6_TRANSPARENT, &one, sizeof(one)) == -1) {
650 msg = "cannot make listening socket transparent";
651 err |= ERR_ALERT;
652 }
653 break;
654 }
Willy Tarreaub1e52e82008-01-13 14:49:51 +0100655 }
656#endif
Willy Tarreau5e6e2042009-02-04 17:19:29 +0100657#ifdef SO_BINDTODEVICE
658 /* Note: this might fail if not CAP_NET_RAW */
659 if (listener->interface) {
660 if (setsockopt(fd, SOL_SOCKET, SO_BINDTODEVICE,
Willy Tarreau604e8302009-03-06 00:48:23 +0100661 listener->interface, strlen(listener->interface) + 1) == -1) {
Willy Tarreau5e6e2042009-02-04 17:19:29 +0100662 msg = "cannot bind listener to device";
663 err |= ERR_WARN;
664 }
665 }
666#endif
Dmitry Sivachenkocaf58982009-08-24 15:11:06 +0400667#if defined(TCP_MAXSEG)
Willy Tarreau48a7e722010-12-24 15:26:39 +0100668 if (listener->maxseg > 0) {
Dmitry Sivachenkocaf58982009-08-24 15:11:06 +0400669 if (setsockopt(fd, IPPROTO_TCP, TCP_MAXSEG,
Willy Tarreaube1b9182009-06-14 18:48:19 +0200670 &listener->maxseg, sizeof(listener->maxseg)) == -1) {
671 msg = "cannot set MSS";
672 err |= ERR_WARN;
673 }
674 }
675#endif
Willy Tarreaucb6cd432009-10-13 07:34:14 +0200676#if defined(TCP_DEFER_ACCEPT)
677 if (listener->options & LI_O_DEF_ACCEPT) {
678 /* defer accept by up to one second */
679 int accept_delay = 1;
680 if (setsockopt(fd, IPPROTO_TCP, TCP_DEFER_ACCEPT, &accept_delay, sizeof(accept_delay)) == -1) {
681 msg = "cannot enable DEFER_ACCEPT";
682 err |= ERR_WARN;
683 }
684 }
685#endif
Willy Tarreau1c862c52012-10-05 16:21:00 +0200686#if defined(TCP_FASTOPEN)
687 if (listener->options & LI_O_TCP_FO) {
688 /* TFO needs a queue length, let's use the configured backlog */
689 int qlen = listener->backlog ? listener->backlog : listener->maxconn;
690 if (setsockopt(fd, IPPROTO_TCP, TCP_FASTOPEN, &qlen, sizeof(qlen)) == -1) {
691 msg = "cannot enable TCP_FASTOPEN";
692 err |= ERR_WARN;
693 }
694 }
695#endif
Willy Tarreaue6b98942007-10-29 01:09:36 +0100696 if (bind(fd, (struct sockaddr *)&listener->addr, listener->proto->sock_addrlen) == -1) {
697 err |= ERR_RETRYABLE | ERR_ALERT;
698 msg = "cannot bind socket";
699 goto tcp_close_return;
700 }
Willy Tarreauedcf6682008-11-30 23:15:34 +0100701
Willy Tarreauc73ce2b2008-01-06 10:55:10 +0100702 if (listen(fd, listener->backlog ? listener->backlog : listener->maxconn) == -1) {
Willy Tarreaue6b98942007-10-29 01:09:36 +0100703 err |= ERR_RETRYABLE | ERR_ALERT;
704 msg = "cannot listen to socket";
705 goto tcp_close_return;
706 }
Willy Tarreauedcf6682008-11-30 23:15:34 +0100707
Dmitry Sivachenkocaf58982009-08-24 15:11:06 +0400708#if defined(TCP_QUICKACK)
Willy Tarreau9ea05a72009-06-14 12:07:01 +0200709 if (listener->options & LI_O_NOQUICKACK)
Simon Hormande072bd2011-06-24 15:11:37 +0900710 setsockopt(fd, IPPROTO_TCP, TCP_QUICKACK, &zero, sizeof(zero));
Willy Tarreau9ea05a72009-06-14 12:07:01 +0200711#endif
712
Willy Tarreaue6b98942007-10-29 01:09:36 +0100713 /* the socket is ready */
714 listener->fd = fd;
715 listener->state = LI_LISTEN;
716
Willy Tarreaueabf3132008-08-29 23:36:51 +0200717 fdtab[fd].owner = listener; /* reference the listener instead of a task */
Willy Tarreauaece46a2012-07-06 12:25:58 +0200718 fdtab[fd].iocb = listener->proto->accept;
Willy Tarreaueb472682010-05-28 18:46:57 +0200719 fd_insert(fd);
720
Willy Tarreaue6b98942007-10-29 01:09:36 +0100721 tcp_return:
Cyril Bonté43ba1b32010-11-01 19:26:01 +0100722 if (msg && errlen) {
723 char pn[INET6_ADDRSTRLEN];
724
Willy Tarreau631f01c2011-09-05 00:36:48 +0200725 addr_to_str(&listener->addr, pn, sizeof(pn));
726 snprintf(errmsg, errlen, "%s [%s:%d]", msg, pn, get_host_port(&listener->addr));
Cyril Bonté43ba1b32010-11-01 19:26:01 +0100727 }
Willy Tarreaue6b98942007-10-29 01:09:36 +0100728 return err;
729
730 tcp_close_return:
731 close(fd);
732 goto tcp_return;
733}
734
735/* This function creates all TCP sockets bound to the protocol entry <proto>.
736 * It is intended to be used as the protocol's bind_all() function.
737 * The sockets will be registered but not added to any fd_set, in order not to
738 * loose them across the fork(). A call to enable_all_listeners() is needed
739 * to complete initialization. The return value is composed from ERR_*.
740 */
Emeric Bruncf20bf12010-10-22 16:06:11 +0200741static int tcp_bind_listeners(struct protocol *proto, char *errmsg, int errlen)
Willy Tarreaue6b98942007-10-29 01:09:36 +0100742{
743 struct listener *listener;
744 int err = ERR_NONE;
745
746 list_for_each_entry(listener, &proto->listeners, proto_list) {
Emeric Bruncf20bf12010-10-22 16:06:11 +0200747 err |= tcp_bind_listener(listener, errmsg, errlen);
748 if (err & ERR_ABORT)
Willy Tarreaue6b98942007-10-29 01:09:36 +0100749 break;
750 }
751
752 return err;
753}
754
755/* Add listener to the list of tcpv4 listeners. The listener's state
756 * is automatically updated from LI_INIT to LI_ASSIGNED. The number of
757 * listeners is updated. This is the function to use to add a new listener.
758 */
759void tcpv4_add_listener(struct listener *listener)
760{
761 if (listener->state != LI_INIT)
762 return;
763 listener->state = LI_ASSIGNED;
764 listener->proto = &proto_tcpv4;
765 LIST_ADDQ(&proto_tcpv4.listeners, &listener->proto_list);
766 proto_tcpv4.nb_listeners++;
767}
768
769/* Add listener to the list of tcpv4 listeners. The listener's state
770 * is automatically updated from LI_INIT to LI_ASSIGNED. The number of
771 * listeners is updated. This is the function to use to add a new listener.
772 */
773void tcpv6_add_listener(struct listener *listener)
774{
775 if (listener->state != LI_INIT)
776 return;
777 listener->state = LI_ASSIGNED;
778 listener->proto = &proto_tcpv6;
779 LIST_ADDQ(&proto_tcpv6.listeners, &listener->proto_list);
780 proto_tcpv6.nb_listeners++;
781}
782
Willy Tarreauedcf6682008-11-30 23:15:34 +0100783/* This function performs the TCP request analysis on the current request. It
784 * returns 1 if the processing can continue on next analysers, or zero if it
785 * needs more data, encounters an error, or wants to immediately abort the
Willy Tarreaufb356202010-08-03 14:02:05 +0200786 * request. It relies on buffers flags, and updates s->req->analysers. The
787 * function may be called for frontend rules and backend rules. It only relies
788 * on the backend pointer so this works for both cases.
Willy Tarreauedcf6682008-11-30 23:15:34 +0100789 */
Willy Tarreau7421efb2012-07-02 15:11:27 +0200790int tcp_inspect_request(struct session *s, struct channel *req, int an_bit)
Willy Tarreauedcf6682008-11-30 23:15:34 +0100791{
792 struct tcp_rule *rule;
Willy Tarreaud1f96522010-08-03 19:34:32 +0200793 struct stksess *ts;
794 struct stktable *t;
Willy Tarreauedcf6682008-11-30 23:15:34 +0100795 int partial;
796
Willy Tarreau02d6cfc2012-03-01 18:19:58 +0100797 DPRINTF(stderr,"[%u] %s: session=%p b=%p, exp(r,w)=%u,%u bf=%08x bh=%d analysers=%02x\n",
Willy Tarreauedcf6682008-11-30 23:15:34 +0100798 now_ms, __FUNCTION__,
799 s,
800 req,
801 req->rex, req->wex,
802 req->flags,
Willy Tarreau9b28e032012-10-12 23:49:43 +0200803 req->buf->i,
Willy Tarreauedcf6682008-11-30 23:15:34 +0100804 req->analysers);
805
Willy Tarreauedcf6682008-11-30 23:15:34 +0100806 /* We don't know whether we have enough data, so must proceed
807 * this way :
808 * - iterate through all rules in their declaration order
809 * - if one rule returns MISS, it means the inspect delay is
810 * not over yet, then return immediately, otherwise consider
811 * it as a non-match.
812 * - if one rule returns OK, then return OK
813 * - if one rule returns KO, then return KO
814 */
815
Willy Tarreau9b28e032012-10-12 23:49:43 +0200816 if ((req->flags & CF_SHUTR) || buffer_full(req->buf, global.tune.maxrewrite) ||
Willy Tarreau3bf1b2b2012-08-27 20:46:07 +0200817 !s->be->tcp_req.inspect_delay || tick_is_expired(req->analyse_exp, now_ms))
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200818 partial = SMP_OPT_FINAL;
Willy Tarreauedcf6682008-11-30 23:15:34 +0100819 else
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200820 partial = 0;
Willy Tarreauedcf6682008-11-30 23:15:34 +0100821
Willy Tarreaufb356202010-08-03 14:02:05 +0200822 list_for_each_entry(rule, &s->be->tcp_req.inspect_rules, list) {
Willy Tarreauedcf6682008-11-30 23:15:34 +0100823 int ret = ACL_PAT_PASS;
824
825 if (rule->cond) {
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200826 ret = acl_exec_cond(rule->cond, s->be, s, &s->txn, SMP_OPT_DIR_REQ | partial);
Willy Tarreauedcf6682008-11-30 23:15:34 +0100827 if (ret == ACL_PAT_MISS) {
Willy Tarreau8263d2b2012-08-28 00:06:31 +0200828 channel_dont_connect(req);
Willy Tarreauedcf6682008-11-30 23:15:34 +0100829 /* just set the request timeout once at the beginning of the request */
Willy Tarreaufb356202010-08-03 14:02:05 +0200830 if (!tick_isset(req->analyse_exp) && s->be->tcp_req.inspect_delay)
831 req->analyse_exp = tick_add_ifset(now_ms, s->be->tcp_req.inspect_delay);
Willy Tarreauedcf6682008-11-30 23:15:34 +0100832 return 0;
833 }
834
835 ret = acl_pass(ret);
836 if (rule->cond->pol == ACL_COND_UNLESS)
837 ret = !ret;
838 }
839
840 if (ret) {
841 /* we have a matching rule. */
842 if (rule->action == TCP_ACT_REJECT) {
Willy Tarreau8263d2b2012-08-28 00:06:31 +0200843 channel_abort(req);
844 channel_abort(s->rep);
Willy Tarreauedcf6682008-11-30 23:15:34 +0100845 req->analysers = 0;
Krzysztof Piotr Oledzkiaeebf9b2009-10-04 15:43:17 +0200846
Willy Tarreau7d0aaf32011-03-10 23:25:56 +0100847 s->be->be_counters.denied_req++;
848 s->fe->fe_counters.denied_req++;
Krzysztof Piotr Oledzkiaeebf9b2009-10-04 15:43:17 +0200849 if (s->listener->counters)
Willy Tarreau23968d82010-05-23 23:50:44 +0200850 s->listener->counters->denied_req++;
Krzysztof Piotr Oledzkiaeebf9b2009-10-04 15:43:17 +0200851
Willy Tarreauedcf6682008-11-30 23:15:34 +0100852 if (!(s->flags & SN_ERR_MASK))
853 s->flags |= SN_ERR_PRXCOND;
854 if (!(s->flags & SN_FINST_MASK))
855 s->flags |= SN_FINST_R;
856 return 0;
857 }
Willy Tarreau56123282010-08-06 19:06:56 +0200858 else if (rule->action == TCP_ACT_TRK_SC1) {
859 if (!s->stkctr1_entry) {
860 /* only the first valid track-sc1 directive applies.
Willy Tarreaud1f96522010-08-03 19:34:32 +0200861 * Also, note that right now we can only track SRC so we
862 * don't check how to get the key, but later we may need
863 * to consider rule->act_prm->trk_ctr.type.
864 */
865 t = rule->act_prm.trk_ctr.table.t;
Willy Tarreauf2943dc2012-10-26 20:10:28 +0200866 ts = stktable_get_entry(t, addr_to_stktable_key(&s->si[0].conn->addr.from));
Willy Tarreau0a4838c2010-08-06 20:11:05 +0200867 if (ts) {
Willy Tarreau56123282010-08-06 19:06:56 +0200868 session_track_stkctr1(s, t, ts);
Willy Tarreau0a4838c2010-08-06 20:11:05 +0200869 if (s->fe != s->be)
870 s->flags |= SN_BE_TRACK_SC1;
871 }
Willy Tarreaud1f96522010-08-03 19:34:32 +0200872 }
873 }
Willy Tarreau56123282010-08-06 19:06:56 +0200874 else if (rule->action == TCP_ACT_TRK_SC2) {
875 if (!s->stkctr2_entry) {
876 /* only the first valid track-sc2 directive applies.
Willy Tarreaud1f96522010-08-03 19:34:32 +0200877 * Also, note that right now we can only track SRC so we
878 * don't check how to get the key, but later we may need
879 * to consider rule->act_prm->trk_ctr.type.
880 */
881 t = rule->act_prm.trk_ctr.table.t;
Willy Tarreauf2943dc2012-10-26 20:10:28 +0200882 ts = stktable_get_entry(t, addr_to_stktable_key(&s->si[0].conn->addr.from));
Willy Tarreau0a4838c2010-08-06 20:11:05 +0200883 if (ts) {
Willy Tarreau56123282010-08-06 19:06:56 +0200884 session_track_stkctr2(s, t, ts);
Willy Tarreau0a4838c2010-08-06 20:11:05 +0200885 if (s->fe != s->be)
886 s->flags |= SN_BE_TRACK_SC2;
887 }
Willy Tarreaud1f96522010-08-03 19:34:32 +0200888 }
889 }
890 else {
Willy Tarreauedcf6682008-11-30 23:15:34 +0100891 /* otherwise accept */
Willy Tarreaud1f96522010-08-03 19:34:32 +0200892 break;
893 }
Willy Tarreauedcf6682008-11-30 23:15:34 +0100894 }
895 }
896
897 /* if we get there, it means we have no rule which matches, or
898 * we have an explicit accept, so we apply the default accept.
899 */
Willy Tarreau3a816292009-07-07 10:55:49 +0200900 req->analysers &= ~an_bit;
Willy Tarreauedcf6682008-11-30 23:15:34 +0100901 req->analyse_exp = TICK_ETERNITY;
902 return 1;
903}
904
Emeric Brun97679e72010-09-23 17:56:44 +0200905/* This function performs the TCP response analysis on the current response. It
906 * returns 1 if the processing can continue on next analysers, or zero if it
907 * needs more data, encounters an error, or wants to immediately abort the
908 * response. It relies on buffers flags, and updates s->rep->analysers. The
909 * function may be called for backend rules.
910 */
Willy Tarreau7421efb2012-07-02 15:11:27 +0200911int tcp_inspect_response(struct session *s, struct channel *rep, int an_bit)
Emeric Brun97679e72010-09-23 17:56:44 +0200912{
913 struct tcp_rule *rule;
914 int partial;
915
Willy Tarreau02d6cfc2012-03-01 18:19:58 +0100916 DPRINTF(stderr,"[%u] %s: session=%p b=%p, exp(r,w)=%u,%u bf=%08x bh=%d analysers=%02x\n",
Emeric Brun97679e72010-09-23 17:56:44 +0200917 now_ms, __FUNCTION__,
918 s,
919 rep,
920 rep->rex, rep->wex,
921 rep->flags,
Willy Tarreau9b28e032012-10-12 23:49:43 +0200922 rep->buf->i,
Emeric Brun97679e72010-09-23 17:56:44 +0200923 rep->analysers);
924
925 /* We don't know whether we have enough data, so must proceed
926 * this way :
927 * - iterate through all rules in their declaration order
928 * - if one rule returns MISS, it means the inspect delay is
929 * not over yet, then return immediately, otherwise consider
930 * it as a non-match.
931 * - if one rule returns OK, then return OK
932 * - if one rule returns KO, then return KO
933 */
934
Willy Tarreau03cdb7c2012-08-27 23:14:58 +0200935 if (rep->flags & CF_SHUTR || tick_is_expired(rep->analyse_exp, now_ms))
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200936 partial = SMP_OPT_FINAL;
Emeric Brun97679e72010-09-23 17:56:44 +0200937 else
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200938 partial = 0;
Emeric Brun97679e72010-09-23 17:56:44 +0200939
940 list_for_each_entry(rule, &s->be->tcp_rep.inspect_rules, list) {
941 int ret = ACL_PAT_PASS;
942
943 if (rule->cond) {
Willy Tarreau32a6f2e2012-04-25 10:13:36 +0200944 ret = acl_exec_cond(rule->cond, s->be, s, &s->txn, SMP_OPT_DIR_RES | partial);
Emeric Brun97679e72010-09-23 17:56:44 +0200945 if (ret == ACL_PAT_MISS) {
946 /* just set the analyser timeout once at the beginning of the response */
947 if (!tick_isset(rep->analyse_exp) && s->be->tcp_rep.inspect_delay)
948 rep->analyse_exp = tick_add_ifset(now_ms, s->be->tcp_rep.inspect_delay);
949 return 0;
950 }
951
952 ret = acl_pass(ret);
953 if (rule->cond->pol == ACL_COND_UNLESS)
954 ret = !ret;
955 }
956
957 if (ret) {
958 /* we have a matching rule. */
959 if (rule->action == TCP_ACT_REJECT) {
Willy Tarreau8263d2b2012-08-28 00:06:31 +0200960 channel_abort(rep);
961 channel_abort(s->req);
Emeric Brun97679e72010-09-23 17:56:44 +0200962 rep->analysers = 0;
963
Willy Tarreau7d0aaf32011-03-10 23:25:56 +0100964 s->be->be_counters.denied_resp++;
965 s->fe->fe_counters.denied_resp++;
Emeric Brun97679e72010-09-23 17:56:44 +0200966 if (s->listener->counters)
967 s->listener->counters->denied_resp++;
968
969 if (!(s->flags & SN_ERR_MASK))
970 s->flags |= SN_ERR_PRXCOND;
971 if (!(s->flags & SN_FINST_MASK))
972 s->flags |= SN_FINST_D;
973 return 0;
974 }
975 else {
976 /* otherwise accept */
977 break;
978 }
979 }
980 }
981
982 /* if we get there, it means we have no rule which matches, or
983 * we have an explicit accept, so we apply the default accept.
984 */
985 rep->analysers &= ~an_bit;
986 rep->analyse_exp = TICK_ETERNITY;
987 return 1;
988}
989
990
Willy Tarreaua5c0ab22010-05-31 10:30:33 +0200991/* This function performs the TCP layer4 analysis on the current request. It
992 * returns 0 if a reject rule matches, otherwise 1 if either an accept rule
993 * matches or if no more rule matches. It can only use rules which don't need
994 * any data.
995 */
996int tcp_exec_req_rules(struct session *s)
997{
998 struct tcp_rule *rule;
Willy Tarreauf059a0f2010-08-03 16:29:52 +0200999 struct stksess *ts;
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001000 struct stktable *t = NULL;
1001 int result = 1;
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001002 int ret;
1003
1004 list_for_each_entry(rule, &s->fe->tcp_req.l4_rules, list) {
1005 ret = ACL_PAT_PASS;
1006
1007 if (rule->cond) {
Willy Tarreau32a6f2e2012-04-25 10:13:36 +02001008 ret = acl_exec_cond(rule->cond, s->fe, s, NULL, SMP_OPT_DIR_REQ|SMP_OPT_FINAL);
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001009 ret = acl_pass(ret);
1010 if (rule->cond->pol == ACL_COND_UNLESS)
1011 ret = !ret;
1012 }
1013
1014 if (ret) {
1015 /* we have a matching rule. */
1016 if (rule->action == TCP_ACT_REJECT) {
Willy Tarreau7d0aaf32011-03-10 23:25:56 +01001017 s->fe->fe_counters.denied_conn++;
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001018 if (s->listener->counters)
Willy Tarreau2799e982010-06-05 15:43:21 +02001019 s->listener->counters->denied_conn++;
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001020
1021 if (!(s->flags & SN_ERR_MASK))
1022 s->flags |= SN_ERR_PRXCOND;
1023 if (!(s->flags & SN_FINST_MASK))
1024 s->flags |= SN_FINST_R;
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001025 result = 0;
1026 break;
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001027 }
Willy Tarreau56123282010-08-06 19:06:56 +02001028 else if (rule->action == TCP_ACT_TRK_SC1) {
1029 if (!s->stkctr1_entry) {
1030 /* only the first valid track-sc1 directive applies.
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001031 * Also, note that right now we can only track SRC so we
1032 * don't check how to get the key, but later we may need
1033 * to consider rule->act_prm->trk_ctr.type.
1034 */
1035 t = rule->act_prm.trk_ctr.table.t;
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001036 ts = stktable_get_entry(t, addr_to_stktable_key(&s->si[0].conn->addr.from));
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001037 if (ts)
Willy Tarreau56123282010-08-06 19:06:56 +02001038 session_track_stkctr1(s, t, ts);
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001039 }
1040 }
Willy Tarreau56123282010-08-06 19:06:56 +02001041 else if (rule->action == TCP_ACT_TRK_SC2) {
1042 if (!s->stkctr2_entry) {
1043 /* only the first valid track-sc2 directive applies.
Willy Tarreauf059a0f2010-08-03 16:29:52 +02001044 * Also, note that right now we can only track SRC so we
1045 * don't check how to get the key, but later we may need
1046 * to consider rule->act_prm->trk_ctr.type.
1047 */
1048 t = rule->act_prm.trk_ctr.table.t;
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001049 ts = stktable_get_entry(t, addr_to_stktable_key(&s->si[0].conn->addr.from));
Willy Tarreauf059a0f2010-08-03 16:29:52 +02001050 if (ts)
Willy Tarreau56123282010-08-06 19:06:56 +02001051 session_track_stkctr2(s, t, ts);
Willy Tarreauf059a0f2010-08-03 16:29:52 +02001052 }
1053 }
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001054 else {
1055 /* otherwise it's an accept */
1056 break;
1057 }
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001058 }
1059 }
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001060 return result;
Willy Tarreaua5c0ab22010-05-31 10:30:33 +02001061}
1062
Emeric Brun97679e72010-09-23 17:56:44 +02001063/* Parse a tcp-response rule. Return a negative value in case of failure */
1064static int tcp_parse_response_rule(char **args, int arg, int section_type,
1065 struct proxy *curpx, struct proxy *defpx,
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001066 struct tcp_rule *rule, char **err)
Emeric Brun97679e72010-09-23 17:56:44 +02001067{
1068 if (curpx == defpx || !(curpx->cap & PR_CAP_BE)) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001069 memprintf(err, "%s %s is only allowed in 'backend' sections",
1070 args[0], args[1]);
Emeric Brun97679e72010-09-23 17:56:44 +02001071 return -1;
1072 }
1073
1074 if (strcmp(args[arg], "accept") == 0) {
1075 arg++;
1076 rule->action = TCP_ACT_ACCEPT;
1077 }
1078 else if (strcmp(args[arg], "reject") == 0) {
1079 arg++;
1080 rule->action = TCP_ACT_REJECT;
1081 }
1082 else {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001083 memprintf(err,
1084 "'%s %s' expects 'accept' or 'reject' in %s '%s' (got '%s')",
1085 args[0], args[1], proxy_type_str(curpx), curpx->id, args[arg]);
Emeric Brun97679e72010-09-23 17:56:44 +02001086 return -1;
1087 }
1088
1089 if (strcmp(args[arg], "if") == 0 || strcmp(args[arg], "unless") == 0) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001090 if ((rule->cond = build_acl_cond(NULL, 0, curpx, (const char **)args+arg, err)) == NULL) {
1091 memprintf(err,
1092 "'%s %s %s' : error detected in %s '%s' while parsing '%s' condition : %s",
1093 args[0], args[1], args[2], proxy_type_str(curpx), curpx->id, args[arg], *err);
Emeric Brun97679e72010-09-23 17:56:44 +02001094 return -1;
1095 }
1096 }
1097 else if (*args[arg]) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001098 memprintf(err,
1099 "'%s %s %s' only accepts 'if' or 'unless', in %s '%s' (got '%s')",
Emeric Brun97679e72010-09-23 17:56:44 +02001100 args[0], args[1], args[2], proxy_type_str(curpx), curpx->id, args[arg]);
1101 return -1;
1102 }
1103 return 0;
1104}
1105
1106
1107
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001108/* Parse a tcp-request rule. Return a negative value in case of failure */
1109static int tcp_parse_request_rule(char **args, int arg, int section_type,
1110 struct proxy *curpx, struct proxy *defpx,
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001111 struct tcp_rule *rule, char **err)
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001112{
1113 if (curpx == defpx) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001114 memprintf(err, "%s %s is not allowed in 'defaults' sections",
1115 args[0], args[1]);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001116 return -1;
1117 }
1118
1119 if (!strcmp(args[arg], "accept")) {
1120 arg++;
1121 rule->action = TCP_ACT_ACCEPT;
1122 }
1123 else if (!strcmp(args[arg], "reject")) {
1124 arg++;
1125 rule->action = TCP_ACT_REJECT;
1126 }
Willy Tarreau56123282010-08-06 19:06:56 +02001127 else if (strcmp(args[arg], "track-sc1") == 0) {
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001128 int ret;
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001129 int kw = arg;
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001130
1131 arg++;
1132 ret = parse_track_counters(args, &arg, section_type, curpx,
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001133 &rule->act_prm.trk_ctr, defpx, err);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001134
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001135 if (ret < 0) { /* nb: warnings are not handled yet */
1136 memprintf(err,
1137 "'%s %s %s' : %s in %s '%s'",
1138 args[0], args[1], args[kw], *err, proxy_type_str(curpx), curpx->id);
1139 return ret;
1140 }
Willy Tarreau56123282010-08-06 19:06:56 +02001141 rule->action = TCP_ACT_TRK_SC1;
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001142 }
Willy Tarreau56123282010-08-06 19:06:56 +02001143 else if (strcmp(args[arg], "track-sc2") == 0) {
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001144 int ret;
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001145 int kw = arg;
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001146
1147 arg++;
1148 ret = parse_track_counters(args, &arg, section_type, curpx,
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001149 &rule->act_prm.trk_ctr, defpx, err);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001150
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001151 if (ret < 0) { /* nb: warnings are not handled yet */
1152 memprintf(err,
1153 "'%s %s %s' : %s in %s '%s'",
1154 args[0], args[1], args[kw], *err, proxy_type_str(curpx), curpx->id);
1155 return ret;
1156 }
Willy Tarreau56123282010-08-06 19:06:56 +02001157 rule->action = TCP_ACT_TRK_SC2;
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001158 }
1159 else {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001160 memprintf(err,
1161 "'%s %s' expects 'accept', 'reject', 'track-sc1' "
1162 "or 'track-sc2' in %s '%s' (got '%s')",
1163 args[0], args[1], proxy_type_str(curpx), curpx->id, args[arg]);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001164 return -1;
1165 }
1166
1167 if (strcmp(args[arg], "if") == 0 || strcmp(args[arg], "unless") == 0) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001168 if ((rule->cond = build_acl_cond(NULL, 0, curpx, (const char **)args+arg, err)) == NULL) {
1169 memprintf(err,
1170 "'%s %s %s' : error detected in %s '%s' while parsing '%s' condition : %s",
1171 args[0], args[1], args[2], proxy_type_str(curpx), curpx->id, args[arg], *err);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001172 return -1;
1173 }
1174 }
1175 else if (*args[arg]) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001176 memprintf(err,
1177 "'%s %s %s' only accepts 'if' or 'unless', in %s '%s' (got '%s')",
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001178 args[0], args[1], args[2], proxy_type_str(curpx), curpx->id, args[arg]);
1179 return -1;
1180 }
1181 return 0;
1182}
1183
Emeric Brun97679e72010-09-23 17:56:44 +02001184/* This function should be called to parse a line starting with the "tcp-response"
1185 * keyword.
1186 */
1187static int tcp_parse_tcp_rep(char **args, int section_type, struct proxy *curpx,
Willy Tarreau28a47d62012-09-18 20:02:48 +02001188 struct proxy *defpx, const char *file, int line,
1189 char **err)
Emeric Brun97679e72010-09-23 17:56:44 +02001190{
1191 const char *ptr = NULL;
1192 unsigned int val;
Emeric Brun97679e72010-09-23 17:56:44 +02001193 int warn = 0;
1194 int arg;
1195 struct tcp_rule *rule;
1196
1197 if (!*args[1]) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001198 memprintf(err, "missing argument for '%s' in %s '%s'",
1199 args[0], proxy_type_str(curpx), curpx->id);
Emeric Brun97679e72010-09-23 17:56:44 +02001200 return -1;
1201 }
1202
1203 if (strcmp(args[1], "inspect-delay") == 0) {
1204 if (curpx == defpx || !(curpx->cap & PR_CAP_BE)) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001205 memprintf(err, "%s %s is only allowed in 'backend' sections",
1206 args[0], args[1]);
Emeric Brun97679e72010-09-23 17:56:44 +02001207 return -1;
1208 }
1209
1210 if (!*args[2] || (ptr = parse_time_err(args[2], &val, TIME_UNIT_MS))) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001211 memprintf(err,
1212 "'%s %s' expects a positive delay in milliseconds, in %s '%s'",
1213 args[0], args[1], proxy_type_str(curpx), curpx->id);
1214 if (ptr)
1215 memprintf(err, "%s (unexpected character '%c')", *err, *ptr);
Emeric Brun97679e72010-09-23 17:56:44 +02001216 return -1;
1217 }
1218
1219 if (curpx->tcp_rep.inspect_delay) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001220 memprintf(err, "ignoring %s %s (was already defined) in %s '%s'",
1221 args[0], args[1], proxy_type_str(curpx), curpx->id);
Emeric Brun97679e72010-09-23 17:56:44 +02001222 return 1;
1223 }
1224 curpx->tcp_rep.inspect_delay = val;
1225 return 0;
1226 }
1227
Simon Hormande072bd2011-06-24 15:11:37 +09001228 rule = calloc(1, sizeof(*rule));
Emeric Brun97679e72010-09-23 17:56:44 +02001229 LIST_INIT(&rule->list);
1230 arg = 1;
1231
1232 if (strcmp(args[1], "content") == 0) {
1233 arg++;
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001234 if (tcp_parse_response_rule(args, arg, section_type, curpx, defpx, rule, err) < 0)
Emeric Brun97679e72010-09-23 17:56:44 +02001235 goto error;
1236
1237 if (rule->cond && (rule->cond->requires & ACL_USE_L6REQ_VOLATILE)) {
1238 struct acl *acl;
1239 const char *name;
1240
1241 acl = cond_find_require(rule->cond, ACL_USE_L6REQ_VOLATILE);
1242 name = acl ? acl->name : "(unknown)";
1243
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001244 memprintf(err,
1245 "acl '%s' involves some request-only criteria which will be ignored in '%s %s'",
1246 name, args[0], args[1]);
Emeric Brun97679e72010-09-23 17:56:44 +02001247 warn++;
1248 }
1249
1250 LIST_ADDQ(&curpx->tcp_rep.inspect_rules, &rule->list);
1251 }
1252 else {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001253 memprintf(err,
1254 "'%s' expects 'inspect-delay' or 'content' in %s '%s' (got '%s')",
1255 args[0], proxy_type_str(curpx), curpx->id, args[1]);
Emeric Brun97679e72010-09-23 17:56:44 +02001256 goto error;
1257 }
1258
1259 return warn;
1260 error:
1261 free(rule);
1262 return -1;
1263}
1264
1265
Willy Tarreaub6866442008-07-14 23:54:42 +02001266/* This function should be called to parse a line starting with the "tcp-request"
1267 * keyword.
1268 */
1269static int tcp_parse_tcp_req(char **args, int section_type, struct proxy *curpx,
Willy Tarreau28a47d62012-09-18 20:02:48 +02001270 struct proxy *defpx, const char *file, int line,
1271 char **err)
Willy Tarreaub6866442008-07-14 23:54:42 +02001272{
1273 const char *ptr = NULL;
Willy Tarreauc7e961e2008-08-17 17:13:47 +02001274 unsigned int val;
Willy Tarreau1a687942010-05-23 22:40:30 +02001275 int warn = 0;
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001276 int arg;
Willy Tarreau1a687942010-05-23 22:40:30 +02001277 struct tcp_rule *rule;
Willy Tarreaub6866442008-07-14 23:54:42 +02001278
1279 if (!*args[1]) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001280 if (curpx == defpx)
1281 memprintf(err, "missing argument for '%s' in defaults section", args[0]);
1282 else
1283 memprintf(err, "missing argument for '%s' in %s '%s'",
1284 args[0], proxy_type_str(curpx), curpx->id);
Willy Tarreaub6866442008-07-14 23:54:42 +02001285 return -1;
1286 }
1287
1288 if (!strcmp(args[1], "inspect-delay")) {
1289 if (curpx == defpx) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001290 memprintf(err, "%s %s is not allowed in 'defaults' sections",
1291 args[0], args[1]);
Willy Tarreaub6866442008-07-14 23:54:42 +02001292 return -1;
1293 }
1294
Willy Tarreaub6866442008-07-14 23:54:42 +02001295 if (!*args[2] || (ptr = parse_time_err(args[2], &val, TIME_UNIT_MS))) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001296 memprintf(err,
1297 "'%s %s' expects a positive delay in milliseconds, in %s '%s'",
1298 args[0], args[1], proxy_type_str(curpx), curpx->id);
1299 if (ptr)
1300 memprintf(err, "%s (unexpected character '%c')", *err, *ptr);
Willy Tarreaub6866442008-07-14 23:54:42 +02001301 return -1;
1302 }
1303
1304 if (curpx->tcp_req.inspect_delay) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001305 memprintf(err, "ignoring %s %s (was already defined) in %s '%s'",
1306 args[0], args[1], proxy_type_str(curpx), curpx->id);
Willy Tarreaub6866442008-07-14 23:54:42 +02001307 return 1;
1308 }
1309 curpx->tcp_req.inspect_delay = val;
1310 return 0;
1311 }
1312
Simon Hormande072bd2011-06-24 15:11:37 +09001313 rule = calloc(1, sizeof(*rule));
Willy Tarreaufb024dc2010-08-20 13:35:41 +02001314 LIST_INIT(&rule->list);
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001315 arg = 1;
1316
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001317 if (strcmp(args[1], "content") == 0) {
Willy Tarreaud1f96522010-08-03 19:34:32 +02001318 arg++;
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001319 if (tcp_parse_request_rule(args, arg, section_type, curpx, defpx, rule, err) < 0)
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001320 goto error;
Willy Tarreaub6866442008-07-14 23:54:42 +02001321
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001322 if (rule->cond && (rule->cond->requires & ACL_USE_RTR_ANY)) {
Willy Tarreaudd64f8d2008-07-27 22:02:32 +02001323 struct acl *acl;
1324 const char *name;
1325
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001326 acl = cond_find_require(rule->cond, ACL_USE_RTR_ANY);
Willy Tarreaudd64f8d2008-07-27 22:02:32 +02001327 name = acl ? acl->name : "(unknown)";
1328
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001329 memprintf(err,
1330 "acl '%s' involves some response-only criteria which will be ignored in '%s %s'",
1331 name, args[0], args[1]);
Willy Tarreaudd64f8d2008-07-27 22:02:32 +02001332 warn++;
1333 }
Willy Tarreaufb024dc2010-08-20 13:35:41 +02001334 LIST_ADDQ(&curpx->tcp_req.inspect_rules, &rule->list);
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001335 }
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001336 else if (strcmp(args[1], "connection") == 0) {
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001337 arg++;
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001338
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001339 if (!(curpx->cap & PR_CAP_FE)) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001340 memprintf(err, "%s %s is not allowed because %s %s is not a frontend",
1341 args[0], args[1], proxy_type_str(curpx), curpx->id);
Simon Horman6c54d8b2011-07-15 13:14:06 +09001342 goto error;
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001343 }
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001344
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001345 if (tcp_parse_request_rule(args, arg, section_type, curpx, defpx, rule, err) < 0)
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001346 goto error;
1347
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001348 if (rule->cond && (rule->cond->requires & (ACL_USE_RTR_ANY|ACL_USE_L6_ANY|ACL_USE_L7_ANY))) {
1349 struct acl *acl;
1350 const char *name;
Willy Tarreauf059a0f2010-08-03 16:29:52 +02001351
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001352 acl = cond_find_require(rule->cond, ACL_USE_RTR_ANY|ACL_USE_L6_ANY|ACL_USE_L7_ANY);
1353 name = acl ? acl->name : "(unknown)";
Willy Tarreauf059a0f2010-08-03 16:29:52 +02001354
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001355 if (acl->requires & (ACL_USE_L6_ANY|ACL_USE_L7_ANY)) {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001356 memprintf(err,
1357 "'%s %s' may not reference acl '%s' which makes use of "
1358 "payload in %s '%s'. Please use '%s content' for this.",
1359 args[0], args[1], name, proxy_type_str(curpx), curpx->id, args[0]);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001360 goto error;
1361 }
1362 if (acl->requires & ACL_USE_RTR_ANY)
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001363 memprintf(err,
1364 "acl '%s' involves some response-only criteria which will be ignored in '%s %s'",
1365 name, args[0], args[1]);
Willy Tarreau68c03ab2010-08-06 15:08:45 +02001366 warn++;
1367 }
Willy Tarreaufb024dc2010-08-20 13:35:41 +02001368 LIST_ADDQ(&curpx->tcp_req.l4_rules, &rule->list);
Willy Tarreau9ba2dcc2010-06-14 21:04:55 +02001369 }
Willy Tarreau1a687942010-05-23 22:40:30 +02001370 else {
Willy Tarreau0a3dd742012-05-08 19:47:01 +02001371 if (curpx == defpx)
1372 memprintf(err,
1373 "'%s' expects 'inspect-delay', 'connection', or 'content' in defaults section (got '%s')",
1374 args[0], args[1]);
1375 else
1376 memprintf(err,
1377 "'%s' expects 'inspect-delay', 'connection', or 'content' in %s '%s' (got '%s')",
1378 args[0], args[1], proxy_type_str(curpx), curpx->id);
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001379 goto error;
Willy Tarreau1a687942010-05-23 22:40:30 +02001380 }
1381
Willy Tarreau1a687942010-05-23 22:40:30 +02001382 return warn;
Willy Tarreau6a984fa2010-06-14 16:44:27 +02001383 error:
1384 free(rule);
1385 return -1;
Willy Tarreaub6866442008-07-14 23:54:42 +02001386}
1387
Willy Tarreau645513a2010-05-24 20:55:15 +02001388
1389/************************************************************************/
Willy Tarreau32389b72012-04-23 23:13:20 +02001390/* All supported sample fetch functios must be declared here */
1391/************************************************************************/
1392
1393/* Fetch the request RDP cookie identified in the args, or any cookie if no arg
Willy Tarreau12785782012-04-27 21:37:17 +02001394 * is passed. It is usable both for ACL and for samples. Note: this decoder
Willy Tarreau32389b72012-04-23 23:13:20 +02001395 * only works with non-wrapping data. Accepts either 0 or 1 argument. Argument
1396 * is a string (cookie name), other types will lead to undefined behaviour.
1397 */
1398int
Willy Tarreau32a6f2e2012-04-25 10:13:36 +02001399smp_fetch_rdp_cookie(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau32389b72012-04-23 23:13:20 +02001400 const struct arg *args, struct sample *smp)
1401{
1402 int bleft;
1403 const unsigned char *data;
1404
1405 if (!l4 || !l4->req)
1406 return 0;
1407
1408 smp->flags = 0;
1409 smp->type = SMP_T_CSTR;
1410
Willy Tarreau9b28e032012-10-12 23:49:43 +02001411 bleft = l4->req->buf->i;
Willy Tarreau32389b72012-04-23 23:13:20 +02001412 if (bleft <= 11)
1413 goto too_short;
1414
Willy Tarreau9b28e032012-10-12 23:49:43 +02001415 data = (const unsigned char *)l4->req->buf->p + 11;
Willy Tarreau32389b72012-04-23 23:13:20 +02001416 bleft -= 11;
1417
1418 if (bleft <= 7)
1419 goto too_short;
1420
1421 if (strncasecmp((const char *)data, "Cookie:", 7) != 0)
1422 goto not_cookie;
1423
1424 data += 7;
1425 bleft -= 7;
1426
1427 while (bleft > 0 && *data == ' ') {
1428 data++;
1429 bleft--;
1430 }
1431
1432 if (args) {
1433
1434 if (bleft <= args->data.str.len)
1435 goto too_short;
1436
1437 if ((data[args->data.str.len] != '=') ||
1438 strncasecmp(args->data.str.str, (const char *)data, args->data.str.len) != 0)
1439 goto not_cookie;
1440
1441 data += args->data.str.len + 1;
1442 bleft -= args->data.str.len + 1;
1443 } else {
1444 while (bleft > 0 && *data != '=') {
1445 if (*data == '\r' || *data == '\n')
1446 goto not_cookie;
1447 data++;
1448 bleft--;
1449 }
1450
1451 if (bleft < 1)
1452 goto too_short;
1453
1454 if (*data != '=')
1455 goto not_cookie;
1456
1457 data++;
1458 bleft--;
1459 }
1460
1461 /* data points to cookie value */
1462 smp->data.str.str = (char *)data;
1463 smp->data.str.len = 0;
1464
1465 while (bleft > 0 && *data != '\r') {
1466 data++;
1467 bleft--;
1468 }
1469
1470 if (bleft < 2)
1471 goto too_short;
1472
1473 if (data[0] != '\r' || data[1] != '\n')
1474 goto not_cookie;
1475
1476 smp->data.str.len = (char *)data - smp->data.str.str;
1477 smp->flags = SMP_F_VOLATILE;
1478 return 1;
1479
1480 too_short:
1481 smp->flags = SMP_F_MAY_CHANGE;
1482 not_cookie:
1483 return 0;
1484}
1485
Willy Tarreau32389b72012-04-23 23:13:20 +02001486/************************************************************************/
Willy Tarreau645513a2010-05-24 20:55:15 +02001487/* All supported ACL keywords must be declared here. */
1488/************************************************************************/
1489
Willy Tarreau32389b72012-04-23 23:13:20 +02001490/* returns either 1 or 0 depending on whether an RDP cookie is found or not */
1491static int
Willy Tarreau32a6f2e2012-04-25 10:13:36 +02001492acl_fetch_rdp_cookie_cnt(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau24e32d82012-04-23 23:55:44 +02001493 const struct arg *args, struct sample *smp)
Willy Tarreau32389b72012-04-23 23:13:20 +02001494{
1495 int ret;
1496
Willy Tarreau32a6f2e2012-04-25 10:13:36 +02001497 ret = smp_fetch_rdp_cookie(px, l4, l7, opt, args, smp);
Willy Tarreau32389b72012-04-23 23:13:20 +02001498
1499 if (smp->flags & SMP_F_MAY_CHANGE)
1500 return 0;
1501
1502 smp->flags = SMP_F_VOLATILE;
1503 smp->type = SMP_T_UINT;
1504 smp->data.uint = ret;
1505 return 1;
1506}
1507
1508
Willy Tarreau4a129812012-04-25 17:31:42 +02001509/* fetch the connection's source IPv4/IPv6 address */
Willy Tarreau645513a2010-05-24 20:55:15 +02001510static int
Willy Tarreau4a129812012-04-25 17:31:42 +02001511smp_fetch_src(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau24e32d82012-04-23 23:55:44 +02001512 const struct arg *args, struct sample *smp)
Willy Tarreau645513a2010-05-24 20:55:15 +02001513{
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001514 switch (l4->si[0].conn->addr.from.ss_family) {
Willy Tarreauf4362b32011-12-16 17:49:52 +01001515 case AF_INET:
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001516 smp->data.ipv4 = ((struct sockaddr_in *)&l4->si[0].conn->addr.from)->sin_addr;
Willy Tarreauf853c462012-04-23 18:53:56 +02001517 smp->type = SMP_T_IPV4;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001518 break;
1519 case AF_INET6:
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001520 smp->data.ipv6 = ((struct sockaddr_in6 *)(&l4->si[0].conn->addr.from))->sin6_addr;
Willy Tarreauf853c462012-04-23 18:53:56 +02001521 smp->type = SMP_T_IPV6;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001522 break;
1523 default:
Emeric Brunf769f512010-10-22 17:14:01 +02001524 return 0;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001525 }
Emeric Brunf769f512010-10-22 17:14:01 +02001526
Willy Tarreau37406352012-04-23 16:16:37 +02001527 smp->flags = 0;
Willy Tarreau645513a2010-05-24 20:55:15 +02001528 return 1;
1529}
1530
Willy Tarreaua5e37562011-12-16 17:06:15 +01001531/* set temp integer to the connection's source port */
Willy Tarreau645513a2010-05-24 20:55:15 +02001532static int
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001533smp_fetch_sport(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau24e32d82012-04-23 23:55:44 +02001534 const struct arg *args, struct sample *smp)
Willy Tarreau645513a2010-05-24 20:55:15 +02001535{
Willy Tarreauf853c462012-04-23 18:53:56 +02001536 smp->type = SMP_T_UINT;
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001537 if (!(smp->data.uint = get_host_port(&l4->si[0].conn->addr.from)))
Emeric Brunf769f512010-10-22 17:14:01 +02001538 return 0;
1539
Willy Tarreau37406352012-04-23 16:16:37 +02001540 smp->flags = 0;
Willy Tarreau645513a2010-05-24 20:55:15 +02001541 return 1;
1542}
1543
Willy Tarreau4a129812012-04-25 17:31:42 +02001544/* fetch the connection's destination IPv4/IPv6 address */
Willy Tarreau645513a2010-05-24 20:55:15 +02001545static int
Willy Tarreau4a129812012-04-25 17:31:42 +02001546smp_fetch_dst(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau24e32d82012-04-23 23:55:44 +02001547 const struct arg *args, struct sample *smp)
Willy Tarreau645513a2010-05-24 20:55:15 +02001548{
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001549 conn_get_to_addr(l4->si[0].conn);
Willy Tarreau645513a2010-05-24 20:55:15 +02001550
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001551 switch (l4->si[0].conn->addr.to.ss_family) {
Willy Tarreauf4362b32011-12-16 17:49:52 +01001552 case AF_INET:
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001553 smp->data.ipv4 = ((struct sockaddr_in *)&l4->si[0].conn->addr.to)->sin_addr;
Willy Tarreauf853c462012-04-23 18:53:56 +02001554 smp->type = SMP_T_IPV4;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001555 break;
1556 case AF_INET6:
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001557 smp->data.ipv6 = ((struct sockaddr_in6 *)(&l4->si[0].conn->addr.to))->sin6_addr;
Willy Tarreauf853c462012-04-23 18:53:56 +02001558 smp->type = SMP_T_IPV6;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001559 break;
1560 default:
Emeric Brunf769f512010-10-22 17:14:01 +02001561 return 0;
Willy Tarreauf4362b32011-12-16 17:49:52 +01001562 }
Emeric Brunf769f512010-10-22 17:14:01 +02001563
Willy Tarreau37406352012-04-23 16:16:37 +02001564 smp->flags = 0;
Willy Tarreau645513a2010-05-24 20:55:15 +02001565 return 1;
1566}
1567
Willy Tarreaua5e37562011-12-16 17:06:15 +01001568/* set temp integer to the frontend connexion's destination port */
Willy Tarreau645513a2010-05-24 20:55:15 +02001569static int
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001570smp_fetch_dport(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
Willy Tarreau24e32d82012-04-23 23:55:44 +02001571 const struct arg *args, struct sample *smp)
Willy Tarreau645513a2010-05-24 20:55:15 +02001572{
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001573 conn_get_to_addr(l4->si[0].conn);
Willy Tarreau645513a2010-05-24 20:55:15 +02001574
Willy Tarreauf853c462012-04-23 18:53:56 +02001575 smp->type = SMP_T_UINT;
Willy Tarreauf2943dc2012-10-26 20:10:28 +02001576 if (!(smp->data.uint = get_host_port(&l4->si[0].conn->addr.to)))
Emeric Brunf769f512010-10-22 17:14:01 +02001577 return 0;
1578
Willy Tarreau37406352012-04-23 16:16:37 +02001579 smp->flags = 0;
Willy Tarreau645513a2010-05-24 20:55:15 +02001580 return 1;
1581}
1582
1583static int
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001584smp_fetch_payload_lv(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
1585 const struct arg *arg_p, struct sample *smp)
Emericf2d7cae2010-11-05 18:13:50 +01001586{
Willy Tarreau82ea8002012-04-25 19:19:43 +02001587 unsigned int len_offset = arg_p[0].data.uint;
1588 unsigned int len_size = arg_p[1].data.uint;
1589 unsigned int buf_offset;
1590 unsigned int buf_size = 0;
Willy Tarreau697d8502012-10-12 23:53:39 +02001591 struct channel *chn;
Emericf2d7cae2010-11-05 18:13:50 +01001592 int i;
1593
1594 /* Format is (len offset, len size, buf offset) or (len offset, len size) */
1595 /* by default buf offset == len offset + len size */
1596 /* buf offset could be absolute or relative to len offset + len size if prefixed by + or - */
1597
1598 if (!l4)
1599 return 0;
1600
Willy Tarreau697d8502012-10-12 23:53:39 +02001601 chn = ((opt & SMP_OPT_DIR) == SMP_OPT_DIR_RES) ? l4->rep : l4->req;
Emericf2d7cae2010-11-05 18:13:50 +01001602
Willy Tarreau697d8502012-10-12 23:53:39 +02001603 if (!chn)
Emericf2d7cae2010-11-05 18:13:50 +01001604 return 0;
1605
Willy Tarreau9b28e032012-10-12 23:49:43 +02001606 if (len_offset + len_size > chn->buf->i)
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001607 goto too_short;
Emericf2d7cae2010-11-05 18:13:50 +01001608
1609 for (i = 0; i < len_size; i++) {
Willy Tarreau9b28e032012-10-12 23:49:43 +02001610 buf_size = (buf_size << 8) + ((unsigned char *)chn->buf->p)[i + len_offset];
Emericf2d7cae2010-11-05 18:13:50 +01001611 }
1612
Willy Tarreau9fcb9842012-04-20 14:45:49 +02001613 /* buf offset may be implicit, absolute or relative */
1614 buf_offset = len_offset + len_size;
1615 if (arg_p[2].type == ARGT_UINT)
1616 buf_offset = arg_p[2].data.uint;
1617 else if (arg_p[2].type == ARGT_SINT)
1618 buf_offset += arg_p[2].data.sint;
1619
Willy Tarreau9b28e032012-10-12 23:49:43 +02001620 if (!buf_size || buf_size > chn->buf->size || buf_offset + buf_size > chn->buf->size) {
Willy Tarreau82ea8002012-04-25 19:19:43 +02001621 /* will never match */
1622 smp->flags = 0;
1623 return 0;
1624 }
1625
Willy Tarreau9b28e032012-10-12 23:49:43 +02001626 if (buf_offset + buf_size > chn->buf->i)
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001627 goto too_short;
Emericf2d7cae2010-11-05 18:13:50 +01001628
1629 /* init chunk as read only */
Willy Tarreaub8c8f1f2012-04-23 22:38:26 +02001630 smp->type = SMP_T_CBIN;
Willy Tarreau9b28e032012-10-12 23:49:43 +02001631 chunk_initlen(&smp->data.str, chn->buf->p + buf_offset, 0, buf_size);
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001632 smp->flags = SMP_F_VOLATILE;
Emericf2d7cae2010-11-05 18:13:50 +01001633 return 1;
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001634
1635 too_short:
1636 smp->flags = SMP_F_MAY_CHANGE;
1637 return 0;
Emericf2d7cae2010-11-05 18:13:50 +01001638}
1639
1640static int
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001641smp_fetch_payload(struct proxy *px, struct session *l4, void *l7, unsigned int opt,
1642 const struct arg *arg_p, struct sample *smp)
Emericf2d7cae2010-11-05 18:13:50 +01001643{
Willy Tarreau82ea8002012-04-25 19:19:43 +02001644 unsigned int buf_offset = arg_p[0].data.uint;
1645 unsigned int buf_size = arg_p[1].data.uint;
Willy Tarreau697d8502012-10-12 23:53:39 +02001646 struct channel *chn;
Emericf2d7cae2010-11-05 18:13:50 +01001647
1648 if (!l4)
1649 return 0;
1650
Willy Tarreau697d8502012-10-12 23:53:39 +02001651 chn = ((opt & SMP_OPT_DIR) == SMP_OPT_DIR_RES) ? l4->rep : l4->req;
Emericf2d7cae2010-11-05 18:13:50 +01001652
Willy Tarreau697d8502012-10-12 23:53:39 +02001653 if (!chn)
Emericf2d7cae2010-11-05 18:13:50 +01001654 return 0;
Willy Tarreau82ea8002012-04-25 19:19:43 +02001655
Willy Tarreau9b28e032012-10-12 23:49:43 +02001656 if (!buf_size || buf_size > chn->buf->size || buf_offset + buf_size > chn->buf->size) {
Willy Tarreau82ea8002012-04-25 19:19:43 +02001657 /* will never match */
1658 smp->flags = 0;
1659 return 0;
1660 }
Emericf2d7cae2010-11-05 18:13:50 +01001661
Willy Tarreau9b28e032012-10-12 23:49:43 +02001662 if (buf_offset + buf_size > chn->buf->i)
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001663 goto too_short;
Emericf2d7cae2010-11-05 18:13:50 +01001664
1665 /* init chunk as read only */
Willy Tarreaub8c8f1f2012-04-23 22:38:26 +02001666 smp->type = SMP_T_CBIN;
Willy Tarreau9b28e032012-10-12 23:49:43 +02001667 chunk_initlen(&smp->data.str, chn->buf->p + buf_offset, 0, buf_size);
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001668 smp->flags = SMP_F_VOLATILE;
Simon Hormanab814e02011-06-24 14:50:20 +09001669 return 1;
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001670
1671 too_short:
1672 smp->flags = SMP_F_MAY_CHANGE;
1673 return 0;
Simon Hormanab814e02011-06-24 14:50:20 +09001674}
1675
Willy Tarreau21d68a62012-04-20 15:52:36 +02001676/* This function is used to validate the arguments passed to a "payload" fetch
1677 * keyword. This keyword expects two positive integers, with the second one
1678 * being strictly positive. It is assumed that the types are already the correct
1679 * ones. Returns 0 on error, non-zero if OK. If <err_msg> is not NULL, it will be
1680 * filled with a pointer to an error message in case of error, that the caller
1681 * is responsible for freeing. The initial location must either be freeable or
1682 * NULL.
1683 */
1684static int val_payload(struct arg *arg, char **err_msg)
1685{
1686 if (!arg[1].data.uint) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001687 memprintf(err_msg, "payload length must be > 0");
Willy Tarreau21d68a62012-04-20 15:52:36 +02001688 return 0;
1689 }
1690 return 1;
1691}
1692
1693/* This function is used to validate the arguments passed to a "payload_lv" fetch
1694 * keyword. This keyword allows two positive integers and an optional signed one,
1695 * with the second one being strictly positive and the third one being greater than
1696 * the opposite of the two others if negative. It is assumed that the types are
1697 * already the correct ones. Returns 0 on error, non-zero if OK. If <err_msg> is
1698 * not NULL, it will be filled with a pointer to an error message in case of
1699 * error, that the caller is responsible for freeing. The initial location must
1700 * either be freeable or NULL.
1701 */
1702static int val_payload_lv(struct arg *arg, char **err_msg)
1703{
1704 if (!arg[1].data.uint) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001705 memprintf(err_msg, "payload length must be > 0");
Willy Tarreau21d68a62012-04-20 15:52:36 +02001706 return 0;
1707 }
1708
1709 if (arg[2].type == ARGT_SINT &&
1710 (int)(arg[0].data.uint + arg[1].data.uint + arg[2].data.sint) < 0) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001711 memprintf(err_msg, "payload offset too negative");
Willy Tarreau21d68a62012-04-20 15:52:36 +02001712 return 0;
1713 }
1714 return 1;
1715}
1716
Willy Tarreau44791242012-09-12 23:27:21 +02001717#ifdef CONFIG_HAP_LINUX_TPROXY
1718/* parse the "transparent" bind keyword */
Willy Tarreau4348fad2012-09-20 16:48:07 +02001719static int bind_parse_transparent(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
Willy Tarreau44791242012-09-12 23:27:21 +02001720{
1721 struct listener *l;
1722
Willy Tarreau4348fad2012-09-20 16:48:07 +02001723 list_for_each_entry(l, &conf->listeners, by_bind) {
1724 if (l->addr.ss_family == AF_INET || l->addr.ss_family == AF_INET6)
1725 l->options |= LI_O_FOREIGN;
Willy Tarreau44791242012-09-12 23:27:21 +02001726 }
1727
Willy Tarreau44791242012-09-12 23:27:21 +02001728 return 0;
1729}
1730#endif
1731
1732#ifdef TCP_DEFER_ACCEPT
1733/* parse the "defer-accept" bind keyword */
Willy Tarreau4348fad2012-09-20 16:48:07 +02001734static int bind_parse_defer_accept(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
Willy Tarreau44791242012-09-12 23:27:21 +02001735{
1736 struct listener *l;
1737
Willy Tarreau4348fad2012-09-20 16:48:07 +02001738 list_for_each_entry(l, &conf->listeners, by_bind) {
1739 if (l->addr.ss_family == AF_INET || l->addr.ss_family == AF_INET6)
1740 l->options |= LI_O_DEF_ACCEPT;
Willy Tarreau44791242012-09-12 23:27:21 +02001741 }
1742
Willy Tarreau44791242012-09-12 23:27:21 +02001743 return 0;
1744}
1745#endif
1746
Willy Tarreau1c862c52012-10-05 16:21:00 +02001747#ifdef TCP_FASTOPEN
1748/* parse the "defer-accept" bind keyword */
1749static int bind_parse_tfo(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
1750{
1751 struct listener *l;
1752
1753 list_for_each_entry(l, &conf->listeners, by_bind) {
1754 if (l->addr.ss_family == AF_INET || l->addr.ss_family == AF_INET6)
1755 l->options |= LI_O_TCP_FO;
1756 }
1757
1758 return 0;
1759}
1760#endif
1761
Willy Tarreau44791242012-09-12 23:27:21 +02001762#ifdef TCP_MAXSEG
1763/* parse the "mss" bind keyword */
Willy Tarreau4348fad2012-09-20 16:48:07 +02001764static int bind_parse_mss(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
Willy Tarreau44791242012-09-12 23:27:21 +02001765{
1766 struct listener *l;
1767 int mss;
1768
Willy Tarreau44791242012-09-12 23:27:21 +02001769 if (!*args[cur_arg + 1]) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001770 memprintf(err, "'%s' : missing MSS value", args[cur_arg]);
Willy Tarreau44791242012-09-12 23:27:21 +02001771 return ERR_ALERT | ERR_FATAL;
1772 }
1773
1774 mss = atoi(args[cur_arg + 1]);
1775 if (!mss || abs(mss) > 65535) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001776 memprintf(err, "'%s' : expects an MSS with and absolute value between 1 and 65535", args[cur_arg]);
Willy Tarreau44791242012-09-12 23:27:21 +02001777 return ERR_ALERT | ERR_FATAL;
1778 }
1779
Willy Tarreau4348fad2012-09-20 16:48:07 +02001780 list_for_each_entry(l, &conf->listeners, by_bind) {
1781 if (l->addr.ss_family == AF_INET || l->addr.ss_family == AF_INET6)
1782 l->maxseg = mss;
1783 }
Willy Tarreau44791242012-09-12 23:27:21 +02001784
1785 return 0;
1786}
1787#endif
1788
1789#ifdef SO_BINDTODEVICE
1790/* parse the "mss" bind keyword */
Willy Tarreau4348fad2012-09-20 16:48:07 +02001791static int bind_parse_interface(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err)
Willy Tarreau44791242012-09-12 23:27:21 +02001792{
1793 struct listener *l;
1794
Willy Tarreau44791242012-09-12 23:27:21 +02001795 if (!*args[cur_arg + 1]) {
Willy Tarreaueb6cead2012-09-20 19:43:14 +02001796 memprintf(err, "'%s' : missing interface name", args[cur_arg]);
Willy Tarreau44791242012-09-12 23:27:21 +02001797 return ERR_ALERT | ERR_FATAL;
1798 }
1799
Willy Tarreau4348fad2012-09-20 16:48:07 +02001800 list_for_each_entry(l, &conf->listeners, by_bind) {
1801 if (l->addr.ss_family == AF_INET || l->addr.ss_family == AF_INET6)
1802 l->interface = strdup(args[cur_arg + 1]);
1803 }
Willy Tarreau44791242012-09-12 23:27:21 +02001804
1805 global.last_checks |= LSTCHK_NETADM;
1806 return 0;
1807}
1808#endif
1809
Willy Tarreaub6866442008-07-14 23:54:42 +02001810static struct cfg_kw_list cfg_kws = {{ },{
1811 { CFG_LISTEN, "tcp-request", tcp_parse_tcp_req },
Emeric Brun97679e72010-09-23 17:56:44 +02001812 { CFG_LISTEN, "tcp-response", tcp_parse_tcp_rep },
Willy Tarreaub6866442008-07-14 23:54:42 +02001813 { 0, NULL, NULL },
1814}};
1815
Willy Tarreau61612d42012-04-19 18:42:05 +02001816/* Note: must not be declared <const> as its list will be overwritten.
1817 * Please take care of keeping this list alphabetically sorted.
1818 */
Willy Tarreaub6866442008-07-14 23:54:42 +02001819static struct acl_kw_list acl_kws = {{ },{
Willy Tarreau4a129812012-04-25 17:31:42 +02001820 { "dst", acl_parse_ip, smp_fetch_dst, acl_match_ip, ACL_USE_TCP4_PERMANENT|ACL_MAY_LOOKUP, 0 },
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001821 { "dst_port", acl_parse_int, smp_fetch_dport, acl_match_int, ACL_USE_TCP_PERMANENT, 0 },
Willy Tarreau0d5fe142012-04-26 12:24:45 +02001822 { "payload", acl_parse_str, smp_fetch_payload, acl_match_str, ACL_USE_L6REQ_VOLATILE|ACL_MAY_LOOKUP, ARG2(2,UINT,UINT), val_payload },
1823 { "payload_lv", acl_parse_str, smp_fetch_payload_lv, acl_match_str, ACL_USE_L6REQ_VOLATILE|ACL_MAY_LOOKUP, ARG3(2,UINT,UINT,SINT), val_payload_lv },
Willy Tarreau9fb4bc72012-04-24 00:09:26 +02001824 { "req_rdp_cookie", acl_parse_str, smp_fetch_rdp_cookie, acl_match_str, ACL_USE_L6REQ_VOLATILE|ACL_MAY_LOOKUP, ARG1(0,STR) },
Willy Tarreau32389b72012-04-23 23:13:20 +02001825 { "req_rdp_cookie_cnt", acl_parse_int, acl_fetch_rdp_cookie_cnt, acl_match_int, ACL_USE_L6REQ_VOLATILE, ARG1(0,STR) },
Willy Tarreau4a129812012-04-25 17:31:42 +02001826 { "src", acl_parse_ip, smp_fetch_src, acl_match_ip, ACL_USE_TCP4_PERMANENT|ACL_MAY_LOOKUP, 0 },
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001827 { "src_port", acl_parse_int, smp_fetch_sport, acl_match_int, ACL_USE_TCP_PERMANENT, 0 },
Willy Tarreaub6866442008-07-14 23:54:42 +02001828 { NULL, NULL, NULL, NULL },
1829}};
1830
Willy Tarreau4a129812012-04-25 17:31:42 +02001831/* Note: must not be declared <const> as its list will be overwritten.
1832 * Note: fetches that may return multiple types must be declared as the lowest
1833 * common denominator, the type that can be casted into all other ones. For
1834 * instance v4/v6 must be declared v4.
1835 */
Willy Tarreau12785782012-04-27 21:37:17 +02001836static struct sample_fetch_kw_list sample_fetch_keywords = {{ },{
Willy Tarreau4a129812012-04-25 17:31:42 +02001837 { "src", smp_fetch_src, 0, NULL, SMP_T_IPV4, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreau4a129812012-04-25 17:31:42 +02001838 { "dst", smp_fetch_dst, 0, NULL, SMP_T_IPV4, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001839 { "dst_port", smp_fetch_dport, 0, NULL, SMP_T_UINT, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreau0ce3aa02012-04-25 18:46:33 +02001840 { "payload", smp_fetch_payload, ARG2(2,UINT,UINT), val_payload, SMP_T_CBIN, SMP_CAP_REQ|SMP_CAP_RES },
1841 { "payload_lv", smp_fetch_payload_lv, ARG3(2,UINT,UINT,SINT), val_payload_lv, SMP_T_CBIN, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreaud6281ae2012-04-26 11:23:39 +02001842 { "rdp_cookie", smp_fetch_rdp_cookie, ARG1(1,STR), NULL, SMP_T_CSTR, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreau25c1ebc2012-04-25 16:21:44 +02001843 { "src_port", smp_fetch_sport, 0, NULL, SMP_T_UINT, SMP_CAP_REQ|SMP_CAP_RES },
Willy Tarreau9fcb9842012-04-20 14:45:49 +02001844 { NULL, NULL, 0, 0, 0 },
Willy Tarreau645513a2010-05-24 20:55:15 +02001845}};
1846
Willy Tarreau44791242012-09-12 23:27:21 +02001847/************************************************************************/
1848/* All supported bind keywords must be declared here. */
1849/************************************************************************/
1850
1851/* Note: must not be declared <const> as its list will be overwritten.
1852 * Please take care of keeping this list alphabetically sorted, doing so helps
1853 * all code contributors.
1854 * Optional keywords are also declared with a NULL ->parse() function so that
1855 * the config parser can report an appropriate error when a known keyword was
1856 * not enabled.
1857 */
Willy Tarreau51fb7652012-09-18 18:24:39 +02001858static struct bind_kw_list bind_kws = { "TCP", { }, {
Willy Tarreau44791242012-09-12 23:27:21 +02001859#ifdef TCP_DEFER_ACCEPT
1860 { "defer-accept", bind_parse_defer_accept, 0 }, /* wait for some data for 1 second max before doing accept */
1861#endif
1862#ifdef SO_BINDTODEVICE
1863 { "interface", bind_parse_interface, 1 }, /* specifically bind to this interface */
1864#endif
1865#ifdef TCP_MAXSEG
1866 { "mss", bind_parse_mss, 1 }, /* set MSS of listening socket */
1867#endif
Willy Tarreau1c862c52012-10-05 16:21:00 +02001868#ifdef TCP_FASTOPEN
1869 { "tfo", bind_parse_tfo, 0 }, /* enable TCP_FASTOPEN of listening socket */
1870#endif
Willy Tarreau44791242012-09-12 23:27:21 +02001871#ifdef CONFIG_HAP_LINUX_TPROXY
1872 { "transparent", bind_parse_transparent, 0 }, /* transparently bind to the specified addresses */
1873#endif
1874 /* the versions with the NULL parse function*/
1875 { "defer-accept", NULL, 0 },
1876 { "interface", NULL, 1 },
1877 { "mss", NULL, 1 },
1878 { "transparent", NULL, 0 },
1879 { NULL, NULL, 0 },
1880}};
1881
Willy Tarreaue6b98942007-10-29 01:09:36 +01001882__attribute__((constructor))
1883static void __tcp_protocol_init(void)
1884{
1885 protocol_register(&proto_tcpv4);
1886 protocol_register(&proto_tcpv6);
Willy Tarreau12785782012-04-27 21:37:17 +02001887 sample_register_fetches(&sample_fetch_keywords);
Willy Tarreaub6866442008-07-14 23:54:42 +02001888 cfg_register_keywords(&cfg_kws);
1889 acl_register_keywords(&acl_kws);
Willy Tarreau44791242012-09-12 23:27:21 +02001890 bind_register_keywords(&bind_kws);
Willy Tarreaue6b98942007-10-29 01:09:36 +01001891}
1892
1893
1894/*
1895 * Local variables:
1896 * c-indent-level: 8
1897 * c-basic-offset: 8
1898 * End:
1899 */