[unix-history] / usr / src / lib / libc / net / res_debug.c

/*
 * Copyright (c) 1985 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char sccsid[] = "@(#)res_debug.c	5.1 (Berkeley) %G%";
#endif not lint

#include <sys/types.h>
#include <netinet/in.h>
#include <stdio.h>
#include <nameser.h>

extern char *p_cdname(), *p_rr(), *p_type(), *p_class();
extern char *inet_ntoa();

char *opcodes[] = {
	"QUERY",
	"IQUERY",
	"CQUERYM",
	"CQUERYU",
	"4",
	"5",
	"6",
	"7",
	"8",
	"9",
	"10",
	"UPDATEA",
	"UPDATED",
	"UPDATEM",
	"ZONEINIT",
	"ZONEREF",
};

char *rcodes[] = {
	"NOERROR",
	"FORMERR",
	"SERVFAIL",
	"NXDOMAIN",
	"NOTIMP",
	"REFUSED",
	"6",
	"7",
	"8",
	"9",
	"10",
	"11",
	"12",
	"13",
	"14",
	"NOCHANGE",
};

/*
 * Print the contents of a query.
 * This is intended to be primarily a debugging routine.
 */
p_query(msg)
	char *msg;
{
	register char *cp;
	register HEADER *hp;
	register int n;

	/*
	 * Print header fields.
	 */
	hp = (HEADER *)msg;
	cp = msg + sizeof(HEADER);
	printf("HEADER:\n");
	printf("\topcode = %s", opcodes[hp->opcode]);
	printf(", id = %d", ntohs(hp->id));
	printf(", rcode = %s\n", rcodes[hp->rcode]);
	printf("\theader flags: ");
	if (hp->qr)
		printf(" qr");
	if (hp->aa)
		printf(" aa");
	if (hp->tc)
		printf(" tc");
	if (hp->rd)
		printf(" rd");
	if (hp->ra)
		printf(" ra");
	if (hp->pr)
		printf(" pr");
	printf("\n\tqdcount = %d", ntohs(hp->qdcount));
	printf(", ancount = %d", ntohs(hp->ancount));
	printf(", nscount = %d", ntohs(hp->nscount));
	printf(", arcount = %d\n\n", ntohs(hp->arcount));
	/*
	 * Print question records.
	 */
	if (n = ntohs(hp->qdcount)) {
		printf("QUESTIONS:\n");
		while (--n >= 0) {
			printf("\t");
			cp = p_cdname(cp, msg);
			if (cp == NULL)
				return;
			printf(", type = %s", p_type(getshort(cp)));
			cp += sizeof(u_short);
			printf(", class = %s\n\n", p_class(getshort(cp)));
			cp += sizeof(u_short);
		}
	}
	/*
	 * Print authoritative answer records
	 */
	if (n = ntohs(hp->ancount)) {
		printf("ANSWERS:\n");
		while (--n >= 0) {
			printf("\t");
			cp = p_rr(cp, msg);
			if (cp == NULL)
				return;
		}
	}
	/*
	 * print name server records
	 */
	if (n = ntohs(hp->nscount)) {
		printf("NAME SERVERS:\n");
		while (--n >= 0) {
			printf("\t");
			cp = p_rr(cp, msg);
			if (cp == NULL)
				return;
		}
	}
	/*
	 * print additional records
	 */
	if (n = ntohs(hp->arcount)) {
		printf("ADDITIONAL RECORDS:\n");
		while (--n >= 0) {
			printf("\t");
			cp = p_rr(cp, msg);
			if (cp == NULL)
				return;
		}
	}
}

char *
p_cdname(cp, msg)
	char *cp, *msg;
{
	char name[MAXDNAME];
	int n;

	if ((n = dn_expand(msg, cp, name, sizeof(name))) < 0)
		return (NULL);
	if (name[0] == '\0') {
		name[0] = '.';
		name[1] = '\0';
	}
	fputs(name, stdout);
	return (cp + n);
}

/*
 * Print resource record fields in human readable form.
 */
