GCOV - Varnish Cache


/*-
 * Copyright (c) 2006 Verdens Gang AS
 * Copyright (c) 2006-2010 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 <sys/socket.h>

#include <netinet/in.h>

#include <netdb.h>
#include <stdlib.h>
#include <string.h>

#include "vcc_compile.h"
#include <vtcp.h>
#include <vtree.h>
#include <vsa.h>

#define ACL_MAXADDR     (sizeof(struct in6_addr) + 1)

VRBT_HEAD(acl_tree, acl_e);

struct acl {
        unsigned                magic;
#define VCC_ACL_MAGIC           0xb9fb3cd0

        int                     flag_log;
        int                     flag_fold;
        int                     flag_fold_report;
        int                     flag_pedantic;
        int                     flag_table;

        struct acl_tree         acl_tree;
};

struct acl_e {
        unsigned                magic;
#define VCC_ACL_E_MAGIC 0xcac81e23
        VRBT_ENTRY(acl_e)       branch;
        unsigned char           data[ACL_MAXADDR];
        unsigned                mask;
        unsigned                not;
        unsigned                para;
        unsigned                overlapped;
        char                    *addr;
        const char              *fixed;
        struct token            *t_addr;
        struct token            *t_mask;
};

enum acl_cmp_e {
        ACL_EQ = 0,
        ACL_LT = -1,            // a < b
        ACL_GT = 1,             // b > a
        ACL_CONTAINED = -2,     // b contains a
        ACL_CONTAINS = 2,       // a contains b
        ACL_LEFT = -3,          // a + 1 == b
        ACL_RIGHT = 3           // a == b + 1
};

static void vcc_acl_insert_entry(struct vcc *, struct acl_e **);

/*
 * Compare two acl rules for relation
 */

#define CMP(n, a, b)                                                    \
        do {                                                            \
                if ((a) < (b))                                          \
                        return (enum acl_cmp_e)(-n);                    \
                else if ((b) < (a))                                     \
                        return (n);                                     \
        } while (0)

#define CMPA(a, b)                                                      \
        do {                                                            \
                if (((a) | 1) == (b))                                   \
                        return (ACL_LEFT);                              \
                else if (((b) | 1) == (a))                              \
                        return (ACL_RIGHT);                             \
        } while (0)

static void
vcl_acl_free(struct acl_e **aep)
{
        struct acl_e *a;

        TAKE_OBJ_NOTNULL(a, aep, VCC_ACL_E_MAGIC);
        free(a->addr);
        FREE_OBJ(a);
}

static enum acl_cmp_e
vcl_acl_cmp(const struct acl_e *ae1, const struct acl_e *ae2)
{
        const unsigned char *p1, *p2;
        unsigned m;
        unsigned char a1, a2;

        CHECK_OBJ_NOTNULL(ae1, VCC_ACL_E_MAGIC);
        CHECK_OBJ_NOTNULL(ae2, VCC_ACL_E_MAGIC);

        p1 = ae1->data;
        p2 = ae2->data;
        m = vmin_t(unsigned, ae1->mask, ae2->mask);
        for (; m >= 8; m -= 8) {
                if (m == 8 && ae1->mask == ae2->mask)
                        CMPA(*p1, *p2);
                CMP(ACL_GT, *p1, *p2);
                p1++;
                p2++;
        }
        if (m) {
                assert (m < 8);
                a1 = *p1 >> (8 - m);
                a2 = *p2 >> (8 - m);
                if (ae1->mask == ae2->mask)
                        CMPA(a1, a2);
                CMP(ACL_GT, a1, a2);
        } else if (ae1->mask == ae2->mask) {
                CMPA(*p1, *p2);
        }
        /* Long mask is less than short mask */
        CMP(ACL_CONTAINS, ae2->mask, ae1->mask);

        return (ACL_EQ);
}

static int
vcl_acl_disjoint(const struct acl_e *ae1, const struct acl_e *ae2)
{
        const unsigned char *p1, *p2;
        unsigned m;

        CHECK_OBJ_NOTNULL(ae1, VCC_ACL_E_MAGIC);
        CHECK_OBJ_NOTNULL(ae2, VCC_ACL_E_MAGIC);

        p1 = ae1->data;
        p2 = ae2->data;
        m = vmin_t(unsigned, ae1->mask, ae2->mask);
        for (; m >= 8; m -= 8) {
                CMP(ACL_GT, *p1, *p2);
                p1++;
                p2++;
        }
        if (m) {
                m = 0xff00 >> m;
                m &= 0xff;
                CMP(ACL_GT, *p1 & m, *p2 & m);
        }
        return (0);
}

VRBT_GENERATE_INSERT_COLOR(acl_tree, acl_e, branch, static)
VRBT_GENERATE_INSERT_FINISH(acl_tree, acl_e, branch, static)
VRBT_GENERATE_INSERT(acl_tree, acl_e, branch, vcl_acl_cmp, static)
VRBT_GENERATE_REMOVE_COLOR(acl_tree, acl_e, branch, static)
VRBT_GENERATE_REMOVE(acl_tree, acl_e, branch, static)
VRBT_GENERATE_MINMAX(acl_tree, acl_e, branch, static)
VRBT_GENERATE_NEXT(acl_tree, acl_e, branch, static)
VRBT_GENERATE_PREV(acl_tree, acl_e, branch, static)

static char *
vcc_acl_chk(struct vcc *tl, const struct acl_e *ae, const int l,
    unsigned char *p, int fam)
{
        const unsigned char *u;
        char h[VTCP_ADDRBUFSIZE];
        char t[VTCP_ADDRBUFSIZE + 10];
        char s[vsa_suckaddr_len];
        char *r = NULL;
        const struct suckaddr *sa;
        unsigned m;
        int ll, ret = 0;

        u = p;
        ll = l;
        m = ae->mask;

        p += m / 8;
        ll -= m / 8;
        assert (ll >= 0);
        m %= 8;

        if (m && ((unsigned)*p << m & 0xff) != 0) {
                ret = 1;
                m = 0xff00 >> m;
                *p &= m;
        }
        if (m) {
                p++;
                ll--;
        }

        for ( ; ll > 0; p++, ll--) {
                if (*p == 0)
                        continue;
                ret = 1;
                *p = 0;
        }
        if (ret == 0)
                return (NULL);

        sa = VSA_BuildFAP(s, fam, u, l, NULL, 0);
        AN(sa);
        VTCP_name(sa, h, sizeof h, NULL, 0);
        bprintf(t, "%s/%d", h, ae->mask);
        if (tl->acl->flag_pedantic != 0) {
                VSB_cat(tl->sb, "Non-zero bits in masked part, ");
                VSB_printf(tl->sb, "(maybe use %s ?)\n", t);
                vcc_ErrWhere(tl, ae->t_addr);
        }
        REPLACE(r, t);
        return (r);
}

