GCOV - Varnish Cache


/*-
 * Copyright (c) 2006 Verdens Gang AS
 * Copyright (c) 2006-2011 Varnish Software AS
 * All rights reserved.
 *
 * Author: Poul-Henning Kamp <phk@phk.freebsd.dk>
 *
 * SPDX-License-Identifier: BSD-2-Clause
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include "config.h"

#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "mgt/mgt.h"
#include "common/heritage.h"

#include "mgt/mgt_param.h"
#include "vav.h"
#include "vcli_serve.h"

struct plist {
        unsigned                        magic;
#define PLIST_MAGIC                     0xbfc3ea16
        VTAILQ_ENTRY(plist)             list;
        struct parspec                  *spec;
};

static VTAILQ_HEAD(, plist)             phead = VTAILQ_HEAD_INITIALIZER(phead);

struct params mgt_param;
static const int margin1 = 8;
static int margin2 = 0;
static const int wrap_at = 72;
static const int tab0 = 3;

/*--------------------------------------------------------------------*/

static const char TYPE_TIMEOUT_TEXT[] =
        "\n\n"
        "NB: This parameter can be disabled with the value \"never\".";

static const char OBJ_STICKY_TEXT[] =
        "\n\n"
        "NB: This parameter is evaluated only when objects are created. "
        "To change it for all objects, restart or ban everything.";

static const char DELAYED_EFFECT_TEXT[] =
        "\n\n"
        "NB: This parameter may take quite some time to take (full) effect.";

static const char MUST_RESTART_TEXT[] =
        "\n\n"
        "NB: This parameter will not take any effect until the "
        "child process has been restarted.";

static const char MUST_RELOAD_TEXT[] =
        "\n\n"
        "NB: This parameter will not take any effect until the "
        "VCL programs have been reloaded.";

static const char EXPERIMENTAL_TEXT[] =
        "\n\n"
        "NB: We do not know yet if it is a good idea to change "
        "this parameter, or if the default value is even sensible. "
        "Caution is advised, and feedback is most welcome.";

static const char WIZARD_TEXT[] =
        "\n\n"
        "NB: Do not change this parameter, unless a developer tell "
        "you to do so.";

static const char PROTECTED_TEXT[] =
        "\n\n"
        "NB: This parameter is protected and cannot be changed.";

static const char ONLY_ROOT_TEXT[] =
        "\n\n"
        "NB: This parameter only works if varnishd is run as root.";

static const char NOT_IMPLEMENTED_TEXT[] =
        "\n\n"
        "NB: This parameter depends on a feature which is not available"
        " on this platform.";

static const char PLATFORM_DEPENDENT_TEXT[] =
        "\n\n"
        "NB: This parameter depends on a feature which is not available"
        " on all platforms.";

static const char BUILD_OPTIONS_TEXT[] =
        "\n\n"
        "NB: The actual default value for this parameter depends on the"
        " Varnish build environment and options.";

/*--------------------------------------------------------------------*/

static struct parspec *
mcf_findpar(const char *name)
{
        struct plist *pl;

        AN(name);
        VTAILQ_FOREACH(pl, &phead, list)
                if (!strcmp(pl->spec->name, name))
                        return (pl->spec);
        return (NULL);
}

static void
mcf_addpar(struct parspec *ps)
{
        struct plist *pl, *pl2;
        int i;

        ALLOC_OBJ(pl, PLIST_MAGIC);
        AN(pl);
        pl->spec = ps;
        VTAILQ_FOREACH(pl2, &phead, list) {
                i = strcmp(pl2->spec->name, pl->spec->name);
                if (i == 0) {
                        fprintf(stderr, "Duplicate param: %s\n", ps->name);
                        exit(4);
                } else if (i > 0) {
                        VTAILQ_INSERT_BEFORE(pl2, pl, list);
                        return;
                }
        }
        VTAILQ_INSERT_TAIL(&phead, pl, list);
}

static const struct parspec *
mcf_alias(struct parspec *alias, const struct parspec *pp)
{
        const struct parspec *orig;

        orig = TRUST_ME(pp->priv);
        AN(orig);
        memcpy(alias, orig, sizeof *alias);
        alias->priv = TRUST_ME(orig);
        return (alias);
}

/*--------------------------------------------------------------------
 * Wrap the text nicely.
 * Lines are allowed to contain two TABS and we render that as a table
 * taking the width of the first column into account.
 */

static void
mcf_wrap_line(struct cli *cli, const char *b, const char *e, int tabs, int m0)
{
        int n, hadtabs = 0;
        const char *w;

        n = m0;
        VCLI_Out(cli, "%*s", n, "");

        while (b < e) {
                if (!isspace(*b)) {
                        VCLI_Out(cli, "%c", *b);
                        b++;
                        n++;
                } else if (*b == '\t') {
                        assert(tabs);
                        assert(hadtabs < 2);
                        do {
                                VCLI_Out(cli, " ");
                                n++;
                        } while ((n % tabs) != (m0 + tab0) % tabs);
                        b++;
                        hadtabs++;
                } else {
                        assert (*b == ' ');
                        for (w = b + 1; w < e; w++)
                                if (isspace(*w))
                                        break;
                        if (n + (w - b) < wrap_at) {
                                VCLI_Out(cli, "%.*s", (int)(w - b), b);
                                n += (w - b);
                                b = w;
                        } else {
                                assert(hadtabs == 0 || hadtabs == 2);
                                VCLI_Out(cli, "\n");
                                mcf_wrap_line(cli, b + 1, e, 0,
                                    hadtabs ? m0 + tab0 + tabs : m0);
                                return;
                        }
                }
        }
        assert(b == e);
}

static void
mcf_wrap(struct cli *cli, const char *text)
{
        const char *p, *q, *r;
        int tw = 0;

        if (strchr(text, '\t') != NULL) {
                for (p = text; *p != '\0'; ) {
                        q = strstr(p, "\n\t");
                        if (q == NULL)
                                break;
                        q += 2;
                        r = strchr(q, '\t');
                        if (r == NULL) {
                                fprintf(stderr,
                                    "LINE with just one TAB: <%s>\n", text);
                                exit(4);
                        }
                        if (r - q > tw)
                                tw = r - q;
                        p = q;
                }
                tw += 2;
                if (tw < 20)
                        tw = 20;
        }

        for (p = text; *p != '\0'; ) {
                if (*p == '\n') {
                        VCLI_Out(cli, "\n");
                        p++;
                        continue;
                }
                q = strchr(p, '\n');
                if (q == NULL)
                        q = strchr(p, '\0');
                mcf_wrap_line(cli, p, q, tw, margin1);
                p = q;
        }
}