char *
p_rr(cp, msg)
	char *cp, *msg;
{
	int type, class, dlen, n, c;
	struct in_addr inaddr;
	char *cp1;

	if ((cp = p_cdname(cp, msg)) == NULL)
		return (NULL);			/* compression error */
	printf("\n\ttype = %s", p_type(type = getshort(cp)));
	cp += sizeof(u_short);
	printf(", class = %s", p_class(class = getshort(cp)));
	cp += sizeof(u_short);
	printf(", ttl = %ld", getlong(cp));
	cp += sizeof(u_long);
	printf(", dlen = %d\n", dlen = getshort(cp));
	cp += sizeof(u_short);
	cp1 = cp;
	/*
	 * Print type specific data, if appropriate
	 */
	switch (type) {
	case T_A:
		switch (class) {
		case C_IN:
			bcopy(cp, (char *)&inaddr, sizeof(inaddr));
			if (dlen == 4) {
				printf("\tinternet address = %s\n",
					inet_ntoa(inaddr));
				cp += dlen;
			} else if (dlen == 7) {
				printf("\tinternet address = %s",
					inet_ntoa(inaddr));
				printf(", protocol = %d", cp[4]);
				printf(", port = %d\n",
					(cp[5] << 8) + cp[6]);
				cp += dlen;
			}
			break;
		}
		break;
	case T_CNAME:
	case T_MB:
	case T_MD:
	case T_MF:
	case T_MG:
	case T_MR:
	case T_NS:
	case T_PTR:
		printf("\tdomain name = ");
		cp = p_cdname(cp, msg);
		printf("\n");
		break;

	case T_HINFO:
		if (n = *cp++) {
			printf("\tCPU=%.*s\n", n, cp);
			cp += n;
		}
		if (n = *cp++) {
			printf("\tOS=%.*s\n", n, cp);
			cp += n;
		}
		break;

	case T_SOA:
		printf("\torigin = ");
		cp = p_cdname(cp, msg);
		printf("\n\tmail addr = ");
		cp = p_cdname(cp, msg);
		printf("\n\tserial=%ld", getlong(cp));
		cp += sizeof(u_long);
		printf(", refresh=%ld", getlong(cp));
		cp += sizeof(u_long);
		printf(", retry=%ld", getlong(cp));
		cp += sizeof(u_long);
		printf(", expire=%ld", getlong(cp));
		cp += sizeof(u_long);
		printf(", min=%ld\n", getlong(cp));
		cp += sizeof(u_long);
		break;

	case T_MINFO:
		printf("\trequests = ");
		cp = p_cdname(cp, msg);
		printf("\n\terrors = ");
		cp = p_cdname(cp, msg);
		break;

	case T_UINFO:
		printf("\t%s\n", cp);
		cp += dlen;
		break;

	case T_UID:
	case T_GID:
		if (dlen == 4) {
			printf("\t%ld\n", getlong(cp));
			cp += sizeof(int);
		}
		break;

	case T_WKS:
		if (dlen < sizeof(u_long) + 1)
			break;
		bcopy(cp, (char *)&inaddr, sizeof(inaddr));
		cp += sizeof(u_long);
		printf("\tinternet address = %s, protocol = %d\n\t",
			inet_ntoa(inaddr), *cp++);
		n = 0;
		while (cp < cp1 + dlen) {
			c = *cp++;
			do {
				if (c & 1)
					printf(" %d", n);
				c >>= 1;
			} while (++n & 07);
		}
		putchar('\n');
		break;

	default:
		printf("\t???\n");
		cp += dlen;
	}
	if (cp != cp1 + dlen)
		printf("packet size error (%#x != %#x)\n", cp, cp1+dlen);
	printf("\n");
	return (cp);
}

static	char nbuf[20];
extern	char *sprintf();

/*
 * Return a string for the type
 */
char *
p_type(type)
	int type;
{

	switch (type) {
	case T_A:
		return("A");
	case T_NS:		/* authoritative server */
		return("NS");
	case T_MD:		/* mail destination */
		return("MD");
	case T_MF:		/* mail forwarder */
		return("MF");
	case T_CNAME:		/* connonical name */
		return("CNAME");
	case T_SOA:		/* start of authority zone */
		return("SOA");
	case T_MB:		/* mailbox domain name */
		return("MB");
	case T_MG:		/* mail group member */
		return("MG");
	case T_MR:		/* mail rename name */
		return("MR");
	case T_NULL:		/* null resource record */
		return("NULL");
	case T_WKS:		/* well known service */
		return("WKS");
	case T_PTR:		/* domain name pointer */
		return("PTR");
	case T_HINFO:		/* host information */
		return("HINFO");
	case T_MINFO:		/* mailbox information */
		return("MINFO");
	case T_AXFR:		/* zone transfer */
		return("AXFR");
	case T_MAILB:		/* mail box */
		return("MAILB");
	case T_MAILA:		/* mail address */
		return("MAILA");
	case T_ANY:		/* matches any type */
		return("ANY");
	case T_UINFO:
		return("UINFO");
	case T_UID:
		return("UID");
	case T_GID:
		return("GID");
	default:
		return (sprintf(nbuf, "%d", type));
	}
}

