/*-
 * SPDX-License-Identifier: BSD-3-Clause
 *
 * Copyright (c) 1980, 1992, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * 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.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 THE REGENTS 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.
 */



/*
 * Common network command support routines.
 */
#include <sys/param.h>
#include <sys/queue.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/protosw.h>

#include <net/route.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>
#include <netinet/in_pcb.h>
#include <arpa/inet.h>

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

#include "systat.h"
#include "extern.h"

#define streq(a,b)      (strcmp(a,b)==0)

static  struct hitem {
        struct  in_addr addr;
        int     onoff;
} *hosts;

int nports, nhosts, protos;

static void changeitems(const char *, int);
static int selectproto(const char *);
static void showprotos(void);
static int selectport(long, int);
static void showports(void);
static int selecthost(struct in_addr *, int);
static void showhosts(void);

int
netcmd(const char *cmd, const char *args)
{

        if (prefix(cmd, "proto")) {
                if (*args == '\0') {
                        move(CMDLINE, 0);
                        clrtoeol();
                        addstr("which proto?");
                } else if (!selectproto(args)) {
                        error("%s: Unknown protocol.", args);
                }
                return (1);
        }
        if (prefix(cmd, "ignore") || prefix(cmd, "display")) {
                changeitems(args, prefix(cmd, "display"));
                return (1);
        }
        if (prefix(cmd, "reset")) {
                selectproto(0);
                selecthost(0, 0);
                selectport(-1, 0);
                return (1);
        }
        if (prefix(cmd, "show")) {
                move(CMDLINE, 0); clrtoeol();
                if (*args == '\0') {
                        showprotos();
                        showhosts();
                        showports();
                        return (1);
                }
                if (prefix(args, "protos"))
                        showprotos();
                else if (prefix(args, "hosts"))
                        showhosts();
                else if (prefix(args, "ports"))
                        showports();
                else
                        addstr("show what?");
                return (1);
        }
        return (0);
}

static void
changeitems(const char *args, int onoff)
{
        char *cp, *tmpstr, *tmpstr1;
        struct servent *sp;
        struct hostent *hp;
        struct in_addr in;

        tmpstr = tmpstr1 = strdup(args);
        cp = strchr(tmpstr1, '\n');
        if (cp)
                *cp = '\0';
        for (;;tmpstr1 = cp) {
                for (cp = tmpstr1; *cp && isspace(*cp); cp++)
                        ;
                tmpstr1 = cp;
                for (; *cp && !isspace(*cp); cp++)
                        ;
                if (*cp)
                        *cp++ = '\0';
                if (cp - tmpstr1 == 0)
                        break;
                sp = getservbyname(tmpstr1,
                    protos == TCP ? "tcp" : protos == UDP ? "udp" : 0);
                if (sp) {
                        selectport(sp->s_port, onoff);
                        continue;
                }
                hp = gethostbyname(tmpstr1);
                if (hp == NULL) {
                        in.s_addr = inet_addr(tmpstr1);
                        if (in.s_addr == INADDR_NONE) {
                                error("%s: unknown host or port", tmpstr1);
                                continue;
                        }
                } else
                        in = *(struct in_addr *)hp->h_addr;
                selecthost(&in, onoff);
        }
        free(tmpstr);
}

static int
selectproto(const char *proto)
{

        if (proto == NULL || streq(proto, "all"))
                protos = TCP | UDP;
        else if (streq(proto, "tcp"))
                protos = TCP;
        else if (streq(proto, "udp"))
                protos = UDP;
        else
                return (0);

        return (protos);
}

static void
showprotos(void)
{

        if ((protos&TCP) == 0)
                addch('!');
        addstr("tcp ");
        if ((protos&UDP) == 0)
                addch('!');
        addstr("udp ");
}

static  struct pitem {
        long    port;
        int     onoff;
} *ports;

static int
selectport(long port, int onoff)
{
        struct pitem *p;

        if (port == -1) {
                if (ports == NULL)
                        return (0);
                free((char *)ports), ports = 0;
                nports = 0;
                return (1);
        }
        for (p = ports; p < ports + nports; p++)
                if (p->port == port) {
                        p->onoff = onoff;
                        return (0);
                }
        if (nports == 0)
                ports = (struct pitem *)malloc(sizeof (*p));
        else
                ports = (struct pitem *)realloc(ports, (nports+1)*sizeof (*p));
        p = &ports[nports++];
        p->port = port;
        p->onoff = onoff;
        return (1);
}

int
checkport(struct in_conninfo *inc)
{
        struct pitem *p;

        if (ports)
        for (p = ports; p < ports+nports; p++)
                if (p->port == inc->inc_lport || p->port == inc->inc_fport)
                        return (p->onoff);
        return (1);
}

static void
showports(void)
{
        struct pitem *p;
        struct servent *sp;

        for (p = ports; p < ports+nports; p++) {
                sp = getservbyport(p->port,
                    protos == (TCP|UDP) ? 0 : protos == TCP ? "tcp" : "udp");
                if (!p->onoff)
                        addch('!');
                if (sp)
                        printw("%s ", sp->s_name);
                else
                        printw("%ld ", p->port);
        }
}

static int
selecthost(struct in_addr *in, int onoff)
{
        struct hitem *p;

        if (in == NULL) {
                if (hosts == NULL)
                        return (0);
                free((char *)hosts), hosts = 0;
                nhosts = 0;
                return (1);
        }
        for (p = hosts; p < hosts+nhosts; p++)
                if (p->addr.s_addr == in->s_addr) {
                        p->onoff = onoff;
                        return (0);
                }
        if (nhosts == 0)
                hosts = (struct hitem *)malloc(sizeof (*p));
        else
                hosts = (struct hitem *)realloc(hosts, (nhosts+1)*sizeof (*p));
        p = &hosts[nhosts++];
        p->addr = *in;
        p->onoff = onoff;
        return (1);
}

int
checkhost(struct in_conninfo *inc)
{
        struct hitem *p;

        if (hosts)
        for (p = hosts; p < hosts+nhosts; p++)
                if (p->addr.s_addr == inc->inc_laddr.s_addr ||
                    p->addr.s_addr == inc->inc_faddr.s_addr)
                        return (p->onoff);
        return (1);
}

static void
showhosts(void)
{
        struct hitem *p;
        struct hostent *hp;

        for (p = hosts; p < hosts+nhosts; p++) {
                hp = gethostbyaddr((char *)&p->addr, sizeof (p->addr), AF_INET);
                if (!p->onoff)
                        addch('!');
                printw("%s ", hp ? hp->h_name : (char *)inet_ntoa(p->addr));
        }
}