#include <sys_defs.h>
#include <sys/param.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#ifndef IN_CLASSD_NET
#define IN_CLASSD_NET 0xf0000000
#define IN_CLASSD_NSHIFT 28
#endif
#include <msg.h>
#include <vstring.h>
#include <inet_addr_list.h>
#include <name_mask.h>
#include <myaddrinfo.h>
#include <mask_addr.h>
#include <argv.h>
#include <own_inet_addr.h>
#include <mail_params.h>
#include <mynetworks.h>
#include <sock_addr.h>
#include <been_here.h>
#define MASK_STYLE_CLASS (1 << 0)
#define MASK_STYLE_SUBNET (1 << 1)
#define MASK_STYLE_HOST (1 << 2)
static NAME_MASK mask_styles[] = {
MYNETWORKS_STYLE_CLASS, MASK_STYLE_CLASS,
MYNETWORKS_STYLE_SUBNET, MASK_STYLE_SUBNET,
MYNETWORKS_STYLE_HOST, MASK_STYLE_HOST,
0,
};
const char *mynetworks(void)
{
static VSTRING *result;
if (result == 0) {
const char *myname = "mynetworks";
INET_ADDR_LIST *my_addr_list;
INET_ADDR_LIST *my_mask_list;
unsigned shift;
unsigned junk;
int i;
unsigned mask_style;
struct sockaddr_storage *sa;
struct sockaddr_storage *ma;
int net_mask_count = 0;
ARGV *argv;
BH_TABLE *dup_filter;
char **cpp;
mask_style = name_mask("mynetworks mask style", mask_styles,
var_mynetworks_style);
for (i = 0, junk = mask_style; junk != 0; junk >>= 1U)
i += (junk & 1);
if (i != 1)
msg_fatal("bad %s value: %s; specify exactly one value",
VAR_MYNETWORKS_STYLE, var_mynetworks_style);
result = vstring_alloc(20);
my_addr_list = own_inet_addr_list();
my_mask_list = own_inet_mask_list();
for (sa = my_addr_list->addrs, ma = my_mask_list->addrs;
sa < my_addr_list->addrs + my_addr_list->used;
sa++, ma++) {
unsigned long addr;
unsigned long mask;
struct in_addr net;
if (SOCK_ADDR_FAMILY(sa) == AF_INET) {
addr = ntohl(SOCK_ADDR_IN_ADDR(sa).s_addr);
mask = ntohl(SOCK_ADDR_IN_ADDR(ma).s_addr);
switch (mask_style) {
case MASK_STYLE_CLASS:
if (IN_CLASSA(addr)) {
mask = IN_CLASSA_NET;
shift = IN_CLASSA_NSHIFT;
} else if (IN_CLASSB(addr)) {
mask = IN_CLASSB_NET;
shift = IN_CLASSB_NSHIFT;
} else if (IN_CLASSC(addr)) {
mask = IN_CLASSC_NET;
shift = IN_CLASSC_NSHIFT;
} else if (IN_CLASSD(addr)) {
mask = IN_CLASSD_NET;
shift = IN_CLASSD_NSHIFT;
} else {
msg_fatal("%s: unknown address class: %s",
myname, inet_ntoa(SOCK_ADDR_IN_ADDR(sa)));
}
break;
case MASK_STYLE_SUBNET:
for (junk = mask, shift = MAI_V4ADDR_BITS; junk != 0;
shift--, junk <<= 1)
;
break;
case MASK_STYLE_HOST:
mask = ~0;
shift = 0;
break;
default:
msg_panic("unknown mynetworks mask style: %s",
var_mynetworks_style);
}
net.s_addr = htonl(addr & mask);
vstring_sprintf_append(result, "%s/%d ",
inet_ntoa(net), MAI_V4ADDR_BITS - shift);
net_mask_count++;
continue;
}
#ifdef HAS_IPV6
else if (SOCK_ADDR_FAMILY(sa) == AF_INET6) {
MAI_HOSTADDR_STR hostaddr;
unsigned char *ac;
unsigned char *end;
unsigned char ch;
struct sockaddr_in6 net6;
switch (mask_style) {
case MASK_STYLE_CLASS:
case MASK_STYLE_SUBNET:
ac = (unsigned char *) &SOCK_ADDR_IN6_ADDR(ma);
end = ac + sizeof(SOCK_ADDR_IN6_ADDR(ma));
shift = MAI_V6ADDR_BITS;
while (ac < end) {
if ((ch = *ac++) == (unsigned char) -1) {
shift -= CHAR_BIT;
continue;
} else {
while (ch != 0)
shift--, ch <<= 1;
break;
}
}
break;
case MASK_STYLE_HOST:
shift = 0;
break;
default:
msg_panic("unknown mynetworks mask style: %s",
var_mynetworks_style);
}
net6 = *SOCK_ADDR_IN6_PTR(sa);
mask_addr((unsigned char *) &net6.sin6_addr,
sizeof(net6.sin6_addr),
MAI_V6ADDR_BITS - shift);
SOCKADDR_TO_HOSTADDR(SOCK_ADDR_PTR(&net6), SOCK_ADDR_LEN(&net6),
&hostaddr, (MAI_SERVPORT_STR *) 0, 0);
vstring_sprintf_append(result, "[%s]/%d ",
hostaddr.buf, MAI_V6ADDR_BITS - shift);
net_mask_count++;
continue;
}
#endif
else {
msg_warn("%s: skipping unknown address family %d",
myname, SOCK_ADDR_FAMILY(sa));
continue;
}
}
if (net_mask_count > 1) {
argv = argv_split(vstring_str(result), " ");
VSTRING_RESET(result);
dup_filter = been_here_init(net_mask_count, BH_FLAG_NONE);
for (cpp = argv->argv; cpp < argv->argv + argv->argc; cpp++)
if (!been_here_fixed(dup_filter, *cpp))
vstring_sprintf_append(result, "%s ", *cpp);
argv_free(argv);
been_here_free(dup_filter);
}
if (msg_verbose)
msg_info("%s: %s", myname, vstring_str(result));
}
return (vstring_str(result));
}
#ifdef TEST
#include <inet_proto.h>
char *var_inet_interfaces;
char *var_mynetworks_style;
int main(int argc, char **argv)
{
INET_PROTO_INFO *proto_info;
if (argc != 4)
msg_fatal("usage: %s protocols mask_style interface_list (e.g. \"all subnet all\")",
argv[0]);
msg_verbose = 10;
proto_info = inet_proto_init(argv[0], argv[1]);
var_mynetworks_style = argv[2];
var_inet_interfaces = argv[3];
mynetworks();
return (0);
}
#endif