/*
 * Return a mnemonic for class
 */
char *
p_class(class)
	int class;
{

	switch (class) {
	case C_IN:		/* internet class */
		return("IN");
	case C_CS:		/* csnet class */
		return("CS");
	case C_ANY:		/* matches any class */
		return("ANY");
	default:
		return (sprintf(nbuf, "%d", class));
	}
}
Commit	Line	Data
b423e985	1	/*
8ea4199d DF	2	* Copyright (c) 1985 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
b423e985 RC	5	*/
b423e985 RC	6
8ea4199d DF	7	#ifndef lint
	8	static char sccsid[] = "@(#)res_debug.c 5.1 (Berkeley) %G%";
	9	#endif not lint
	10
0d22afd1 RC	11	#include <sys/types.h>
	12	#include <netinet/in.h>
	13	#include <stdio.h>
	14	#include <nameser.h>
	15
	16	extern char p_cdname(), p_rr(), p_type(), p_class();
	17	extern char *inet_ntoa();
	18
	19	char *opcodes[] = {
	20	"QUERY",
	21	"IQUERY",
	22	"CQUERYM",
	23	"CQUERYU",
	24	"4",
	25	"5",
	26	"6",
	27	"7",
	28	"8",
	29	"9",
	30	"10",
	31	"UPDATEA",
	32	"UPDATED",
	33	"UPDATEM",
	34	"ZONEINIT",
	35	"ZONEREF",
	36	};
	37
	38	char *rcodes[] = {
	39	"NOERROR",
	40	"FORMERR",
	41	"SERVFAIL",
	42	"NXDOMAIN",
	43	"NOTIMP",
	44	"REFUSED",
	45	"6",
	46	"7",
	47	"8",
	48	"9",
	49	"10",
	50	"11",
	51	"12",
	52	"13",
	53	"14",
	54	"NOCHANGE",
	55	};
	56
	57	/*
	58	* Print the contents of a query.
	59	* This is intended to be primarily a debugging routine.
	60	*/
e515a559 RC	61	p_query(msg)
e515a559 RC	62	char *msg;
0d22afd1 RC	63	{
	64	register char *cp;
	65	register HEADER *hp;
	66	register int n;
	67
	68	/*
	69	* Print header fields.
	70	*/
e515a559 RC	71	hp = (HEADER *)msg;
e515a559 RC	72	cp = msg + sizeof(HEADER);
0d22afd1 RC	73	printf("HEADER:\n");
	74	printf("\topcode = %s", opcodes[hp->opcode]);
	75	printf(", id = %d", ntohs(hp->id));
	76	printf(", rcode = %s\n", rcodes[hp->rcode]);
	77	printf("\theader flags: ");
	78	if (hp->qr)
	79	printf(" qr");
	80	if (hp->aa)
	81	printf(" aa");
	82	if (hp->tc)
	83	printf(" tc");
	84	if (hp->rd)
	85	printf(" rd");
	86	if (hp->ra)
	87	printf(" ra");
	88	if (hp->pr)
	89	printf(" pr");
	90	printf("\n\tqdcount = %d", ntohs(hp->qdcount));
	91	printf(", ancount = %d", ntohs(hp->ancount));
	92	printf(", nscount = %d", ntohs(hp->nscount));
	93	printf(", arcount = %d\n\n", ntohs(hp->arcount));
	94	/*
	95	* Print question records.
	96	*/
	97	if (n = ntohs(hp->qdcount)) {
	98	printf("QUESTIONS:\n");
	99	while (--n >= 0) {
	100	printf("\t");
e515a559	101	cp = p_cdname(cp, msg);
0d22afd1 RC	102	if (cp == NULL)
0d22afd1 RC	103	return;
11e57e73	104	printf(", type = %s", p_type(getshort(cp)));
0d22afd1	105	cp += sizeof(u_short);
11e57e73	106	printf(", class = %s\n\n", p_class(getshort(cp)));
0d22afd1 RC	107	cp += sizeof(u_short);
	108	}
	109	}
	110	/*
	111	* Print authoritative answer records
	112	*/
	113	if (n = ntohs(hp->ancount)) {
	114	printf("ANSWERS:\n");
	115	while (--n >= 0) {
	116	printf("\t");
e515a559	117	cp = p_rr(cp, msg);
0d22afd1 RC	118	if (cp == NULL)
	119	return;
	120	}
	121	}
	122	/*
	123	* print name server records
	124	*/
	125	if (n = ntohs(hp->nscount)) {
	126	printf("NAME SERVERS:\n");
	127	while (--n >= 0) {
	128	printf("\t");
e515a559	129	cp = p_rr(cp, msg);
0d22afd1 RC	130	if (cp == NULL)
	131	return;
	132	}
	133	}
	134	/*
	135	* print additional records
	136	*/
	137	if (n = ntohs(hp->arcount)) {
	138	printf("ADDITIONAL RECORDS:\n");
	139	while (--n >= 0) {
	140	printf("\t");
e515a559	141	cp = p_rr(cp, msg);
0d22afd1 RC	142	if (cp == NULL)
	143	return;
	144	}
	145	}
	146	}
	147
	148	char *
