/*
 * (C)opyright 1992-1998 Darren Reed. (from tcplog)
 *
 * See the IPFILTER.LICENCE file for details on licencing.
 *
 */

#include <stdio.h>
#include <netdb.h>
#include <ctype.h>
#include <fcntl.h>
#include <signal.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/timeb.h>
#include <sys/socket.h>
#include <sys/file.h>
#include <sys/ioctl.h>
#include <sys/stropts.h>

#ifdef sun
# include <sys/pfmod.h>
# include <sys/bufmod.h>
#endif
# include <sys/dlpi.h>

#include <net/if.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>
#include <netinet/if_ether.h>
#include <netinet/ip_var.h>
#include <netinet/udp.h>
#include <netinet/udp_var.h>
#include <netinet/tcp.h>

#include "ipsend.h"


#define	CHUNKSIZE	8192
#define BUFSPACE	(4*CHUNKSIZE)


/*
 * Be careful to only include those defined in the flags option for the
 * interface are included in the header size.
 */
int
initdevice(char *device, int tout)
{
	char	devname[16], *s, buf[256];
	int	i, fd;

	(void) strcpy(devname, "/dev/");
	(void) strncat(devname, device, sizeof(devname) - strlen(devname));

	s = devname + 5;
	while (*s && !ISDIGIT(*s))
		s++;
	if (!*s)
	    {
		fprintf(stderr, "bad device name %s\n", devname);
		exit(-1);
	    }
	i = atoi(s);
	*s = '\0';
	/*
	 * For writing
	 */
	if ((fd = open(devname, O_RDWR)) < 0)
	    {
		fprintf(stderr, "O_RDWR(1) ");
		perror(devname);
		exit(-1);
	    }

	if (dlattachreq(fd, i) == -1)
	    {
		fprintf(stderr, "dlattachreq: DLPI error\n");
		exit(-1);
	    }
	else if (dlokack(fd, buf) == -1)
	    {
		fprintf(stderr, "dlokack(attach): DLPI error\n");
		exit(-1);
	    }
#ifdef DL_HP_RAWDLS
	if (dlpromisconreq(fd, DL_PROMISC_SAP) < 0)
	    {
		fprintf(stderr, "dlpromisconreq: DL_PROMISC_PHYS error\n");
		exit(-1);
	    }
	else if (dlokack(fd, buf) < 0)
	    {
		fprintf(stderr, "dlokack(promisc): DLPI error\n");
		exit(-1);
	    }
	/* 22 is INSAP as per the HP-UX DLPI Programmer's Guide */

	dlbindreq(fd, 22, 1, DL_HP_RAWDLS, 0, 0);
#else
	dlbindreq(fd, ETHERTYPE_IP, 0, DL_CLDLS, 0, 0);
#endif
	dlbindack(fd, buf);
	/*
	 * write full headers
	 */
#ifdef DLIOCRAW /* we require RAW DLPI mode, which is a Sun extension */
	if (strioctl(fd, DLIOCRAW, -1, 0, NULL) == -1)
	    {
		fprintf(stderr, "DLIOCRAW error\n");
		exit(-1);
	    }
#endif
	return (fd);
}


/*
 * output an IP packet onto a fd opened for /dev/nit
 */
int
sendip(int fd, char *pkt, int len)
	int	fd, len;
	char	*pkt;
{
	struct strbuf dbuf, *dp = &dbuf, *cp = NULL;
	int pri = 0;
#ifdef DL_HP_RAWDLS
	struct strbuf cbuf;
	dl_hp_rawdata_req_t raw;

	cp = &cbuf;
	raw.dl_primitive = DL_HP_RAWDATA_REQ;
	cp->len = sizeof(raw);
	cp->buf = (char *)&raw;
	cp->maxlen = cp->len;
	pri = MSG_HIPRI;
#endif
	/*
	 * construct NIT STREAMS messages, first control then data.
	 */
	dp->buf = pkt;
	dp->len = len;
	dp->maxlen = dp->len;

	if (putmsg(fd, cp, dp, pri) == -1)
	    {
		perror("putmsg");
		return (-1);
	    }
	if (ioctl(fd, I_FLUSH, FLUSHW) == -1)
	    {
		perror("I_FLUSHW");
		return (-1);
	    }
	return (len);
}