static void
vcl_acl_fold(struct vcc *tl, struct acl_e **l, struct acl_e **r)
{
        enum acl_cmp_e cmp;

        AN(l);
        AN(r);
        CHECK_OBJ_NOTNULL(*l, VCC_ACL_E_MAGIC);
        CHECK_OBJ_NOTNULL(*r, VCC_ACL_E_MAGIC);

        if ((*l)->not || (*r)->not)
                return;

        cmp = vcl_acl_cmp(*l, *r);

        assert(cmp < 0);
        if (cmp == ACL_LT)
                return;

        do {
                switch (cmp) {
                case ACL_CONTAINED:
                        if (tl->acl->flag_fold_report) {
                                VSB_cat(tl->sb, "ACL entry:\n");
                                vcc_ErrWhere(tl, (*r)->t_addr);
                                VSB_cat(tl->sb, "supersedes / removes:\n");
                                vcc_ErrWhere(tl, (*l)->t_addr);
                                vcc_Warn(tl);
                        }
                        VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *l);
                        FREE_OBJ(*l);
                        *l = VRBT_PREV(acl_tree, &tl->acl->acl_tree, *r);
                        break;
                case ACL_LEFT:
                        (*l)->mask--;
                        (*l)->fixed = "folded";
                        if (tl->acl->flag_fold_report) {
                                VSB_cat(tl->sb, "ACL entry:\n");
                                vcc_ErrWhere(tl, (*l)->t_addr);
                                VSB_cat(tl->sb, "left of:\n");
                                vcc_ErrWhere(tl, (*r)->t_addr);
                                VSB_printf(tl->sb, "removing the latter and "
                                    "expanding mask of the former by one to "
                                    "/%u\n", (*l)->mask - 8);
                                vcc_Warn(tl);
                        }
                        VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *r);
                        FREE_OBJ(*r);
                        VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *l);
                        vcc_acl_insert_entry(tl, l);
                        return;
                default:
                        INCOMPL();
                }
                if (*l == NULL || *r == NULL || (*l)->not || (*r)->not)
                        break;
                cmp = vcl_acl_cmp(*l, *r);
        } while (cmp != ACL_LT);
}

static void
vcc_acl_insert_entry(struct vcc *tl, struct acl_e **aenp)
{
        struct acl_e *ae2, *l, *r;

        CHECK_OBJ_NOTNULL(*aenp, VCC_ACL_E_MAGIC);
        ae2 = VRBT_INSERT(acl_tree, &tl->acl->acl_tree, *aenp);
        if (ae2 != NULL) {
                if (ae2->not != (*aenp)->not) {
                        VSB_cat(tl->sb, "Conflicting ACL entries:\n");
                        vcc_ErrWhere(tl, ae2->t_addr);
                        VSB_cat(tl->sb, "vs:\n");
                        vcc_ErrWhere(tl, (*aenp)->t_addr);
                }
                return;
        }

        r = *aenp;
        *aenp = NULL;

        if (tl->acl->flag_fold == 0)
                return;

        l = VRBT_PREV(acl_tree, &tl->acl->acl_tree, r);
        if (l != NULL) {
                vcl_acl_fold(tl, &l, &r);
        }
        if (r == NULL)
                return;
        l = r;
        r = VRBT_NEXT(acl_tree, &tl->acl->acl_tree, l);
        if (r == NULL)
                return;
        vcl_acl_fold(tl, &l, &r);
}

static void
vcc_acl_add_entry(struct vcc *tl, const struct acl_e *ae, int l,
    unsigned char *u, int fam)
{
        struct acl_e *aen;

        if (fam == PF_INET && ae->mask > 32) {
                VSB_printf(tl->sb,
                    "Too wide mask (/%u) for IPv4 address\n", ae->mask);
                if (ae->t_mask != NULL)
                        vcc_ErrWhere(tl, ae->t_mask);
                else
                        vcc_ErrWhere(tl, ae->t_addr);
                return;
        }
        if (fam == PF_INET6 && ae->mask > 128) {
                VSB_printf(tl->sb,
                    "Too wide mask (/%u) for IPv6 address\n", ae->mask);
                vcc_ErrWhere(tl, ae->t_mask);
                return;
        }

        /* Make a copy from the template */
        ALLOC_OBJ(aen, VCC_ACL_E_MAGIC);
        AN(aen);
        *aen = *ae;
        aen->addr = strdup(ae->addr);
        AN(aen->addr);

        aen->fixed = vcc_acl_chk(tl, ae, l, u, fam);

        /* We treat family as part of address, it saves code */
        assert(fam <= 0xff);
        aen->data[0] = fam & 0xff;
        aen->mask += 8;

        assert(l + 1UL <= sizeof aen->data);
        vmemcpy(aen->data + 1L, u, l);

        vcc_acl_insert_entry(tl, &aen);
        if (aen != NULL)
                vcl_acl_free(&aen);
}