/*--------------------------------------------------------------------*/

static void v_matchproto_(cli_func_t)
mcf_param_show(struct cli *cli, const char * const *av, void *priv)
{
        struct plist *pl;
        const struct parspec *pp, *pa;
        struct parspec alias[1];
        int n, lfmt = 0, chg = 0;
        struct vsb *vsb;
        const char *show = NULL;

        (void)priv;

        for (n = 2; av[n] != NULL; n++) {
                if (strcmp(av[n], "-l") == 0) {
                        lfmt = 1;
                        continue;
                }
                if (strcmp(av[n], "changed") == 0) {
                        chg = 1;
                        continue;
                }
                if (show != NULL) {
                        VCLI_SetResult(cli, CLIS_TOOMANY);
                        VCLI_Out(cli, "Too many parameters");
                        return;
                }
                show = av[n];
                lfmt = 1;
        }

        vsb = VSB_new_auto();
        AN(vsb);

        n = 0;
        VTAILQ_FOREACH(pl, &phead, list) {
                pp = pl->spec;
                if (lfmt && show != NULL && strcmp(pp->name, show))
                        continue;
                if (pp->func == tweak_alias) {
                        if (show == NULL)
                                continue;
                        if (strcmp(pp->name, show))
                                continue;
                        pp = mcf_alias(alias, pp);
                }
                n++;

                VSB_clear(vsb);
                if (pp->func(vsb, pp, NULL))
                        VCLI_SetResult(cli, CLIS_PARAM);
                AZ(VSB_finish(vsb));
                if (chg && pp->def != NULL && !strcmp(pp->def, VSB_data(vsb)))
                        continue;

                if (pp->flags & NOT_IMPLEMENTED) {
                        if (lfmt) {
                                VCLI_Out(cli, "%s\n", pp->name);
                                VCLI_Out(cli, "%-*sNot available", margin1, " ");
                        } else {
                                VCLI_Out(cli, "%-*s-", margin2, pp->name);
                        }
                } else {
                        if (lfmt) {
                                VCLI_Out(cli, "%s\n", pp->name);
                                VCLI_Out(cli, "%-*sValue is: ", margin1, " ");
                        } else {
                                VCLI_Out(cli, "%-*s", margin2, pp->name);
                        }

                        VCLI_Out(cli, "%s", VSB_data(vsb));
                        if (pp->units != NULL && *pp->units != '\0')
                                VCLI_Out(cli, " [%s]", pp->units);
                        if (pp->def != NULL && !strcmp(pp->def, VSB_data(vsb)))
                                VCLI_Out(cli, " (default)");
                }
                VCLI_Out(cli, "\n");

                if (lfmt && pp->func == tweak_alias) {
                        pa = TRUST_ME(pp->priv);
                        VCLI_Out(cli, "%-*sAlias of: %s\n",
                            margin1, " ", pa->name);
                }
                if (lfmt && pp->flags & NOT_IMPLEMENTED) {
                        VCLI_Out(cli, "\n");
                        mcf_wrap(cli, NOT_IMPLEMENTED_TEXT);
                        VCLI_Out(cli, "\n\n");
                } else if (lfmt) {
                        if (pp->def != NULL && strcmp(pp->def, VSB_data(vsb)))
                                VCLI_Out(cli, "%-*sDefault is: %s\n",
                                    margin1, "", pp->def);
                        if (pp->min != NULL)
                                VCLI_Out(cli, "%-*sMinimum is: %s\n",
                                    margin1, "", pp->min);
                        if (pp->max != NULL)
                                VCLI_Out(cli, "%-*sMaximum is: %s\n",
                                    margin1, "", pp->max);
                        VCLI_Out(cli, "\n");
                        mcf_wrap(cli, pp->descr);
                        if (pp->func == tweak_timeout)
                                mcf_wrap(cli, TYPE_TIMEOUT_TEXT);
                        if (pp->flags & OBJ_STICKY)
                                mcf_wrap(cli, OBJ_STICKY_TEXT);
                        if (pp->flags & DELAYED_EFFECT)
                                mcf_wrap(cli, DELAYED_EFFECT_TEXT);
                        if (pp->flags & EXPERIMENTAL)
                                mcf_wrap(cli, EXPERIMENTAL_TEXT);
                        if (pp->flags & MUST_RELOAD)
                                mcf_wrap(cli, MUST_RELOAD_TEXT);
                        if (pp->flags & MUST_RESTART)
                                mcf_wrap(cli, MUST_RESTART_TEXT);
                        if (pp->flags & WIZARD)
                                mcf_wrap(cli, WIZARD_TEXT);
                        if (pp->flags & PROTECTED)
                                mcf_wrap(cli, PROTECTED_TEXT);
                        if (pp->flags & ONLY_ROOT)
                                mcf_wrap(cli, ONLY_ROOT_TEXT);
                        if (pp->flags & BUILD_OPTIONS)
                                mcf_wrap(cli, BUILD_OPTIONS_TEXT);
                        VCLI_Out(cli, "\n\n");
                }
        }
        if (show != NULL && n == 0) {
                VCLI_SetResult(cli, CLIS_PARAM);
                VCLI_Out(cli, "Unknown parameter \"%s\".", show);
        }
        VSB_destroy(&vsb);
}

static inline void
mcf_json_key_valstr(struct cli *cli, const char *key, const char *val)
{
        VCLI_Out(cli, "\"%s\": ", key);
        VCLI_JSON_str(cli, val);
        VCLI_Out(cli, ",\n");
}

