blob: f28d9017ff70a47b7de6ec47f5ad9aca21c7f47b [file] [log] [blame] [raw]
/*
* Copyright (C) 1993-1998 by Darren Reed.
*
* See the IPFILTER.LICENCE file for details on licencing.
*/
/* #pragma ident "@(#)solaris.c 1.12 6/5/96 (C) 1995 Darren Reed"*/
/*typedef unsigned int spustate_t;*/
struct uio;
#include <sys/types.h>
#include <sys/cmn_err.h>
#include <sys/kernel.h>
#include <sys/systm.h>
#include <sys/malloc.h>
#include <sys/conf.h>
#include <sys/callout.h>
#include <sys/moddefs.h>
#include <sys/spinlock.h> /* HNT */
#include <sys/io.h>
#include <sys/wsio.h>
#include <sys/param.h>
#include <sys/errno.h>
#include <sys/byteorder.h>
#include <sys/socket.h>
#include <sys/stropts.h>
#include <net/if.h>
#include <net/af.h>
#include <net/route.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/if_ether.h>
#include <netinet/ip.h>
#include <netinet/ip_var.h>
#include <netinet/tcp.h>
#include <netinet/udp.h>
#include <netinet/tcpip.h>
#include <netinet/ip_icmp.h>
#include "ip_compat.h"
#include "ip_fil.h"
#include "ip_nat.h"
#include "ipl.h"
#undef untimeout
#undef IPFDEBUG
extern int ipf_running;
extern int ipf_flags;
extern int ipf_check __P(());
extern ipnat_t *nat_list;
static char *ipf_devfiles[] = { IPL_NAME, IPNAT_NAME, IPSTATE_NAME,
IPAUTH_NAME, IPSYNC_NAME, IPLOOKUP_NAME,
NULL };
static int (*ipf_ip_inp) __P((queue_t *, mblk_t *)) = NULL;
static int ipf_slowtimer __P((void));
struct callout *ipf_timer_id = NULL;
struct callout *synctimeoutid = NULL;
#ifdef IPFDEBUG
void printiri __P((irinfo_t *));
#endif /* IPFDEBUG */
static int ipf_install(void); /* Install Routine - Biswajit */
static int ipf_load(void *);
static int ipf_unload(void *);
static int ipf_write(dev_t, struct uio *);
static int ipf_attach(void);
static int ipf_detach(void);
static int ipf_qifsync(ip_t *, int, void *, int, qif_t *, mblk_t **);
/*
* Local functions for static linking - Biswajit
*/
static void ipf_linked_init(void);
static int (*ipf_saved_init)(); /* Used in ipf_install() - Biswajit */
/*
* While linking statically, PFIL needs to be installed
* before IPF is installed.
*/
int pfil_install (void);
/*
* Driver Header
*/
static drv_info_t ipf_drv_info = {
IPL_VERSION, /* type */
"pseudo", /* class */
DRV_CHAR|DRV_PSEUDO|DRV_SAVE_CONF|DRV_MP_SAFE, /* flags */
-1, /* b_major */
-1, /* c_major */
NULL, /* cdio */
NULL, /* gio_private */
NULL, /* cdio_private */
};
static drv_ops_t ipf_drv_ops = {
iplopen,
iplclose,
NULL, /* strategy */
NULL, /* dump */
NULL, /* psize */
NULL, /* mount */
iplread,
ipf_write, /* write */
ipfioctl, /* ioctl */
#ifdef IPL_SELECT
iplselect, /* select */
#else
NULL, /* select */
#endif
NULL, /* option1 */
NULL, /* reserved1 */
NULL, /* reserved2 */
NULL, /* reserved3 */
NULL, /* reserved4 */
0, /* flags */
};
static wsio_drv_data_t ipf_wsio_data = {
"pseudo_ipf", /* drv_path */
T_DEVICE, /* drv_type */
DRV_CONVERGED, /* drv_flags */
NULL, /* drv_minor_build - field not used */
NULL, /* drv_major_build - field not used */
};
extern struct mod_operations gio_mod_ops;
static drv_info_t ipf_drv_info;
extern struct mod_conf_data ipf_conf_data;
static struct mod_type_data ipf_drv_link = {
IPL_VERSION, (void *)NULL
};
static struct modlink ipf_mod_link[] = {
{ &gio_mod_ops, (void *)&ipf_drv_link },
{ NULL, (void *)NULL }
};
struct modwrapper ipf_wrapper = {
MODREV,
ipf_load,
ipf_unload,
(void (*)())NULL,
(void *)&ipf_conf_data,
ipf_mod_link
};
static wsio_drv_info_t ipf_wsio_info = {
&ipf_drv_info,
&ipf_drv_ops,
&ipf_wsio_data
};
static int ipf_load(void *arg)
{
int ipfinst;
#ifdef IPFDEBUG
printf("IP Filter: ipf_load(%lx)\n", arg);
#endif
/* Use drv_info passed to us instead of static version */
ipf_wsio_info.drv_info = (drv_info_t *)arg;
ipfinst = wsio_install_driver(&ipf_wsio_info);
if (ipfinst == 0) {
cmn_err(CE_CONT,
"IP Filter: wsio_install_driver(%lx) failed: %d\n",
&ipf_wsio_info, ipfinst);
return ENXIO;
} else {
ipfinst = ipf_attach();
#ifdef IPFDEBUG
printf("IP Filter: ipf_attach() = %d\n", ipfinst);
#endif
}
#ifdef IPFDEBUG
printf("IP Filter: ipf_load() = %d\n", ipfinst);
#endif
return ipfinst;
}
static int ipf_unload(void *arg)
{
int ipfinst;
ipfinst = wsio_uninstall_driver(&ipf_wsio_info);
if (ipfinst != 0) {
cmn_err(CE_CONT,
"IP Filter: wsio_uninstall_driver(%lx) failed: %d\n",
&ipf_wsio_info, ipfinst);
return ENXIO;
} else {
ipfinst = ipf_detach();
#ifdef IPFDEBUG
printf("IP Filter: ipf_detach() = %d\n", ipfinst);
#endif
}
#ifdef IPFDEBUG
printf("IP Filter: ipf_unload() = %d\n", ipfinst);
/* HP Port: We don't want this to come to the cosole on boot up */
cmn_err(CE_CONT, "IP Filter: Unloaded\n");
#endif
return 0;
}
/*
* INSTALL
* Following routine is called when the dlkm module is
* being linked statically with the kernel
* - Biswajit
*/
static int ipf_install(void)
{
extern int (*dev_init) (void);
int ipfinst;
/*
* Make sure PFIL module is installed before
* installing IPF
*/
if (pfilinterface != PFIL_INTERFACE) {
printf("pfilinterface(%d) != %d\n", pfilinterface,
PFIL_INTERFACE);
return EINVAL;
}
/*
* Link my init function into the chain
*/
ipf_saved_init = dev_init;
dev_init = (int (*) ()) &ipf_linked_init;
/*
* Register driver with WSIO
*/
ipfinst = wsio_install_driver(&ipf_wsio_info);
return (ipfinst);
}
/*
* Device Initialization Link
* Called only for statically linked drivers to link
* init routine into list
* - Biswajit
*/
static void ipf_linked_init (void)
{
/*
* Perform driver specific initialization
*/
(void) ipf_attach ();
/*
* Call next init function in chain
*/
(void) (*ipf_saved_init) ();
}
static int ipf_write(dev_t dev, struct uio *uio)
{
#ifdef IPFDEBUG
printf("IP Filter: ipf_write(%x,%lx)\n", dev, uio);
#endif
return 0;
}
static int ipf_attach()
{
char *defpass;
RWLOCK_INIT(&ipf_global, "ipf filter load/unload mutex");
RWLOCK_INIT(&ipf_mutex, "ipf filter rwlock");
RWLOCK_INIT(&ipf_frcache, "ipf cache rwlock");
sync();
/*
* Initialize mutex's
*/
if (ipfattach() == -1)
goto attachfailed;
/*
* Lock people out while we set things up.
*/
WRITE_ENTER(&ipf_global);
if (pfil_add_hook(ipf_check, PFIL_IN|PFIL_OUT, &pfh_inet4))
cmn_err(CE_WARN, "IP Filter: pfil_add_hook(pfh_inet4) failed");
if (pfil_add_hook(ipf_qifsync, PFIL_IN|PFIL_OUT, &pfh_sync))
cmn_err(CE_WARN, "IP Filter: pfil_add_hook(pfh_sync) failed");
/*
* Release lock
*/
RWLOCK_EXIT(&ipf_global);
if (FR_ISPASS(ipf_pass))
defpass = "pass";
else if (FR_ISBLOCK(ipf_pass))
defpass = "block";
else
defpass = "no-match -> block";
#ifdef IPFDEBUG
/* HP Port: We don't want this to come to the cosole on boot up */
cmn_err(CE_CONT, "%s initialized. Default = %s all, Logging = %s\n",
ipfilter_version, defpass,
# ifdef IPFILTER_LOG
"enabled");
# else
"disabled");
# endif
#endif
sync();
if (ipf_running == 0)
ipf_running = 1;
if (ipf_timer_id == NULL)
ipf_timer_id = mp_timeout(ipf_slowtimer, NULL, hz/2);
if (ipf_running == 1)
return 0;
attachfailed:
RW_DESTROY(&ipf_global);
RW_DESTROY(&ipf_mutex);
RW_DESTROY(&ipf_frcache);
return -1;
}
static int ipf_detach()
{
int i;
if (ipf_refcnt)
return EBUSY;
/*
* Make sure we're the only one's modifying things. With
* this lock others should just fall out of the loop.
*/
MUTEX_ENTER(&ipf_rw);
if (ipf_running <= 0) {
MUTEX_EXIT(&ipf_rw);
return -1;
}
if (ipf_timer_id) {
untimeout(ipf_slowtimer, NULL);
ipf_timer_id = 0;
}
ipf_running = -1;
MUTEX_EXIT(&ipf_rw);
/*
* Undo what we did in ipf_attach, freeing resources
* and removing things we installed. The system
* framework guarantees we are not active with this devinfo
* node in any other entry points at this time.
*/
sync();
if (pfil_remove_hook(ipf_check, PFIL_IN|PFIL_OUT, &pfh_inet4))
cmn_err(CE_WARN,
"IP Filter: pfil_remove_hook(pfh_inet4) failed");
if (pfil_remove_hook(ipf_qifsync, PFIL_IN|PFIL_OUT, &pfh_sync))
cmn_err(CE_WARN,
"IP Filter: pfil_remove_hook(pfh_sync) failed");
while (ipf_timer_id != NULL)
sched_yield();
i = ipfdetach();
if (i == 0) {
RW_DESTROY(&ipf_global);
RW_DESTROY(&ipf_mutex);
RW_DESTROY(&ipf_frcache);
}
#ifdef IPFDEBUG
printf("IP Filter: ipfdetach() = %d\n", i);
#endif
return i;
}
#if 0
/*
* OK, this is pretty scrappy code, but then it's essentially just here for
* debug purposes and that's it. Packets should not normally come through
* here, and if they do, well, we would like to see as much information as
* possible about them and what they claim to hold.
*/
void ipf_donotip(out, qif, q, m, mt, ip, off)
int out;
qif_t *qif;
queue_t *q;
mblk_t *m, *mt;
ip_t *ip;
size_t off;
{
u_char *s, outb[256], *t;
int i, j;
outb[0] = '\0';
outb[1] = '\0';
outb[2] = '\0';
outb[3] = '\0';
s = ip ? (u_char *)ip : outb;
if (!ip && (m == mt) && m->b_cont && (MTYPE(m) != M_DATA))
m = m->b_cont;
printf(" !IP %s:%d %d %p %p %p %d %p/%d %p/%d %p %d %d %p\n",
qif ? qif->qf_name : "?", out, qif->qf_hl, q,
q ? q->q_ptr : NULL, q ? q->q_qinfo : NULL,
mt->b_wptr - mt->b_rptr, m, MTYPE(m), mt, MTYPE(mt), m->b_rptr,
m->b_wptr - m->b_rptr, off, ip);
printf("%02x%02x%02x%02x\n", *s, *(s+1), *(s+2), *(s+3));
while (m != mt) {
i = 0;
j = 256;
t = outb;
s = mt->b_rptr;
sprintf((char *)t, j, "%d:", MTYPE(mt));
t += strlen((char *)t);
j -= strlen((char *)t);
for (; (j > 0) && (i < 100) && (s < mt->b_wptr); i++) {
sprintf((char *)t, j, "%02x%s", *s++,
((i & 3) == 3) ? " " : "");
t += ((i & 3) == 3) ? 3 : 2;
j -= ((i & 3) == 3) ? 3 : 2;
}
*t++ = '\n';
*t = '\0';
printf("%s", outb);
mt = mt->b_cont;
}
i = 0;
j = 256;
t = outb;
s = m->b_rptr;
sprintf((char *)t, j, "%d:", MTYPE(m));
t += strlen((char *)t);
j -= strlen((char *)t);
for (; (j > 0) && (i < 100) && (s < m->b_wptr); i++) {
sprintf((char *)t, j, "%02x%s", *s++,
((i & 3) == 3) ? " " : "");
t += ((i & 3) == 3) ? 3 : 2;
j -= ((i & 3) == 3) ? 3 : 2;
}
*t++ = '\n';
*t = '\0';
printf("%s", outb);
}
#endif
/*
* look for bad consistancies between the list of interfaces the filter knows
* about and those which are currently configured.
*/
static int ipf_qifsync(ip, hlen, il, out, qif, mp)
ip_t *ip;
int hlen;
void *il;
int out;
qif_t *qif;
mblk_t **mp;
{
register struct frentry *f;
register ipnat_t *np;
ipfsync(&ipfmain, NULL);
return 0;
}
#ifdef IPFDEBUG
void printiri(iri)
irinfo_t *iri;
{
printf("iri: ll_hdr_mp %p rfq %p stq %p\n",
iri->ir_ll_hdr_mp, iri->ir_rfq, iri->ir_stq);
printf("iri: ll_hdr_length %d ir_ill %p\n",
iri->ir_ll_hdr_length, iri->ir_ill);
}
#endif
int ipfsync()
{
char name[8];
qif_t *qif;
int i;
for (i = 0; i < 10; i++) {
sprintf(name, sizeof(name), "lan%d", i);
spinlock(&pfil_rw);
qif = qif_iflookup(name, 0);
if (qif != NULL)
ipf_qifsync(NULL, 0, qif->qf_ill, -1, qif, NULL);
spinunlock(&pfil_rw);
}
return 0;
}
static int ipf_slowtimer()
{
if (ipf_running <= 0) {
ipf_timer_id = NULL;
return;
}
READ_ENTER(&ipf_global);
ipf_frag_expire();
ipf_state_expire();
ipf_nat_expire();
ipf_auth_expire();
ipf_ticks++;
ipf_timer_id = NULL;
if (ipf_running <= 0) {
RWLOCK_EXIT(&ipf_global);
return;
}
ipf_timer_id = mp_timeout(ipf_slowtimer, NULL, hz/2);
RWLOCK_EXIT(&ipf_global);
}
/*
* routines below for saving IP headers to buffer
*/
int iplopen(dev, flag, dummy, mode)
dev_t dev;
int flag;
intptr_t dummy;
int mode;
{
minor_t unit = getminor(dev);
int error;
#ifdef IPFDEBUG
cmn_err(CE_CONT, "iplopen(%x,%x,%x,%x)\n", dev, flag, dummy, mode);
#endif
if (IPL_LOGMAX < unit) {
error = ENXIO;
} else {
switch (unit)
{
case IPL_LOGIPF :
case IPL_LOGNAT :
case IPL_LOGSTATE :
case IPL_LOGAUTH :
case IPL_LOGLOOKUP :
#ifdef IPFILTER_SYNC
case IPL_LOGSYNC :
#endif
#ifdef IPFILTER_SCAN
case IPL_LOGSCAN :
#endif
error = 0;
break;
default :
error = ENXIO;
break;
}
}
return error;
}
int iplclose(dev, flag, mode)
dev_t dev;
int flag;
int mode;
{
minor_t unit = getminor(dev);
#ifdef IPFDEBUG
cmn_err(CE_CONT, "iplclose(%x,%x,%x)\n", dev, flag, mode);
#endif
if (ipf_running < 1)
return EIO;
unit = (IPL_LOGMAX < unit) ? ENXIO : 0;
return unit;
}
#ifdef IPFILTER_LOG
/*
* iplread/ipllog
* both of these must operate with at least splnet() lest they be
* called during packet processing and cause an inconsistancy to appear in
* the filter lists.
*/
int iplread(dev, uio)
dev_t dev;
register struct uio *uio;
{
#ifdef IPFDEBUG
cmn_err(CE_CONT, "iplread(%x,%x)\n", dev, uio);
#endif
if (ipf_running < 1)
return EIO;
return ipflog_read(getminor(dev), uio);
}
#endif /* IPFILTER_LOG */
#if 0
/*
* iplread/ipllog
* both of these must operate with at least splnet() lest they be
* called during packet processing and cause an inconsistancy to appear in
* the filter lists.
*/
int iplwrite(dev, uio, cp)
dev_t dev;
register struct uio *uio;
cred_t *cp;
{
#ifdef IPFDEBUG
cmn_err(CE_CONT, "iplwrite(%x,%x,%x)\n", dev, uio, cp);
#endif
if (ipf_running < 1)
return EIO;
if (getminor(dev) != IPL_LOGSYNC)
return ENXIO;
return ipfsync_write(uio);
}
#endif /* IPFILTER_SYNC */