static void
vcc_acl_try_getaddrinfo(struct vcc *tl, struct acl_e *ae)
{
        struct addrinfo *res0, *res, hint;
        struct sockaddr_in *sin4;
        struct sockaddr_in6 *sin6;
        unsigned char *u, i4, i6;
        int error;

        CHECK_OBJ_NOTNULL(ae, VCC_ACL_E_MAGIC);
        memset(&hint, 0, sizeof hint);
        hint.ai_family = PF_UNSPEC;
        hint.ai_socktype = SOCK_STREAM;
        error = getaddrinfo(ae->addr, "0", &hint, &res0);
        if (error) {
                if (ae->para) {
                        VSB_printf(tl->sb,
                            "Warning: %s ignored\n  -- %s\n",
                            ae->addr, gai_strerror(error));
                        Fh(tl, 1, "/* Ignored ACL entry: %s%s",
                            ae->para ? "\"(\" " : "", ae->not ? "\"!\" " : "");
                        EncToken(tl->fh, ae->t_addr);
                        if (ae->t_mask)
                                Fh(tl, 0, "/%u", ae->mask);
                        Fh(tl, 0, "%s\n", ae->para ? " \")\"" : "");
                        Fh(tl, 1, " * getaddrinfo:  %s */\n",
                             gai_strerror(error));
                } else {
                        VSB_printf(tl->sb,
                            "DNS lookup(%s): %s\n",
                            ae->addr, gai_strerror(error));
                        vcc_ErrWhere(tl, ae->t_addr);
                }
                return;
        }

        i4 = i6 = 0;
        for (res = res0; res != NULL; res = res->ai_next) {
                switch (res->ai_family) {
                case PF_INET:
                        i4++;
                        break;
                case PF_INET6:
                        i6++;
                        break;
                default:
                        VSB_printf(tl->sb,
                            "Ignoring unknown protocol family (%d) for %.*s\n",
                                res->ai_family, PF(ae->t_addr));
                        continue;
                }
        }

        if (ae->t_mask != NULL && i4 > 0 && i6 > 0) {
                VSB_printf(tl->sb,
                    "Mask (/%u) specified, but string resolves to"
                    " both IPv4 and IPv6 addresses.\n", ae->mask);
                vcc_ErrWhere(tl, ae->t_mask);
                freeaddrinfo(res0);
                return;
        }

        for (res = res0; res != NULL; res = res->ai_next) {
                switch (res->ai_family) {
                case PF_INET:
                        assert(PF_INET < 256);
                        sin4 = (void*)res->ai_addr;
                        assert(sizeof(sin4->sin_addr) == 4);
                        u = (void*)&sin4->sin_addr;
                        if (ae->t_mask == NULL)
                                ae->mask = 32;
                        vcc_acl_add_entry(tl, ae, 4, u, res->ai_family);
                        break;
                case PF_INET6:
                        assert(PF_INET6 < 256);
                        sin6 = (void*)res->ai_addr;
                        assert(sizeof(sin6->sin6_addr) == 16);
                        u = (void*)&sin6->sin6_addr;
                        if (ae->t_mask == NULL)
                                ae->mask = 128;
                        vcc_acl_add_entry(tl, ae, 16, u, res->ai_family);
                        break;
                default:
                        continue;
                }
                if (tl->err)
                        freeaddrinfo(res0);
                ERRCHK(tl);
        }
        freeaddrinfo(res0);

}

/*--------------------------------------------------------------------
 * Ancient stupidity on the part of X/Open and other standards orgs
 * dictate that "192.168" be translated to 192.0.0.168.  Ever since
 * CIDR happened, "192.168/16" notation has been used, but apparently
 * no API supports parsing this, so roll our own.
 */

static int
vcc_acl_try_netnotation(struct vcc *tl, struct acl_e *ae)
{
        unsigned char b[4];
        int i, j, k;
        unsigned u;
        const char *p;

        CHECK_OBJ_NOTNULL(ae, VCC_ACL_E_MAGIC);
        memset(b, 0, sizeof b);
        p = ae->addr;
        for (i = 0; i < 4; i++) {
                j = sscanf(p, "%u%n", &u, &k);
                if (j != 1)
                        return (0);
                if (u & ~0xff)
                        return (0);
                b[i] = (unsigned char)u;
                if (p[k] == '\0')
                        break;
                if (p[k] != '.')
                        return (0);
                p += k + 1;
        }
        if (ae->t_mask == NULL)
                ae->mask = 8 + 8 * i;
        vcc_acl_add_entry(tl, ae, 4, b, AF_INET);
        return (1);
}

static void
vcc_acl_entry(struct vcc *tl)
{
        struct acl_e ae[1];
        char *sl, *e;

        INIT_OBJ(ae, VCC_ACL_E_MAGIC);

        if (tl->t->tok == '!') {
                ae->not = 1;
                vcc_NextToken(tl);
        }

        if (tl->t->tok == '(') {
                ae->para = 1;
                vcc_NextToken(tl);
        }

        if (!ae->not && tl->t->tok == '!') {
                ae->not = 1;
                vcc_NextToken(tl);
        }

        ExpectErr(tl, CSTR);
        ae->t_addr = tl->t;
        ae->addr = ae->t_addr->dec;
        vcc_NextToken(tl);

        if (strchr(ae->t_addr->dec, '/') != NULL) {
                sl = strchr(ae->addr, '/');
                AN(sl);
                *sl++ = '\0';
                e = NULL;
                ae->mask = strtoul(sl, &e, 10);
                if (*e != '\0') {
                        VSB_cat(tl->sb, ".../mask is not numeric.\n");
                        vcc_ErrWhere(tl, ae->t_addr);
                        return;
                }
                ae->t_mask = ae->t_addr;
                if (tl->t->tok == '/') {
                        VSB_cat(tl->sb, "/mask only allowed once.\n");
                        vcc_ErrWhere(tl, tl->t);
                        return;
                }
        } else if (tl->t->tok == '/') {
                vcc_NextToken(tl);
                ae->t_mask = tl->t;
                ExpectErr(tl, CNUM);
                ae->mask = vcc_UintVal(tl);
        }

        if (ae->para)
                SkipToken(tl, ')');

        if (!vcc_acl_try_netnotation(tl, ae)) {
                ERRCHK(tl);
                vcc_acl_try_getaddrinfo(tl, ae);
        }
        ERRCHK(tl);
}

/*********************************************************************
 * Emit the tokens making up an entry as C-strings
 */

