[unix-history] / usr / src / sys / netns / ns_error.c

/*
 * Copyright (c) 1984, 1988 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. 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.
 *
 *	@(#)ns_error.c	7.8 (Berkeley) 6/28/90
 */

#include "param.h"
#include "systm.h"
#include "malloc.h"
#include "mbuf.h"
#include "protosw.h"
#include "socket.h"
#include "time.h"
#include "kernel.h"

#include "../net/route.h"

#include "ns.h"
#include "ns_pcb.h"
#include "idp.h"
#include "ns_error.h"

#ifdef lint
#define NS_ERRPRINTFS 1
#endif

#ifdef NS_ERRPRINTFS
/*
 * NS_ERR routines: error generation, receive packet processing, and
 * routines to turnaround packets back to the originator.
 */
int	ns_errprintfs = 0;
#endif

ns_err_x(c)
{
	register u_short *w, *lim, *base = ns_errstat.ns_es_codes;
	u_short x = c;

	/*
	 * zero is a legit error code, handle specially
	 */
	if (x == 0)
		return (0);
	lim = base + NS_ERR_MAX - 1;
	for (w = base + 1; w < lim; w++) {
		if (*w == 0)
			*w = x;
		if (*w == x)
			break;
	}
	return (w - base);
}

/*
 * Generate an error packet of type error
 * in response to bad packet.
 */

ns_error(om, type, param)
	struct mbuf *om;
	int type;
{
	register struct ns_epidp *ep;
	struct mbuf *m;
	struct idp *nip;
	register struct idp *oip = mtod(om, struct idp *);
	extern int idpcksum;

	/*
	 * If this packet was sent to the echo port,
	 * and nobody was there, just echo it.
	 * (Yes, this is a wart!)
	 */
	if (type == NS_ERR_NOSOCK &&
	    oip->idp_dna.x_port == htons(2) &&
	    (type = ns_echo(om))==0)
		return;

#ifdef NS_ERRPRINTFS
	if (ns_errprintfs)
		printf("ns_err_error(%x, %d, %d)\n", oip, type, param);
#endif
	/*
	 * Don't Generate error packets in response to multicasts.
	 */
	if (oip->idp_dna.x_host.c_host[0] & 1)
		goto freeit;

	ns_errstat.ns_es_error++;
	/*
	 * Make sure that the old IDP packet had 30 bytes of data to return;
	 * if not, don't bother.  Also don't EVER error if the old
	 * packet protocol was NS_ERR.
	 */
	if (oip->idp_len < sizeof(struct idp)) {
		ns_errstat.ns_es_oldshort++;
		goto freeit;
	}
	if (oip->idp_pt == NSPROTO_ERROR) {
		ns_errstat.ns_es_oldns_err++;
		goto freeit;
	}

	/*
	 * First, formulate ns_err message
	 */
	m = m_gethdr(M_DONTWAIT, MT_HEADER);
	if (m == NULL)
		goto freeit;
	m->m_len = sizeof(*ep);
	MH_ALIGN(m, m->m_len);
	ep = mtod(m, struct ns_epidp *);
	if ((u_int)type > NS_ERR_TOO_BIG)
		panic("ns_err_error");
	ns_errstat.ns_es_outhist[ns_err_x(type)]++;
	ep->ns_ep_errp.ns_err_num = htons((u_short)type);
	ep->ns_ep_errp.ns_err_param = htons((u_short)param);
	bcopy((caddr_t)oip, (caddr_t)&ep->ns_ep_errp.ns_err_idp, 42);
	nip = &ep->ns_ep_idp;
	nip->idp_len = sizeof(*ep);
	nip->idp_len = htons((u_short)nip->idp_len);
	nip->idp_pt = NSPROTO_ERROR;
	nip->idp_tc = 0;
	nip->idp_dna = oip->idp_sna;
	nip->idp_sna = oip->idp_dna;
	if (idpcksum) {
		nip->idp_sum = 0;
		nip->idp_sum = ns_cksum(m, sizeof(*ep));
	} else 
		nip->idp_sum = 0xffff;
	(void) ns_output(m, (struct route *)0, 0);

freeit:
	m_freem(om);
}

