/* * Functions dedicated to statistics output and the stats socket * * Copyright 2000-2012 Willy Tarreau * Copyright 2007-2009 Krzysztof Piotr Oledzki * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License * as published by the Free Software Foundation; either version * 2 of the License, or (at your option) any later version. * */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef USE_OPENSSL #include #endif /* stats socket states */ enum { STAT_CLI_INIT = 0, /* initial state, must leave to zero ! */ STAT_CLI_END, /* final state, let's close */ STAT_CLI_GETREQ, /* wait for a request */ STAT_CLI_OUTPUT, /* all states after this one are responses */ STAT_CLI_PROMPT, /* display the prompt (first output, same code) */ STAT_CLI_PRINT, /* display message in cli->msg */ STAT_CLI_PRINT_FREE, /* display message in cli->msg. After the display, free the pointer */ STAT_CLI_O_INFO, /* dump info */ STAT_CLI_O_SESS, /* dump sessions */ STAT_CLI_O_ERR, /* dump errors */ STAT_CLI_O_TAB, /* dump tables */ STAT_CLI_O_CLR, /* clear tables */ STAT_CLI_O_SET, /* set entries in tables */ STAT_CLI_O_STAT, /* dump stats */ STAT_CLI_O_PATS, /* list all pattern reference avalaible */ STAT_CLI_O_PAT, /* list all entries of a pattern */ STAT_CLI_O_MLOOK, /* lookup a map entry */ STAT_CLI_O_POOLS, /* dump memory pools */ }; /* Actions available for the stats admin forms */ enum { ST_ADM_ACTION_NONE = 0, /* enable/disable health checks */ ST_ADM_ACTION_DHLTH, ST_ADM_ACTION_EHLTH, /* force health check status */ ST_ADM_ACTION_HRUNN, ST_ADM_ACTION_HNOLB, ST_ADM_ACTION_HDOWN, /* enable/disable agent checks */ ST_ADM_ACTION_DAGENT, ST_ADM_ACTION_EAGENT, /* force agent check status */ ST_ADM_ACTION_ARUNN, ST_ADM_ACTION_ADOWN, /* set admin state */ ST_ADM_ACTION_READY, ST_ADM_ACTION_DRAIN, ST_ADM_ACTION_MAINT, ST_ADM_ACTION_SHUTDOWN, /* these are the ancient actions, still available for compatibility */ ST_ADM_ACTION_DISABLE, ST_ADM_ACTION_ENABLE, ST_ADM_ACTION_STOP, ST_ADM_ACTION_START, }; static int stats_dump_info_to_buffer(struct stream_interface *si); static int stats_dump_pools_to_buffer(struct stream_interface *si); static int stats_dump_full_sess_to_buffer(struct stream_interface *si, struct session *sess); static int stats_dump_sess_to_buffer(struct stream_interface *si); static int stats_dump_errors_to_buffer(struct stream_interface *si); static int stats_table_request(struct stream_interface *si, int show); static int stats_dump_proxy_to_buffer(struct stream_interface *si, struct proxy *px, struct uri_auth *uri); static int stats_dump_stat_to_buffer(struct stream_interface *si, struct uri_auth *uri); static int stats_pats_list(struct stream_interface *si); static int stats_pat_list(struct stream_interface *si); static int stats_map_lookup(struct stream_interface *si); static void cli_release_handler(struct stream_interface *si); /* * cli_io_handler() * -> stats_dump_sess_to_buffer() // "show sess" * -> stats_dump_errors_to_buffer() // "show errors" * -> stats_dump_info_to_buffer() // "show info" * -> stats_dump_stat_to_buffer() // "show stat" * -> stats_dump_csv_header() * -> stats_dump_proxy_to_buffer() * -> stats_dump_fe_stats() * -> stats_dump_li_stats() * -> stats_dump_sv_stats() * -> stats_dump_be_stats() * * http_stats_io_handler() * -> stats_dump_stat_to_buffer() // same as above, but used for CSV or HTML * -> stats_dump_csv_header() // emits the CSV headers (same as above) * -> stats_dump_html_head() // emits the HTML headers * -> stats_dump_html_info() // emits the equivalent of "show info" at the top * -> stats_dump_proxy_to_buffer() // same as above, valid for CSV and HTML * -> stats_dump_html_px_hdr() * -> stats_dump_fe_stats() * -> stats_dump_li_stats() * -> stats_dump_sv_stats() * -> stats_dump_be_stats() * -> stats_dump_html_px_end() * -> stats_dump_html_end() // emits HTML trailer */ static struct si_applet cli_applet; static const char stats_sock_usage_msg[] = "Unknown command. Please enter one of the following commands only :\n" " clear counters : clear max statistics counters (add 'all' for all counters)\n" " clear table : remove an entry from a table\n" " help : this message\n" " prompt : toggle interactive mode with prompt\n" " quit : disconnect\n" " show info : report information about the running process\n" " show pools : report information about the memory pools usage\n" " show stat : report counters for each proxy and server\n" " show errors : report last request and response errors for each proxy\n" " show sess [id] : report the list of current sessions or dump this session\n" " show table [id]: report table usage stats or dump this table's contents\n" " get weight : report a server's current weight\n" " set weight : change a server's weight\n" " set server : change a server's state or weight\n" " set table [id] : update or create a table entry's data\n" " set timeout : change a timeout setting\n" " set maxconn : change a maxconn setting\n" " set rate-limit : change a rate limiting value\n" " disable : put a server or frontend in maintenance mode\n" " enable : re-enable a server or frontend which is in maintenance mode\n" " shutdown : kill a session or a frontend (eg:to release listening ports)\n" " show acl [id] : report avalaible acls or dump an acl's contents\n" " get acl : reports the patterns matching a sample for an ACL\n" " add acl : add acl entry\n" " del acl : delete acl entry\n" " clear acl : clear the content of this acl\n" " show map [id] : report avalaible maps or dump a map's contents\n" " get map : reports the keys and values matching a sample for a map\n" " set map : modify map entry\n" " add map : add map entry\n" " del map : delete map entry\n" " clear map : clear the content of this map\n" " set ssl : set statement for ssl\n" ""; static const char stats_permission_denied_msg[] = "Permission denied\n" ""; /* data transmission states for the stats responses */ enum { STAT_ST_INIT = 0, STAT_ST_HEAD, STAT_ST_INFO, STAT_ST_LIST, STAT_ST_END, STAT_ST_FIN, }; /* data transmission states for the stats responses inside a proxy */ enum { STAT_PX_ST_INIT = 0, STAT_PX_ST_TH, STAT_PX_ST_FE, STAT_PX_ST_LI, STAT_PX_ST_SV, STAT_PX_ST_BE, STAT_PX_ST_END, STAT_PX_ST_FIN, }; extern const char *stat_status_codes[]; /* This function is called from the session-level accept() in order to instanciate * a new stats socket. It returns a positive value upon success, 0 if the session * needs to be closed and ignored, or a negative value upon critical failure. */ static int stats_accept(struct session *s) { s->target = &cli_applet.obj_type; /* no need to initialize the applet, it will start with st0=st1 = 0 */ tv_zero(&s->logs.tv_request); s->logs.t_queue = 0; s->logs.t_connect = 0; s->logs.t_data = 0; s->logs.t_close = 0; s->logs.bytes_in = s->logs.bytes_out = 0; s->logs.prx_queue_size = 0; /* we get the number of pending conns before us */ s->logs.srv_queue_size = 0; /* we will get this number soon */ s->req->flags |= CF_READ_DONTWAIT; /* we plan to read small requests */ if (s->listener->timeout) { s->req->rto = *s->listener->timeout; s->rep->wto = *s->listener->timeout; } return 1; } /* allocate a new stats frontend named , and return it * (or NULL in case of lack of memory). */ static struct proxy *alloc_stats_fe(const char *name, const char *file, int line) { struct proxy *fe; fe = (struct proxy *)calloc(1, sizeof(struct proxy)); if (!fe) return NULL; init_new_proxy(fe); fe->next = proxy; proxy = fe; fe->last_change = now.tv_sec; fe->id = strdup("GLOBAL"); fe->cap = PR_CAP_FE; fe->maxconn = 10; /* default to 10 concurrent connections */ fe->timeout.client = MS_TO_TICKS(10000); /* default timeout of 10 seconds */ fe->conf.file = strdup(file); fe->conf.line = line; fe->accept = stats_accept; /* the stats frontend is the only one able to assign ID #0 */ fe->conf.id.key = fe->uuid = 0; eb32_insert(&used_proxy_id, &fe->conf.id); return fe; } /* This function parses a "stats" statement in the "global" section. It returns * -1 if there is any error, otherwise zero. If it returns -1, it will write an * error message into the buffer which will be preallocated. The trailing * '\n' must not be written. The function must be called with pointing to * the first word after "stats". */ static int stats_parse_global(char **args, int section_type, struct proxy *curpx, struct proxy *defpx, const char *file, int line, char **err) { struct bind_conf *bind_conf; struct listener *l; if (!strcmp(args[1], "socket")) { int cur_arg; if (*args[2] == 0) { memprintf(err, "'%s %s' in global section expects an address or a path to a UNIX socket", args[0], args[1]); return -1; } if (!global.stats_fe) { if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) { memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]); return -1; } } bind_conf = bind_conf_alloc(&global.stats_fe->conf.bind, file, line, args[2]); bind_conf->level = ACCESS_LVL_OPER; /* default access level */ if (!str2listener(args[2], global.stats_fe, bind_conf, file, line, err)) { memprintf(err, "parsing [%s:%d] : '%s %s' : %s\n", file, line, args[0], args[1], err && *err ? *err : "error"); return -1; } cur_arg = 3; while (*args[cur_arg]) { static int bind_dumped; struct bind_kw *kw; kw = bind_find_kw(args[cur_arg]); if (kw) { if (!kw->parse) { memprintf(err, "'%s %s' : '%s' option is not implemented in this version (check build options).", args[0], args[1], args[cur_arg]); return -1; } if (kw->parse(args, cur_arg, curpx, bind_conf, err) != 0) { if (err && *err) memprintf(err, "'%s %s' : '%s'", args[0], args[1], *err); else memprintf(err, "'%s %s' : error encountered while processing '%s'", args[0], args[1], args[cur_arg]); return -1; } cur_arg += 1 + kw->skip; continue; } if (!bind_dumped) { bind_dump_kws(err); indent_msg(err, 4); bind_dumped = 1; } memprintf(err, "'%s %s' : unknown keyword '%s'.%s%s", args[0], args[1], args[cur_arg], err && *err ? " Registered keywords :" : "", err && *err ? *err : ""); return -1; } list_for_each_entry(l, &bind_conf->listeners, by_bind) { l->maxconn = global.stats_fe->maxconn; l->backlog = global.stats_fe->backlog; l->timeout = &global.stats_fe->timeout.client; l->accept = session_accept; l->handler = process_session; l->options |= LI_O_UNLIMITED; /* don't make the peers subject to global limits */ l->nice = -64; /* we want to boost priority for local stats */ global.maxsock += l->maxconn; } } else if (!strcmp(args[1], "timeout")) { unsigned timeout; const char *res = parse_time_err(args[2], &timeout, TIME_UNIT_MS); if (res) { memprintf(err, "'%s %s' : unexpected character '%c'", args[0], args[1], *res); return -1; } if (!timeout) { memprintf(err, "'%s %s' expects a positive value", args[0], args[1]); return -1; } if (!global.stats_fe) { if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) { memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]); return -1; } } global.stats_fe->timeout.client = MS_TO_TICKS(timeout); } else if (!strcmp(args[1], "maxconn")) { int maxconn = atol(args[2]); if (maxconn <= 0) { memprintf(err, "'%s %s' expects a positive value", args[0], args[1]); return -1; } if (!global.stats_fe) { if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) { memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]); return -1; } } global.stats_fe->maxconn = maxconn; } else if (!strcmp(args[1], "bind-process")) { /* enable the socket only on some processes */ int cur_arg = 2; unsigned long set = 0; if (!global.stats_fe) { if ((global.stats_fe = alloc_stats_fe("GLOBAL", file, line)) == NULL) { memprintf(err, "'%s %s' : out of memory trying to allocate a frontend", args[0], args[1]); return -1; } } while (*args[cur_arg]) { unsigned int low, high; if (strcmp(args[cur_arg], "all") == 0) { set = 0; break; } else if (strcmp(args[cur_arg], "odd") == 0) { set |= ~0UL/3UL; /* 0x555....555 */ } else if (strcmp(args[cur_arg], "even") == 0) { set |= (~0UL/3UL) << 1; /* 0xAAA...AAA */ } else if (isdigit((int)*args[cur_arg])) { char *dash = strchr(args[cur_arg], '-'); low = high = str2uic(args[cur_arg]); if (dash) high = str2uic(dash + 1); if (high < low) { unsigned int swap = low; low = high; high = swap; } if (low < 1 || high > LONGBITS) { memprintf(err, "'%s %s' supports process numbers from 1 to %d.\n", args[0], args[1], LONGBITS); return -1; } while (low <= high) set |= 1UL << (low++ - 1); } else { memprintf(err, "'%s %s' expects 'all', 'odd', 'even', or a list of process ranges with numbers from 1 to %d.\n", args[0], args[1], LONGBITS); return -1; } cur_arg++; } global.stats_fe->bind_proc = set; } else { memprintf(err, "'%s' only supports 'socket', 'maxconn', 'bind-process' and 'timeout' (got '%s')", args[0], args[1]); return -1; } return 0; } /* Dumps the stats CSV header to the trash buffer which. The caller is responsible * for clearing it if needed. * NOTE: Some tools happen to rely on the field position instead of its name, * so please only append new fields at the end, never in the middle. */ static void stats_dump_csv_header() { chunk_appendf(&trash, "# pxname,svname," "qcur,qmax," "scur,smax,slim,stot," "bin,bout," "dreq,dresp," "ereq,econ,eresp," "wretr,wredis," "status,weight,act,bck," "chkfail,chkdown,lastchg,downtime,qlimit," "pid,iid,sid,throttle,lbtot,tracked,type," "rate,rate_lim,rate_max," "check_status,check_code,check_duration," "hrsp_1xx,hrsp_2xx,hrsp_3xx,hrsp_4xx,hrsp_5xx,hrsp_other,hanafail," "req_rate,req_rate_max,req_tot," "cli_abrt,srv_abrt," "comp_in,comp_out,comp_byp,comp_rsp,lastsess,last_chk,last_agt,qtime,ctime,rtime,ttime," "\n"); } /* print a string of text buffer to . The format is : * Non-printable chars \t, \n, \r and \e are * encoded in C format. * Other non-printable chars are encoded "\xHH". Space and '\' are also escaped. * Print stopped if null char or is reached, or if no more place in the chunk. */ static int dump_text(struct chunk *out, const char *buf, int bsize) { unsigned char c; int ptr = 0; while (buf[ptr] && ptr < bsize) { c = buf[ptr]; if (isprint(c) && isascii(c) && c != '\\' && c != ' ') { if (out->len > out->size - 1) break; out->str[out->len++] = c; } else if (c == '\t' || c == '\n' || c == '\r' || c == '\e' || c == '\\' || c == ' ') { if (out->len > out->size - 2) break; out->str[out->len++] = '\\'; switch (c) { case ' ': c = ' '; break; case '\t': c = 't'; break; case '\n': c = 'n'; break; case '\r': c = 'r'; break; case '\e': c = 'e'; break; case '\\': c = '\\'; break; } out->str[out->len++] = c; } else { if (out->len > out->size - 4) break; out->str[out->len++] = '\\'; out->str[out->len++] = 'x'; out->str[out->len++] = hextab[(c >> 4) & 0xF]; out->str[out->len++] = hextab[c & 0xF]; } ptr++; } return ptr; } /* print a buffer in hexa. * Print stopped if is reached, or if no more place in the chunk. */ static int dump_binary(struct chunk *out, const char *buf, int bsize) { unsigned char c; int ptr = 0; while (ptr < bsize) { c = buf[ptr]; if (out->len > out->size - 2) break; out->str[out->len++] = hextab[(c >> 4) & 0xF]; out->str[out->len++] = hextab[c & 0xF]; ptr++; } return ptr; } /* Dump the status of a table to a stream interface's * read buffer. It returns 0 if the output buffer is full * and needs to be called again, otherwise non-zero. */ static int stats_dump_table_head_to_buffer(struct chunk *msg, struct stream_interface *si, struct proxy *proxy, struct proxy *target) { struct session *s = session_from_task(si->owner); chunk_appendf(msg, "# table: %s, type: %s, size:%d, used:%d\n", proxy->id, stktable_types[proxy->table.type].kw, proxy->table.size, proxy->table.current); /* any other information should be dumped here */ if (target && s->listener->bind_conf->level < ACCESS_LVL_OPER) chunk_appendf(msg, "# contents not dumped due to insufficient privileges\n"); if (bi_putchk(si->ib, msg) == -1) return 0; return 1; } /* Dump the a table entry to a stream interface's * read buffer. It returns 0 if the output buffer is full * and needs to be called again, otherwise non-zero. */ static int stats_dump_table_entry_to_buffer(struct chunk *msg, struct stream_interface *si, struct proxy *proxy, struct stksess *entry) { int dt; chunk_appendf(msg, "%p:", entry); if (proxy->table.type == STKTABLE_TYPE_IP) { char addr[INET_ADDRSTRLEN]; inet_ntop(AF_INET, (const void *)&entry->key.key, addr, sizeof(addr)); chunk_appendf(msg, " key=%s", addr); } else if (proxy->table.type == STKTABLE_TYPE_IPV6) { char addr[INET6_ADDRSTRLEN]; inet_ntop(AF_INET6, (const void *)&entry->key.key, addr, sizeof(addr)); chunk_appendf(msg, " key=%s", addr); } else if (proxy->table.type == STKTABLE_TYPE_INTEGER) { chunk_appendf(msg, " key=%u", *(unsigned int *)entry->key.key); } else if (proxy->table.type == STKTABLE_TYPE_STRING) { chunk_appendf(msg, " key="); dump_text(msg, (const char *)entry->key.key, proxy->table.key_size); } else { chunk_appendf(msg, " key="); dump_binary(msg, (const char *)entry->key.key, proxy->table.key_size); } chunk_appendf(msg, " use=%d exp=%d", entry->ref_cnt - 1, tick_remain(now_ms, entry->expire)); for (dt = 0; dt < STKTABLE_DATA_TYPES; dt++) { void *ptr; if (proxy->table.data_ofs[dt] == 0) continue; if (stktable_data_types[dt].arg_type == ARG_T_DELAY) chunk_appendf(msg, " %s(%d)=", stktable_data_types[dt].name, proxy->table.data_arg[dt].u); else chunk_appendf(msg, " %s=", stktable_data_types[dt].name); ptr = stktable_data_ptr(&proxy->table, entry, dt); switch (stktable_data_types[dt].std_type) { case STD_T_SINT: chunk_appendf(msg, "%d", stktable_data_cast(ptr, std_t_sint)); break; case STD_T_UINT: chunk_appendf(msg, "%u", stktable_data_cast(ptr, std_t_uint)); break; case STD_T_ULL: chunk_appendf(msg, "%lld", stktable_data_cast(ptr, std_t_ull)); break; case STD_T_FRQP: chunk_appendf(msg, "%d", read_freq_ctr_period(&stktable_data_cast(ptr, std_t_frqp), proxy->table.data_arg[dt].u)); break; } } chunk_appendf(msg, "\n"); if (bi_putchk(si->ib, msg) == -1) return 0; return 1; } static void stats_sock_table_key_request(struct stream_interface *si, char **args, int action) { struct session *s = session_from_task(si->owner); struct appctx *appctx = __objt_appctx(si->end); struct proxy *px = appctx->ctx.table.target; struct stksess *ts; uint32_t uint32_key; unsigned char ip6_key[sizeof(struct in6_addr)]; long long value; int data_type; int cur_arg; void *ptr; struct freq_ctr_period *frqp; appctx->st0 = STAT_CLI_OUTPUT; if (!*args[4]) { appctx->ctx.cli.msg = "Key value expected\n"; appctx->st0 = STAT_CLI_PRINT; return; } switch (px->table.type) { case STKTABLE_TYPE_IP: uint32_key = htonl(inetaddr_host(args[4])); static_table_key->key = &uint32_key; break; case STKTABLE_TYPE_IPV6: inet_pton(AF_INET6, args[4], ip6_key); static_table_key->key = &ip6_key; break; case STKTABLE_TYPE_INTEGER: { char *endptr; unsigned long val; errno = 0; val = strtoul(args[4], &endptr, 10); if ((errno == ERANGE && val == ULONG_MAX) || (errno != 0 && val == 0) || endptr == args[4] || val > 0xffffffff) { appctx->ctx.cli.msg = "Invalid key\n"; appctx->st0 = STAT_CLI_PRINT; return; } uint32_key = (uint32_t) val; static_table_key->key = &uint32_key; break; } break; case STKTABLE_TYPE_STRING: static_table_key->key = args[4]; static_table_key->key_len = strlen(args[4]); break; default: switch (action) { case STAT_CLI_O_TAB: appctx->ctx.cli.msg = "Showing keys from tables of type other than ip, ipv6, string and integer is not supported\n"; break; case STAT_CLI_O_CLR: appctx->ctx.cli.msg = "Removing keys from ip tables of type other than ip, ipv6, string and integer is not supported\n"; break; default: appctx->ctx.cli.msg = "Unknown action\n"; break; } appctx->st0 = STAT_CLI_PRINT; return; } /* check permissions */ if (s->listener->bind_conf->level < ACCESS_LVL_OPER) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return; } ts = stktable_lookup_key(&px->table, static_table_key); switch (action) { case STAT_CLI_O_TAB: if (!ts) return; chunk_reset(&trash); if (!stats_dump_table_head_to_buffer(&trash, si, px, px)) return; stats_dump_table_entry_to_buffer(&trash, si, px, ts); return; case STAT_CLI_O_CLR: if (!ts) return; if (ts->ref_cnt) { /* don't delete an entry which is currently referenced */ appctx->ctx.cli.msg = "Entry currently in use, cannot remove\n"; appctx->st0 = STAT_CLI_PRINT; return; } stksess_kill(&px->table, ts); break; case STAT_CLI_O_SET: if (ts) stktable_touch(&px->table, ts, 1); else { ts = stksess_new(&px->table, static_table_key); if (!ts) { /* don't delete an entry which is currently referenced */ appctx->ctx.cli.msg = "Unable to allocate a new entry\n"; appctx->st0 = STAT_CLI_PRINT; return; } stktable_store(&px->table, ts, 1); } for (cur_arg = 5; *args[cur_arg]; cur_arg += 2) { if (strncmp(args[cur_arg], "data.", 5) != 0) { appctx->ctx.cli.msg = "\"data.\" followed by a value expected\n"; appctx->st0 = STAT_CLI_PRINT; return; } data_type = stktable_get_data_type(args[cur_arg] + 5); if (data_type < 0) { appctx->ctx.cli.msg = "Unknown data type\n"; appctx->st0 = STAT_CLI_PRINT; return; } if (!px->table.data_ofs[data_type]) { appctx->ctx.cli.msg = "Data type not stored in this table\n"; appctx->st0 = STAT_CLI_PRINT; return; } if (!*args[cur_arg+1] || strl2llrc(args[cur_arg+1], strlen(args[cur_arg+1]), &value) != 0) { appctx->ctx.cli.msg = "Require a valid integer value to store\n"; appctx->st0 = STAT_CLI_PRINT; return; } ptr = stktable_data_ptr(&px->table, ts, data_type); switch (stktable_data_types[data_type].std_type) { case STD_T_SINT: stktable_data_cast(ptr, std_t_sint) = value; break; case STD_T_UINT: stktable_data_cast(ptr, std_t_uint) = value; break; case STD_T_ULL: stktable_data_cast(ptr, std_t_ull) = value; break; case STD_T_FRQP: /* We set both the current and previous values. That way * the reported frequency is stable during all the period * then slowly fades out. This allows external tools to * push measures without having to update them too often. */ frqp = &stktable_data_cast(ptr, std_t_frqp); frqp->curr_tick = now_ms; frqp->prev_ctr = 0; frqp->curr_ctr = value; break; } } break; default: appctx->ctx.cli.msg = "Unknown action\n"; appctx->st0 = STAT_CLI_PRINT; break; } } static void stats_sock_table_data_request(struct stream_interface *si, char **args, int action) { struct appctx *appctx = __objt_appctx(si->end); if (action != STAT_CLI_O_TAB && action != STAT_CLI_O_CLR) { appctx->ctx.cli.msg = "content-based lookup is only supported with the \"show\" and \"clear\" actions"; appctx->st0 = STAT_CLI_PRINT; return; } /* condition on stored data value */ appctx->ctx.table.data_type = stktable_get_data_type(args[3] + 5); if (appctx->ctx.table.data_type < 0) { appctx->ctx.cli.msg = "Unknown data type\n"; appctx->st0 = STAT_CLI_PRINT; return; } if (!((struct proxy *)appctx->ctx.table.target)->table.data_ofs[appctx->ctx.table.data_type]) { appctx->ctx.cli.msg = "Data type not stored in this table\n"; appctx->st0 = STAT_CLI_PRINT; return; } appctx->ctx.table.data_op = get_std_op(args[4]); if (appctx->ctx.table.data_op < 0) { appctx->ctx.cli.msg = "Require and operator among \"eq\", \"ne\", \"le\", \"ge\", \"lt\", \"gt\"\n"; appctx->st0 = STAT_CLI_PRINT; return; } if (!*args[5] || strl2llrc(args[5], strlen(args[5]), &appctx->ctx.table.value) != 0) { appctx->ctx.cli.msg = "Require a valid integer value to compare against\n"; appctx->st0 = STAT_CLI_PRINT; return; } } static void stats_sock_table_request(struct stream_interface *si, char **args, int action) { struct appctx *appctx = __objt_appctx(si->end); appctx->ctx.table.data_type = -1; appctx->st2 = STAT_ST_INIT; appctx->ctx.table.target = NULL; appctx->ctx.table.proxy = NULL; appctx->ctx.table.entry = NULL; appctx->st0 = action; if (*args[2]) { appctx->ctx.table.target = find_stktable(args[2]); if (!appctx->ctx.table.target) { appctx->ctx.cli.msg = "No such table\n"; appctx->st0 = STAT_CLI_PRINT; return; } } else { if (action != STAT_CLI_O_TAB) goto err_args; return; } if (strcmp(args[3], "key") == 0) stats_sock_table_key_request(si, args, action); else if (strncmp(args[3], "data.", 5) == 0) stats_sock_table_data_request(si, args, action); else if (*args[3]) goto err_args; return; err_args: switch (action) { case STAT_CLI_O_TAB: appctx->ctx.cli.msg = "Optional argument only supports \"data.\" and key \n"; break; case STAT_CLI_O_CLR: appctx->ctx.cli.msg = "Required arguments: \"data.\" or
key \n"; break; default: appctx->ctx.cli.msg = "Unknown action\n"; break; } appctx->st0 = STAT_CLI_PRINT; } /* Expects to find a frontend named and returns it, otherwise displays various * adequate error messages and returns NULL. This function also expects the session * level to be admin. */ static struct proxy *expect_frontend_admin(struct session *s, struct stream_interface *si, const char *arg) { struct appctx *appctx = __objt_appctx(si->end); struct proxy *px; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return NULL; } if (!*arg) { appctx->ctx.cli.msg = "A frontend name is expected.\n"; appctx->st0 = STAT_CLI_PRINT; return NULL; } px = findproxy(arg, PR_CAP_FE); if (!px) { appctx->ctx.cli.msg = "No such frontend.\n"; appctx->st0 = STAT_CLI_PRINT; return NULL; } return px; } /* Expects to find a backend and a server in under the form /, * and returns the pointer to the server. Otherwise, display adequate error messages * and returns NULL. This function also expects the session level to be admin. Note: * the is modified to remove the '/'. */ static struct server *expect_server_admin(struct session *s, struct stream_interface *si, char *arg) { struct appctx *appctx = __objt_appctx(si->end); struct proxy *px; struct server *sv; char *line; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return NULL; } /* split "backend/server" and make point to server */ for (line = arg; *line; line++) if (*line == '/') { *line++ = '\0'; break; } if (!*line || !*arg) { appctx->ctx.cli.msg = "Require 'backend/server'.\n"; appctx->st0 = STAT_CLI_PRINT; return NULL; } if (!get_backend_server(arg, line, &px, &sv)) { appctx->ctx.cli.msg = px ? "No such server.\n" : "No such backend.\n"; appctx->st0 = STAT_CLI_PRINT; return NULL; } if (px->state == PR_STSTOPPED) { appctx->ctx.cli.msg = "Proxy is disabled.\n"; appctx->st0 = STAT_CLI_PRINT; return NULL; } return sv; } /* This function is used with map and acl management. It permits to browse * each reference. The variable must contain the current node, * point to the root node and the permit to filter required * nodes. */ static inline struct pat_ref *pat_list_get_next(struct pat_ref *getnext, struct list *end, unsigned int flags) { struct pat_ref *ref = getnext; while (1) { /* Get next list entry. */ ref = LIST_NEXT(&ref->list, struct pat_ref *, list); /* If the entry is the last of the list, return NULL. */ if (&ref->list == end) return NULL; /* If the entry match the flag, return it. */ if (ref->flags & flags) return ref; } } static inline struct pat_ref *pat_ref_lookup_ref(const char *reference) { int id; char *error; /* If the reference starts by a '#', this is numeric id. */ if (reference[0] == '#') { /* Try to convert the numeric id. If the conversion fails, the lookup fails. */ id = strtol(reference + 1, &error, 10); if (*error != '\0') return NULL; /* Perform the unique id lookup. */ return pat_ref_lookupid(id); } /* Perform the string lookup. */ return pat_ref_lookup(reference); } /* This function is used with map and acl management. It permits to browse * each reference. */ static inline struct pattern_expr *pat_expr_get_next(struct pattern_expr *getnext, struct list *end) { struct pattern_expr *expr; expr = LIST_NEXT(&getnext->list, struct pattern_expr *, list); if (&expr->list == end) return NULL; return expr; } /* Processes the stats interpreter on the statistics socket. This function is * called from an applet running in a stream interface. The function returns 1 * if the request was understood, otherwise zero. It sets appctx->st0 to a value * designating the function which will have to process the request, which can * also be the print function to display the return message set into cli.msg. */ static int stats_sock_parse_request(struct stream_interface *si, char *line) { struct session *s = session_from_task(si->owner); struct appctx *appctx = __objt_appctx(si->end); char *args[MAX_STATS_ARGS + 1]; int arg; int i, j; while (isspace((unsigned char)*line)) line++; arg = 0; args[arg] = line; while (*line && arg < MAX_STATS_ARGS) { if (*line == '\\') { line++; if (*line == '\0') break; } else if (isspace((unsigned char)*line)) { *line++ = '\0'; while (isspace((unsigned char)*line)) line++; args[++arg] = line; continue; } line++; } while (++arg <= MAX_STATS_ARGS) args[arg] = line; /* remove \ */ arg = 0; while (*args[arg] != '\0') { j = 0; for (i=0; args[arg][i] != '\0'; i++) { if (args[arg][i] == '\\') continue; args[arg][j] = args[arg][i]; j++; } args[arg][j] = '\0'; arg++; } appctx->ctx.stats.flags = 0; if (strcmp(args[0], "show") == 0) { if (strcmp(args[1], "stat") == 0) { if (*args[2] && *args[3] && *args[4]) { appctx->ctx.stats.flags |= STAT_BOUND; appctx->ctx.stats.iid = atoi(args[2]); appctx->ctx.stats.type = atoi(args[3]); appctx->ctx.stats.sid = atoi(args[4]); } appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_STAT; // stats_dump_stat_to_buffer } else if (strcmp(args[1], "info") == 0) { appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_INFO; // stats_dump_info_to_buffer } else if (strcmp(args[1], "pools") == 0) { appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_POOLS; // stats_dump_pools_to_buffer } else if (strcmp(args[1], "sess") == 0) { appctx->st2 = STAT_ST_INIT; if (s->listener->bind_conf->level < ACCESS_LVL_OPER) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (*args[2] && strcmp(args[2], "all") == 0) appctx->ctx.sess.target = (void *)-1; else if (*args[2]) appctx->ctx.sess.target = (void *)strtoul(args[2], NULL, 0); else appctx->ctx.sess.target = NULL; appctx->ctx.sess.section = 0; /* start with session status */ appctx->ctx.sess.pos = 0; appctx->st0 = STAT_CLI_O_SESS; // stats_dump_sess_to_buffer } else if (strcmp(args[1], "errors") == 0) { if (s->listener->bind_conf->level < ACCESS_LVL_OPER) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (*args[2]) appctx->ctx.errors.iid = atoi(args[2]); else appctx->ctx.errors.iid = -1; appctx->ctx.errors.px = NULL; appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_ERR; // stats_dump_errors_to_buffer } else if (strcmp(args[1], "table") == 0) { stats_sock_table_request(si, args, STAT_CLI_O_TAB); } else if (strcmp(args[1], "map") == 0 || strcmp(args[1], "acl") == 0) { /* Set ACL or MAP flags. */ if (args[1][0] == 'm') appctx->ctx.map.display_flags = PAT_REF_MAP; else appctx->ctx.map.display_flags = PAT_REF_ACL; /* no parameter: display all map avalaible */ if (!*args[2]) { appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_PATS; return 1; } /* lookup into the refs and check the map flag */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref || !(appctx->ctx.map.ref->flags & appctx->ctx.map.display_flags)) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; else appctx->ctx.cli.msg = "Unknown ACL identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_PAT; } else { /* neither "stat" nor "info" nor "sess" nor "errors" nor "table" */ return 0; } } else if (strcmp(args[0], "clear") == 0) { if (strcmp(args[1], "counters") == 0) { struct proxy *px; struct server *sv; struct listener *li; int clrall = 0; if (strcmp(args[2], "all") == 0) clrall = 1; /* check permissions */ if (s->listener->bind_conf->level < ACCESS_LVL_OPER || (clrall && s->listener->bind_conf->level < ACCESS_LVL_ADMIN)) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } for (px = proxy; px; px = px->next) { if (clrall) { memset(&px->be_counters, 0, sizeof(px->be_counters)); memset(&px->fe_counters, 0, sizeof(px->fe_counters)); } else { px->be_counters.conn_max = 0; px->be_counters.p.http.rps_max = 0; px->be_counters.sps_max = 0; px->be_counters.cps_max = 0; px->be_counters.nbpend_max = 0; px->fe_counters.conn_max = 0; px->fe_counters.p.http.rps_max = 0; px->fe_counters.sps_max = 0; px->fe_counters.cps_max = 0; px->fe_counters.nbpend_max = 0; } for (sv = px->srv; sv; sv = sv->next) if (clrall) memset(&sv->counters, 0, sizeof(sv->counters)); else { sv->counters.cur_sess_max = 0; sv->counters.nbpend_max = 0; sv->counters.sps_max = 0; } list_for_each_entry(li, &px->conf.listeners, by_fe) if (li->counters) { if (clrall) memset(li->counters, 0, sizeof(*li->counters)); else li->counters->conn_max = 0; } } global.cps_max = 0; global.sps_max = 0; return 1; } else if (strcmp(args[1], "table") == 0) { stats_sock_table_request(si, args, STAT_CLI_O_CLR); /* end of processing */ return 1; } else if (strcmp(args[1], "map") == 0 || strcmp(args[1], "acl") == 0) { /* Set ACL or MAP flags. */ if (args[1][0] == 'm') appctx->ctx.map.display_flags = PAT_REF_MAP; else appctx->ctx.map.display_flags = PAT_REF_ACL; /* no parameter */ if (!*args[2]) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Missing map identifier.\n"; else appctx->ctx.cli.msg = "Missing ACL identifier.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* lookup into the refs and check the map flag */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref || !(appctx->ctx.map.ref->flags & appctx->ctx.map.display_flags)) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; else appctx->ctx.cli.msg = "Unknown ACL identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Clear all. */ pat_ref_prune(appctx->ctx.map.ref); /* return response */ appctx->ctx.cli.msg = "Done.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } else { /* unknown "clear" argument */ return 0; } } else if (strcmp(args[0], "get") == 0) { if (strcmp(args[1], "weight") == 0) { struct proxy *px; struct server *sv; /* split "backend/server" and make point to server */ for (line = args[2]; *line; line++) if (*line == '/') { *line++ = '\0'; break; } if (!*line) { appctx->ctx.cli.msg = "Require 'backend/server'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!get_backend_server(args[2], line, &px, &sv)) { appctx->ctx.cli.msg = px ? "No such server.\n" : "No such backend.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* return server's effective weight at the moment */ snprintf(trash.str, trash.size, "%d (initial %d)\n", sv->uweight, sv->iweight); bi_putstr(si->ib, trash.str); return 1; } else if (strcmp(args[1], "map") == 0 || strcmp(args[1], "acl") == 0) { /* Set flags. */ if (args[1][0] == 'm') appctx->ctx.map.display_flags = PAT_REF_MAP; else appctx->ctx.map.display_flags = PAT_REF_ACL; /* No parameter. */ if (!*args[2] || !*args[3]) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Missing map identifier and/or key.\n"; else appctx->ctx.cli.msg = "Missing ACL identifier and/or key.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* lookup into the maps */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; else appctx->ctx.cli.msg = "Unknown ACL identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* copy input string. The string must be allocated because * it may be used over multiple iterations. It's released * at the end and upon abort anyway. */ appctx->ctx.map.chunk.len = strlen(args[3]); appctx->ctx.map.chunk.size = appctx->ctx.map.chunk.len + 1; appctx->ctx.map.chunk.str = strdup(args[3]); if (!appctx->ctx.map.chunk.str) { appctx->ctx.cli.msg = "Out of memory error.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* prepare response */ appctx->st2 = STAT_ST_INIT; appctx->st0 = STAT_CLI_O_MLOOK; } else { /* not "get weight" */ return 0; } } else if (strcmp(args[0], "set") == 0) { if (strcmp(args[1], "weight") == 0) { struct server *sv; const char *warning; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; warning = server_parse_weight_change_request(sv, args[3]); if (warning) { appctx->ctx.cli.msg = warning; appctx->st0 = STAT_CLI_PRINT; } return 1; } else if (strcmp(args[1], "server") == 0) { struct server *sv; const char *warning; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; if (strcmp(args[3], "weight") == 0) { warning = server_parse_weight_change_request(sv, args[4]); if (warning) { appctx->ctx.cli.msg = warning; appctx->st0 = STAT_CLI_PRINT; } } else if (strcmp(args[3], "state") == 0) { if (strcmp(args[4], "ready") == 0) srv_adm_set_ready(sv); else if (strcmp(args[4], "drain") == 0) srv_adm_set_drain(sv); else if (strcmp(args[4], "maint") == 0) srv_adm_set_maint(sv); else { appctx->ctx.cli.msg = "'set server state' expects 'ready', 'drain' and 'maint'.\n"; appctx->st0 = STAT_CLI_PRINT; } } else if (strcmp(args[3], "health") == 0) { if (sv->track) { appctx->ctx.cli.msg = "cannot change health on a tracking server.\n"; appctx->st0 = STAT_CLI_PRINT; } else if (strcmp(args[4], "up") == 0) { sv->check.health = sv->check.rise + sv->check.fall - 1; srv_set_running(sv, "changed from CLI"); } else if (strcmp(args[4], "stopping") == 0) { sv->check.health = sv->check.rise + sv->check.fall - 1; srv_set_stopping(sv, "changed from CLI"); } else if (strcmp(args[4], "down") == 0) { sv->check.health = 0; srv_set_stopped(sv, "changed from CLI"); } else { appctx->ctx.cli.msg = "'set server health' expects 'up', 'stopping', or 'down'.\n"; appctx->st0 = STAT_CLI_PRINT; } } else if (strcmp(args[3], "agent") == 0) { if (!(sv->agent.state & CHK_ST_ENABLED)) { appctx->ctx.cli.msg = "agent checks are not enabled on this server.\n"; appctx->st0 = STAT_CLI_PRINT; } else if (strcmp(args[4], "up") == 0) { sv->agent.health = sv->agent.rise + sv->agent.fall - 1; srv_set_running(sv, "changed from CLI"); } else if (strcmp(args[4], "down") == 0) { sv->agent.health = 0; srv_set_stopped(sv, "changed from CLI"); } else { appctx->ctx.cli.msg = "'set server agent' expects 'up' or 'down'.\n"; appctx->st0 = STAT_CLI_PRINT; } } else { appctx->ctx.cli.msg = "'set server ' only supports 'agent', 'health', 'state' and 'weight'.\n"; appctx->st0 = STAT_CLI_PRINT; } return 1; } else if (strcmp(args[1], "timeout") == 0) { if (strcmp(args[2], "cli") == 0) { unsigned timeout; const char *res; if (!*args[3]) { appctx->ctx.cli.msg = "Expects an integer value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } res = parse_time_err(args[3], &timeout, TIME_UNIT_S); if (res || timeout < 1) { appctx->ctx.cli.msg = "Invalid timeout value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } s->req->rto = s->rep->wto = 1 + MS_TO_TICKS(timeout*1000); return 1; } else { appctx->ctx.cli.msg = "'set timeout' only supports 'cli'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[1], "maxconn") == 0) { if (strcmp(args[2], "frontend") == 0) { struct proxy *px; struct listener *l; int v; px = expect_frontend_admin(s, si, args[3]); if (!px) return 1; if (!*args[4]) { appctx->ctx.cli.msg = "Integer value expected.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[4]); if (v < 0) { appctx->ctx.cli.msg = "Value out of range.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* OK, the value is fine, so we assign it to the proxy and to all of * its listeners. The blocked ones will be dequeued. */ px->maxconn = v; list_for_each_entry(l, &px->conf.listeners, by_fe) { l->maxconn = v; if (l->state == LI_FULL) resume_listener(l); } if (px->maxconn > px->feconn && !LIST_ISEMPTY(&s->fe->listener_queue)) dequeue_all_listeners(&s->fe->listener_queue); return 1; } else if (strcmp(args[2], "global") == 0) { int v; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!*args[3]) { appctx->ctx.cli.msg = "Expects an integer value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[3]); if (v > global.hardmaxconn) { appctx->ctx.cli.msg = "Value out of range.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* check for unlimited values */ if (v <= 0) v = global.hardmaxconn; global.maxconn = v; /* Dequeues all of the listeners waiting for a resource */ if (!LIST_ISEMPTY(&global_listener_queue)) dequeue_all_listeners(&global_listener_queue); return 1; } else { appctx->ctx.cli.msg = "'set maxconn' only supports 'frontend' and 'global'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[1], "rate-limit") == 0) { if (strcmp(args[2], "connections") == 0) { if (strcmp(args[3], "global") == 0) { int v; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!*args[4]) { appctx->ctx.cli.msg = "Expects an integer value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[4]); if (v < 0) { appctx->ctx.cli.msg = "Value out of range.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } global.cps_lim = v; /* Dequeues all of the listeners waiting for a resource */ if (!LIST_ISEMPTY(&global_listener_queue)) dequeue_all_listeners(&global_listener_queue); return 1; } else { appctx->ctx.cli.msg = "'set rate-limit connections' only supports 'global'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[2], "sessions") == 0) { if (strcmp(args[3], "global") == 0) { int v; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!*args[4]) { appctx->ctx.cli.msg = "Expects an integer value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[4]); if (v < 0) { appctx->ctx.cli.msg = "Value out of range.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } global.sps_lim = v; /* Dequeues all of the listeners waiting for a resource */ if (!LIST_ISEMPTY(&global_listener_queue)) dequeue_all_listeners(&global_listener_queue); return 1; } else { appctx->ctx.cli.msg = "'set rate-limit sessions' only supports 'global'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } #ifdef USE_OPENSSL else if (strcmp(args[2], "ssl-sessions") == 0) { if (strcmp(args[3], "global") == 0) { int v; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!*args[4]) { appctx->ctx.cli.msg = "Expects an integer value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[4]); if (v < 0) { appctx->ctx.cli.msg = "Value out of range.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } global.ssl_lim = v; /* Dequeues all of the listeners waiting for a resource */ if (!LIST_ISEMPTY(&global_listener_queue)) dequeue_all_listeners(&global_listener_queue); return 1; } else { appctx->ctx.cli.msg = "'set rate-limit ssl-sessions' only supports 'global'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } #endif else if (strcmp(args[2], "http-compression") == 0) { if (strcmp(args[3], "global") == 0) { int v; if (!*args[4]) { appctx->ctx.cli.msg = "Expects a maximum input byte rate in kB/s.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } v = atoi(args[4]); global.comp_rate_lim = v * 1024; /* Kilo to bytes. */ } else { appctx->ctx.cli.msg = "'set rate-limit http-compression' only supports 'global'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { appctx->ctx.cli.msg = "'set rate-limit' supports 'connections', 'sessions', 'ssl-sessions', and 'http-compression'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[1], "table") == 0) { stats_sock_table_request(si, args, STAT_CLI_O_SET); } else if (strcmp(args[1], "map") == 0) { char *err; /* Set flags. */ appctx->ctx.map.display_flags = PAT_REF_MAP; /* Expect three parameters: map name, key and new value. */ if (!*args[2] || !*args[3] || !*args[4]) { appctx->ctx.cli.msg = "'set map' expects three parameters: map identifier, key and value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Lookup the reference in the maps. */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref) { appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* If the entry identifier start with a '#', it is considered as * pointer id */ if (args[3][0] == '#' && args[3][1] == '0' && args[3][2] == 'x') { struct pat_ref_elt *ref; long long int conv; char *error; /* Convert argument to integer value. */ conv = strtoll(&args[3][1], &error, 16); if (*error != '\0') { appctx->ctx.cli.msg = "Malformed identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Convert and check integer to pointer. */ ref = (struct pat_ref_elt *)(long)conv; if ((long long int)(long)ref != conv) { appctx->ctx.cli.msg = "Malformed identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Try to delete the entry. */ err = NULL; if (!pat_ref_set_by_id(appctx->ctx.map.ref, ref, args[4], &err)) { if (err) memprintf(&err, "%s.\n", err); appctx->ctx.cli.err = err; appctx->st0 = STAT_CLI_PRINT_FREE; return 1; } } else { /* Else, use the entry identifier as pattern * string, and update the value. */ err = NULL; if (!pat_ref_set(appctx->ctx.map.ref, args[3], args[4], &err)) { if (err) memprintf(&err, "%s.\n", err); appctx->ctx.cli.err = err; appctx->st0 = STAT_CLI_PRINT_FREE; return 1; } } /* The set is done, send message. */ appctx->ctx.cli.msg = "Done.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } #ifdef USE_OPENSSL else if (strcmp(args[1], "ssl") == 0) { if (strcmp(args[2], "ocsp-response") == 0) { #ifdef SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB char *err = NULL; /* Expect one parameter: the new response in base64 encoding */ if (!*args[3]) { appctx->ctx.cli.msg = "'set ssl ocsp-response' expects response in base64 encoding.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } trash.len = base64dec(args[3], strlen(args[3]), trash.str, trash.size); if (trash.len < 0) { appctx->ctx.cli.msg = "'set ssl ocsp-response' received invalid base64 encoded response.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (ssl_sock_update_ocsp_response(&trash, &err)) { if (err) { memprintf(&err, "%s.\n", err); appctx->ctx.cli.err = err; appctx->st0 = STAT_CLI_PRINT_FREE; } return 1; } appctx->ctx.cli.msg = "OCSP Response updated!"; appctx->st0 = STAT_CLI_PRINT; return 1; #else appctx->ctx.cli.msg = "HAProxy was compiled against a version of OpenSSL that doesn't support OCSP stapling.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; #endif } else { appctx->ctx.cli.msg = "'set ssl' only supports 'ocsp-response'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } #endif else { /* unknown "set" parameter */ return 0; } } else if (strcmp(args[0], "enable") == 0) { if (strcmp(args[1], "agent") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; if (!(sv->agent.state & CHK_ST_CONFIGURED)) { appctx->ctx.cli.msg = "Agent was not configured on this server, cannot enable.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } sv->agent.state |= CHK_ST_ENABLED; return 1; } else if (strcmp(args[1], "health") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; if (!(sv->check.state & CHK_ST_CONFIGURED)) { appctx->ctx.cli.msg = "Health checks are not configured on this server, cannot enable.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } sv->check.state |= CHK_ST_ENABLED; return 1; } else if (strcmp(args[1], "server") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; srv_adm_set_ready(sv); return 1; } else if (strcmp(args[1], "frontend") == 0) { struct proxy *px; px = expect_frontend_admin(s, si, args[2]); if (!px) return 1; if (px->state == PR_STSTOPPED) { appctx->ctx.cli.msg = "Frontend was previously shut down, cannot enable.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (px->state != PR_STPAUSED) { appctx->ctx.cli.msg = "Frontend is already enabled.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!resume_proxy(px)) { appctx->ctx.cli.msg = "Failed to resume frontend, check logs for precise cause (port conflict?).\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } return 1; } else { /* unknown "enable" parameter */ appctx->ctx.cli.msg = "'enable' only supports 'agent', 'frontend', 'health', and 'server'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[0], "disable") == 0) { if (strcmp(args[1], "agent") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; sv->agent.state &= ~CHK_ST_ENABLED; return 1; } else if (strcmp(args[1], "health") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; sv->check.state &= ~CHK_ST_ENABLED; return 1; } else if (strcmp(args[1], "server") == 0) { struct server *sv; sv = expect_server_admin(s, si, args[2]); if (!sv) return 1; srv_adm_set_maint(sv); return 1; } else if (strcmp(args[1], "frontend") == 0) { struct proxy *px; px = expect_frontend_admin(s, si, args[2]); if (!px) return 1; if (px->state == PR_STSTOPPED) { appctx->ctx.cli.msg = "Frontend was previously shut down, cannot disable.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (px->state == PR_STPAUSED) { appctx->ctx.cli.msg = "Frontend is already disabled.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!pause_proxy(px)) { appctx->ctx.cli.msg = "Failed to pause frontend, check logs for precise cause.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } return 1; } else { /* unknown "disable" parameter */ appctx->ctx.cli.msg = "'disable' only supports 'agent', 'frontend', 'health', and 'server'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[0], "shutdown") == 0) { if (strcmp(args[1], "frontend") == 0) { struct proxy *px; px = expect_frontend_admin(s, si, args[2]); if (!px) return 1; if (px->state == PR_STSTOPPED) { appctx->ctx.cli.msg = "Frontend was already shut down.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } Warning("Proxy %s stopped (FE: %lld conns, BE: %lld conns).\n", px->id, px->fe_counters.cum_conn, px->be_counters.cum_conn); send_log(px, LOG_WARNING, "Proxy %s stopped (FE: %lld conns, BE: %lld conns).\n", px->id, px->fe_counters.cum_conn, px->be_counters.cum_conn); stop_proxy(px); return 1; } else if (strcmp(args[1], "session") == 0) { struct session *sess, *ptr; if (s->listener->bind_conf->level < ACCESS_LVL_ADMIN) { appctx->ctx.cli.msg = stats_permission_denied_msg; appctx->st0 = STAT_CLI_PRINT; return 1; } if (!*args[2]) { appctx->ctx.cli.msg = "Session pointer expected (use 'show sess').\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } ptr = (void *)strtoul(args[2], NULL, 0); /* first, look for the requested session in the session table */ list_for_each_entry(sess, &sessions, list) { if (sess == ptr) break; } /* do we have the session ? */ if (sess != ptr) { appctx->ctx.cli.msg = "No such session (use 'show sess').\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } session_shutdown(sess, SN_ERR_KILLED); return 1; } else if (strcmp(args[1], "sessions") == 0) { if (strcmp(args[2], "server") == 0) { struct server *sv; struct session *sess, *sess_bck; sv = expect_server_admin(s, si, args[3]); if (!sv) return 1; /* kill all the session that are on this server */ list_for_each_entry_safe(sess, sess_bck, &sv->actconns, by_srv) if (sess->srv_conn == sv) session_shutdown(sess, SN_ERR_KILLED); return 1; } else { appctx->ctx.cli.msg = "'shutdown sessions' only supports 'server'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { /* unknown "disable" parameter */ appctx->ctx.cli.msg = "'shutdown' only supports 'frontend', 'session' and 'sessions'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[0], "del") == 0) { if (strcmp(args[1], "map") == 0 || strcmp(args[1], "acl") == 0) { if (args[1][0] == 'm') appctx->ctx.map.display_flags = PAT_REF_MAP; else appctx->ctx.map.display_flags = PAT_REF_ACL; /* Expect two parameters: map name and key. */ if (appctx->ctx.map.display_flags == PAT_REF_MAP) { if (!*args[2] || !*args[3]) { appctx->ctx.cli.msg = "This command expects two parameters: map identifier and key.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { if (!*args[2] || !*args[3]) { appctx->ctx.cli.msg = "This command expects two parameters: ACL identifier and key.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } /* Lookup the reference in the maps. */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref || !(appctx->ctx.map.ref->flags & appctx->ctx.map.display_flags)) { appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* If the entry identifier start with a '#', it is considered as * pointer id */ if (args[3][0] == '#' && args[3][1] == '0' && args[3][2] == 'x') { struct pat_ref_elt *ref; long long int conv; char *error; /* Convert argument to integer value. */ conv = strtoll(&args[3][1], &error, 16); if (*error != '\0') { appctx->ctx.cli.msg = "Malformed identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Convert and check integer to pointer. */ ref = (struct pat_ref_elt *)(long)conv; if ((long long int)(long)ref != conv) { appctx->ctx.cli.msg = "Malformed identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Try to delete the entry. */ if (!pat_ref_delete_by_id(appctx->ctx.map.ref, ref)) { /* The entry is not found, send message. */ appctx->ctx.cli.msg = "Key not found.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { /* Else, use the entry identifier as pattern * string and try to delete the entry. */ if (!pat_ref_delete(appctx->ctx.map.ref, args[3])) { /* The entry is not found, send message. */ appctx->ctx.cli.msg = "Key not found.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } /* The deletion is done, send message. */ appctx->ctx.cli.msg = "Done.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } else { /* unknown "del" parameter */ appctx->ctx.cli.msg = "'del' only supports 'map' or 'acl'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else if (strcmp(args[0], "add") == 0) { if (strcmp(args[1], "map") == 0 || strcmp(args[1], "acl") == 0) { int ret; char *err; /* Set flags. */ if (args[1][0] == 'm') appctx->ctx.map.display_flags = PAT_REF_MAP; else appctx->ctx.map.display_flags = PAT_REF_ACL; /* If the keywork is "map", we expect three parameters, if it * is "acl", we expect only two parameters */ if (appctx->ctx.map.display_flags == PAT_REF_MAP) { if (!*args[2] || !*args[3] || !*args[4]) { appctx->ctx.cli.msg = "'add map' expects three parameters: map identifier, key and value.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { if (!*args[2] || !*args[3]) { appctx->ctx.cli.msg = "'add acl' expects two parameters: ACL identifier and pattern.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } /* Lookup for the reference. */ appctx->ctx.map.ref = pat_ref_lookup_ref(args[2]); if (!appctx->ctx.map.ref) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) appctx->ctx.cli.msg = "Unknown map identifier. Please use # or .\n"; else appctx->ctx.cli.msg = "Unknown ACL identifier. Please use # or .\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* The command "add acl" is prohibited if the reference * use samples. */ if ((appctx->ctx.map.display_flags & PAT_REF_ACL) && (appctx->ctx.map.ref->flags & PAT_REF_SMP)) { appctx->ctx.cli.msg = "This ACL is shared with a map containing samples. " "You must use the command 'add map' to add values.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } /* Add value. */ err = NULL; if (appctx->ctx.map.display_flags == PAT_REF_MAP) ret = pat_ref_add(appctx->ctx.map.ref, args[3], args[4], &err); else ret = pat_ref_add(appctx->ctx.map.ref, args[3], NULL, &err); if (!ret) { if (err) memprintf(&err, "%s.\n", err); appctx->ctx.cli.err = err; appctx->st0 = STAT_CLI_PRINT_FREE; return 1; } /* The add is done, send message. */ appctx->ctx.cli.msg = "Done.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } else { /* unknown "del" parameter */ appctx->ctx.cli.msg = "'add' only supports 'map'.\n"; appctx->st0 = STAT_CLI_PRINT; return 1; } } else { /* not "show" nor "clear" nor "get" nor "set" nor "enable" nor "disable" */ return 0; } return 1; } /* This I/O handler runs as an applet embedded in a stream interface. It is * used to processes I/O from/to the stats unix socket. The system relies on a * state machine handling requests and various responses. We read a request, * then we process it and send the response, and we possibly display a prompt. * Then we can read again. The state is stored in appctx->st0 and is one of the * STAT_CLI_* constants. appctx->st1 is used to indicate whether prompt is enabled * or not. */ static void cli_io_handler(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); struct channel *req = si->ob; struct channel *res = si->ib; int reql; int len; if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO)) goto out; while (1) { if (appctx->st0 == STAT_CLI_INIT) { /* Stats output not initialized yet */ memset(&appctx->ctx.stats, 0, sizeof(appctx->ctx.stats)); appctx->st0 = STAT_CLI_GETREQ; } else if (appctx->st0 == STAT_CLI_END) { /* Let's close for real now. We just close the request * side, the conditions below will complete if needed. */ si_shutw(si); break; } else if (appctx->st0 == STAT_CLI_GETREQ) { /* ensure we have some output room left in the event we * would want to return some info right after parsing. */ if (buffer_almost_full(si->ib->buf)) { si->ib->flags |= CF_WAKE_WRITE; break; } reql = bo_getline(si->ob, trash.str, trash.size); if (reql <= 0) { /* closed or EOL not found */ if (reql == 0) break; appctx->st0 = STAT_CLI_END; continue; } /* seek for a possible semi-colon. If we find one, we * replace it with an LF and skip only this part. */ for (len = 0; len < reql; len++) if (trash.str[len] == ';') { trash.str[len] = '\n'; reql = len + 1; break; } /* now it is time to check that we have a full line, * remove the trailing \n and possibly \r, then cut the * line. */ len = reql - 1; if (trash.str[len] != '\n') { appctx->st0 = STAT_CLI_END; continue; } if (len && trash.str[len-1] == '\r') len--; trash.str[len] = '\0'; appctx->st0 = STAT_CLI_PROMPT; if (len) { if (strcmp(trash.str, "quit") == 0) { appctx->st0 = STAT_CLI_END; continue; } else if (strcmp(trash.str, "prompt") == 0) appctx->st1 = !appctx->st1; else if (strcmp(trash.str, "help") == 0 || !stats_sock_parse_request(si, trash.str)) { appctx->ctx.cli.msg = stats_sock_usage_msg; appctx->st0 = STAT_CLI_PRINT; } /* NB: stats_sock_parse_request() may have put * another STAT_CLI_O_* into appctx->st0. */ } else if (!appctx->st1) { /* if prompt is disabled, print help on empty lines, * so that the user at least knows how to enable * prompt and find help. */ appctx->ctx.cli.msg = stats_sock_usage_msg; appctx->st0 = STAT_CLI_PRINT; } /* re-adjust req buffer */ bo_skip(si->ob, reql); req->flags |= CF_READ_DONTWAIT; /* we plan to read small requests */ } else { /* output functions: first check if the output buffer is closed then abort */ if (res->flags & (CF_SHUTR_NOW|CF_SHUTR)) { cli_release_handler(si); appctx->st0 = STAT_CLI_END; continue; } switch (appctx->st0) { case STAT_CLI_PRINT: if (bi_putstr(si->ib, appctx->ctx.cli.msg) != -1) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_PRINT_FREE: if (bi_putstr(si->ib, appctx->ctx.cli.err) != -1) { free(appctx->ctx.cli.err); appctx->st0 = STAT_CLI_PROMPT; } break; case STAT_CLI_O_INFO: if (stats_dump_info_to_buffer(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_STAT: if (stats_dump_stat_to_buffer(si, NULL)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_SESS: if (stats_dump_sess_to_buffer(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_ERR: /* errors dump */ if (stats_dump_errors_to_buffer(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_TAB: case STAT_CLI_O_CLR: if (stats_table_request(si, appctx->st0)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_PATS: if (stats_pats_list(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_PAT: if (stats_pat_list(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_MLOOK: if (stats_map_lookup(si)) appctx->st0 = STAT_CLI_PROMPT; break; case STAT_CLI_O_POOLS: if (stats_dump_pools_to_buffer(si)) appctx->st0 = STAT_CLI_PROMPT; break; default: /* abnormal state */ cli_release_handler(si); appctx->st0 = STAT_CLI_PROMPT; break; } /* The post-command prompt is either LF alone or LF + '> ' in interactive mode */ if (appctx->st0 == STAT_CLI_PROMPT) { if (bi_putstr(si->ib, appctx->st1 ? "\n> " : "\n") != -1) appctx->st0 = STAT_CLI_GETREQ; } /* If the output functions are still there, it means they require more room. */ if (appctx->st0 >= STAT_CLI_OUTPUT) break; /* Now we close the output if one of the writers did so, * or if we're not in interactive mode and the request * buffer is empty. This still allows pipelined requests * to be sent in non-interactive mode. */ if ((res->flags & (CF_SHUTW|CF_SHUTW_NOW)) || (!appctx->st1 && !req->buf->o)) { appctx->st0 = STAT_CLI_END; continue; } /* switch state back to GETREQ to read next requests */ appctx->st0 = STAT_CLI_GETREQ; } } if ((res->flags & CF_SHUTR) && (si->state == SI_ST_EST) && (appctx->st0 != STAT_CLI_GETREQ)) { DPRINTF(stderr, "%s@%d: si to buf closed. req=%08x, res=%08x, st=%d\n", __FUNCTION__, __LINE__, req->flags, res->flags, si->state); /* Other side has closed, let's abort if we have no more processing to do * and nothing more to consume. This is comparable to a broken pipe, so * we forward the close to the request side so that it flows upstream to * the client. */ si_shutw(si); } if ((req->flags & CF_SHUTW) && (si->state == SI_ST_EST) && (appctx->st0 < STAT_CLI_OUTPUT)) { DPRINTF(stderr, "%s@%d: buf to si closed. req=%08x, res=%08x, st=%d\n", __FUNCTION__, __LINE__, req->flags, res->flags, si->state); /* We have no more processing to do, and nothing more to send, and * the client side has closed. So we'll forward this state downstream * on the response buffer. */ si_shutr(si); res->flags |= CF_READ_NULL; } /* update all other flags and resync with the other side */ si_update(si); /* we don't want to expire timeouts while we're processing requests */ si->ib->rex = TICK_ETERNITY; si->ob->wex = TICK_ETERNITY; out: DPRINTF(stderr, "%s@%d: st=%d, rqf=%x, rpf=%x, rqh=%d, rqs=%d, rh=%d, rs=%d\n", __FUNCTION__, __LINE__, si->state, req->flags, res->flags, req->buf->i, req->buf->o, res->buf->i, res->buf->o); if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO)) { /* check that we have released everything then unregister */ stream_int_unregister_handler(si); } } /* This function dumps information onto the stream interface's read buffer. * It returns 0 as long as it does not complete, non-zero upon completion. * No state is used. */ static int stats_dump_info_to_buffer(struct stream_interface *si) { unsigned int up = (now.tv_sec - start_date.tv_sec); #ifdef USE_OPENSSL int ssl_sess_rate = read_freq_ctr(&global.ssl_per_sec); int ssl_key_rate = read_freq_ctr(&global.ssl_fe_keys_per_sec); int ssl_reuse = 0; if (ssl_key_rate < ssl_sess_rate) { /* count the ssl reuse ratio and avoid overflows in both directions */ ssl_reuse = 100 - (100 * ssl_key_rate + (ssl_sess_rate - 1) / 2) / ssl_sess_rate; } #endif chunk_printf(&trash, "Name: " PRODUCT_NAME "\n" "Version: " HAPROXY_VERSION "\n" "Release_date: " HAPROXY_DATE "\n" "Nbproc: %d\n" "Process_num: %d\n" "Pid: %d\n" "Uptime: %dd %dh%02dm%02ds\n" "Uptime_sec: %d\n" "Memmax_MB: %d\n" "Ulimit-n: %d\n" "Maxsock: %d\n" "Maxconn: %d\n" "Hard_maxconn: %d\n" "CurrConns: %d\n" "CumConns: %d\n" "CumReq: %d\n" #ifdef USE_OPENSSL "MaxSslConns: %d\n" "CurrSslConns: %d\n" "CumSslConns: %d\n" #endif "Maxpipes: %d\n" "PipesUsed: %d\n" "PipesFree: %d\n" "ConnRate: %d\n" "ConnRateLimit: %d\n" "MaxConnRate: %d\n" "SessRate: %d\n" "SessRateLimit: %d\n" "MaxSessRate: %d\n" #ifdef USE_OPENSSL "SslRate: %d\n" "SslRateLimit: %d\n" "MaxSslRate: %d\n" "SslFrontendKeyRate: %d\n" "SslFrontendMaxKeyRate: %d\n" "SslFrontendSessionReuse_pct: %d\n" "SslBackendKeyRate: %d\n" "SslBackendMaxKeyRate: %d\n" "SslCacheLookups: %u\n" "SslCacheMisses: %u\n" #endif "CompressBpsIn: %u\n" "CompressBpsOut: %u\n" "CompressBpsRateLim: %u\n" #ifdef USE_ZLIB "ZlibMemUsage: %ld\n" "MaxZlibMemUsage: %ld\n" #endif "Tasks: %d\n" "Run_queue: %d\n" "Idle_pct: %d\n" "node: %s\n" "description: %s\n" "", global.nbproc, relative_pid, pid, up / 86400, (up % 86400) / 3600, (up % 3600) / 60, (up % 60), up, global.rlimit_memmax, global.rlimit_nofile, global.maxsock, global.maxconn, global.hardmaxconn, actconn, totalconn, global.req_count, #ifdef USE_OPENSSL global.maxsslconn, sslconns, totalsslconns, #endif global.maxpipes, pipes_used, pipes_free, read_freq_ctr(&global.conn_per_sec), global.cps_lim, global.cps_max, read_freq_ctr(&global.sess_per_sec), global.sps_lim, global.sps_max, #ifdef USE_OPENSSL ssl_sess_rate, global.ssl_lim, global.ssl_max, ssl_key_rate, global.ssl_fe_keys_max, ssl_reuse, read_freq_ctr(&global.ssl_be_keys_per_sec), global.ssl_be_keys_max, global.shctx_lookups, global.shctx_misses, #endif read_freq_ctr(&global.comp_bps_in), read_freq_ctr(&global.comp_bps_out), global.comp_rate_lim, #ifdef USE_ZLIB zlib_used_memory, global.maxzlibmem, #endif nb_tasks_cur, run_queue_cur, idle_pct, global.node, global.desc ? global.desc : "" ); if (bi_putchk(si->ib, &trash) == -1) return 0; return 1; } /* This function dumps memory usage information onto the stream interface's * read buffer. It returns 0 as long as it does not complete, non-zero upon * completion. No state is used. */ static int stats_dump_pools_to_buffer(struct stream_interface *si) { dump_pools_to_trash(); if (bi_putchk(si->ib, &trash) == -1) return 0; return 1; } /* Dumps a frontend's line to the trash for the current proxy and uses * the state from stream interface . The caller is responsible for clearing * the trash if needed. Returns non-zero if it emits anything, zero otherwise. */ static int stats_dump_fe_stats(struct stream_interface *si, struct proxy *px) { struct appctx *appctx = __objt_appctx(si->end); int i; if (!(px->cap & PR_CAP_FE)) return 0; if ((appctx->ctx.stats.flags & STAT_BOUND) && !(appctx->ctx.stats.type & (1 << STATS_TYPE_FE))) return 0; if (appctx->ctx.stats.flags & STAT_FMT_HTML) { chunk_appendf(&trash, /* name, queue */ ""); if (px->cap & PR_CAP_BE && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* Column sub-heading for Enable or Disable server */ chunk_appendf(&trash, ""); } chunk_appendf(&trash, "" "" "", px->id, px->id); chunk_appendf(&trash, /* sessions rate : current */ "" /* sessions rate : max */ "" /* sessions rate : limit */ "", LIM2A(px->fe_sps_lim, "-")); chunk_appendf(&trash, /* sessions: current, max, limit, total */ "" "" /* sessions: lbtot, lastsess */ "" /* bytes : in */ "" "", U2H(px->fe_counters.bytes_in)); chunk_appendf(&trash, /* bytes:out + compression stats (via hover): comp_in, comp_out, comp_byp */ "", (px->fe_counters.comp_in || px->fe_counters.comp_byp) ? "":"", U2H(px->fe_counters.bytes_out), px->fe_counters.comp_in, px->fe_counters.comp_out, px->fe_counters.comp_byp, px->fe_counters.comp_in ? (int)((px->fe_counters.comp_in - px->fe_counters.comp_out)*100/px->fe_counters.comp_in) : 0, (px->fe_counters.comp_in || px->fe_counters.comp_byp) ? "":""); chunk_appendf(&trash, /* denied: req, resp */ "" /* errors : request, connect, response */ "" /* warnings: retries, redispatches */ "" /* server status : reflect frontend status */ "" /* rest of server: nothing */ "" "", U2H(px->fe_counters.denied_req), U2H(px->fe_counters.denied_resp), U2H(px->fe_counters.failed_req), px->state == PR_STREADY ? "OPEN" : px->state == PR_STFULL ? "FULL" : "STOP"); } else { /* CSV mode */ chunk_appendf(&trash, /* pxid, name, queue cur, queue max, */ "%s,FRONTEND,,," /* sessions : current, max, limit, total */ "%d,%d,%d,%lld," /* bytes : in, out */ "%lld,%lld," /* denied: req, resp */ "%lld,%lld," /* errors : request, connect, response */ "%lld,,," /* warnings: retries, redispatches */ ",," /* server status : reflect frontend status */ "%s," /* rest of server: nothing */ ",,,,,,,," /* pid, iid, sid, throttle, lbtot, tracked, type */ "%d,%d,0,,,,%d," /* rate, rate_lim, rate_max */ "%u,%u,%u," /* check_status, check_code, check_duration */ ",,,", px->id, px->feconn, px->fe_counters.conn_max, px->maxconn, px->fe_counters.cum_sess, px->fe_counters.bytes_in, px->fe_counters.bytes_out, px->fe_counters.denied_req, px->fe_counters.denied_resp, px->fe_counters.failed_req, px->state == PR_STREADY ? "OPEN" : px->state == PR_STFULL ? "FULL" : "STOP", relative_pid, px->uuid, STATS_TYPE_FE, read_freq_ctr(&px->fe_sess_per_sec), px->fe_sps_lim, px->fe_counters.sps_max); /* http response: 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { for (i=1; i<6; i++) chunk_appendf(&trash, "%lld,", px->fe_counters.p.http.rsp[i]); chunk_appendf(&trash, "%lld,", px->fe_counters.p.http.rsp[0]); } else chunk_appendf(&trash, ",,,,,,"); /* failed health analyses */ chunk_appendf(&trash, ","); /* requests : req_rate, req_rate_max, req_tot, */ chunk_appendf(&trash, "%u,%u,%lld,", read_freq_ctr(&px->fe_req_per_sec), px->fe_counters.p.http.rps_max, px->fe_counters.p.http.cum_req); /* errors: cli_aborts, srv_aborts */ chunk_appendf(&trash, ",,"); /* compression: in, out, bypassed */ chunk_appendf(&trash, "%lld,%lld,%lld,", px->fe_counters.comp_in, px->fe_counters.comp_out, px->fe_counters.comp_byp); /* compression: comp_rsp */ chunk_appendf(&trash, "%lld,", px->fe_counters.p.http.comp_rsp); /* lastsess, last_chk, last_agt, qtime, ctime, rtime, ttime, */ chunk_appendf(&trash, ",,,,,,,"); /* finish with EOL */ chunk_appendf(&trash, "\n"); } return 1; } /* Dumps a line for listener and proxy to the trash and uses the state * from stream interface , and stats flags . The caller is responsible * for clearing the trash if needed. Returns non-zero if it emits anything, zero * otherwise. */ static int stats_dump_li_stats(struct stream_interface *si, struct proxy *px, struct listener *l, int flags) { struct appctx *appctx = __objt_appctx(si->end); if (appctx->ctx.stats.flags & STAT_FMT_HTML) { chunk_appendf(&trash, ""); if (px->cap & PR_CAP_BE && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* Column sub-heading for Enable or Disable server */ chunk_appendf(&trash, ""); } chunk_appendf(&trash, /* frontend name, listener name */ "" /* sessions rate: current, max, limit */ "" /* sessions: current, max, limit, total, lbtot, lastsess */ "" "" /* bytes: in, out */ "" "", (flags & ST_SHLGNDS)?"":"", U2H(l->nbconn), U2H(l->counters->conn_max), U2H(l->maxconn), U2H(l->counters->cum_conn), U2H(l->counters->bytes_in), U2H(l->counters->bytes_out)); chunk_appendf(&trash, /* denied: req, resp */ "" /* errors: request, connect, response */ "" /* warnings: retries, redispatches */ "" /* server status: reflect listener status */ "" /* rest of server: nothing */ "" "", U2H(l->counters->denied_req), U2H(l->counters->denied_resp), U2H(l->counters->failed_req), (l->nbconn < l->maxconn) ? (l->state == LI_LIMITED) ? "WAITING" : "OPEN" : "FULL"); } else { /* CSV mode */ chunk_appendf(&trash, /* pxid, name, queue cur, queue max, */ "%s,%s,,," /* sessions: current, max, limit, total */ "%d,%d,%d,%lld," /* bytes: in, out */ "%lld,%lld," /* denied: req, resp */ "%lld,%lld," /* errors: request, connect, response */ "%lld,,," /* warnings: retries, redispatches */ ",," /* server status: reflect listener status */ "%s," /* rest of server: nothing */ ",,,,,,,," /* pid, iid, sid, throttle, lbtot, tracked, type */ "%d,%d,%d,,,,%d," /* rate, rate_lim, rate_max */ ",,," /* check_status, check_code, check_duration */ ",,," /* http response: 1xx, 2xx, 3xx, 4xx, 5xx, other */ ",,,,,," /* failed health analyses */ "," /* requests : req_rate, req_rate_max, req_tot, */ ",,," /* errors: cli_aborts, srv_aborts */ ",," /* compression: in, out, bypassed, comp_rsp */ ",,,," /* lastsess, last_chk, last_agt, qtime, ctime, rtime, ttime, */ ",,,,,,," "\n", px->id, l->name, l->nbconn, l->counters->conn_max, l->maxconn, l->counters->cum_conn, l->counters->bytes_in, l->counters->bytes_out, l->counters->denied_req, l->counters->denied_resp, l->counters->failed_req, (l->nbconn < l->maxconn) ? "OPEN" : "FULL", relative_pid, px->uuid, l->luid, STATS_TYPE_SO); } return 1; } /* Dumps a line for server and proxy to the trash and uses the state * from stream interface , stats flags , and server state . * The caller is responsible for clearing the trash if needed. Returns non-zero * if it emits anything, zero otherwise. The parameter can take the * following values : 0=DOWN, 1=DOWN(agent) 2=going up, 3=going down, 4=UP, 5,6=NOLB, * 7,8=DRAIN, 9=unchecked. */ static int stats_dump_sv_stats(struct stream_interface *si, struct proxy *px, int flags, struct server *sv, int state) { struct appctx *appctx = __objt_appctx(si->end); struct server *via, *ref; char str[INET6_ADDRSTRLEN]; struct chunk src; int i; /* we have "via" which is the tracked server as described in the configuration, * and "ref" which is the checked server and the end of the chain. */ via = sv->track ? sv->track : sv; ref = via; while (ref->track) ref = ref->track; if (appctx->ctx.stats.flags & STAT_FMT_HTML) { static char *srv_hlt_st[10] = { "DOWN", "DOWN (agent)", "DN %d/%d ↑", "UP %d/%d ↓", "UP", "NOLB %d/%d ↓", "NOLB", "DRAIN %d/%d ↓", "DRAIN", "no check" }; if (sv->admin & SRV_ADMF_MAINT) chunk_appendf(&trash, ""); else chunk_appendf(&trash, "", (sv->flags & SRV_F_BACKUP) ? "backup" : "active", state); if ((px->cap & PR_CAP_BE) && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) chunk_appendf(&trash, "", sv->id); chunk_appendf(&trash, "" /* sessions rate : current, max, limit */ "" "", (flags & ST_SHLGNDS) ? "" : "", U2H(sv->nbpend), U2H(sv->counters.nbpend_max), LIM2A(sv->maxqueue, "-"), U2H(read_freq_ctr(&sv->sess_per_sec)), U2H(sv->counters.sps_max)); chunk_appendf(&trash, /* sessions: current, max, limit, total */ "" "" /* sessions: lbtot, last */ "", U2H(sv->counters.cum_lbconn), human_time(srv_lastsession(sv), 1)); chunk_appendf(&trash, /* bytes : in, out */ "" /* denied: req, resp */ "" /* errors : request, connect */ "" /* errors : response */ "" /* warnings: retries, redispatches */ "" "", U2H(sv->counters.bytes_in), U2H(sv->counters.bytes_out), U2H(sv->counters.failed_secu), U2H(sv->counters.failed_conns), U2H(sv->counters.failed_resp), sv->counters.cli_aborts, sv->counters.srv_aborts, sv->counters.retries, sv->counters.redispatches); /* status, lest check */ chunk_appendf(&trash, "" /* act, bck */ "" "", (sv->eweight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv, (sv->flags & SRV_F_BACKUP) ? "-" : "Y", (sv->flags & SRV_F_BACKUP) ? "Y" : "-"); /* check failures: unique, fatal, down time */ if (sv->check.state & CHK_ST_ENABLED) { chunk_appendf(&trash, "" "" "", ref->observe ? "/Health Analyses" : "", ref->counters.down_trans, human_time(srv_downtime(sv), 1)); } else if (!(sv->admin & SRV_ADMF_FMAINT) && sv != ref) { /* tracking a server */ chunk_appendf(&trash, "", via->proxy->id, via->id, via->proxy->id, via->id); } else chunk_appendf(&trash, ""); /* throttle */ if (sv->state == SRV_ST_STARTING && !server_is_draining(sv)) chunk_appendf(&trash, "\n", server_throttle_rate(sv)); else chunk_appendf(&trash, "\n"); } else { /* CSV mode */ static char *srv_hlt_st[10] = { "DOWN,", "DOWN (agent),", "DOWN %d/%d,", "UP %d/%d,", "UP,", "NOLB %d/%d,", "NOLB,", "DRAIN %d/%d,", "DRAIN,", "no check," }; chunk_appendf(&trash, /* pxid, name */ "%s,%s," /* queue : current, max */ "%d,%d," /* sessions : current, max, limit, total */ "%d,%d,%s,%lld," /* bytes : in, out */ "%lld,%lld," /* denied: req, resp */ ",%lld," /* errors : request, connect, response */ ",%lld,%lld," /* warnings: retries, redispatches */ "%lld,%lld," "", px->id, sv->id, sv->nbpend, sv->counters.nbpend_max, sv->cur_sess, sv->counters.cur_sess_max, LIM2A(sv->maxconn, ""), sv->counters.cum_sess, sv->counters.bytes_in, sv->counters.bytes_out, sv->counters.failed_secu, sv->counters.failed_conns, sv->counters.failed_resp, sv->counters.retries, sv->counters.redispatches); /* status */ if (sv->admin & SRV_ADMF_IMAINT) chunk_appendf(&trash, "MAINT (via %s/%s),", via->proxy->id, via->id); else if (sv->admin & SRV_ADMF_MAINT) chunk_appendf(&trash, "MAINT,"); else chunk_appendf(&trash, srv_hlt_st[state], (ref->state != SRV_ST_STOPPED) ? (ref->check.health - ref->check.rise + 1) : (ref->check.health), (ref->state != SRV_ST_STOPPED) ? (ref->check.fall) : (ref->check.rise)); chunk_appendf(&trash, /* weight, active, backup */ "%d,%d,%d," "", (sv->eweight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv, (sv->flags & SRV_F_BACKUP) ? 0 : 1, (sv->flags & SRV_F_BACKUP) ? 1 : 0); /* check failures: unique, fatal; last change, total downtime */ if (sv->check.state & CHK_ST_ENABLED) chunk_appendf(&trash, "%lld,%lld,%d,%d,", sv->counters.failed_checks, sv->counters.down_trans, (int)(now.tv_sec - sv->last_change), srv_downtime(sv)); else chunk_appendf(&trash, ",,,,"); /* queue limit, pid, iid, sid, */ chunk_appendf(&trash, "%s," "%d,%d,%d,", LIM2A(sv->maxqueue, ""), relative_pid, px->uuid, sv->puid); /* throttle */ if (sv->state == SRV_ST_STARTING && !server_is_draining(sv)) chunk_appendf(&trash, "%d", server_throttle_rate(sv)); /* sessions: lbtot */ chunk_appendf(&trash, ",%lld,", sv->counters.cum_lbconn); /* tracked */ if (sv->track) chunk_appendf(&trash, "%s/%s,", sv->track->proxy->id, sv->track->id); else chunk_appendf(&trash, ","); /* type */ chunk_appendf(&trash, "%d,", STATS_TYPE_SV); /* rate */ chunk_appendf(&trash, "%u,,%u,", read_freq_ctr(&sv->sess_per_sec), sv->counters.sps_max); if (sv->check.state & CHK_ST_ENABLED) { /* check_status */ chunk_appendf(&trash, "%s,", get_check_status_info(sv->check.status)); /* check_code */ if (sv->check.status >= HCHK_STATUS_L57DATA) chunk_appendf(&trash, "%u,", sv->check.code); else chunk_appendf(&trash, ","); /* check_duration */ if (sv->check.status >= HCHK_STATUS_CHECKED) chunk_appendf(&trash, "%lu,", sv->check.duration); else chunk_appendf(&trash, ","); } else chunk_appendf(&trash, ",,,"); /* http response: 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { for (i=1; i<6; i++) chunk_appendf(&trash, "%lld,", sv->counters.p.http.rsp[i]); chunk_appendf(&trash, "%lld,", sv->counters.p.http.rsp[0]); } else chunk_appendf(&trash, ",,,,,,"); /* failed health analyses */ chunk_appendf(&trash, "%lld,", sv->counters.failed_hana); /* requests : req_rate, req_rate_max, req_tot, */ chunk_appendf(&trash, ",,,"); /* errors: cli_aborts, srv_aborts */ chunk_appendf(&trash, "%lld,%lld,", sv->counters.cli_aborts, sv->counters.srv_aborts); /* compression: in, out, bypassed, comp_rsp */ chunk_appendf(&trash, ",,,,"); /* lastsess */ chunk_appendf(&trash, "%d,", srv_lastsession(sv)); /* capture of last check and agent statuses */ chunk_appendf(&trash, "%s,", ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) ? cstr(sv->check.desc) : ""); chunk_appendf(&trash, "%s,", ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) ? cstr(sv->agent.desc) : ""); /* qtime, ctime, rtime, ttime, */ chunk_appendf(&trash, "%u,%u,%u,%u,", swrate_avg(sv->counters.q_time, TIME_STATS_SAMPLES), swrate_avg(sv->counters.c_time, TIME_STATS_SAMPLES), swrate_avg(sv->counters.d_time, TIME_STATS_SAMPLES), swrate_avg(sv->counters.t_time, TIME_STATS_SAMPLES)); /* finish with EOL */ chunk_appendf(&trash, "\n"); } return 1; } /* Dumps a line for backend to the trash for and uses the state from stream * interface and stats flags . The caller is responsible for clearing * the trash if needed. Returns non-zero if it emits anything, zero otherwise. */ static int stats_dump_be_stats(struct stream_interface *si, struct proxy *px, int flags) { struct appctx *appctx = __objt_appctx(si->end); struct chunk src; int i; if (!(px->cap & PR_CAP_BE)) return 0; if ((appctx->ctx.stats.flags & STAT_BOUND) && !(appctx->ctx.stats.type & (1 << STATS_TYPE_BE))) return 0; if (appctx->ctx.stats.flags & STAT_FMT_HTML) { chunk_appendf(&trash, ""); if (px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* Column sub-heading for Enable or Disable server */ chunk_appendf(&trash, ""); } chunk_appendf(&trash, "" /* queue : current, max */ "" /* sessions rate : current, max, limit */ "" "", (flags & ST_SHLGNDS)?"":"", U2H(px->nbpend) /* or px->totpend ? */, U2H(px->be_counters.nbpend_max), U2H(read_freq_ctr(&px->be_sess_per_sec)), U2H(px->be_counters.sps_max)); chunk_appendf(&trash, /* sessions: current, max, limit, total */ "" "" /* sessions: lbtot, last */ "" /* bytes: in */ "" "", U2H(px->be_counters.cum_lbconn), human_time(be_lastsession(px), 1), U2H(px->be_counters.bytes_in)); chunk_appendf(&trash, /* bytes:out + compression stats (via hover): comp_in, comp_out, comp_byp */ "", (px->be_counters.comp_in || px->be_counters.comp_byp) ? "":"", U2H(px->be_counters.bytes_out), px->be_counters.comp_in, px->be_counters.comp_out, px->be_counters.comp_byp, px->be_counters.comp_in ? (int)((px->be_counters.comp_in - px->be_counters.comp_out)*100/px->be_counters.comp_in) : 0, (px->be_counters.comp_in || px->be_counters.comp_byp) ? "":""); chunk_appendf(&trash, /* denied: req, resp */ "" /* errors : request, connect */ "" /* errors : response */ "" /* warnings: retries, redispatches */ "" /* backend status: reflect backend status (up/down): we display UP * if the backend has known working servers or if it has no server at * all (eg: for stats). Then we display the total weight, number of * active and backups. */ "" "" "", U2H(px->be_counters.denied_req), U2H(px->be_counters.denied_resp), U2H(px->be_counters.failed_conns), U2H(px->be_counters.failed_resp), px->be_counters.cli_aborts, px->be_counters.srv_aborts, px->be_counters.retries, px->be_counters.redispatches, human_time(now.tv_sec - px->last_change, 1), (px->lbprm.tot_weight > 0 || !px->srv) ? "UP" : "DOWN", (px->lbprm.tot_weight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv, px->srv_act, px->srv_bck); chunk_appendf(&trash, /* rest of backend: nothing, down transitions, total downtime, throttle */ "" "" "" "", px->down_trans, px->srv?human_time(be_downtime(px), 1):" "); } else { /* CSV mode */ chunk_appendf(&trash, /* pxid, name */ "%s,BACKEND," /* queue : current, max */ "%d,%d," /* sessions : current, max, limit, total */ "%d,%d,%d,%lld," /* bytes : in, out */ "%lld,%lld," /* denied: req, resp */ "%lld,%lld," /* errors : request, connect, response */ ",%lld,%lld," /* warnings: retries, redispatches */ "%lld,%lld," /* backend status: reflect backend status (up/down): we display UP * if the backend has known working servers or if it has no server at * all (eg: for stats). Then we display the total weight, number of * active and backups. */ "%s," "%d,%d,%d," /* rest of backend: nothing, down transitions, last change, total downtime */ ",%d,%d,%d,," /* pid, iid, sid, throttle, lbtot, tracked, type */ "%d,%d,0,,%lld,,%d," /* rate, rate_lim, rate_max, */ "%u,,%u," /* check_status, check_code, check_duration */ ",,,", px->id, px->nbpend /* or px->totpend ? */, px->be_counters.nbpend_max, px->beconn, px->be_counters.conn_max, px->fullconn, px->be_counters.cum_conn, px->be_counters.bytes_in, px->be_counters.bytes_out, px->be_counters.denied_req, px->be_counters.denied_resp, px->be_counters.failed_conns, px->be_counters.failed_resp, px->be_counters.retries, px->be_counters.redispatches, (px->lbprm.tot_weight > 0 || !px->srv) ? "UP" : "DOWN", (px->lbprm.tot_weight * px->lbprm.wmult + px->lbprm.wdiv - 1) / px->lbprm.wdiv, px->srv_act, px->srv_bck, px->down_trans, (int)(now.tv_sec - px->last_change), px->srv?be_downtime(px):0, relative_pid, px->uuid, px->be_counters.cum_lbconn, STATS_TYPE_BE, read_freq_ctr(&px->be_sess_per_sec), px->be_counters.sps_max); /* http response: 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { for (i=1; i<6; i++) chunk_appendf(&trash, "%lld,", px->be_counters.p.http.rsp[i]); chunk_appendf(&trash, "%lld,", px->be_counters.p.http.rsp[0]); } else chunk_appendf(&trash, ",,,,,,"); /* failed health analyses */ chunk_appendf(&trash, ","); /* requests : req_rate, req_rate_max, req_tot, */ chunk_appendf(&trash, ",,,"); /* errors: cli_aborts, srv_aborts */ chunk_appendf(&trash, "%lld,%lld,", px->be_counters.cli_aborts, px->be_counters.srv_aborts); /* compression: in, out, bypassed */ chunk_appendf(&trash, "%lld,%lld,%lld,", px->be_counters.comp_in, px->be_counters.comp_out, px->be_counters.comp_byp); /* compression: comp_rsp */ chunk_appendf(&trash, "%lld,", px->be_counters.p.http.comp_rsp); /* lastsess, last_chk, last_agt, */ chunk_appendf(&trash, "%d,,,", be_lastsession(px)); /* qtime, ctime, rtime, ttime, */ chunk_appendf(&trash, "%u,%u,%u,%u,", swrate_avg(px->be_counters.q_time, TIME_STATS_SAMPLES), swrate_avg(px->be_counters.c_time, TIME_STATS_SAMPLES), swrate_avg(px->be_counters.d_time, TIME_STATS_SAMPLES), swrate_avg(px->be_counters.t_time, TIME_STATS_SAMPLES)); /* finish with EOL */ chunk_appendf(&trash, "\n"); } return 1; } /* Dumps the HTML table header for proxy to the trash for and uses the state from * stream interface and per-uri parameters . The caller is responsible * for clearing the trash if needed. */ static void stats_dump_html_px_hdr(struct stream_interface *si, struct proxy *px, struct uri_auth *uri) { struct appctx *appctx = __objt_appctx(si->end); char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN]; if (px->cap & PR_CAP_BE && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* A form to enable/disable this proxy servers */ /* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */ scope_txt[0] = 0; if (appctx->ctx.stats.scope_len) { strcpy(scope_txt, STAT_SCOPE_PATTERN); memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), bo_ptr(si->ob->buf) + appctx->ctx.stats.scope_str, appctx->ctx.stats.scope_len); scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0; } chunk_appendf(&trash, "
", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); } /* print a new table */ chunk_appendf(&trash, "
" "" "Frontend%s
" "" "" "", U2H(read_freq_ctr(&px->fe_sess_per_sec)), U2H(read_freq_ctr(&px->fe_conn_per_sec)), U2H(read_freq_ctr(&px->fe_sess_per_sec))); if (px->mode == PR_MODE_HTTP) chunk_appendf(&trash, "", U2H(read_freq_ctr(&px->fe_req_per_sec))); chunk_appendf(&trash, "
Current connection rate:%s/s
Current session rate:%s/s
Current request rate:%s/s
%s
" "" "" "", U2H(px->fe_counters.sps_max), U2H(px->fe_counters.cps_max), U2H(px->fe_counters.sps_max)); if (px->mode == PR_MODE_HTTP) chunk_appendf(&trash, "", U2H(px->fe_counters.p.http.rps_max)); chunk_appendf(&trash, "
Max connection rate:%s/s
Max session rate:%s/s
Max request rate:%s/s
%s%s%s%s%s
" "" "" "", U2H(px->feconn), U2H(px->fe_counters.conn_max), U2H(px->maxconn), U2H(px->fe_counters.cum_sess), U2H(px->fe_counters.cum_conn), U2H(px->fe_counters.cum_sess)); /* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { chunk_appendf(&trash, "" "" "" "" "" "" "" "" "" "", U2H(px->fe_counters.p.http.cum_req), U2H(px->fe_counters.p.http.rsp[1]), U2H(px->fe_counters.p.http.rsp[2]), U2H(px->fe_counters.p.http.comp_rsp), px->fe_counters.p.http.rsp[2] ? (int)(100*px->fe_counters.p.http.comp_rsp/px->fe_counters.p.http.rsp[2]) : 0, U2H(px->fe_counters.p.http.rsp[3]), U2H(px->fe_counters.p.http.rsp[4]), U2H(px->fe_counters.p.http.rsp[5]), U2H(px->fe_counters.p.http.rsp[0]), U2H(px->fe_counters.intercepted_req)); } chunk_appendf(&trash, "
Cum. connections:%s
Cum. sessions:%s
Cum. HTTP requests:%s
- HTTP 1xx responses:%s
- HTTP 2xx responses:%s
  Compressed 2xx:%s(%d%%)
- HTTP 3xx responses:%s
- HTTP 4xx responses:%s
- HTTP 5xx responses:%s
- other responses:%s
Intercepted requests:%s
%s%s%s
compression: in=%lld out=%lld bypassed=%lld savings=%d%%
%s		%s%s%s%s
%s" "%s" "", px->id, l->name, (flags & ST_SHLGNDS)?"":"", px->id, l->name, l->name); if (flags & ST_SHLGNDS) { char str[INET6_ADDRSTRLEN]; int port; chunk_appendf(&trash, "
"); port = get_host_port(&l->addr); switch (addr_to_str(&l->addr, str, sizeof(str))) { case AF_INET: chunk_appendf(&trash, "IPv4: %s:%d, ", str, port); break; case AF_INET6: chunk_appendf(&trash, "IPv6: [%s]:%d, ", str, port); break; case AF_UNIX: chunk_appendf(&trash, "unix, "); break; case -1: chunk_appendf(&trash, "(%s), ", strerror(errno)); break; } /* id */ chunk_appendf(&trash, "id: %d
", l->luid); } chunk_appendf(&trash, /* queue */ "%s		 %s%s%s%s  %s%s%s%s%s%s
%s" "%s" "", px->id, sv->id, (flags & ST_SHLGNDS) ? "" : "", px->id, sv->id, sv->id); if (flags & ST_SHLGNDS) { chunk_appendf(&trash, "
"); switch (addr_to_str(&sv->addr, str, sizeof(str))) { case AF_INET: chunk_appendf(&trash, "IPv4: %s:%d, ", str, get_host_port(&sv->addr)); break; case AF_INET6: chunk_appendf(&trash, "IPv6: [%s]:%d, ", str, get_host_port(&sv->addr)); break; case AF_UNIX: chunk_appendf(&trash, "unix, "); break; case -1: chunk_appendf(&trash, "(%s), ", strerror(errno)); break; default: /* address family not supported */ break; } /* id */ chunk_appendf(&trash, "id: %d", sv->puid); /* cookie */ if (sv->cookie) { chunk_appendf(&trash, ", cookie: '"); chunk_initlen(&src, sv->cookie, 0, strlen(sv->cookie)); chunk_htmlencode(&trash, &src); chunk_appendf(&trash, "'"); } chunk_appendf(&trash, "
"); } chunk_appendf(&trash, /* queue : current, max, limit */ "%s		%s%s%s%s%s%s%s%s%s
" "" "", U2H(sv->cur_sess), U2H(sv->counters.cur_sess_max), LIM2A(sv->maxconn, "-"), U2H(sv->counters.cum_sess), U2H(sv->counters.cum_sess)); /* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { unsigned long long tot; for (tot = i = 0; i < 6; i++) tot += sv->counters.p.http.rsp[i]; chunk_appendf(&trash, "" "" "" "" "" "" "" "", U2H(tot), U2H(sv->counters.p.http.rsp[1]), tot ? (int)(100*sv->counters.p.http.rsp[1] / tot) : 0, U2H(sv->counters.p.http.rsp[2]), tot ? (int)(100*sv->counters.p.http.rsp[2] / tot) : 0, U2H(sv->counters.p.http.rsp[3]), tot ? (int)(100*sv->counters.p.http.rsp[3] / tot) : 0, U2H(sv->counters.p.http.rsp[4]), tot ? (int)(100*sv->counters.p.http.rsp[4] / tot) : 0, U2H(sv->counters.p.http.rsp[5]), tot ? (int)(100*sv->counters.p.http.rsp[5] / tot) : 0, U2H(sv->counters.p.http.rsp[0]), tot ? (int)(100*sv->counters.p.http.rsp[0] / tot) : 0); } chunk_appendf(&trash, ""); chunk_appendf(&trash, "", U2H(swrate_avg(sv->counters.q_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "", U2H(swrate_avg(sv->counters.c_time, TIME_STATS_SAMPLES))); if (px->mode == PR_MODE_HTTP) chunk_appendf(&trash, "", U2H(swrate_avg(sv->counters.d_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "", U2H(swrate_avg(sv->counters.t_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "
Cum. sessions:%s
Cum. HTTP responses:%s
- HTTP 1xx responses:%s(%d%%)
- HTTP 2xx responses:%s(%d%%)
- HTTP 3xx responses:%s(%d%%)
- HTTP 4xx responses:%s(%d%%)
- HTTP 5xx responses:%s(%d%%)
- other responses:%s(%d%%)
Avg over last 1024 success. conn.
- Queue time:%sms
- Connect time:%sms
- Response time:%sms
- Total time:%sms
%s%s%s%s%s%s%s
Connection resets during transfers: %lld client, %lld server
%lld%lld"); if (sv->admin & SRV_ADMF_MAINT) { chunk_appendf(&trash, "%s ", human_time(now.tv_sec - sv->last_change, 1)); chunk_appendf(&trash, "MAINT"); } else if ((ref->agent.state & CHK_ST_ENABLED) && (ref->state == SRV_ST_STOPPED)) { chunk_appendf(&trash, "%s ", human_time(now.tv_sec - ref->last_change, 1)); /* DOWN (agent) */ chunk_appendf(&trash, srv_hlt_st[1], "GCC: your -Werror=format-security is bogus, annoying, and hides real bugs, I don't thank you, really!"); } else if (ref->check.state & CHK_ST_ENABLED) { chunk_appendf(&trash, "%s ", human_time(now.tv_sec - ref->last_change, 1)); chunk_appendf(&trash, srv_hlt_st[state], (ref->state != SRV_ST_STOPPED) ? (ref->check.health - ref->check.rise + 1) : (ref->check.health), (ref->state != SRV_ST_STOPPED) ? (ref->check.fall) : (ref->check.rise)); } if ((sv->state == SRV_ST_STOPPED) && ((sv->agent.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) && !(sv->agent.health)) { chunk_appendf(&trash, " %s%s", (sv->agent.state & CHK_ST_INPROGRESS) ? "* " : "", get_check_status_info(sv->agent.status)); if (sv->agent.status >= HCHK_STATUS_L57DATA) chunk_appendf(&trash, "/%d", sv->agent.code); if (sv->agent.status >= HCHK_STATUS_CHECKED && sv->agent.duration >= 0) chunk_appendf(&trash, " in %lums", sv->agent.duration); chunk_appendf(&trash, "
%s", get_check_status_description(sv->agent.status)); if (*sv->agent.desc) { chunk_appendf(&trash, ": "); chunk_initlen(&src, sv->agent.desc, 0, strlen(sv->agent.desc)); chunk_htmlencode(&trash, &src); } chunk_appendf(&trash, "
"); } else if ((sv->check.state & (CHK_ST_ENABLED|CHK_ST_PAUSED)) == CHK_ST_ENABLED) { chunk_appendf(&trash, "		 %s%s", (sv->check.state & CHK_ST_INPROGRESS) ? "* " : "", get_check_status_info(sv->check.status)); if (sv->check.status >= HCHK_STATUS_L57DATA) chunk_appendf(&trash, "/%d", sv->check.code); if (sv->check.status >= HCHK_STATUS_CHECKED && sv->check.duration >= 0) chunk_appendf(&trash, " in %lums", sv->check.duration); chunk_appendf(&trash, "
%s", get_check_status_description(sv->check.status)); if (*sv->check.desc) { chunk_appendf(&trash, ": "); chunk_initlen(&src, sv->check.desc, 0, strlen(sv->check.desc)); chunk_htmlencode(&trash, &src); } chunk_appendf(&trash, "
"); } else chunk_appendf(&trash, "		"); chunk_appendf(&trash, /* weight */ "%d%s%s%lld", ref->counters.failed_checks); if (ref->observe) chunk_appendf(&trash, "/%lld", ref->counters.failed_hana); chunk_appendf(&trash, "
Failed Health Checks%s
%lld%svia %s/%s%d %%
-
" /* name */ "%s" "Backend" "", (flags & ST_SHLGNDS)?"":"", px->id, px->id); if (flags & ST_SHLGNDS) { /* balancing */ chunk_appendf(&trash, "
balancing: %s", backend_lb_algo_str(px->lbprm.algo & BE_LB_ALGO)); /* cookie */ if (px->cookie_name) { chunk_appendf(&trash, ", cookie: '"); chunk_initlen(&src, px->cookie_name, 0, strlen(px->cookie_name)); chunk_htmlencode(&trash, &src); chunk_appendf(&trash, "'"); } chunk_appendf(&trash, "
"); } chunk_appendf(&trash, "%s		%s%s%s%s%s%s%s%s
" "" "", U2H(px->beconn), U2H(px->be_counters.conn_max), U2H(px->fullconn), U2H(px->be_counters.cum_conn), U2H(px->be_counters.cum_conn)); /* http response (via hover): 1xx, 2xx, 3xx, 4xx, 5xx, other */ if (px->mode == PR_MODE_HTTP) { chunk_appendf(&trash, "" "" "" "" "" "" "" "" "" "" "", U2H(px->be_counters.p.http.cum_req), U2H(px->be_counters.p.http.rsp[1]), U2H(px->be_counters.p.http.rsp[2]), U2H(px->be_counters.p.http.comp_rsp), px->be_counters.p.http.rsp[2] ? (int)(100*px->be_counters.p.http.comp_rsp/px->be_counters.p.http.rsp[2]) : 0, U2H(px->be_counters.p.http.rsp[3]), U2H(px->be_counters.p.http.rsp[4]), U2H(px->be_counters.p.http.rsp[5]), U2H(px->be_counters.p.http.rsp[0]), U2H(px->be_counters.intercepted_req)); } chunk_appendf(&trash, "", U2H(swrate_avg(px->be_counters.q_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "", U2H(swrate_avg(px->be_counters.c_time, TIME_STATS_SAMPLES))); if (px->mode == PR_MODE_HTTP) chunk_appendf(&trash, "", U2H(swrate_avg(px->be_counters.d_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "", U2H(swrate_avg(px->be_counters.t_time, TIME_STATS_SAMPLES))); chunk_appendf(&trash, "
Cum. sessions:%s
Cum. HTTP requests:%s
- HTTP 1xx responses:%s
- HTTP 2xx responses:%s
  Compressed 2xx:%s(%d%%)
- HTTP 3xx responses:%s
- HTTP 4xx responses:%s
- HTTP 5xx responses:%s
- other responses:%s
Intercepted requests:%s
Avg over last 1024 success. conn.
- Queue time:%sms
- Connect time:%sms
- Response time:%sms
- Total time:%sms
%s%s%s%s%s
compression: in=%lld out=%lld bypassed=%lld savings=%d%%
%s		%s%s%s%s
Connection resets during transfers: %lld client, %lld server
%lld%lld%s %s %d%d%d %d%s
\n" "" "" "" "\n" "
"); chunk_appendf(&trash, "%s" "%s", px->id, (uri->flags & ST_SHLGNDS) ? "":"", px->id, px->id); if (uri->flags & ST_SHLGNDS) { /* cap, mode, id */ chunk_appendf(&trash, "
cap: %s, mode: %s, id: %d", proxy_cap_str(px->cap), proxy_mode_str(px->mode), px->uuid); chunk_appendf(&trash, "
"); } chunk_appendf(&trash, "%s		%s
\n" "\n" "", (uri->flags & ST_SHLGNDS) ? "":"", px->desc ? "desc" : "empty", px->desc ? px->desc : ""); if ((px->cap & PR_CAP_BE) && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* Column heading for Enable or Disable server */ chunk_appendf(&trash, ""); } chunk_appendf(&trash, "" "" "" "" "" "" "\n" "" "" "" "" "" "" "" "" "\n" ""); } /* Dumps the HTML table trailer for proxy to the trash for and uses the state from * stream interface . The caller is responsible for clearing the trash if needed. */ static void stats_dump_html_px_end(struct stream_interface *si, struct proxy *px) { struct appctx *appctx = __objt_appctx(si->end); chunk_appendf(&trash, "
QueueSession rateSessionsBytesDeniedErrorsWarningsServer
CurMaxLimitCurMaxLimitCurMaxLimitTotalLbTotLastInOutReqRespReqConnRespRetrRedisStatusLastChkWghtActBckChkDwnDwntmeThrtle
"); if ((px->cap & PR_CAP_BE) && px->srv && (appctx->ctx.stats.flags & STAT_ADMIN)) { /* close the form used to enable/disable this proxy servers */ chunk_appendf(&trash, "Choose the action to perform on the checked servers : " "" "" " " "", px->uuid); } chunk_appendf(&trash, "

\n"); } /* * Dumps statistics for a proxy. The output is sent to the stream interface's * input buffer. Returns 0 if it had to stop dumping data because of lack of * buffer space, or non-zero if everything completed. This function is used * both by the CLI and the HTTP entry points, and is able to dump the output * in HTML or CSV formats. If the later, must be NULL. */ static int stats_dump_proxy_to_buffer(struct stream_interface *si, struct proxy *px, struct uri_auth *uri) { struct appctx *appctx = __objt_appctx(si->end); struct session *s = session_from_task(si->owner); struct channel *rep = si->ib; struct server *sv, *svs; /* server and server-state, server-state=server or server->track */ struct listener *l; chunk_reset(&trash); switch (appctx->ctx.stats.px_st) { case STAT_PX_ST_INIT: /* we are on a new proxy */ if (uri && uri->scope) { /* we have a limited scope, we have to check the proxy name */ struct stat_scope *scope; int len; len = strlen(px->id); scope = uri->scope; while (scope) { /* match exact proxy name */ if (scope->px_len == len && !memcmp(px->id, scope->px_id, len)) break; /* match '.' which means 'self' proxy */ if (!strcmp(scope->px_id, ".") && px == s->be) break; scope = scope->next; } /* proxy name not found : don't dump anything */ if (scope == NULL) return 1; } /* if the user has requested a limited output and the proxy * name does not match, skip it. */ if (appctx->ctx.stats.scope_len && strnistr(px->id, strlen(px->id), bo_ptr(si->ob->buf) + appctx->ctx.stats.scope_str, appctx->ctx.stats.scope_len) == NULL) return 1; if ((appctx->ctx.stats.flags & STAT_BOUND) && (appctx->ctx.stats.iid != -1) && (px->uuid != appctx->ctx.stats.iid)) return 1; appctx->ctx.stats.px_st = STAT_PX_ST_TH; /* fall through */ case STAT_PX_ST_TH: if (appctx->ctx.stats.flags & STAT_FMT_HTML) { stats_dump_html_px_hdr(si, px, uri); if (bi_putchk(rep, &trash) == -1) return 0; } appctx->ctx.stats.px_st = STAT_PX_ST_FE; /* fall through */ case STAT_PX_ST_FE: /* print the frontend */ if (stats_dump_fe_stats(si, px)) if (bi_putchk(rep, &trash) == -1) return 0; appctx->ctx.stats.l = px->conf.listeners.n; appctx->ctx.stats.px_st = STAT_PX_ST_LI; /* fall through */ case STAT_PX_ST_LI: /* stats.l has been initialized above */ for (; appctx->ctx.stats.l != &px->conf.listeners; appctx->ctx.stats.l = l->by_fe.n) { if (buffer_almost_full(rep->buf)) { rep->flags |= CF_WAKE_WRITE; return 0; } l = LIST_ELEM(appctx->ctx.stats.l, struct listener *, by_fe); if (!l->counters) continue; if (appctx->ctx.stats.flags & STAT_BOUND) { if (!(appctx->ctx.stats.type & (1 << STATS_TYPE_SO))) break; if (appctx->ctx.stats.sid != -1 && l->luid != appctx->ctx.stats.sid) continue; } /* print the frontend */ if (stats_dump_li_stats(si, px, l, uri ? uri->flags : 0)) if (bi_putchk(rep, &trash) == -1) return 0; } appctx->ctx.stats.sv = px->srv; /* may be NULL */ appctx->ctx.stats.px_st = STAT_PX_ST_SV; /* fall through */ case STAT_PX_ST_SV: /* stats.sv has been initialized above */ for (; appctx->ctx.stats.sv != NULL; appctx->ctx.stats.sv = sv->next) { int sv_state; if (buffer_almost_full(rep->buf)) { rep->flags |= CF_WAKE_WRITE; return 0; } sv = appctx->ctx.stats.sv; if (appctx->ctx.stats.flags & STAT_BOUND) { if (!(appctx->ctx.stats.type & (1 << STATS_TYPE_SV))) break; if (appctx->ctx.stats.sid != -1 && sv->puid != appctx->ctx.stats.sid) continue; } svs = sv; while (svs->track) svs = svs->track; if (sv->state == SRV_ST_RUNNING || sv->state == SRV_ST_STARTING) { /* server is UP. The possibilities are : * - UP, draining, going down => state = 7 * - UP, going down => state = 3 * - UP, draining => state = 8 * - UP, checked => state = 4 * - UP, not checked nor tracked => state = 9 */ if ((svs->check.state & CHK_ST_ENABLED) && (svs->check.health < svs->check.rise + svs->check.fall - 1)) sv_state = 3; else sv_state = 4; if (server_is_draining(sv)) sv_state += 4; if (sv_state == 4 && !(svs->check.state & CHK_ST_ENABLED)) sv_state = 9; /* unchecked UP */ } else if (sv->state == SRV_ST_STOPPING) { if ((!(sv->check.state & CHK_ST_ENABLED) && !sv->track) || (svs->check.health == svs->check.rise + svs->check.fall - 1)) sv_state = 6; /* NOLB */ else sv_state = 5; /* NOLB going down */ } else { /* stopped */ if ((svs->agent.state & CHK_ST_ENABLED) && !svs->agent.health) sv_state = 1; /* DOWN (agent) */ else if ((svs->check.state & CHK_ST_ENABLED) && !svs->check.health) sv_state = 0; /* DOWN */ else if ((svs->agent.state & CHK_ST_ENABLED) || (svs->check.state & CHK_ST_ENABLED)) sv_state = 2; /* going up */ else sv_state = 0; /* DOWN, unchecked */ } if (((sv_state <= 1) || (sv->admin & SRV_ADMF_MAINT)) && (appctx->ctx.stats.flags & STAT_HIDE_DOWN)) { /* do not report servers which are DOWN */ appctx->ctx.stats.sv = sv->next; continue; } if (stats_dump_sv_stats(si, px, uri ? uri->flags : 0, sv, sv_state)) if (bi_putchk(rep, &trash) == -1) return 0; } /* for sv */ appctx->ctx.stats.px_st = STAT_PX_ST_BE; /* fall through */ case STAT_PX_ST_BE: /* print the backend */ if (stats_dump_be_stats(si, px, uri ? uri->flags : 0)) if (bi_putchk(rep, &trash) == -1) return 0; appctx->ctx.stats.px_st = STAT_PX_ST_END; /* fall through */ case STAT_PX_ST_END: if (appctx->ctx.stats.flags & STAT_FMT_HTML) { stats_dump_html_px_end(si, px); if (bi_putchk(rep, &trash) == -1) return 0; } appctx->ctx.stats.px_st = STAT_PX_ST_FIN; /* fall through */ case STAT_PX_ST_FIN: return 1; default: /* unknown state, we should put an abort() here ! */ return 1; } } /* Dumps the HTTP stats head block to the trash for and uses the per-uri * parameters . The caller is responsible for clearing the trash if needed. */ static void stats_dump_html_head(struct uri_auth *uri) { /* WARNING! This must fit in the first buffer !!! */ chunk_appendf(&trash, "\n" "Statistics Report for " PRODUCT_NAME "%s%s\n" "\n" "\n", (uri->flags & ST_SHNODE) ? " on " : "", (uri->flags & ST_SHNODE) ? (uri->node ? uri->node : global.node) : "" ); } /* Dumps the HTML stats information block to the trash for and uses the state from * stream interface and per-uri parameters . The caller is responsible * for clearing the trash if needed. */ static void stats_dump_html_info(struct stream_interface *si, struct uri_auth *uri) { struct appctx *appctx = __objt_appctx(si->end); unsigned int up = (now.tv_sec - start_date.tv_sec); char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN]; /* WARNING! this has to fit the first packet too. * We are around 3.5 kB, add adding entries will * become tricky if we want to support 4kB buffers ! */ chunk_appendf(&trash, "

" PRODUCT_NAME "%s

\n" "

Statistics Report for pid %d%s%s%s%s

\n" "
\n" "

> General process information

\n" "" "" "" "
\n" "

pid = %d (process #%d, nbproc = %d)
\n" "uptime = %dd %dh%02dm%02ds
\n" "system limits: memmax = %s%s; ulimit-n = %d
\n" "maxsock = %d; maxconn = %d; maxpipes = %d
\n" "current conns = %d; current pipes = %d/%d; conn rate = %d/sec
\n" "Running tasks: %d/%d; idle = %d %%
\n" "

\n" "\n" "" "" "\n" "" "" "\n" "" "" "\n" "" "" "\n" "" "\n" "" "
 active UP  backup UP
active UP, going down backup UP, going down
active DOWN, going up backup DOWN, going up
active or backup DOWN  not checked
active or backup DOWN for maintenance (MAINT)  
active or backup SOFT STOPPED for maintenance  
\n" "Note: \"NOLB\"/\"DRAIN\" = UP with load-balancing disabled." "		" "Display option:
    " "", (uri->flags & ST_HIDEVER) ? "" : (STATS_VERSION_STRING), pid, (uri->flags & ST_SHNODE) ? " on " : "", (uri->flags & ST_SHNODE) ? (uri->node ? uri->node : global.node) : "", (uri->flags & ST_SHDESC) ? ": " : "", (uri->flags & ST_SHDESC) ? (uri->desc ? uri->desc : global.desc) : "", pid, relative_pid, global.nbproc, up / 86400, (up % 86400) / 3600, (up % 3600) / 60, (up % 60), global.rlimit_memmax ? ultoa(global.rlimit_memmax) : "unlimited", global.rlimit_memmax ? " MB" : "", global.rlimit_nofile, global.maxsock, global.maxconn, global.maxpipes, actconn, pipes_used, pipes_used+pipes_free, read_freq_ctr(&global.conn_per_sec), run_queue_cur, nb_tasks_cur, idle_pct ); /* scope_txt = search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */ memcpy(scope_txt, bo_ptr(si->ob->buf) + appctx->ctx.stats.scope_str, appctx->ctx.stats.scope_len); scope_txt[appctx->ctx.stats.scope_len] = '\0'; chunk_appendf(&trash, "
  • Scope :
    \n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", (appctx->ctx.stats.scope_len > 0) ? scope_txt : "", STAT_SCOPE_TXT_MAXLEN); /* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */ scope_txt[0] = 0; if (appctx->ctx.stats.scope_len) { strcpy(scope_txt, STAT_SCOPE_PATTERN); memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), bo_ptr(si->ob->buf) + appctx->ctx.stats.scope_str, appctx->ctx.stats.scope_len); scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0; } if (appctx->ctx.stats.flags & STAT_HIDE_DOWN) chunk_appendf(&trash, "
  • Show all servers
    \n", uri->uri_prefix, "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); else chunk_appendf(&trash, "
  • Hide 'DOWN' servers
    \n", uri->uri_prefix, ";up", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); if (uri->refresh > 0) { if (appctx->ctx.stats.flags & STAT_NO_REFRESH) chunk_appendf(&trash, "
  • Enable refresh
    \n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", "", scope_txt); else chunk_appendf(&trash, "
  • Disable refresh
    \n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", ";norefresh", scope_txt); } chunk_appendf(&trash, "
  • Refresh now
    \n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); chunk_appendf(&trash, "
  • CSV export
    \n", uri->uri_prefix, (uri->refresh > 0) ? ";norefresh" : "", scope_txt); chunk_appendf(&trash, "
" "External resources:" "
\n" "" ); if (appctx->ctx.stats.st_code) { switch (appctx->ctx.stats.st_code) { case STAT_STATUS_DONE: chunk_appendf(&trash, "

" "[X] " "Action processed successfully." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; case STAT_STATUS_NONE: chunk_appendf(&trash, "

" "[X] " "Nothing has changed." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; case STAT_STATUS_PART: chunk_appendf(&trash, "

" "[X] " "Action partially processed.
" "Some server names are probably unknown or ambiguous (duplicated names in the backend)." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; case STAT_STATUS_ERRP: chunk_appendf(&trash, "

" "[X] " "Action not processed because of invalid parameters." "
    " "
  • The action is maybe unknown.
    • " "
  • The backend name is probably unknown or ambiguous (duplicated names).
    • " "
  • Some server names are probably unknown or ambiguous (duplicated names in the backend).
    • " "
" "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; case STAT_STATUS_EXCD: chunk_appendf(&trash, "

" "[X] " "Action not processed : the buffer couldn't store all the data.
" "You should retry with less servers at a time." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; case STAT_STATUS_DENY: chunk_appendf(&trash, "

" "[X] " "Action denied." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); break; default: chunk_appendf(&trash, "

" "[X] " "Unexpected result." "
\n", uri->uri_prefix, (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); } chunk_appendf(&trash, "

\n"); } } /* Dumps the HTML stats trailer block to the trash. The caller is responsible * for clearing the trash if needed. */ static void stats_dump_html_end() { chunk_appendf(&trash, "\n"); } /* This function dumps statistics onto the stream interface's read buffer in * either CSV or HTML format. contains some HTML-specific parameters that * are ignored for CSV format (hence may be NULL there). It returns 0 if * it had to stop writing data and an I/O is needed, 1 if the dump is finished * and the session must be closed, or -1 in case of any error. This function is * used by both the CLI and the HTTP handlers. */ static int stats_dump_stat_to_buffer(struct stream_interface *si, struct uri_auth *uri) { struct appctx *appctx = __objt_appctx(si->end); struct channel *rep = si->ib; struct proxy *px; chunk_reset(&trash); switch (appctx->st2) { case STAT_ST_INIT: appctx->st2 = STAT_ST_HEAD; /* let's start producing data */ /* fall through */ case STAT_ST_HEAD: if (appctx->ctx.stats.flags & STAT_FMT_HTML) stats_dump_html_head(uri); else stats_dump_csv_header(); if (bi_putchk(rep, &trash) == -1) return 0; appctx->st2 = STAT_ST_INFO; /* fall through */ case STAT_ST_INFO: if (appctx->ctx.stats.flags & STAT_FMT_HTML) { stats_dump_html_info(si, uri); if (bi_putchk(rep, &trash) == -1) return 0; } appctx->ctx.stats.px = proxy; appctx->ctx.stats.px_st = STAT_PX_ST_INIT; appctx->st2 = STAT_ST_LIST; /* fall through */ case STAT_ST_LIST: /* dump proxies */ while (appctx->ctx.stats.px) { if (buffer_almost_full(rep->buf)) { rep->flags |= CF_WAKE_WRITE; return 0; } px = appctx->ctx.stats.px; /* skip the disabled proxies, global frontend and non-networked ones */ if (px->state != PR_STSTOPPED && px->uuid > 0 && (px->cap & (PR_CAP_FE | PR_CAP_BE))) if (stats_dump_proxy_to_buffer(si, px, uri) == 0) return 0; appctx->ctx.stats.px = px->next; appctx->ctx.stats.px_st = STAT_PX_ST_INIT; } /* here, we just have reached the last proxy */ appctx->st2 = STAT_ST_END; /* fall through */ case STAT_ST_END: if (appctx->ctx.stats.flags & STAT_FMT_HTML) { stats_dump_html_end(); if (bi_putchk(rep, &trash) == -1) return 0; } appctx->st2 = STAT_ST_FIN; /* fall through */ case STAT_ST_FIN: return 1; default: /* unknown state ! */ appctx->st2 = STAT_ST_FIN; return -1; } } /* We reached the stats page through a POST request. The appctx is * expected to have already been allocated by the caller. * Parse the posted data and enable/disable servers if necessary. * Returns 1 if request was parsed or zero if it needs more data. */ static int stats_process_http_post(struct stream_interface *si) { struct session *s = session_from_task(si->owner); struct appctx *appctx = objt_appctx(si->end); struct proxy *px = NULL; struct server *sv = NULL; char key[LINESIZE]; int action = ST_ADM_ACTION_NONE; int reprocess = 0; int total_servers = 0; int altered_servers = 0; char *first_param, *cur_param, *next_param, *end_params; char *st_cur_param = NULL; char *st_next_param = NULL; struct chunk *temp; int reql; temp = get_trash_chunk(); if (temp->size < s->txn.req.body_len) { /* too large request */ appctx->ctx.stats.st_code = STAT_STATUS_EXCD; goto out; } reql = bo_getblk(si->ob, temp->str, s->txn.req.body_len, s->txn.req.eoh + 2); if (reql <= 0) { /* we need more data */ appctx->ctx.stats.st_code = STAT_STATUS_NONE; return 0; } first_param = temp->str; end_params = temp->str + reql; cur_param = next_param = end_params; *end_params = '\0'; appctx->ctx.stats.st_code = STAT_STATUS_NONE; /* * Parse the parameters in reverse order to only store the last value. * From the html form, the backend and the action are at the end. */ while (cur_param > first_param) { char *value; int poffset, plen; cur_param--; if ((*cur_param == '&') || (cur_param == first_param)) { reprocess_servers: /* Parse the key */ poffset = (cur_param != first_param ? 1 : 0); plen = next_param - cur_param + (cur_param == first_param ? 1 : 0); if ((plen > 0) && (plen <= sizeof(key))) { strncpy(key, cur_param + poffset, plen); key[plen - 1] = '\0'; } else { appctx->ctx.stats.st_code = STAT_STATUS_EXCD; goto out; } /* Parse the value */ value = key; while (*value != '\0' && *value != '=') { value++; } if (*value == '=') { /* Ok, a value is found, we can mark the end of the key */ *value++ = '\0'; } if (url_decode(key) < 0 || url_decode(value) < 0) break; /* Now we can check the key to see what to do */ if (!px && (strcmp(key, "b") == 0)) { if ((px = findproxy(value, PR_CAP_BE)) == NULL) { /* the backend name is unknown or ambiguous (duplicate names) */ appctx->ctx.stats.st_code = STAT_STATUS_ERRP; goto out; } } else if (!action && (strcmp(key, "action") == 0)) { if (strcmp(value, "ready") == 0) { action = ST_ADM_ACTION_READY; } else if (strcmp(value, "drain") == 0) { action = ST_ADM_ACTION_DRAIN; } else if (strcmp(value, "maint") == 0) { action = ST_ADM_ACTION_MAINT; } else if (strcmp(value, "shutdown") == 0) { action = ST_ADM_ACTION_SHUTDOWN; } else if (strcmp(value, "dhlth") == 0) { action = ST_ADM_ACTION_DHLTH; } else if (strcmp(value, "ehlth") == 0) { action = ST_ADM_ACTION_EHLTH; } else if (strcmp(value, "hrunn") == 0) { action = ST_ADM_ACTION_HRUNN; } else if (strcmp(value, "hnolb") == 0) { action = ST_ADM_ACTION_HNOLB; } else if (strcmp(value, "hdown") == 0) { action = ST_ADM_ACTION_HDOWN; } else if (strcmp(value, "dagent") == 0) { action = ST_ADM_ACTION_DAGENT; } else if (strcmp(value, "eagent") == 0) { action = ST_ADM_ACTION_EAGENT; } else if (strcmp(value, "arunn") == 0) { action = ST_ADM_ACTION_ARUNN; } else if (strcmp(value, "adown") == 0) { action = ST_ADM_ACTION_ADOWN; } /* else these are the old supported methods */ else if (strcmp(value, "disable") == 0) { action = ST_ADM_ACTION_DISABLE; } else if (strcmp(value, "enable") == 0) { action = ST_ADM_ACTION_ENABLE; } else if (strcmp(value, "stop") == 0) { action = ST_ADM_ACTION_STOP; } else if (strcmp(value, "start") == 0) { action = ST_ADM_ACTION_START; } else { appctx->ctx.stats.st_code = STAT_STATUS_ERRP; goto out; } } else if (strcmp(key, "s") == 0) { if (!(px && action)) { /* * Indicates that we'll need to reprocess the parameters * as soon as backend and action are known */ if (!reprocess) { st_cur_param = cur_param; st_next_param = next_param; } reprocess = 1; } else if ((sv = findserver(px, value)) != NULL) { switch (action) { case ST_ADM_ACTION_DISABLE: if (!(sv->admin & SRV_ADMF_FMAINT)) { altered_servers++; total_servers++; srv_set_admin_flag(sv, SRV_ADMF_FMAINT); } break; case ST_ADM_ACTION_ENABLE: if (sv->admin & SRV_ADMF_FMAINT) { altered_servers++; total_servers++; srv_clr_admin_flag(sv, SRV_ADMF_FMAINT); } break; case ST_ADM_ACTION_STOP: if (!(sv->admin & SRV_ADMF_FDRAIN)) { srv_set_admin_flag(sv, SRV_ADMF_FDRAIN); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_START: if (sv->admin & SRV_ADMF_FDRAIN) { srv_clr_admin_flag(sv, SRV_ADMF_FDRAIN); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_DHLTH: if (sv->check.state & CHK_ST_CONFIGURED) { sv->check.state &= ~CHK_ST_ENABLED; altered_servers++; total_servers++; } break; case ST_ADM_ACTION_EHLTH: if (sv->check.state & CHK_ST_CONFIGURED) { sv->check.state |= CHK_ST_ENABLED; altered_servers++; total_servers++; } break; case ST_ADM_ACTION_HRUNN: if (!(sv->track)) { sv->check.health = sv->check.rise + sv->check.fall - 1; srv_set_running(sv, "changed from Web interface"); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_HNOLB: if (!(sv->track)) { sv->check.health = sv->check.rise + sv->check.fall - 1; srv_set_stopping(sv, "changed from Web interface"); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_HDOWN: if (!(sv->track)) { sv->check.health = 0; srv_set_stopped(sv, "changed from Web interface"); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_DAGENT: if (sv->agent.state & CHK_ST_CONFIGURED) { sv->agent.state &= ~CHK_ST_ENABLED; altered_servers++; total_servers++; } break; case ST_ADM_ACTION_EAGENT: if (sv->agent.state & CHK_ST_CONFIGURED) { sv->agent.state |= CHK_ST_ENABLED; altered_servers++; total_servers++; } break; case ST_ADM_ACTION_ARUNN: if (sv->agent.state & CHK_ST_ENABLED) { sv->agent.health = sv->agent.rise + sv->agent.fall - 1; srv_set_running(sv, "changed from Web interface"); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_ADOWN: if (sv->agent.state & CHK_ST_ENABLED) { sv->agent.health = 0; srv_set_stopped(sv, "changed from Web interface"); altered_servers++; total_servers++; } break; case ST_ADM_ACTION_READY: srv_adm_set_ready(sv); altered_servers++; total_servers++; break; case ST_ADM_ACTION_DRAIN: srv_adm_set_drain(sv); altered_servers++; total_servers++; break; case ST_ADM_ACTION_MAINT: srv_adm_set_maint(sv); altered_servers++; total_servers++; break; case ST_ADM_ACTION_SHUTDOWN: if (px->state != PR_STSTOPPED) { struct session *sess, *sess_bck; list_for_each_entry_safe(sess, sess_bck, &sv->actconns, by_srv) if (sess->srv_conn == sv) session_shutdown(sess, SN_ERR_KILLED); altered_servers++; total_servers++; } break; } } else { /* the server name is unknown or ambiguous (duplicate names) */ total_servers++; } } if (reprocess && px && action) { /* Now, we know the backend and the action chosen by the user. * We can safely restart from the first server parameter * to reprocess them */ cur_param = st_cur_param; next_param = st_next_param; reprocess = 0; goto reprocess_servers; } next_param = cur_param; } } if (total_servers == 0) { appctx->ctx.stats.st_code = STAT_STATUS_NONE; } else if (altered_servers == 0) { appctx->ctx.stats.st_code = STAT_STATUS_ERRP; } else if (altered_servers == total_servers) { appctx->ctx.stats.st_code = STAT_STATUS_DONE; } else { appctx->ctx.stats.st_code = STAT_STATUS_PART; } out: return 1; } static int stats_send_http_headers(struct stream_interface *si) { struct session *s = session_from_task(si->owner); struct uri_auth *uri = s->be->uri_auth; struct appctx *appctx = objt_appctx(si->end); chunk_printf(&trash, "HTTP/1.1 200 OK\r\n" "Cache-Control: no-cache\r\n" "Connection: close\r\n" "Content-Type: %s\r\n", (appctx->ctx.stats.flags & STAT_FMT_HTML) ? "text/html" : "text/plain"); if (uri->refresh > 0 && !(appctx->ctx.stats.flags & STAT_NO_REFRESH)) chunk_appendf(&trash, "Refresh: %d\r\n", uri->refresh); /* we don't send the CRLF in chunked mode, it will be sent with the first chunk's size */ if (appctx->ctx.stats.flags & STAT_CHUNKED) chunk_appendf(&trash, "Transfer-Encoding: chunked\r\n"); else chunk_appendf(&trash, "\r\n"); s->txn.status = 200; s->logs.tv_request = now; if (bi_putchk(si->ib, &trash) == -1) return 0; return 1; } static int stats_send_http_redirect(struct stream_interface *si) { char scope_txt[STAT_SCOPE_TXT_MAXLEN + sizeof STAT_SCOPE_PATTERN]; struct session *s = session_from_task(si->owner); struct uri_auth *uri = s->be->uri_auth; struct appctx *appctx = objt_appctx(si->end); /* scope_txt = search pattern + search query, appctx->ctx.stats.scope_len is always <= STAT_SCOPE_TXT_MAXLEN */ scope_txt[0] = 0; if (appctx->ctx.stats.scope_len) { strcpy(scope_txt, STAT_SCOPE_PATTERN); memcpy(scope_txt + strlen(STAT_SCOPE_PATTERN), bo_ptr(si->ob->buf) + appctx->ctx.stats.scope_str, appctx->ctx.stats.scope_len); scope_txt[strlen(STAT_SCOPE_PATTERN) + appctx->ctx.stats.scope_len] = 0; } /* We don't want to land on the posted stats page because a refresh will * repost the data. We don't want this to happen on accident so we redirect * the browse to the stats page with a GET. */ chunk_printf(&trash, "HTTP/1.1 303 See Other\r\n" "Cache-Control: no-cache\r\n" "Content-Type: text/plain\r\n" "Connection: close\r\n" "Location: %s;st=%s%s%s%s\r\n" "\r\n", uri->uri_prefix, ((appctx->ctx.stats.st_code > STAT_STATUS_INIT) && (appctx->ctx.stats.st_code < STAT_STATUS_SIZE) && stat_status_codes[appctx->ctx.stats.st_code]) ? stat_status_codes[appctx->ctx.stats.st_code] : stat_status_codes[STAT_STATUS_UNKN], (appctx->ctx.stats.flags & STAT_HIDE_DOWN) ? ";up" : "", (appctx->ctx.stats.flags & STAT_NO_REFRESH) ? ";norefresh" : "", scope_txt); s->txn.status = 303; s->logs.tv_request = now; if (bi_putchk(si->ib, &trash) == -1) return 0; return 1; } /* This I/O handler runs as an applet embedded in a stream interface. It is * used to send HTTP stats over a TCP socket. The mechanism is very simple. * appctx->st0 contains the operation in progress (dump, done). The handler * automatically unregisters itself once transfer is complete. */ static void http_stats_io_handler(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); struct session *s = session_from_task(si->owner); struct channel *req = si->ob; struct channel *res = si->ib; if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO)) goto out; /* check that the output is not closed */ if (res->flags & (CF_SHUTW|CF_SHUTW_NOW)) appctx->st0 = STAT_HTTP_DONE; /* all states are processed in sequence */ if (appctx->st0 == STAT_HTTP_HEAD) { if (stats_send_http_headers(si)) { if (s->txn.meth == HTTP_METH_HEAD) appctx->st0 = STAT_HTTP_DONE; else appctx->st0 = STAT_HTTP_DUMP; } } if (appctx->st0 == STAT_HTTP_DUMP) { unsigned int prev_len = si->ib->buf->i; unsigned int data_len; unsigned int last_len; unsigned int last_fwd = 0; if (appctx->ctx.stats.flags & STAT_CHUNKED) { /* One difficulty we're facing is that we must prevent * the input data from being automatically forwarded to * the output area. For this, we temporarily disable * forwarding on the channel. */ last_fwd = si->ib->to_forward; si->ib->to_forward = 0; chunk_printf(&trash, "\r\n000000\r\n"); if (bi_putchk(si->ib, &trash) == -1) { si->ib->to_forward = last_fwd; goto fail; } } data_len = si->ib->buf->i; if (stats_dump_stat_to_buffer(si, s->be->uri_auth)) appctx->st0 = STAT_HTTP_DONE; last_len = si->ib->buf->i; /* Now we must either adjust or remove the chunk size. This is * not easy because the chunk size might wrap at the end of the * buffer, so we pretend we have nothing in the buffer, we write * the size, then restore the buffer's contents. Note that we can * only do that because no forwarding is scheduled on the stats * applet. */ if (appctx->ctx.stats.flags & STAT_CHUNKED) { si->ib->total -= (last_len - prev_len); si->ib->buf->i -= (last_len - prev_len); if (last_len != data_len) { chunk_printf(&trash, "\r\n%06x\r\n", (last_len - data_len)); bi_putchk(si->ib, &trash); si->ib->total += (last_len - data_len); si->ib->buf->i += (last_len - data_len); } /* now re-enable forwarding */ channel_forward(si->ib, last_fwd); } } if (appctx->st0 == STAT_HTTP_POST) { if (stats_process_http_post(si)) appctx->st0 = STAT_HTTP_LAST; else if (si->ob->flags & CF_SHUTR) appctx->st0 = STAT_HTTP_DONE; } if (appctx->st0 == STAT_HTTP_LAST) { if (stats_send_http_redirect(si)) appctx->st0 = STAT_HTTP_DONE; } if (appctx->st0 == STAT_HTTP_DONE) { if (appctx->ctx.stats.flags & STAT_CHUNKED) { chunk_printf(&trash, "\r\n0\r\n\r\n"); if (bi_putchk(si->ib, &trash) == -1) goto fail; } /* eat the whole request */ bo_skip(si->ob, si->ob->buf->o); res->flags |= CF_READ_NULL; si_shutr(si); } if ((res->flags & CF_SHUTR) && (si->state == SI_ST_EST)) si_shutw(si); if (appctx->st0 == STAT_HTTP_DONE) { if ((req->flags & CF_SHUTW) && (si->state == SI_ST_EST)) { si_shutr(si); res->flags |= CF_READ_NULL; } } fail: /* update all other flags and resync with the other side */ si_update(si); /* we don't want to expire timeouts while we're processing requests */ si->ib->rex = TICK_ETERNITY; si->ob->wex = TICK_ETERNITY; out: if (unlikely(si->state == SI_ST_DIS || si->state == SI_ST_CLO)) { /* check that we have released everything then unregister */ stream_int_unregister_handler(si); } } static inline const char *get_conn_ctrl_name(const struct connection *conn) { if (!conn_ctrl_ready(conn)) return "NONE"; return conn->ctrl->name; } static inline const char *get_conn_xprt_name(const struct connection *conn) { static char ptr[17]; if (!conn_xprt_ready(conn)) return "NONE"; if (conn->xprt == &raw_sock) return "RAW"; #ifdef USE_OPENSSL if (conn->xprt == &ssl_sock) return "SSL"; #endif snprintf(ptr, sizeof(ptr), "%p", conn->xprt); return ptr; } static inline const char *get_conn_data_name(const struct connection *conn) { static char ptr[17]; if (!conn->data) return "NONE"; if (conn->data == &sess_conn_cb) return "SESS"; if (conn->data == &si_conn_cb) return "STRM"; if (conn->data == &check_conn_cb) return "CHCK"; snprintf(ptr, sizeof(ptr), "%p", conn->data); return ptr; } /* This function dumps a complete session state onto the stream interface's * read buffer. The session has to be set in sess->target. It returns * 0 if the output buffer is full and it needs to be called again, otherwise * non-zero. It is designed to be called from stats_dump_sess_to_buffer() below. */ static int stats_dump_full_sess_to_buffer(struct stream_interface *si, struct session *sess) { struct appctx *appctx = __objt_appctx(si->end); struct tm tm; extern const char *monthname[12]; char pn[INET6_ADDRSTRLEN]; struct connection *conn; struct appctx *tmpctx; chunk_reset(&trash); if (appctx->ctx.sess.section > 0 && appctx->ctx.sess.uid != sess->uniq_id) { /* session changed, no need to go any further */ chunk_appendf(&trash, " *** session terminated while we were watching it ***\n"); if (bi_putchk(si->ib, &trash) == -1) return 0; appctx->ctx.sess.uid = 0; appctx->ctx.sess.section = 0; return 1; } switch (appctx->ctx.sess.section) { case 0: /* main status of the session */ appctx->ctx.sess.uid = sess->uniq_id; appctx->ctx.sess.section = 1; /* fall through */ case 1: get_localtime(sess->logs.accept_date.tv_sec, &tm); chunk_appendf(&trash, "%p: [%02d/%s/%04d:%02d:%02d:%02d.%06d] id=%u proto=%s", sess, tm.tm_mday, monthname[tm.tm_mon], tm.tm_year+1900, tm.tm_hour, tm.tm_min, tm.tm_sec, (int)(sess->logs.accept_date.tv_usec), sess->uniq_id, sess->listener && sess->listener->proto->name ? sess->listener->proto->name : "?"); conn = objt_conn(sess->si[0].end); switch (conn ? addr_to_str(&conn->addr.from, pn, sizeof(pn)) : AF_UNSPEC) { case AF_INET: case AF_INET6: chunk_appendf(&trash, " source=%s:%d\n", pn, get_host_port(&conn->addr.from)); break; case AF_UNIX: chunk_appendf(&trash, " source=unix:%d\n", sess->listener->luid); break; default: /* no more information to print right now */ chunk_appendf(&trash, "\n"); break; } chunk_appendf(&trash, " flags=0x%x, conn_retries=%d, srv_conn=%p, pend_pos=%p\n", sess->flags, sess->si[1].conn_retries, sess->srv_conn, sess->pend_pos); chunk_appendf(&trash, " frontend=%s (id=%u mode=%s), listener=%s (id=%u)", sess->fe->id, sess->fe->uuid, sess->fe->mode ? "http" : "tcp", sess->listener ? sess->listener->name ? sess->listener->name : "?" : "?", sess->listener ? sess->listener->luid : 0); if (conn) conn_get_to_addr(conn); switch (conn ? addr_to_str(&conn->addr.to, pn, sizeof(pn)) : AF_UNSPEC) { case AF_INET: case AF_INET6: chunk_appendf(&trash, " addr=%s:%d\n", pn, get_host_port(&conn->addr.to)); break; case AF_UNIX: chunk_appendf(&trash, " addr=unix:%d\n", sess->listener->luid); break; default: /* no more information to print right now */ chunk_appendf(&trash, "\n"); break; } if (sess->be->cap & PR_CAP_BE) chunk_appendf(&trash, " backend=%s (id=%u mode=%s)", sess->be->id, sess->be->uuid, sess->be->mode ? "http" : "tcp"); else chunk_appendf(&trash, " backend= (id=-1 mode=-)"); conn = objt_conn(sess->si[1].end); if (conn) conn_get_from_addr(conn); switch (conn ? addr_to_str(&conn->addr.from, pn, sizeof(pn)) : AF_UNSPEC) { case AF_INET: case AF_INET6: chunk_appendf(&trash, " addr=%s:%d\n", pn, get_host_port(&conn->addr.from)); break; case AF_UNIX: chunk_appendf(&trash, " addr=unix\n"); break; default: /* no more information to print right now */ chunk_appendf(&trash, "\n"); break; } if (sess->be->cap & PR_CAP_BE) chunk_appendf(&trash, " server=%s (id=%u)", objt_server(sess->target) ? objt_server(sess->target)->id : "", objt_server(sess->target) ? objt_server(sess->target)->puid : 0); else chunk_appendf(&trash, " server= (id=-1)"); if (conn) conn_get_to_addr(conn); switch (conn ? addr_to_str(&conn->addr.to, pn, sizeof(pn)) : AF_UNSPEC) { case AF_INET: case AF_INET6: chunk_appendf(&trash, " addr=%s:%d\n", pn, get_host_port(&conn->addr.to)); break; case AF_UNIX: chunk_appendf(&trash, " addr=unix\n"); break; default: /* no more information to print right now */ chunk_appendf(&trash, "\n"); break; } chunk_appendf(&trash, " task=%p (state=0x%02x nice=%d calls=%d exp=%s%s", sess->task, sess->task->state, sess->task->nice, sess->task->calls, sess->task->expire ? tick_is_expired(sess->task->expire, now_ms) ? "" : human_time(TICKS_TO_MS(sess->task->expire - now_ms), TICKS_TO_MS(1000)) : "", task_in_rq(sess->task) ? ", running" : ""); chunk_appendf(&trash, " age=%s)\n", human_time(now.tv_sec - sess->logs.accept_date.tv_sec, 1)); chunk_appendf(&trash, " txn=%p flags=0x%x meth=%d status=%d req.st=%s rsp.st=%s\n", &sess->txn, sess->txn.flags, sess->txn.meth, sess->txn.status, http_msg_state_str(sess->txn.req.msg_state), http_msg_state_str(sess->txn.rsp.msg_state)); chunk_appendf(&trash, " si[0]=%p (state=%s flags=0x%02x endp0=%s:%p exp=%s, et=0x%03x)\n", &sess->si[0], si_state_str(sess->si[0].state), sess->si[0].flags, obj_type_name(sess->si[0].end), obj_base_ptr(sess->si[0].end), sess->si[0].exp ? tick_is_expired(sess->si[0].exp, now_ms) ? "" : human_time(TICKS_TO_MS(sess->si[0].exp - now_ms), TICKS_TO_MS(1000)) : "", sess->si[0].err_type); chunk_appendf(&trash, " si[1]=%p (state=%s flags=0x%02x endp1=%s:%p exp=%s, et=0x%03x)\n", &sess->si[1], si_state_str(sess->si[1].state), sess->si[1].flags, obj_type_name(sess->si[1].end), obj_base_ptr(sess->si[1].end), sess->si[1].exp ? tick_is_expired(sess->si[1].exp, now_ms) ? "" : human_time(TICKS_TO_MS(sess->si[1].exp - now_ms), TICKS_TO_MS(1000)) : "", sess->si[1].err_type); if ((conn = objt_conn(sess->si[0].end)) != NULL) { chunk_appendf(&trash, " co0=%p ctrl=%s xprt=%s data=%s target=%s:%p\n", conn, get_conn_ctrl_name(conn), get_conn_xprt_name(conn), get_conn_data_name(conn), obj_type_name(conn->target), obj_base_ptr(conn->target)); chunk_appendf(&trash, " flags=0x%08x fd=%d fd.state=%02x fd.cache=%d updt=%d\n", conn->flags, conn->t.sock.fd, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].state : 0, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].cache : 0, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].updated : 0); } else if ((tmpctx = objt_appctx(sess->si[0].end)) != NULL) { chunk_appendf(&trash, " app0=%p st0=%d st1=%d st2=%d applet=%s\n", tmpctx, tmpctx->st0, tmpctx->st1, tmpctx->st2, tmpctx->applet->name); } if ((conn = objt_conn(sess->si[1].end)) != NULL) { chunk_appendf(&trash, " co1=%p ctrl=%s xprt=%s data=%s target=%s:%p\n", conn, get_conn_ctrl_name(conn), get_conn_xprt_name(conn), get_conn_data_name(conn), obj_type_name(conn->target), obj_base_ptr(conn->target)); chunk_appendf(&trash, " flags=0x%08x fd=%d fd_spec_e=%02x fd_spec_p=%d updt=%d\n", conn->flags, conn->t.sock.fd, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].state : 0, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].cache : 0, conn->t.sock.fd >= 0 ? fdtab[conn->t.sock.fd].updated : 0); } else if ((tmpctx = objt_appctx(sess->si[1].end)) != NULL) { chunk_appendf(&trash, " app1=%p st0=%d st1=%d st2=%d applet=%s\n", tmpctx, tmpctx->st0, tmpctx->st1, tmpctx->st2, tmpctx->applet->name); } chunk_appendf(&trash, " req=%p (f=0x%06x an=0x%x pipe=%d tofwd=%d total=%lld)\n" " an_exp=%s", sess->req, sess->req->flags, sess->req->analysers, sess->req->pipe ? sess->req->pipe->data : 0, sess->req->to_forward, sess->req->total, sess->req->analyse_exp ? human_time(TICKS_TO_MS(sess->req->analyse_exp - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " rex=%s", sess->req->rex ? human_time(TICKS_TO_MS(sess->req->rex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " wex=%s\n" " buf=%p data=%p o=%d p=%d req.next=%d i=%d size=%d\n", sess->req->wex ? human_time(TICKS_TO_MS(sess->req->wex - now_ms), TICKS_TO_MS(1000)) : "", sess->req->buf, sess->req->buf->data, sess->req->buf->o, (int)(sess->req->buf->p - sess->req->buf->data), sess->txn.req.next, sess->req->buf->i, sess->req->buf->size); chunk_appendf(&trash, " res=%p (f=0x%06x an=0x%x pipe=%d tofwd=%d total=%lld)\n" " an_exp=%s", sess->rep, sess->rep->flags, sess->rep->analysers, sess->rep->pipe ? sess->rep->pipe->data : 0, sess->rep->to_forward, sess->rep->total, sess->rep->analyse_exp ? human_time(TICKS_TO_MS(sess->rep->analyse_exp - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " rex=%s", sess->rep->rex ? human_time(TICKS_TO_MS(sess->rep->rex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " wex=%s\n" " buf=%p data=%p o=%d p=%d rsp.next=%d i=%d size=%d\n", sess->rep->wex ? human_time(TICKS_TO_MS(sess->rep->wex - now_ms), TICKS_TO_MS(1000)) : "", sess->rep->buf, sess->rep->buf->data, sess->rep->buf->o, (int)(sess->rep->buf->p - sess->rep->buf->data), sess->txn.rsp.next, sess->rep->buf->i, sess->rep->buf->size); if (bi_putchk(si->ib, &trash) == -1) return 0; /* use other states to dump the contents */ } /* end of dump */ appctx->ctx.sess.uid = 0; appctx->ctx.sess.section = 0; return 1; } static int stats_pats_list(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); switch (appctx->st2) { case STAT_ST_INIT: /* Display the column headers. If the message cannot be sent, * quit the fucntion with returning 0. The function is called * later and restart at the state "STAT_ST_INIT". */ chunk_reset(&trash); chunk_appendf(&trash, "# id (file) description\n"); if (bi_putchk(si->ib, &trash) == -1) return 0; /* Now, we start the browsing of the references lists. * Note that the following call to LIST_ELEM return bad pointer. The only * avalaible field of this pointer is . It is used with the function * pat_list_get_next() for retruning the first avalaible entry */ appctx->ctx.map.ref = LIST_ELEM(&pattern_reference, struct pat_ref *, list); appctx->ctx.map.ref = pat_list_get_next(appctx->ctx.map.ref, &pattern_reference, appctx->ctx.map.display_flags); appctx->st2 = STAT_ST_LIST; /* fall through */ case STAT_ST_LIST: while (appctx->ctx.map.ref) { chunk_reset(&trash); /* Build messages. If the reference is used by another category than * the listed categorie, display the information in the massage. */ chunk_appendf(&trash, "%d (%s) %s\n", appctx->ctx.map.ref->unique_id, appctx->ctx.map.ref->reference ? appctx->ctx.map.ref->reference : "", appctx->ctx.map.ref->display); if (bi_putchk(si->ib, &trash) == -1) { /* let's try again later from this session. We add ourselves into * this session's users so that it can remove us upon termination. */ return 0; } /* get next list entry and check the end of the list */ appctx->ctx.map.ref = pat_list_get_next(appctx->ctx.map.ref, &pattern_reference, appctx->ctx.map.display_flags); } appctx->st2 = STAT_ST_FIN; /* fall through */ default: appctx->st2 = STAT_ST_FIN; return 1; } return 0; } static int stats_map_lookup(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); struct sample sample; struct pattern *pat; int match_method; switch (appctx->st2) { case STAT_ST_INIT: /* Init to the first entry. The list cannot be change */ appctx->ctx.map.expr = LIST_ELEM(&appctx->ctx.map.ref->pat, struct pattern_expr *, list); appctx->ctx.map.expr = pat_expr_get_next(appctx->ctx.map.expr, &appctx->ctx.map.ref->pat); appctx->st2 = STAT_ST_LIST; /* fall through */ case STAT_ST_LIST: /* for each lookup type */ while (appctx->ctx.map.expr) { /* initialise chunk to build new message */ chunk_reset(&trash); /* execute pattern matching */ sample.type = SMP_T_STR; sample.flags |= SMP_F_CONST; sample.data.str.len = appctx->ctx.map.chunk.len; sample.data.str.str = appctx->ctx.map.chunk.str; if (appctx->ctx.map.expr->pat_head->match && sample_convert(&sample, appctx->ctx.map.expr->pat_head->expect_type)) pat = appctx->ctx.map.expr->pat_head->match(&sample, appctx->ctx.map.expr, 1); else pat = NULL; /* build return message: set type of match */ for (match_method=0; match_methodctx.map.expr->pat_head->match == pat_match_fcts[match_method]) break; if (match_method >= PAT_MATCH_NUM) chunk_appendf(&trash, "type=unknown(%p)", appctx->ctx.map.expr->pat_head->match); else chunk_appendf(&trash, "type=%s", pat_match_names[match_method]); /* case sensitive */ if (appctx->ctx.map.expr->mflags & PAT_MF_IGNORE_CASE) chunk_appendf(&trash, ", case=insensitive"); else chunk_appendf(&trash, ", case=sensitive"); /* Display no match, and set default value */ if (!pat) { if (appctx->ctx.map.display_flags == PAT_REF_MAP) chunk_appendf(&trash, ", found=no"); else chunk_appendf(&trash, ", match=no"); } /* Display match and match info */ else { /* display match */ if (appctx->ctx.map.display_flags == PAT_REF_MAP) chunk_appendf(&trash, ", found=yes"); else chunk_appendf(&trash, ", match=yes"); /* display index mode */ if (pat->sflags & PAT_SF_TREE) chunk_appendf(&trash, ", idx=tree"); else chunk_appendf(&trash, ", idx=list"); /* display pattern */ if (appctx->ctx.map.display_flags == PAT_REF_MAP) { if (pat->ref && pat->ref->pattern) chunk_appendf(&trash, ", key=\"%s\"", pat->ref->pattern); else chunk_appendf(&trash, ", key=unknown"); } else { if (pat->ref && pat->ref->pattern) chunk_appendf(&trash, ", pattern=\"%s\"", pat->ref->pattern); else chunk_appendf(&trash, ", pattern=unknown"); } /* display return value */ if (appctx->ctx.map.display_flags == PAT_REF_MAP) { if (pat->smp && pat->ref && pat->ref->sample) chunk_appendf(&trash, ", value=\"%s\", type=\"%s\"", pat->ref->sample, smp_to_type[pat->smp->type]); else chunk_appendf(&trash, ", value=none"); } } chunk_appendf(&trash, "\n"); /* display response */ if (bi_putchk(si->ib, &trash) == -1) { /* let's try again later from this session. We add ourselves into * this session's users so that it can remove us upon termination. */ return 0; } /* get next entry */ appctx->ctx.map.expr = pat_expr_get_next(appctx->ctx.map.expr, &appctx->ctx.map.ref->pat); } appctx->st2 = STAT_ST_FIN; /* fall through */ default: appctx->st2 = STAT_ST_FIN; free(appctx->ctx.map.chunk.str); return 1; } } static int stats_pat_list(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); switch (appctx->st2) { case STAT_ST_INIT: /* Init to the first entry. The list cannot be change */ appctx->ctx.map.elt = LIST_NEXT(&appctx->ctx.map.ref->head, struct pat_ref_elt *, list); if (&appctx->ctx.map.elt->list == &appctx->ctx.map.ref->head) appctx->ctx.map.elt = NULL; appctx->st2 = STAT_ST_LIST; /* fall through */ case STAT_ST_LIST: while (appctx->ctx.map.elt) { chunk_reset(&trash); /* build messages */ if (appctx->ctx.map.elt->sample) chunk_appendf(&trash, "%p %s %s\n", appctx->ctx.map.elt, appctx->ctx.map.elt->pattern, appctx->ctx.map.elt->sample); else chunk_appendf(&trash, "%p %s\n", appctx->ctx.map.elt, appctx->ctx.map.elt->pattern); if (bi_putchk(si->ib, &trash) == -1) { /* let's try again later from this session. We add ourselves into * this session's users so that it can remove us upon termination. */ return 0; } /* get next list entry and check the end of the list */ appctx->ctx.map.elt = LIST_NEXT(&appctx->ctx.map.elt->list, struct pat_ref_elt *, list); if (&appctx->ctx.map.elt->list == &appctx->ctx.map.ref->head) break; } appctx->st2 = STAT_ST_FIN; /* fall through */ default: appctx->st2 = STAT_ST_FIN; return 1; } } /* This function dumps all sessions' states onto the stream interface's * read buffer. It returns 0 if the output buffer is full and it needs * to be called again, otherwise non-zero. It is designed to be called * from stats_dump_sess_to_buffer() below. */ static int stats_dump_sess_to_buffer(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); struct connection *conn; if (unlikely(si->ib->flags & (CF_WRITE_ERROR|CF_SHUTW))) { /* If we're forced to shut down, we might have to remove our * reference to the last session being dumped. */ if (appctx->st2 == STAT_ST_LIST) { if (!LIST_ISEMPTY(&appctx->ctx.sess.bref.users)) { LIST_DEL(&appctx->ctx.sess.bref.users); LIST_INIT(&appctx->ctx.sess.bref.users); } } return 1; } chunk_reset(&trash); switch (appctx->st2) { case STAT_ST_INIT: /* the function had not been called yet, let's prepare the * buffer for a response. We initialize the current session * pointer to the first in the global list. When a target * session is being destroyed, it is responsible for updating * this pointer. We know we have reached the end when this * pointer points back to the head of the sessions list. */ LIST_INIT(&appctx->ctx.sess.bref.users); appctx->ctx.sess.bref.ref = sessions.n; appctx->st2 = STAT_ST_LIST; /* fall through */ case STAT_ST_LIST: /* first, let's detach the back-ref from a possible previous session */ if (!LIST_ISEMPTY(&appctx->ctx.sess.bref.users)) { LIST_DEL(&appctx->ctx.sess.bref.users); LIST_INIT(&appctx->ctx.sess.bref.users); } /* and start from where we stopped */ while (appctx->ctx.sess.bref.ref != &sessions) { char pn[INET6_ADDRSTRLEN]; struct session *curr_sess; curr_sess = LIST_ELEM(appctx->ctx.sess.bref.ref, struct session *, list); if (appctx->ctx.sess.target) { if (appctx->ctx.sess.target != (void *)-1 && appctx->ctx.sess.target != curr_sess) goto next_sess; LIST_ADDQ(&curr_sess->back_refs, &appctx->ctx.sess.bref.users); /* call the proper dump() function and return if we're missing space */ if (!stats_dump_full_sess_to_buffer(si, curr_sess)) return 0; /* session dump complete */ LIST_DEL(&appctx->ctx.sess.bref.users); LIST_INIT(&appctx->ctx.sess.bref.users); if (appctx->ctx.sess.target != (void *)-1) { appctx->ctx.sess.target = NULL; break; } else goto next_sess; } chunk_appendf(&trash, "%p: proto=%s", curr_sess, curr_sess->listener->proto->name); conn = objt_conn(curr_sess->si[0].end); switch (conn ? addr_to_str(&conn->addr.from, pn, sizeof(pn)) : AF_UNSPEC) { case AF_INET: case AF_INET6: chunk_appendf(&trash, " src=%s:%d fe=%s be=%s srv=%s", pn, get_host_port(&conn->addr.from), curr_sess->fe->id, (curr_sess->be->cap & PR_CAP_BE) ? curr_sess->be->id : "", objt_server(curr_sess->target) ? objt_server(curr_sess->target)->id : "" ); break; case AF_UNIX: chunk_appendf(&trash, " src=unix:%d fe=%s be=%s srv=%s", curr_sess->listener->luid, curr_sess->fe->id, (curr_sess->be->cap & PR_CAP_BE) ? curr_sess->be->id : "", objt_server(curr_sess->target) ? objt_server(curr_sess->target)->id : "" ); break; } chunk_appendf(&trash, " ts=%02x age=%s calls=%d", curr_sess->task->state, human_time(now.tv_sec - curr_sess->logs.tv_accept.tv_sec, 1), curr_sess->task->calls); chunk_appendf(&trash, " rq[f=%06xh,i=%d,an=%02xh,rx=%s", curr_sess->req->flags, curr_sess->req->buf->i, curr_sess->req->analysers, curr_sess->req->rex ? human_time(TICKS_TO_MS(curr_sess->req->rex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, ",wx=%s", curr_sess->req->wex ? human_time(TICKS_TO_MS(curr_sess->req->wex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, ",ax=%s]", curr_sess->req->analyse_exp ? human_time(TICKS_TO_MS(curr_sess->req->analyse_exp - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " rp[f=%06xh,i=%d,an=%02xh,rx=%s", curr_sess->rep->flags, curr_sess->rep->buf->i, curr_sess->rep->analysers, curr_sess->rep->rex ? human_time(TICKS_TO_MS(curr_sess->rep->rex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, ",wx=%s", curr_sess->rep->wex ? human_time(TICKS_TO_MS(curr_sess->rep->wex - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, ",ax=%s]", curr_sess->rep->analyse_exp ? human_time(TICKS_TO_MS(curr_sess->rep->analyse_exp - now_ms), TICKS_TO_MS(1000)) : ""); conn = objt_conn(curr_sess->si[0].end); chunk_appendf(&trash, " s0=[%d,%1xh,fd=%d,ex=%s]", curr_sess->si[0].state, curr_sess->si[0].flags, conn ? conn->t.sock.fd : -1, curr_sess->si[0].exp ? human_time(TICKS_TO_MS(curr_sess->si[0].exp - now_ms), TICKS_TO_MS(1000)) : ""); conn = objt_conn(curr_sess->si[1].end); chunk_appendf(&trash, " s1=[%d,%1xh,fd=%d,ex=%s]", curr_sess->si[1].state, curr_sess->si[1].flags, conn ? conn->t.sock.fd : -1, curr_sess->si[1].exp ? human_time(TICKS_TO_MS(curr_sess->si[1].exp - now_ms), TICKS_TO_MS(1000)) : ""); chunk_appendf(&trash, " exp=%s", curr_sess->task->expire ? human_time(TICKS_TO_MS(curr_sess->task->expire - now_ms), TICKS_TO_MS(1000)) : ""); if (task_in_rq(curr_sess->task)) chunk_appendf(&trash, " run(nice=%d)", curr_sess->task->nice); chunk_appendf(&trash, "\n"); if (bi_putchk(si->ib, &trash) == -1) { /* let's try again later from this session. We add ourselves into * this session's users so that it can remove us upon termination. */ LIST_ADDQ(&curr_sess->back_refs, &appctx->ctx.sess.bref.users); return 0; } next_sess: appctx->ctx.sess.bref.ref = curr_sess->list.n; } if (appctx->ctx.sess.target && appctx->ctx.sess.target != (void *)-1) { /* specified session not found */ if (appctx->ctx.sess.section > 0) chunk_appendf(&trash, " *** session terminated while we were watching it ***\n"); else chunk_appendf(&trash, "Session not found.\n"); if (bi_putchk(si->ib, &trash) == -1) return 0; appctx->ctx.sess.target = NULL; appctx->ctx.sess.uid = 0; return 1; } appctx->st2 = STAT_ST_FIN; /* fall through */ default: appctx->st2 = STAT_ST_FIN; return 1; } } /* This is called when the stream interface is closed. For instance, upon an * external abort, we won't call the i/o handler anymore so we may need to * remove back references to the session currently being dumped. */ static void cli_release_handler(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); if (appctx->st0 == STAT_CLI_O_SESS && appctx->st2 == STAT_ST_LIST) { if (!LIST_ISEMPTY(&appctx->ctx.sess.bref.users)) LIST_DEL(&appctx->ctx.sess.bref.users); } else if (appctx->st0 == STAT_CLI_PRINT_FREE) { free(appctx->ctx.cli.err); } else if (appctx->st0 == STAT_CLI_O_MLOOK) { free(appctx->ctx.map.chunk.str); } } /* This function is used to either dump tables states (when action is set * to STAT_CLI_O_TAB) or clear tables (when action is STAT_CLI_O_CLR). * It returns 0 if the output buffer is full and it needs to be called * again, otherwise non-zero. */ static int stats_table_request(struct stream_interface *si, int action) { struct appctx *appctx = __objt_appctx(si->end); struct session *s = session_from_task(si->owner); struct ebmb_node *eb; int dt; int skip_entry; int show = action == STAT_CLI_O_TAB; /* * We have 3 possible states in appctx->st2 : * - STAT_ST_INIT : the first call * - STAT_ST_INFO : the proxy pointer points to the next table to * dump, the entry pointer is NULL ; * - STAT_ST_LIST : the proxy pointer points to the current table * and the entry pointer points to the next entry to be dumped, * and the refcount on the next entry is held ; * - STAT_ST_END : nothing left to dump, the buffer may contain some * data though. */ if (unlikely(si->ib->flags & (CF_WRITE_ERROR|CF_SHUTW))) { /* in case of abort, remove any refcount we might have set on an entry */ if (appctx->st2 == STAT_ST_LIST) { appctx->ctx.table.entry->ref_cnt--; stksess_kill_if_expired(&appctx->ctx.table.proxy->table, appctx->ctx.table.entry); } return 1; } chunk_reset(&trash); while (appctx->st2 != STAT_ST_FIN) { switch (appctx->st2) { case STAT_ST_INIT: appctx->ctx.table.proxy = appctx->ctx.table.target; if (!appctx->ctx.table.proxy) appctx->ctx.table.proxy = proxy; appctx->ctx.table.entry = NULL; appctx->st2 = STAT_ST_INFO; break; case STAT_ST_INFO: if (!appctx->ctx.table.proxy || (appctx->ctx.table.target && appctx->ctx.table.proxy != appctx->ctx.table.target)) { appctx->st2 = STAT_ST_END; break; } if (appctx->ctx.table.proxy->table.size) { if (show && !stats_dump_table_head_to_buffer(&trash, si, appctx->ctx.table.proxy, appctx->ctx.table.target)) return 0; if (appctx->ctx.table.target && s->listener->bind_conf->level >= ACCESS_LVL_OPER) { /* dump entries only if table explicitly requested */ eb = ebmb_first(&appctx->ctx.table.proxy->table.keys); if (eb) { appctx->ctx.table.entry = ebmb_entry(eb, struct stksess, key); appctx->ctx.table.entry->ref_cnt++; appctx->st2 = STAT_ST_LIST; break; } } } appctx->ctx.table.proxy = appctx->ctx.table.proxy->next; break; case STAT_ST_LIST: skip_entry = 0; if (appctx->ctx.table.data_type >= 0) { /* we're filtering on some data contents */ void *ptr; long long data; dt = appctx->ctx.table.data_type; ptr = stktable_data_ptr(&appctx->ctx.table.proxy->table, appctx->ctx.table.entry, dt); data = 0; switch (stktable_data_types[dt].std_type) { case STD_T_SINT: data = stktable_data_cast(ptr, std_t_sint); break; case STD_T_UINT: data = stktable_data_cast(ptr, std_t_uint); break; case STD_T_ULL: data = stktable_data_cast(ptr, std_t_ull); break; case STD_T_FRQP: data = read_freq_ctr_period(&stktable_data_cast(ptr, std_t_frqp), appctx->ctx.table.proxy->table.data_arg[dt].u); break; } /* skip the entry if the data does not match the test and the value */ if ((data < appctx->ctx.table.value && (appctx->ctx.table.data_op == STD_OP_EQ || appctx->ctx.table.data_op == STD_OP_GT || appctx->ctx.table.data_op == STD_OP_GE)) || (data == appctx->ctx.table.value && (appctx->ctx.table.data_op == STD_OP_NE || appctx->ctx.table.data_op == STD_OP_GT || appctx->ctx.table.data_op == STD_OP_LT)) || (data > appctx->ctx.table.value && (appctx->ctx.table.data_op == STD_OP_EQ || appctx->ctx.table.data_op == STD_OP_LT || appctx->ctx.table.data_op == STD_OP_LE))) skip_entry = 1; } if (show && !skip_entry && !stats_dump_table_entry_to_buffer(&trash, si, appctx->ctx.table.proxy, appctx->ctx.table.entry)) return 0; appctx->ctx.table.entry->ref_cnt--; eb = ebmb_next(&appctx->ctx.table.entry->key); if (eb) { struct stksess *old = appctx->ctx.table.entry; appctx->ctx.table.entry = ebmb_entry(eb, struct stksess, key); if (show) stksess_kill_if_expired(&appctx->ctx.table.proxy->table, old); else if (!skip_entry && !appctx->ctx.table.entry->ref_cnt) stksess_kill(&appctx->ctx.table.proxy->table, old); appctx->ctx.table.entry->ref_cnt++; break; } if (show) stksess_kill_if_expired(&appctx->ctx.table.proxy->table, appctx->ctx.table.entry); else if (!skip_entry && !appctx->ctx.table.entry->ref_cnt) stksess_kill(&appctx->ctx.table.proxy->table, appctx->ctx.table.entry); appctx->ctx.table.proxy = appctx->ctx.table.proxy->next; appctx->st2 = STAT_ST_INFO; break; case STAT_ST_END: appctx->st2 = STAT_ST_FIN; break; } } return 1; } /* print a line of text buffer (limited to 70 bytes) to . The format is : * <2 spaces> <70 chars max> <\n> * which is 60 chars per line. Non-printable chars \t, \n, \r and \e are * encoded in C format. Other non-printable chars are encoded "\xHH". Original * lines are respected within the limit of 70 output chars. Lines that are * continuation of a previous truncated line begin with "+" instead of " " * after the offset. The new pointer is returned. */ static int dump_text_line(struct chunk *out, const char *buf, int bsize, int len, int *line, int ptr) { int end; unsigned char c; end = out->len + 80; if (end > out->size) return ptr; chunk_appendf(out, " %05d%c ", ptr, (ptr == *line) ? ' ' : '+'); while (ptr < len && ptr < bsize) { c = buf[ptr]; if (isprint(c) && isascii(c) && c != '\\') { if (out->len > end - 2) break; out->str[out->len++] = c; } else if (c == '\t' || c == '\n' || c == '\r' || c == '\e' || c == '\\') { if (out->len > end - 3) break; out->str[out->len++] = '\\'; switch (c) { case '\t': c = 't'; break; case '\n': c = 'n'; break; case '\r': c = 'r'; break; case '\e': c = 'e'; break; case '\\': c = '\\'; break; } out->str[out->len++] = c; } else { if (out->len > end - 5) break; out->str[out->len++] = '\\'; out->str[out->len++] = 'x'; out->str[out->len++] = hextab[(c >> 4) & 0xF]; out->str[out->len++] = hextab[c & 0xF]; } if (buf[ptr++] == '\n') { /* we had a line break, let's return now */ out->str[out->len++] = '\n'; *line = ptr; return ptr; } } /* we have an incomplete line, we return it as-is */ out->str[out->len++] = '\n'; return ptr; } /* This function dumps all captured errors onto the stream interface's * read buffer. It returns 0 if the output buffer is full and it needs * to be called again, otherwise non-zero. */ static int stats_dump_errors_to_buffer(struct stream_interface *si) { struct appctx *appctx = __objt_appctx(si->end); extern const char *monthname[12]; if (unlikely(si->ib->flags & (CF_WRITE_ERROR|CF_SHUTW))) return 1; chunk_reset(&trash); if (!appctx->ctx.errors.px) { /* the function had not been called yet, let's prepare the * buffer for a response. */ struct tm tm; get_localtime(date.tv_sec, &tm); chunk_appendf(&trash, "Total events captured on [%02d/%s/%04d:%02d:%02d:%02d.%03d] : %u\n", tm.tm_mday, monthname[tm.tm_mon], tm.tm_year+1900, tm.tm_hour, tm.tm_min, tm.tm_sec, (int)(date.tv_usec/1000), error_snapshot_id); if (bi_putchk(si->ib, &trash) == -1) { /* Socket buffer full. Let's try again later from the same point */ return 0; } appctx->ctx.errors.px = proxy; appctx->ctx.errors.buf = 0; appctx->ctx.errors.bol = 0; appctx->ctx.errors.ptr = -1; } /* we have two inner loops here, one for the proxy, the other one for * the buffer. */ while (appctx->ctx.errors.px) { struct error_snapshot *es; if (appctx->ctx.errors.buf == 0) es = &appctx->ctx.errors.px->invalid_req; else es = &appctx->ctx.errors.px->invalid_rep; if (!es->when.tv_sec) goto next; if (appctx->ctx.errors.iid >= 0 && appctx->ctx.errors.px->uuid != appctx->ctx.errors.iid && es->oe->uuid != appctx->ctx.errors.iid) goto next; if (appctx->ctx.errors.ptr < 0) { /* just print headers now */ char pn[INET6_ADDRSTRLEN]; struct tm tm; int port; get_localtime(es->when.tv_sec, &tm); chunk_appendf(&trash, " \n[%02d/%s/%04d:%02d:%02d:%02d.%03d]", tm.tm_mday, monthname[tm.tm_mon], tm.tm_year+1900, tm.tm_hour, tm.tm_min, tm.tm_sec, (int)(es->when.tv_usec/1000)); switch (addr_to_str(&es->src, pn, sizeof(pn))) { case AF_INET: case AF_INET6: port = get_host_port(&es->src); break; default: port = 0; } switch (appctx->ctx.errors.buf) { case 0: chunk_appendf(&trash, " frontend %s (#%d): invalid request\n" " backend %s (#%d)", appctx->ctx.errors.px->id, appctx->ctx.errors.px->uuid, (es->oe->cap & PR_CAP_BE) ? es->oe->id : "", (es->oe->cap & PR_CAP_BE) ? es->oe->uuid : -1); break; case 1: chunk_appendf(&trash, " backend %s (#%d): invalid response\n" " frontend %s (#%d)", appctx->ctx.errors.px->id, appctx->ctx.errors.px->uuid, es->oe->id, es->oe->uuid); break; } chunk_appendf(&trash, ", server %s (#%d), event #%u\n" " src %s:%d, session #%d, session flags 0x%08x\n" " HTTP msg state %d, msg flags 0x%08x, tx flags 0x%08x\n" " HTTP chunk len %lld bytes, HTTP body len %lld bytes\n" " buffer flags 0x%08x, out %d bytes, total %lld bytes\n" " pending %d bytes, wrapping at %d, error at position %d:\n \n", es->srv ? es->srv->id : "", es->srv ? es->srv->puid : -1, es->ev_id, pn, port, es->sid, es->s_flags, es->state, es->m_flags, es->t_flags, es->m_clen, es->m_blen, es->b_flags, es->b_out, es->b_tot, es->len, es->b_wrap, es->pos); if (bi_putchk(si->ib, &trash) == -1) { /* Socket buffer full. Let's try again later from the same point */ return 0; } appctx->ctx.errors.ptr = 0; appctx->ctx.errors.sid = es->sid; } if (appctx->ctx.errors.sid != es->sid) { /* the snapshot changed while we were dumping it */ chunk_appendf(&trash, " WARNING! update detected on this snapshot, dump interrupted. Please re-check!\n"); if (bi_putchk(si->ib, &trash) == -1) return 0; goto next; } /* OK, ptr >= 0, so we have to dump the current line */ while (appctx->ctx.errors.ptr < es->len && appctx->ctx.errors.ptr < sizeof(es->buf)) { int newptr; int newline; newline = appctx->ctx.errors.bol; newptr = dump_text_line(&trash, es->buf, sizeof(es->buf), es->len, &newline, appctx->ctx.errors.ptr); if (newptr == appctx->ctx.errors.ptr) return 0; if (bi_putchk(si->ib, &trash) == -1) { /* Socket buffer full. Let's try again later from the same point */ return 0; } appctx->ctx.errors.ptr = newptr; appctx->ctx.errors.bol = newline; }; next: appctx->ctx.errors.bol = 0; appctx->ctx.errors.ptr = -1; appctx->ctx.errors.buf++; if (appctx->ctx.errors.buf > 1) { appctx->ctx.errors.buf = 0; appctx->ctx.errors.px = appctx->ctx.errors.px->next; } } /* dump complete */ return 1; } /* parse the "level" argument on the bind lines */ static int bind_parse_level(char **args, int cur_arg, struct proxy *px, struct bind_conf *conf, char **err) { if (!*args[cur_arg + 1]) { memprintf(err, "'%s' : missing level", args[cur_arg]); return ERR_ALERT | ERR_FATAL; } if (!strcmp(args[cur_arg+1], "user")) conf->level = ACCESS_LVL_USER; else if (!strcmp(args[cur_arg+1], "operator")) conf->level = ACCESS_LVL_OPER; else if (!strcmp(args[cur_arg+1], "admin")) conf->level = ACCESS_LVL_ADMIN; else { memprintf(err, "'%s' only supports 'user', 'operator', and 'admin' (got '%s')", args[cur_arg], args[cur_arg+1]); return ERR_ALERT | ERR_FATAL; } return 0; } struct si_applet http_stats_applet = { .obj_type = OBJ_TYPE_APPLET, .name = "", /* used for logging */ .fct = http_stats_io_handler, .release = NULL, }; static struct si_applet cli_applet = { .obj_type = OBJ_TYPE_APPLET, .name = "", /* used for logging */ .fct = cli_io_handler, .release = cli_release_handler, }; static struct cfg_kw_list cfg_kws = {ILH, { { CFG_GLOBAL, "stats", stats_parse_global }, { 0, NULL, NULL }, }}; static struct bind_kw_list bind_kws = { "STAT", { }, { { "level", bind_parse_level, 1 }, /* set the unix socket admin level */ { NULL, NULL, 0 }, }}; __attribute__((constructor)) static void __dumpstats_module_init(void) { cfg_register_keywords(&cfg_kws); bind_register_keywords(&bind_kws); } /* * Local variables: * c-indent-level: 8 * c-basic-offset: 8 * End: */