e515a559 RC	149	p_cdname(cp, msg)
e515a559 RC	150	char cp, msg;
0d22afd1 RC	151	{
	152	char name[MAXDNAME];
	153	int n;
	154
e515a559	155	if ((n = dn_expand(msg, cp, name, sizeof(name))) < 0)
0d22afd1 RC	156	return (NULL);
	157	if (name[0] == '\0') {
	158	name[0] = '.';
	159	name[1] = '\0';
	160	}
	161	fputs(name, stdout);
	162	return (cp + n);
	163	}
	164
	165	/*
	166	* Print resource record fields in human readable form.
	167	*/
	168	char *
e515a559 RC	169	p_rr(cp, msg)
e515a559 RC	170	char cp, msg;
0d22afd1 RC	171	{
	172	int type, class, dlen, n, c;
	173	struct in_addr inaddr;
	174	char *cp1;
	175
e515a559	176	if ((cp = p_cdname(cp, msg)) == NULL)
0d22afd1	177	return (NULL); /* compression error */
11e57e73	178	printf("\n\ttype = %s", p_type(type = getshort(cp)));
0d22afd1	179	cp += sizeof(u_short);
11e57e73	180	printf(", class = %s", p_class(class = getshort(cp)));
0d22afd1	181	cp += sizeof(u_short);
11e57e73	182	printf(", ttl = %ld", getlong(cp));
0d22afd1	183	cp += sizeof(u_long);
11e57e73	184	printf(", dlen = %d\n", dlen = getshort(cp));
0d22afd1 RC	185	cp += sizeof(u_short);
	186	cp1 = cp;
	187	/*
	188	* Print type specific data, if appropriate
	189	*/
	190	switch (type) {
	191	case T_A:
	192	switch (class) {
	193	case C_IN:
11e57e73	194	bcopy(cp, (char *)&inaddr, sizeof(inaddr));
0d22afd1 RC	195	if (dlen == 4) {
	196	printf("\tinternet address = %s\n",
	197	inet_ntoa(inaddr));
	198	cp += dlen;
	199	} else if (dlen == 7) {
	200	printf("\tinternet address = %s",
	201	inet_ntoa(inaddr));
	202	printf(", protocol = %d", cp[4]);
	203	printf(", port = %d\n",
	204	(cp[5] << 8) + cp[6]);
	205	cp += dlen;
	206	}
	207	break;
	208	}
	209	break;
	210	case T_CNAME:
	211	case T_MB:
	212	case T_MD:
	213	case T_MF:
	214	case T_MG:
	215	case T_MR:
	216	case T_NS:
	217	case T_PTR:
	218	printf("\tdomain name = ");
e515a559	219	cp = p_cdname(cp, msg);
0d22afd1 RC	220	printf("\n");
	221	break;
	222
	223	case T_HINFO:
	224	if (n = *cp++) {
	225	printf("\tCPU=%.*s\n", n, cp);
	226	cp += n;
	227	}
	228	if (n = *cp++) {
	229	printf("\tOS=%.*s\n", n, cp);
	230	cp += n;
	231	}
	232	break;
	233
	234	case T_SOA:
	235	printf("\torigin = ");
e515a559	236	cp = p_cdname(cp, msg);
0d22afd1	237	printf("\n\tmail addr = ");
e515a559	238	cp = p_cdname(cp, msg);
11e57e73	239	printf("\n\tserial=%ld", getlong(cp));
0d22afd1	240	cp += sizeof(u_long);
11e57e73	241	printf(", refresh=%ld", getlong(cp));
0d22afd1	242	cp += sizeof(u_long);
11e57e73	243	printf(", retry=%ld", getlong(cp));
0d22afd1	244	cp += sizeof(u_long);
11e57e73	245	printf(", expire=%ld", getlong(cp));
0d22afd1	246	cp += sizeof(u_long);
11e57e73	247	printf(", min=%ld\n", getlong(cp));
0d22afd1 RC	248	cp += sizeof(u_long);
	249	break;
	250
e515a559 RC	251	case T_MINFO:
	252	printf("\trequests = ");
	253	cp = p_cdname(cp, msg);
	254	printf("\n\terrors = ");
	255	cp = p_cdname(cp, msg);
	256	break;
	257
0d22afd1 RC	258	case T_UINFO:
	259	printf("\t%s\n", cp);
	260	cp += dlen;
	261	break;
	262
	263	case T_UID:
	264	case T_GID:
	265	if (dlen == 4) {
11e57e73	266	printf("\t%ld\n", getlong(cp));
0d22afd1 RC	267	cp += sizeof(int);
	268	}
	269	break;
	270
	271	case T_WKS:
	272	if (dlen < sizeof(u_long) + 1)
	273	break;
11e57e73	274	bcopy(cp, (char *)&inaddr, sizeof(inaddr));
0d22afd1 RC	275	cp += sizeof(u_long);
	276	printf("\tinternet address = %s, protocol = %d\n\t",
	277	inet_ntoa(inaddr), *cp++);
	278	n = 0;
	279	while (cp < cp1 + dlen) {
	280	c = *cp++;
	281	do {
	282	if (c & 1)
	283	printf(" %d", n);
	284	c >>= 1;
	285	} while (++n & 07);
	286	}
	287	putchar('\n');
	288	break;
	289
	290	default:
	291	printf("\t???\n");
	292	cp += dlen;
	293	}
	294	if (cp != cp1 + dlen)
	295	printf("packet size error (%#x != %#x)\n", cp, cp1+dlen);
	296	printf("\n");
	297	return (cp);
	298	}
	299
	300	static char nbuf[20];
	301	extern char *sprintf();
	302
	303	/*
	304	* Return a string for the type
	305	*/
	306	char *
	307	p_type(type)
	308	int type;
	309	{
	310
	311	switch (type) {
	312	case T_A:
	313	return("A");
	314	case T_NS: /* authoritative server */
	315	return("NS");
	316	case T_MD: /* mail destination */
	317	return("MD");
	318	case T_MF: /* mail forwarder */
	319	return("MF");
	320	case T_CNAME: /* connonical name */
	321	return("CNAME");
	322	case T_SOA: /* start of authority zone */
	323	return("SOA");
	324	case T_MB: /* mailbox domain name */
	325	return("MB");
	326	case T_MG: /* mail group member */
	327	return("MG");
	328	case T_MR: /* mail rename name */
	329	return("MR");
	330	case T_NULL: /* null resource record */
	331	return("NULL");
	332	case T_WKS: /* well known service */
	333	return("WKS");
	334	case T_PTR: /* domain name pointer */
	335	return("PTR");
	336	case T_HINFO: /* host information */
	337	return("HINFO");
	338	case T_MINFO: /* mailbox information */
339	return("MINFO");
340	case T_AXFR: /* zone transfer */
341	return("AXFR");
342	case T_MAILB: /* mail box */
343	return("MAILB");
344	case T_MAILA: /* mail address */
345	return("MAILA");
346	case T_ANY: /* matches any type */
347	return("ANY");
348	case T_UINFO:
349	return("UINFO");
350	case T_UID:
351	return("UID");
352	case T_GID:
353	return("GID");
354	default:
355	return (sprintf(nbuf, "%d", type));
356	}
357	}
358
359	/*
360	* Return a mnemonic for class
361	*/
362	char *
363	p_class(class)
364	int class;
365	{
366
367	switch (class) {
368	case C_IN: /* internet class */
369	return("IN");
370	case C_CS: /* csnet class */
371	return("CS");
372	case C_ANY: /* matches any class */
373	return("ANY");
374	default:
375	return (sprintf(nbuf, "%d", class));
376	}
377	}