ns_printhost(p)
register struct ns_addr *p;
{

	printf("<net:%x%x,host:%x%x%x,port:%x>",
			p->x_net.s_net[0],
			p->x_net.s_net[1],
			p->x_host.s_host[0],
			p->x_host.s_host[1],
			p->x_host.s_host[2],
			p->x_port);

}

/*
 * Process a received NS_ERR message.
 */
ns_err_input(m)
	struct mbuf *m;
{
	register struct ns_errp *ep;
	register struct ns_epidp *epidp = mtod(m, struct ns_epidp *);
	register int i;
	int type, code, param;

	/*
	 * Locate ns_err structure in mbuf, and check
	 * that not corrupted and of at least minimum length.
	 */
#ifdef NS_ERRPRINTFS
	if (ns_errprintfs) {
		printf("ns_err_input from ");
		ns_printhost(&epidp->ns_ep_idp.idp_sna);
		printf("len %d\n", ntohs(epidp->ns_ep_idp.idp_len));
	}
#endif
	i = sizeof (struct ns_epidp);
 	if (((m->m_flags & M_EXT) || m->m_len < i) &&
 		(m = m_pullup(m, i)) == 0)  {
		ns_errstat.ns_es_tooshort++;
		return;
	}
	ep = &(mtod(m, struct ns_epidp *)->ns_ep_errp);
	type = ntohs(ep->ns_err_num);
	param = ntohs(ep->ns_err_param);
	ns_errstat.ns_es_inhist[ns_err_x(type)]++;

#ifdef NS_ERRPRINTFS
	/*
	 * Message type specific processing.
	 */
	if (ns_errprintfs)
		printf("ns_err_input, type %d param %d\n", type, param);
#endif
	if (type >= NS_ERR_TOO_BIG) {
		goto badcode;
	}
	ns_errstat.ns_es_outhist[ns_err_x(type)]++;
	switch (type) {

	case NS_ERR_UNREACH_HOST:
		code = PRC_UNREACH_NET;
		goto deliver;

	case NS_ERR_TOO_OLD:
		code = PRC_TIMXCEED_INTRANS;
		goto deliver;

	case NS_ERR_TOO_BIG:
		code = PRC_MSGSIZE;
		goto deliver;

	case NS_ERR_FULLUP:
		code = PRC_QUENCH;
		goto deliver;

	case NS_ERR_NOSOCK:
		code = PRC_UNREACH_PORT;
		goto deliver;

	case NS_ERR_UNSPEC_T:
	case NS_ERR_BADSUM_T:
	case NS_ERR_BADSUM:
	case NS_ERR_UNSPEC:
		code = PRC_PARAMPROB;
		goto deliver;

	deliver:
		/*
		 * Problem with datagram; advise higher level routines.
		 */
#ifdef NS_ERRPRINTFS
		if (ns_errprintfs)
			printf("deliver to protocol %d\n",
				       ep->ns_err_idp.idp_pt);
#endif
		switch(ep->ns_err_idp.idp_pt) {
		case NSPROTO_SPP:
			spp_ctlinput(code, (caddr_t)ep);
			break;

		default:
			idp_ctlinput(code, (caddr_t)ep);
		}
		
		goto freeit;

	default:
	badcode:
		ns_errstat.ns_es_badcode++;
		goto freeit;

	}
freeit:
	m_freem(m);
}

#ifdef notdef
u_long
nstime()
{
	int s = splclock();
	u_long t;

	t = (time.tv_sec % (24*60*60)) * 1000 + time.tv_usec / 1000;
	splx(s);
	return (htonl(t));
}
#endif

ns_echo(m)
struct mbuf *m;
{
	register struct idp *idp = mtod(m, struct idp *);
	register struct echo {
	    struct idp	ec_idp;
	    u_short		ec_op; /* Operation, 1 = request, 2 = reply */
	} *ec = (struct echo *)idp;
	struct ns_addr temp;

	if (idp->idp_pt!=NSPROTO_ECHO) return(NS_ERR_NOSOCK);
	if (ec->ec_op!=htons(1)) return(NS_ERR_UNSPEC);

	ec->ec_op = htons(2);

	temp = idp->idp_dna;
	idp->idp_dna = idp->idp_sna;
	idp->idp_sna = temp;

