1 /*
2  * Functions dedicated to statistics output and the stats socket
3  *
4  * Copyright 2000-2012 Willy Tarreau <w@1wt.eu>
5  * Copyright 2007-2009 Krzysztof Piotr Oledzki <ole@ans.pl>
6  *
7  * This program is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU General Public License
9  * as published by the Free Software Foundation; either version
10  * 2 of the License, or (at your option) any later version.
11  *
12  */
13 
14 #include <ctype.h>
15 #include <errno.h>
16 #include <fcntl.h>
17 #include <stdio.h>
18 #include <stdlib.h>
19 #include <string.h>
20 #include <pwd.h>
21 #include <grp.h>
22 
23 #include <sys/socket.h>
24 #include <sys/stat.h>
25 #include <sys/types.h>
26 
27 #include <haproxy/api.h>
28 #include <haproxy/applet-t.h>
29 #include <haproxy/backend.h>
30 #include <haproxy/base64.h>
31 #include <haproxy/cfgparse.h>
32 #include <haproxy/channel.h>
33 #include <haproxy/check.h>
34 #include <haproxy/cli.h>
35 #include <haproxy/compression.h>
36 #include <haproxy/debug.h>
37 #include <haproxy/errors.h>
38 #include <haproxy/fd.h>
39 #include <haproxy/freq_ctr.h>
40 #include <haproxy/frontend.h>
41 #include <haproxy/global.h>
42 #include <haproxy/http.h>
43 #include <haproxy/http_htx.h>
44 #include <haproxy/htx.h>
45 #include <haproxy/list.h>
46 #include <haproxy/listener.h>
47 #include <haproxy/log.h>
48 #include <haproxy/map-t.h>
49 #include <haproxy/pattern-t.h>
50 #include <haproxy/pipe.h>
51 #include <haproxy/pool.h>
52 #include <haproxy/proxy.h>
53 #include <haproxy/resolvers.h>
54 #include <haproxy/server.h>
55 #include <haproxy/session.h>
56 #include <haproxy/ssl_sock.h>
57 #include <haproxy/stats.h>
58 #include <haproxy/stream.h>
59 #include <haproxy/stream_interface.h>
60 #include <haproxy/task.h>
61 #include <haproxy/ticks.h>
62 #include <haproxy/time.h>
63 #include <haproxy/tools.h>
64 #include <haproxy/uri_auth-t.h>
65 #include <haproxy/version.h>
66 
67 
68 /* status codes available for the stats admin page (strictly 4 chars length) */
69 const char *stat_status_codes[STAT_STATUS_SIZE] = {
70 	[STAT_STATUS_DENY] = "DENY",
71 	[STAT_STATUS_DONE] = "DONE",
72 	[STAT_STATUS_ERRP] = "ERRP",
73 	[STAT_STATUS_EXCD] = "EXCD",
74 	[STAT_STATUS_NONE] = "NONE",
75 	[STAT_STATUS_PART] = "PART",
76 	[STAT_STATUS_UNKN] = "UNKN",
77 	[STAT_STATUS_IVAL] = "IVAL",
78 };
79 
80 /* These are the field names for each INF_* field position. Please pay attention
81  * to always use the exact same name except that the strings for new names must
82  * be lower case or CamelCase while the enum entries must be upper case.
83  */
84 const struct name_desc info_fields[INF_TOTAL_FIELDS] = {
85 	[INF_NAME]                           = { .name = "Name",                        .desc = "Product name" },
86 	[INF_VERSION]                        = { .name = "Version",                     .desc = "Product version" },
87 	[INF_RELEASE_DATE]                   = { .name = "Release_date",                .desc = "Date of latest source code update" },
88 	[INF_NBTHREAD]                       = { .name = "Nbthread",                    .desc = "Number of started threads (global.nbthread)" },
89 	[INF_NBPROC]                         = { .name = "Nbproc",                      .desc = "Number of started worker processes (global.nbproc)" },
90 	[INF_PROCESS_NUM]                    = { .name = "Process_num",                 .desc = "Relative worker process number (1..Nbproc)" },
91 	[INF_PID]                            = { .name = "Pid",                         .desc = "This worker process identifier for the system" },
92 	[INF_UPTIME]                         = { .name = "Uptime",                      .desc = "How long ago this worker process was started (days+hours+minutes+seconds)" },
93 	[INF_UPTIME_SEC]                     = { .name = "Uptime_sec",                  .desc = "How long ago this worker process was started (seconds)" },
94 	[INF_START_TIME_SEC]                 = { .name = "Start_time_sec",              .desc = "Start time in seconds" },
95 	[INF_MEMMAX_MB]                      = { .name = "Memmax_MB",                   .desc = "Worker process's hard limit on memory usage in MB (-m on command line)" },
96 	[INF_MEMMAX_BYTES]                   = { .name = "Memmax_bytes",                .desc = "Worker process's hard limit on memory usage in byes (-m on command line)" },
97 	[INF_POOL_ALLOC_MB]                  = { .name = "PoolAlloc_MB",                .desc = "Amount of memory allocated in pools (in MB)" },
98 	[INF_POOL_ALLOC_BYTES]               = { .name = "PoolAlloc_bytes",             .desc = "Amount of memory allocated in pools (in bytes)" },
99 	[INF_POOL_USED_MB]                   = { .name = "PoolUsed_MB",                 .desc = "Amount of pool memory currently used (in MB)" },
100 	[INF_POOL_USED_BYTES]                = { .name = "PoolUsed_bytes",              .desc = "Amount of pool memory currently used (in bytes)" },
101 	[INF_POOL_FAILED]                    = { .name = "PoolFailed",                  .desc = "Number of failed pool allocations since this worker was started" },
102 	[INF_ULIMIT_N]                       = { .name = "Ulimit-n",                    .desc = "Hard limit on the number of per-process file descriptors" },
103 	[INF_MAXSOCK]                        = { .name = "Maxsock",                     .desc = "Hard limit on the number of per-process sockets" },
104 	[INF_MAXCONN]                        = { .name = "Maxconn",                     .desc = "Hard limit on the number of per-process connections (configured or imposed by Ulimit-n)" },
105 	[INF_HARD_MAXCONN]                   = { .name = "Hard_maxconn",                .desc = "Hard limit on the number of per-process connections (imposed by Memmax_MB or Ulimit-n)" },
106 	[INF_CURR_CONN]                      = { .name = "CurrConns",                   .desc = "Current number of connections on this worker process" },
107 	[INF_CUM_CONN]                       = { .name = "CumConns",                    .desc = "Total number of connections on this worker process since started" },
108 	[INF_CUM_REQ]                        = { .name = "CumReq",                      .desc = "Total number of requests on this worker process since started" },
109 	[INF_MAX_SSL_CONNS]                  = { .name = "MaxSslConns",                 .desc = "Hard limit on the number of per-process SSL endpoints (front+back), 0=unlimited" },
110 	[INF_CURR_SSL_CONNS]                 = { .name = "CurrSslConns",                .desc = "Current number of SSL endpoints on this worker process (front+back)" },
111 	[INF_CUM_SSL_CONNS]                  = { .name = "CumSslConns",                 .desc = "Total number of SSL endpoints on this worker process since started (front+back)" },
112 	[INF_MAXPIPES]                       = { .name = "Maxpipes",                    .desc = "Hard limit on the number of pipes for splicing, 0=unlimited" },
113 	[INF_PIPES_USED]                     = { .name = "PipesUsed",                   .desc = "Current number of pipes in use in this worker process" },
114 	[INF_PIPES_FREE]                     = { .name = "PipesFree",                   .desc = "Current number of allocated and available pipes in this worker process" },
115 	[INF_CONN_RATE]                      = { .name = "ConnRate",                    .desc = "Number of front connections created on this worker process over the last second" },
116 	[INF_CONN_RATE_LIMIT]                = { .name = "ConnRateLimit",               .desc = "Hard limit for ConnRate (global.maxconnrate)" },
117 	[INF_MAX_CONN_RATE]                  = { .name = "MaxConnRate",                 .desc = "Highest ConnRate reached on this worker process since started (in connections per second)" },
118 	[INF_SESS_RATE]                      = { .name = "SessRate",                    .desc = "Number of sessions created on this worker process over the last second" },
119 	[INF_SESS_RATE_LIMIT]                = { .name = "SessRateLimit",               .desc = "Hard limit for SessRate (global.maxsessrate)" },
120 	[INF_MAX_SESS_RATE]                  = { .name = "MaxSessRate",                 .desc = "Highest SessRate reached on this worker process since started (in sessions per second)" },
121 	[INF_SSL_RATE]                       = { .name = "SslRate",                     .desc = "Number of SSL connections created on this worker process over the last second" },
122 	[INF_SSL_RATE_LIMIT]                 = { .name = "SslRateLimit",                .desc = "Hard limit for SslRate (global.maxsslrate)" },
123 	[INF_MAX_SSL_RATE]                   = { .name = "MaxSslRate",                  .desc = "Highest SslRate reached on this worker process since started (in connections per second)" },
124 	[INF_SSL_FRONTEND_KEY_RATE]          = { .name = "SslFrontendKeyRate",          .desc = "Number of SSL keys created on frontends in this worker process over the last second" },
125 	[INF_SSL_FRONTEND_MAX_KEY_RATE]      = { .name = "SslFrontendMaxKeyRate",       .desc = "Highest SslFrontendKeyRate reached on this worker process since started (in SSL keys per second)" },
126 	[INF_SSL_FRONTEND_SESSION_REUSE_PCT] = { .name = "SslFrontendSessionReuse_pct", .desc = "Percent of frontend SSL connections which did not require a new key" },
127 	[INF_SSL_BACKEND_KEY_RATE]           = { .name = "SslBackendKeyRate",           .desc = "Number of SSL keys created on backends in this worker process over the last second" },
128 	[INF_SSL_BACKEND_MAX_KEY_RATE]       = { .name = "SslBackendMaxKeyRate",        .desc = "Highest SslBackendKeyRate reached on this worker process since started (in SSL keys per second)" },
129 	[INF_SSL_CACHE_LOOKUPS]              = { .name = "SslCacheLookups",             .desc = "Total number of SSL session ID lookups in the SSL session cache on this worker since started" },
130 	[INF_SSL_CACHE_MISSES]               = { .name = "SslCacheMisses",              .desc = "Total number of SSL session ID lookups that didn't find a session in the SSL session cache on this worker since started" },
131 	[INF_COMPRESS_BPS_IN]                = { .name = "CompressBpsIn",               .desc = "Number of bytes submitted to the HTTP compressor in this worker process over the last second" },
132 	[INF_COMPRESS_BPS_OUT]               = { .name = "CompressBpsOut",              .desc = "Number of bytes emitted by the HTTP compressor in this worker process over the last second" },
133 	[INF_COMPRESS_BPS_RATE_LIM]          = { .name = "CompressBpsRateLim",          .desc = "Limit of CompressBpsOut beyond which HTTP compression is automatically disabled" },
134 	[INF_ZLIB_MEM_USAGE]                 = { .name = "ZlibMemUsage",                .desc = "Amount of memory currently used by HTTP compression on the current worker process (in bytes)" },
135 	[INF_MAX_ZLIB_MEM_USAGE]             = { .name = "MaxZlibMemUsage",             .desc = "Limit on the amount of memory used by HTTP compression above which it is automatically disabled (in bytes, see global.maxzlibmem)" },
136 	[INF_TASKS]                          = { .name = "Tasks",                       .desc = "Total number of tasks in the current worker process (active + sleeping)" },
137 	[INF_RUN_QUEUE]                      = { .name = "Run_queue",                   .desc = "Total number of active tasks+tasklets in the current worker process" },
138 	[INF_IDLE_PCT]                       = { .name = "Idle_pct",                    .desc = "Percentage of last second spent waiting in the current worker thread" },
139 	[INF_NODE]                           = { .name = "node",                        .desc = "Node name (global.node)" },
140 	[INF_DESCRIPTION]                    = { .name = "description",                 .desc = "Node description (global.description)" },
141 	[INF_STOPPING]                       = { .name = "Stopping",                    .desc = "1 if the worker process is currently stopping, otherwise zero" },
142 	[INF_JOBS]                           = { .name = "Jobs",                        .desc = "Current number of active jobs on the current worker process (frontend connections, master connections, listeners)" },
143 	[INF_UNSTOPPABLE_JOBS]               = { .name = "Unstoppable Jobs",            .desc = "Current number of unstoppable jobs on the current worker process (master connections)" },
144 	[INF_LISTENERS]                      = { .name = "Listeners",                   .desc = "Current number of active listeners on the current worker process" },
145 	[INF_ACTIVE_PEERS]                   = { .name = "ActivePeers",                 .desc = "Current number of verified active peers connections on the current worker process" },
146 	[INF_CONNECTED_PEERS]                = { .name = "ConnectedPeers",              .desc = "Current number of peers having passed the connection step on the current worker process" },
147 	[INF_DROPPED_LOGS]                   = { .name = "DroppedLogs",                 .desc = "Total number of dropped logs for current worker process since started" },
148 	[INF_BUSY_POLLING]                   = { .name = "BusyPolling",                 .desc = "1 if busy-polling is currently in use on the worker process, otherwise zero (config.busy-polling)" },
149 	[INF_FAILED_RESOLUTIONS]             = { .name = "FailedResolutions",           .desc = "Total number of failed DNS resolutions in current worker process since started" },
150 	[INF_TOTAL_BYTES_OUT]                = { .name = "TotalBytesOut",               .desc = "Total number of bytes emitted by current worker process since started" },
151 	[INF_TOTAL_SPLICED_BYTES_OUT]        = { .name = "TotalSplicdedBytesOut",       .desc = "Total number of bytes emitted by current worker process through a kernel pipe since started" },
152 	[INF_BYTES_OUT_RATE]                 = { .name = "BytesOutRate",                .desc = "Number of bytes emitted by current worker process over the last second" },
153 	[INF_DEBUG_COMMANDS_ISSUED]          = { .name = "DebugCommandsIssued",         .desc = "Number of debug commands issued on this process (anything > 0 is unsafe)" },
154 	[INF_CUM_LOG_MSGS]                   = { .name = "CumRecvLogs",                 .desc = "Total number of log messages received by log-forwarding listeners on this worker process since started" },
155 	[INF_BUILD_INFO]                     = { .name = "Build info",                  .desc = "Build info" },
156 	[INF_TAINTED]                        = { .name = "Tainted",                     .desc = "Experimental features used" },
157 };
158 
159 const struct name_desc stat_fields[ST_F_TOTAL_FIELDS] = {
160 	[ST_F_PXNAME]                        = { .name = "pxname",                      .desc = "Proxy name" },
161 	[ST_F_SVNAME]                        = { .name = "svname",                      .desc = "Server name" },
162 	[ST_F_QCUR]                          = { .name = "qcur",                        .desc = "Number of current queued connections" },
163 	[ST_F_QMAX]                          = { .name = "qmax",                        .desc = "Highest value of queued connections encountered since process started" },
164 	[ST_F_SCUR]                          = { .name = "scur",                        .desc = "Number of current sessions on the frontend, backend or server" },
165 	[ST_F_SMAX]                          = { .name = "smax",                        .desc = "Highest value of current sessions encountered since process started" },
166 	[ST_F_SLIM]                          = { .name = "slim",                        .desc = "Frontend/listener/server's maxconn, backend's fullconn" },
167 	[ST_F_STOT]                          = { .name = "stot",                        .desc = "Total number of sessions since process started" },
168 	[ST_F_BIN]                           = { .name = "bin",                         .desc = "Total number of request bytes since process started" },
169 	[ST_F_BOUT]                          = { .name = "bout",                        .desc = "Total number of response bytes since process started" },
170 	[ST_F_DREQ]                          = { .name = "dreq",                        .desc = "Total number of denied requests since process started" },
171 	[ST_F_DRESP]                         = { .name = "dresp",                       .desc = "Total number of denied responses since process started" },
172 	[ST_F_EREQ]                          = { .name = "ereq",                        .desc = "Total number of invalid requests since process started" },
173 	[ST_F_ECON]                          = { .name = "econ",                        .desc = "Total number of failed connections to server since the worker process started" },
174 	[ST_F_ERESP]                         = { .name = "eresp",                       .desc = "Total number of invalid responses since the worker process started" },
175 	[ST_F_WRETR]                         = { .name = "wretr",                       .desc = "Total number of server connection retries since the worker process started" },
176 	[ST_F_WREDIS]                        = { .name = "wredis",                      .desc = "Total number of server redispatches due to connection failures since the worker process started" },
177 	[ST_F_STATUS]                        = { .name = "status",                      .desc = "Frontend/listen status: OPEN/WAITING/FULL/STOP; backend: UP/DOWN; server: last check status" },
178 	[ST_F_WEIGHT]                        = { .name = "weight",                      .desc = "Server's effective weight, or sum of active servers' effective weights for a backend" },
179 	[ST_F_ACT]                           = { .name = "act",                         .desc = "Total number of active UP servers with a non-zero weight" },
180 	[ST_F_BCK]                           = { .name = "bck",                         .desc = "Total number of backup UP servers with a non-zero weight" },
181 	[ST_F_CHKFAIL]                       = { .name = "chkfail",                     .desc = "Total number of failed individual health checks per server/backend, since the worker process started" },
182 	[ST_F_CHKDOWN]                       = { .name = "chkdown",                     .desc = "Total number of failed checks causing UP to DOWN server transitions, per server/backend, since the worker process started" },
183 	[ST_F_LASTCHG]                       = { .name = "lastchg",                     .desc = "How long ago the last server state changed, in seconds" },
184 	[ST_F_DOWNTIME]                      = { .name = "downtime",                    .desc = "Total time spent in DOWN state, for server or backend" },
185 	[ST_F_QLIMIT]                        = { .name = "qlimit",                      .desc = "Limit on the number of connections in queue, for servers only (maxqueue argument)" },
186 	[ST_F_PID]                           = { .name = "pid",                         .desc = "Relative worker process number (1..nbproc)" },
187 	[ST_F_IID]                           = { .name = "iid",                         .desc = "Frontend or Backend numeric identifier ('id' setting)" },
188 	[ST_F_SID]                           = { .name = "sid",                         .desc = "Server numeric identifier ('id' setting)" },
189 	[ST_F_THROTTLE]                      = { .name = "throttle",                    .desc = "Throttling ratio applied to a server's maxconn and weight during the slowstart period (0 to 100%)" },
190 	[ST_F_LBTOT]                         = { .name = "lbtot",                       .desc = "Total number of requests routed by load balancing since the worker process started (ignores queue pop and stickiness)" },
191 	[ST_F_TRACKED]                       = { .name = "tracked",                     .desc = "Name of the other server this server tracks for its state" },
192 	[ST_F_TYPE]                          = { .name = "type",                        .desc = "Type of the object (Listener, Frontend, Backend, Server)" },
193 	[ST_F_RATE]                          = { .name = "rate",                        .desc = "Total number of sessions processed by this object over the last second (sessions for listeners/frontends, requests for backends/servers)" },
194 	[ST_F_RATE_LIM]                      = { .name = "rate_lim",                    .desc = "Limit on the number of sessions accepted in a second (frontend only, 'rate-limit sessions' setting)" },
195 	[ST_F_RATE_MAX]                      = { .name = "rate_max",                    .desc = "Highest value of sessions per second observed since the worker process started" },
196 	[ST_F_CHECK_STATUS]                  = { .name = "check_status",                .desc = "Status report of the server's latest health check, prefixed with '*' if a check is currently in progress" },
197 	[ST_F_CHECK_CODE]                    = { .name = "check_code",                  .desc = "HTTP/SMTP/LDAP status code reported by the latest server health check" },
198 	[ST_F_CHECK_DURATION]                = { .name = "check_duration",              .desc = "Total duration of the latest server health check, in milliseconds" },
199 	[ST_F_HRSP_1XX]                      = { .name = "hrsp_1xx",                    .desc = "Total number of HTTP responses with status 100-199 returned by this object since the worker process started" },
200 	[ST_F_HRSP_2XX]                      = { .name = "hrsp_2xx",                    .desc = "Total number of HTTP responses with status 200-299 returned by this object since the worker process started" },
201 	[ST_F_HRSP_3XX]                      = { .name = "hrsp_3xx",                    .desc = "Total number of HTTP responses with status 300-399 returned by this object since the worker process started" },
202 	[ST_F_HRSP_4XX]                      = { .name = "hrsp_4xx",                    .desc = "Total number of HTTP responses with status 400-499 returned by this object since the worker process started" },
203 	[ST_F_HRSP_5XX]                      = { .name = "hrsp_5xx",                    .desc = "Total number of HTTP responses with status 500-599 returned by this object since the worker process started" },
204 	[ST_F_HRSP_OTHER]                    = { .name = "hrsp_other",                  .desc = "Total number of HTTP responses with status <100, >599 returned by this object since the worker process started (error -1 included)" },
205 	[ST_F_HANAFAIL]                      = { .name = "hanafail",                    .desc = "Total number of failed checks caused by an 'on-error' directive after an 'observe' condition matched" },
206 	[ST_F_REQ_RATE]                      = { .name = "req_rate",                    .desc = "Number of HTTP requests processed over the last second on this object" },
207 	[ST_F_REQ_RATE_MAX]                  = { .name = "req_rate_max",                .desc = "Highest value of http requests observed since the worker process started" },
208 	[ST_F_REQ_TOT]                       = { .name = "req_tot",                     .desc = "Total number of HTTP requests processed by this object since the worker process started" },
209 	[ST_F_CLI_ABRT]                      = { .name = "cli_abrt",                    .desc = "Total number of requests or connections aborted by the client since the worker process started" },
210 	[ST_F_SRV_ABRT]                      = { .name = "srv_abrt",                    .desc = "Total number of requests or connections aborted by the server since the worker process started" },
211 	[ST_F_COMP_IN]                       = { .name = "comp_in",                     .desc = "Total number of bytes submitted to the HTTP compressor for this object since the worker process started" },
212 	[ST_F_COMP_OUT]                      = { .name = "comp_out",                    .desc = "Total number of bytes emitted by the HTTP compressor for this object since the worker process started" },
213 	[ST_F_COMP_BYP]                      = { .name = "comp_byp",                    .desc = "Total number of bytes that bypassed HTTP compression for this object since the worker process started (CPU/memory/bandwidth limitation)" },
214 	[ST_F_COMP_RSP]                      = { .name = "comp_rsp",                    .desc = "Total number of HTTP responses that were compressed for this object since the worker process started" },
215 	[ST_F_LASTSESS]                      = { .name = "lastsess",                    .desc = "How long ago some traffic was seen on this object on this worker process, in seconds" },
216 	[ST_F_LAST_CHK]                      = { .name = "last_chk",                    .desc = "Short description of the latest health check report for this server (see also check_desc)" },
217 	[ST_F_LAST_AGT]                      = { .name = "last_agt",                    .desc = "Short description of the latest agent check report for this server (see also agent_desc)" },
218 	[ST_F_QTIME]                         = { .name = "qtime",                       .desc = "Time spent in the queue, in milliseconds, averaged over the 1024 last requests (backend/server)" },
219 	[ST_F_CTIME]                         = { .name = "ctime",                       .desc = "Time spent waiting for a connection to complete, in milliseconds, averaged over the 1024 last requests (backend/server)" },
220 	[ST_F_RTIME]                         = { .name = "rtime",                       .desc = "Time spent waiting for a server response, in milliseconds, averaged over the 1024 last requests (backend/server)" },
221 	[ST_F_TTIME]                         = { .name = "ttime",                       .desc = "Total request+response time (request+queue+connect+response+processing), in milliseconds, averaged over the 1024 last requests (backend/server)" },
222 	[ST_F_AGENT_STATUS]                  = { .name = "agent_status",                .desc = "Status report of the server's latest agent check, prefixed with '*' if a check is currently in progress" },
223 	[ST_F_AGENT_CODE]                    = { .name = "agent_code",                  .desc = "Status code reported by the latest server agent check" },
224 	[ST_F_AGENT_DURATION]                = { .name = "agent_duration",              .desc = "Total duration of the latest server agent check, in milliseconds" },
225 	[ST_F_CHECK_DESC]                    = { .name = "check_desc",                  .desc = "Textual description of the latest health check report for this server" },
226 	[ST_F_AGENT_DESC]                    = { .name = "agent_desc",                  .desc = "Textual description of the latest agent check report for this server" },
227 	[ST_F_CHECK_RISE]                    = { .name = "check_rise",                  .desc = "Number of successful health checks before declaring a server UP (server 'rise' setting)" },
228 	[ST_F_CHECK_FALL]                    = { .name = "check_fall",                  .desc = "Number of failed health checks before declaring a server DOWN (server 'fall' setting)" },
229 	[ST_F_CHECK_HEALTH]                  = { .name = "check_health",                .desc = "Current server health check level (0..fall-1=DOWN, fall..rise-1=UP)" },
230 	[ST_F_AGENT_RISE]                    = { .name = "agent_rise",                  .desc = "Number of successful agent checks before declaring a server UP (server 'rise' setting)" },
231 	[ST_F_AGENT_FALL]                    = { .name = "agent_fall",                  .desc = "Number of failed agent checks before declaring a server DOWN (server 'fall' setting)" },
232 	[ST_F_AGENT_HEALTH]                  = { .name = "agent_health",                .desc = "Current server agent check level (0..fall-1=DOWN, fall..rise-1=UP)" },
233 	[ST_F_ADDR]                          = { .name = "addr",                        .desc = "Server's address:port, shown only if show-legends is set, or at levels oper/admin for the CLI" },
234 	[ST_F_COOKIE]                        = { .name = "cookie",                      .desc = "Backend's cookie name or Server's cookie value, shown only if show-legends is set, or at levels oper/admin for the CLI" },
235 	[ST_F_MODE]                          = { .name = "mode",                        .desc = "'mode' setting (tcp/http/health/cli)" },
236 	[ST_F_ALGO]                          = { .name = "algo",                        .desc = "Backend's load balancing algorithm, shown only if show-legends is set, or at levels oper/admin for the CLI" },
237 	[ST_F_CONN_RATE]                     = { .name = "conn_rate",                   .desc = "Number of new connections accepted over the last second on the frontend for this worker process" },
238 	[ST_F_CONN_RATE_MAX]                 = { .name = "conn_rate_max",               .desc = "Highest value of connections per second observed since the worker process started" },
239 	[ST_F_CONN_TOT]                      = { .name = "conn_tot",                    .desc = "Total number of new connections accepted on this frontend since the worker process started" },
240 	[ST_F_INTERCEPTED]                   = { .name = "intercepted",                 .desc = "Total number of HTTP requests intercepted on the frontend (redirects/stats/services) since the worker process started" },
241 	[ST_F_DCON]                          = { .name = "dcon",                        .desc = "Total number of incoming connections blocked on a listener/frontend by a tcp-request connection rule since the worker process started" },
242 	[ST_F_DSES]                          = { .name = "dses",                        .desc = "Total number of incoming sessions blocked on a listener/frontend by a tcp-request connection rule since the worker process started" },
243 	[ST_F_WREW]                          = { .name = "wrew",                        .desc = "Total number of failed HTTP header rewrites since the worker process started" },
244 	[ST_F_CONNECT]                       = { .name = "connect",                     .desc = "Total number of outgoing connection attempts on this backend/server since the worker process started" },
245 	[ST_F_REUSE]                         = { .name = "reuse",                       .desc = "Total number of reused connection on this backend/server since the worker process started" },
246 	[ST_F_CACHE_LOOKUPS]                 = { .name = "cache_lookups",               .desc = "Total number of HTTP requests looked up in the cache on this frontend/backend since the worker process started" },
247 	[ST_F_CACHE_HITS]                    = { .name = "cache_hits",                  .desc = "Total number of HTTP requests not found in the cache on this frontend/backend since the worker process started" },
248 	[ST_F_SRV_ICUR]                      = { .name = "srv_icur",                    .desc = "Current number of idle connections available for reuse on this server" },
249 	[ST_F_SRV_ILIM]                      = { .name = "src_ilim",                    .desc = "Limit on the number of available idle connections on this server (server 'pool_max_conn' directive)" },
250 	[ST_F_QT_MAX]                        = { .name = "qtime_max",                   .desc = "Maximum observed time spent in the queue, in milliseconds (backend/server)" },
251 	[ST_F_CT_MAX]                        = { .name = "ctime_max",                   .desc = "Maximum observed time spent waiting for a connection to complete, in milliseconds (backend/server)" },
252 	[ST_F_RT_MAX]                        = { .name = "rtime_max",                   .desc = "Maximum observed time spent waiting for a server response, in milliseconds (backend/server)" },
253 	[ST_F_TT_MAX]                        = { .name = "ttime_max",                   .desc = "Maximum observed total request+response time (request+queue+connect+response+processing), in milliseconds (backend/server)" },
254 	[ST_F_EINT]                          = { .name = "eint",                        .desc = "Total number of internal errors since process started"},
255 	[ST_F_IDLE_CONN_CUR]                 = { .name = "idle_conn_cur",               .desc = "Current number of unsafe idle connections"},
256 	[ST_F_SAFE_CONN_CUR]                 = { .name = "safe_conn_cur",               .desc = "Current number of safe idle connections"},
257 	[ST_F_USED_CONN_CUR]                 = { .name = "used_conn_cur",               .desc = "Current number of connections in use"},
258 	[ST_F_NEED_CONN_EST]                 = { .name = "need_conn_est",               .desc = "Estimated needed number of connections"},
259 	[ST_F_UWEIGHT]                       = { .name = "uweight",                     .desc = "Server's user weight, or sum of active servers' user weights for a backend" },
260 	[ST_F_AGG_SRV_CHECK_STATUS]          = { .name = "agg_server_check_status",     .desc = "Backend's aggregated gauge of servers' state check status" },
261 };
262 
263 /* one line of info */
264 THREAD_LOCAL struct field info[INF_TOTAL_FIELDS];
265 
266 /* description of statistics (static and dynamic) */
267 static struct name_desc *stat_f[STATS_DOMAIN_COUNT];
268 static size_t stat_count[STATS_DOMAIN_COUNT];
269 
270 /* one line for stats */
271 THREAD_LOCAL struct field *stat_l[STATS_DOMAIN_COUNT];
272 
273 /* list of all registered stats module */
274 static struct list stats_module_list[STATS_DOMAIN_COUNT] = {
275 	LIST_HEAD_INIT(stats_module_list[STATS_DOMAIN_PROXY]),
276 	LIST_HEAD_INIT(stats_module_list[STATS_DOMAIN_DNS]),
277 };
278 
279 THREAD_LOCAL void *trash_counters;
280 
stats_get_domain(uint32_t domain)281 static inline uint8_t stats_get_domain(uint32_t domain)
282 {
283 	return domain >> STATS_DOMAIN & STATS_DOMAIN_MASK;
284 }
285 
stats_px_get_cap(uint32_t domain)286 static inline enum stats_domain_px_cap stats_px_get_cap(uint32_t domain)
287 {
288 	return domain >> STATS_PX_CAP & STATS_PX_CAP_MASK;
289 }
290 
291 static void stats_dump_json_schema(struct buffer *out);
292 
stats_putchk(struct channel * chn,struct htx * htx,struct buffer * chk)293 int stats_putchk(struct channel *chn, struct htx *htx, struct buffer *chk)
294 {
295 	if (htx) {
296 		if (chk->data >= channel_htx_recv_max(chn, htx))
297 			return 0;
298 		if (!htx_add_data_atonce(htx, ist2(chk->area, chk->data)))
299 			return 0;
300 		channel_add_input(chn, chk->data);
301 		chk->data = 0;
302 	}
303 	else  {
304 		if (ci_putchk(chn, chk) == -1)
305 			return 0;
306 	}
307 	return 1;
308 }
309 
stats_scope_ptr(struct appctx * appctx,struct stream_interface * si)310 static const char *stats_scope_ptr(struct appctx *appctx, struct stream_interface *si)
311 {
312 	struct channel *req = si_oc(si);
313 	struct htx *htx = htxbuf(&req->buf);
314 	struct htx_blk *blk;
315 	struct ist uri;
316 
317 	blk = htx_get_head_blk(htx);
318 	BUG_ON(!blk || htx_get_blk_type(blk) != HTX_BLK_REQ_SL);
319 	ALREADY_CHECKED(blk);
320 	uri = htx_sl_req_uri(htx_get_blk_ptr(htx, blk));
321 	return uri.ptr + appctx->ctx.stats.scope_str;
322 }
323 
324 /*
325  * http_stats_io_handler()
326  *     -> stats_dump_stat_to_buffer()     // same as above, but used for CSV or HTML
327  *        -> stats_dump_csv_header()      // emits the CSV headers (same as above)
328  *        -> stats_dump_json_header()     // emits the JSON headers (same as above)
329  *        -> stats_dump_html_head()       // emits the HTML headers
330  *        -> stats_dump_html_info()       // emits the equivalent of "show info" at the top
331  *        -> stats_dump_proxy_to_buffer() // same as above, valid for CSV and HTML
332  *           -> stats_dump_html_px_hdr()
333  *           -> stats_dump_fe_stats()
334  *           -> stats_dump_li_stats()
335  *           -> stats_dump_sv_stats()
336  *           -> stats_dump_be_stats()
337  *           -> stats_dump_html_px_end()
338  *        -> stats_dump_html_end()       // emits HTML trailer
339  *        -> stats_dump_json_end()       // emits JSON trailer
340  */
341 
342 
343 /* Dumps the stats CSV header to the trash buffer which. The caller is responsible
344  * for clearing it if needed.
345  * NOTE: Some tools happen to rely on the field position instead of its name,
346  *       so please only append new fields at the end, never in the middle.
347  */
stats_dump_csv_header(enum stats_domain domain)348 static void stats_dump_csv_header(enum stats_domain domain)
349 {
350 	int field;
351 
352 	chunk_appendf(&trash, "# ");
353 	if (stat_f[domain]) {
354 		for (field = 0; field < stat_count[domain]; ++field) {
355 			chunk_appendf(&trash, "%s,", stat_f[domain][field].name);
356 
357 			/* print special delimiter on proxy stats to mark end of
358 			   static fields */
359 			if (domain == STATS_DOMAIN_PROXY && field + 1 == ST_F_TOTAL_FIELDS)
360 				chunk_appendf(&trash, "-,");
361 		}
362 	}
363 
364 	chunk_appendf(&trash, "\n");
365 }
366 
367 /* Emits a stats field without any surrounding element and properly encoded to
368  * resist CSV output. Returns non-zero on success, 0 if the buffer is full.
369  */
stats_emit_raw_data_field(struct buffer * out,const struct field * f)370 int stats_emit_raw_data_field(struct buffer *out, const struct field *f)
371 {
372 	switch (field_format(f, 0)) {
373 	case FF_EMPTY: return 1;
374 	case FF_S32:   return chunk_appendf(out, "%d", f->u.s32);
375 	case FF_U32:   return chunk_appendf(out, "%u", f->u.u32);
376 	case FF_S64:   return chunk_appendf(out, "%lld", (long long)f->u.s64);
377 	case FF_U64:   return chunk_appendf(out, "%llu", (unsigned long long)f->u.u64);
378 	case FF_FLT:   {
379 		size_t prev_data = out->data;
380 		out->data = flt_trim(out->area, prev_data, chunk_appendf(out, "%f", f->u.flt));
381 		return out->data;
382 	}
383 	case FF_STR:   return csv_enc_append(field_str(f, 0), 1, out) != NULL;
384 	default:       return chunk_appendf(out, "[INCORRECT_FIELD_TYPE_%08x]", f->type);
385 	}
386 }
387 
field_to_html_str(const struct field * f)388 const char *field_to_html_str(const struct field *f)
389 {
390 	switch (field_format(f, 0)) {
391 	case FF_S32: return U2H(f->u.s32);
392 	case FF_S64: return U2H(f->u.s64);
393 	case FF_U64: return U2H(f->u.u64);
394 	case FF_U32: return U2H(f->u.u32);
395 	case FF_FLT: return F2H(f->u.flt);
396 	case FF_STR: return field_str(f, 0);
397 	case FF_EMPTY:
398 	default:
399 		return "";
400 	}
401 }
402 
403 /* Emits a stats field prefixed with its type. No CSV encoding is prepared, the
404  * output is supposed to be used on its own line. Returns non-zero on success, 0
405  * if the buffer is full.
406  */
stats_emit_typed_data_field(struct buffer * out,const struct field * f)407 int stats_emit_typed_data_field(struct buffer *out, const struct field *f)
408 {
409 	switch (field_format(f, 0)) {
410 	case FF_EMPTY: return 1;
411 	case FF_S32:   return chunk_appendf(out, "s32:%d", f->u.s32);
412 	case FF_U32:   return chunk_appendf(out, "u32:%u", f->u.u32);
413 	case FF_S64:   return chunk_appendf(out, "s64:%lld", (long long)f->u.s64);
414 	case FF_U64:   return chunk_appendf(out, "u64:%llu", (unsigned long long)f->u.u64);
415 	case FF_FLT:   {
416 		size_t prev_data = out->data;
417 		out->data = flt_trim(out->area, prev_data, chunk_appendf(out, "flt:%f", f->u.flt));
418 		return out->data;
419 	}
420 	case FF_STR:   return chunk_appendf(out, "str:%s", field_str(f, 0));
421 	default:       return chunk_appendf(out, "%08x:?", f->type);
422 	}
423 }
424 
425 /* Limit JSON integer values to the range [-(2**53)+1, (2**53)-1] as per
426  * the recommendation for interoperable integers in section 6 of RFC 7159.
427  */
428 #define JSON_INT_MAX ((1ULL << 53) - 1)
429 #define JSON_INT_MIN (0 - JSON_INT_MAX)
430 
431 /* Emits a stats field value and its type in JSON.
432  * Returns non-zero on success, 0 on error.
433  */
stats_emit_json_data_field(struct buffer * out,const struct field * f)434 int stats_emit_json_data_field(struct buffer *out, const struct field *f)
435 {
436 	int old_len;
437 	char buf[20];
438 	const char *type, *value = buf, *quote = "";
439 
440 	switch (field_format(f, 0)) {
441 	case FF_EMPTY: return 1;
442 	case FF_S32:   type = "\"s32\"";
443 		       snprintf(buf, sizeof(buf), "%d", f->u.s32);
444 		       break;
445 	case FF_U32:   type = "\"u32\"";
446 		       snprintf(buf, sizeof(buf), "%u", f->u.u32);
447 		       break;
448 	case FF_S64:   type = "\"s64\"";
449 		       if (f->u.s64 < JSON_INT_MIN || f->u.s64 > JSON_INT_MAX)
450 			       return 0;
451 		       type = "\"s64\"";
452 		       snprintf(buf, sizeof(buf), "%lld", (long long)f->u.s64);
453 		       break;
454 	case FF_U64:   if (f->u.u64 > JSON_INT_MAX)
455 			       return 0;
456 		       type = "\"u64\"";
457 		       snprintf(buf, sizeof(buf), "%llu",
458 				(unsigned long long) f->u.u64);
459 		       break;
460 	case FF_FLT:   type = "\"flt\"";
461 		       flt_trim(buf, 0, snprintf(buf, sizeof(buf), "%f", f->u.flt));
462 		       break;
463 	case FF_STR:   type = "\"str\"";
464 		       value = field_str(f, 0);
465 		       quote = "\"";
466 		       break;
467 	default:       snprintf(buf, sizeof(buf), "%u", f->type);
468 		       type = buf;
469 		       value = "unknown";
470 		       quote = "\"";
471 		       break;
472 	}
473 
474 	old_len = out->data;
475 	chunk_appendf(out, ",\"value\":{\"type\":%s,\"value\":%s%s%s}",
476 		      type, quote, value, quote);
477 	return !(old_len == out->data);
478 }
479 
480 /* Emits an encoding of the field type on 3 characters followed by a delimiter.
481  * Returns non-zero on success, 0 if the buffer is full.
482  */
stats_emit_field_tags(struct buffer * out,const struct field * f,char delim)483 int stats_emit_field_tags(struct buffer *out, const struct field *f,
484 			  char delim)
485 {
486 	char origin, nature, scope;
487 
488 	switch (field_origin(f, 0)) {
489 	case FO_METRIC:  origin = 'M'; break;
490 	case FO_STATUS:  origin = 'S'; break;
491 	case FO_KEY:     origin = 'K'; break;
492 	case FO_CONFIG:  origin = 'C'; break;
493 	case FO_PRODUCT: origin = 'P'; break;
494 	default:         origin = '?'; break;
495 	}
496 
497 	switch (field_nature(f, 0)) {
498 	case FN_GAUGE:    nature = 'G'; break;
499 	case FN_LIMIT:    nature = 'L'; break;
500 	case FN_MIN:      nature = 'm'; break;
501 	case FN_MAX:      nature = 'M'; break;
502 	case FN_RATE:     nature = 'R'; break;
503 	case FN_COUNTER:  nature = 'C'; break;
504 	case FN_DURATION: nature = 'D'; break;
505 	case FN_AGE:      nature = 'A'; break;
506 	case FN_TIME:     nature = 'T'; break;
507 	case FN_NAME:     nature = 'N'; break;
508 	case FN_OUTPUT:   nature = 'O'; break;
509 	case FN_AVG:      nature = 'a'; break;
510 	default:          nature = '?'; break;
511 	}
512 
513 	switch (field_scope(f, 0)) {
514 	case FS_PROCESS: scope = 'P'; break;
515 	case FS_SERVICE: scope = 'S'; break;
516 	case FS_SYSTEM:  scope = 's'; break;
517 	case FS_CLUSTER: scope = 'C'; break;
518 	default:         scope = '?'; break;
519 	}
520 
521 	return chunk_appendf(out, "%c%c%c%c", origin, nature, scope, delim);
522 }
523 
524 /* Emits an encoding of the field type as JSON.
525   * Returns non-zero on success, 0 if the buffer is full.
526   */
stats_emit_json_field_tags(struct buffer * out,const struct field * f)527 int stats_emit_json_field_tags(struct buffer *out, const struct field *f)
528 {
529 	const char *origin, *nature, *scope;
530 	int old_len;
531 
532 	switch (field_origin(f, 0)) {
533 	case FO_METRIC:  origin = "Metric";  break;
534 	case FO_STATUS:  origin = "Status";  break;
535 	case FO_KEY:     origin = "Key";     break;
536 	case FO_CONFIG:  origin = "Config";  break;
537 	case FO_PRODUCT: origin = "Product"; break;
538 	default:         origin = "Unknown"; break;
539 	}
540 
541 	switch (field_nature(f, 0)) {
542 	case FN_GAUGE:    nature = "Gauge";    break;
543 	case FN_LIMIT:    nature = "Limit";    break;
544 	case FN_MIN:      nature = "Min";      break;
545 	case FN_MAX:      nature = "Max";      break;
546 	case FN_RATE:     nature = "Rate";     break;
547 	case FN_COUNTER:  nature = "Counter";  break;
548 	case FN_DURATION: nature = "Duration"; break;
549 	case FN_AGE:      nature = "Age";      break;
550 	case FN_TIME:     nature = "Time";     break;
551 	case FN_NAME:     nature = "Name";     break;
552 	case FN_OUTPUT:   nature = "Output";   break;
553 	case FN_AVG:      nature = "Avg";      break;
554 	default:          nature = "Unknown";  break;
555 	}
556 
557 	switch (field_scope(f, 0)) {
558 	case FS_PROCESS: scope = "Process"; break;
559 	case FS_SERVICE: scope = "Service"; break;
560 	case FS_SYSTEM:  scope = "System";  break;
561 	case FS_CLUSTER: scope = "Cluster"; break;
562 	default:         scope = "Unknown"; break;
563 	}
564 
565 	old_len = out->data;
566 	chunk_appendf(out, "\"tags\":{"
567 			    "\"origin\":\"%s\","
568 			    "\"nature\":\"%s\","
569 			    "\"scope\":\"%s\""
570 			   "}", origin, nature, scope);
571 	return !(old_len == out->data);
572 }
573 
574 /* Dump all fields from <stats> into <out> using CSV format */
stats_dump_fields_csv(struct buffer * out,const struct field * stats,size_t stats_count,unsigned int flags,enum stats_domain domain)575 static int stats_dump_fields_csv(struct buffer *out,
576                                  const struct field *stats, size_t stats_count,
577                                  unsigned int flags,
578                                  enum stats_domain domain)
579 {
580 	int field;
581 
582 	for (field = 0; field < stats_count; ++field) {
583 		if (!stats_emit_raw_data_field(out, &stats[field]))
584 			return 0;
585 		if (!chunk_strcat(out, ","))
586 			return 0;
587 
588 		/* print special delimiter on proxy stats to mark end of
589 		   static fields */
590 		if (domain == STATS_DOMAIN_PROXY && field + 1 == ST_F_TOTAL_FIELDS) {
591 			if (!chunk_strcat(out, "-,"))
592 				return 0;
593 		}
594 	}
595 
596 	chunk_strcat(out, "\n");
597 	return 1;
598 }
599 
600 /* Dump all fields from <stats> into <out> using a typed "field:desc:type:value" format */
stats_dump_fields_typed(struct buffer * out,const struct field * stats,size_t stats_count,unsigned int flags,enum stats_domain domain)601 static int stats_dump_fields_typed(struct buffer *out,
602                                    const struct field *stats,
603                                    size_t stats_count,
604                                    unsigned int flags,
605                                    enum stats_domain domain)
606 {
607 	int field;
608 
609 	for (field = 0; field < stats_count; ++field) {
610 		if (!stats[field].type)
611 			continue;
612 
613 		switch (domain) {
614 		case STATS_DOMAIN_PROXY:
615 			chunk_appendf(out, "%c.%u.%u.%d.%s.%u:",
616 			              stats[ST_F_TYPE].u.u32 == STATS_TYPE_FE ? 'F' :
617 			              stats[ST_F_TYPE].u.u32 == STATS_TYPE_BE ? 'B' :
618 			              stats[ST_F_TYPE].u.u32 == STATS_TYPE_SO ? 'L' :
619 			              stats[ST_F_TYPE].u.u32 == STATS_TYPE_SV ? 'S' :
620 			              '?',
621 			              stats[ST_F_IID].u.u32, stats[ST_F_SID].u.u32,
622 			              field,
623 			              stat_f[domain][field].name,
624 			              stats[ST_F_PID].u.u32);
625 			break;
626 
627 		case STATS_DOMAIN_DNS:
628 			chunk_appendf(out, "D.%d.%s:", field,
629 			              stat_f[domain][field].name);
630 			break;
631 
632 		default:
633 			break;
634 		}
635 
636 		if (!stats_emit_field_tags(out, &stats[field], ':'))
637 			return 0;
638 		if (!stats_emit_typed_data_field(out, &stats[field]))
639 			return 0;
640 
641 		if (flags & STAT_SHOW_FDESC &&
642 		    !chunk_appendf(out, ":\"%s\"", stat_f[domain][field].desc)) {
643 			return 0;
644 		}
645 
646 		if (!chunk_strcat(out, "\n"))
647 			return 0;
648 	}
649 	return 1;
650 }
651 
652 /* Dump all fields from <stats> into <out> using the "show info json" format */
stats_dump_json_info_fields(struct buffer * out,const struct field * info,unsigned int flags)653 static int stats_dump_json_info_fields(struct buffer *out,
654 				       const struct field *info, unsigned int flags)
655 {
656 	int field;
657 	int started = 0;
658 
659 	if (!chunk_strcat(out, "["))
660 		return 0;
661 
662 	for (field = 0; field < INF_TOTAL_FIELDS; field++) {
663 		int old_len;
664 
665 		if (!field_format(info, field))
666 			continue;
667 
668 		if (started && !chunk_strcat(out, ","))
669 			goto err;
670 		started = 1;
671 
672 		old_len = out->data;
673 		chunk_appendf(out,
674 			      "{\"field\":{\"pos\":%d,\"name\":\"%s\"},"
675 			      "\"processNum\":%u,",
676 			      field, info_fields[field].name,
677 			      info[INF_PROCESS_NUM].u.u32);
678 		if (old_len == out->data)
679 			goto err;
680 
681 		if (!stats_emit_json_field_tags(out, &info[field]))
682 			goto err;
683 
684 		if (!stats_emit_json_data_field(out, &info[field]))
685 			goto err;
686 
687 		if (!chunk_strcat(out, "}"))
688 			goto err;
689 	}
690 
691 	if (!chunk_strcat(out, "]"))
692 		goto err;
693 	return 1;
694 
695 err:
696 	chunk_reset(out);
697 	chunk_appendf(out, "{\"errorStr\":\"output buffer too short\"}");
698 	return 0;
699 }
700 
stats_print_proxy_field_json(struct buffer * out,const struct field * stat,const char * name,int pos,uint32_t field_type,uint32_t iid,uint32_t sid,uint32_t pid)701 static void stats_print_proxy_field_json(struct buffer *out,
702                                          const struct field *stat,
703                                          const char *name,
704                                          int pos,
705                                          uint32_t field_type,
706                                          uint32_t iid,
707                                          uint32_t sid,
708                                          uint32_t pid)
709 {
710 	const char *obj_type;
711 	switch (field_type) {
712 		case STATS_TYPE_FE: obj_type = "Frontend"; break;
713 		case STATS_TYPE_BE: obj_type = "Backend";  break;
714 		case STATS_TYPE_SO: obj_type = "Listener"; break;
715 		case STATS_TYPE_SV: obj_type = "Server";   break;
716 		default:            obj_type = "Unknown";  break;
717 	}
718 
719 	chunk_appendf(out,
720 	              "{"
721 	              "\"objType\":\"%s\","
722 	              "\"proxyId\":%u,"
723 	              "\"id\":%u,"
724 	              "\"field\":{\"pos\":%d,\"name\":\"%s\"},"
725 	              "\"processNum\":%u,",
726 	              obj_type, iid, sid, pos, name, pid);
727 }
728 
stats_print_dns_field_json(struct buffer * out,const struct field * stat,const char * name,int pos)729 static void stats_print_dns_field_json(struct buffer *out,
730                                        const struct field *stat,
731                                        const char *name,
732                                        int pos)
733 {
734 	chunk_appendf(out,
735 	              "{"
736 	              "\"field\":{\"pos\":%d,\"name\":\"%s\"},",
737 	              pos, name);
738 }
739 
740 
741 /* Dump all fields from <stats> into <out> using a typed "field:desc:type:value" format */
stats_dump_fields_json(struct buffer * out,const struct field * stats,size_t stats_count,unsigned int flags,enum stats_domain domain)742 static int stats_dump_fields_json(struct buffer *out,
743                                   const struct field *stats, size_t stats_count,
744                                   unsigned int flags,
745                                   enum stats_domain domain)
746 {
747 	int field;
748 	int started = 0;
749 
750 	if ((flags & STAT_STARTED) && !chunk_strcat(out, ","))
751 		return 0;
752 	if (!chunk_strcat(out, "["))
753 		return 0;
754 
755 	for (field = 0; field < stats_count; field++) {
756 		int old_len;
757 
758 		if (!stats[field].type)
759 			continue;
760 
761 		if (started && !chunk_strcat(out, ","))
762 			goto err;
763 		started = 1;
764 
765 		old_len = out->data;
766 		if (domain == STATS_DOMAIN_PROXY) {
767 			stats_print_proxy_field_json(out, &stats[field],
768 			                             stat_f[domain][field].name,
769 			                             field,
770 			                             stats[ST_F_TYPE].u.u32,
771 			                             stats[ST_F_IID].u.u32,
772 			                             stats[ST_F_SID].u.u32,
773 			                             stats[ST_F_PID].u.u32);
774 		} else if (domain == STATS_DOMAIN_DNS) {
775 			stats_print_dns_field_json(out, &stats[field],
776 			                           stat_f[domain][field].name,
777 			                           field);
778 		}
779 
780 		if (old_len == out->data)
781 			goto err;
782 
783 		if (!stats_emit_json_field_tags(out, &stats[field]))
784 			goto err;
785 
786 		if (!stats_emit_json_data_field(out, &stats[field]))
787 			goto err;
788 
789 		if (!chunk_strcat(out, "}"))
790 			goto err;
791 	}
792 
793 	if (!chunk_strcat(out, "]"))
794 		goto err;
795 
796 	return 1;
797 
798 err:
799 	chunk_reset(out);
800 	if (flags & STAT_STARTED)
801 		chunk_strcat(out, ",");
802 	chunk_appendf(out, "{\"errorStr\":\"output buffer too short\"}");
803 	return 0;
804 }
805 
806 /* Dump all fields from <stats> into <out> using the HTML format. A column is
807  * reserved for the checkbox is STAT_ADMIN is set in <flags>. Some extra info
808  * are provided if STAT_SHLGNDS is present in <flags>. The statistics from
809  * extra modules are displayed at the end of the lines if STAT_SHMODULES is
810  * present in <flags>.
811  */
stats_dump_fields_html(struct buffer * out,const struct field * stats,unsigned int flags)812 static int stats_dump_fields_html(struct buffer *out,
813 				  const struct field *stats,
814 				  unsigned int flags)
815 {
816 	struct buffer src;
817 	struct stats_module *mod;
818 	int i = 0, j = 0;
819 
820 	if (stats[ST_F_TYPE].u.u32 == STATS_TYPE_FE) {
821 		chunk_appendf(out,
822 		              /* name, queue */
823 		              "<tr class=\"frontend\">");
824 
825 		if (flags & STAT_ADMIN) {
826 			/* Column sub-heading for Enable or Disable server */
827 			chunk_appendf(out, "<td></td>");
828 		}
829 
830 		chunk_appendf(out,
831 		              "<td class=ac>"
832 		              "<a name=\"%s/Frontend\"></a>"
833 		              "<a class=lfsb href=\"#%s/Frontend\">Frontend</a></td>"
834 		              "<td colspan=3></td>"
835 		              "",
836 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_PXNAME));
837 
838 		chunk_appendf(out,
839 		              /* sessions rate : current */
840 		              "<td><u>%s<div class=tips><table class=det>"
841 		              "<tr><th>Current connection rate:</th><td>%s/s</td></tr>"
842 		              "<tr><th>Current session rate:</th><td>%s/s</td></tr>"
843 		              "",
844 		              U2H(stats[ST_F_RATE].u.u32),
845 		              U2H(stats[ST_F_CONN_RATE].u.u32),
846 		              U2H(stats[ST_F_RATE].u.u32));
847 
848 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0)
849 			chunk_appendf(out,
850 			              "<tr><th>Current request rate:</th><td>%s/s</td></tr>",
851 			              U2H(stats[ST_F_REQ_RATE].u.u32));
852 
853 		chunk_appendf(out,
854 		              "</table></div></u></td>"
855 		              /* sessions rate : max */
856 		              "<td><u>%s<div class=tips><table class=det>"
857 		              "<tr><th>Max connection rate:</th><td>%s/s</td></tr>"
858 		              "<tr><th>Max session rate:</th><td>%s/s</td></tr>"
859 		              "",
860 		              U2H(stats[ST_F_RATE_MAX].u.u32),
861 		              U2H(stats[ST_F_CONN_RATE_MAX].u.u32),
862 		              U2H(stats[ST_F_RATE_MAX].u.u32));
863 
864 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0)
865 			chunk_appendf(out,
866 			              "<tr><th>Max request rate:</th><td>%s/s</td></tr>",
867 			              U2H(stats[ST_F_REQ_RATE_MAX].u.u32));
868 
869 		chunk_appendf(out,
870 		              "</table></div></u></td>"
871 		              /* sessions rate : limit */
872 		              "<td>%s</td>",
873 		              LIM2A(stats[ST_F_RATE_LIM].u.u32, "-"));
874 
875 		chunk_appendf(out,
876 		              /* sessions: current, max, limit, total */
877 		              "<td>%s</td><td>%s</td><td>%s</td>"
878 		              "<td><u>%s<div class=tips><table class=det>"
879 		              "<tr><th>Cum. connections:</th><td>%s</td></tr>"
880 		              "<tr><th>Cum. sessions:</th><td>%s</td></tr>"
881 		              "",
882 		              U2H(stats[ST_F_SCUR].u.u32), U2H(stats[ST_F_SMAX].u.u32), U2H(stats[ST_F_SLIM].u.u32),
883 		              U2H(stats[ST_F_STOT].u.u64),
884 		              U2H(stats[ST_F_CONN_TOT].u.u64),
885 		              U2H(stats[ST_F_STOT].u.u64));
886 
887 		/* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */
888 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0) {
889 			chunk_appendf(out,
890 			              "<tr><th>Cum. HTTP requests:</th><td>%s</td></tr>"
891 			              "<tr><th>- HTTP 1xx responses:</th><td>%s</td></tr>"
892 			              "<tr><th>- HTTP 2xx responses:</th><td>%s</td></tr>"
893 			              "<tr><th>&nbsp;&nbsp;Compressed 2xx:</th><td>%s</td><td>(%d%%)</td></tr>"
894 			              "<tr><th>- HTTP 3xx responses:</th><td>%s</td></tr>"
895 			              "<tr><th>- HTTP 4xx responses:</th><td>%s</td></tr>"
896 			              "<tr><th>- HTTP 5xx responses:</th><td>%s</td></tr>"
897 			              "<tr><th>- other responses:</th><td>%s</td></tr>"
898 			              "<tr><th>Intercepted requests:</th><td>%s</td></tr>"
899 			              "<tr><th>Cache lookups:</th><td>%s</td></tr>"
900 			              "<tr><th>Cache hits:</th><td>%s</td><td>(%d%%)</td></tr>"
901 			              "<tr><th>Failed hdr rewrites:</th><td>%s</td></tr>"
902 			              "<tr><th>Internal errors:</th><td>%s</td></tr>"
903 			              "",
904 			              U2H(stats[ST_F_REQ_TOT].u.u64),
905 			              U2H(stats[ST_F_HRSP_1XX].u.u64),
906 			              U2H(stats[ST_F_HRSP_2XX].u.u64),
907 			              U2H(stats[ST_F_COMP_RSP].u.u64),
908 			              stats[ST_F_HRSP_2XX].u.u64 ?
909 			              (int)(100 * stats[ST_F_COMP_RSP].u.u64 / stats[ST_F_HRSP_2XX].u.u64) : 0,
910 			              U2H(stats[ST_F_HRSP_3XX].u.u64),
911 			              U2H(stats[ST_F_HRSP_4XX].u.u64),
912 			              U2H(stats[ST_F_HRSP_5XX].u.u64),
913 			              U2H(stats[ST_F_HRSP_OTHER].u.u64),
914 			              U2H(stats[ST_F_INTERCEPTED].u.u64),
915 			              U2H(stats[ST_F_CACHE_LOOKUPS].u.u64),
916 			              U2H(stats[ST_F_CACHE_HITS].u.u64),
917 			              stats[ST_F_CACHE_LOOKUPS].u.u64 ?
918 			              (int)(100 * stats[ST_F_CACHE_HITS].u.u64 / stats[ST_F_CACHE_LOOKUPS].u.u64) : 0,
919 			              U2H(stats[ST_F_WREW].u.u64),
920 			              U2H(stats[ST_F_EINT].u.u64));
921 		}
922 
923 		chunk_appendf(out,
924 		              "</table></div></u></td>"
925 		              /* sessions: lbtot, lastsess */
926 		              "<td></td><td></td>"
927 		              /* bytes : in */
928 		              "<td>%s</td>"
929 		              "",
930 		              U2H(stats[ST_F_BIN].u.u64));
931 
932 		chunk_appendf(out,
933 			      /* bytes:out + compression stats (via hover): comp_in, comp_out, comp_byp */
934 		              "<td>%s%s<div class=tips><table class=det>"
935 			      "<tr><th>Response bytes in:</th><td>%s</td></tr>"
936 			      "<tr><th>Compression in:</th><td>%s</td></tr>"
937 			      "<tr><th>Compression out:</th><td>%s</td><td>(%d%%)</td></tr>"
938 			      "<tr><th>Compression bypass:</th><td>%s</td></tr>"
939 			      "<tr><th>Total bytes saved:</th><td>%s</td><td>(%d%%)</td></tr>"
940 			      "</table></div>%s</td>",
941 		              (stats[ST_F_COMP_IN].u.u64 || stats[ST_F_COMP_BYP].u.u64) ? "<u>":"",
942 		              U2H(stats[ST_F_BOUT].u.u64),
943 		              U2H(stats[ST_F_BOUT].u.u64),
944 		              U2H(stats[ST_F_COMP_IN].u.u64),
945 			      U2H(stats[ST_F_COMP_OUT].u.u64),
946 			      stats[ST_F_COMP_IN].u.u64 ? (int)(stats[ST_F_COMP_OUT].u.u64 * 100 / stats[ST_F_COMP_IN].u.u64) : 0,
947 			      U2H(stats[ST_F_COMP_BYP].u.u64),
948 			      U2H(stats[ST_F_COMP_IN].u.u64 - stats[ST_F_COMP_OUT].u.u64),
949 			      stats[ST_F_BOUT].u.u64 ? (int)((stats[ST_F_COMP_IN].u.u64 - stats[ST_F_COMP_OUT].u.u64) * 100 / stats[ST_F_BOUT].u.u64) : 0,
950 		              (stats[ST_F_COMP_IN].u.u64 || stats[ST_F_COMP_BYP].u.u64) ? "</u>":"");
951 
952 		chunk_appendf(out,
953 		              /* denied: req, resp */
954 		              "<td>%s</td><td>%s</td>"
955 		              /* errors : request, connect, response */
956 		              "<td>%s</td><td></td><td></td>"
957 		              /* warnings: retries, redispatches */
958 		              "<td></td><td></td>"
959 		              /* server status : reflect frontend status */
960 		              "<td class=ac>%s</td>"
961 		              /* rest of server: nothing */
962 		              "<td class=ac colspan=8></td>"
963 		              "",
964 		              U2H(stats[ST_F_DREQ].u.u64), U2H(stats[ST_F_DRESP].u.u64),
965 		              U2H(stats[ST_F_EREQ].u.u64),
966 		              field_str(stats, ST_F_STATUS));
967 
968 		if (flags & STAT_SHMODULES) {
969 			list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
970 				chunk_appendf(out, "<td>");
971 
972 				if (stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_FE) {
973 					chunk_appendf(out,
974 					              "<u>%s<div class=tips><table class=det>",
975 					              mod->name);
976 					for (j = 0; j < mod->stats_count; ++j) {
977 						chunk_appendf(out,
978 						              "<tr><th>%s</th><td>%s</td></tr>",
979 						              mod->stats[j].desc, field_to_html_str(&stats[ST_F_TOTAL_FIELDS + i]));
980 						++i;
981 					}
982 					chunk_appendf(out, "</table></div></u>");
983 				} else {
984 					i += mod->stats_count;
985 				}
986 
987 				chunk_appendf(out, "</td>");
988 			}
989 		}
990 
991 		chunk_appendf(out, "</tr>");
992 	}
993 	else if (stats[ST_F_TYPE].u.u32 == STATS_TYPE_SO) {
994 		chunk_appendf(out, "<tr class=socket>");
995 		if (flags & STAT_ADMIN) {
996 			/* Column sub-heading for Enable or Disable server */
997 			chunk_appendf(out, "<td></td>");
998 		}
999 
1000 		chunk_appendf(out,
1001 		              /* frontend name, listener name */
1002 		              "<td class=ac><a name=\"%s/+%s\"></a>%s"
1003 		              "<a class=lfsb href=\"#%s/+%s\">%s</a>"
1004 		              "",
1005 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_SVNAME),
1006 		              (flags & STAT_SHLGNDS)?"<u>":"",
1007 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_SVNAME), field_str(stats, ST_F_SVNAME));
1008 
1009 		if (flags & STAT_SHLGNDS) {
1010 			chunk_appendf(out, "<div class=tips>");
1011 
1012 			if (isdigit((unsigned char)*field_str(stats, ST_F_ADDR)))
1013 				chunk_appendf(out, "IPv4: %s, ", field_str(stats, ST_F_ADDR));
1014 			else if (*field_str(stats, ST_F_ADDR) == '[')
1015 				chunk_appendf(out, "IPv6: %s, ", field_str(stats, ST_F_ADDR));
1016 			else if (*field_str(stats, ST_F_ADDR))
1017 				chunk_appendf(out, "%s, ", field_str(stats, ST_F_ADDR));
1018 
1019 			/* id */
1020 			chunk_appendf(out, "id: %d</div>", stats[ST_F_SID].u.u32);
1021 		}
1022 
1023 		chunk_appendf(out,
1024 			      /* queue */
1025 		              "%s</td><td colspan=3></td>"
1026 		              /* sessions rate: current, max, limit */
1027 		              "<td colspan=3>&nbsp;</td>"
1028 		              /* sessions: current, max, limit, total, lbtot, lastsess */
1029 		              "<td>%s</td><td>%s</td><td>%s</td>"
1030 		              "<td>%s</td><td>&nbsp;</td><td>&nbsp;</td>"
1031 		              /* bytes: in, out */
1032 		              "<td>%s</td><td>%s</td>"
1033 		              "",
1034 		              (flags & STAT_SHLGNDS)?"</u>":"",
1035 		              U2H(stats[ST_F_SCUR].u.u32), U2H(stats[ST_F_SMAX].u.u32), U2H(stats[ST_F_SLIM].u.u32),
1036 		              U2H(stats[ST_F_STOT].u.u64), U2H(stats[ST_F_BIN].u.u64), U2H(stats[ST_F_BOUT].u.u64));
1037 
1038 		chunk_appendf(out,
1039 		              /* denied: req, resp */
1040 		              "<td>%s</td><td>%s</td>"
1041 		              /* errors: request, connect, response */
1042 		              "<td>%s</td><td></td><td></td>"
1043 		              /* warnings: retries, redispatches */
1044 		              "<td></td><td></td>"
1045 		              /* server status: reflect listener status */
1046 		              "<td class=ac>%s</td>"
1047 		              /* rest of server: nothing */
1048 		              "<td class=ac colspan=8></td>"
1049 		              "",
1050 		              U2H(stats[ST_F_DREQ].u.u64), U2H(stats[ST_F_DRESP].u.u64),
1051 		              U2H(stats[ST_F_EREQ].u.u64),
1052 		              field_str(stats, ST_F_STATUS));
1053 
1054 		if (flags & STAT_SHMODULES) {
1055 			list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
1056 				chunk_appendf(out, "<td>");
1057 
1058 				if (stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_LI) {
1059 					chunk_appendf(out,
1060 					              "<u>%s<div class=tips><table class=det>",
1061 					              mod->name);
1062 					for (j = 0; j < mod->stats_count; ++j) {
1063 						chunk_appendf(out,
1064 						              "<tr><th>%s</th><td>%s</td></tr>",
1065 						              mod->stats[j].desc, field_to_html_str(&stats[ST_F_TOTAL_FIELDS + i]));
1066 						++i;
1067 					}
1068 					chunk_appendf(out, "</table></div></u>");
1069 				} else {
1070 					i += mod->stats_count;
1071 				}
1072 
1073 				chunk_appendf(out, "</td>");
1074 			}
1075 		}
1076 
1077 		chunk_appendf(out, "</tr>");
1078 	}
1079 	else if (stats[ST_F_TYPE].u.u32 == STATS_TYPE_SV) {
1080 		const char *style;
1081 
1082 		/* determine the style to use depending on the server's state,
1083 		 * its health and weight. There isn't a 1-to-1 mapping between
1084 		 * state and styles for the cases where the server is (still)
1085 		 * up. The reason is that we don't want to report nolb and
1086 		 * drain with the same color.
1087 		 */
1088 
1089 		if (strcmp(field_str(stats, ST_F_STATUS), "DOWN") == 0 ||
1090 		    strcmp(field_str(stats, ST_F_STATUS), "DOWN (agent)") == 0) {
1091 			style = "down";
1092 		}
1093 		else if (strncmp(field_str(stats, ST_F_STATUS), "DOWN ", strlen("DOWN ")) == 0) {
1094 			style = "going_up";
1095 		}
1096 		else if (strcmp(field_str(stats, ST_F_STATUS), "DRAIN") == 0) {
1097 			style = "draining";
1098 		}
1099 		else if (strncmp(field_str(stats, ST_F_STATUS), "NOLB ", strlen("NOLB ")) == 0) {
1100 			style = "going_down";
1101 		}
1102 		else if (strcmp(field_str(stats, ST_F_STATUS), "NOLB") == 0) {
1103 			style = "nolb";
1104 		}
1105 		else if (strcmp(field_str(stats, ST_F_STATUS), "no check") == 0) {
1106 			style = "no_check";
1107 		}
1108 		else if (!stats[ST_F_CHKFAIL].type ||
1109 			 stats[ST_F_CHECK_HEALTH].u.u32 == stats[ST_F_CHECK_RISE].u.u32 + stats[ST_F_CHECK_FALL].u.u32 - 1) {
1110 			/* no check or max health = UP */
1111 			if (stats[ST_F_WEIGHT].u.u32)
1112 				style = "up";
1113 			else
1114 				style = "draining";
1115 		}
1116 		else {
1117 			style = "going_down";
1118 		}
1119 
1120 		if (strncmp(field_str(stats, ST_F_STATUS), "MAINT", 5) == 0)
1121 			chunk_appendf(out, "<tr class=\"maintain\">");
1122 		else
1123 			chunk_appendf(out,
1124 			              "<tr class=\"%s_%s\">",
1125 			              (stats[ST_F_BCK].u.u32) ? "backup" : "active", style);
1126 
1127 
1128 		if (flags & STAT_ADMIN)
1129 			chunk_appendf(out,
1130 			              "<td><input class='%s-checkbox' type=\"checkbox\" name=\"s\" value=\"%s\"></td>",
1131 			              field_str(stats, ST_F_PXNAME),
1132 			              field_str(stats, ST_F_SVNAME));
1133 
1134 		chunk_appendf(out,
1135 		              "<td class=ac><a name=\"%s/%s\"></a>%s"
1136 		              "<a class=lfsb href=\"#%s/%s\">%s</a>"
1137 		              "",
1138 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_SVNAME),
1139 		              (flags & STAT_SHLGNDS) ? "<u>" : "",
1140 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_SVNAME), field_str(stats, ST_F_SVNAME));
1141 
1142 		if (flags & STAT_SHLGNDS) {
1143 			chunk_appendf(out, "<div class=tips>");
1144 
1145 			if (isdigit((unsigned char)*field_str(stats, ST_F_ADDR)))
1146 				chunk_appendf(out, "IPv4: %s, ", field_str(stats, ST_F_ADDR));
1147 			else if (*field_str(stats, ST_F_ADDR) == '[')
1148 				chunk_appendf(out, "IPv6: %s, ", field_str(stats, ST_F_ADDR));
1149 			else if (*field_str(stats, ST_F_ADDR))
1150 				chunk_appendf(out, "%s, ", field_str(stats, ST_F_ADDR));
1151 
1152 			/* id */
1153 			chunk_appendf(out, "id: %d", stats[ST_F_SID].u.u32);
1154 
1155 			/* cookie */
1156 			if (stats[ST_F_COOKIE].type) {
1157 				chunk_appendf(out, ", cookie: '");
1158 				chunk_initstr(&src, field_str(stats, ST_F_COOKIE));
1159 				chunk_htmlencode(out, &src);
1160 				chunk_appendf(out, "'");
1161 			}
1162 
1163 			chunk_appendf(out, "</div>");
1164 		}
1165 
1166 		chunk_appendf(out,
1167 		              /* queue : current, max, limit */
1168 		              "%s</td><td>%s</td><td>%s</td><td>%s</td>"
1169 		              /* sessions rate : current, max, limit */
1170 		              "<td>%s</td><td>%s</td><td></td>"
1171 		              "",
1172 		              (flags & STAT_SHLGNDS) ? "</u>" : "",
1173 		              U2H(stats[ST_F_QCUR].u.u32), U2H(stats[ST_F_QMAX].u.u32), LIM2A(stats[ST_F_QLIMIT].u.u32, "-"),
1174 		              U2H(stats[ST_F_RATE].u.u32), U2H(stats[ST_F_RATE_MAX].u.u32));
1175 
1176 		chunk_appendf(out,
1177 		              /* sessions: current, max, limit, total */
1178 		              "<td><u>%s<div class=tips>"
1179 			        "<table class=det>"
1180 		                "<tr><th>Current active connections:</th><td>%s</td></tr>"
1181 		                "<tr><th>Current used connections:</th><td>%s</td></tr>"
1182 		                "<tr><th>Current idle connections:</th><td>%s</td></tr>"
1183 		                "<tr><th>- unsafe:</th><td>%s</td></tr>"
1184 		                "<tr><th>- safe:</th><td>%s</td></tr>"
1185 		                "<tr><th>Estimated need of connections:</th><td>%s</td></tr>"
1186 		                "<tr><th>Active connections limit:</th><td>%s</td></tr>"
1187 		                "<tr><th>Idle connections limit:</th><td>%s</td></tr>"
1188 			        "</table></div></u>"
1189 			      "</td><td>%s</td><td>%s</td>"
1190 		              "<td><u>%s<div class=tips><table class=det>"
1191 		              "<tr><th>Cum. sessions:</th><td>%s</td></tr>"
1192 		              "",
1193 		              U2H(stats[ST_F_SCUR].u.u32),
1194 			      U2H(stats[ST_F_SCUR].u.u32),
1195 			      U2H(stats[ST_F_USED_CONN_CUR].u.u32),
1196 			      U2H(stats[ST_F_SRV_ICUR].u.u32),
1197 			      U2H(stats[ST_F_IDLE_CONN_CUR].u.u32),
1198 			      U2H(stats[ST_F_SAFE_CONN_CUR].u.u32),
1199 			      U2H(stats[ST_F_NEED_CONN_EST].u.u32),
1200 
1201 			        LIM2A(stats[ST_F_SLIM].u.u32, "-"),
1202 		                stats[ST_F_SRV_ILIM].type ? U2H(stats[ST_F_SRV_ILIM].u.u32) : "-",
1203 			      U2H(stats[ST_F_SMAX].u.u32), LIM2A(stats[ST_F_SLIM].u.u32, "-"),
1204 		              U2H(stats[ST_F_STOT].u.u64),
1205 		              U2H(stats[ST_F_STOT].u.u64));
1206 
1207 		/* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */
1208 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0) {
1209 			chunk_appendf(out,
1210 			              "<tr><th>New connections:</th><td>%s</td></tr>"
1211 			              "<tr><th>Reused connections:</th><td>%s</td><td>(%d%%)</td></tr>"
1212 			              "<tr><th>Cum. HTTP requests:</th><td>%s</td></tr>"
1213 			              "<tr><th>- HTTP 1xx responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1214 			              "<tr><th>- HTTP 2xx responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1215 			              "<tr><th>- HTTP 3xx responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1216 			              "<tr><th>- HTTP 4xx responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1217 			              "<tr><th>- HTTP 5xx responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1218 			              "<tr><th>- other responses:</th><td>%s</td><td>(%d%%)</td></tr>"
1219 			              "<tr><th>Failed hdr rewrites:</th><td>%s</td></tr>"
1220 			              "<tr><th>Internal error:</th><td>%s</td></tr>"
1221 			              "",
1222 			              U2H(stats[ST_F_CONNECT].u.u64),
1223 			              U2H(stats[ST_F_REUSE].u.u64),
1224 			              (stats[ST_F_CONNECT].u.u64 + stats[ST_F_REUSE].u.u64) ?
1225 			              (int)(100 * stats[ST_F_REUSE].u.u64 / (stats[ST_F_CONNECT].u.u64 + stats[ST_F_REUSE].u.u64)) : 0,
1226 			              U2H(stats[ST_F_REQ_TOT].u.u64),
1227 			              U2H(stats[ST_F_HRSP_1XX].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1228 			              (int)(100 * stats[ST_F_HRSP_1XX].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1229 			              U2H(stats[ST_F_HRSP_2XX].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1230 			              (int)(100 * stats[ST_F_HRSP_2XX].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1231 			              U2H(stats[ST_F_HRSP_3XX].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1232 			              (int)(100 * stats[ST_F_HRSP_3XX].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1233 			              U2H(stats[ST_F_HRSP_4XX].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1234 			              (int)(100 * stats[ST_F_HRSP_4XX].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1235 			              U2H(stats[ST_F_HRSP_5XX].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1236 			              (int)(100 * stats[ST_F_HRSP_5XX].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1237 			              U2H(stats[ST_F_HRSP_OTHER].u.u64), stats[ST_F_REQ_TOT].u.u64 ?
1238 			              (int)(100 * stats[ST_F_HRSP_OTHER].u.u64 / stats[ST_F_REQ_TOT].u.u64) : 0,
1239 			              U2H(stats[ST_F_WREW].u.u64),
1240 			              U2H(stats[ST_F_EINT].u.u64));
1241 		}
1242 
1243 		chunk_appendf(out, "<tr><th colspan=3>Max / Avg over last 1024 success. conn.</th></tr>");
1244 		chunk_appendf(out, "<tr><th>- Queue time:</th><td>%s / %s</td><td>ms</td></tr>",
1245 			      U2H(stats[ST_F_QT_MAX].u.u32), U2H(stats[ST_F_QTIME].u.u32));
1246 		chunk_appendf(out, "<tr><th>- Connect time:</th><td>%s / %s</td><td>ms</td></tr>",
1247 			      U2H(stats[ST_F_CT_MAX].u.u32), U2H(stats[ST_F_CTIME].u.u32));
1248 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0)
1249 			chunk_appendf(out, "<tr><th>- Responses time:</th><td>%s / %s</td><td>ms</td></tr>",
1250 				      U2H(stats[ST_F_RT_MAX].u.u32), U2H(stats[ST_F_RTIME].u.u32));
1251 		chunk_appendf(out, "<tr><th>- Total time:</th><td>%s / %s</td><td>ms</td></tr>",
1252 			      U2H(stats[ST_F_TT_MAX].u.u32), U2H(stats[ST_F_TTIME].u.u32));
1253 
1254 		chunk_appendf(out,
1255 		              "</table></div></u></td>"
1256 		              /* sessions: lbtot, last */
1257 		              "<td>%s</td><td>%s</td>",
1258 		              U2H(stats[ST_F_LBTOT].u.u64),
1259 		              human_time(stats[ST_F_LASTSESS].u.s32, 1));
1260 
1261 		chunk_appendf(out,
1262 		              /* bytes : in, out */
1263 		              "<td>%s</td><td>%s</td>"
1264 		              /* denied: req, resp */
1265 		              "<td></td><td>%s</td>"
1266 		              /* errors : request, connect */
1267 		              "<td></td><td>%s</td>"
1268 		              /* errors : response */
1269 		              "<td><u>%s<div class=tips>Connection resets during transfers: %lld client, %lld server</div></u></td>"
1270 		              /* warnings: retries, redispatches */
1271 		              "<td>%lld</td><td>%lld</td>"
1272 		              "",
1273 		              U2H(stats[ST_F_BIN].u.u64), U2H(stats[ST_F_BOUT].u.u64),
1274 		              U2H(stats[ST_F_DRESP].u.u64),
1275 		              U2H(stats[ST_F_ECON].u.u64),
1276 		              U2H(stats[ST_F_ERESP].u.u64),
1277 		              (long long)stats[ST_F_CLI_ABRT].u.u64,
1278 		              (long long)stats[ST_F_SRV_ABRT].u.u64,
1279 		              (long long)stats[ST_F_WRETR].u.u64,
1280 			      (long long)stats[ST_F_WREDIS].u.u64);
1281 
1282 		/* status, last change */
1283 		chunk_appendf(out, "<td class=ac>");
1284 
1285 		/* FIXME!!!!
1286 		 *   LASTCHG should contain the last change for *this* server and must be computed
1287 		 * properly above, as was done below, ie: this server if maint, otherwise ref server
1288 		 * if tracking. Note that ref is either local or remote depending on tracking.
1289 		 */
1290 
1291 
1292 		if (strncmp(field_str(stats, ST_F_STATUS), "MAINT", 5) == 0) {
1293 			chunk_appendf(out, "%s MAINT", human_time(stats[ST_F_LASTCHG].u.u32, 1));
1294 		}
1295 		else if (strcmp(field_str(stats, ST_F_STATUS), "no check") == 0) {
1296 			chunk_strcat(out, "<i>no check</i>");
1297 		}
1298 		else {
1299 			chunk_appendf(out, "%s %s", human_time(stats[ST_F_LASTCHG].u.u32, 1), field_str(stats, ST_F_STATUS));
1300 			if (strncmp(field_str(stats, ST_F_STATUS), "DOWN", 4) == 0) {
1301 				if (stats[ST_F_CHECK_HEALTH].u.u32)
1302 					chunk_strcat(out, " &uarr;");
1303 			}
1304 			else if (stats[ST_F_CHECK_HEALTH].u.u32 < stats[ST_F_CHECK_RISE].u.u32 + stats[ST_F_CHECK_FALL].u.u32 - 1)
1305 				chunk_strcat(out, " &darr;");
1306 		}
1307 
1308 		if (strncmp(field_str(stats, ST_F_STATUS), "DOWN", 4) == 0 &&
1309 		    stats[ST_F_AGENT_STATUS].type && !stats[ST_F_AGENT_HEALTH].u.u32) {
1310 			chunk_appendf(out,
1311 			              "</td><td class=ac><u> %s",
1312 			              field_str(stats, ST_F_AGENT_STATUS));
1313 
1314 			if (stats[ST_F_AGENT_CODE].type)
1315 				chunk_appendf(out, "/%d", stats[ST_F_AGENT_CODE].u.u32);
1316 
1317 			if (stats[ST_F_AGENT_DURATION].type)
1318 				chunk_appendf(out, " in %lums", (long)stats[ST_F_AGENT_DURATION].u.u64);
1319 
1320 			chunk_appendf(out, "<div class=tips>%s", field_str(stats, ST_F_AGENT_DESC));
1321 
1322 			if (*field_str(stats, ST_F_LAST_AGT)) {
1323 				chunk_appendf(out, ": ");
1324 				chunk_initstr(&src, field_str(stats, ST_F_LAST_AGT));
1325 				chunk_htmlencode(out, &src);
1326 			}
1327 			chunk_appendf(out, "</div></u>");
1328 		}
1329 		else if (stats[ST_F_CHECK_STATUS].type) {
1330 			chunk_appendf(out,
1331 			              "</td><td class=ac><u> %s",
1332 			              field_str(stats, ST_F_CHECK_STATUS));
1333 
1334 			if (stats[ST_F_CHECK_CODE].type)
1335 				chunk_appendf(out, "/%d", stats[ST_F_CHECK_CODE].u.u32);
1336 
1337 			if (stats[ST_F_CHECK_DURATION].type)
1338 				chunk_appendf(out, " in %lums", (long)stats[ST_F_CHECK_DURATION].u.u64);
1339 
1340 			chunk_appendf(out, "<div class=tips>%s", field_str(stats, ST_F_CHECK_DESC));
1341 
1342 			if (*field_str(stats, ST_F_LAST_CHK)) {
1343 				chunk_appendf(out, ": ");
1344 				chunk_initstr(&src, field_str(stats, ST_F_LAST_CHK));
1345 				chunk_htmlencode(out, &src);
1346 			}
1347 			chunk_appendf(out, "</div></u>");
1348 		}
1349 		else
1350 			chunk_appendf(out, "</td><td>");
1351 
1352 		chunk_appendf(out,
1353 		              /* weight / uweight */
1354 		              "</td><td class=ac>%d/%d</td>"
1355 		              /* act, bck */
1356 		              "<td class=ac>%s</td><td class=ac>%s</td>"
1357 		              "",
1358 		              stats[ST_F_WEIGHT].u.u32, stats[ST_F_UWEIGHT].u.u32,
1359 		              stats[ST_F_BCK].u.u32 ? "-" : "Y",
1360 		              stats[ST_F_BCK].u.u32 ? "Y" : "-");
1361 
1362 		/* check failures: unique, fatal, down time */
1363 		if (strcmp(field_str(stats, ST_F_STATUS), "MAINT (resolution)") == 0) {
1364 			chunk_appendf(out, "<td class=ac colspan=3>resolution</td>");
1365 		}
1366 		else if (stats[ST_F_CHKFAIL].type) {
1367 			chunk_appendf(out, "<td><u>%lld", (long long)stats[ST_F_CHKFAIL].u.u64);
1368 
1369 			if (stats[ST_F_HANAFAIL].type)
1370 				chunk_appendf(out, "/%lld", (long long)stats[ST_F_HANAFAIL].u.u64);
1371 
1372 			chunk_appendf(out,
1373 			              "<div class=tips>Failed Health Checks%s</div></u></td>"
1374 			              "<td>%lld</td><td>%s</td>"
1375 			              "",
1376 			              stats[ST_F_HANAFAIL].type ? "/Health Analyses" : "",
1377 			              (long long)stats[ST_F_CHKDOWN].u.u64, human_time(stats[ST_F_DOWNTIME].u.u32, 1));
1378 		}
1379 		else if (strcmp(field_str(stats, ST_F_STATUS), "MAINT") != 0 && field_format(stats, ST_F_TRACKED) == FF_STR) {
1380 			/* tracking a server (hence inherited maint would appear as "MAINT (via...)" */
1381 			chunk_appendf(out,
1382 			              "<td class=ac colspan=3><a class=lfsb href=\"#%s\">via %s</a></td>",
1383 			              field_str(stats, ST_F_TRACKED), field_str(stats, ST_F_TRACKED));
1384 		}
1385 		else
1386 			chunk_appendf(out, "<td colspan=3></td>");
1387 
1388 		/* throttle */
1389 		if (stats[ST_F_THROTTLE].type)
1390 			chunk_appendf(out, "<td class=ac>%d %%</td>\n", stats[ST_F_THROTTLE].u.u32);
1391 		else
1392 			chunk_appendf(out, "<td class=ac>-</td>");
1393 
1394 		if (flags & STAT_SHMODULES) {
1395 			list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
1396 				chunk_appendf(out, "<td>");
1397 
1398 				if (stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_SRV) {
1399 					chunk_appendf(out,
1400 					              "<u>%s<div class=tips><table class=det>",
1401 					              mod->name);
1402 					for (j = 0; j < mod->stats_count; ++j) {
1403 						chunk_appendf(out,
1404 						              "<tr><th>%s</th><td>%s</td></tr>",
1405 						              mod->stats[j].desc, field_to_html_str(&stats[ST_F_TOTAL_FIELDS + i]));
1406 						++i;
1407 					}
1408 					chunk_appendf(out, "</table></div></u>");
1409 				} else {
1410 					i += mod->stats_count;
1411 				}
1412 
1413 				chunk_appendf(out, "</td>");
1414 			}
1415 		}
1416 
1417 		chunk_appendf(out, "</tr>\n");
1418 	}
1419 	else if (stats[ST_F_TYPE].u.u32 == STATS_TYPE_BE) {
1420 		chunk_appendf(out, "<tr class=\"backend\">");
1421 		if (flags & STAT_ADMIN) {
1422 			/* Column sub-heading for Enable or Disable server */
1423 			chunk_appendf(out, "<td></td>");
1424 		}
1425 		chunk_appendf(out,
1426 		              "<td class=ac>"
1427 		              /* name */
1428 		              "%s<a name=\"%s/Backend\"></a>"
1429 		              "<a class=lfsb href=\"#%s/Backend\">Backend</a>"
1430 		              "",
1431 		              (flags & STAT_SHLGNDS)?"<u>":"",
1432 		              field_str(stats, ST_F_PXNAME), field_str(stats, ST_F_PXNAME));
1433 
1434 		if (flags & STAT_SHLGNDS) {
1435 			/* balancing */
1436 			chunk_appendf(out, "<div class=tips>balancing: %s",
1437 			              field_str(stats, ST_F_ALGO));
1438 
1439 			/* cookie */
1440 			if (stats[ST_F_COOKIE].type) {
1441 				chunk_appendf(out, ", cookie: '");
1442 				chunk_initstr(&src, field_str(stats, ST_F_COOKIE));
1443 				chunk_htmlencode(out, &src);
1444 				chunk_appendf(out, "'");
1445 			}
1446 			chunk_appendf(out, "</div>");
1447 		}
1448 
1449 		chunk_appendf(out,
1450 		              "%s</td>"
1451 		              /* queue : current, max */
1452 		              "<td>%s</td><td>%s</td><td></td>"
1453 		              /* sessions rate : current, max, limit */
1454 		              "<td>%s</td><td>%s</td><td></td>"
1455 		              "",
1456 		              (flags & STAT_SHLGNDS)?"</u>":"",
1457 		              U2H(stats[ST_F_QCUR].u.u32), U2H(stats[ST_F_QMAX].u.u32),
1458 		              U2H(stats[ST_F_RATE].u.u32), U2H(stats[ST_F_RATE_MAX].u.u32));
1459 
1460 		chunk_appendf(out,
1461 		              /* sessions: current, max, limit, total */
1462 		              "<td>%s</td><td>%s</td><td>%s</td>"
1463 		              "<td><u>%s<div class=tips><table class=det>"
1464 		              "<tr><th>Cum. sessions:</th><td>%s</td></tr>"
1465 		              "",
1466 		              U2H(stats[ST_F_SCUR].u.u32), U2H(stats[ST_F_SMAX].u.u32), U2H(stats[ST_F_SLIM].u.u32),
1467 		              U2H(stats[ST_F_STOT].u.u64),
1468 		              U2H(stats[ST_F_STOT].u.u64));
1469 
1470 		/* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */
1471 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0) {
1472 			chunk_appendf(out,
1473 			              "<tr><th>New connections:</th><td>%s</td></tr>"
1474 			              "<tr><th>Reused connections:</th><td>%s</td><td>(%d%%)</td></tr>"
1475 			              "<tr><th>Cum. HTTP requests:</th><td>%s</td></tr>"
1476 			              "<tr><th>- HTTP 1xx responses:</th><td>%s</td></tr>"
1477 			              "<tr><th>- HTTP 2xx responses:</th><td>%s</td></tr>"
1478 			              "<tr><th>&nbsp;&nbsp;Compressed 2xx:</th><td>%s</td><td>(%d%%)</td></tr>"
1479 			              "<tr><th>- HTTP 3xx responses:</th><td>%s</td></tr>"
1480 			              "<tr><th>- HTTP 4xx responses:</th><td>%s</td></tr>"
1481 			              "<tr><th>- HTTP 5xx responses:</th><td>%s</td></tr>"
1482 			              "<tr><th>- other responses:</th><td>%s</td></tr>"
1483 			              "<tr><th>Cache lookups:</th><td>%s</td></tr>"
1484 			              "<tr><th>Cache hits:</th><td>%s</td><td>(%d%%)</td></tr>"
1485 			              "<tr><th>Failed hdr rewrites:</th><td>%s</td></tr>"
1486 			              "<tr><th>Internal errors:</th><td>%s</td></tr>"
1487 				      "",
1488 			              U2H(stats[ST_F_CONNECT].u.u64),
1489 			              U2H(stats[ST_F_REUSE].u.u64),
1490 			              (stats[ST_F_CONNECT].u.u64 + stats[ST_F_REUSE].u.u64) ?
1491 			              (int)(100 * stats[ST_F_REUSE].u.u64 / (stats[ST_F_CONNECT].u.u64 + stats[ST_F_REUSE].u.u64)) : 0,
1492 			              U2H(stats[ST_F_REQ_TOT].u.u64),
1493 			              U2H(stats[ST_F_HRSP_1XX].u.u64),
1494 			              U2H(stats[ST_F_HRSP_2XX].u.u64),
1495 			              U2H(stats[ST_F_COMP_RSP].u.u64),
1496 			              stats[ST_F_HRSP_2XX].u.u64 ?
1497 			              (int)(100 * stats[ST_F_COMP_RSP].u.u64 / stats[ST_F_HRSP_2XX].u.u64) : 0,
1498 			              U2H(stats[ST_F_HRSP_3XX].u.u64),
1499 			              U2H(stats[ST_F_HRSP_4XX].u.u64),
1500 			              U2H(stats[ST_F_HRSP_5XX].u.u64),
1501 			              U2H(stats[ST_F_HRSP_OTHER].u.u64),
1502 			              U2H(stats[ST_F_CACHE_LOOKUPS].u.u64),
1503 			              U2H(stats[ST_F_CACHE_HITS].u.u64),
1504 			              stats[ST_F_CACHE_LOOKUPS].u.u64 ?
1505 			              (int)(100 * stats[ST_F_CACHE_HITS].u.u64 / stats[ST_F_CACHE_LOOKUPS].u.u64) : 0,
1506 			              U2H(stats[ST_F_WREW].u.u64),
1507 			              U2H(stats[ST_F_EINT].u.u64));
1508 		}
1509 
1510 		chunk_appendf(out, "<tr><th colspan=3>Max / Avg over last 1024 success. conn.</th></tr>");
1511 		chunk_appendf(out, "<tr><th>- Queue time:</th><td>%s / %s</td><td>ms</td></tr>",
1512 			      U2H(stats[ST_F_QT_MAX].u.u32), U2H(stats[ST_F_QTIME].u.u32));
1513 		chunk_appendf(out, "<tr><th>- Connect time:</th><td>%s / %s</td><td>ms</td></tr>",
1514 			      U2H(stats[ST_F_CT_MAX].u.u32), U2H(stats[ST_F_CTIME].u.u32));
1515 		if (strcmp(field_str(stats, ST_F_MODE), "http") == 0)
1516 			chunk_appendf(out, "<tr><th>- Responses time:</th><td>%s / %s</td><td>ms</td></tr>",
1517 				      U2H(stats[ST_F_RT_MAX].u.u32), U2H(stats[ST_F_RTIME].u.u32));
1518 		chunk_appendf(out, "<tr><th>- Total time:</th><td>%s / %s</td><td>ms</td></tr>",
1519 			      U2H(stats[ST_F_TT_MAX].u.u32), U2H(stats[ST_F_TTIME].u.u32));
1520 
1521 		chunk_appendf(out,
1522 		              "</table></div></u></td>"
1523 		              /* sessions: lbtot, last */
1524 		              "<td>%s</td><td>%s</td>"
1525 		              /* bytes: in */
1526 		              "<td>%s</td>"
1527 		              "",
1528 		              U2H(stats[ST_F_LBTOT].u.u64),
1529 		              human_time(stats[ST_F_LASTSESS].u.s32, 1),
1530 		              U2H(stats[ST_F_BIN].u.u64));
1531 
1532 		chunk_appendf(out,
1533 			      /* bytes:out + compression stats (via hover): comp_in, comp_out, comp_byp */
1534 		              "<td>%s%s<div class=tips><table class=det>"
1535 			      "<tr><th>Response bytes in:</th><td>%s</td></tr>"
1536 			      "<tr><th>Compression in:</th><td>%s</td></tr>"
1537 			      "<tr><th>Compression out:</th><td>%s</td><td>(%d%%)</td></tr>"
1538 			      "<tr><th>Compression bypass:</th><td>%s</td></tr>"
1539 			      "<tr><th>Total bytes saved:</th><td>%s</td><td>(%d%%)</td></tr>"
1540 			      "</table></div>%s</td>",
1541 		              (stats[ST_F_COMP_IN].u.u64 || stats[ST_F_COMP_BYP].u.u64) ? "<u>":"",
1542 		              U2H(stats[ST_F_BOUT].u.u64),
1543 		              U2H(stats[ST_F_BOUT].u.u64),
1544 		              U2H(stats[ST_F_COMP_IN].u.u64),
1545 			      U2H(stats[ST_F_COMP_OUT].u.u64),
1546 			      stats[ST_F_COMP_IN].u.u64 ? (int)(stats[ST_F_COMP_OUT].u.u64 * 100 / stats[ST_F_COMP_IN].u.u64) : 0,
1547 			      U2H(stats[ST_F_COMP_BYP].u.u64),
1548 			      U2H(stats[ST_F_COMP_IN].u.u64 - stats[ST_F_COMP_OUT].u.u64),
1549 			      stats[ST_F_BOUT].u.u64 ? (int)((stats[ST_F_COMP_IN].u.u64 - stats[ST_F_COMP_OUT].u.u64) * 100 / stats[ST_F_BOUT].u.u64) : 0,
1550 		              (stats[ST_F_COMP_IN].u.u64 || stats[ST_F_COMP_BYP].u.u64) ? "</u>":"");
1551 
1552 		chunk_appendf(out,
1553 		              /* denied: req, resp */
1554 		              "<td>%s</td><td>%s</td>"
1555 		              /* errors : request, connect */
1556 		              "<td></td><td>%s</td>"
1557 		              /* errors : response */
1558 		              "<td><u>%s<div class=tips>Connection resets during transfers: %lld client, %lld server</div></u></td>"
1559 		              /* warnings: retries, redispatches */
1560 		              "<td>%lld</td><td>%lld</td>"
1561 		              /* backend status: reflect backend status (up/down): we display UP
1562 		               * if the backend has known working servers or if it has no server at
1563 		               * all (eg: for stats). Then we display the total weight, number of
1564 		               * active and backups. */
1565 		              "<td class=ac>%s %s</td><td class=ac>&nbsp;</td><td class=ac>%d/%d</td>"
1566 		              "<td class=ac>%d</td><td class=ac>%d</td>"
1567 		              "",
1568 		              U2H(stats[ST_F_DREQ].u.u64), U2H(stats[ST_F_DRESP].u.u64),
1569 		              U2H(stats[ST_F_ECON].u.u64),
1570 		              U2H(stats[ST_F_ERESP].u.u64),
1571 		              (long long)stats[ST_F_CLI_ABRT].u.u64,
1572 		              (long long)stats[ST_F_SRV_ABRT].u.u64,
1573 		              (long long)stats[ST_F_WRETR].u.u64, (long long)stats[ST_F_WREDIS].u.u64,
1574 		              human_time(stats[ST_F_LASTCHG].u.u32, 1),
1575 		              strcmp(field_str(stats, ST_F_STATUS), "DOWN") ? field_str(stats, ST_F_STATUS) : "<font color=\"red\"><b>DOWN</b></font>",
1576 		              stats[ST_F_WEIGHT].u.u32, stats[ST_F_UWEIGHT].u.u32,
1577 		              stats[ST_F_ACT].u.u32, stats[ST_F_BCK].u.u32);
1578 
1579 		chunk_appendf(out,
1580 		              /* rest of backend: nothing, down transitions, total downtime, throttle */
1581 		              "<td class=ac>&nbsp;</td><td>%d</td>"
1582 		              "<td>%s</td>"
1583 		              "<td></td>",
1584 		              stats[ST_F_CHKDOWN].u.u32,
1585 		              stats[ST_F_DOWNTIME].type ? human_time(stats[ST_F_DOWNTIME].u.u32, 1) : "&nbsp;");
1586 
1587 		if (flags & STAT_SHMODULES) {
1588 			list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
1589 				chunk_appendf(out, "<td>");
1590 
1591 				if (stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_BE) {
1592 					chunk_appendf(out,
1593 					              "<u>%s<div class=tips><table class=det>",
1594 					              mod->name);
1595 					for (j = 0; j < mod->stats_count; ++j) {
1596 						chunk_appendf(out,
1597 						              "<tr><th>%s</th><td>%s</td></tr>",
1598 						              mod->stats[j].desc, field_to_html_str(&stats[ST_F_TOTAL_FIELDS + i]));
1599 						++i;
1600 					}
1601 					chunk_appendf(out, "</table></div></u>");
1602 				} else {
1603 					i += mod->stats_count;
1604 				}
1605 
1606 				chunk_appendf(out, "</td>");
1607 			}
1608 		}
1609 
1610 		chunk_appendf(out, "</tr>");
1611 	}
1612 
1613 	return 1;
1614 }
1615 
stats_dump_one_line(const struct field * stats,size_t stats_count,struct appctx * appctx)1616 int stats_dump_one_line(const struct field *stats, size_t stats_count,
1617                         struct appctx *appctx)
1618 {
1619 	int ret;
1620 
1621 	if (appctx->ctx.stats.flags & STAT_FMT_HTML)
1622 		ret = stats_dump_fields_html(&trash, stats, appctx->ctx.stats.flags);
1623 	else if (appctx->ctx.stats.flags & STAT_FMT_TYPED)
1624 		ret = stats_dump_fields_typed(&trash, stats, stats_count, appctx->ctx.stats.flags, appctx->ctx.stats.domain);
1625 	else if (appctx->ctx.stats.flags & STAT_FMT_JSON)
1626 		ret = stats_dump_fields_json(&trash, stats, stats_count, appctx->ctx.stats.flags, appctx->ctx.stats.domain);
1627 	else
1628 		ret = stats_dump_fields_csv(&trash, stats, stats_count, appctx->ctx.stats.flags, appctx->ctx.stats.domain);
1629 
1630 	if (ret)
1631 		appctx->ctx.stats.flags |= STAT_STARTED;
1632 
1633 	return ret;
1634 }
1635 
1636 /* Fill <stats> with the frontend statistics. <stats> is preallocated array of
1637  * length <len>. If <selected_field> is != NULL, only fill this one. The length
1638  * of the array must be at least ST_F_TOTAL_FIELDS. If this length is less than
1639  * this value, or if the selected field is not implemented for frontends, the
1640  * function returns 0, otherwise, it returns 1.
1641  */
stats_fill_fe_stats(struct proxy * px,struct field * stats,int len,enum stat_field * selected_field)1642 int stats_fill_fe_stats(struct proxy *px, struct field *stats, int len,
1643 			enum stat_field *selected_field)
1644 {
1645 	enum stat_field current_field = (selected_field != NULL ? *selected_field : 0);
1646 
1647 	if (len < ST_F_TOTAL_FIELDS)
1648 		return 0;
1649 
1650 	for (; current_field < ST_F_TOTAL_FIELDS; current_field++) {
1651 		struct field metric = { 0 };
1652 
1653 		switch (current_field) {
1654 			case ST_F_PXNAME:
1655 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, px->id);
1656 				break;
1657 			case ST_F_SVNAME:
1658 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, "FRONTEND");
1659 				break;
1660 			case ST_F_MODE:
1661 				metric = mkf_str(FO_CONFIG|FS_SERVICE, proxy_mode_str(px->mode));
1662 				break;
1663 			case ST_F_SCUR:
1664 				metric = mkf_u32(0, px->feconn);
1665 				break;
1666 			case ST_F_SMAX:
1667 				metric = mkf_u32(FN_MAX, px->fe_counters.conn_max);
1668 				break;
1669 			case ST_F_SLIM:
1670 				metric = mkf_u32(FO_CONFIG|FN_LIMIT, px->maxconn);
1671 				break;
1672 			case ST_F_STOT:
1673 				metric = mkf_u64(FN_COUNTER, px->fe_counters.cum_sess);
1674 				break;
1675 			case ST_F_BIN:
1676 				metric = mkf_u64(FN_COUNTER, px->fe_counters.bytes_in);
1677 				break;
1678 			case ST_F_BOUT:
1679 				metric = mkf_u64(FN_COUNTER, px->fe_counters.bytes_out);
1680 				break;
1681 			case ST_F_DREQ:
1682 				metric = mkf_u64(FN_COUNTER, px->fe_counters.denied_req);
1683 				break;
1684 			case ST_F_DRESP:
1685 				metric = mkf_u64(FN_COUNTER, px->fe_counters.denied_resp);
1686 				break;
1687 			case ST_F_EREQ:
1688 				metric = mkf_u64(FN_COUNTER, px->fe_counters.failed_req);
1689 				break;
1690 			case ST_F_DCON:
1691 				metric = mkf_u64(FN_COUNTER, px->fe_counters.denied_conn);
1692 				break;
1693 			case ST_F_DSES:
1694 				metric = mkf_u64(FN_COUNTER, px->fe_counters.denied_sess);
1695 				break;
1696 			case ST_F_STATUS:
1697 				metric = mkf_str(FO_STATUS, px->disabled ? "STOP" : "OPEN");
1698 				break;
1699 			case ST_F_PID:
1700 				metric = mkf_u32(FO_KEY, relative_pid);
1701 				break;
1702 			case ST_F_IID:
1703 				metric = mkf_u32(FO_KEY|FS_SERVICE, px->uuid);
1704 				break;
1705 			case ST_F_SID:
1706 				metric = mkf_u32(FO_KEY|FS_SERVICE, 0);
1707 				break;
1708 			case ST_F_TYPE:
1709 				metric = mkf_u32(FO_CONFIG|FS_SERVICE, STATS_TYPE_FE);
1710 				break;
1711 			case ST_F_RATE:
1712 				metric = mkf_u32(FN_RATE, read_freq_ctr(&px->fe_sess_per_sec));
1713 				break;
1714 			case ST_F_RATE_LIM:
1715 				metric = mkf_u32(FO_CONFIG|FN_LIMIT, px->fe_sps_lim);
1716 				break;
1717 			case ST_F_RATE_MAX:
1718 				metric = mkf_u32(FN_MAX, px->fe_counters.sps_max);
1719 				break;
1720 			case ST_F_WREW:
1721 				metric = mkf_u64(FN_COUNTER, px->fe_counters.failed_rewrites);
1722 				break;
1723 			case ST_F_EINT:
1724 				metric = mkf_u64(FN_COUNTER, px->fe_counters.internal_errors);
1725 				break;
1726 			case ST_F_HRSP_1XX:
1727 				if (px->mode == PR_MODE_HTTP)
1728 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[1]);
1729 				break;
1730 			case ST_F_HRSP_2XX:
1731 				if (px->mode == PR_MODE_HTTP)
1732 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[2]);
1733 				break;
1734 			case ST_F_HRSP_3XX:
1735 				if (px->mode == PR_MODE_HTTP)
1736 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[3]);
1737 				break;
1738 			case ST_F_HRSP_4XX:
1739 				if (px->mode == PR_MODE_HTTP)
1740 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[4]);
1741 				break;
1742 			case ST_F_HRSP_5XX:
1743 				if (px->mode == PR_MODE_HTTP)
1744 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[5]);
1745 				break;
1746 			case ST_F_HRSP_OTHER:
1747 				if (px->mode == PR_MODE_HTTP)
1748 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.rsp[0]);
1749 				break;
1750 			case ST_F_INTERCEPTED:
1751 				if (px->mode == PR_MODE_HTTP)
1752 					metric = mkf_u64(FN_COUNTER, px->fe_counters.intercepted_req);
1753 				break;
1754 			case ST_F_CACHE_LOOKUPS:
1755 				if (px->mode == PR_MODE_HTTP)
1756 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.cache_lookups);
1757 				break;
1758 			case ST_F_CACHE_HITS:
1759 				if (px->mode == PR_MODE_HTTP)
1760 					metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.cache_hits);
1761 				break;
1762 			case ST_F_REQ_RATE:
1763 				metric = mkf_u32(FN_RATE, read_freq_ctr(&px->fe_req_per_sec));
1764 				break;
1765 			case ST_F_REQ_RATE_MAX:
1766 				metric = mkf_u32(FN_MAX, px->fe_counters.p.http.rps_max);
1767 				break;
1768 			case ST_F_REQ_TOT:
1769 				metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.cum_req);
1770 				break;
1771 			case ST_F_COMP_IN:
1772 				metric = mkf_u64(FN_COUNTER, px->fe_counters.comp_in);
1773 				break;
1774 			case ST_F_COMP_OUT:
1775 				metric = mkf_u64(FN_COUNTER, px->fe_counters.comp_out);
1776 				break;
1777 			case ST_F_COMP_BYP:
1778 				metric = mkf_u64(FN_COUNTER, px->fe_counters.comp_byp);
1779 				break;
1780 			case ST_F_COMP_RSP:
1781 				metric = mkf_u64(FN_COUNTER, px->fe_counters.p.http.comp_rsp);
1782 				break;
1783 			case ST_F_CONN_RATE:
1784 				metric = mkf_u32(FN_RATE, read_freq_ctr(&px->fe_conn_per_sec));
1785 				break;
1786 			case ST_F_CONN_RATE_MAX:
1787 				metric = mkf_u32(FN_MAX, px->fe_counters.cps_max);
1788 				break;
1789 			case ST_F_CONN_TOT:
1790 				metric = mkf_u64(FN_COUNTER, px->fe_counters.cum_conn);
1791 				break;
1792 			default:
1793 				/* not used for frontends. If a specific metric
1794 				 * is requested, return an error. Otherwise continue.
1795 				 */
1796 				if (selected_field != NULL)
1797 					return 0;
1798 				continue;
1799 		}
1800 		stats[current_field] = metric;
1801 		if (selected_field != NULL)
1802 			break;
1803 	}
1804 	return 1;
1805 }
1806 
1807 /* Dumps a frontend's line to the trash for the current proxy <px> and uses
1808  * the state from stream interface <si>. The caller is responsible for clearing
1809  * the trash if needed. Returns non-zero if it emits anything, zero otherwise.
1810  */
stats_dump_fe_stats(struct stream_interface * si,struct proxy * px)1811 static int stats_dump_fe_stats(struct stream_interface *si, struct proxy *px)
1812 {
1813 	struct appctx *appctx = __objt_appctx(si->end);
1814 	struct field *stats = stat_l[STATS_DOMAIN_PROXY];
1815 	struct stats_module *mod;
1816 	size_t stats_count = ST_F_TOTAL_FIELDS;
1817 
1818 	if (!(px->cap & PR_CAP_FE))
1819 		return 0;
1820 
1821 	if ((appctx->ctx.stats.flags & STAT_BOUND) && !(appctx->ctx.stats.type & (1 << STATS_TYPE_FE)))
1822 		return 0;
1823 
1824 	memset(stats, 0, sizeof(struct field) * stat_count[STATS_DOMAIN_PROXY]);
1825 
1826 	if (!stats_fill_fe_stats(px, stats, ST_F_TOTAL_FIELDS, NULL))
1827 		return 0;
1828 
1829 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
1830 		void *counters;
1831 
1832 		if (!(stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_FE)) {
1833 			stats_count += mod->stats_count;
1834 			continue;
1835 		}
1836 
1837 		counters = EXTRA_COUNTERS_GET(px->extra_counters_fe, mod);
1838 		mod->fill_stats(counters, stats + stats_count);
1839 		stats_count += mod->stats_count;
1840 	}
1841 
1842 	return stats_dump_one_line(stats, stats_count, appctx);
1843 }
1844 
1845 /* Fill <stats> with the listener statistics. <stats> is preallocated array of
1846  * length <len>. The length of the array must be at least ST_F_TOTAL_FIELDS. If
1847  * this length is less then this value, the function returns 0, otherwise, it
1848  * returns 1.  If selected_field is != NULL, only fill this one. <flags> can
1849  * take the value STAT_SHLGNDS.
1850  */
stats_fill_li_stats(struct proxy * px,struct listener * l,int flags,struct field * stats,int len,enum stat_field * selected_field)1851 int stats_fill_li_stats(struct proxy *px, struct listener *l, int flags,
1852                         struct field *stats, int len, enum stat_field *selected_field)
1853 {
1854 	enum stat_field current_field = (selected_field != NULL ? *selected_field : 0);
1855 	struct buffer *out = get_trash_chunk();
1856 
1857 	if (len < ST_F_TOTAL_FIELDS)
1858 		return 0;
1859 
1860 	if (!l->counters)
1861 		return 0;
1862 
1863 	chunk_reset(out);
1864 
1865 	for (; current_field < ST_F_TOTAL_FIELDS; current_field++) {
1866 		struct field metric = { 0 };
1867 
1868 		switch (current_field) {
1869 			case ST_F_PXNAME:
1870 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, px->id);
1871 				break;
1872 			case ST_F_SVNAME:
1873 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, l->name);
1874 				break;
1875 			case ST_F_MODE:
1876 				metric = mkf_str(FO_CONFIG|FS_SERVICE, proxy_mode_str(px->mode));
1877 				break;
1878 			case ST_F_SCUR:
1879 				metric = mkf_u32(0, l->nbconn);
1880 				break;
1881 			case ST_F_SMAX:
1882 				metric = mkf_u32(FN_MAX, l->counters->conn_max);
1883 				break;
1884 			case ST_F_SLIM:
1885 				metric = mkf_u32(FO_CONFIG|FN_LIMIT, l->maxconn);
1886 				break;
1887 			case ST_F_STOT:
1888 				metric = mkf_u64(FN_COUNTER, l->counters->cum_conn);
1889 				break;
1890 			case ST_F_BIN:
1891 				metric = mkf_u64(FN_COUNTER, l->counters->bytes_in);
1892 				break;
1893 			case ST_F_BOUT:
1894 				metric = mkf_u64(FN_COUNTER, l->counters->bytes_out);
1895 				break;
1896 			case ST_F_DREQ:
1897 				metric = mkf_u64(FN_COUNTER, l->counters->denied_req);
1898 				break;
1899 			case ST_F_DRESP:
1900 				metric = mkf_u64(FN_COUNTER, l->counters->denied_resp);
1901 				break;
1902 			case ST_F_EREQ:
1903 				metric = mkf_u64(FN_COUNTER, l->counters->failed_req);
1904 				break;
1905 			case ST_F_DCON:
1906 				metric = mkf_u64(FN_COUNTER, l->counters->denied_conn);
1907 				break;
1908 			case ST_F_DSES:
1909 				metric = mkf_u64(FN_COUNTER, l->counters->denied_sess);
1910 				break;
1911 			case ST_F_STATUS:
1912 				metric = mkf_str(FO_STATUS, li_status_st[get_li_status(l)]);
1913 				break;
1914 			case ST_F_PID:
1915 				metric = mkf_u32(FO_KEY, relative_pid);
1916 				break;
1917 			case ST_F_IID:
1918 				metric = mkf_u32(FO_KEY|FS_SERVICE, px->uuid);
1919 				break;
1920 			case ST_F_SID:
1921 				metric = mkf_u32(FO_KEY|FS_SERVICE, l->luid);
1922 				break;
1923 			case ST_F_TYPE:
1924 				metric = mkf_u32(FO_CONFIG|FS_SERVICE, STATS_TYPE_SO);
1925 				break;
1926 			case ST_F_WREW:
1927 				metric = mkf_u64(FN_COUNTER, l->counters->failed_rewrites);
1928 				break;
1929 			case ST_F_EINT:
1930 				metric = mkf_u64(FN_COUNTER, l->counters->internal_errors);
1931 				break;
1932 			case ST_F_ADDR:
1933 				if (flags & STAT_SHLGNDS) {
1934 					char str[INET6_ADDRSTRLEN];
1935 					int port;
1936 
1937 					port = get_host_port(&l->rx.addr);
1938 					switch (addr_to_str(&l->rx.addr, str, sizeof(str))) {
1939 					case AF_INET:
1940 						metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
1941 						chunk_appendf(out, "%s:%d", str, port);
1942 						break;
1943 					case AF_INET6:
1944 						metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
1945 						chunk_appendf(out, "[%s]:%d", str, port);
1946 						break;
1947 					case AF_UNIX:
1948 						metric = mkf_str(FO_CONFIG|FS_SERVICE, "unix");
1949 						break;
1950 					case -1:
1951 						metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
1952 						chunk_strcat(out, strerror(errno));
1953 						break;
1954 					default: /* address family not supported */
1955 						break;
1956 					}
1957 				}
1958 				break;
1959 			default:
1960 				/* not used for listen. If a specific metric
1961 				 * is requested, return an error. Otherwise continue.
1962 				 */
1963 				if (selected_field != NULL)
1964 					return 0;
1965 				continue;
1966 		}
1967 		stats[current_field] = metric;
1968 		if (selected_field != NULL)
1969 			break;
1970 	}
1971 	return 1;
1972 }
1973 
1974 /* Dumps a line for listener <l> and proxy <px> to the trash and uses the state
1975  * from stream interface <si>. The caller is responsible for clearing the trash
1976  * if needed. Returns non-zero if it emits anything, zero otherwise.
1977  */
stats_dump_li_stats(struct stream_interface * si,struct proxy * px,struct listener * l)1978 static int stats_dump_li_stats(struct stream_interface *si, struct proxy *px, struct listener *l)
1979 {
1980 	struct appctx *appctx = __objt_appctx(si->end);
1981 	struct field *stats = stat_l[STATS_DOMAIN_PROXY];
1982 	struct stats_module *mod;
1983 	size_t stats_count = ST_F_TOTAL_FIELDS;
1984 
1985 	memset(stats, 0, sizeof(struct field) * stat_count[STATS_DOMAIN_PROXY]);
1986 
1987 	if (!stats_fill_li_stats(px, l, appctx->ctx.stats.flags, stats,
1988 				 ST_F_TOTAL_FIELDS, NULL))
1989 		return 0;
1990 
1991 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
1992 		void *counters;
1993 
1994 		if (!(stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_LI)) {
1995 			stats_count += mod->stats_count;
1996 			continue;
1997 		}
1998 
1999 		counters = EXTRA_COUNTERS_GET(l->extra_counters, mod);
2000 		mod->fill_stats(counters, stats + stats_count);
2001 		stats_count += mod->stats_count;
2002 	}
2003 
2004 	return stats_dump_one_line(stats, stats_count, appctx);
2005 }
2006 
2007 enum srv_stats_state {
2008 	SRV_STATS_STATE_DOWN = 0,
2009 	SRV_STATS_STATE_DOWN_AGENT,
2010 	SRV_STATS_STATE_GOING_UP,
2011 	SRV_STATS_STATE_UP_GOING_DOWN,
2012 	SRV_STATS_STATE_UP,
2013 	SRV_STATS_STATE_NOLB_GOING_DOWN,
2014 	SRV_STATS_STATE_NOLB,
2015 	SRV_STATS_STATE_DRAIN_GOING_DOWN,
2016 	SRV_STATS_STATE_DRAIN,
2017 	SRV_STATS_STATE_DRAIN_AGENT,
2018 	SRV_STATS_STATE_NO_CHECK,
2019 
2020 	SRV_STATS_STATE_COUNT, /* Must be last */
2021 };
2022 
2023 static const char *srv_hlt_st[SRV_STATS_STATE_COUNT] = {
2024 	[SRV_STATS_STATE_DOWN]			= "DOWN",
2025 	[SRV_STATS_STATE_DOWN_AGENT]		= "DOWN (agent)",
2026 	[SRV_STATS_STATE_GOING_UP]		= "DOWN %d/%d",
2027 	[SRV_STATS_STATE_UP_GOING_DOWN]		= "UP %d/%d",
2028 	[SRV_STATS_STATE_UP]			= "UP",
2029 	[SRV_STATS_STATE_NOLB_GOING_DOWN]	= "NOLB %d/%d",
2030 	[SRV_STATS_STATE_NOLB]			= "NOLB",
2031 	[SRV_STATS_STATE_DRAIN_GOING_DOWN]	= "DRAIN %d/%d",
2032 	[SRV_STATS_STATE_DRAIN]			= "DRAIN",
2033 	[SRV_STATS_STATE_DRAIN_AGENT]		= "DRAIN (agent)",
2034 	[SRV_STATS_STATE_NO_CHECK]		= "no check"
2035 };
2036 
2037 /* Compute server state helper
2038  */
stats_fill_sv_stats_computestate(struct server * sv,struct server * ref,enum srv_stats_state * state)2039 static void stats_fill_sv_stats_computestate(struct server *sv, struct server *ref,
2040 					     enum srv_stats_state *state)
2041 {
2042 	if (sv->cur_state == SRV_ST_RUNNING || sv->cur_state == SRV_ST_STARTING) {
2043 		if ((ref->check.state & CHK_ST_ENABLED) &&
2044 		    (ref->check.health < ref->check.rise + ref->check.fall - 1)) {
2045 			*state = SRV_STATS_STATE_UP_GOING_DOWN;
2046 		} else {
2047 			*state = SRV_STATS_STATE_UP;
2048 		}
2049 
2050 		if (sv->cur_admin & SRV_ADMF_DRAIN) {
2051 			if (ref->agent.state & CHK_ST_ENABLED)
2052 				*state = SRV_STATS_STATE_DRAIN_AGENT;
2053 			else if (*state == SRV_STATS_STATE_UP_GOING_DOWN)
2054 				*state = SRV_STATS_STATE_DRAIN_GOING_DOWN;
2055 			else
2056 				*state = SRV_STATS_STATE_DRAIN;
2057 		}
2058 
2059 		if (*state == SRV_STATS_STATE_UP && !(ref->check.state & CHK_ST_ENABLED)) {
2060 			*state = SRV_STATS_STATE_NO_CHECK;
2061 		}
2062 	}
2063 	else if (sv->cur_state == SRV_ST_STOPPING) {
2064 		if ((!(sv->check.state & CHK_ST_ENABLED) && !sv->track) ||
2065 		    (ref->check.health == ref->check.rise + ref->check.fall - 1)) {
2066 			*state = SRV_STATS_STATE_NOLB;
2067 		} else {
2068 			*state = SRV_STATS_STATE_NOLB_GOING_DOWN;
2069 		}
2070 	}
2071 	else {	/* stopped */
2072 		if ((ref->agent.state & CHK_ST_ENABLED) && !ref->agent.health) {
2073 			*state = SRV_STATS_STATE_DOWN_AGENT;
2074 		} else if ((ref->check.state & CHK_ST_ENABLED) && !ref->check.health) {
2075 			*state = SRV_STATS_STATE_DOWN; /* DOWN */
2076 		} else if ((ref->agent.state & CHK_ST_ENABLED) || (ref->check.state & CHK_ST_ENABLED)) {
2077 			*state = SRV_STATS_STATE_GOING_UP;
2078 		} else {
2079 			*state = SRV_STATS_STATE_DOWN; /* DOWN, unchecked */
2080 		}
2081 	}
2082 }
2083 
2084 /* Fill <stats> with the backend statistics. <stats> is preallocated array of
2085  * length <len>. If <selected_field> is != NULL, only fill this one. The length
2086  * of the array must be at least ST_F_TOTAL_FIELDS. If this length is less than
2087  * this value, or if the selected field is not implemented for servers, the
2088  * function returns 0, otherwise, it returns 1. <flags> can take the value
2089  * STAT_SHLGNDS.
2090  */
stats_fill_sv_stats(struct proxy * px,struct server * sv,int flags,struct field * stats,int len,enum stat_field * selected_field)2091 int stats_fill_sv_stats(struct proxy *px, struct server *sv, int flags,
2092                         struct field *stats, int len,
2093 			enum stat_field *selected_field)
2094 {
2095 	enum stat_field current_field = (selected_field != NULL ? *selected_field : 0);
2096 	struct server *via = sv->track ? sv->track : sv;
2097 	struct server *ref = via;
2098 	enum srv_stats_state state = 0;
2099 	char str[INET6_ADDRSTRLEN];
2100 	struct buffer *out = get_trash_chunk();
2101 	char *fld_status;
2102 	long long srv_samples_counter;
2103 	unsigned int srv_samples_window = TIME_STATS_SAMPLES;
2104 
2105 	if (len < ST_F_TOTAL_FIELDS)
2106 		return 0;
2107 
2108 	chunk_reset(out);
2109 
2110 	/* compute state for later use */
2111 	if (selected_field == NULL || *selected_field == ST_F_STATUS ||
2112 	    *selected_field == ST_F_CHECK_RISE || *selected_field == ST_F_CHECK_FALL ||
2113 	    *selected_field == ST_F_CHECK_HEALTH || *selected_field == ST_F_HANAFAIL) {
2114 		/* we have "via" which is the tracked server as described in the configuration,
2115 		 * and "ref" which is the checked server and the end of the chain.
2116 		 */
2117 		while (ref->track)
2118 			ref = ref->track;
2119 		stats_fill_sv_stats_computestate(sv, ref, &state);
2120 	}
2121 
2122 	/* compue time values for later use */
2123 	if (selected_field == NULL || *selected_field == ST_F_QTIME ||
2124 	    *selected_field == ST_F_CTIME || *selected_field == ST_F_RTIME ||
2125 	    *selected_field == ST_F_TTIME) {
2126 		srv_samples_counter = (px->mode == PR_MODE_HTTP) ? sv->counters.p.http.cum_req : sv->counters.cum_lbconn;
2127 		if (srv_samples_counter < TIME_STATS_SAMPLES && srv_samples_counter > 0)
2128 			srv_samples_window = srv_samples_counter;
2129 	}
2130 
2131 	for (; current_field < ST_F_TOTAL_FIELDS; current_field++) {
2132 		struct field metric = { 0 };
2133 
2134 		switch (current_field) {
2135 			case ST_F_PXNAME:
2136 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, px->id);
2137 				break;
2138 			case ST_F_SVNAME:
2139 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, sv->id);
2140 				break;
2141 			case ST_F_MODE:
2142 				metric = mkf_str(FO_CONFIG|FS_SERVICE, proxy_mode_str(px->mode));
2143 				break;
2144 			case ST_F_QCUR:
2145 				metric = mkf_u32(0, sv->nbpend);
2146 				break;
2147 			case ST_F_QMAX:
2148 				metric = mkf_u32(FN_MAX, sv->counters.nbpend_max);
2149 				break;
2150 			case ST_F_SCUR:
2151 				metric = mkf_u32(0, sv->cur_sess);
2152 				break;
2153 			case ST_F_SMAX:
2154 				metric = mkf_u32(FN_MAX, sv->counters.cur_sess_max);
2155 				break;
2156 			case ST_F_SLIM:
2157 				if (sv->maxconn)
2158 					metric = mkf_u32(FO_CONFIG|FN_LIMIT, sv->maxconn);
2159 				break;
2160 			case ST_F_SRV_ICUR:
2161 				metric = mkf_u32(0, sv->curr_idle_conns);
2162 				break;
2163 			case ST_F_SRV_ILIM:
2164 				if (sv->max_idle_conns != -1)
2165 					metric = mkf_u32(FO_CONFIG|FN_LIMIT, sv->max_idle_conns);
2166 				break;
2167 			case ST_F_STOT:
2168 				metric = mkf_u64(FN_COUNTER, sv->counters.cum_sess);
2169 				break;
2170 			case ST_F_BIN:
2171 				metric = mkf_u64(FN_COUNTER, sv->counters.bytes_in);
2172 				break;
2173 			case ST_F_BOUT:
2174 				metric = mkf_u64(FN_COUNTER, sv->counters.bytes_out);
2175 				break;
2176 			case ST_F_DRESP:
2177 				metric = mkf_u64(FN_COUNTER, sv->counters.denied_resp);
2178 				break;
2179 			case ST_F_ECON:
2180 				metric = mkf_u64(FN_COUNTER, sv->counters.failed_conns);
2181 				break;
2182 			case ST_F_ERESP:
2183 				metric = mkf_u64(FN_COUNTER, sv->counters.failed_resp);
2184 				break;
2185 			case ST_F_WRETR:
2186 				metric = mkf_u64(FN_COUNTER, sv->counters.retries);
2187 				break;
2188 			case ST_F_WREDIS:
2189 				metric = mkf_u64(FN_COUNTER, sv->counters.redispatches);
2190 				break;
2191 			case ST_F_WREW:
2192 				metric = mkf_u64(FN_COUNTER, sv->counters.failed_rewrites);
2193 				break;
2194 			case ST_F_EINT:
2195 				metric = mkf_u64(FN_COUNTER, sv->counters.internal_errors);
2196 				break;
2197 			case ST_F_CONNECT:
2198 				metric = mkf_u64(FN_COUNTER, sv->counters.connect);
2199 				break;
2200 			case ST_F_REUSE:
2201 				metric = mkf_u64(FN_COUNTER, sv->counters.reuse);
2202 				break;
2203 			case ST_F_IDLE_CONN_CUR:
2204 				metric = mkf_u32(0, sv->curr_idle_nb);
2205 				break;
2206 			case ST_F_SAFE_CONN_CUR:
2207 				metric = mkf_u32(0, sv->curr_safe_nb);
2208 				break;
2209 			case ST_F_USED_CONN_CUR:
2210 				metric = mkf_u32(0, sv->curr_used_conns);
2211 				break;
2212 			case ST_F_NEED_CONN_EST:
2213 				metric = mkf_u32(0, sv->est_need_conns);
2214 				break;
2215 			case ST_F_STATUS:
2216 				fld_status = chunk_newstr(out);
2217 				if (sv->cur_admin & SRV_ADMF_RMAINT)
2218 					chunk_appendf(out, "MAINT (resolution)");
2219 				else if (sv->cur_admin & SRV_ADMF_IMAINT)
2220 					chunk_appendf(out, "MAINT (via %s/%s)", via->proxy->id, via->id);
2221 				else if (sv->cur_admin & SRV_ADMF_MAINT)
2222 					chunk_appendf(out, "MAINT");
2223 				else
2224 					chunk_appendf(out,
2225 						      srv_hlt_st[state],
2226 						      (ref->cur_state != SRV_ST_STOPPED) ? (ref->check.health - ref->check.rise + 1) : (ref->check.health),
2227 						      (ref->cur_state != SRV_ST_STOPPED) ? (ref->check.fall) : (ref->check.rise));
2228 
2229 				metric = mkf_str(FO_STATUS, fld_status);
2230 				break;
2231 			case ST_F_LASTCHG:
2232 				metric = mkf_u32(FN_AGE, now.tv_sec - sv->last_change);
2233 				break;
2234 			case ST_F_WEIGHT:
2235 				metric = mkf_u32(FN_AVG, (sv->cur_eweight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv);
2236 				break;
2237 			case ST_F_UWEIGHT:
2238 				metric = mkf_u32(FN_AVG, sv->uweight);
2239 				break;
2240 			case ST_F_ACT:
2241 				metric = mkf_u32(FO_STATUS, (sv->flags & SRV_F_BACKUP) ? 0 : 1);
2242 				break;
2243 			case ST_F_BCK:
2244 				metric = mkf_u32(FO_STATUS, (sv->flags & SRV_F_BACKUP) ? 1 : 0);
2245 				break;
2246 			case ST_F_CHKFAIL:
2247 				if (sv->check.state & CHK_ST_ENABLED)
2248 					metric = mkf_u64(FN_COUNTER, sv->counters.failed_checks);
2249 				break;
2250 			case ST_F_CHKDOWN:
2251 				if (sv->check.state & CHK_ST_ENABLED)
2252 					metric = mkf_u64(FN_COUNTER, sv->counters.down_trans);
2253 				break;
2254 			case ST_F_DOWNTIME:
2255 				if (sv->check.state & CHK_ST_ENABLED)
2256 					metric = mkf_u32(FN_COUNTER, srv_downtime(sv));
2257 				break;
2258 			case ST_F_QLIMIT:
2259 				if (sv->maxqueue)
2260 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, sv->maxqueue);
2261 				break;
2262 			case ST_F_PID:
2263 				metric = mkf_u32(FO_KEY, relative_pid);
2264 				break;
2265 			case ST_F_IID:
2266 				metric = mkf_u32(FO_KEY|FS_SERVICE, px->uuid);
2267 				break;
2268 			case ST_F_SID:
2269 				metric = mkf_u32(FO_KEY|FS_SERVICE, sv->puid);
2270 				break;
2271 			case ST_F_THROTTLE:
2272 				if (sv->cur_state == SRV_ST_STARTING && !server_is_draining(sv))
2273 					metric = mkf_u32(FN_AVG, server_throttle_rate(sv));
2274 				break;
2275 			case ST_F_LBTOT:
2276 				metric = mkf_u64(FN_COUNTER, sv->counters.cum_lbconn);
2277 				break;
2278 			case ST_F_TRACKED:
2279 				if (sv->track) {
2280 					char *fld_track = chunk_newstr(out);
2281 					chunk_appendf(out, "%s/%s", sv->track->proxy->id, sv->track->id);
2282 					metric = mkf_str(FO_CONFIG|FN_NAME|FS_SERVICE, fld_track);
2283 				}
2284 				break;
2285 			case ST_F_TYPE:
2286 				metric = mkf_u32(FO_CONFIG|FS_SERVICE, STATS_TYPE_SV);
2287 				break;
2288 			case ST_F_RATE:
2289 				metric = mkf_u32(FN_RATE, read_freq_ctr(&sv->sess_per_sec));
2290 				break;
2291 			case ST_F_RATE_MAX:
2292 				metric = mkf_u32(FN_MAX, sv->counters.sps_max);
2293 				break;
2294 			case ST_F_CHECK_STATUS:
2295 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) {
2296 					const char *fld_chksts;
2297 
2298 					fld_chksts = chunk_newstr(out);
2299 					chunk_strcat(out, "* "); // for check in progress
2300 					chunk_strcat(out, get_check_status_info(sv->check.status));
2301 					if (!(sv->check.state & CHK_ST_INPROGRESS))
2302 						fld_chksts += 2; // skip "* "
2303 					metric = mkf_str(FN_OUTPUT, fld_chksts);
2304 				}
2305 				break;
2306 			case ST_F_CHECK_CODE:
2307 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED &&
2308 					sv->check.status >= HCHK_STATUS_L57DATA)
2309 					metric = mkf_u32(FN_OUTPUT, sv->check.code);
2310 				break;
2311 			case ST_F_CHECK_DURATION:
2312 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED &&
2313 					sv->check.status >= HCHK_STATUS_CHECKED)
2314 					metric = mkf_u64(FN_DURATION, sv->check.duration);
2315 				break;
2316 			case ST_F_CHECK_DESC:
2317 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2318 					metric = mkf_str(FN_OUTPUT, get_check_status_description(sv->check.status));
2319 				break;
2320 			case ST_F_LAST_CHK:
2321 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2322 					metric = mkf_str(FN_OUTPUT, sv->check.desc);
2323 				break;
2324 			case ST_F_CHECK_RISE:
2325 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2326 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, ref->check.rise);
2327 				break;
2328 			case ST_F_CHECK_FALL:
2329 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2330 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, ref->check.fall);
2331 				break;
2332 			case ST_F_CHECK_HEALTH:
2333 				if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2334 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, ref->check.health);
2335 				break;
2336 			case ST_F_AGENT_STATUS:
2337 				if  ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) {
2338 					const char *fld_chksts;
2339 
2340 					fld_chksts = chunk_newstr(out);
2341 					chunk_strcat(out, "* "); // for check in progress
2342 					chunk_strcat(out, get_check_status_info(sv->agent.status));
2343 					if (!(sv->agent.state & CHK_ST_INPROGRESS))
2344 						fld_chksts += 2; // skip "* "
2345 					metric = mkf_str(FN_OUTPUT, fld_chksts);
2346 				}
2347 				break;
2348 			case ST_F_AGENT_CODE:
2349 				if  ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED &&
2350 				     (sv->agent.status >= HCHK_STATUS_L57DATA))
2351 					metric = mkf_u32(FN_OUTPUT, sv->agent.code);
2352 				break;
2353 			case ST_F_AGENT_DURATION:
2354 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2355 					metric = mkf_u64(FN_DURATION, sv->agent.duration);
2356 				break;
2357 			case ST_F_AGENT_DESC:
2358 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2359 					metric = mkf_str(FN_OUTPUT, get_check_status_description(sv->agent.status));
2360 				break;
2361 			case ST_F_LAST_AGT:
2362 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2363 					metric = mkf_str(FN_OUTPUT, sv->agent.desc);
2364 				break;
2365 			case ST_F_AGENT_RISE:
2366 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2367 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, sv->agent.rise);
2368 				break;
2369 			case ST_F_AGENT_FALL:
2370 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2371 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, sv->agent.fall);
2372 				break;
2373 			case ST_F_AGENT_HEALTH:
2374 				if ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED)
2375 					metric = mkf_u32(FO_CONFIG|FS_SERVICE, sv->agent.health);
2376 				break;
2377 			case ST_F_REQ_TOT:
2378 				if (px->mode == PR_MODE_HTTP)
2379 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.cum_req);
2380 				break;
2381 			case ST_F_HRSP_1XX:
2382 				if (px->mode == PR_MODE_HTTP)
2383 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[1]);
2384 				break;
2385 			case ST_F_HRSP_2XX:
2386 				if (px->mode == PR_MODE_HTTP)
2387 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[2]);
2388 				break;
2389 			case ST_F_HRSP_3XX:
2390 				if (px->mode == PR_MODE_HTTP)
2391 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[3]);
2392 				break;
2393 			case ST_F_HRSP_4XX:
2394 				if (px->mode == PR_MODE_HTTP)
2395 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[4]);
2396 				break;
2397 			case ST_F_HRSP_5XX:
2398 				if (px->mode == PR_MODE_HTTP)
2399 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[5]);
2400 				break;
2401 			case ST_F_HRSP_OTHER:
2402 				if (px->mode == PR_MODE_HTTP)
2403 					metric = mkf_u64(FN_COUNTER, sv->counters.p.http.rsp[0]);
2404 				break;
2405 			case ST_F_HANAFAIL:
2406 				if (ref->observe)
2407 					metric = mkf_u64(FN_COUNTER, sv->counters.failed_hana);
2408 				break;
2409 			case ST_F_CLI_ABRT:
2410 				metric = mkf_u64(FN_COUNTER, sv->counters.cli_aborts);
2411 				break;
2412 			case ST_F_SRV_ABRT:
2413 				metric = mkf_u64(FN_COUNTER, sv->counters.srv_aborts);
2414 				break;
2415 			case ST_F_LASTSESS:
2416 				metric = mkf_s32(FN_AGE, srv_lastsession(sv));
2417 				break;
2418 			case ST_F_QTIME:
2419 				metric = mkf_u32(FN_AVG, swrate_avg(sv->counters.q_time, srv_samples_window));
2420 				break;
2421 			case ST_F_CTIME:
2422 				metric = mkf_u32(FN_AVG, swrate_avg(sv->counters.c_time, srv_samples_window));
2423 				break;
2424 			case ST_F_RTIME:
2425 				metric = mkf_u32(FN_AVG, swrate_avg(sv->counters.d_time, srv_samples_window));
2426 				break;
2427 			case ST_F_TTIME:
2428 				metric = mkf_u32(FN_AVG, swrate_avg(sv->counters.t_time, srv_samples_window));
2429 				break;
2430 			case ST_F_QT_MAX:
2431 				metric = mkf_u32(FN_MAX, sv->counters.qtime_max);
2432 				break;
2433 			case ST_F_CT_MAX:
2434 				metric = mkf_u32(FN_MAX, sv->counters.ctime_max);
2435 				break;
2436 			case ST_F_RT_MAX:
2437 				metric = mkf_u32(FN_MAX, sv->counters.dtime_max);
2438 				break;
2439 			case ST_F_TT_MAX:
2440 				metric = mkf_u32(FN_MAX, sv->counters.ttime_max);
2441 				break;
2442 			case ST_F_ADDR:
2443 				if (flags & STAT_SHLGNDS) {
2444 					switch (addr_to_str(&sv->addr, str, sizeof(str))) {
2445 						case AF_INET:
2446 							metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
2447 							chunk_appendf(out, "%s:%d", str, sv->svc_port);
2448 							break;
2449 						case AF_INET6:
2450 							metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
2451 							chunk_appendf(out, "[%s]:%d", str, sv->svc_port);
2452 							break;
2453 						case AF_UNIX:
2454 							metric = mkf_str(FO_CONFIG|FS_SERVICE, "unix");
2455 							break;
2456 						case -1:
2457 							metric = mkf_str(FO_CONFIG|FS_SERVICE, chunk_newstr(out));
2458 							chunk_strcat(out, strerror(errno));
2459 							break;
2460 						default: /* address family not supported */
2461 							break;
2462 					}
2463 				}
2464 				break;
2465 			case ST_F_COOKIE:
2466 				if (flags & STAT_SHLGNDS && sv->cookie)
2467 					metric = mkf_str(FO_CONFIG|FN_NAME|FS_SERVICE, sv->cookie);
2468 				break;
2469 			default:
2470 				/* not used for servers. If a specific metric
2471 				 * is requested, return an error. Otherwise continue.
2472 				 */
2473 				if (selected_field != NULL)
2474 					return 0;
2475 				continue;
2476 		}
2477 		stats[current_field] = metric;
2478 		if (selected_field != NULL)
2479 			break;
2480 	}
2481 	return 1;
2482 }
2483 
2484 /* Dumps a line for server <sv> and proxy <px> to the trash and uses the state
2485  * from stream interface <si>, and server state <state>. The caller is
2486  * responsible for clearing the trash if needed. Returns non-zero if it emits
2487  * anything, zero otherwise.
2488  */
stats_dump_sv_stats(struct stream_interface * si,struct proxy * px,struct server * sv)2489 static int stats_dump_sv_stats(struct stream_interface *si, struct proxy *px, struct server *sv)
2490 {
2491 	struct appctx *appctx = __objt_appctx(si->end);
2492 	struct stats_module *mod;
2493 	struct field *stats = stat_l[STATS_DOMAIN_PROXY];
2494 	size_t stats_count = ST_F_TOTAL_FIELDS;
2495 
2496 	memset(stats, 0, sizeof(struct field) * stat_count[STATS_DOMAIN_PROXY]);
2497 
2498 	if (!stats_fill_sv_stats(px, sv, appctx->ctx.stats.flags, stats,
2499 				 ST_F_TOTAL_FIELDS, NULL))
2500 		return 0;
2501 
2502 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
2503 		void *counters;
2504 
2505 		if (stats_get_domain(mod->domain_flags) != STATS_DOMAIN_PROXY)
2506 			continue;
2507 
2508 		if (!(stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_SRV)) {
2509 			stats_count += mod->stats_count;
2510 			continue;
2511 		}
2512 
2513 		counters = EXTRA_COUNTERS_GET(sv->extra_counters, mod);
2514 		mod->fill_stats(counters, stats + stats_count);
2515 		stats_count += mod->stats_count;
2516 	}
2517 
2518 	return stats_dump_one_line(stats, stats_count, appctx);
2519 }
2520 
2521 /* Helper to compute srv values for a given backend
2522  */
stats_fill_be_stats_computesrv(struct proxy * px,int * nbup,int * nbsrv,int * totuw)2523 static void stats_fill_be_stats_computesrv(struct proxy *px, int *nbup, int *nbsrv, int *totuw)
2524 {
2525 	int nbup_tmp, nbsrv_tmp, totuw_tmp;
2526 	const struct server *srv;
2527 
2528 	nbup_tmp = nbsrv_tmp = totuw_tmp = 0;
2529 	for (srv = px->srv; srv; srv = srv->next) {
2530 		if (srv->cur_state != SRV_ST_STOPPED) {
2531 			nbup_tmp++;
2532 			if (srv_currently_usable(srv) &&
2533 			    (!px->srv_act ^ !(srv->flags & SRV_F_BACKUP)))
2534 				totuw_tmp += srv->uweight;
2535 		}
2536 		nbsrv_tmp++;
2537 	}
2538 
2539 	HA_RWLOCK_RDLOCK(LBPRM_LOCK, &px->lbprm.lock);
2540 	if (!px->srv_act && px->lbprm.fbck)
2541 		totuw_tmp = px->lbprm.fbck->uweight;
2542 	HA_RWLOCK_RDUNLOCK(LBPRM_LOCK, &px->lbprm.lock);
2543 
2544 	/* use tmp variable then assign result to make gcc happy */
2545 	*nbup = nbup_tmp;
2546 	*nbsrv = nbsrv_tmp;
2547 	*totuw = totuw_tmp;
2548 }
2549 
2550 /* Fill <stats> with the backend statistics. <stats> is preallocated array of
2551  * length <len>. If <selected_field> is != NULL, only fill this one. The length
2552  * of the array must be at least ST_F_TOTAL_FIELDS. If this length is less than
2553  * this value, or if the selected field is not implemented for backends, the
2554  * function returns 0, otherwise, it returns 1. <flags> can take the value
2555  * STAT_SHLGNDS.
2556  */
stats_fill_be_stats(struct proxy * px,int flags,struct field * stats,int len,enum stat_field * selected_field)2557 int stats_fill_be_stats(struct proxy *px, int flags, struct field *stats, int len,
2558 			enum stat_field *selected_field)
2559 {
2560 	enum stat_field current_field = (selected_field != NULL ? *selected_field : 0);
2561 	long long be_samples_counter;
2562 	unsigned int be_samples_window = TIME_STATS_SAMPLES;
2563 	struct buffer *out = get_trash_chunk();
2564 	int nbup, nbsrv, totuw;
2565 	char *fld;
2566 
2567 	if (len < ST_F_TOTAL_FIELDS)
2568 		return 0;
2569 
2570 	nbup = nbsrv = totuw = 0;
2571 	/* some srv values compute for later if we either select all fields or
2572 	 * need them for one of the mentioned ones */
2573 	if (selected_field == NULL || *selected_field == ST_F_STATUS ||
2574 	    *selected_field == ST_F_UWEIGHT)
2575 		stats_fill_be_stats_computesrv(px, &nbup, &nbsrv, &totuw);
2576 
2577 	/* same here but specific to time fields */
2578 	if (selected_field == NULL || *selected_field == ST_F_QTIME ||
2579 	    *selected_field == ST_F_CTIME || *selected_field == ST_F_RTIME ||
2580 	    *selected_field == ST_F_TTIME) {
2581 		be_samples_counter = (px->mode == PR_MODE_HTTP) ? px->be_counters.p.http.cum_req : px->be_counters.cum_lbconn;
2582 		if (be_samples_counter < TIME_STATS_SAMPLES && be_samples_counter > 0)
2583 			be_samples_window = be_samples_counter;
2584 	}
2585 
2586 	for (; current_field < ST_F_TOTAL_FIELDS; current_field++) {
2587 		struct field metric = { 0 };
2588 
2589 		switch (current_field) {
2590 			case ST_F_PXNAME:
2591 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, px->id);
2592 				break;
2593 			case ST_F_SVNAME:
2594 				metric = mkf_str(FO_KEY|FN_NAME|FS_SERVICE, "BACKEND");
2595 				break;
2596 			case ST_F_MODE:
2597 				metric = mkf_str(FO_CONFIG|FS_SERVICE, proxy_mode_str(px->mode));
2598 				break;
2599 			case ST_F_QCUR:
2600 				metric = mkf_u32(0, px->nbpend);
2601 				break;
2602 			case ST_F_QMAX:
2603 				metric = mkf_u32(FN_MAX, px->be_counters.nbpend_max);
2604 				break;
2605 			case ST_F_SCUR:
2606 				metric = mkf_u32(0, px->beconn);
2607 				break;
2608 			case ST_F_SMAX:
2609 				metric = mkf_u32(FN_MAX, px->be_counters.conn_max);
2610 				break;
2611 			case ST_F_SLIM:
2612 				metric = mkf_u32(FO_CONFIG|FN_LIMIT, px->fullconn);
2613 				break;
2614 			case ST_F_STOT:
2615 				metric = mkf_u64(FN_COUNTER, px->be_counters.cum_conn);
2616 				break;
2617 			case ST_F_BIN:
2618 				metric = mkf_u64(FN_COUNTER, px->be_counters.bytes_in);
2619 				break;
2620 			case ST_F_BOUT:
2621 				metric = mkf_u64(FN_COUNTER, px->be_counters.bytes_out);
2622 				break;
2623 			case ST_F_DREQ:
2624 				metric = mkf_u64(FN_COUNTER, px->be_counters.denied_req);
2625 				break;
2626 			case ST_F_DRESP:
2627 				metric = mkf_u64(FN_COUNTER, px->be_counters.denied_resp);
2628 				break;
2629 			case ST_F_ECON:
2630 				metric = mkf_u64(FN_COUNTER, px->be_counters.failed_conns);
2631 				break;
2632 			case ST_F_ERESP:
2633 				metric = mkf_u64(FN_COUNTER, px->be_counters.failed_resp);
2634 				break;
2635 			case ST_F_WRETR:
2636 				metric = mkf_u64(FN_COUNTER, px->be_counters.retries);
2637 				break;
2638 			case ST_F_WREDIS:
2639 				metric = mkf_u64(FN_COUNTER, px->be_counters.redispatches);
2640 				break;
2641 			case ST_F_WREW:
2642 				metric = mkf_u64(FN_COUNTER, px->be_counters.failed_rewrites);
2643 				break;
2644 			case ST_F_EINT:
2645 				metric = mkf_u64(FN_COUNTER, px->be_counters.internal_errors);
2646 				break;
2647 			case ST_F_CONNECT:
2648 				metric = mkf_u64(FN_COUNTER, px->be_counters.connect);
2649 				break;
2650 			case ST_F_REUSE:
2651 				metric = mkf_u64(FN_COUNTER, px->be_counters.reuse);
2652 				break;
2653 			case ST_F_STATUS:
2654 				fld = chunk_newstr(out);
2655 				chunk_appendf(out, "%s", (px->lbprm.tot_weight > 0 || !px->srv) ? "UP" : "DOWN");
2656 				if (flags & (STAT_HIDE_MAINT|STAT_HIDE_DOWN))
2657 					chunk_appendf(out, " (%d/%d)", nbup, nbsrv);
2658 				metric = mkf_str(FO_STATUS, fld);
2659 				break;
2660 			case ST_F_AGG_SRV_CHECK_STATUS:
2661 				metric = mkf_u32(FN_GAUGE, 0);
2662 				break;
2663 			case ST_F_WEIGHT:
2664 				metric = mkf_u32(FN_AVG, (px->lbprm.tot_weight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv);
2665 				break;
2666 			case ST_F_UWEIGHT:
2667 				metric = mkf_u32(FN_AVG, totuw);
2668 				break;
2669 			case ST_F_ACT:
2670 				metric = mkf_u32(0, px->srv_act);
2671 				break;
2672 			case ST_F_BCK:
2673 				metric = mkf_u32(0, px->srv_bck);
2674 				break;
2675 			case ST_F_CHKDOWN:
2676 				metric = mkf_u64(FN_COUNTER, px->down_trans);
2677 				break;
2678 			case ST_F_LASTCHG:
2679 				metric = mkf_u32(FN_AGE, now.tv_sec - px->last_change);
2680 				break;
2681 			case ST_F_DOWNTIME:
2682 				if (px->srv)
2683 					metric = mkf_u32(FN_COUNTER, be_downtime(px));
2684 				break;
2685 			case ST_F_PID:
2686 				metric = mkf_u32(FO_KEY, relative_pid);
2687 				break;
2688 			case ST_F_IID:
2689 				metric = mkf_u32(FO_KEY|FS_SERVICE, px->uuid);
2690 				break;
2691 			case ST_F_SID:
2692 				metric = mkf_u32(FO_KEY|FS_SERVICE, 0);
2693 				break;
2694 			case ST_F_LBTOT:
2695 				metric = mkf_u64(FN_COUNTER, px->be_counters.cum_lbconn);
2696 				break;
2697 			case ST_F_TYPE:
2698 				metric = mkf_u32(FO_CONFIG|FS_SERVICE, STATS_TYPE_BE);
2699 				break;
2700 			case ST_F_RATE:
2701 				metric = mkf_u32(0, read_freq_ctr(&px->be_sess_per_sec));
2702 				break;
2703 			case ST_F_RATE_MAX:
2704 				metric = mkf_u32(0, px->be_counters.sps_max);
2705 				break;
2706 			case ST_F_COOKIE:
2707 				if (flags & STAT_SHLGNDS && px->cookie_name)
2708 					metric = mkf_str(FO_CONFIG|FN_NAME|FS_SERVICE, px->cookie_name);
2709 				break;
2710 			case ST_F_ALGO:
2711 				if (flags & STAT_SHLGNDS)
2712 					metric = mkf_str(FO_CONFIG|FS_SERVICE, backend_lb_algo_str(px->lbprm.algo & BE_LB_ALGO));
2713 				break;
2714 			case ST_F_REQ_TOT:
2715 				if (px->mode == PR_MODE_HTTP)
2716 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.cum_req);
2717 				break;
2718 			case ST_F_HRSP_1XX:
2719 				if (px->mode == PR_MODE_HTTP)
2720 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[1]);
2721 				break;
2722 			case ST_F_HRSP_2XX:
2723 				if (px->mode == PR_MODE_HTTP)
2724 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[2]);
2725 				break;
2726 			case ST_F_HRSP_3XX:
2727 				if (px->mode == PR_MODE_HTTP)
2728 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[3]);
2729 				break;
2730 			case ST_F_HRSP_4XX:
2731 				if (px->mode == PR_MODE_HTTP)
2732 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[4]);
2733 				break;
2734 			case ST_F_HRSP_5XX:
2735 				if (px->mode == PR_MODE_HTTP)
2736 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[5]);
2737 				break;
2738 			case ST_F_HRSP_OTHER:
2739 				if (px->mode == PR_MODE_HTTP)
2740 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.rsp[0]);
2741 				break;
2742 			case ST_F_CACHE_LOOKUPS:
2743 				if (px->mode == PR_MODE_HTTP)
2744 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.cache_lookups);
2745 				break;
2746 			case ST_F_CACHE_HITS:
2747 				if (px->mode == PR_MODE_HTTP)
2748 					metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.cache_hits);
2749 				break;
2750 			case ST_F_CLI_ABRT:
2751 				metric = mkf_u64(FN_COUNTER, px->be_counters.cli_aborts);
2752 				break;
2753 			case ST_F_SRV_ABRT:
2754 				metric = mkf_u64(FN_COUNTER, px->be_counters.srv_aborts);
2755 				break;
2756 			case ST_F_COMP_IN:
2757 				metric = mkf_u64(FN_COUNTER, px->be_counters.comp_in);
2758 				break;
2759 			case ST_F_COMP_OUT:
2760 				metric = mkf_u64(FN_COUNTER, px->be_counters.comp_out);
2761 				break;
2762 			case ST_F_COMP_BYP:
2763 				metric = mkf_u64(FN_COUNTER, px->be_counters.comp_byp);
2764 				break;
2765 			case ST_F_COMP_RSP:
2766 				metric = mkf_u64(FN_COUNTER, px->be_counters.p.http.comp_rsp);
2767 				break;
2768 			case ST_F_LASTSESS:
2769 				metric = mkf_s32(FN_AGE, be_lastsession(px));
2770 				break;
2771 			case ST_F_QTIME:
2772 				metric = mkf_u32(FN_AVG, swrate_avg(px->be_counters.q_time, be_samples_window));
2773 				break;
2774 			case ST_F_CTIME:
2775 				metric = mkf_u32(FN_AVG, swrate_avg(px->be_counters.c_time, be_samples_window));
2776 				break;
2777 			case ST_F_RTIME:
2778 				metric = mkf_u32(FN_AVG, swrate_avg(px->be_counters.d_time, be_samples_window));
2779 				break;
2780 			case ST_F_TTIME:
2781 				metric = mkf_u32(FN_AVG, swrate_avg(px->be_counters.t_time, be_samples_window));
2782 				break;
2783 			case ST_F_QT_MAX:
2784 				metric = mkf_u32(FN_MAX, px->be_counters.qtime_max);
2785 				break;
2786 			case ST_F_CT_MAX:
2787 				metric = mkf_u32(FN_MAX, px->be_counters.ctime_max);
2788 				break;
2789 			case ST_F_RT_MAX:
2790 				metric = mkf_u32(FN_MAX, px->be_counters.dtime_max);
2791 				break;
2792 			case ST_F_TT_MAX:
2793 				metric = mkf_u32(FN_MAX, px->be_counters.ttime_max);
2794 				break;
2795 			default:
2796 				/* not used for backends. If a specific metric
2797 				 * is requested, return an error. Otherwise continue.
2798 				 */
2799 				if (selected_field != NULL)
2800 					return 0;
2801 				continue;
2802 		}
2803 		stats[current_field] = metric;
2804 		if (selected_field != NULL)
2805 			break;
2806 	}
2807 	return 1;
2808 }
2809 
2810 /* Dumps a line for backend <px> to the trash for and uses the state from stream
2811  * interface <si>. The caller is responsible for clearing the trash if needed.
2812  * Returns non-zero if it emits anything, zero otherwise.
2813  */
stats_dump_be_stats(struct stream_interface * si,struct proxy * px)2814 static int stats_dump_be_stats(struct stream_interface *si, struct proxy *px)
2815 {
2816 	struct appctx *appctx = __objt_appctx(si->end);
2817 	struct field *stats = stat_l[STATS_DOMAIN_PROXY];
2818 	struct stats_module *mod;
2819 	size_t stats_count = ST_F_TOTAL_FIELDS;
2820 
2821 	if (!(px->cap & PR_CAP_BE))
2822 		return 0;
2823 
2824 	if ((appctx->ctx.stats.flags & STAT_BOUND) && !(appctx->ctx.stats.type & (1 << STATS_TYPE_BE)))
2825 		return 0;
2826 
2827 	memset(stats, 0, sizeof(struct field) * stat_count[STATS_DOMAIN_PROXY]);
2828 
2829 	if (!stats_fill_be_stats(px, appctx->ctx.stats.flags, stats, ST_F_TOTAL_FIELDS, NULL))
2830 		return 0;
2831 
2832 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
2833 		struct extra_counters *counters;
2834 
2835 		if (stats_get_domain(mod->domain_flags) != STATS_DOMAIN_PROXY)
2836 			continue;
2837 
2838 		if (!(stats_px_get_cap(mod->domain_flags) & STATS_PX_CAP_BE)) {
2839 			stats_count += mod->stats_count;
2840 			continue;
2841 		}
2842 
2843 		counters = EXTRA_COUNTERS_GET(px->extra_counters_be, mod);
2844 		mod->fill_stats(counters, stats + stats_count);
2845 		stats_count += mod->stats_count;
2846 	}
2847 
2848 	return stats_dump_one_line(stats, stats_count, appctx);
2849 }
2850 
2851 /* Dumps the HTML table header for proxy <px> to the trash for and uses the state from
2852  * stream interface <si> and per-uri parameters <uri>. The caller is responsible
2853  * for clearing the trash if needed.
2854  */
stats_dump_html_px_hdr(struct stream_interface * si,struct proxy * px)2855 static void stats_dump_html_px_hdr(struct stream_interface *si, struct proxy *px)
2856 {
2857 	struct appctx *appctx = __objt_appctx(si->end);
2858 	char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN];
2859 	struct stats_module *mod;
2860 	int stats_module_len = 0;
2861 
2862 	if (px->cap & PR_CAP_BE && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) {
2863 		/* A form to enable/disable this proxy servers */
2864 
2865 		/* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */
2866 		scope_txt[0] = 0;
2867 		if (appctx->ctx.stats.scope_len) {
2868 			const char *scope_ptr = stats_scope_ptr(appctx, si);
2869 
2870 			strcpy(scope_txt, STAT_SCOPE_PATTERN);
2871 			memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), scope_ptr, appctx->ctx.stats.scope_len);
2872 			scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0;
2873 		}
2874 
2875 		chunk_appendf(&trash,
2876 			      "<form method=\"post\">");
2877 	}
2878 
2879 	/* print a new table */
2880 	chunk_appendf(&trash,
2881 		      "<table class=\"tbl\" width=\"100%%\">\n"
2882 		      "<tr class=\"titre\">"
2883 		      "<th class=\"pxname\" width=\"10%%\">");
2884 
2885 	chunk_appendf(&trash,
2886 	              "<a name=\"%s\"></a>%s"
2887 	              "<a class=px href=\"#%s\">%s</a>",
2888 	              px->id,
2889 	              (appctx->ctx.stats.flags & STAT_SHLGNDS) ? "<u>":"",
2890 	              px->id, px->id);
2891 
2892 	if (appctx->ctx.stats.flags & STAT_SHLGNDS) {
2893 		/* cap, mode, id */
2894 		chunk_appendf(&trash, "<div class=tips>cap: %s, mode: %s, id: %d",
2895 		              proxy_cap_str(px->cap), proxy_mode_str(px->mode),
2896 		              px->uuid);
2897 		chunk_appendf(&trash, "</div>");
2898 	}
2899 
2900 	chunk_appendf(&trash,
2901 	              "%s</th>"
2902 	              "<th class=\"%s\" width=\"90%%\">%s</th>"
2903 	              "</tr>\n"
2904 	              "</table>\n"
2905 	              "<table class=\"tbl\" width=\"100%%\">\n"
2906 	              "<tr class=\"titre\">",
2907 	              (appctx->ctx.stats.flags & STAT_SHLGNDS) ? "</u>":"",
2908 	              px->desc ? "desc" : "empty", px->desc ? px->desc : "");
2909 
2910 	if (appctx->ctx.stats.flags & STAT_ADMIN) {
2911 		/* Column heading for Enable or Disable server */
2912 		if ((px->cap & PR_CAP_BE) && px->srv)
2913 			chunk_appendf(&trash,
2914 				      "<th rowspan=2 width=1><input type=\"checkbox\" "
2915 				      "onclick=\"for(c in document.getElementsByClassName('%s-checkbox')) "
2916 				      "document.getElementsByClassName('%s-checkbox').item(c).checked = this.checked\"></th>",
2917 				      px->id,
2918 				      px->id);
2919 		else
2920 			chunk_appendf(&trash, "<th rowspan=2></th>");
2921 	}
2922 
2923 	chunk_appendf(&trash,
2924 	              "<th rowspan=2></th>"
2925 	              "<th colspan=3>Queue</th>"
2926 	              "<th colspan=3>Session rate</th><th colspan=6>Sessions</th>"
2927 	              "<th colspan=2>Bytes</th><th colspan=2>Denied</th>"
2928 	              "<th colspan=3>Errors</th><th colspan=2>Warnings</th>"
2929 	              "<th colspan=9>Server</th>");
2930 
2931 	if (appctx->ctx.stats.flags & STAT_SHMODULES) {
2932 		// calculate the count of module for colspan attribute
2933 		list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
2934 			++stats_module_len;
2935 		}
2936 		chunk_appendf(&trash, "<th colspan=%d>Extra modules</th>",
2937 		              stats_module_len);
2938 	}
2939 
2940 	chunk_appendf(&trash,
2941 	              "</tr>\n"
2942 	              "<tr class=\"titre\">"
2943 	              "<th>Cur</th><th>Max</th><th>Limit</th>"
2944 	              "<th>Cur</th><th>Max</th><th>Limit</th><th>Cur</th><th>Max</th>"
2945 	              "<th>Limit</th><th>Total</th><th>LbTot</th><th>Last</th><th>In</th><th>Out</th>"
2946 	              "<th>Req</th><th>Resp</th><th>Req</th><th>Conn</th>"
2947 	              "<th>Resp</th><th>Retr</th><th>Redis</th>"
2948 	              "<th>Status</th><th>LastChk</th><th>Wght</th><th>Act</th>"
2949 	              "<th>Bck</th><th>Chk</th><th>Dwn</th><th>Dwntme</th>"
2950 	              "<th>Thrtle</th>\n");
2951 
2952 	if (appctx->ctx.stats.flags & STAT_SHMODULES) {
2953 		list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
2954 			chunk_appendf(&trash, "<th>%s</th>", mod->name);
2955 		}
2956 	}
2957 
2958 	chunk_appendf(&trash, "</tr>");
2959 }
2960 
2961 /* Dumps the HTML table trailer for proxy <px> to the trash for and uses the state from
2962  * stream interface <si>. The caller is responsible for clearing the trash if needed.
2963  */
stats_dump_html_px_end(struct stream_interface * si,struct proxy * px)2964 static void stats_dump_html_px_end(struct stream_interface *si, struct proxy *px)
2965 {
2966 	struct appctx *appctx = __objt_appctx(si->end);
2967 	chunk_appendf(&trash, "</table>");
2968 
2969 	if ((px->cap & PR_CAP_BE) && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) {
2970 		/* close the form used to enable/disable this proxy servers */
2971 		chunk_appendf(&trash,
2972 			      "Choose the action to perform on the checked servers : "
2973 			      "<select name=action>"
2974 			      "<option value=\"\"></option>"
2975 			      "<option value=\"ready\">Set state to READY</option>"
2976 			      "<option value=\"drain\">Set state to DRAIN</option>"
2977 			      "<option value=\"maint\">Set state to MAINT</option>"
2978 			      "<option value=\"dhlth\">Health: disable checks</option>"
2979 			      "<option value=\"ehlth\">Health: enable checks</option>"
2980 			      "<option value=\"hrunn\">Health: force UP</option>"
2981 			      "<option value=\"hnolb\">Health: force NOLB</option>"
2982 			      "<option value=\"hdown\">Health: force DOWN</option>"
2983 			      "<option value=\"dagent\">Agent: disable checks</option>"
2984 			      "<option value=\"eagent\">Agent: enable checks</option>"
2985 			      "<option value=\"arunn\">Agent: force UP</option>"
2986 			      "<option value=\"adown\">Agent: force DOWN</option>"
2987 			      "<option value=\"shutdown\">Kill Sessions</option>"
2988 			      "</select>"
2989 			      "<input type=\"hidden\" name=\"b\" value=\"#%d\">"
2990 			      "&nbsp;<input type=\"submit\" value=\"Apply\">"
2991 			      "</form>",
2992 			      px->uuid);
2993 	}
2994 
2995 	chunk_appendf(&trash, "<p>\n");
2996 }
2997 
2998 /*
2999  * Dumps statistics for a proxy. The output is sent to the stream interface's
3000  * input buffer. Returns 0 if it had to stop dumping data because of lack of
3001  * buffer space, or non-zero if everything completed. This function is used
3002  * both by the CLI and the HTTP entry points, and is able to dump the output
3003  * in HTML or CSV formats. If the later, <uri> must be NULL.
3004  */
stats_dump_proxy_to_buffer(struct stream_interface * si,struct htx * htx,struct proxy * px,struct uri_auth * uri)3005 int stats_dump_proxy_to_buffer(struct stream_interface *si, struct htx *htx,
3006 			       struct proxy *px, struct uri_auth *uri)
3007 {
3008 	struct appctx *appctx = __objt_appctx(si->end);
3009 	struct stream *s = si_strm(si);
3010 	struct channel *rep = si_ic(si);
3011 	struct server *sv, *svs;	/* server and server-state, server-state=server or server->track */
3012 	struct listener *l;
3013 
3014 	chunk_reset(&trash);
3015 
3016 	switch (appctx->ctx.stats.px_st) {
3017 	case STAT_PX_ST_INIT:
3018 		/* we are on a new proxy */
3019 		if (uri && uri->scope) {
3020 			/* we have a limited scope, we have to check the proxy name */
3021 			struct stat_scope *scope;
3022 			int len;
3023 
3024 			len = strlen(px->id);
3025 			scope = uri->scope;
3026 
3027 			while (scope) {
3028 				/* match exact proxy name */
3029 				if (scope->px_len == len && !memcmp(px->id, scope->px_id, len))
3030 					break;
3031 
3032 				/* match '.' which means 'self' proxy */
3033 				if (strcmp(scope->px_id, ".") == 0 && px == s->be)
3034 					break;
3035 				scope = scope->next;
3036 			}
3037 
3038 			/* proxy name not found : don't dump anything */
3039 			if (scope == NULL)
3040 				return 1;
3041 		}
3042 
3043 		/* if the user has requested a limited output and the proxy
3044 		 * name does not match, skip it.
3045 		 */
3046 		if (appctx->ctx.stats.scope_len) {
3047 			const char *scope_ptr = stats_scope_ptr(appctx, si);
3048 
3049 			if (strnistr(px->id, strlen(px->id), scope_ptr, appctx->ctx.stats.scope_len) == NULL)
3050 				return 1;
3051 		}
3052 
3053 		if ((appctx->ctx.stats.flags & STAT_BOUND) &&
3054 		    (appctx->ctx.stats.iid != -1) &&
3055 		    (px->uuid != appctx->ctx.stats.iid))
3056 			return 1;
3057 
3058 		appctx->ctx.stats.px_st = STAT_PX_ST_TH;
3059 		/* fall through */
3060 
3061 	case STAT_PX_ST_TH:
3062 		if (appctx->ctx.stats.flags & STAT_FMT_HTML) {
3063 			stats_dump_html_px_hdr(si, px);
3064 			if (!stats_putchk(rep, htx, &trash))
3065 				goto full;
3066 		}
3067 
3068 		appctx->ctx.stats.px_st = STAT_PX_ST_FE;
3069 		/* fall through */
3070 
3071 	case STAT_PX_ST_FE:
3072 		/* print the frontend */
3073 		if (stats_dump_fe_stats(si, px)) {
3074 			if (!stats_putchk(rep, htx, &trash))
3075 				goto full;
3076 		}
3077 
3078 		appctx->ctx.stats.obj2 = px->conf.listeners.n;
3079 		appctx->ctx.stats.px_st = STAT_PX_ST_LI;
3080 		/* fall through */
3081 
3082 	case STAT_PX_ST_LI:
3083 		/* obj2 points to listeners list as initialized above */
3084 		for (; appctx->ctx.stats.obj2 != &px->conf.listeners; appctx->ctx.stats.obj2 = l->by_fe.n) {
3085 			if (htx) {
3086 				if (htx_almost_full(htx))
3087 					goto full;
3088 			}
3089 			else {
3090 				if (buffer_almost_full(&rep->buf))
3091 					goto full;
3092 			}
3093 
3094 			l = LIST_ELEM(appctx->ctx.stats.obj2, struct listener *, by_fe);
3095 			if (!l->counters)
3096 				continue;
3097 
3098 			if (appctx->ctx.stats.flags & STAT_BOUND) {
3099 				if (!(appctx->ctx.stats.type & (1 << STATS_TYPE_SO)))
3100 					break;
3101 
3102 				if (appctx->ctx.stats.sid != -1 && l->luid != appctx->ctx.stats.sid)
3103 					continue;
3104 			}
3105 
3106 			/* print the frontend */
3107 			if (stats_dump_li_stats(si, px, l)) {
3108 				if (!stats_putchk(rep, htx, &trash))
3109 					goto full;
3110 			}
3111 		}
3112 
3113 		appctx->ctx.stats.obj2 = px->srv; /* may be NULL */
3114 		appctx->ctx.stats.px_st = STAT_PX_ST_SV;
3115 		/* fall through */
3116 
3117 	case STAT_PX_ST_SV:
3118 		/* obj2 points to servers list as initialized above.
3119 		 *
3120 		 * A dynamic server may be removed during the stats dumping.
3121 		 * Temporarily increment its refcount to prevent its
3122 		 * anticipated cleaning. Call free_server to release it.
3123 		 */
3124 		for (; appctx->ctx.stats.obj2 != NULL;
3125 		       appctx->ctx.stats.obj2 =
3126 		        (!(sv->flags & SRV_F_DYNAMIC)) ? sv->next : free_server(sv)) {
3127 
3128 			sv = appctx->ctx.stats.obj2;
3129 			if (sv->flags & SRV_F_DYNAMIC)
3130 				srv_use_dynsrv(sv);
3131 
3132 			if (htx) {
3133 				if (htx_almost_full(htx))
3134 					goto full;
3135 			}
3136 			else {
3137 				if (buffer_almost_full(&rep->buf))
3138 					goto full;
3139 			}
3140 
3141 			if (appctx->ctx.stats.flags & STAT_BOUND) {
3142 				if (!(appctx->ctx.stats.type & (1 << STATS_TYPE_SV))) {
3143 					if (sv->flags & SRV_F_DYNAMIC)
3144 						free_server(appctx->ctx.stats.obj2);
3145 					break;
3146 				}
3147 
3148 				if (appctx->ctx.stats.sid != -1 && sv->puid != appctx->ctx.stats.sid)
3149 					continue;
3150 			}
3151 
3152 			/* do not report disabled servers */
3153 			if (appctx->ctx.stats.flags & STAT_HIDE_MAINT &&
3154 			    sv->cur_admin & SRV_ADMF_MAINT) {
3155 				continue;
3156 			}
3157 
3158 			svs = sv;
3159 			while (svs->track)
3160 				svs = svs->track;
3161 
3162 			/* do not report servers which are DOWN and not changing state */
3163 			if ((appctx->ctx.stats.flags & STAT_HIDE_DOWN) &&
3164 			    ((sv->cur_admin & SRV_ADMF_MAINT) || /* server is in maintenance */
3165 			     (sv->cur_state == SRV_ST_STOPPED && /* server is down */
3166 			      (!((svs->agent.state | svs->check.state) & CHK_ST_ENABLED) ||
3167 			       ((svs->agent.state & CHK_ST_ENABLED) && !svs->agent.health) ||
3168 			       ((svs->check.state & CHK_ST_ENABLED) && !svs->check.health))))) {
3169 				continue;
3170 			}
3171 
3172 			if (stats_dump_sv_stats(si, px, sv)) {
3173 				if (!stats_putchk(rep, htx, &trash))
3174 					goto full;
3175 			}
3176 		} /* for sv */
3177 
3178 		appctx->ctx.stats.px_st = STAT_PX_ST_BE;
3179 		/* fall through */
3180 
3181 	case STAT_PX_ST_BE:
3182 		/* print the backend */
3183 		if (stats_dump_be_stats(si, px)) {
3184 			if (!stats_putchk(rep, htx, &trash))
3185 				goto full;
3186 		}
3187 
3188 		appctx->ctx.stats.px_st = STAT_PX_ST_END;
3189 		/* fall through */
3190 
3191 	case STAT_PX_ST_END:
3192 		if (appctx->ctx.stats.flags & STAT_FMT_HTML) {
3193 			stats_dump_html_px_end(si, px);
3194 			if (!stats_putchk(rep, htx, &trash))
3195 				goto full;
3196 		}
3197 
3198 		appctx->ctx.stats.px_st = STAT_PX_ST_FIN;
3199 		/* fall through */
3200 
3201 	case STAT_PX_ST_FIN:
3202 		return 1;
3203 
3204 	default:
3205 		/* unknown state, we should put an abort() here ! */
3206 		return 1;
3207 	}
3208 
3209   full:
3210 	si_rx_room_blk(si);
3211 	return 0;
3212 }
3213 
3214 /* Dumps the HTTP stats head block to the trash for and uses the per-uri
3215  * parameters <uri>. The caller is responsible for clearing the trash if needed.
3216  */
stats_dump_html_head(struct appctx * appctx,struct uri_auth * uri)3217 static void stats_dump_html_head(struct appctx *appctx, struct uri_auth *uri)
3218 {
3219 	/* WARNING! This must fit in the first buffer !!! */
3220 	chunk_appendf(&trash,
3221 	              "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"\n"
3222 	              "\"http://www.w3.org/TR/html4/loose.dtd\">\n"
3223 	              "<html><head><title>Statistics Report for " PRODUCT_NAME "%s%s</title>\n"
3224 		      "<link rel=\"icon\" href=\"data:,\">\n"
3225 	              "<meta http-equiv=\"content-type\" content=\"text/html; charset=iso-8859-1\">\n"
3226 	              "<style type=\"text/css\"><!--\n"
3227 	              "body {"
3228 	              " font-family: arial, helvetica, sans-serif;"
3229 	              " font-size: 12px;"
3230 	              " font-weight: normal;"
3231 	              " color: black;"
3232 	              " background: white;"
3233 	              "}\n"
3234 	              "th,td {"
3235 	              " font-size: 10px;"
3236 	              "}\n"
3237 	              "h1 {"
3238 	              " font-size: x-large;"
3239 	              " margin-bottom: 0.5em;"
3240 	              "}\n"
3241 	              "h2 {"
3242 	              " font-family: helvetica, arial;"
3243 	              " font-size: x-large;"
3244 	              " font-weight: bold;"
3245 	              " font-style: italic;"
3246 	              " color: #6020a0;"
3247 	              " margin-top: 0em;"
3248 	              " margin-bottom: 0em;"
3249 	              "}\n"
3250 	              "h3 {"
3251 	              " font-family: helvetica, arial;"
3252 	              " font-size: 16px;"
3253 	              " font-weight: bold;"
3254 	              " color: #b00040;"
3255 	              " background: #e8e8d0;"
3256 	              " margin-top: 0em;"
3257 	              " margin-bottom: 0em;"
3258 	              "}\n"
3259 	              "li {"
3260 	              " margin-top: 0.25em;"
3261 	              " margin-right: 2em;"
3262 	              "}\n"
3263 	              ".hr {margin-top: 0.25em;"
3264 	              " border-color: black;"
3265 	              " border-bottom-style: solid;"
3266 	              "}\n"
3267 	              ".titre	{background: #20D0D0;color: #000000; font-weight: bold; text-align: center;}\n"
3268 	              ".total	{background: #20D0D0;color: #ffff80;}\n"
3269 	              ".frontend	{background: #e8e8d0;}\n"
3270 	              ".socket	{background: #d0d0d0;}\n"
3271 	              ".backend	{background: #e8e8d0;}\n"
3272 	              ".active_down		{background: #ff9090;}\n"
3273 	              ".active_going_up		{background: #ffd020;}\n"
3274 	              ".active_going_down	{background: #ffffa0;}\n"
3275 	              ".active_up		{background: #c0ffc0;}\n"
3276 	              ".active_nolb		{background: #20a0ff;}\n"
3277 	              ".active_draining		{background: #20a0FF;}\n"
3278 	              ".active_no_check		{background: #e0e0e0;}\n"
3279 	              ".backup_down		{background: #ff9090;}\n"
3280 	              ".backup_going_up		{background: #ff80ff;}\n"
3281 	              ".backup_going_down	{background: #c060ff;}\n"
3282 	              ".backup_up		{background: #b0d0ff;}\n"
3283 	              ".backup_nolb		{background: #90b0e0;}\n"
3284 	              ".backup_draining		{background: #cc9900;}\n"
3285 	              ".backup_no_check		{background: #e0e0e0;}\n"
3286 	              ".maintain	{background: #c07820;}\n"
3287 	              ".rls      {letter-spacing: 0.2em; margin-right: 1px;}\n" /* right letter spacing (used for grouping digits) */
3288 	              "\n"
3289 	              "a.px:link {color: #ffff40; text-decoration: none;}"
3290 	              "a.px:visited {color: #ffff40; text-decoration: none;}"
3291 	              "a.px:hover {color: #ffffff; text-decoration: none;}"
3292 	              "a.lfsb:link {color: #000000; text-decoration: none;}"
3293 	              "a.lfsb:visited {color: #000000; text-decoration: none;}"
3294 	              "a.lfsb:hover {color: #505050; text-decoration: none;}"
3295 	              "\n"
3296 	              "table.tbl { border-collapse: collapse; border-style: none;}\n"
3297 	              "table.tbl td { text-align: right; border-width: 1px 1px 1px 1px; border-style: solid solid solid solid; padding: 2px 3px; border-color: gray; white-space: nowrap;}\n"
3298 	              "table.tbl td.ac { text-align: center;}\n"
3299 	              "table.tbl th { border-width: 1px; border-style: solid solid solid solid; border-color: gray;}\n"
3300 	              "table.tbl th.pxname { background: #b00040; color: #ffff40; font-weight: bold; border-style: solid solid none solid; padding: 2px 3px; white-space: nowrap;}\n"
3301 	              "table.tbl th.empty { border-style: none; empty-cells: hide; background: white;}\n"
3302 	              "table.tbl th.desc { background: white; border-style: solid solid none solid; text-align: left; padding: 2px 3px;}\n"
3303 	              "\n"
3304 	              "table.lgd { border-collapse: collapse; border-width: 1px; border-style: none none none solid; border-color: black;}\n"
3305 	              "table.lgd td { border-width: 1px; border-style: solid solid solid solid; border-color: gray; padding: 2px;}\n"
3306 	              "table.lgd td.noborder { border-style: none; padding: 2px; white-space: nowrap;}\n"
3307 	              "table.det { border-collapse: collapse; border-style: none; }\n"
3308 	              "table.det th { text-align: left; border-width: 0px; padding: 0px 1px 0px 0px; font-style:normal;font-size:11px;font-weight:bold;font-family: sans-serif;}\n"
3309 	              "table.det td { text-align: right; border-width: 0px; padding: 0px 0px 0px 4px; white-space: nowrap; font-style:normal;font-size:11px;font-weight:normal;}\n"
3310 	              "u {text-decoration:none; border-bottom: 1px dotted black;}\n"
3311 		      "div.tips {\n"
3312 		      " display:block;\n"
3313 		      " visibility:hidden;\n"
3314 		      " z-index:2147483647;\n"
3315 		      " position:absolute;\n"
3316 		      " padding:2px 4px 3px;\n"
3317 		      " background:#f0f060; color:#000000;\n"
3318 		      " border:1px solid #7040c0;\n"
3319 		      " white-space:nowrap;\n"
3320 		      " font-style:normal;font-size:11px;font-weight:normal;\n"
3321 		      " -moz-border-radius:3px;-webkit-border-radius:3px;border-radius:3px;\n"
3322 		      " -moz-box-shadow:gray 2px 2px 3px;-webkit-box-shadow:gray 2px 2px 3px;box-shadow:gray 2px 2px 3px;\n"
3323 		      "}\n"
3324 		      "u:hover div.tips {visibility:visible;}\n"
3325 	              "-->\n"
3326 	              "</style></head>\n",
3327 	              (appctx->ctx.stats.flags & STAT_SHNODE) ? " on " : "",
3328 	              (appctx->ctx.stats.flags & STAT_SHNODE) ? (uri && uri->node ? uri->node : global.node) : ""
3329 	              );
3330 }
3331 
3332 /* Dumps the HTML stats information block to the trash for and uses the state from
3333  * stream interface <si> and per-uri parameters <uri>. The caller is responsible
3334  * for clearing the trash if needed.
3335  */
stats_dump_html_info(struct stream_interface * si,struct uri_auth * uri)3336 static void stats_dump_html_info(struct stream_interface *si, struct uri_auth *uri)
3337 {
3338 	struct appctx *appctx = __objt_appctx(si->end);
3339 	unsigned int up = (now.tv_sec - start_date.tv_sec);
3340 	char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN];
3341 	const char *scope_ptr = stats_scope_ptr(appctx, si);
3342 	unsigned long long bps = (unsigned long long)read_freq_ctr(&global.out_32bps) * 32;
3343 
3344 	/* Turn the bytes per second to bits per second and take care of the
3345 	 * usual ethernet overhead in order to help figure how far we are from
3346 	 * interface saturation since it's the only case which usually matters.
3347 	 * For this we count the total size of an Ethernet frame on the wire
3348 	 * including preamble and IFG (1538) for the largest TCP segment it
3349 	 * transports (1448 with TCP timestamps). This is not valid for smaller
3350 	 * packets (under-estimated), but it gives a reasonably accurate
3351 	 * estimation of how far we are from uplink saturation.
3352 	 */
3353 	bps = bps * 8 * 1538 / 1448;
3354 
3355 	/* WARNING! this has to fit the first packet too.
3356 	 * We are around 3.5 kB, add adding entries will
3357 	 * become tricky if we want to support 4kB buffers !
3358 	 */
3359 	chunk_appendf(&trash,
3360 	              "<body><h1><a href=\"" PRODUCT_URL "\" style=\"text-decoration: none;\">"
3361 	              PRODUCT_NAME "%s</a></h1>\n"
3362 	              "<h2>Statistics Report for pid %d%s%s%s%s</h2>\n"
3363 	              "<hr width=\"100%%\" class=\"hr\">\n"
3364 	              "<h3>&gt; General process information</h3>\n"
3365 	              "<table border=0><tr><td align=\"left\" nowrap width=\"1%%\">\n"
3366 	              "<p><b>pid = </b> %d (process #%d, nbproc = %d, nbthread = %d)<br>\n"
3367 	              "<b>uptime = </b> %dd %dh%02dm%02ds<br>\n"
3368 	              "<b>system limits:</b> memmax = %s%s; ulimit-n = %d<br>\n"
3369 	              "<b>maxsock = </b> %d; <b>maxconn = </b> %d; <b>maxpipes = </b> %d<br>\n"
3370 	              "current conns = %d; current pipes = %d/%d; conn rate = %d/sec; bit rate = %.3f %cbps<br>\n"
3371 	              "Running tasks: %d/%d; idle = %d %%<br>\n"
3372 	              "</td><td align=\"center\" nowrap>\n"
3373 	              "<table class=\"lgd\"><tr>\n"
3374 	              "<td class=\"active_up\">&nbsp;</td><td class=\"noborder\">active UP </td>"
3375 	              "<td class=\"backup_up\">&nbsp;</td><td class=\"noborder\">backup UP </td>"
3376 	              "</tr><tr>\n"
3377 	              "<td class=\"active_going_down\"></td><td class=\"noborder\">active UP, going down </td>"
3378 	              "<td class=\"backup_going_down\"></td><td class=\"noborder\">backup UP, going down </td>"
3379 	              "</tr><tr>\n"
3380 	              "<td class=\"active_going_up\"></td><td class=\"noborder\">active DOWN, going up </td>"
3381 	              "<td class=\"backup_going_up\"></td><td class=\"noborder\">backup DOWN, going up </td>"
3382 	              "</tr><tr>\n"
3383 	              "<td class=\"active_down\"></td><td class=\"noborder\">active or backup DOWN &nbsp;</td>"
3384 	              "<td class=\"active_no_check\"></td><td class=\"noborder\">not checked </td>"
3385 	              "</tr><tr>\n"
3386 	              "<td class=\"maintain\"></td><td class=\"noborder\" colspan=\"3\">active or backup DOWN for maintenance (MAINT) &nbsp;</td>"
3387 	              "</tr><tr>\n"
3388 	              "<td class=\"active_draining\"></td><td class=\"noborder\" colspan=\"3\">active or backup SOFT STOPPED for maintenance &nbsp;</td>"
3389 	              "</tr></table>\n"
3390 	              "Note: \"NOLB\"/\"DRAIN\" = UP with load-balancing disabled."
3391 	              "</td>"
3392 	              "<td align=\"left\" valign=\"top\" nowrap width=\"1%%\">"
3393 	              "<b>Display option:</b><ul style=\"margin-top: 0.25em;\">"
3394 	              "",
3395 	              (appctx->ctx.stats.flags & STAT_HIDEVER) ? "" : (stats_version_string),
3396 	              pid, (appctx->ctx.stats.flags & STAT_SHNODE) ? " on " : "",
3397 		      (appctx->ctx.stats.flags & STAT_SHNODE) ? (uri->node ? uri->node : global.node) : "",
3398 	              (appctx->ctx.stats.flags & STAT_SHDESC) ? ": " : "",
3399 		      (appctx->ctx.stats.flags & STAT_SHDESC) ? (uri->desc ? uri->desc : global.desc) : "",
3400 	              pid, relative_pid, global.nbproc, global.nbthread,
3401 	              up / 86400, (up % 86400) / 3600,
3402 	              (up % 3600) / 60, (up % 60),
3403 	              global.rlimit_memmax ? ultoa(global.rlimit_memmax) : "unlimited",
3404 	              global.rlimit_memmax ? " MB" : "",
3405 	              global.rlimit_nofile,
3406 	              global.maxsock, global.maxconn, global.maxpipes,
3407 	              actconn, pipes_used, pipes_used+pipes_free, read_freq_ctr(&global.conn_per_sec),
3408 		      bps >= 1000000000UL ? (bps / 1000000000.0) : bps >= 1000000UL ? (bps / 1000000.0) : (bps / 1000.0),
3409 		      bps >= 1000000000UL ? 'G' : bps >= 1000000UL ? 'M' : 'k',
3410 	              total_run_queues(), total_allocated_tasks(), report_idle()
3411 	              );
3412 
3413 	/* scope_txt = search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */
3414 	memcpy(scope_txt, scope_ptr, appctx->ctx.stats.scope_len);
3415 	scope_txt[appctx->ctx.stats.scope_len] = '\0';
3416 
3417 	chunk_appendf(&trash,
3418 		      "<li><form method=\"GET\">Scope : <input value=\"%s\" name=\"" STAT_SCOPE_INPUT_NAME "\" size=\"8\" maxlength=\"%d\" tabindex=\"1\"/></form>\n",
3419 		      (appctx->ctx.stats.scope_len > 0) ? scope_txt : "",
3420 		      STAT_SCOPE_TXT_MAXLEN);
3421 
3422 	/* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */
3423 	scope_txt[0] = 0;
3424 	if (appctx->ctx.stats.scope_len) {
3425 		strcpy(scope_txt, STAT_SCOPE_PATTERN);
3426 		memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), scope_ptr, appctx->ctx.stats.scope_len);
3427 		scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0;
3428 	}
3429 
3430 	if (appctx->ctx.stats.flags & STAT_HIDE_DOWN)
3431 		chunk_appendf(&trash,
3432 		              "<li><a href=\"%s%s%s%s\">Show all servers</a><br>\n",
3433 		              uri->uri_prefix,
3434 		              "",
3435 		              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3436 			      scope_txt);
3437 	else
3438 		chunk_appendf(&trash,
3439 		              "<li><a href=\"%s%s%s%s\">Hide 'DOWN' servers</a><br>\n",
3440 		              uri->uri_prefix,
3441 		              ";up",
3442 		              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3443 			      scope_txt);
3444 
3445 	if (uri->refresh > 0) {
3446 		if (appctx->ctx.stats.flags & STAT_NO_REFRESH)
3447 			chunk_appendf(&trash,
3448 			              "<li><a href=\"%s%s%s%s\">Enable refresh</a><br>\n",
3449 			              uri->uri_prefix,
3450 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3451 			              "",
3452 				      scope_txt);
3453 		else
3454 			chunk_appendf(&trash,
3455 			              "<li><a href=\"%s%s%s%s\">Disable refresh</a><br>\n",
3456 			              uri->uri_prefix,
3457 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3458 			              ";norefresh",
3459 				      scope_txt);
3460 	}
3461 
3462 	chunk_appendf(&trash,
3463 	              "<li><a href=\"%s%s%s%s\">Refresh now</a><br>\n",
3464 	              uri->uri_prefix,
3465 	              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3466 	              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3467 		      scope_txt);
3468 
3469 	chunk_appendf(&trash,
3470 	              "<li><a href=\"%s;csv%s%s\">CSV export</a><br>\n",
3471 	              uri->uri_prefix,
3472 	              (uri->refresh > 0) ? ";norefresh" : "",
3473 		      scope_txt);
3474 
3475 	chunk_appendf(&trash,
3476 	              "<li><a href=\"%s;json%s%s\">JSON export</a> (<a href=\"%s;json-schema\">schema</a>)<br>\n",
3477 	              uri->uri_prefix,
3478 	              (uri->refresh > 0) ? ";norefresh" : "",
3479 		      scope_txt, uri->uri_prefix);
3480 
3481 	chunk_appendf(&trash,
3482 	              "</ul></td>"
3483 	              "<td align=\"left\" valign=\"top\" nowrap width=\"1%%\">"
3484 	              "<b>External resources:</b><ul style=\"margin-top: 0.25em;\">\n"
3485 	              "<li><a href=\"" PRODUCT_URL "\">Primary site</a><br>\n"
3486 	              "<li><a href=\"" PRODUCT_URL_UPD "\">Updates (v" PRODUCT_BRANCH ")</a><br>\n"
3487 	              "<li><a href=\"" PRODUCT_URL_DOC "\">Online manual</a><br>\n"
3488 	              "</ul>"
3489 	              "</td>"
3490 	              "</tr></table>\n"
3491 	              ""
3492 	              );
3493 
3494 	if (appctx->ctx.stats.st_code) {
3495 		switch (appctx->ctx.stats.st_code) {
3496 		case STAT_STATUS_DONE:
3497 			chunk_appendf(&trash,
3498 			              "<p><div class=active_up>"
3499 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3500 			              "Action processed successfully."
3501 			              "</div>\n", uri->uri_prefix,
3502 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3503 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3504 			              scope_txt);
3505 			break;
3506 		case STAT_STATUS_NONE:
3507 			chunk_appendf(&trash,
3508 			              "<p><div class=active_going_down>"
3509 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3510 			              "Nothing has changed."
3511 			              "</div>\n", uri->uri_prefix,
3512 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3513 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3514 			              scope_txt);
3515 			break;
3516 		case STAT_STATUS_PART:
3517 			chunk_appendf(&trash,
3518 			              "<p><div class=active_going_down>"
3519 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3520 			              "Action partially processed.<br>"
3521 			              "Some server names are probably unknown or ambiguous (duplicated names in the backend)."
3522 			              "</div>\n", uri->uri_prefix,
3523 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3524 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3525 			              scope_txt);
3526 			break;
3527 		case STAT_STATUS_ERRP:
3528 			chunk_appendf(&trash,
3529 			              "<p><div class=active_down>"
3530 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3531 			              "Action not processed because of invalid parameters."
3532 			              "<ul>"
3533 			              "<li>The action is maybe unknown.</li>"
3534 				      "<li>Invalid key parameter (empty or too long).</li>"
3535 			              "<li>The backend name is probably unknown or ambiguous (duplicated names).</li>"
3536 			              "<li>Some server names are probably unknown or ambiguous (duplicated names in the backend).</li>"
3537 			              "</ul>"
3538 			              "</div>\n", uri->uri_prefix,
3539 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3540 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3541 			              scope_txt);
3542 			break;
3543 		case STAT_STATUS_EXCD:
3544 			chunk_appendf(&trash,
3545 			              "<p><div class=active_down>"
3546 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3547 			              "<b>Action not processed : the buffer couldn't store all the data.<br>"
3548 			              "You should retry with less servers at a time.</b>"
3549 			              "</div>\n", uri->uri_prefix,
3550 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3551 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3552 			              scope_txt);
3553 			break;
3554 		case STAT_STATUS_DENY:
3555 			chunk_appendf(&trash,
3556 			              "<p><div class=active_down>"
3557 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3558 			              "<b>Action denied.</b>"
3559 			              "</div>\n", uri->uri_prefix,
3560 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3561 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3562 			              scope_txt);
3563 			break;
3564 		case STAT_STATUS_IVAL:
3565 			chunk_appendf(&trash,
3566 			              "<p><div class=active_down>"
3567 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3568 			              "<b>Invalid requests (unsupported method or chunked encoded request).</b>"
3569 			              "</div>\n", uri->uri_prefix,
3570 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3571 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3572 			              scope_txt);
3573 			break;
3574 		default:
3575 			chunk_appendf(&trash,
3576 			              "<p><div class=active_no_check>"
3577 			              "<a class=lfsb href=\"%s%s%s%s\" title=\"Remove this message\">[X]</a> "
3578 			              "Unexpected result."
3579 			              "</div>\n", uri->uri_prefix,
3580 			              (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
3581 			              (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
3582 			              scope_txt);
3583 		}
3584 		chunk_appendf(&trash, "<p>\n");
3585 	}
3586 }
3587 
3588 /* Dumps the HTML stats trailer block to the trash. The caller is responsible
3589  * for clearing the trash if needed.
3590  */
stats_dump_html_end()3591 static void stats_dump_html_end()
3592 {
3593 	chunk_appendf(&trash, "</body></html>\n");
3594 }
3595 
3596 /* Dumps the stats JSON header to the trash buffer which. The caller is responsible
3597  * for clearing it if needed.
3598  */
stats_dump_json_header()3599 static void stats_dump_json_header()
3600 {
3601 	chunk_strcat(&trash, "[");
3602 }
3603 
3604 
3605 /* Dumps the JSON stats trailer block to the trash. The caller is responsible
3606  * for clearing the trash if needed.
3607  */
stats_dump_json_end()3608 static void stats_dump_json_end()
3609 {
3610 	chunk_strcat(&trash, "]");
3611 }
3612 
3613 /* Uses <appctx.ctx.stats.obj1> as a pointer to the current proxy and <obj2> as
3614  * a pointer to the current server/listener.
3615  */
stats_dump_proxies(struct stream_interface * si,struct htx * htx,struct uri_auth * uri)3616 static int stats_dump_proxies(struct stream_interface *si,
3617                               struct htx *htx,
3618                               struct uri_auth *uri)
3619 {
3620 	struct appctx *appctx = __objt_appctx(si->end);
3621 	struct channel *rep = si_ic(si);
3622 	struct proxy *px;
3623 
3624 	/* dump proxies */
3625 	while (appctx->ctx.stats.obj1) {
3626 		if (htx) {
3627 			if (htx_almost_full(htx))
3628 				goto full;
3629 		}
3630 		else {
3631 			if (buffer_almost_full(&rep->buf))
3632 				goto full;
3633 		}
3634 
3635 		px = appctx->ctx.stats.obj1;
3636 		/* skip the disabled proxies, global frontend and non-networked ones */
3637 		if (!px->disabled && px->uuid > 0 && (px->cap & (PR_CAP_FE | PR_CAP_BE))) {
3638 			if (stats_dump_proxy_to_buffer(si, htx, px, uri) == 0)
3639 				return 0;
3640 		}
3641 
3642 		appctx->ctx.stats.obj1 = px->next;
3643 		appctx->ctx.stats.px_st = STAT_PX_ST_INIT;
3644 	}
3645 
3646 	return 1;
3647 
3648   full:
3649 	si_rx_room_blk(si);
3650 	return 0;
3651 }
3652 
3653 /* This function dumps statistics onto the stream interface's read buffer in
3654  * either CSV or HTML format. <uri> contains some HTML-specific parameters that
3655  * are ignored for CSV format (hence <uri> may be NULL there). It returns 0 if
3656  * it had to stop writing data and an I/O is needed, 1 if the dump is finished
3657  * and the stream must be closed, or -1 in case of any error. This function is
3658  * used by both the CLI and the HTTP handlers.
3659  */
stats_dump_stat_to_buffer(struct stream_interface * si,struct htx * htx,struct uri_auth * uri)3660 static int stats_dump_stat_to_buffer(struct stream_interface *si, struct htx *htx,
3661 				     struct uri_auth *uri)
3662 {
3663 	struct appctx *appctx = __objt_appctx(si->end);
3664 	struct channel *rep = si_ic(si);
3665 	enum stats_domain domain = appctx->ctx.stats.domain;
3666 
3667 	chunk_reset(&trash);
3668 
3669 	switch (appctx->st2) {
3670 	case STAT_ST_INIT:
3671 		appctx->st2 = STAT_ST_HEAD; /* let's start producing data */
3672 		/* fall through */
3673 
3674 	case STAT_ST_HEAD:
3675 		if (appctx->ctx.stats.flags & STAT_FMT_HTML)
3676 			stats_dump_html_head(appctx, uri);
3677 		else if (appctx->ctx.stats.flags & STAT_JSON_SCHM)
3678 			stats_dump_json_schema(&trash);
3679 		else if (appctx->ctx.stats.flags & STAT_FMT_JSON)
3680 			stats_dump_json_header();
3681 		else if (!(appctx->ctx.stats.flags & STAT_FMT_TYPED))
3682 			stats_dump_csv_header(appctx->ctx.stats.domain);
3683 
3684 		if (!stats_putchk(rep, htx, &trash))
3685 			goto full;
3686 
3687 		if (appctx->ctx.stats.flags & STAT_JSON_SCHM) {
3688 			appctx->st2 = STAT_ST_FIN;
3689 			return 1;
3690 		}
3691 		appctx->st2 = STAT_ST_INFO;
3692 		/* fall through */
3693 
3694 	case STAT_ST_INFO:
3695 		if (appctx->ctx.stats.flags & STAT_FMT_HTML) {
3696 			stats_dump_html_info(si, uri);
3697 			if (!stats_putchk(rep, htx, &trash))
3698 				goto full;
3699 		}
3700 
3701 		if (domain == STATS_DOMAIN_PROXY)
3702 			appctx->ctx.stats.obj1 = proxies_list;
3703 
3704 		appctx->ctx.stats.px_st = STAT_PX_ST_INIT;
3705 		appctx->st2 = STAT_ST_LIST;
3706 		/* fall through */
3707 
3708 	case STAT_ST_LIST:
3709 		switch (domain) {
3710 		case STATS_DOMAIN_DNS:
3711 			if (!stats_dump_resolvers(si, stat_l[domain],
3712 			                          stat_count[domain],
3713 			                          &stats_module_list[domain])) {
3714 				return 0;
3715 			}
3716 			break;
3717 
3718 		case STATS_DOMAIN_PROXY:
3719 		default:
3720 			/* dump proxies */
3721 			if (!stats_dump_proxies(si, htx, uri))
3722 				return 0;
3723 			break;
3724 		}
3725 
3726 		appctx->st2 = STAT_ST_END;
3727 		/* fall through */
3728 
3729 	case STAT_ST_END:
3730 		if (appctx->ctx.stats.flags & (STAT_FMT_HTML|STAT_FMT_JSON)) {
3731 			if (appctx->ctx.stats.flags & STAT_FMT_HTML)
3732 				stats_dump_html_end();
3733 			else
3734 				stats_dump_json_end();
3735 			if (!stats_putchk(rep, htx, &trash))
3736 				goto full;
3737 		}
3738 
3739 		appctx->st2 = STAT_ST_FIN;
3740 		/* fall through */
3741 
3742 	case STAT_ST_FIN:
3743 		return 1;
3744 
3745 	default:
3746 		/* unknown state ! */
3747 		appctx->st2 = STAT_ST_FIN;
3748 		return -1;
3749 	}
3750 
3751   full:
3752 	si_rx_room_blk(si);
3753 	return 0;
3754 
3755 }
3756 
3757 /* We reached the stats page through a POST request. The appctx is
3758  * expected to have already been allocated by the caller.
3759  * Parse the posted data and enable/disable servers if necessary.
3760  * Returns 1 if request was parsed or zero if it needs more data.
3761  */
stats_process_http_post(struct stream_interface * si)3762 static int stats_process_http_post(struct stream_interface *si)
3763 {
3764 	struct stream *s = si_strm(si);
3765 	struct appctx *appctx = objt_appctx(si->end);
3766 
3767 	struct proxy *px = NULL;
3768 	struct server *sv = NULL;
3769 
3770 	char key[LINESIZE];
3771 	int action = ST_ADM_ACTION_NONE;
3772 	int reprocess = 0;
3773 
3774 	int total_servers = 0;
3775 	int altered_servers = 0;
3776 
3777 	char *first_param, *cur_param, *next_param, *end_params;
3778 	char *st_cur_param = NULL;
3779 	char *st_next_param = NULL;
3780 
3781 	struct buffer *temp = get_trash_chunk();
3782 
3783 	struct htx *htx = htxbuf(&s->req.buf);
3784 	struct htx_blk *blk;
3785 
3786 	/*  we need more data */
3787 	if (s->txn->req.msg_state < HTTP_MSG_DONE) {
3788 		/* check if we can receive more */
3789 		if (htx_free_data_space(htx) <= global.tune.maxrewrite) {
3790 			appctx->ctx.stats.st_code = STAT_STATUS_EXCD;
3791 			goto out;
3792 		}
3793 		goto wait;
3794 	}
3795 
3796 	/* The request was fully received. Copy data */
3797 	blk = htx_get_head_blk(htx);
3798 	while (blk) {
3799 		enum htx_blk_type type = htx_get_blk_type(blk);
3800 
3801 		if (type == HTX_BLK_TLR || type == HTX_BLK_EOT)
3802 			break;
3803 		if (type == HTX_BLK_DATA) {
3804 			struct ist v = htx_get_blk_value(htx, blk);
3805 
3806 			if (!chunk_memcat(temp, v.ptr, v.len)) {
3807 				appctx->ctx.stats.st_code = STAT_STATUS_EXCD;
3808 				goto out;
3809 			}
3810 		}
3811 		blk = htx_get_next_blk(htx, blk);
3812 	}
3813 
3814 	first_param = temp->area;
3815 	end_params  = temp->area + temp->data;
3816 	cur_param = next_param = end_params;
3817 	*end_params = '\0';
3818 
3819 	appctx->ctx.stats.st_code = STAT_STATUS_NONE;
3820 
3821 	/*
3822 	 * Parse the parameters in reverse order to only store the last value.
3823 	 * From the html form, the backend and the action are at the end.
3824 	 */
3825 	while (cur_param > first_param) {
3826 		char *value;
3827 		int poffset, plen;
3828 
3829 		cur_param--;
3830 
3831 		if ((*cur_param == '&') || (cur_param == first_param)) {
3832 		reprocess_servers:
3833 			/* Parse the key */
3834 			poffset = (cur_param != first_param ? 1 : 0);
3835 			plen = next_param - cur_param + (cur_param == first_param ? 1 : 0);
3836 			if ((plen > 0) && (plen <= sizeof(key))) {
3837 				strncpy(key, cur_param + poffset, plen);
3838 				key[plen - 1] = '\0';
3839 			} else {
3840 				appctx->ctx.stats.st_code = STAT_STATUS_ERRP;
3841 				goto out;
3842 			}
3843 
3844 			/* Parse the value */
3845 			value = key;
3846 			while (*value != '\0' && *value != '=') {
3847 				value++;
3848 			}
3849 			if (*value == '=') {
3850 				/* Ok, a value is found, we can mark the end of the key */
3851 				*value++ = '\0';
3852 			}
3853 			if (url_decode(key, 1) < 0 || url_decode(value, 1) < 0)
3854 				break;
3855 
3856 			/* Now we can check the key to see what to do */
3857 			if (!px && (strcmp(key, "b") == 0)) {
3858 				if ((px = proxy_be_by_name(value)) == NULL) {
3859 					/* the backend name is unknown or ambiguous (duplicate names) */
3860 					appctx->ctx.stats.st_code = STAT_STATUS_ERRP;
3861 					goto out;
3862 				}
3863 			}
3864 			else if (!action && (strcmp(key, "action") == 0)) {
3865 				if (strcmp(value, "ready") == 0) {
3866 					action = ST_ADM_ACTION_READY;
3867 				}
3868 				else if (strcmp(value, "drain") == 0) {
3869 					action = ST_ADM_ACTION_DRAIN;
3870 				}
3871 				else if (strcmp(value, "maint") == 0) {
3872 					action = ST_ADM_ACTION_MAINT;
3873 				}
3874 				else if (strcmp(value, "shutdown") == 0) {
3875 					action = ST_ADM_ACTION_SHUTDOWN;
3876 				}
3877 				else if (strcmp(value, "dhlth") == 0) {
3878 					action = ST_ADM_ACTION_DHLTH;
3879 				}
3880 				else if (strcmp(value, "ehlth") == 0) {
3881 					action = ST_ADM_ACTION_EHLTH;
3882 				}
3883 				else if (strcmp(value, "hrunn") == 0) {
3884 					action = ST_ADM_ACTION_HRUNN;
3885 				}
3886 				else if (strcmp(value, "hnolb") == 0) {
3887 					action = ST_ADM_ACTION_HNOLB;
3888 				}
3889 				else if (strcmp(value, "hdown") == 0) {
3890 					action = ST_ADM_ACTION_HDOWN;
3891 				}
3892 				else if (strcmp(value, "dagent") == 0) {
3893 					action = ST_ADM_ACTION_DAGENT;
3894 				}
3895 				else if (strcmp(value, "eagent") == 0) {
3896 					action = ST_ADM_ACTION_EAGENT;
3897 				}
3898 				else if (strcmp(value, "arunn") == 0) {
3899 					action = ST_ADM_ACTION_ARUNN;
3900 				}
3901 				else if (strcmp(value, "adown") == 0) {
3902 					action = ST_ADM_ACTION_ADOWN;
3903 				}
3904 				/* else these are the old supported methods */
3905 				else if (strcmp(value, "disable") == 0) {
3906 					action = ST_ADM_ACTION_DISABLE;
3907 				}
3908 				else if (strcmp(value, "enable") == 0) {
3909 					action = ST_ADM_ACTION_ENABLE;
3910 				}
3911 				else if (strcmp(value, "stop") == 0) {
3912 					action = ST_ADM_ACTION_STOP;
3913 				}
3914 				else if (strcmp(value, "start") == 0) {
3915 					action = ST_ADM_ACTION_START;
3916 				}
3917 				else {
3918 					appctx->ctx.stats.st_code = STAT_STATUS_ERRP;
3919 					goto out;
3920 				}
3921 			}
3922 			else if (strcmp(key, "s") == 0) {
3923 				if (!(px && action)) {
3924 					/*
3925 					 * Indicates that we'll need to reprocess the parameters
3926 					 * as soon as backend and action are known
3927 					 */
3928 					if (!reprocess) {
3929 						st_cur_param  = cur_param;
3930 						st_next_param = next_param;
3931 					}
3932 					reprocess = 1;
3933 				}
3934 				else if ((sv = findserver(px, value)) != NULL) {
3935 					HA_SPIN_LOCK(SERVER_LOCK, &sv->lock);
3936 					switch (action) {
3937 					case ST_ADM_ACTION_DISABLE:
3938 						if (!(sv->cur_admin & SRV_ADMF_FMAINT)) {
3939 							altered_servers++;
3940 							total_servers++;
3941 							srv_set_admin_flag(sv, SRV_ADMF_FMAINT, "'disable' on stats page");
3942 						}
3943 						break;
3944 					case ST_ADM_ACTION_ENABLE:
3945 						if (sv->cur_admin & SRV_ADMF_FMAINT) {
3946 							altered_servers++;
3947 							total_servers++;
3948 							srv_clr_admin_flag(sv, SRV_ADMF_FMAINT);
3949 						}
3950 						break;
3951 					case ST_ADM_ACTION_STOP:
3952 						if (!(sv->cur_admin & SRV_ADMF_FDRAIN)) {
3953 							srv_set_admin_flag(sv, SRV_ADMF_FDRAIN, "'stop' on stats page");
3954 							altered_servers++;
3955 							total_servers++;
3956 						}
3957 						break;
3958 					case ST_ADM_ACTION_START:
3959 						if (sv->cur_admin & SRV_ADMF_FDRAIN) {
3960 							srv_clr_admin_flag(sv, SRV_ADMF_FDRAIN);
3961 							altered_servers++;
3962 							total_servers++;
3963 						}
3964 						break;
3965 					case ST_ADM_ACTION_DHLTH:
3966 						if (sv->check.state & CHK_ST_CONFIGURED) {
3967 							sv->check.state &= ~CHK_ST_ENABLED;
3968 							altered_servers++;
3969 							total_servers++;
3970 						}
3971 						break;
3972 					case ST_ADM_ACTION_EHLTH:
3973 						if (sv->check.state & CHK_ST_CONFIGURED) {
3974 							sv->check.state |= CHK_ST_ENABLED;
3975 							altered_servers++;
3976 							total_servers++;
3977 						}
3978 						break;
3979 					case ST_ADM_ACTION_HRUNN:
3980 						if (!(sv->track)) {
3981 							sv->check.health = sv->check.rise + sv->check.fall - 1;
3982 							srv_set_running(sv, "changed from Web interface", NULL);
3983 							altered_servers++;
3984 							total_servers++;
3985 						}
3986 						break;
3987 					case ST_ADM_ACTION_HNOLB:
3988 						if (!(sv->track)) {
3989 							sv->check.health = sv->check.rise + sv->check.fall - 1;
3990 							srv_set_stopping(sv, "changed from Web interface", NULL);
3991 							altered_servers++;
3992 							total_servers++;
3993 						}
3994 						break;
3995 					case ST_ADM_ACTION_HDOWN:
3996 						if (!(sv->track)) {
3997 							sv->check.health = 0;
3998 							srv_set_stopped(sv, "changed from Web interface", NULL);
3999 							altered_servers++;
4000 							total_servers++;
4001 						}
4002 						break;
4003 					case ST_ADM_ACTION_DAGENT:
4004 						if (sv->agent.state & CHK_ST_CONFIGURED) {
4005 							sv->agent.state &= ~CHK_ST_ENABLED;
4006 							altered_servers++;
4007 							total_servers++;
4008 						}
4009 						break;
4010 					case ST_ADM_ACTION_EAGENT:
4011 						if (sv->agent.state & CHK_ST_CONFIGURED) {
4012 							sv->agent.state |= CHK_ST_ENABLED;
4013 							altered_servers++;
4014 							total_servers++;
4015 						}
4016 						break;
4017 					case ST_ADM_ACTION_ARUNN:
4018 						if (sv->agent.state & CHK_ST_ENABLED) {
4019 							sv->agent.health = sv->agent.rise + sv->agent.fall - 1;
4020 							srv_set_running(sv, "changed from Web interface", NULL);
4021 							altered_servers++;
4022 							total_servers++;
4023 						}
4024 						break;
4025 					case ST_ADM_ACTION_ADOWN:
4026 						if (sv->agent.state & CHK_ST_ENABLED) {
4027 							sv->agent.health = 0;
4028 							srv_set_stopped(sv, "changed from Web interface", NULL);
4029 							altered_servers++;
4030 							total_servers++;
4031 						}
4032 						break;
4033 					case ST_ADM_ACTION_READY:
4034 						srv_adm_set_ready(sv);
4035 						altered_servers++;
4036 						total_servers++;
4037 						break;
4038 					case ST_ADM_ACTION_DRAIN:
4039 						srv_adm_set_drain(sv);
4040 						altered_servers++;
4041 						total_servers++;
4042 						break;
4043 					case ST_ADM_ACTION_MAINT:
4044 						srv_adm_set_maint(sv);
4045 						altered_servers++;
4046 						total_servers++;
4047 						break;
4048 					case ST_ADM_ACTION_SHUTDOWN:
4049 						if (!px->disabled) {
4050 							srv_shutdown_streams(sv, SF_ERR_KILLED);
4051 							altered_servers++;
4052 							total_servers++;
4053 						}
4054 						break;
4055 					}
4056 					HA_SPIN_UNLOCK(SERVER_LOCK, &sv->lock);
4057 				} else {
4058 					/* the server name is unknown or ambiguous (duplicate names) */
4059 					total_servers++;
4060 				}
4061 			}
4062 			if (reprocess && px && action) {
4063 				/* Now, we know the backend and the action chosen by the user.
4064 				 * We can safely restart from the first server parameter
4065 				 * to reprocess them
4066 				 */
4067 				cur_param  = st_cur_param;
4068 				next_param = st_next_param;
4069 				reprocess = 0;
4070 				goto reprocess_servers;
4071 			}
4072 
4073 			next_param = cur_param;
4074 		}
4075 	}
4076 
4077 	if (total_servers == 0) {
4078 		appctx->ctx.stats.st_code = STAT_STATUS_NONE;
4079 	}
4080 	else if (altered_servers == 0) {
4081 		appctx->ctx.stats.st_code = STAT_STATUS_ERRP;
4082 	}
4083 	else if (altered_servers == total_servers) {
4084 		appctx->ctx.stats.st_code = STAT_STATUS_DONE;
4085 	}
4086 	else {
4087 		appctx->ctx.stats.st_code = STAT_STATUS_PART;
4088 	}
4089  out:
4090 	return 1;
4091  wait:
4092 	appctx->ctx.stats.st_code = STAT_STATUS_NONE;
4093 	return 0;
4094 }
4095 
4096 
stats_send_http_headers(struct stream_interface * si,struct htx * htx)4097 static int stats_send_http_headers(struct stream_interface *si, struct htx *htx)
4098 {
4099 	struct stream *s = si_strm(si);
4100 	struct uri_auth *uri = s->be->uri_auth;
4101 	struct appctx *appctx = __objt_appctx(si->end);
4102 	struct htx_sl *sl;
4103 	unsigned int flags;
4104 
4105 	flags = (HTX_SL_F_IS_RESP|HTX_SL_F_VER_11|HTX_SL_F_XFER_ENC|HTX_SL_F_XFER_LEN|HTX_SL_F_CHNK);
4106 	sl = htx_add_stline(htx, HTX_BLK_RES_SL, flags, ist("HTTP/1.1"), ist("200"), ist("OK"));
4107 	if (!sl)
4108 		goto full;
4109 	sl->info.res.status = 200;
4110 
4111 	if (!htx_add_header(htx, ist("Cache-Control"), ist("no-cache")))
4112 		goto full;
4113 	if (appctx->ctx.stats.flags & STAT_FMT_HTML) {
4114 		if (!htx_add_header(htx, ist("Content-Type"), ist("text/html")))
4115 			goto full;
4116 	}
4117 	else if (appctx->ctx.stats.flags & (STAT_FMT_JSON|STAT_JSON_SCHM)) {
4118 		if (!htx_add_header(htx, ist("Content-Type"), ist("application/json")))
4119 			goto full;
4120 	}
4121 	else {
4122 		if (!htx_add_header(htx, ist("Content-Type"), ist("text/plain")))
4123 			goto full;
4124 	}
4125 
4126 	if (uri->refresh > 0 && !(appctx->ctx.stats.flags & STAT_NO_REFRESH)) {
4127 		const char *refresh = U2A(uri->refresh);
4128 		if (!htx_add_header(htx, ist("Refresh"), ist(refresh)))
4129 			goto full;
4130 	}
4131 
4132 	if (appctx->ctx.stats.flags & STAT_CHUNKED) {
4133 		if (!htx_add_header(htx, ist("Transfer-Encoding"), ist("chunked")))
4134 			goto full;
4135 	}
4136 
4137 	if (!htx_add_endof(htx, HTX_BLK_EOH))
4138 		goto full;
4139 
4140 	channel_add_input(&s->res, htx->data);
4141 	return 1;
4142 
4143   full:
4144 	htx_reset(htx);
4145 	si_rx_room_blk(si);
4146 	return 0;
4147 }
4148 
4149 
stats_send_http_redirect(struct stream_interface * si,struct htx * htx)4150 static int stats_send_http_redirect(struct stream_interface *si, struct htx *htx)
4151 {
4152 	char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN];
4153 	struct stream *s = si_strm(si);
4154 	struct uri_auth *uri = s->be->uri_auth;
4155 	struct appctx *appctx = __objt_appctx(si->end);
4156 	struct htx_sl *sl;
4157 	unsigned int flags;
4158 
4159 	/* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */
4160 	scope_txt[0] = 0;
4161 	if (appctx->ctx.stats.scope_len) {
4162 		const char *scope_ptr = stats_scope_ptr(appctx, si);
4163 
4164 		strcpy(scope_txt, STAT_SCOPE_PATTERN);
4165 		memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), scope_ptr, appctx->ctx.stats.scope_len);
4166 		scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0;
4167 	}
4168 
4169 	/* We don't want to land on the posted stats page because a refresh will
4170 	 * repost the data. We don't want this to happen on accident so we redirect
4171 	 * the browse to the stats page with a GET.
4172 	 */
4173 	chunk_printf(&trash, "%s;st=%s%s%s%s",
4174 		     uri->uri_prefix,
4175 		     ((appctx->ctx.stats.st_code > STAT_STATUS_INIT) &&
4176 		      (appctx->ctx.stats.st_code < STAT_STATUS_SIZE) &&
4177 		      stat_status_codes[appctx->ctx.stats.st_code]) ?
4178 		     stat_status_codes[appctx->ctx.stats.st_code] :
4179 		     stat_status_codes[STAT_STATUS_UNKN],
4180 		     (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "",
4181 		     (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "",
4182 		     scope_txt);
4183 
4184 	flags = (HTX_SL_F_IS_RESP|HTX_SL_F_VER_11|HTX_SL_F_XFER_LEN|HTX_SL_F_CHNK);
4185 	sl = htx_add_stline(htx, HTX_BLK_RES_SL, flags, ist("HTTP/1.1"), ist("303"), ist("See Other"));
4186 	if (!sl)
4187 		goto full;
4188 	sl->info.res.status = 303;
4189 
4190 	if (!htx_add_header(htx, ist("Cache-Control"), ist("no-cache")) ||
4191 	    !htx_add_header(htx, ist("Content-Type"), ist("text/plain")) ||
4192 	    !htx_add_header(htx, ist("Content-Length"), ist("0")) ||
4193 	    !htx_add_header(htx, ist("Location"), ist2(trash.area, trash.data)))
4194 		goto full;
4195 
4196 	if (!htx_add_endof(htx, HTX_BLK_EOH))
4197 		goto full;
4198 
4199 	channel_add_input(&s->res, htx->data);
4200 	return 1;
4201 
4202 full:
4203 	htx_reset(htx);
4204 	si_rx_room_blk(si);
4205 	return 0;
4206 }
4207 
4208 
4209 /* This I/O handler runs as an applet embedded in a stream interface. It is
4210  * used to send HTTP stats over a TCP socket. The mechanism is very simple.
4211  * appctx->st0 contains the operation in progress (dump, done). The handler
4212  * automatically unregisters itself once transfer is complete.
4213  */
http_stats_io_handler(struct appctx * appctx)4214 static void http_stats_io_handler(struct appctx *appctx)
4215 {
4216 	struct stream_interface *si = appctx->owner;
4217 	struct stream *s = si_strm(si);
4218 	struct channel *req = si_oc(si);
4219 	struct channel *res = si_ic(si);
4220 	struct htx *req_htx, *res_htx;
4221 
4222 	/* only proxy stats are available via http */
4223 	appctx->ctx.stats.domain = STATS_DOMAIN_PROXY;
4224 
4225 	res_htx = htx_from_buf(&res->buf);
4226 
4227 	if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO))
4228 		goto out;
4229 
4230 	/* Check if the input buffer is available. */
4231 	if (!b_size(&res->buf)) {
4232 		si_rx_room_blk(si);
4233 		goto out;
4234 	}
4235 
4236 	/* check that the output is not closed */
4237 	if (res->flags & (CF_SHUTW|CF_SHUTW_NOW|CF_SHUTR))
4238 		appctx->st0 = STAT_HTTP_END;
4239 
4240 	/* all states are processed in sequence */
4241 	if (appctx->st0 == STAT_HTTP_HEAD) {
4242 		if (stats_send_http_headers(si, res_htx)) {
4243 			if (s->txn->meth == HTTP_METH_HEAD)
4244 				appctx->st0 = STAT_HTTP_DONE;
4245 			else
4246 				appctx->st0 = STAT_HTTP_DUMP;
4247 		}
4248 	}
4249 
4250 	if (appctx->st0 == STAT_HTTP_DUMP) {
4251 		if (stats_dump_stat_to_buffer(si, res_htx, s->be->uri_auth))
4252 			appctx->st0 = STAT_HTTP_DONE;
4253 	}
4254 
4255 	if (appctx->st0 == STAT_HTTP_POST) {
4256 		if (stats_process_http_post(si))
4257 			appctx->st0 = STAT_HTTP_LAST;
4258 		else if (req->flags & CF_SHUTR)
4259 			appctx->st0 = STAT_HTTP_DONE;
4260 	}
4261 
4262 	if (appctx->st0 == STAT_HTTP_LAST) {
4263 		if (stats_send_http_redirect(si, res_htx))
4264 			appctx->st0 = STAT_HTTP_DONE;
4265 	}
4266 
4267 	if (appctx->st0 == STAT_HTTP_DONE) {
4268 		/* no more data are expected. Don't add TLR because mux-h1 will take care of it */
4269 		res_htx->flags |= HTX_FL_EOM;
4270 		appctx->st0 = STAT_HTTP_END;
4271 	}
4272 
4273 	if (appctx->st0 == STAT_HTTP_END) {
4274 		if (!(res->flags & CF_SHUTR)) {
4275 			res->flags |= CF_READ_NULL;
4276 			si_shutr(si);
4277 		}
4278 
4279 		/* eat the whole request */
4280 		if (co_data(req)) {
4281 			req_htx = htx_from_buf(&req->buf);
4282 			co_htx_skip(req, req_htx, co_data(req));
4283 			htx_to_buf(req_htx, &req->buf);
4284 		}
4285 	}
4286 
4287  out:
4288 	/* we have left the request in the buffer for the case where we
4289 	 * process a POST, and this automatically re-enables activity on
4290 	 * read. It's better to indicate that we want to stop reading when
4291 	 * we're sending, so that we know there's at most one direction
4292 	 * deciding to wake the applet up. It saves it from looping when
4293 	 * emitting large blocks into small TCP windows.
4294 	 */
4295 	htx_to_buf(res_htx, &res->buf);
4296 	if (!channel_is_empty(res))
4297 		si_stop_get(si);
4298 }
4299 
4300 /* Dump all fields from <info> into <out> using the "show info" format (name: value) */
stats_dump_info_fields(struct buffer * out,const struct field * info,unsigned int flags)4301 static int stats_dump_info_fields(struct buffer *out,
4302 				  const struct field *info, unsigned int flags)
4303 {
4304 	int field;
4305 
4306 	for (field = 0; field < INF_TOTAL_FIELDS; field++) {
4307 		if (!field_format(info, field))
4308 			continue;
4309 
4310 		if (!chunk_appendf(out, "%s: ", info_fields[field].name))
4311 			return 0;
4312 		if (!stats_emit_raw_data_field(out, &info[field]))
4313 			return 0;
4314 		if ((flags & STAT_SHOW_FDESC) && !chunk_appendf(out, ":\"%s\"", info_fields[field].desc))
4315 			return 0;
4316 		if (!chunk_strcat(out, "\n"))
4317 			return 0;
4318 	}
4319 	return 1;
4320 }
4321 
4322 /* Dump all fields from <info> into <out> using the "show info typed" format */
stats_dump_typed_info_fields(struct buffer * out,const struct field * info,unsigned int flags)4323 static int stats_dump_typed_info_fields(struct buffer *out,
4324 					const struct field *info, unsigned int flags)
4325 {
4326 	int field;
4327 
4328 	for (field = 0; field < INF_TOTAL_FIELDS; field++) {
4329 		if (!field_format(info, field))
4330 			continue;
4331 
4332 		if (!chunk_appendf(out, "%d.%s.%u:", field, info_fields[field].name, info[INF_PROCESS_NUM].u.u32))
4333 			return 0;
4334 		if (!stats_emit_field_tags(out, &info[field], ':'))
4335 			return 0;
4336 		if (!stats_emit_typed_data_field(out, &info[field]))
4337 			return 0;
4338 		if ((flags & STAT_SHOW_FDESC) && !chunk_appendf(out, ":\"%s\"", info_fields[field].desc))
4339 			return 0;
4340 		if (!chunk_strcat(out, "\n"))
4341 			return 0;
4342 	}
4343 	return 1;
4344 }
4345 
4346 /* Fill <info> with HAProxy global info. <info> is preallocated array of length
4347  * <len>. The length of the array must be INF_TOTAL_FIELDS. If this length is
4348  * less then this value, the function returns 0, otherwise, it returns 1. Some
4349  * fields' presence or precision may depend on some of the STAT_* flags present
4350  * in <flags>.
4351  */
stats_fill_info(struct field * info,int len,uint flags)4352 int stats_fill_info(struct field *info, int len, uint flags)
4353 {
4354 	struct timeval up;
4355 	struct buffer *out = get_trash_chunk();
4356 
4357 #ifdef USE_OPENSSL
4358 	double ssl_sess_rate = read_freq_ctr_flt(&global.ssl_per_sec);
4359 	double ssl_key_rate  = read_freq_ctr_flt(&global.ssl_fe_keys_per_sec);
4360 	double ssl_reuse = 0;
4361 
4362 	if (ssl_key_rate < ssl_sess_rate)
4363 		ssl_reuse = 100.0 * (1.0 - ssl_key_rate / ssl_sess_rate);
4364 #endif
4365 
4366 	tv_remain(&start_date, &now, &up);
4367 
4368 	if (len < INF_TOTAL_FIELDS)
4369 		return 0;
4370 
4371 	chunk_reset(out);
4372 	memset(info, 0, sizeof(*info) * len);
4373 
4374 	info[INF_NAME]                           = mkf_str(FO_PRODUCT|FN_OUTPUT|FS_SERVICE, PRODUCT_NAME);
4375 	info[INF_VERSION]                        = mkf_str(FO_PRODUCT|FN_OUTPUT|FS_SERVICE, haproxy_version);
4376 	info[INF_BUILD_INFO]                     = mkf_str(FO_PRODUCT|FN_OUTPUT|FS_SERVICE, haproxy_version);
4377 	info[INF_RELEASE_DATE]                   = mkf_str(FO_PRODUCT|FN_OUTPUT|FS_SERVICE, haproxy_date);
4378 
4379 	info[INF_NBTHREAD]                       = mkf_u32(FO_CONFIG|FS_SERVICE, global.nbthread);
4380 	info[INF_NBPROC]                         = mkf_u32(FO_CONFIG|FS_SERVICE, global.nbproc);
4381 	info[INF_PROCESS_NUM]                    = mkf_u32(FO_KEY, relative_pid);
4382 	info[INF_PID]                            = mkf_u32(FO_STATUS, pid);
4383 
4384 	info[INF_UPTIME]                         = mkf_str(FN_DURATION, chunk_newstr(out));
4385 	chunk_appendf(out, "%ud %uh%02um%02us", (uint)up.tv_sec / 86400, ((uint)up.tv_sec % 86400) / 3600, ((uint)up.tv_sec % 3600) / 60, ((uint)up.tv_sec % 60));
4386 
4387 	info[INF_UPTIME_SEC]                     = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_DURATION, up.tv_sec + up.tv_usec / 1000000.0) : mkf_u32(FN_DURATION, up.tv_sec);
4388 	info[INF_START_TIME_SEC]                 = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_DURATION, start_date.tv_sec + start_date.tv_usec / 1000000.0) : mkf_u32(FN_DURATION, start_date.tv_sec);
4389 	info[INF_MEMMAX_MB]                      = mkf_u32(FO_CONFIG|FN_LIMIT, global.rlimit_memmax);
4390 	info[INF_MEMMAX_BYTES]                   = mkf_u32(FO_CONFIG|FN_LIMIT, global.rlimit_memmax * 1048576L);
4391 	info[INF_POOL_ALLOC_MB]                  = mkf_u32(0, (unsigned)(pool_total_allocated() / 1048576L));
4392 	info[INF_POOL_ALLOC_BYTES]               = mkf_u32(0, pool_total_allocated());
4393 	info[INF_POOL_USED_MB]                   = mkf_u32(0, (unsigned)(pool_total_used() / 1048576L));
4394 	info[INF_POOL_USED_BYTES]                = mkf_u32(0, pool_total_used());
4395 	info[INF_POOL_FAILED]                    = mkf_u32(FN_COUNTER, pool_total_failures());
4396 	info[INF_ULIMIT_N]                       = mkf_u32(FO_CONFIG|FN_LIMIT, global.rlimit_nofile);
4397 	info[INF_MAXSOCK]                        = mkf_u32(FO_CONFIG|FN_LIMIT, global.maxsock);
4398 	info[INF_MAXCONN]                        = mkf_u32(FO_CONFIG|FN_LIMIT, global.maxconn);
4399 	info[INF_HARD_MAXCONN]                   = mkf_u32(FO_CONFIG|FN_LIMIT, global.hardmaxconn);
4400 	info[INF_CURR_CONN]                      = mkf_u32(0, actconn);
4401 	info[INF_CUM_CONN]                       = mkf_u32(FN_COUNTER, totalconn);
4402 	info[INF_CUM_REQ]                        = mkf_u32(FN_COUNTER, global.req_count);
4403 #ifdef USE_OPENSSL
4404 	info[INF_MAX_SSL_CONNS]                  = mkf_u32(FN_MAX, global.maxsslconn);
4405 	info[INF_CURR_SSL_CONNS]                 = mkf_u32(0, sslconns);
4406 	info[INF_CUM_SSL_CONNS]                  = mkf_u32(FN_COUNTER, totalsslconns);
4407 #endif
4408 	info[INF_MAXPIPES]                       = mkf_u32(FO_CONFIG|FN_LIMIT, global.maxpipes);
4409 	info[INF_PIPES_USED]                     = mkf_u32(0, pipes_used);
4410 	info[INF_PIPES_FREE]                     = mkf_u32(0, pipes_free);
4411 	info[INF_CONN_RATE]                      = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, read_freq_ctr_flt(&global.conn_per_sec)) : mkf_u32(FN_RATE, read_freq_ctr(&global.conn_per_sec));
4412 	info[INF_CONN_RATE_LIMIT]                = mkf_u32(FO_CONFIG|FN_LIMIT, global.cps_lim);
4413 	info[INF_MAX_CONN_RATE]                  = mkf_u32(FN_MAX, global.cps_max);
4414 	info[INF_SESS_RATE]                      = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, read_freq_ctr_flt(&global.sess_per_sec)) : mkf_u32(FN_RATE, read_freq_ctr(&global.sess_per_sec));
4415 	info[INF_SESS_RATE_LIMIT]                = mkf_u32(FO_CONFIG|FN_LIMIT, global.sps_lim);
4416 	info[INF_MAX_SESS_RATE]                  = mkf_u32(FN_RATE, global.sps_max);
4417 
4418 #ifdef USE_OPENSSL
4419 	info[INF_SSL_RATE]                       = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, ssl_sess_rate) : mkf_u32(FN_RATE, ssl_sess_rate);
4420 	info[INF_SSL_RATE_LIMIT]                 = mkf_u32(FO_CONFIG|FN_LIMIT, global.ssl_lim);
4421 	info[INF_MAX_SSL_RATE]                   = mkf_u32(FN_MAX, global.ssl_max);
4422 	info[INF_SSL_FRONTEND_KEY_RATE]          = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, ssl_key_rate) : mkf_u32(0, ssl_key_rate);
4423 	info[INF_SSL_FRONTEND_MAX_KEY_RATE]      = mkf_u32(FN_MAX, global.ssl_fe_keys_max);
4424 	info[INF_SSL_FRONTEND_SESSION_REUSE_PCT] = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, ssl_reuse) : mkf_u32(0, ssl_reuse);
4425 	info[INF_SSL_BACKEND_KEY_RATE]           = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, read_freq_ctr_flt(&global.ssl_be_keys_per_sec)) : mkf_u32(FN_RATE, read_freq_ctr(&global.ssl_be_keys_per_sec));
4426 	info[INF_SSL_BACKEND_MAX_KEY_RATE]       = mkf_u32(FN_MAX, global.ssl_be_keys_max);
4427 	info[INF_SSL_CACHE_LOOKUPS]              = mkf_u32(FN_COUNTER, global.shctx_lookups);
4428 	info[INF_SSL_CACHE_MISSES]               = mkf_u32(FN_COUNTER, global.shctx_misses);
4429 #endif
4430 	info[INF_COMPRESS_BPS_IN]                = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, read_freq_ctr_flt(&global.comp_bps_in)) : mkf_u32(FN_RATE, read_freq_ctr(&global.comp_bps_in));
4431 	info[INF_COMPRESS_BPS_OUT]               = (flags & STAT_USE_FLOAT) ? mkf_flt(FN_RATE, read_freq_ctr_flt(&global.comp_bps_out)) : mkf_u32(FN_RATE, read_freq_ctr(&global.comp_bps_out));
4432 	info[INF_COMPRESS_BPS_RATE_LIM]          = mkf_u32(FO_CONFIG|FN_LIMIT, global.comp_rate_lim);
4433 #ifdef USE_ZLIB
4434 	info[INF_ZLIB_MEM_USAGE]                 = mkf_u32(0, zlib_used_memory);
4435 	info[INF_MAX_ZLIB_MEM_USAGE]             = mkf_u32(FO_CONFIG|FN_LIMIT, global.maxzlibmem);
4436 #endif
4437 	info[INF_TASKS]                          = mkf_u32(0, total_allocated_tasks());
4438 	info[INF_RUN_QUEUE]                      = mkf_u32(0, total_run_queues());
4439 	info[INF_IDLE_PCT]                       = mkf_u32(FN_AVG, report_idle());
4440 	info[INF_NODE]                           = mkf_str(FO_CONFIG|FN_OUTPUT|FS_SERVICE, global.node);
4441 	if (global.desc)
4442 		info[INF_DESCRIPTION]            = mkf_str(FO_CONFIG|FN_OUTPUT|FS_SERVICE, global.desc);
4443 	info[INF_STOPPING]                       = mkf_u32(0, stopping);
4444 	info[INF_JOBS]                           = mkf_u32(0, jobs);
4445 	info[INF_UNSTOPPABLE_JOBS]               = mkf_u32(0, unstoppable_jobs);
4446 	info[INF_LISTENERS]                      = mkf_u32(0, listeners);
4447 	info[INF_ACTIVE_PEERS]                   = mkf_u32(0, active_peers);
4448 	info[INF_CONNECTED_PEERS]                = mkf_u32(0, connected_peers);
4449 	info[INF_DROPPED_LOGS]                   = mkf_u32(0, dropped_logs);
4450 	info[INF_BUSY_POLLING]                   = mkf_u32(0, !!(global.tune.options & GTUNE_BUSY_POLLING));
4451 	info[INF_FAILED_RESOLUTIONS]             = mkf_u32(0, resolv_failed_resolutions);
4452 	info[INF_TOTAL_BYTES_OUT]                = mkf_u64(0, global.out_bytes);
4453 	info[INF_TOTAL_SPLICED_BYTES_OUT]        = mkf_u64(0, global.spliced_out_bytes);
4454 	info[INF_BYTES_OUT_RATE]                 = mkf_u64(FN_RATE, (unsigned long long)read_freq_ctr(&global.out_32bps) * 32);
4455 	info[INF_DEBUG_COMMANDS_ISSUED]          = mkf_u32(0, debug_commands_issued);
4456 	info[INF_CUM_LOG_MSGS]                   = mkf_u32(FN_COUNTER, cum_log_messages);
4457 
4458 	info[INF_TAINTED]                        = mkf_str(FO_STATUS, chunk_newstr(out));
4459 	chunk_appendf(out, "%#x", get_tainted());
4460 
4461 	return 1;
4462 }
4463 
4464 /* This function dumps information onto the stream interface's read buffer.
4465  * It returns 0 as long as it does not complete, non-zero upon completion.
4466  * No state is used.
4467  */
stats_dump_info_to_buffer(struct stream_interface * si)4468 static int stats_dump_info_to_buffer(struct stream_interface *si)
4469 {
4470 	struct appctx *appctx = __objt_appctx(si->end);
4471 
4472 	if (!stats_fill_info(info, INF_TOTAL_FIELDS, appctx->ctx.stats.flags))
4473 		return 0;
4474 
4475 	chunk_reset(&trash);
4476 
4477 	if (appctx->ctx.stats.flags & STAT_FMT_TYPED)
4478 		stats_dump_typed_info_fields(&trash, info, appctx->ctx.stats.flags);
4479 	else if (appctx->ctx.stats.flags & STAT_FMT_JSON)
4480 		stats_dump_json_info_fields(&trash, info, appctx->ctx.stats.flags);
4481 	else
4482 		stats_dump_info_fields(&trash, info, appctx->ctx.stats.flags);
4483 
4484 	if (ci_putchk(si_ic(si), &trash) == -1) {
4485 		si_rx_room_blk(si);
4486 		return 0;
4487 	}
4488 
4489 	return 1;
4490 }
4491 
4492 /* This function dumps the schema onto the stream interface's read buffer.
4493  * It returns 0 as long as it does not complete, non-zero upon completion.
4494  * No state is used.
4495  *
4496  * Integer values bounded to the range [-(2**53)+1, (2**53)-1] as
4497  * per the recommendation for interoperable integers in section 6 of RFC 7159.
4498  */
stats_dump_json_schema(struct buffer * out)4499 static void stats_dump_json_schema(struct buffer *out)
4500 {
4501 
4502 	int old_len = out->data;
4503 
4504 	chunk_strcat(out,
4505 		     "{"
4506 		      "\"$schema\":\"http://json-schema.org/draft-04/schema#\","
4507 		      "\"oneOf\":["
4508 		       "{"
4509 			"\"title\":\"Info\","
4510 			"\"type\":\"array\","
4511 			"\"items\":{"
4512 			 "\"title\":\"InfoItem\","
4513 			 "\"type\":\"object\","
4514 			 "\"properties\":{"
4515 			  "\"field\":{\"$ref\":\"#/definitions/field\"},"
4516 			  "\"processNum\":{\"$ref\":\"#/definitions/processNum\"},"
4517 			  "\"tags\":{\"$ref\":\"#/definitions/tags\"},"
4518 			  "\"value\":{\"$ref\":\"#/definitions/typedValue\"}"
4519 			 "},"
4520 			 "\"required\":[\"field\",\"processNum\",\"tags\","
4521 				       "\"value\"]"
4522 			"}"
4523 		       "},"
4524 		       "{"
4525 			"\"title\":\"Stat\","
4526 			"\"type\":\"array\","
4527 			"\"items\":{"
4528 			 "\"title\":\"InfoItem\","
4529 			 "\"type\":\"object\","
4530 			 "\"properties\":{"
4531 			  "\"objType\":{"
4532 			   "\"enum\":[\"Frontend\",\"Backend\",\"Listener\","
4533 				     "\"Server\",\"Unknown\"]"
4534 			  "},"
4535 			  "\"proxyId\":{"
4536 			   "\"type\":\"integer\","
4537 			   "\"minimum\":0"
4538 			  "},"
4539 			  "\"id\":{"
4540 			   "\"type\":\"integer\","
4541 			   "\"minimum\":0"
4542 			  "},"
4543 			  "\"field\":{\"$ref\":\"#/definitions/field\"},"
4544 			  "\"processNum\":{\"$ref\":\"#/definitions/processNum\"},"
4545 			  "\"tags\":{\"$ref\":\"#/definitions/tags\"},"
4546 			  "\"typedValue\":{\"$ref\":\"#/definitions/typedValue\"}"
4547 			 "},"
4548 			 "\"required\":[\"objType\",\"proxyId\",\"id\","
4549 				       "\"field\",\"processNum\",\"tags\","
4550 				       "\"value\"]"
4551 			"}"
4552 		       "},"
4553 		       "{"
4554 			"\"title\":\"Error\","
4555 			"\"type\":\"object\","
4556 			"\"properties\":{"
4557 			 "\"errorStr\":{"
4558 			  "\"type\":\"string\""
4559 			 "}"
4560 			"},"
4561 			"\"required\":[\"errorStr\"]"
4562 		       "}"
4563 		      "],"
4564 		      "\"definitions\":{"
4565 		       "\"field\":{"
4566 			"\"type\":\"object\","
4567 			"\"pos\":{"
4568 			 "\"type\":\"integer\","
4569 			 "\"minimum\":0"
4570 			"},"
4571 			"\"name\":{"
4572 			 "\"type\":\"string\""
4573 			"},"
4574 			"\"required\":[\"pos\",\"name\"]"
4575 		       "},"
4576 		       "\"processNum\":{"
4577 			"\"type\":\"integer\","
4578 			"\"minimum\":1"
4579 		       "},"
4580 		       "\"tags\":{"
4581 			"\"type\":\"object\","
4582 			"\"origin\":{"
4583 			 "\"type\":\"string\","
4584 			 "\"enum\":[\"Metric\",\"Status\",\"Key\","
4585 				   "\"Config\",\"Product\",\"Unknown\"]"
4586 			"},"
4587 			"\"nature\":{"
4588 			 "\"type\":\"string\","
4589 			 "\"enum\":[\"Gauge\",\"Limit\",\"Min\",\"Max\","
4590 				   "\"Rate\",\"Counter\",\"Duration\","
4591 				   "\"Age\",\"Time\",\"Name\",\"Output\","
4592 				   "\"Avg\", \"Unknown\"]"
4593 			"},"
4594 			"\"scope\":{"
4595 			 "\"type\":\"string\","
4596 			 "\"enum\":[\"Cluster\",\"Process\",\"Service\","
4597 				   "\"System\",\"Unknown\"]"
4598 			"},"
4599 			"\"required\":[\"origin\",\"nature\",\"scope\"]"
4600 		       "},"
4601 		       "\"typedValue\":{"
4602 			"\"type\":\"object\","
4603 			"\"oneOf\":["
4604 			 "{\"$ref\":\"#/definitions/typedValue/definitions/s32Value\"},"
4605 			 "{\"$ref\":\"#/definitions/typedValue/definitions/s64Value\"},"
4606 			 "{\"$ref\":\"#/definitions/typedValue/definitions/u32Value\"},"
4607 			 "{\"$ref\":\"#/definitions/typedValue/definitions/u64Value\"},"
4608 			 "{\"$ref\":\"#/definitions/typedValue/definitions/strValue\"}"
4609 			"],"
4610 			"\"definitions\":{"
4611 			 "\"s32Value\":{"
4612 			  "\"properties\":{"
4613 			   "\"type\":{"
4614 			    "\"type\":\"string\","
4615 			    "\"enum\":[\"s32\"]"
4616 			   "},"
4617 			   "\"value\":{"
4618 			    "\"type\":\"integer\","
4619 			    "\"minimum\":-2147483648,"
4620 			    "\"maximum\":2147483647"
4621 			   "}"
4622 			  "},"
4623 			  "\"required\":[\"type\",\"value\"]"
4624 			 "},"
4625 			 "\"s64Value\":{"
4626 			  "\"properties\":{"
4627 			   "\"type\":{"
4628 			    "\"type\":\"string\","
4629 			    "\"enum\":[\"s64\"]"
4630 			   "},"
4631 			   "\"value\":{"
4632 			    "\"type\":\"integer\","
4633 			    "\"minimum\":-9007199254740991,"
4634 			    "\"maximum\":9007199254740991"
4635 			   "}"
4636 			  "},"
4637 			  "\"required\":[\"type\",\"value\"]"
4638 			 "},"
4639 			 "\"u32Value\":{"
4640 			  "\"properties\":{"
4641 			   "\"type\":{"
4642 			    "\"type\":\"string\","
4643 			    "\"enum\":[\"u32\"]"
4644 			   "},"
4645 			   "\"value\":{"
4646 			    "\"type\":\"integer\","
4647 			    "\"minimum\":0,"
4648 			    "\"maximum\":4294967295"
4649 			   "}"
4650 			  "},"
4651 			  "\"required\":[\"type\",\"value\"]"
4652 			 "},"
4653 			 "\"u64Value\":{"
4654 			  "\"properties\":{"
4655 			   "\"type\":{"
4656 			    "\"type\":\"string\","
4657 			    "\"enum\":[\"u64\"]"
4658 			   "},"
4659 			   "\"value\":{"
4660 			    "\"type\":\"integer\","
4661 			    "\"minimum\":0,"
4662 			    "\"maximum\":9007199254740991"
4663 			   "}"
4664 			  "},"
4665 			  "\"required\":[\"type\",\"value\"]"
4666 			 "},"
4667 			 "\"strValue\":{"
4668 			  "\"properties\":{"
4669 			   "\"type\":{"
4670 			    "\"type\":\"string\","
4671 			    "\"enum\":[\"str\"]"
4672 			   "},"
4673 			   "\"value\":{\"type\":\"string\"}"
4674 			  "},"
4675 			  "\"required\":[\"type\",\"value\"]"
4676 			 "},"
4677 			 "\"unknownValue\":{"
4678 			  "\"properties\":{"
4679 			   "\"type\":{"
4680 			    "\"type\":\"integer\","
4681 			    "\"minimum\":0"
4682 			   "},"
4683 			   "\"value\":{"
4684 			    "\"type\":\"string\","
4685 			    "\"enum\":[\"unknown\"]"
4686 			   "}"
4687 			  "},"
4688 			  "\"required\":[\"type\",\"value\"]"
4689 			 "}"
4690 			"}"
4691 		       "}"
4692 		      "}"
4693 		     "}");
4694 
4695 	if (old_len == out->data) {
4696 		chunk_reset(out);
4697 		chunk_appendf(out,
4698 			      "{\"errorStr\":\"output buffer too short\"}");
4699 	}
4700 }
4701 
4702 /* This function dumps the schema onto the stream interface's read buffer.
4703  * It returns 0 as long as it does not complete, non-zero upon completion.
4704  * No state is used.
4705  */
stats_dump_json_schema_to_buffer(struct stream_interface * si)4706 static int stats_dump_json_schema_to_buffer(struct stream_interface *si)
4707 {
4708 	chunk_reset(&trash);
4709 
4710 	stats_dump_json_schema(&trash);
4711 
4712 	if (ci_putchk(si_ic(si), &trash) == -1) {
4713 		si_rx_room_blk(si);
4714 		return 0;
4715 	}
4716 
4717 	return 1;
4718 }
4719 
cli_parse_clear_counters(char ** args,char * payload,struct appctx * appctx,void * private)4720 static int cli_parse_clear_counters(char **args, char *payload, struct appctx *appctx, void *private)
4721 {
4722 	struct proxy *px;
4723 	struct server *sv;
4724 	struct listener *li;
4725 	struct stats_module *mod;
4726 	int clrall = 0;
4727 
4728 	if (strcmp(args[2], "all") == 0)
4729 		clrall = 1;
4730 
4731 	/* check permissions */
4732 	if (!cli_has_level(appctx, ACCESS_LVL_OPER) ||
4733 	    (clrall && !cli_has_level(appctx, ACCESS_LVL_ADMIN)))
4734 		return 1;
4735 
4736 	for (px = proxies_list; px; px = px->next) {
4737 		if (clrall) {
4738 			memset(&px->be_counters, 0, sizeof(px->be_counters));
4739 			memset(&px->fe_counters, 0, sizeof(px->fe_counters));
4740 		}
4741 		else {
4742 			px->be_counters.conn_max = 0;
4743 			px->be_counters.p.http.rps_max = 0;
4744 			px->be_counters.sps_max = 0;
4745 			px->be_counters.cps_max = 0;
4746 			px->be_counters.nbpend_max = 0;
4747 			px->be_counters.qtime_max = 0;
4748 			px->be_counters.ctime_max = 0;
4749 			px->be_counters.dtime_max = 0;
4750 			px->be_counters.ttime_max = 0;
4751 
4752 			px->fe_counters.conn_max = 0;
4753 			px->fe_counters.p.http.rps_max = 0;
4754 			px->fe_counters.sps_max = 0;
4755 			px->fe_counters.cps_max = 0;
4756 		}
4757 
4758 		for (sv = px->srv; sv; sv = sv->next)
4759 			if (clrall)
4760 				memset(&sv->counters, 0, sizeof(sv->counters));
4761 			else {
4762 				sv->counters.cur_sess_max = 0;
4763 				sv->counters.nbpend_max = 0;
4764 				sv->counters.sps_max = 0;
4765 				sv->counters.qtime_max = 0;
4766 				sv->counters.ctime_max = 0;
4767 				sv->counters.dtime_max = 0;
4768 				sv->counters.ttime_max = 0;
4769 			}
4770 
4771 		list_for_each_entry(li, &px->conf.listeners, by_fe)
4772 			if (li->counters) {
4773 				if (clrall)
4774 					memset(li->counters, 0, sizeof(*li->counters));
4775 				else
4776 					li->counters->conn_max = 0;
4777 			}
4778 	}
4779 
4780 	global.cps_max = 0;
4781 	global.sps_max = 0;
4782 	global.ssl_max = 0;
4783 	global.ssl_fe_keys_max = 0;
4784 	global.ssl_be_keys_max = 0;
4785 
4786 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
4787 		if (!mod->clearable && !clrall)
4788 			continue;
4789 
4790 		for (px = proxies_list; px; px = px->next) {
4791 			enum stats_domain_px_cap mod_cap = stats_px_get_cap(mod->domain_flags);
4792 
4793 			if (px->cap & PR_CAP_FE && mod_cap & STATS_PX_CAP_FE) {
4794 				EXTRA_COUNTERS_INIT(px->extra_counters_fe,
4795 				                    mod,
4796 				                    mod->counters,
4797 				                    mod->counters_size);
4798 			}
4799 
4800 			if (px->cap & PR_CAP_BE && mod_cap & STATS_PX_CAP_BE) {
4801 				EXTRA_COUNTERS_INIT(px->extra_counters_be,
4802 				                    mod,
4803 				                    mod->counters,
4804 				                    mod->counters_size);
4805 			}
4806 
4807 			if (mod_cap & STATS_PX_CAP_SRV) {
4808 				for (sv = px->srv; sv; sv = sv->next) {
4809 					EXTRA_COUNTERS_INIT(sv->extra_counters,
4810 				                            mod,
4811 					                    mod->counters,
4812 					                    mod->counters_size);
4813 				}
4814 			}
4815 
4816 			if (mod_cap & STATS_PX_CAP_LI) {
4817 				list_for_each_entry(li, &px->conf.listeners, by_fe) {
4818 					EXTRA_COUNTERS_INIT(li->extra_counters,
4819 				                            mod,
4820 					                    mod->counters,
4821 					                    mod->counters_size);
4822 				}
4823 			}
4824 		}
4825 	}
4826 
4827 	resolv_stats_clear_counters(clrall, &stats_module_list[STATS_DOMAIN_DNS]);
4828 
4829 	memset(activity, 0, sizeof(activity));
4830 	return 1;
4831 }
4832 
4833 
cli_parse_show_info(char ** args,char * payload,struct appctx * appctx,void * private)4834 static int cli_parse_show_info(char **args, char *payload, struct appctx *appctx, void *private)
4835 {
4836 	int arg = 2;
4837 
4838 	appctx->ctx.stats.scope_str = 0;
4839 	appctx->ctx.stats.scope_len = 0;
4840 	appctx->ctx.stats.flags = 0;
4841 
4842 	while (*args[arg]) {
4843 		if (strcmp(args[arg], "typed") == 0)
4844 			appctx->ctx.stats.flags = (appctx->ctx.stats.flags & ~STAT_FMT_MASK) | STAT_FMT_TYPED;
4845 		else if (strcmp(args[arg], "json") == 0)
4846 			appctx->ctx.stats.flags = (appctx->ctx.stats.flags & ~STAT_FMT_MASK) | STAT_FMT_JSON;
4847 		else if (strcmp(args[arg], "desc") == 0)
4848 			appctx->ctx.stats.flags |= STAT_SHOW_FDESC;
4849 		else if (strcmp(args[arg], "float") == 0)
4850 			appctx->ctx.stats.flags |= STAT_USE_FLOAT;
4851 		arg++;
4852 	}
4853 	return 0;
4854 }
4855 
4856 
cli_parse_show_stat(char ** args,char * payload,struct appctx * appctx,void * private)4857 static int cli_parse_show_stat(char **args, char *payload, struct appctx *appctx, void *private)
4858 {
4859 	int arg = 2;
4860 
4861 	appctx->ctx.stats.scope_str = 0;
4862 	appctx->ctx.stats.scope_len = 0;
4863 	appctx->ctx.stats.flags = STAT_SHNODE | STAT_SHDESC;
4864 
4865 	if ((strm_li(si_strm(appctx->owner))->bind_conf->level & ACCESS_LVL_MASK) >= ACCESS_LVL_OPER)
4866 		appctx->ctx.stats.flags |= STAT_SHLGNDS;
4867 
4868 	/* proxy is the default domain */
4869 	appctx->ctx.stats.domain = STATS_DOMAIN_PROXY;
4870 	if (strcmp(args[arg], "domain") == 0) {
4871 		++args;
4872 
4873 		if (strcmp(args[arg], "proxy") == 0) {
4874 			++args;
4875 		} else if (strcmp(args[arg], "dns") == 0) {
4876 			appctx->ctx.stats.domain = STATS_DOMAIN_DNS;
4877 			++args;
4878 		} else {
4879 			return cli_err(appctx, "Invalid statistics domain.\n");
4880 		}
4881 	}
4882 
4883 	if (appctx->ctx.stats.domain == STATS_DOMAIN_PROXY
4884 	    && *args[arg] && *args[arg+1] && *args[arg+2]) {
4885 		struct proxy *px;
4886 
4887 		px = proxy_find_by_name(args[arg], 0, 0);
4888 		if (px)
4889 			appctx->ctx.stats.iid = px->uuid;
4890 		else
4891 			appctx->ctx.stats.iid = atoi(args[arg]);
4892 
4893 		if (!appctx->ctx.stats.iid)
4894 			return cli_err(appctx, "No such proxy.\n");
4895 
4896 		appctx->ctx.stats.flags |= STAT_BOUND;
4897 		appctx->ctx.stats.type = atoi(args[arg+1]);
4898 		appctx->ctx.stats.sid = atoi(args[arg+2]);
4899 		arg += 3;
4900 	}
4901 
4902 	while (*args[arg]) {
4903 		if (strcmp(args[arg], "typed") == 0)
4904 			appctx->ctx.stats.flags = (appctx->ctx.stats.flags & ~STAT_FMT_MASK) | STAT_FMT_TYPED;
4905 		else if (strcmp(args[arg], "json") == 0)
4906 			appctx->ctx.stats.flags = (appctx->ctx.stats.flags & ~STAT_FMT_MASK) | STAT_FMT_JSON;
4907 		else if (strcmp(args[arg], "desc") == 0)
4908 			appctx->ctx.stats.flags |= STAT_SHOW_FDESC;
4909 		else if (strcmp(args[arg], "no-maint") == 0)
4910 			appctx->ctx.stats.flags |= STAT_HIDE_MAINT;
4911 		else if (strcmp(args[arg], "up") == 0)
4912 			appctx->ctx.stats.flags |= STAT_HIDE_DOWN;
4913 		arg++;
4914 	}
4915 
4916 	return 0;
4917 }
4918 
cli_io_handler_dump_info(struct appctx * appctx)4919 static int cli_io_handler_dump_info(struct appctx *appctx)
4920 {
4921 	return stats_dump_info_to_buffer(appctx->owner);
4922 }
4923 
4924 /* This I/O handler runs as an applet embedded in a stream interface. It is
4925  * used to send raw stats over a socket.
4926  */
cli_io_handler_dump_stat(struct appctx * appctx)4927 static int cli_io_handler_dump_stat(struct appctx *appctx)
4928 {
4929 	return stats_dump_stat_to_buffer(appctx->owner, NULL, NULL);
4930 }
4931 
cli_io_handler_dump_json_schema(struct appctx * appctx)4932 static int cli_io_handler_dump_json_schema(struct appctx *appctx)
4933 {
4934 	return stats_dump_json_schema_to_buffer(appctx->owner);
4935 }
4936 
stats_allocate_proxy_counters_internal(struct extra_counters ** counters,int type,int px_cap)4937 int stats_allocate_proxy_counters_internal(struct extra_counters **counters,
4938                                            int type, int px_cap)
4939 {
4940 	struct stats_module *mod;
4941 
4942 	EXTRA_COUNTERS_REGISTER(counters, type, alloc_failed);
4943 
4944 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
4945 		if (!(stats_px_get_cap(mod->domain_flags) & px_cap))
4946 			continue;
4947 
4948 		EXTRA_COUNTERS_ADD(mod, *counters, mod->counters, mod->counters_size);
4949 	}
4950 
4951 	EXTRA_COUNTERS_ALLOC(*counters, alloc_failed);
4952 
4953 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
4954 		if (!(stats_px_get_cap(mod->domain_flags) & px_cap))
4955 			continue;
4956 
4957 		EXTRA_COUNTERS_INIT(*counters, mod, mod->counters, mod->counters_size);
4958 	}
4959 
4960 	return 1;
4961 
4962   alloc_failed:
4963 	return 0;
4964 }
4965 
4966 /* Initialize and allocate all extra counters for a proxy and its attached
4967  * servers/listeners with all already registered stats module
4968  */
stats_allocate_proxy_counters(struct proxy * px)4969 int stats_allocate_proxy_counters(struct proxy *px)
4970 {
4971 	struct server *sv;
4972 	struct listener *li;
4973 
4974 	if (px->cap & PR_CAP_FE) {
4975 		if (!stats_allocate_proxy_counters_internal(&px->extra_counters_fe,
4976 		                                            COUNTERS_FE,
4977 		                                            STATS_PX_CAP_FE)) {
4978 			return 0;
4979 		}
4980 	}
4981 
4982 	if (px->cap & PR_CAP_BE) {
4983 		if (!stats_allocate_proxy_counters_internal(&px->extra_counters_be,
4984 		                                            COUNTERS_BE,
4985 		                                            STATS_PX_CAP_BE)) {
4986 			return 0;
4987 		}
4988 	}
4989 
4990 	for (sv = px->srv; sv; sv = sv->next) {
4991 		if (!stats_allocate_proxy_counters_internal(&sv->extra_counters,
4992 		                                            COUNTERS_SV,
4993 		                                            STATS_PX_CAP_SRV)) {
4994 			return 0;
4995 		}
4996 	}
4997 
4998 	list_for_each_entry(li, &px->conf.listeners, by_fe) {
4999 		if (!stats_allocate_proxy_counters_internal(&li->extra_counters,
5000 		                                            COUNTERS_LI,
5001 		                                            STATS_PX_CAP_LI)) {
5002 			return 0;
5003 		}
5004 	}
5005 
5006 	return 1;
5007 }
5008 
stats_register_module(struct stats_module * m)5009 void stats_register_module(struct stats_module *m)
5010 {
5011 	const uint8_t domain = stats_get_domain(m->domain_flags);
5012 
5013 	LIST_APPEND(&stats_module_list[domain], &m->list);
5014 	stat_count[domain] += m->stats_count;
5015 }
5016 
allocate_stats_px_postcheck(void)5017 static int allocate_stats_px_postcheck(void)
5018 {
5019 	struct stats_module *mod;
5020 	size_t i = ST_F_TOTAL_FIELDS;
5021 	int err_code = 0;
5022 	struct proxy *px;
5023 
5024 	stat_count[STATS_DOMAIN_PROXY] += ST_F_TOTAL_FIELDS;
5025 
5026 	stat_f[STATS_DOMAIN_PROXY] = malloc(stat_count[STATS_DOMAIN_PROXY] * sizeof(struct name_desc));
5027 	if (!stat_f[STATS_DOMAIN_PROXY]) {
5028 		ha_alert("stats: cannot allocate all fields for proxy statistics\n");
5029 		err_code |= ERR_ALERT | ERR_FATAL;
5030 		return err_code;
5031 	}
5032 
5033 	memcpy(stat_f[STATS_DOMAIN_PROXY], stat_fields,
5034 	       ST_F_TOTAL_FIELDS * sizeof(struct name_desc));
5035 
5036 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_PROXY], list) {
5037 		memcpy(stat_f[STATS_DOMAIN_PROXY] + i,
5038 		       mod->stats,
5039 		       mod->stats_count * sizeof(struct name_desc));
5040 		i += mod->stats_count;
5041 	}
5042 
5043 	for (px = proxies_list; px; px = px->next) {
5044 		if (!stats_allocate_proxy_counters(px)) {
5045 			ha_alert("stats: cannot allocate all counters for proxy statistics\n");
5046 			err_code |= ERR_ALERT | ERR_FATAL;
5047 			return err_code;
5048 		}
5049 	}
5050 
5051 	/* wait per-thread alloc to perform corresponding stat_l allocation */
5052 
5053 	return err_code;
5054 }
5055 
5056 REGISTER_CONFIG_POSTPARSER("allocate-stats-px", allocate_stats_px_postcheck);
5057 
allocate_stats_dns_postcheck(void)5058 static int allocate_stats_dns_postcheck(void)
5059 {
5060 	struct stats_module *mod;
5061 	size_t i = 0;
5062 	int err_code = 0;
5063 
5064 	stat_f[STATS_DOMAIN_DNS] = malloc(stat_count[STATS_DOMAIN_DNS] * sizeof(struct name_desc));
5065 	if (!stat_f[STATS_DOMAIN_DNS]) {
5066 		ha_alert("stats: cannot allocate all fields for dns statistics\n");
5067 		err_code |= ERR_ALERT | ERR_FATAL;
5068 		return err_code;
5069 	}
5070 
5071 	list_for_each_entry(mod, &stats_module_list[STATS_DOMAIN_DNS], list) {
5072 		memcpy(stat_f[STATS_DOMAIN_DNS] + i,
5073 		       mod->stats,
5074 		       mod->stats_count * sizeof(struct name_desc));
5075 		i += mod->stats_count;
5076 	}
5077 
5078 	if (!resolv_allocate_counters(&stats_module_list[STATS_DOMAIN_DNS])) {
5079 		ha_alert("stats: cannot allocate all counters for dns statistics\n");
5080 		err_code |= ERR_ALERT | ERR_FATAL;
5081 		return err_code;
5082 	}
5083 
5084 	/* wait per-thread alloc to perform corresponding stat_l allocation */
5085 
5086 	return err_code;
5087 }
5088 
5089 REGISTER_CONFIG_POSTPARSER("allocate-stats-dns", allocate_stats_dns_postcheck);
5090 
allocate_stat_lines_per_thread(void)5091 static int allocate_stat_lines_per_thread(void)
5092 {
5093 	int domains[] = { STATS_DOMAIN_PROXY, STATS_DOMAIN_DNS }, i;
5094 
5095 	for (i = 0; i < STATS_DOMAIN_COUNT; ++i) {
5096 		const int domain = domains[i];
5097 
5098 		stat_l[domain] = malloc(stat_count[domain] * sizeof(struct field));
5099 		if (!stat_l[domain])
5100 			return 0;
5101 	}
5102 	return 1;
5103 }
5104 
5105 REGISTER_PER_THREAD_ALLOC(allocate_stat_lines_per_thread);
5106 
allocate_trash_counters(void)5107 static int allocate_trash_counters(void)
5108 {
5109 	struct stats_module *mod;
5110 	int domains[] = { STATS_DOMAIN_PROXY, STATS_DOMAIN_DNS }, i;
5111 	size_t max_counters_size = 0;
5112 
5113 	/* calculate the greatest counters used by any stats modules */
5114 	for (i = 0; i < STATS_DOMAIN_COUNT; ++i) {
5115 		list_for_each_entry(mod, &stats_module_list[domains[i]], list) {
5116 			max_counters_size = mod->counters_size > max_counters_size ?
5117 			                    mod->counters_size : max_counters_size;
5118 		}
5119 	}
5120 
5121 	/* allocate the trash with the size of the greatest counters */
5122 	if (max_counters_size) {
5123 		trash_counters = malloc(max_counters_size);
5124 		if (!trash_counters) {
5125 			ha_alert("stats: cannot allocate trash counters for statistics\n");
5126 			return 0;
5127 		}
5128 	}
5129 
5130 	return 1;
5131 }
5132 
5133 REGISTER_PER_THREAD_ALLOC(allocate_trash_counters);
5134 
deinit_stat_lines_per_thread(void)5135 static void deinit_stat_lines_per_thread(void)
5136 {
5137 	int domains[] = { STATS_DOMAIN_PROXY, STATS_DOMAIN_DNS }, i;
5138 
5139 	for (i = 0; i < STATS_DOMAIN_COUNT; ++i) {
5140 		const int domain = domains[i];
5141 
5142 		ha_free(&stat_l[domain]);
5143 	}
5144 }
5145 
5146 
5147 REGISTER_PER_THREAD_FREE(deinit_stat_lines_per_thread);
5148 
deinit_stats(void)5149 static void deinit_stats(void)
5150 {
5151 	int domains[] = { STATS_DOMAIN_PROXY, STATS_DOMAIN_DNS }, i;
5152 
5153 	for (i = 0; i < STATS_DOMAIN_COUNT; ++i) {
5154 		const int domain = domains[i];
5155 
5156 		if (stat_f[domain])
5157 			free(stat_f[domain]);
5158 	}
5159 }
5160 
5161 REGISTER_POST_DEINIT(deinit_stats);
5162 
free_trash_counters(void)5163 static void free_trash_counters(void)
5164 {
5165 	if (trash_counters)
5166 		free(trash_counters);
5167 }
5168 
5169 REGISTER_PER_THREAD_FREE(free_trash_counters);
5170 
5171 /* register cli keywords */
5172 static struct cli_kw_list cli_kws = {{ },{
5173 	{ { "clear", "counters",  NULL },      "clear counters [all]                    : clear max statistics counters (or all counters)", cli_parse_clear_counters, NULL, NULL },
5174 	{ { "show", "info",  NULL },           "show info [desc|json|typed|float]*      : report information about the running process",    cli_parse_show_info, cli_io_handler_dump_info, NULL },
5175 	{ { "show", "stat",  NULL },           "show stat [desc|json|no-maint|typed|up]*: report counters for each proxy and server",       cli_parse_show_stat, cli_io_handler_dump_stat, NULL },
5176 	{ { "show", "schema",  "json", NULL }, "show schema json                        : report schema used for stats",                    NULL, cli_io_handler_dump_json_schema, NULL },
5177 	{{},}
5178 }};
5179 
5180 INITCALL1(STG_REGISTER, cli_register_kw, &cli_kws);
5181 
5182 struct applet http_stats_applet = {
5183 	.obj_type = OBJ_TYPE_APPLET,
5184 	.name = "<STATS>", /* used for logging */
5185 	.fct = http_stats_io_handler,
5186 	.release = NULL,
5187 };
5188 
5189 /*
5190  * Local variables:
5191  *  c-indent-level: 8
5192  *  c-basic-offset: 8
5193  * End:
5194  */
5195