static void
vcc_acl_emit_tokens(const struct vcc *tl, const struct acl_e *ae)
{
        struct token *t;
        const char *sep = "";

        CHECK_OBJ_NOTNULL(ae, VCC_ACL_E_MAGIC);
        t = ae->t_addr;
        do {
                if (t->tok == CSTR) {
                        Fh(tl, 0, "%s\"\\\"\" ", sep);
                        EncToken(tl->fh, t);
                        Fh(tl, 0, " \"\\\"\"");
                } else if (t == ae->t_mask) {
                        Fh(tl, 0, " \"%u\"", ae->mask - 8);
                } else {
                        Fh(tl, 0, "%s\"%.*s\"", sep, PF(t));
                }
                if (t == ae->t_mask)
                        break;
                t = vcc_PeekTokenFrom(tl, t);
                AN(t);
                sep = " ";
        } while (ae->t_mask != NULL);
        if (ae->fixed)
                Fh(tl, 0, "\" fixed: %s\"", ae->fixed);
}

/*********************************************************************
 * Emit ACL on table format
 */

static unsigned
vcc_acl_emit_tables(const struct vcc *tl, unsigned n, const char *name)
{
        struct acl_e *ae;
        unsigned rv = sizeof(ae->data) + 3;
        unsigned nn = 0;
        size_t sz;

        Fh(tl, 0, "\nstatic unsigned char acl_tbl_%s[%u*%u] = {\n",
            name, n, rv);
        VRBT_FOREACH(ae, acl_tree, &tl->acl->acl_tree) {
                if (ae->overlapped)
                        continue;
                Fh(tl, 0, "\t0x%02x,", ae->not ? 0 : 1);
                Fh(tl, 0, "0x%02x,", (ae->mask >> 3) - 1);
                Fh(tl, 0, "0x%02x,", (0xff00 >> (ae->mask & 7)) & 0xff);
                for (sz = 0; sz < sizeof(ae->data); sz++)
                        Fh(tl, 0, "0x%02x,", ae->data[sz]);
                for (; sz < rv - 3; sz++)
                        Fh(tl, 0, "0,");
                Fh(tl, 0, "\n");
                nn++;
        }
        assert(n == nn);
        Fh(tl, 0, "};\n");
        if (tl->acl->flag_log) {
                Fh(tl, 0, "\nstatic const char *acl_str_%s[%d] = {\n",
                    name, n);
                VRBT_FOREACH(ae, acl_tree, &tl->acl->acl_tree) {
                        if (ae->overlapped)
                                continue;
                        Fh(tl, 0, "\t");
                        Fh(tl, 0, "\"%sMATCH %s \" ",
                            ae->not ? "NEG_" : "", name);
                        vcc_acl_emit_tokens(tl, ae);
                        Fh(tl, 0, ",\n");
                }
                Fh(tl, 0, "};\n");
        }
        return (rv);
}

/*********************************************************************
 * Emit a function to match the ACL we have collected
 */

static void
vcc_acl_emit(struct vcc *tl, const struct symbol *sym)
{
        struct acl_e *ae, *ae2;
        int depth, l, m, i;
        unsigned at[ACL_MAXADDR];
        struct inifin *ifp = NULL;
        struct vsb *func;
        unsigned n, no, nw = 0;

        func = VSB_new_auto();
        AN(func);
        VSB_cat(func, "match_acl_");
        VCC_PrintCName(func, sym->name, NULL);
        AZ(VSB_finish(func));

        depth = -1;
        at[0] = 256;
        ae2 = NULL;
        n = no = 0;
        VRBT_FOREACH_REVERSE(ae, acl_tree, &tl->acl->acl_tree) {
                n++;
                if (ae2 == NULL) {
                        ae2 = ae;
                } else if (vcl_acl_disjoint(ae, ae2)) {
                        ae2 = ae;
                } else {
                        no++;
                        ae->overlapped = 1;
                }
        }

        Fh(tl, 0, "/* acl_n_%s n %u no %u */\n", sym->name, n, no);
        if (n - no < (1<<1))
                no = n;
        else if (!tl->acl->flag_table)
                no = n;

        if (no < n)
                nw = vcc_acl_emit_tables(tl, n - no, sym->rname);


        Fh(tl, 0, "\nstatic int v_matchproto_(acl_match_f)\n");
        Fh(tl, 0, "%s(VRT_CTX, const VCL_IP p)\n", VSB_data(func));
        Fh(tl, 0, "{\n");
        Fh(tl, 0, "\tconst unsigned char *a;\n");
        Fh(tl, 0, "\tint fam;\n");
        Fh(tl, 0, "\n");
        Fh(tl, 0, "\tfam = VRT_VSA_GetPtr(ctx, p, &a);\n");
        Fh(tl, 0, "\tif (fam < 0) {\n");
        Fh(tl, 0, "\t\tVRT_fail(ctx,");
        Fh(tl, 0, " \"ACL %s: no protocol family\");\n", sym->name);
        Fh(tl, 0, "\t\treturn(0);\n");
        Fh(tl, 0, "\t}\n\n");
        if (!tl->err_unref) {
                ifp = New_IniFin(tl);
                VSB_printf(ifp->ini,
                        "\t(void)%s;\n", VSB_data(func));
        }

        VRBT_FOREACH(ae, acl_tree, &tl->acl->acl_tree) {

                if (no < n && !ae->overlapped)
                        continue;

                /* Find how much common prefix we have */
                for (l = 0; l <= depth && l * 8 < (int)ae->mask - 7; l++) {
                        assert(l >= 0);
                        if (ae->data[l] != at[l])
                                break;
                }

                /* Back down, if necessary */
                while (l <= depth) {
                        Fh(tl, 0, "\t%*s}\n", -depth, "");
                        depth--;
                }

                m = (int)ae->mask;
                assert(m >= l*8);
                m -= l * 8;

                /* Do whole byte compares */
                for (i = l; m >= 8; m -= 8, i++) {
                        if (i == 0)
                                Fh(tl, 0, "\t%*s%sif (fam == %d) {\n",
                                    -i, "", "", ae->data[i]);
                        else
                                Fh(tl, 0, "\t%*s%sif (a[%d] == %d) {\n",
                                    -i, "", "", i - 1, ae->data[i]);
                        at[i] = ae->data[i];
                        depth = i;
                }

                if (m > 0) {
                        // XXX can remove masking due to fixup
                        /* Do fractional byte compares */
                        Fh(tl, 0, "\t%*s%sif ((a[%d] & 0x%x) == %d) {\n",
                            -i, "", "", i - 1, (0xff00 >> m) & 0xff,
                            ae->data[i] & ((0xff00 >> m) & 0xff));
                        at[i] = 256;
                        depth = i;
                }

                i = ((int)ae->mask + 7) / 8;

                if (tl->acl->flag_log) {
                        Fh(tl, 0, "\t%*sVPI_acl_log(ctx, \"%sMATCH %s \" ",
                            -i, "", ae->not ? "NEG_" : "", sym->name);
                        vcc_acl_emit_tokens(tl, ae);
                        Fh(tl, 0, ");\n");
                }

                Fh(tl, 0, "\t%*sreturn (%d);\n", -i, "", ae->not ? 0 : 1);
        }

        /* Unwind */
        for (; 0 <= depth; depth--)
                Fh(tl, 0, "\t%*.*s}\n", depth, depth, "");

        if (no < n) {
                Fh(tl, 0, "\treturn(\n\t    VPI_acl_table(ctx,\n");
                Fh(tl, 0, "\t\tp,\n");
                Fh(tl, 0, "\t\t%u, %u,\n", n - no, nw);
                Fh(tl, 0, "\t\tacl_tbl_%s,\n", sym->rname);
                if (tl->acl->flag_log)
                        Fh(tl, 0, "\t\tacl_str_%s,\n", sym->rname);
                else
                        Fh(tl, 0, "\t\tNULL,\n");
                Fh(tl, 0, "\t\t\"NO MATCH %s\"\n\t    )\n\t);\n", sym->name);
        } else {
                /* Deny by default */
                if (tl->acl->flag_log)
                        Fh(tl, 0, "\tVPI_acl_log(ctx, \"NO_MATCH %s\");\n",
                            sym->name);
                Fh(tl, 0, "\treturn(0);\n");
        }
        Fh(tl, 0, "}\n");

        /* Emit the struct that will be referenced */
        Fh(tl, 0, "\nstatic const struct vrt_acl %s[] = {{\n", sym->rname);
        Fh(tl, 0, "\t.magic = VRT_ACL_MAGIC,\n");
        Fh(tl, 0, "\t.match = &%s,\n", VSB_data(func));
        Fh(tl, 0, "\t.name = \"%s\",\n", sym->name);
        Fh(tl, 0, "}};\n\n");
        if (!tl->err_unref) {
                AN(ifp);
                VSB_printf(ifp->ini, "\t(void)%s;", sym->rname);
        }
        VSB_destroy(&func);
}