	if (idp->idp_sum != 0xffff) {
		idp->idp_sum = 0;
		idp->idp_sum = ns_cksum(m,
		    (int)(((ntohs(idp->idp_len) - 1)|1)+1));
	}
	(void) ns_output(m, (struct route *)0, NS_FORWARDING);
	return(0);
}
Commit	Line	Data
8ae0e4b4	1	/*
d5678156	2	* Copyright (c) 1984, 1988 Regents of the University of California.
240edf1f	3	* All rights reserved.
8ae0e4b4	4	*
af359dea C	5	* Redistribution and use in source and binary forms, with or without
	6	* modification, are permitted provided that the following conditions
	7	* are met:
	8	* 1. Redistributions of source code must retain the above copyright
	9	* notice, this list of conditions and the following disclaimer.
	10	* 2. Redistributions in binary form must reproduce the above copyright
	11	* notice, this list of conditions and the following disclaimer in the
	12	* documentation and/or other materials provided with the distribution.
	13	* 3. All advertising materials mentioning features or use of this software
	14	* must display the following acknowledgement:
	15	* This product includes software developed by the University of
	16	* California, Berkeley and its contributors.
	17	* 4. Neither the name of the University nor the names of its contributors
	18	* may be used to endorse or promote products derived from this software
	19	* without specific prior written permission.
240edf1f	20	*
af359dea C	21	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	22	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	23	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	24	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	25	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	26	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	27	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	28	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	29	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	30	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	31	* SUCH DAMAGE.
240edf1f	32	*
1c15e888	33	* @(#)ns_error.c 7.8 (Berkeley) 6/28/90
8ae0e4b4	34	*/
bedb3747 KS	35
	36	#include "param.h"
	37	#include "systm.h"
4dcdd98e	38	#include "malloc.h"
bedb3747 KS	39	#include "mbuf.h"
	40	#include "protosw.h"
	41	#include "socket.h"
	42	#include "time.h"
	43	#include "kernel.h"
	44
	45	#include "../net/route.h"
	46
	47	#include "ns.h"
	48	#include "ns_pcb.h"
	49	#include "idp.h"
	50	#include "ns_error.h"
	51
f97be0c9 KS	52	#ifdef lint
	53	#define NS_ERRPRINTFS 1
	54	#endif
	55
bedb3747 KS	56	#ifdef NS_ERRPRINTFS
	57	/*
	58	* NS_ERR routines: error generation, receive packet processing, and
233a75ef	59	* routines to turnaround packets back to the originator.
bedb3747 KS	60	*/
	61	int ns_errprintfs = 0;
	62	#endif
	63
dc9ba710	64	ns_err_x(c)
d5678156 KS	65	{
	66	register u_short w, lim, *base = ns_errstat.ns_es_codes;
	67	u_short x = c;
	68
	69	/*
	70	* zero is a legit error code, handle specially
	71	*/
	72	if (x == 0)
	73	return (0);
	74	lim = base + NS_ERR_MAX - 1;
	75	for (w = base + 1; w < lim; w++) {
	76	if (*w == 0)
	77	*w = x;
	78	if (*w == x)
	79	break;
	80	}
	81	return (w - base);
	82	}
	83