static void v_matchproto_(cli_func_t)
mcf_param_show_json(struct cli *cli, const char * const *av, void *priv)
{
        int n, comma = 0, chg = 0;
        struct plist *pl;
        const struct parspec *pp, *pa;
        struct parspec alias[1];
        struct vsb *vsb, *def;
        const char *show = NULL, *sep;

        (void)priv;

        for (int i = 2; av[i] != NULL; i++) {
                if (strcmp(av[i], "-l") == 0) {
                        VCLI_SetResult(cli, CLIS_PARAM);
                        VCLI_Out(cli, "-l not permitted with param.show -j");
                        return;
                }
                if (strcmp(av[i], "changed") == 0) {
                        chg = 1;
                        continue;
                }
                if (strcmp(av[i], "-j") == 0)
                        continue;
                if (show != NULL) {
                        VCLI_SetResult(cli, CLIS_TOOMANY);
                        VCLI_Out(cli, "Too many parameters");
                        return;
                }
                show = av[i];
        }

        vsb = VSB_new_auto();
        AN(vsb);
        def = VSB_new_auto();
        AN(def);

        n = 0;
        VCLI_JSON_begin(cli, 2, av);
        VCLI_Out(cli, ",\n");
        VTAILQ_FOREACH(pl, &phead, list) {
                pp = pl->spec;
                if (show != NULL && strcmp(pp->name, show) != 0)
                        continue;
                if (pp->func == tweak_alias) {
                        if (show == NULL)
                                continue;
                        if (strcmp(pp->name, show))
                                continue;
                        pp = mcf_alias(alias, pp);
                }
                n++;

                VSB_clear(vsb);
                if (pp->func(vsb, pp, JSON_FMT))
                        VCLI_SetResult(cli, CLIS_PARAM);
                AZ(VSB_finish(vsb));
                VSB_clear(def);
                if (pp->func(def, pp, NULL))
                        VCLI_SetResult(cli, CLIS_PARAM);
                AZ(VSB_finish(def));
                if (chg && pp->def != NULL && !strcmp(pp->def, VSB_data(def)))
                        continue;

                VCLI_Out(cli, "%s", comma ? ",\n" : "");
                comma++;
                VCLI_Out(cli, "{\n");
                VSB_indent(cli->sb, 2);
                mcf_json_key_valstr(cli, "name", pp->name);
                if (pp->func == tweak_alias) {
                        pa = TRUST_ME(pp->priv);
                        mcf_json_key_valstr(cli, "alias", pa->name);
                }
                if (pp->flags & NOT_IMPLEMENTED) {
                        VCLI_Out(cli, "\"implemented\": false\n");
                        VSB_indent(cli->sb, -2);
                        VCLI_Out(cli, "}");
                        continue;
                }
                VCLI_Out(cli, "\"implemented\": true,\n");
                VCLI_Out(cli, "\"value\": %s,\n", VSB_data(vsb));
                if (pp->units != NULL && *pp->units != '\0')
                        mcf_json_key_valstr(cli, "units", pp->units);

                if (pp->def != NULL)
                        mcf_json_key_valstr(cli, "default", pp->def);
                if (pp->min != NULL)
                        mcf_json_key_valstr(cli, "minimum", pp->min);
                if (pp->max != NULL)
                        mcf_json_key_valstr(cli, "maximum", pp->max);
                mcf_json_key_valstr(cli, "description", pp->descr);

                VCLI_Out(cli, "\"flags\": [");
                VSB_indent(cli->sb, 2);
                sep = "";

#define flag_out(flag, string) do {                                     \
                        if (pp->flags & flag) {                         \
                                VCLI_Out(cli, "%s\n", sep);             \
                                VCLI_Out(cli, "\"%s\"", #string);       \
                                sep = ",";                              \
                        }                                               \
                } while(0)

                flag_out(OBJ_STICKY, obj_sticky);
                flag_out(DELAYED_EFFECT, delayed_effect);
                flag_out(EXPERIMENTAL, experimental);
                flag_out(MUST_RELOAD, must_reload);
                flag_out(MUST_RESTART, must_restart);
                flag_out(WIZARD, wizard);
                flag_out(PROTECTED, protected);
                flag_out(ONLY_ROOT, only_root);
                flag_out(BUILD_OPTIONS, build_options);

#undef flag_out

                if (pp->flags)
                        VCLI_Out(cli, "\n");
                VSB_indent(cli->sb, -2);
                VCLI_Out(cli, "]\n");
                VSB_indent(cli->sb, -2);
                VCLI_Out(cli, "}");
        }
        VCLI_JSON_end(cli);
        if (show != NULL && n == 0) {
                VSB_clear(cli->sb);
                VCLI_SetResult(cli, CLIS_PARAM);
                VCLI_Out(cli, "Unknown parameter \"%s\".", show);
        }
        VSB_destroy(&vsb);
        VSB_destroy(&def);
}

/*--------------------------------------------------------------------
 * Mark parameters as protected
 */

void
MCF_ParamProtect(struct cli *cli, const char *args)
{
        const struct parspec *orig;
        struct parspec *pp;
        char **av;
        int i;

        av = VAV_Parse(args, NULL, ARGV_COMMA);
        if (av[0] != NULL) {
                VCLI_Out(cli, "Parse error: %s", av[0]);
                VCLI_SetResult(cli, CLIS_PARAM);
                VAV_Free(av);
                return;
        }
        for (i = 1; av[i] != NULL; i++) {
                pp = mcf_findpar(av[i]);
                if (pp == NULL) {
                        VCLI_Out(cli, "Unknown parameter %s", av[i]);
                        VCLI_SetResult(cli, CLIS_PARAM);
                        break;
                }
                if (pp->func == tweak_alias) {
                        orig = TRUST_ME(pp->priv);
                        AN(orig);
                        VCLI_Out(cli,
                            "Cannot mark alias %s read only.\n"
                            "Did you mean to mark %s read only?",
                            pp->name, orig->name);
                        VCLI_SetResult(cli, CLIS_PARAM);
                        break;
                }
                pp->flags |= PROTECTED;
        }
        VAV_Free(av);
}

/*--------------------------------------------------------------------*/