static void
vcc_parseAclFold(struct vcc *tl, int sign)
{
        struct acl *acl;

        CHECK_OBJ_NOTNULL(tl, VCC_MAGIC);
        assert(vcc_IdIs(tl->t, "fold"));
        acl = tl->acl;
        CHECK_OBJ_NOTNULL(acl, VCC_ACL_MAGIC);

        acl->flag_fold = sign;
        acl->flag_fold_report = 1;
        vcc_NextToken(tl);
        if (tl->t->tok != '(')
                return;

        if (! acl->flag_fold) {
                VSB_cat(tl->sb, "-fold(...) is invalid, use -fold:\n");
                vcc_ErrWhere(tl, tl->t);
                return;
        }

        SkipToken(tl, '(');

#define FOLD_SUBFLAGS_MSG "The only ACL fold sub-flag is `report`:\n"

        sign = vcc_IsFlag(tl);
        if (tl->err) {
                VSB_cat(tl->sb, FOLD_SUBFLAGS_MSG);
                return;
        }
        if (sign < 0)
                return;

        if (! vcc_IdIs(tl->t, "report")) {
                VSB_cat(tl->sb, FOLD_SUBFLAGS_MSG);
                vcc_ErrWhere(tl, tl->t);
                return;
        }

        acl->flag_fold_report = sign;

        vcc_NextToken(tl);
        SkipToken(tl, ')');
}

void
vcc_ParseAcl(struct vcc *tl)
{
        struct symbol *sym;
        int sign;
        struct acl acl[1];

        INIT_OBJ(acl, VCC_ACL_MAGIC);
        tl->acl = acl;
        acl->flag_pedantic = 1;
        acl->flag_fold = 1;
        acl->flag_fold_report = 1;
        vcc_NextToken(tl);
        VRBT_INIT(&acl->acl_tree);

        vcc_ExpectVid(tl, "ACL");
        ERRCHK(tl);
        sym = VCC_HandleSymbol(tl, ACL);
        ERRCHK(tl);
        AN(sym);

#define FLAGS_MSG "Valid ACL flags are `log`, `fold`, `pedantic` and `table`:\n"

        while (1) {
                sign = vcc_IsFlag(tl);
                if (tl->err) {
                        VSB_cat(tl->sb, FLAGS_MSG);
                        return;
                }
                if (sign < 0)
                        break;
                if (vcc_IdIs(tl->t, "log")) {
                        acl->flag_log = sign;
                        vcc_NextToken(tl);
                } else if (vcc_IdIs(tl->t, "fold")) {
                        vcc_parseAclFold(tl, sign);
                        if (tl->err)
                                return;
                } else if (vcc_IdIs(tl->t, "pedantic")) {
                        acl->flag_pedantic = sign;
                        vcc_NextToken(tl);
                } else if (vcc_IdIs(tl->t, "table")) {
                        acl->flag_table = sign;
                        vcc_NextToken(tl);
                } else {
                        VSB_cat(tl->sb, "Unknown ACL flag. " FLAGS_MSG);
                        vcc_ErrWhere(tl, tl->t);
                        return;
                }
        }

#undef FLAGS_MSG

        SkipToken(tl, '{');

        while (tl->t->tok != '}') {
                vcc_acl_entry(tl);
                ERRCHK(tl);
                SkipToken(tl, ';');
        }
        SkipToken(tl, '}');

        vcc_acl_emit(tl, sym);
}

		vinyl-cache/lib/libvcc/vcc_acl.c