bedb3747 KS	84	/*
	85	* Generate an error packet of type error
	86	* in response to bad packet.
	87	*/
	88
	89	ns_error(om, type, param)
	90	struct mbuf *om;
	91	int type;
	92	{
	93	register struct ns_epidp *ep;
	94	struct mbuf *m;
	95	struct idp *nip;
	96	register struct idp oip = mtod(om, struct idp );
	97	extern int idpcksum;
	98
233a75ef KS	99	/*
	100	* If this packet was sent to the echo port,
	101	* and nobody was there, just echo it.
	102	* (Yes, this is a wart!)
	103	*/
4dcdd98e KS	104	if (type == NS_ERR_NOSOCK &&
	105	oip->idp_dna.x_port == htons(2) &&
	106	(type = ns_echo(om))==0)
233a75ef KS	107	return;
233a75ef KS	108
bedb3747 KS	109	#ifdef NS_ERRPRINTFS
	110	if (ns_errprintfs)
	111	printf("ns_err_error(%x, %d, %d)\n", oip, type, param);
	112	#endif
9fa7f9e6 KS	113	/*
	114	* Don't Generate error packets in response to multicasts.
	115	*/
	116	if (oip->idp_dna.x_host.c_host[0] & 1)
4dcdd98e	117	goto freeit;
9fa7f9e6	118
bedb3747 KS	119	ns_errstat.ns_es_error++;
	120	/*
	121	* Make sure that the old IDP packet had 30 bytes of data to return;
	122	* if not, don't bother. Also don't EVER error if the old
	123	* packet protocol was NS_ERR.
	124	*/
	125	if (oip->idp_len < sizeof(struct idp)) {
	126	ns_errstat.ns_es_oldshort++;
4dcdd98e	127	goto freeit;
bedb3747 KS	128	}
	129	if (oip->idp_pt == NSPROTO_ERROR) {
	130	ns_errstat.ns_es_oldns_err++;
4dcdd98e	131	goto freeit;
bedb3747 KS	132	}
	133
	134	/*
	135	* First, formulate ns_err message
	136	*/
4dcdd98e	137	m = m_gethdr(M_DONTWAIT, MT_HEADER);
bedb3747	138	if (m == NULL)
4dcdd98e	139	goto freeit;
bedb3747	140	m->m_len = sizeof(*ep);
4dcdd98e	141	MH_ALIGN(m, m->m_len);
bedb3747 KS	142	ep = mtod(m, struct ns_epidp *);
	143	if ((u_int)type > NS_ERR_TOO_BIG)
	144	panic("ns_err_error");
	145	ns_errstat.ns_es_outhist[ns_err_x(type)]++;
f97be0c9 KS	146	ep->ns_ep_errp.ns_err_num = htons((u_short)type);
f97be0c9 KS	147	ep->ns_ep_errp.ns_err_param = htons((u_short)param);
bedb3747 KS	148	bcopy((caddr_t)oip, (caddr_t)&ep->ns_ep_errp.ns_err_idp, 42);
	149	nip = &ep->ns_ep_idp;
	150	nip->idp_len = sizeof(*ep);
	151	nip->idp_len = htons((u_short)nip->idp_len);
	152	nip->idp_pt = NSPROTO_ERROR;
	153	nip->idp_tc = 0;
	154	nip->idp_dna = oip->idp_sna;
	155	nip->idp_sna = oip->idp_dna;
	156	if (idpcksum) {
	157	nip->idp_sum = 0;
4dcdd98e	158	nip->idp_sum = ns_cksum(m, sizeof(*ep));
bedb3747 KS	159	} else
bedb3747 KS	160	nip->idp_sum = 0xffff;
4dcdd98e	161	(void) ns_output(m, (struct route *)0, 0);
bedb3747	162
4dcdd98e KS	163	freeit:
4dcdd98e KS	164	m_freem(om);
bedb3747 KS	165	}
bedb3747 KS	166
bedb3747 KS	167	ns_printhost(p)
	168	register struct ns_addr *p;
	169	{
	170
	171	printf("<net:%x%x,host:%x%x%x,port:%x>",
	172	p->x_net.s_net[0],
	173	p->x_net.s_net[1],
	174	p->x_host.s_host[0],
	175	p->x_host.s_host[1],
	176	p->x_host.s_host[2],
	177	p->x_port);
	178
	179	}
	180
	181	/*
	182	* Process a received NS_ERR message.
	183	*/
	184	ns_err_input(m)
	185	struct mbuf *m;
	186	{
	187	register struct ns_errp *ep;
	188	register struct ns_epidp epidp = mtod(m, struct ns_epidp );
	189	register int i;
	190	int type, code, param;
bedb3747 KS	191
	192	/*
	193	* Locate ns_err structure in mbuf, and check
	194	* that not corrupted and of at least minimum length.
	195	*/
	196	#ifdef NS_ERRPRINTFS
	197	if (ns_errprintfs) {
	198	printf("ns_err_input from ");
	199	ns_printhost(&epidp->ns_ep_idp.idp_sna);
	200	printf("len %d\n", ntohs(epidp->ns_ep_idp.idp_len));
	201	}
	202	#endif
	203	i = sizeof (struct ns_epidp);
4dcdd98e	204	if (((m->m_flags & M_EXT) \|\| m->m_len < i) &&
bedb3747 KS	205	(m = m_pullup(m, i)) == 0) {
	206	ns_errstat.ns_es_tooshort++;
	207	return;
	208	}
	209	ep = &(mtod(m, struct ns_epidp *)->ns_ep_errp);
	210	type = ntohs(ep->ns_err_num);
	211	param = ntohs(ep->ns_err_param);
9fa7f9e6	212	ns_errstat.ns_es_inhist[ns_err_x(type)]++;
bedb3747 KS	213
	214	#ifdef NS_ERRPRINTFS
	215	/*
	216	* Message type specific processing.
	217	*/
	218	if (ns_errprintfs)
	219	printf("ns_err_input, type %d param %d\n", type, param);
	220	#endif
	221	if (type >= NS_ERR_TOO_BIG) {
	222	goto badcode;
	223	}
	224	ns_errstat.ns_es_outhist[ns_err_x(type)]++;
	225	switch (type) {
	226
	227	case NS_ERR_UNREACH_HOST:
	228	code = PRC_UNREACH_NET;
	229	goto deliver;
	230
	231	case NS_ERR_TOO_OLD:
	232	code = PRC_TIMXCEED_INTRANS;
	233	goto deliver;
	234
	235	case NS_ERR_TOO_BIG:
	236	code = PRC_MSGSIZE;
	237	goto deliver;
	238
	239	case NS_ERR_FULLUP:
	240	code = PRC_QUENCH;
	241	goto deliver;
	242
	243	case NS_ERR_NOSOCK:
	244	code = PRC_UNREACH_PORT;
	245	goto deliver;
	246
	247	case NS_ERR_UNSPEC_T:
	248	case NS_ERR_BADSUM_T:
	249	case NS_ERR_BADSUM:
	250	case NS_ERR_UNSPEC:
	251	code = PRC_PARAMPROB;
	252	goto deliver;
	253
	254	deliver:
	255	/*
	256	* Problem with datagram; advise higher level routines.
	257	*/
	258	#ifdef NS_ERRPRINTFS
	259	if (ns_errprintfs)
	260	printf("deliver to protocol %d\n",
	261	ep->ns_err_idp.idp_pt);
	262	#endif
	263	switch(ep->ns_err_idp.idp_pt) {
	264	case NSPROTO_SPP:
	265	spp_ctlinput(code, (caddr_t)ep);
	266	break;
	267
	268	default:
	269	idp_ctlinput(code, (caddr_t)ep);
	270	}
	271
4dcdd98e	272	goto freeit;
bedb3747 KS	273
	274	default:
	275	badcode:
	276	ns_errstat.ns_es_badcode++;
4dcdd98e	277	goto freeit;
bedb3747 KS	278
bedb3747 KS	279	}
4dcdd98e	280	freeit:
bedb3747 KS	281	m_freem(m);
bedb3747 KS	282	}
233a75ef	283
58bca61d	284	#ifdef notdef
bedb3747 KS	285	u_long
	286	nstime()
	287	{
aaf09736	288	int s = splclock();
bedb3747 KS	289	u_long t;
	290
	291	t = (time.tv_sec % (246060)) * 1000 + time.tv_usec / 1000;
	292	splx(s);
	293	return (htonl(t));
	294	}