void
MCF_ParamSet(struct cli *cli, const char *param, const char *val)
{
        const struct parspec *pp;
        struct parspec alias[1];

        pp = mcf_findpar(param);
        if (pp == NULL) {
                VCLI_SetResult(cli, CLIS_PARAM);
                VCLI_Out(cli, "Unknown parameter \"%s\".", param);
                return;
        }
        if (pp->flags & NOT_IMPLEMENTED) {
                VCLI_SetResult(cli, CLIS_CANT);
                VCLI_Out(cli,
                    "parameter \"%s\" is not available on this platform.",
                    param
                );
                return;
        }
        if (!val)
                val = pp->def;
        if (pp->func == tweak_alias) {
                pp = mcf_alias(alias, pp);
                alias->name = param;
        }
        if (pp->flags & PROTECTED) {
                VCLI_SetResult(cli, CLIS_AUTH);
                VCLI_Out(cli, "parameter \"%s\" is protected.", param);
                return;
        }
        if (pp->func(cli->sb, pp, val))
                VCLI_SetResult(cli, CLIS_PARAM);

        if (cli->result == CLIS_OK && heritage.param != NULL)
                *heritage.param = mgt_param;

        if (cli->result != CLIS_OK) {
                VCLI_Out(cli, "\n(attempting to set param '%s' to '%s')",
                    pp->name, val);
        } else if (MCH_Running() && pp->flags & MUST_RESTART) {
                VCLI_Out(cli,
                    "\nChange will take effect when child is restarted");
        } else if (pp->flags & MUST_RELOAD) {
                VCLI_Out(cli,
                    "\nChange will take effect when VCL script is reloaded");
        }
}


/*--------------------------------------------------------------------*/

static void v_matchproto_(cli_func_t)
mcf_param_set(struct cli *cli, const char * const *av, void *priv)
{

        (void)priv;
        MCF_ParamSet(cli, av[2], av[3]);
}

static void v_matchproto_(cli_func_t)
mcf_param_set_json(struct cli *cli, const char * const *av, void *priv)
{
        const char *const avs[] = { av[0], av[1], av[2], av[3], NULL };

        MCF_ParamSet(cli, av[3], av[4]);
        if (cli->result == CLIS_OK)
                mcf_param_show_json(cli, avs, priv);
}

/*--------------------------------------------------------------------*/

static void v_matchproto_(cli_func_t)
mcf_param_reset(struct cli *cli, const char * const *av, void *priv)
{

        (void)priv;
        MCF_ParamSet(cli, av[2], NULL);
}

/*--------------------------------------------------------------------
 * Initialize parameters and sort by name.
 */

static struct parspec mgt_parspec[] = {
#define PARAM_ALL
#define PARAM_PRE {
#define PARAM(typ, fld, nm, ...) #nm, __VA_ARGS__
#define PARAM_POST },
#include "tbl/params.h"
        { NULL, NULL, NULL }
};

static void
mcf_init_params(void)
{
        struct parspec *pp;
        const char *s;

        for (pp = mgt_parspec; pp->name != NULL; pp++) {
                AN(pp->func);
                s = strchr(pp->descr, '\0');
                if (isspace(s[-1])) {
                        fprintf(stderr,
                            "Param->descr has trailing space: %s\n", pp->name);
                        exit(4);
                }
                mcf_addpar(pp);
                margin2 = vmax_t(int, margin2, strlen(pp->name) + 1);
        }
}

/*--------------------------------------------------------------------
 * Wash a min/max/default value
 */

static void
mcf_dyn_vsb(enum mcf_which_e which, struct parspec *pp, struct vsb *vsb)
{

        switch (which) {
        case MCF_DEFAULT:
                REPLACE(pp->dyn_def, VSB_data(vsb));
                pp->def = pp->dyn_def;
                break;
        case MCF_MINIMUM:
                REPLACE(pp->dyn_min, VSB_data(vsb));
                pp->min = pp->dyn_min;
                break;
        case MCF_MAXIMUM:
                REPLACE(pp->dyn_max, VSB_data(vsb));
                pp->max = pp->dyn_max;
                break;
        default:
                WRONG("bad 'which'");
        }
}

static void
mcf_wash_param(struct cli *cli, struct parspec *pp, enum mcf_which_e which,
    const char *name, struct vsb *vsb)
{
        const char *val;
        int err;

        switch (which) {
        case MCF_DEFAULT: val = pp->def; break;
        case MCF_MINIMUM: val = pp->min; break;
        case MCF_MAXIMUM: val = pp->max; break;
        default:
                WRONG("bad 'which'");
        }
        AN(val);

        if (pp->func == tweak_alias) {
                assert(which == MCF_DEFAULT);
                pp->priv = mcf_findpar(pp->def);
                pp->def = NULL;
                return;
        }

        VSB_clear(vsb);
        VSB_printf(vsb, "FAILED to set %s for param %s: %s\n",
            name, pp->name, val);
        err = pp->func(vsb, pp, val);
        AZ(VSB_finish(vsb));
        if (err) {
                VCLI_Out(cli, "%s\n", VSB_data(vsb));
                VCLI_SetResult(cli, CLIS_CANT);
                return;
        }
        VSB_clear(vsb);
        err = pp->func(vsb, pp, NULL);
        AZ(err);
        AZ(VSB_finish(vsb));
        if (strcmp(val, VSB_data(vsb)))
                mcf_dyn_vsb(which, pp, vsb);
}

/*--------------------------------------------------------------------*/

static struct cli_proto cli_params[] = {
        { CLICMD_PARAM_SHOW,    "", mcf_param_show, mcf_param_show_json },
        { CLICMD_PARAM_SET,     "", mcf_param_set, mcf_param_set_json },
        { CLICMD_PARAM_RESET,   "", mcf_param_reset, mcf_param_set_json },
        { NULL }
};

/*--------------------------------------------------------------------
 * Configure the parameters
 */