0		/*-
1		* Copyright (c) 2006 Verdens Gang AS
2		* Copyright (c) 2006-2010 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 <sys/socket.h>
34
35		#include <netinet/in.h>
36
37		#include <netdb.h>
38		#include <stdlib.h>
39		#include <string.h>
40
41		#include "vcc_compile.h"
42		#include <vtcp.h>
43		#include <vtree.h>
44		#include <vsa.h>
45
46		#define ACL_MAXADDR (sizeof(struct in6_addr) + 1)
47
48		VRBT_HEAD(acl_tree, acl_e);
49
50		struct acl {
51		unsigned magic;
52		#define VCC_ACL_MAGIC 0xb9fb3cd0
53
54		int flag_log;
55		int flag_fold;
56		int flag_fold_report;
57		int flag_pedantic;
58		int flag_table;
59
60		struct acl_tree acl_tree;
61		};
62
63		struct acl_e {
64		unsigned magic;
65		#define VCC_ACL_E_MAGIC 0xcac81e23
66		VRBT_ENTRY(acl_e) branch;
67		unsigned char data[ACL_MAXADDR];
68		unsigned mask;
69		unsigned not;
70		unsigned para;
71		unsigned overlapped;
72		char *addr;
73		const char *fixed;
74		struct token *t_addr;
75		struct token *t_mask;
76		};
77
78		enum acl_cmp_e {
79		ACL_EQ = 0,
80		ACL_LT = -1, // a < b
81		ACL_GT = 1, // b > a
82		ACL_CONTAINED = -2, // b contains a
83		ACL_CONTAINS = 2, // a contains b
84		ACL_LEFT = -3, // a + 1 == b
85		ACL_RIGHT = 3 // a == b + 1
86		};
87
88		static void vcc_acl_insert_entry(struct vcc , struct acl_e *);
89
90		/*
91		* Compare two acl rules for relation
92		*/
93
94		#define CMP(n, a, b) \
95		do { \
96		if ((a) < (b)) \
97		return (enum acl_cmp_e)(-n); \
98		else if ((b) < (a)) \
99		return (n); \
100		} while (0)
101
102		#define CMPA(a, b) \
103		do { \
104		if (((a) \| 1) == (b)) \
105		return (ACL_LEFT); \
106		else if (((b) \| 1) == (a)) \
107		return (ACL_RIGHT); \
108		} while (0)
109
110		static void
111	42	vcl_acl_free(struct acl_e **aep)
112		{
113		struct acl_e *a;
114
115	42	TAKE_OBJ_NOTNULL(a, aep, VCC_ACL_E_MAGIC);
116	42	free(a->addr);
117	42	FREE_OBJ(a);
118	42	}
119
120		static enum acl_cmp_e
121	11697	vcl_acl_cmp(const struct acl_e ae1, const struct acl_e ae2)
122		{
123		const unsigned char p1, p2;
124		unsigned m;
125		unsigned char a1, a2;
126
127	11697	CHECK_OBJ_NOTNULL(ae1, VCC_ACL_E_MAGIC);
128	11697	CHECK_OBJ_NOTNULL(ae2, VCC_ACL_E_MAGIC);
129
130	11697	p1 = ae1->data;
131	11697	p2 = ae2->data;
132	11697	m = vmin_t(unsigned, ae1->mask, ae2->mask);
133	60522	for (; m >= 8; m -= 8) {
134	55377	if (m == 8 && ae1->mask == ae2->mask)
135	1197	CMPA(p1, p2);
136	103761	CMP(ACL_GT, p1, p2);
137	48825	p1++;
138	48825	p2++;
139	48825	}
140	5145	if (m) {
141	5019	assert (m < 8);
142	5019	a1 = *p1 >> (8 - m);
143	5019	a2 = *p2 >> (8 - m);
144	5019	if (ae1->mask == ae2->mask)
145	1533	CMPA(a1, a2);
146	6783	CMP(ACL_GT, a1, a2);
147	2289	} else if (ae1->mask == ae2->mask) {
148	42	CMPA(p1, p2);
149	21	}
150		/* Long mask is less than short mask */
151	2331	CMP(ACL_CONTAINS, ae2->mask, ae1->mask);
152
153	42	return (ACL_EQ);
154	11697	}
155
156		static int
157	2352	vcl_acl_disjoint(const struct acl_e ae1, const struct acl_e ae2)
158		{
159		const unsigned char p1, p2;
160		unsigned m;
161
162	2352	CHECK_OBJ_NOTNULL(ae1, VCC_ACL_E_MAGIC);
163	2352	CHECK_OBJ_NOTNULL(ae2, VCC_ACL_E_MAGIC);
164
165	2352	p1 = ae1->data;
166	2352	p2 = ae2->data;
167	2352	m = vmin_t(unsigned, ae1->mask, ae2->mask);
168	16947	for (; m >= 8; m -= 8) {
169	29862	CMP(ACL_GT, p1, p2);
170	14595	p1++;
171	14595	p2++;
172	14595	}
173	1680	if (m) {
174	1512	m = 0xff00 >> m;
175	1512	m &= 0xff;
176	2814	CMP(ACL_GT, p1 & m, p2 & m);
177	1302	}
178	1470	return (0);
179	2352	}
180
181	7875	VRBT_GENERATE_INSERT_COLOR(acl_tree, acl_e, branch, static)
182	4158	VRBT_GENERATE_INSERT_FINISH(acl_tree, acl_e, branch, static)
183	13566	VRBT_GENERATE_INSERT(acl_tree, acl_e, branch, vcl_acl_cmp, static)
184	987	VRBT_GENERATE_REMOVE_COLOR(acl_tree, acl_e, branch, static)
185	1827	VRBT_GENERATE_REMOVE(acl_tree, acl_e, branch, static)
186	4347	VRBT_GENERATE_MINMAX(acl_tree, acl_e, branch, static)
187	13230	VRBT_GENERATE_NEXT(acl_tree, acl_e, branch, static)
188	10332	VRBT_GENERATE_PREV(acl_tree, acl_e, branch, static)
189
190		static char *
191	3927	vcc_acl_chk(struct vcc tl, const struct acl_e ae, const int l,
192		unsigned char *p, int fam)
193		{
194		const unsigned char *u;
195		char h[VTCP_ADDRBUFSIZE];
196		char t[VTCP_ADDRBUFSIZE + 10];
197	3927	char s[vsa_suckaddr_len];
198	3927	char *r = NULL;
199		const struct suckaddr *sa;
200		unsigned m;
201	3927	int ll, ret = 0;
202
203	3927	u = p;
204	3927	ll = l;
205	3927	m = ae->mask;
206
207	3927	p += m / 8;
208	3927	ll -= m / 8;
209	3927	assert (ll >= 0);
210	3927	m %= 8;
211
212	3927	if (m && ((unsigned)*p << m & 0xff) != 0) {
213	84	ret = 1;
214	84	m = 0xff00 >> m;
215	84	*p &= m;
216	84	}
217	3927	if (m) {
218	2100	p++;
219	2100	ll--;
220	2100	}
221
222	7308	for ( ; ll > 0; p++, ll--) {
223	3381	if (*p == 0)
224	3276	continue;
225	105	ret = 1;
226	105	*p = 0;
227	105	}
228	3927	if (ret == 0)
229	3738	return (NULL);
230
231	189	sa = VSA_BuildFAP(s, fam, u, l, NULL, 0);
232	189	AN(sa);
233	189	VTCP_name(sa, h, sizeof h, NULL, 0);
234	189	bprintf(t, "%s/%d", h, ae->mask);
235	189	if (tl->acl->flag_pedantic != 0) {
236	42	VSB_cat(tl->sb, "Non-zero bits in masked part, ");
237	42	VSB_printf(tl->sb, "(maybe use %s ?)\n", t);
238	42	vcc_ErrWhere(tl, ae->t_addr);
239	42	}
240	189	REPLACE(r, t);
241	189	return (r);
242	3927	}
243
244		static void
245	4263	vcl_acl_fold(struct vcc tl, struct acl_e l, struct acl_e *r)
246		{
247		enum acl_cmp_e cmp;
248
249	4263	AN(l);
250	4263	AN(r);
251	4263	CHECK_OBJ_NOTNULL(*l, VCC_ACL_E_MAGIC);
252	4263	CHECK_OBJ_NOTNULL(*r, VCC_ACL_E_MAGIC);
253
254	4263	if ((l)->not \|\| (r)->not)
255	2142	return;
256
257	2121	cmp = vcl_acl_cmp(l, r);
258
259	2121	assert(cmp < 0);
260	2121	if (cmp == ACL_LT)
261	1407	return;
262
263	714	do {
264	735	switch (cmp) {
265		case ACL_CONTAINED:
266	462	if (tl->acl->flag_fold_report) {
267	462	VSB_cat(tl->sb, "ACL entry:\n");
268	462	vcc_ErrWhere(tl, (*r)->t_addr);
269	462	VSB_cat(tl->sb, "supersedes / removes:\n");
270	462	vcc_ErrWhere(tl, (*l)->t_addr);
271	462	vcc_Warn(tl);
272	462	}
273	462	VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *l);
274	462	FREE_OBJ(*l);
275	462	l = VRBT_PREV(acl_tree, &tl->acl->acl_tree, r);
276	462	break;
277		case ACL_LEFT:
278	273	(*l)->mask--;
279	273	(*l)->fixed = "folded";
280	273	if (tl->acl->flag_fold_report) {
281	231	VSB_cat(tl->sb, "ACL entry:\n");
282	231	vcc_ErrWhere(tl, (*l)->t_addr);
283	231	VSB_cat(tl->sb, "left of:\n");
284	231	vcc_ErrWhere(tl, (*r)->t_addr);
285	462	VSB_printf(tl->sb, "removing the latter and "
286		"expanding mask of the former by one to "
287	231	"/%u\n", (*l)->mask - 8);
288	231	vcc_Warn(tl);
289	231	}
290	273	VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *r);
291	273	FREE_OBJ(*r);
292	273	VRBT_REMOVE(acl_tree, &tl->acl->acl_tree, *l);
293	273	vcc_acl_insert_entry(tl, l);
294	273	return;
295		default:
296	0	INCOMPL();
297	0	}
298	462	if (l == NULL \|\| r == NULL \|\| (l)->not \|\| (r)->not)
299	294	break;
300	168	cmp = vcl_acl_cmp(l, r);
301	168	} while (cmp != ACL_LT);
302	4263	}
303
304		static void
305	4200	vcc_acl_insert_entry(struct vcc tl, struct acl_e *aenp)
306		{
307		struct acl_e ae2, l, *r;
308
309	4200	CHECK_OBJ_NOTNULL(*aenp, VCC_ACL_E_MAGIC);
310	4200	ae2 = VRBT_INSERT(acl_tree, &tl->acl->acl_tree, *aenp);
311	4200	if (ae2 != NULL) {
312	42	if (ae2->not != (*aenp)->not) {
313	21	VSB_cat(tl->sb, "Conflicting ACL entries:\n");
314	21	vcc_ErrWhere(tl, ae2->t_addr);
315	21	VSB_cat(tl->sb, "vs:\n");
316	21	vcc_ErrWhere(tl, (*aenp)->t_addr);
317	21	}
318	42	return;
319		}
320
321	4158	r = *aenp;
322	4158	*aenp = NULL;
323
324	4158	if (tl->acl->flag_fold == 0)
325	441	return;
326
327	3717	l = VRBT_PREV(acl_tree, &tl->acl->acl_tree, r);
328	3717	if (l != NULL) {
329	2625	vcl_acl_fold(tl, &l, &r);
330	2625	}
331	3717	if (r == NULL)
332	210	return;
333	3507	l = r;
334	3507	r = VRBT_NEXT(acl_tree, &tl->acl->acl_tree, l);
335	3507	if (r == NULL)
336	1869	return;
337	1638	vcl_acl_fold(tl, &l, &r);
338	4200	}
339
340		static void
341	3969	vcc_acl_add_entry(struct vcc tl, const struct acl_e ae, int l,
342		unsigned char *u, int fam)
343		{
344		struct acl_e *aen;
345
346	3969	if (fam == PF_INET && ae->mask > 32) {
347	42	VSB_printf(tl->sb,
348	21	"Too wide mask (/%u) for IPv4 address\n", ae->mask);
349	21	if (ae->t_mask != NULL)
350	21	vcc_ErrWhere(tl, ae->t_mask);
351		else
352	0	vcc_ErrWhere(tl, ae->t_addr);
353	21	return;
354		}
355	3948	if (fam == PF_INET6 && ae->mask > 128) {
356	42	VSB_printf(tl->sb,
357	21	"Too wide mask (/%u) for IPv6 address\n", ae->mask);
358	21	vcc_ErrWhere(tl, ae->t_mask);
359	21	return;
360		}
361
362		/* Make a copy from the template */
363	3927	ALLOC_OBJ(aen, VCC_ACL_E_MAGIC);
364	3927	AN(aen);
365	3927	aen = ae;
366	3927	aen->addr = strdup(ae->addr);
367	3927	AN(aen->addr);
368
369	3927	aen->fixed = vcc_acl_chk(tl, ae, l, u, fam);
370
371		/* We treat family as part of address, it saves code */
372	3927	assert(fam <= 0xff);
373	3927	aen->data[0] = fam & 0xff;
374	3927	aen->mask += 8;
375
376	3927	assert(l + 1UL <= sizeof aen->data);
377	3927	vmemcpy(aen->data + 1L, u, l);
378
379	3927	vcc_acl_insert_entry(tl, &aen);
380	3927	if (aen != NULL)
381	42	vcl_acl_free(&aen);
382	3969	}
383
384		static void
385	1260	vcc_acl_try_getaddrinfo(struct vcc tl, struct acl_e ae)
386		{
387		struct addrinfo res0, res, hint;
388		struct sockaddr_in *sin4;
389		struct sockaddr_in6 *sin6;
390		unsigned char *u, i4, i6;
391		int error;
392
393	1260	CHECK_OBJ_NOTNULL(ae, VCC_ACL_E_MAGIC);
394	1260	memset(&hint, 0, sizeof hint);
395	1260	hint.ai_family = PF_UNSPEC;
396	1260	hint.ai_socktype = SOCK_STREAM;
397	1260	error = getaddrinfo(ae->addr, "0", &hint, &res0);
398	1260	if (error) {
399	84	if (ae->para) {
400	84	VSB_printf(tl->sb,
401		"Warning: %s ignored\n -- %s\n",
402	42	ae->addr, gai_strerror(error));
403	84	Fh(tl, 1, "/* Ignored ACL entry: %s%s",
404	42	ae->para ? "\"(\" " : "", ae->not ? "\"!\" " : "");
405	42	EncToken(tl->fh, ae->t_addr);
406	42	if (ae->t_mask)
407	21	Fh(tl, 0, "/%u", ae->mask);
408	42	Fh(tl, 0, "%s\n", ae->para ? " \")\"" : "");
409	84	Fh(tl, 1, " * getaddrinfo: %s */\n",
410	42	gai_strerror(error));
411	42	} else {
412	84	VSB_printf(tl->sb,
413		"DNS lookup(%s): %s\n",
414	42	ae->addr, gai_strerror(error));
415	42	vcc_ErrWhere(tl, ae->t_addr);
416		}
417	84	return;
418		}
419
420	1176	i4 = i6 = 0;
421	2436	for (res = res0; res != NULL; res = res->ai_next) {
422	1260	switch (res->ai_family) {
423		case PF_INET:
424	84	i4++;
425	84	break;
426		case PF_INET6:
427	1176	i6++;
428	1176	break;
429		default:
430	0	VSB_printf(tl->sb,
431		"Ignoring unknown protocol family (%d) for %.*s\n",
432	0	res->ai_family, PF(ae->t_addr));
433	0	continue;
434		}
435	1260	}
436
437	1176	if (ae->t_mask != NULL && i4 > 0 && i6 > 0) {
438	0	VSB_printf(tl->sb,
439		"Mask (/%u) specified, but string resolves to"
440	0	" both IPv4 and IPv6 addresses.\n", ae->mask);
441	0	vcc_ErrWhere(tl, ae->t_mask);
442	0	freeaddrinfo(res0);
443	0	return;
444		}
445
446	2394	for (res = res0; res != NULL; res = res->ai_next) {
447	1260	switch (res->ai_family) {
448		case PF_INET:
449	84	assert(PF_INET < 256);
450	84	sin4 = (void*)res->ai_addr;
451	84	assert(sizeof(sin4->sin_addr) == 4);
452	84	u = (void*)&sin4->sin_addr;
453	84	if (ae->t_mask == NULL)
454	84	ae->mask = 32;
455	84	vcc_acl_add_entry(tl, ae, 4, u, res->ai_family);
456	84	break;
457		case PF_INET6:
458	1176	assert(PF_INET6 < 256);
459	1176	sin6 = (void*)res->ai_addr;
460	1176	assert(sizeof(sin6->sin6_addr) == 16);
461	1176	u = (void*)&sin6->sin6_addr;
462	1176	if (ae->t_mask == NULL)
463	231	ae->mask = 128;
464	1176	vcc_acl_add_entry(tl, ae, 16, u, res->ai_family);
465	1176	break;
466		default:
467	0	continue;
468		}
469	1260	if (tl->err)
470	42	freeaddrinfo(res0);
471	1260	ERRCHK(tl);
472	1218	}
473	1134	freeaddrinfo(res0);
474
475	1260	}
476
477		/*--------------------------------------------------------------------
478		* Ancient stupidity on the part of X/Open and other standards orgs
479		* dictate that "192.168" be translated to 192.0.0.168. Ever since
480		* CIDR happened, "192.168/16" notation has been used, but apparently
481		* no API supports parsing this, so roll our own.
482		*/
483
484		static int
485	3969	vcc_acl_try_netnotation(struct vcc tl, struct acl_e ae)
486		{
487		unsigned char b[4];
488		int i, j, k;
489		unsigned u;
490		const char *p;
491
492	3969	CHECK_OBJ_NOTNULL(ae, VCC_ACL_E_MAGIC);
493	3969	memset(b, 0, sizeof b);
494	3969	p = ae->addr;
495	11613	for (i = 0; i < 4; i++) {
496	11613	j = sscanf(p, "%u%n", &u, &k);
497	11613	if (j != 1)
498	1155	return (0);
499	10458	if (u & ~0xff)