58bca61d	295	#endif
233a75ef	296
4dcdd98e KS	297	ns_echo(m)
4dcdd98e KS	298	struct mbuf *m;
233a75ef	299	{
4dcdd98e	300	register struct idp idp = mtod(m, struct idp );
233a75ef KS	301	register struct echo {
	302	struct idp ec_idp;
	303	u_short ec_op; /* Operation, 1 = request, 2 = reply */
	304	} ec = (struct echo )idp;
	305	struct ns_addr temp;
	306
	307	if (idp->idp_pt!=NSPROTO_ECHO) return(NS_ERR_NOSOCK);
	308	if (ec->ec_op!=htons(1)) return(NS_ERR_UNSPEC);
	309
	310	ec->ec_op = htons(2);
	311
	312	temp = idp->idp_dna;
	313	idp->idp_dna = idp->idp_sna;
	314	idp->idp_sna = temp;
	315
	316	if (idp->idp_sum != 0xffff) {
	317	idp->idp_sum = 0;
58bca61d MK	318	idp->idp_sum = ns_cksum(m,
58bca61d MK	319	(int)(((ntohs(idp->idp_len) - 1)\|1)+1));
233a75ef	320	}
8011f5df	321	(void) ns_output(m, (struct route *)0, NS_FORWARDING);
233a75ef KS	322	return(0);
233a75ef KS	323	}