void
MCF_InitParams(struct cli *cli)
{
        struct plist *pl;
        struct parspec *pp;
        struct vsb *vsb;
        ssize_t def, low;

        mcf_init_params();
        MCF_TcpParams();

        def = 80 * 1024;

        if (sizeof(void *) < 8) {               /*lint !e506 !e774  */
                /*
                 * Adjust default parameters for 32 bit systems to conserve
                 * VM space.
                 *
                 * Reflect changes in doc/sphinx/reference/varnishd.rst !
                 */
                MCF_ParamConf(MCF_DEFAULT, "workspace_client", "24k");
                MCF_ParamConf(MCF_DEFAULT, "workspace_backend", "20k");
                MCF_ParamConf(MCF_DEFAULT, "http_resp_size", "8k");
                MCF_ParamConf(MCF_DEFAULT, "http_req_size", "12k");
                MCF_ParamConf(MCF_DEFAULT, "gzip_buffer", "4k");
                MCF_ParamConf(MCF_DEFAULT, "vsl_buffer", "4k");
                MCF_ParamConf(MCF_MAXIMUM, "vsl_space", "1G");
                def = 64 * 1024;
        }

        low = sysconf(_SC_THREAD_STACK_MIN);
        MCF_ParamConf(MCF_MINIMUM, "thread_pool_stack", "%jdb", (intmax_t)low);

#if defined(ENABLE_SANITIZER) || defined(ENABLE_COVERAGE)
        def = 192 * 1024;
#endif

        if (def < low)
                def = low;
        MCF_ParamConf(MCF_DEFAULT, "thread_pool_stack", "%jdb", (intmax_t)def);

#if !defined(MAX_THREAD_POOLS)
#  define MAX_THREAD_POOLS 32
#endif

        MCF_ParamConf(MCF_MAXIMUM, "thread_pools", "%d", MAX_THREAD_POOLS);

#if !defined(HAVE_ACCEPT_FILTERS) || defined(__linux)
        MCF_ParamConf(MCF_DEFAULT, "accept_filter", "off");
#endif

        VCLS_AddFunc(mgt_cls, MCF_AUTH, cli_params);

        vsb = VSB_new_auto();
        AN(vsb);

        VTAILQ_FOREACH(pl, &phead, list) {
                pp = pl->spec;

                if (pp->flags & NOT_IMPLEMENTED)
                        continue;
                if (pp->min != NULL)
                        mcf_wash_param(cli, pp, MCF_MINIMUM, "minimum", vsb);
                if (pp->max != NULL)
                        mcf_wash_param(cli, pp, MCF_MAXIMUM, "maximum", vsb);
                AN(pp->def);
                mcf_wash_param(cli, pp, MCF_DEFAULT, "default", vsb);
        }
        VSB_destroy(&vsb);

        AN(mgt_cc_cmd);
        REPLACE(mgt_cc_cmd_def, mgt_cc_cmd);
}

/*--------------------------------------------------------------------*/

void
MCF_ParamConf(enum mcf_which_e which, const char * const param,
    const char *fmt, ...)
{
        struct parspec *pp;
        struct vsb *vsb;
        va_list ap;

        pp = mcf_findpar(param);
        AN(pp);
        vsb = VSB_new_auto();
        AN(vsb);
        va_start(ap, fmt);
        VSB_vprintf(vsb, fmt, ap);
        va_end(ap);
        AZ(VSB_finish(vsb));
        mcf_dyn_vsb(which, pp, vsb);
        VSB_destroy(&vsb);
}

/*--------------------------------------------------------------------*/

