/*
 * Copyright (C) 2012 by Darren Reed.
 *
 * See the IPFILTER.LICENCE file for details on licencing.
 *
 * $Id: alist_new.c,v 1.5.2.2 2012/07/22 08:04:24 darren_r Exp $
 */

#include "ipf.h"
#include <ctype.h>

alist_t *
alist_new(int family, char *host)
{
        int a, b, c, d, bits;
        char *slash;
        alist_t *al;
        u_int mask;

        if (family == AF_UNSPEC) {
                if (strchr(host, ':') != NULL)
                        family = AF_INET6;
                else
                        family = AF_INET;
        }
        if (family != AF_INET && family != AF_INET6)
                return (NULL);

        al = calloc(1, sizeof(*al));
        if (al == NULL) {
                fprintf(stderr, "alist_new out of memory\n");
                return (NULL);
        }

        while (ISSPACE(*host))
                host++;

        if (*host == '!') {
                al->al_not = 1;
                host++;
                while (ISSPACE(*host))
                        host++;
        }

        bits = -1;
        slash = strchr(host, '/');
        if (slash != NULL) {
                *slash = '\0';
                bits = atoi(slash + 1);
        }

        if (family == AF_INET) {
                if (bits > 32)
                        goto bad;

                a = b = c = d = -1;
                sscanf(host, "%d.%d.%d.%d", &a, &b, &c, &d);

                if (bits > 0 && bits < 33) {
                        mask = 0xffffffff << (32 - bits);
                } else if (b == -1) {
                        mask = 0xff000000;
                        b = c = d = 0;
                } else if (c == -1) {
                        mask = 0xffff0000;
                        c = d = 0;
                } else if (d == -1) {
                        mask = 0xffffff00;
                        d = 0;
                } else {
                        mask = 0xffffffff;
                }
                al->al_mask = htonl(mask);
        } else {
                if (bits > 128)
                        goto bad;
                fill6bits(bits, al->al_i6mask.i6);
        }

        if (gethost(family, host, &al->al_i6addr) == -1) {
                if (slash != NULL)
                        *slash = '/';
                fprintf(stderr, "Cannot parse hostname\n");
                goto bad;
        }
        al->al_family = family;
        if (slash != NULL)
                *slash = '/';
        return (al);
bad:
        free(al);
        return (NULL);
}