void
MCF_DumpRstParam(void)
{
        struct plist *pl;
        const struct parspec *pp;
        const char *p, *q, *t1, *t2;
        unsigned flags;
        size_t z;

        printf("\n.. The following is the autogenerated "
            "output from varnishd -x parameter\n\n");
        VTAILQ_FOREACH(pl, &phead, list) {
                pp = pl->spec;
                if (!strcmp("deprecated_dummy", pp->name))
                    continue;
                printf(".. _ref_param_%s:\n\n", pp->name);
                printf("%s\n", pp->name);
                for (z = 0; z < strlen(pp->name); z++)
                        printf("~");
                printf("\n");

                if (pp->flags && pp->flags & PLATFORM_DEPENDENT)
                        printf("\n%s\n\n", PLATFORM_DEPENDENT_TEXT);

                if (pp->flags && pp->flags & BUILD_OPTIONS)
                        printf("\n%s\n\n", BUILD_OPTIONS_TEXT);

                if (pp->units != NULL && *pp->units != '\0')
                        printf("\t* Units: %s\n", pp->units);
#define MCF_DYN_REASON(lbl, nm)                                 \
                if (pp->dyn_ ## nm ## _reason != NULL)          \
                        printf("\t* " #lbl ": %s\n",            \
                            pp->dyn_ ## nm ## _reason);         \
                else if (pp->nm != NULL)                        \
                        printf("\t* " #lbl ": %s\n", pp->nm);
                MCF_DYN_REASON(Default, def);
                MCF_DYN_REASON(Minimum, min);
                MCF_DYN_REASON(Maximum, max);
#undef MCF_DYN_REASON
                flags = pp->flags & ~DOCS_FLAGS;
                if (pp->func == tweak_timeout)
                        flags |= TYPE_TIMEOUT;
                if (flags) {
                        printf("\t* Flags: ");
                        q = "";

                        if (flags & TYPE_TIMEOUT) {
                                printf("%stimeout", q);
                                q = ", ";
                        }
                        if (flags & DELAYED_EFFECT) {
                                printf("%sdelayed", q);
                                q = ", ";
                        }
                        if (flags & MUST_RESTART) {
                                printf("%smust_restart", q);
                                q = ", ";
                        }
                        if (flags & MUST_RELOAD) {
                                printf("%smust_reload", q);
                                q = ", ";
                        }
                        if (flags & EXPERIMENTAL) {
                                printf("%sexperimental", q);
                                q = ", ";
                        }
                        if (flags & WIZARD) {
                                printf("%swizard", q);
                                q = ", ";
                        }
                        if (flags & ONLY_ROOT) {
                                printf("%sonly_root", q);
                                q = ", ";
                        }
                        if (flags & OBJ_STICKY) {
                                printf("%sobj_sticky", q);
                                q = ", ";
                        }
                        printf("\n");
                }
                printf("\n");
                p = pp->descr;
                while (*p != '\0') {
                        q = strchr(p, '\n');
                        if (q == NULL)
                                q = strchr(p, '\0');
                        t1 = strchr(p, '\t');
                        if (t1 != NULL && t1 < q) {
                                t2 = strchr(t1 + 1, '\t');
                                AN(t2);
                                printf("\n\t*");
                                (void)fwrite(t1 + 1, (t2 - 1) - t1, 1, stdout);
                                printf("*\n\t\t");
                                p = t2 + 1;
                        }
                        (void)fwrite(p, q - p, 1, stdout);
                        p = q;
                        if (*p == '\n') {
                                printf("\n");
                                p++;
                        }
                        continue;
                }
                printf("\n\n");
        }
}

		varnish-cache/bin/varnishd/mgt/mgt_param.c
0		/*-
1		* Copyright (c) 2006 Verdens Gang AS
2		* Copyright (c) 2006-2011 Varnish Software AS
3		* All rights reserved.
4		*
5		* Author: Poul-Henning Kamp <phk@phk.freebsd.dk>
6		*
7		* SPDX-License-Identifier: BSD-2-Clause
8		*
9		* Redistribution and use in source and binary forms, with or without
10		* modification, are permitted provided that the following conditions
11		* are met:
12		* 1. Redistributions of source code must retain the above copyright
13		* notice, this list of conditions and the following disclaimer.
14		* 2. Redistributions in binary form must reproduce the above copyright
15		* notice, this list of conditions and the following disclaimer in the
16		* documentation and/or other materials provided with the distribution.
17		*
18		* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
19		* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20		* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21		* ARE DISCLAIMED. IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
22		* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23		* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24		* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25		* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26		* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27		* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28		* SUCH DAMAGE.
29		*/
30
31		#include "config.h"
32
33		#include <ctype.h>
34		#include <stdarg.h>
35		#include <stdio.h>
36		#include <stdlib.h>
37		#include <string.h>
38		#include <unistd.h>
39
40		#include "mgt/mgt.h"
41		#include "common/heritage.h"
42
43		#include "mgt/mgt_param.h"
44		#include "vav.h"
45		#include "vcli_serve.h"
46
47		struct plist {
48		unsigned magic;
49		#define PLIST_MAGIC 0xbfc3ea16
50		VTAILQ_ENTRY(plist) list;
51		struct parspec *spec;
52		};
53
54		static VTAILQ_HEAD(, plist) phead = VTAILQ_HEAD_INITIALIZER(phead);
55
56		struct params mgt_param;
57		static const int margin1 = 8;
58		static int margin2 = 0;
59		static const int wrap_at = 72;
60		static const int tab0 = 3;
61
62		/--------------------------------------------------------------------/
63
64		static const char TYPE_TIMEOUT_TEXT[] =
65		"\n\n"
66		"NB: This parameter can be disabled with the value \"never\".";
67
68		static const char OBJ_STICKY_TEXT[] =
69		"\n\n"
70		"NB: This parameter is evaluated only when objects are created. "
71		"To change it for all objects, restart or ban everything.";
72
73		static const char DELAYED_EFFECT_TEXT[] =
74		"\n\n"
75		"NB: This parameter may take quite some time to take (full) effect.";
76
77		static const char MUST_RESTART_TEXT[] =
78		"\n\n"
79		"NB: This parameter will not take any effect until the "
80		"child process has been restarted.";
81
82		static const char MUST_RELOAD_TEXT[] =
83		"\n\n"
84		"NB: This parameter will not take any effect until the "
85		"VCL programs have been reloaded.";
86
87		static const char EXPERIMENTAL_TEXT[] =
88		"\n\n"
89		"NB: We do not know yet if it is a good idea to change "
90		"this parameter, or if the default value is even sensible. "
91		"Caution is advised, and feedback is most welcome.";
92
93		static const char WIZARD_TEXT[] =
94		"\n\n"
95		"NB: Do not change this parameter, unless a developer tell "
96		"you to do so.";
97
98		static const char PROTECTED_TEXT[] =
99		"\n\n"
100		"NB: This parameter is protected and cannot be changed.";
101
102		static const char ONLY_ROOT_TEXT[] =
103		"\n\n"
104		"NB: This parameter only works if varnishd is run as root.";
105
106		static const char NOT_IMPLEMENTED_TEXT[] =
107		"\n\n"
108		"NB: This parameter depends on a feature which is not available"
109		" on this platform.";
110
111		static const char PLATFORM_DEPENDENT_TEXT[] =
112		"\n\n"
113		"NB: This parameter depends on a feature which is not available"
114		" on all platforms.";
115
116		static const char BUILD_OPTIONS_TEXT[] =
117		"\n\n"
118		"NB: The actual default value for this parameter depends on the"
119		" Varnish build environment and options.";
120
121		/--------------------------------------------------------------------/
122
123		static struct parspec *
124	1894840	mcf_findpar(const char *name)
125		{
126		struct plist *pl;
127
128	1894840	AN(name);
129	180185200	VTAILQ_FOREACH(pl, &phead, list)
130	180185040	if (!strcmp(pl->spec->name, name))
131	1894680	return (pl->spec);
132	160	return (NULL);
133	1894840	}
134
135		static void
136	5232800	mcf_addpar(struct parspec *ps)
137		{
138		struct plist pl, pl2;
139		int i;
140
141	5232800	ALLOC_OBJ(pl, PLIST_MAGIC);
142	5232800	AN(pl);
143	5232800	pl->spec = ps;
144	249781800	VTAILQ_FOREACH(pl2, &phead, list) {
145	248980000	i = strcmp(pl2->spec->name, pl->spec->name);
146	248980000	if (i == 0) {
147	0	fprintf(stderr, "Duplicate param: %s\n", ps->name);
148	0	exit(4);
149	248980000	} else if (i > 0) {
150	4431000	VTAILQ_INSERT_BEFORE(pl2, pl, list);
151	4431000	return;
152		}
153	244549000	}
154	801800	VTAILQ_INSERT_TAIL(&phead, pl, list);
155	5232800	}
156
157		static const struct parspec *
158	240	mcf_alias(struct parspec alias, const struct parspec pp)
159		{
160		const struct parspec *orig;
161
162	240	orig = TRUST_ME(pp->priv);
163	240	AN(orig);
164	240	memcpy(alias, orig, sizeof *alias);
165	240	alias->priv = TRUST_ME(orig);
166	240	return (alias);
167		}
168
169		/*--------------------------------------------------------------------
170		* Wrap the text nicely.
171		* Lines are allowed to contain two TABS and we render that as a table
172		* taking the width of the first column into account.
173		*/
174
175		static void
176	105080	mcf_wrap_line(struct cli cli, const char b, const char *e, int tabs, int m0)
177		{
178	105080	int n, hadtabs = 0;
179		const char *w;
180
181	105080	n = m0;
182	105080	VCLI_Out(cli, "%*s", n, "");
183
184	1553200	while (b < e) {
185	1500560	if (!isspace(*b)) {
186	728000	VCLI_Out(cli, "%c", *b);
187	728000	b++;
188	728000	n++;
189	1500560	} else if (*b == '\t') {
190	22560	assert(tabs);
191	22560	assert(hadtabs < 2);
192	22560	do {
193	176280	VCLI_Out(cli, " ");
194	176280	n++;
195	176280	} while ((n % tabs) != (m0 + tab0) % tabs);
196	22560	b++;
197	22560	hadtabs++;
198	22560	} else {
199	750000	assert (*b == ' ');
200	4496160	for (w = b + 1; w < e; w++)
201	4443520	if (isspace(*w))
202	697360	break;
203	750000	if (n + (w - b) < wrap_at) {
204	697560	VCLI_Out(cli, "%.*s", (int)(w - b), b);
205	697560	n += (w - b);
206	697560	b = w;
207	697560	} else {
208	52440	assert(hadtabs == 0 \|\| hadtabs == 2);
209	52440	VCLI_Out(cli, "\n");
210	104880	mcf_wrap_line(cli, b + 1, e, 0,
211	52440	hadtabs ? m0 + tab0 + tabs : m0);
212	52440	return;
213		}
214		}
215		}
216	52640	assert(b == e);
217	105080	}
218
219		static void
220	25640	mcf_wrap(struct cli cli, const char text)
221		{
222		const char p, q, *r;
223	25640	int tw = 0;
224
225	25640	if (strchr(text, '\t') != NULL) {
226	12720	for (p = text; *p != '\0'; ) {
227	12720	q = strstr(p, "\n\t");
228	12720	if (q == NULL)
229	1440	break;
230	11280	q += 2;
231	11280	r = strchr(q, '\t');
232	11280	if (r == NULL) {
233	0	fprintf(stderr,
234	0	"LINE with just one TAB: <%s>\n", text);
235	0	exit(4);
236		}
237	11280	if (r - q > tw)
238	4040	tw = r - q;
239	11280	p = q;
240		}
241	1440	tw += 2;
242	1440	if (tw < 20)
243	1240	tw = 20;
244	1440	}
245
246	134360	for (p = text; *p != '\0'; ) {
247	108720	if (*p == '\n') {
248	56080	VCLI_Out(cli, "\n");
249	56080	p++;
250	56080	continue;
251		}
252	52640	q = strchr(p, '\n');
253	52640	if (q == NULL)
254	25640	q = strchr(p, '\0');
255	52640	mcf_wrap_line(cli, p, q, tw, margin1);
256	52640	p = q;
257		}
258	25640	}
259
260		/--------------------------------------------------------------------/
261
262		static void v_matchproto_(cli_func_t)
263	1320	mcf_param_show(struct cli cli, const char const av, void priv)
264		{
265		struct plist *pl;
266		const struct parspec pp, pa;
267		struct parspec alias[1];
268	1320	int n, lfmt = 0, chg = 0;
269		struct vsb *vsb;
270	1320	const char *show = NULL;
271
272	1320	(void)priv;
273
274	2400	for (n = 2; av[n] != NULL; n++) {
275	1120	if (strcmp(av[n], "-l") == 0) {
276	120	lfmt = 1;
277	120	continue;
278		}
279	1000	if (strcmp(av[n], "changed") == 0) {
280	40	chg = 1;
281	40	continue;
282		}
283	960	if (show != NULL) {
284	40	VCLI_SetResult(cli, CLIS_TOOMANY);
285	40	VCLI_Out(cli, "Too many parameters");
286	40	return;
287		}
288	920	show = av[n];
289	920	lfmt = 1;
290	920	}
291
292	1280	vsb = VSB_new_auto();
293	1280	AN(vsb);
294
295	1280	n = 0;
296	160000	VTAILQ_FOREACH(pl, &phead, list) {
297	158720	pp = pl->spec;
298	158720	if (lfmt && show != NULL && strcmp(pp->name, show))
299	108280	continue;
300	50440	if (pp->func == tweak_alias) {
301	1760	if (show == NULL)
302	1600	continue;
303	160	if (strcmp(pp->name, show))
304	0	continue;
305	160	pp = mcf_alias(alias, pp);
306	160	}
307	48840	n++;
308
309	48840	VSB_clear(vsb);
310	48840	if (pp->func(vsb, pp, NULL))
311	0	VCLI_SetResult(cli, CLIS_PARAM);
312	48840	AZ(VSB_finish(vsb));
313	48840	if (chg && pp->def != NULL && !strcmp(pp->def, VSB_data(vsb)))
314	4320	continue;
315
316	44520	if (pp->flags & NOT_IMPLEMENTED) {
317	0	if (lfmt) {
318	0	VCLI_Out(cli, "%s\n", pp->name);
319	0	VCLI_Out(cli, "%-*sNot available", margin1, " ");
320	0	} else {
321	0	VCLI_Out(cli, "%-*s-", margin2, pp->name);
322		}
323	0	} else {
324	44520	if (lfmt) {
325	15240	VCLI_Out(cli, "%s\n", pp->name);
326	15240	VCLI_Out(cli, "%-*sValue is: ", margin1, " ");
327	15240	} else {
328	29280	VCLI_Out(cli, "%-*s", margin2, pp->name);
329		}
330
331	44520	VCLI_Out(cli, "%s", VSB_data(vsb));
332	44520	if (pp->units != NULL && *pp->units != '\0')
333	35600	VCLI_Out(cli, " [%s]", pp->units);
334	44520	if (pp->def != NULL && !strcmp(pp->def, VSB_data(vsb)))
335	39960	VCLI_Out(cli, " (default)");
336		}
337	44520	VCLI_Out(cli, "\n");
338
339	44520	if (lfmt && pp->func == tweak_alias) {
340	0	pa = TRUST_ME(pp->priv);
341	0	VCLI_Out(cli, "%-*sAlias of: %s\n",
342	0	margin1, " ", pa->name);
343	0	}
344	44520	if (lfmt && pp->flags & NOT_IMPLEMENTED) {
345	0	VCLI_Out(cli, "\n");
346	0	mcf_wrap(cli, NOT_IMPLEMENTED_TEXT);
347	0	VCLI_Out(cli, "\n\n");
348	44520	} else if (lfmt) {
349	15240	if (pp->def != NULL && strcmp(pp->def, VSB_data(vsb)))
350	3440	VCLI_Out(cli, "%-*sDefault is: %s\n",
351	1720	margin1, "", pp->def);
352	15240	if (pp->min != NULL)
353	23680	VCLI_Out(cli, "%-*sMinimum is: %s\n",
354	11840	margin1, "", pp->min);
355	15240	if (pp->max != NULL)
356	6960	VCLI_Out(cli, "%-*sMaximum is: %s\n",
357	3480	margin1, "", pp->max);
358	15240	VCLI_Out(cli, "\n");
359	15240	mcf_wrap(cli, pp->descr);
360	15240	if (pp->func == tweak_timeout)
361	1600	mcf_wrap(cli, TYPE_TIMEOUT_TEXT);
362	15240	if (pp->flags & OBJ_STICKY)
363	520	mcf_wrap(cli, OBJ_STICKY_TEXT);
364	15240	if (pp->flags & DELAYED_EFFECT)
365	2160	mcf_wrap(cli, DELAYED_EFFECT_TEXT);
366	15240	if (pp->flags & EXPERIMENTAL)
367	3600	mcf_wrap(cli, EXPERIMENTAL_TEXT);
368	15240	if (pp->flags & MUST_RELOAD)
369	280	mcf_wrap(cli, MUST_RELOAD_TEXT);
370	15240	if (pp->flags & MUST_RESTART)
371	960	mcf_wrap(cli, MUST_RESTART_TEXT);
372	15240	if (pp->flags & WIZARD)
373	720	mcf_wrap(cli, WIZARD_TEXT);
374	15240	if (pp->flags & PROTECTED)
375	40	mcf_wrap(cli, PROTECTED_TEXT);
376	15240	if (pp->flags & ONLY_ROOT)
377	0	mcf_wrap(cli, ONLY_ROOT_TEXT);
378	15240	if (pp->flags & BUILD_OPTIONS)
379	520	mcf_wrap(cli, BUILD_OPTIONS_TEXT);
380	15240	VCLI_Out(cli, "\n\n");
381	15240	}
382	44520	}
383	1280	if (show != NULL && n == 0) {
384	40	VCLI_SetResult(cli, CLIS_PARAM);
385	40	VCLI_Out(cli, "Unknown parameter \"%s\".", show);
386	40	}
387	1280	VSB_destroy(&vsb);
388	1320	}
389
390		static inline void
391	49920	mcf_json_key_valstr(struct cli cli, const char key, const char *val)
392		{
393	49920	VCLI_Out(cli, "\"%s\": ", key);
394	49920	VCLI_JSON_str(cli, val);
395	49920	VCLI_Out(cli, ",\n");
396	49920	}
397
398		static void v_matchproto_(cli_func_t)
399	600	mcf_param_show_json(struct cli cli, const char const av, void priv)
400		{
401	600	int n, comma = 0, chg = 0;
402		struct plist *pl;
403		const struct parspec pp, pa;
404		struct parspec alias[1];
405		struct vsb vsb, def;
406	600	const char show = NULL, sep;
407
408	600	(void)priv;
409
410	1680	for (int i = 2; av[i] != NULL; i++) {
411	1160	if (strcmp(av[i], "-l") == 0) {
412	40	VCLI_SetResult(cli, CLIS_PARAM);
413	40	VCLI_Out(cli, "-l not permitted with param.show -j");
414	40	return;
415		}
416	1120	if (strcmp(av[i], "changed") == 0) {
417	40	chg = 1;
418	40	continue;
419		}
420	1080	if (strcmp(av[i], "-j") == 0)
421	600	continue;
422	480	if (show != NULL) {
423	40	VCLI_SetResult(cli, CLIS_TOOMANY);
424	40	VCLI_Out(cli, "Too many parameters");
425	40	return;
426		}
427	440	show = av[i];
428	440	}
429
430	520	vsb = VSB_new_auto();
431	520	AN(vsb);
432	520	def = VSB_new_auto();
433	520	AN(def);
434
435	520	n = 0;
436	520	VCLI_JSON_begin(cli, 2, av);
437	520	VCLI_Out(cli, ",\n");
438	65000	VTAILQ_FOREACH(pl, &phead, list) {
439	64480	pp = pl->spec;
440	64480	if (show != NULL && strcmp(pp->name, show) != 0)
441	49240	continue;
442	15240	if (pp->func == tweak_alias) {
443	520	if (show == NULL)
444	480	continue;
445	40	if (strcmp(pp->name, show))
446	0	continue;
447	40	pp = mcf_alias(alias, pp);
448	40	}
449	14760	n++;
450
451	14760	VSB_clear(vsb);
452	14760	if (pp->func(vsb, pp, JSON_FMT))
453	0	VCLI_SetResult(cli, CLIS_PARAM);
454	14760	AZ(VSB_finish(vsb));
455	14760	VSB_clear(def);
456	14760	if (pp->func(def, pp, NULL))
457	0	VCLI_SetResult(cli, CLIS_PARAM);
458	14760	AZ(VSB_finish(def));
459	14760	if (chg && pp->def != NULL && !strcmp(pp->def, VSB_data(def)))
460	4320	continue;
461
462	10440	VCLI_Out(cli, "%s", comma ? ",\n" : "");
463	10440	comma++;
464	10440	VCLI_Out(cli, "{\n");
465	10440	VSB_indent(cli->sb, 2);
466	10440	mcf_json_key_valstr(cli, "name", pp->name);
467	10440	if (pp->func == tweak_alias) {
468	0	pa = TRUST_ME(pp->priv);
469	0	mcf_json_key_valstr(cli, "alias", pa->name);
470	0	}
471	10440	if (pp->flags & NOT_IMPLEMENTED) {
472	0	VCLI_Out(cli, "\"implemented\": false\n");
473	0	VSB_indent(cli->sb, -2);
474	0	VCLI_Out(cli, "}");
475	0	continue;
476		}
477	10440	VCLI_Out(cli, "\"implemented\": true,\n");
478	10440	VCLI_Out(cli, "\"value\": %s,\n", VSB_data(vsb));
479	10440	if (pp->units != NULL && *pp->units != '\0')
480	8160	mcf_json_key_valstr(cli, "units", pp->units);
481
482	10440	if (pp->def != NULL)
483	10440	mcf_json_key_valstr(cli, "default", pp->def);
484	10440	if (pp->min != NULL)
485	7960	mcf_json_key_valstr(cli, "minimum", pp->min);
486	10440	if (pp->max != NULL)
487	2480	mcf_json_key_valstr(cli, "maximum", pp->max);
488	10440	mcf_json_key_valstr(cli, "description", pp->descr);
489
490	10440	VCLI_Out(cli, "\"flags\": [");
491	10440	VSB_indent(cli->sb, 2);
492	10440	sep = "";
493
494		#define flag_out(flag, string) do { \
495		if (pp->flags & flag) { \
496		VCLI_Out(cli, "%s\n", sep); \
497		VCLI_Out(cli, "\"%s\"", #string); \
498		sep = ","; \
499		} \