mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
587 lines
17 KiB
587 lines
17 KiB
/*++
|
|
|
|
Copyright (c) 1991 Microsoft Corporation
|
|
|
|
Module Name:
|
|
|
|
r_debug.c
|
|
|
|
Abstract:
|
|
|
|
This module implements routines used to debug the DNS resolver.
|
|
|
|
Author:
|
|
|
|
Mike Massa (mikemas) Sept 20, 1991
|
|
|
|
Revision History:
|
|
|
|
Who When What
|
|
-------- -------- ----------------------------------------------
|
|
mikemas 9-20-91 created
|
|
|
|
Notes:
|
|
|
|
--*/
|
|
|
|
#ident "@(#)res_debug.c 5.3 3/8/91"
|
|
|
|
/******************************************************************
|
|
*
|
|
* SpiderTCP BIND
|
|
*
|
|
* Copyright 1990 Spider Systems Limited
|
|
*
|
|
* RES_DEBUG.C
|
|
*
|
|
******************************************************************/
|
|
|
|
/*-
|
|
* /usr/projects/tcp/SCCS.rel3/rel/src/lib/net/0/s.res_debug.c
|
|
* @(#)res_debug.c 5.3
|
|
*
|
|
* Last delta created 14:11:38 3/4/91
|
|
* This file extracted 11:20:31 3/8/91
|
|
*
|
|
* Modifications:
|
|
*
|
|
* GSS 24 Jul 90 New File
|
|
*/
|
|
/*
|
|
* Copyright (c) 1985, 1990 Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms are permitted provided
|
|
* that: (1) source distributions retain this entire copyright notice and
|
|
* comment, and (2) distributions including binaries display the following
|
|
* acknowledgement: ``This product includes software developed by the
|
|
* University of California, Berkeley and its contributors'' in the
|
|
* documentation or other materials provided with the distribution and in
|
|
* all advertising materials mentioning features or use of this software.
|
|
* 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
|
|
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
|
|
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
*
|
|
* @(#)res_debug.c 5.30 (Berkeley) 6/27/90
|
|
*/
|
|
|
|
#if defined(LIBC_SCCS) && !defined(lint)
|
|
static char sccsid[] = "@(#)res_debug.c 5.30 (Berkeley) 6/27/90";
|
|
#endif /* LIBC_SCCS and not lint */
|
|
/***************************************************************************/
|
|
|
|
#include "winsockp.h"
|
|
|
|
extern char *p_cdname(), *p_rr(), *p_type(), *p_class(), *p_time();
|
|
|
|
char *_res_opcodes[] = {
|
|
"QUERY",
|
|
"IQUERY",
|
|
"CQUERYM",
|
|
"CQUERYU",
|
|
"4",
|
|
"5",
|
|
"6",
|
|
"7",
|
|
"8",
|
|
"UPDATEA",
|
|
"UPDATED",
|
|
"UPDATEDA",
|
|
"UPDATEM",
|
|
"UPDATEMA",
|
|
"ZONEINIT",
|
|
"ZONEREF",
|
|
};
|
|
|
|
char *_res_resultcodes[] = {
|
|
"NOERROR",
|
|
"FORMERR",
|
|
"SERVFAIL",
|
|
"NXDOMAIN",
|
|
"NOTIMP",
|
|
"REFUSED",
|
|
"6",
|
|
"7",
|
|
"8",
|
|
"9",
|
|
"10",
|
|
"11",
|
|
"12",
|
|
"13",
|
|
"14",
|
|
"NOCHANGE",
|
|
};
|
|
|
|
void
|
|
p_query(msg)
|
|
char *msg;
|
|
{
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_query entered\n"));
|
|
}
|
|
fp_query(msg,stdout);
|
|
}
|
|
|
|
/*
|
|
* Print the contents of a query.
|
|
* This is intended to be primarily a debugging routine.
|
|
*/
|
|
void
|
|
fp_query(msg,file)
|
|
char *msg;
|
|
FILE *file;
|
|
{
|
|
register char *cp;
|
|
register HEADER *hp;
|
|
register int n;
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("fp_query entered\n"));
|
|
}
|
|
|
|
/*
|
|
* Print header fields.
|
|
*/
|
|
hp = (HEADER *)msg;
|
|
cp = msg + sizeof(HEADER);
|
|
fprintf(file,"HEADER:\n");
|
|
if (hp->opcode <= ZONEREF)
|
|
fprintf(file,"\topcode = %s", _res_opcodes[hp->opcode]);
|
|
else
|
|
fprintf(file,"\topcode = %d", hp->opcode);
|
|
fprintf(file,", id = %d", ntohs(hp->id));
|
|
fprintf(file,", rcode = %s\n", _res_resultcodes[hp->rcode]);
|
|
fprintf(file,"\theader flags: ");
|
|
if (hp->qr)
|
|
fprintf(file," qr");
|
|
if (hp->aa)
|
|
fprintf(file," aa");
|
|
if (hp->tc)
|
|
fprintf(file," tc");
|
|
if (hp->rd)
|
|
fprintf(file," rd");
|
|
if (hp->ra)
|
|
fprintf(file," ra");
|
|
if (hp->pr)
|
|
fprintf(file," pr");
|
|
fprintf(file,"\n\tqdcount = %d", ntohs(hp->qdcount));
|
|
fprintf(file,", ancount = %d", ntohs(hp->ancount));
|
|
fprintf(file,", nscount = %d", ntohs(hp->nscount));
|
|
fprintf(file,", arcount = %d\n\n", ntohs(hp->arcount));
|
|
/*
|
|
* Print question records.
|
|
*/
|
|
if (n = ntohs(hp->qdcount)) {
|
|
fprintf(file,"QUESTIONS:\n");
|
|
while (--n >= 0) {
|
|
fprintf(file,"\t");
|
|
cp = p_cdname(cp, msg, file);
|
|
if (cp == NULL)
|
|
return;
|
|
fprintf(file,", type = %s", p_type(_getshort(cp)));
|
|
cp += sizeof(u_short);
|
|
fprintf(file,", class = %s\n\n", p_class(_getshort(cp)));
|
|
cp += sizeof(u_short);
|
|
}
|
|
}
|
|
/*
|
|
* Print authoritative answer records
|
|
*/
|
|
if (n = ntohs(hp->ancount)) {
|
|
fprintf(file,"ANSWERS:\n");
|
|
while (--n >= 0) {
|
|
fprintf(file,"\t");
|
|
cp = p_rr(cp, msg, file);
|
|
if (cp == NULL)
|
|
return;
|
|
}
|
|
}
|
|
/*
|
|
* print name server records
|
|
*/
|
|
if (n = ntohs(hp->nscount)) {
|
|
fprintf(file,"NAME SERVERS:\n");
|
|
while (--n >= 0) {
|
|
fprintf(file,"\t");
|
|
cp = p_rr(cp, msg, file);
|
|
if (cp == NULL)
|
|
return;
|
|
}
|
|
}
|
|
/*
|
|
* print additional records
|
|
*/
|
|
if (n = ntohs(hp->arcount)) {
|
|
fprintf(file,"ADDITIONAL RECORDS:\n");
|
|
while (--n >= 0) {
|
|
fprintf(file,"\t");
|
|
cp = p_rr(cp, msg, file);
|
|
if (cp == NULL)
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
|
|
char *
|
|
p_cdname(cp, msg, file)
|
|
char *cp, *msg;
|
|
FILE *file;
|
|
{
|
|
char name[MAXDNAME];
|
|
int n;
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_cdname entered\n"));
|
|
}
|
|
|
|
if ((n = dn_expand(msg, msg + 512, cp, name, sizeof(name))) < 0)
|
|
return (NULL);
|
|
if (name[0] == '\0') {
|
|
name[0] = '.';
|
|
name[1] = '\0';
|
|
}
|
|
fputs(name, file);
|
|
return (cp + n);
|
|
}
|
|
|
|
/*
|
|
* Print resource record fields in human readable form.
|
|
*/
|
|
char *
|
|
p_rr(cp, msg, file)
|
|
char *cp, *msg;
|
|
FILE *file;
|
|
{
|
|
int type, class, dlen, n, c;
|
|
struct in_addr inaddr;
|
|
char *cp1, *cp2;
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_rr entered\n"));
|
|
}
|
|
|
|
if ((cp = p_cdname(cp, msg, file)) == NULL)
|
|
return (NULL); /* compression error */
|
|
fprintf(file,"\n\ttype = %s", p_type(type = _getshort(cp)));
|
|
cp += sizeof(u_short);
|
|
fprintf(file,", class = %s", p_class(class = _getshort(cp)));
|
|
cp += sizeof(u_short);
|
|
fprintf(file,", ttl = %s", p_time(_getlong(cp)));
|
|
cp += sizeof(u_long);
|
|
fprintf(file,", 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:
|
|
case C_HS:
|
|
bcopy(cp, (char *)&inaddr, sizeof(inaddr));
|
|
if (dlen == 4) {
|
|
fprintf(file,"\tinternet address = %s\n",
|
|
inet_ntoa(inaddr));
|
|
cp += dlen;
|
|
} else if (dlen == 7) {
|
|
fprintf(file,"\tinternet address = %s",
|
|
inet_ntoa(inaddr));
|
|
fprintf(file,", protocol = %d", cp[4]);
|
|
fprintf(file,", port = %d\n",
|
|
(cp[5] << 8) + cp[6]);
|
|
cp += dlen;
|
|
}
|
|
break;
|
|
default:
|
|
cp += dlen;
|
|
}
|
|
break;
|
|
case T_CNAME:
|
|
case T_MB:
|
|
case T_MG:
|
|
case T_MR:
|
|
case T_NS:
|
|
case T_PTR:
|
|
fprintf(file,"\tdomain name = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
fprintf(file,"\n");
|
|
break;
|
|
|
|
case T_HINFO:
|
|
if (n = *cp++) {
|
|
fprintf(file,"\tCPU=%.*s\n", n, cp);
|
|
cp += n;
|
|
}
|
|
if (n = *cp++) {
|
|
fprintf(file,"\tOS=%.*s\n", n, cp);
|
|
cp += n;
|
|
}
|
|
break;
|
|
|
|
case T_SOA:
|
|
fprintf(file,"\torigin = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
fprintf(file,"\n\tmail addr = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
fprintf(file,"\n\tserial = %ld", _getlong(cp));
|
|
cp += sizeof(u_long);
|
|
fprintf(file,"\n\trefresh = %s", p_time(_getlong(cp)));
|
|
cp += sizeof(u_long);
|
|
fprintf(file,"\n\tretry = %s", p_time(_getlong(cp)));
|
|
cp += sizeof(u_long);
|
|
fprintf(file,"\n\texpire = %s", p_time(_getlong(cp)));
|
|
cp += sizeof(u_long);
|
|
fprintf(file,"\n\tmin = %s\n", p_time(_getlong(cp)));
|
|
cp += sizeof(u_long);
|
|
break;
|
|
|
|
case T_MX:
|
|
fprintf(file,"\tpreference = %ld,",_getshort(cp));
|
|
cp += sizeof(u_short);
|
|
fprintf(file," name = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
break;
|
|
|
|
case T_AFSDB:
|
|
fprintf(file,"\tsubtype = %ld,",_getshort(cp));
|
|
cp += sizeof(u_short);
|
|
fprintf(file," name = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
break;
|
|
|
|
case T_TXT:
|
|
(void) fputs("\t\"", file);
|
|
cp2 = cp1 + dlen;
|
|
while (cp < cp2) {
|
|
if (n = (unsigned char) *cp++) {
|
|
for (c = n; c > 0 && cp < cp2; c--)
|
|
if (*cp == '\n') {
|
|
(void) putc('\\', file);
|
|
(void) putc(*cp++, file);
|
|
} else
|
|
(void) putc(*cp++, file);
|
|
}
|
|
}
|
|
(void) fputs("\"\n", file);
|
|
break;
|
|
|
|
case T_MINFO:
|
|
fprintf(file,"\trequests = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
fprintf(file,"\n\terrors = ");
|
|
cp = p_cdname(cp, msg, file);
|
|
break;
|
|
|
|
case T_UINFO:
|
|
fprintf(file,"\t%s\n", cp);
|
|
cp += dlen;
|
|
break;
|
|
|
|
case T_UID:
|
|
case T_GID:
|
|
if (dlen == 4) {
|
|
fprintf(file,"\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);
|
|
fprintf(file,"\tinternet address = %s, protocol = %d\n\t",
|
|
inet_ntoa(inaddr), *cp++);
|
|
n = 0;
|
|
while (cp < cp1 + dlen) {
|
|
c = *cp++;
|
|
do {
|
|
if (c & 0200)
|
|
fprintf(file," %d", n);
|
|
c <<= 1;
|
|
} while (++n & 07);
|
|
}
|
|
putc('\n',file);
|
|
break;
|
|
|
|
#ifdef ALLOW_T_UNSPEC
|
|
case T_UNSPEC:
|
|
{
|
|
int NumBytes = 8;
|
|
char *DataPtr;
|
|
int i;
|
|
|
|
if (dlen < NumBytes) NumBytes = dlen;
|
|
fprintf(file, "\tFirst %d bytes of hex data:",
|
|
NumBytes);
|
|
for (i = 0, DataPtr = cp; i < NumBytes; i++, DataPtr++)
|
|
fprintf(file, " %x", *DataPtr);
|
|
fputs("\n", file);
|
|
cp += dlen;
|
|
}
|
|
break;
|
|
#endif /* ALLOW_T_UNSPEC */
|
|
|
|
default:
|
|
fprintf(file,"\t???\n");
|
|
cp += dlen;
|
|
}
|
|
if (cp != cp1 + dlen) {
|
|
fprintf(file,"packet size error (%#x != %#x)\n", cp, cp1+dlen);
|
|
cp = NULL;
|
|
}
|
|
fprintf(file,"\n");
|
|
return (cp);
|
|
}
|
|
|
|
static char nbuf[40];
|
|
|
|
/*
|
|
* Return a string for the type
|
|
*/
|
|
char *
|
|
p_type(type)
|
|
int type;
|
|
{
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_type entered\n"));
|
|
}
|
|
|
|
switch (type) {
|
|
case T_A:
|
|
return("A");
|
|
case T_NS: /* authoritative server */
|
|
return("NS");
|
|
case T_CNAME: /* canonical 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_MX: /* mail routing info */
|
|
return("MX");
|
|
case T_TXT: /* text */
|
|
return("TXT");
|
|
case T_AFSDB: /* distributed file system */
|
|
return("AFSDB");
|
|
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");
|
|
#ifdef ALLOW_T_UNSPEC
|
|
case T_UNSPEC:
|
|
return("UNSPEC");
|
|
#endif /* ALLOW_T_UNSPEC */
|
|
default:
|
|
(void)wsprintfA(nbuf, "%d", type);
|
|
return(nbuf);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Return a mnemonic for class
|
|
*/
|
|
char *
|
|
p_class(class)
|
|
int class;
|
|
{
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_class entered\n"));
|
|
}
|
|
|
|
switch (class) {
|
|
case C_IN: /* internet class */
|
|
return("IN");
|
|
case C_CHAOS: /* chaos class */
|
|
return("CHAOS");
|
|
case C_HS: /* hesiod class */
|
|
return("HS");
|
|
case C_ANY: /* matches any class */
|
|
return("ANY");
|
|
default:
|
|
(void)wsprintfA(nbuf, "%d", class);
|
|
return(nbuf);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Return a mnemonic for a time to live
|
|
*/
|
|
char *
|
|
p_time(value)
|
|
u_long value;
|
|
{
|
|
int secs, mins, hours;
|
|
register char *p;
|
|
|
|
IF_DEBUG(RESOLVER) {
|
|
WS_PRINT(("p_time entered\n"));
|
|
}
|
|
|
|
if (value == 0) {
|
|
strcpy(nbuf, "0 secs");
|
|
return(nbuf);
|
|
}
|
|
|
|
secs = value % 60;
|
|
value /= 60;
|
|
mins = value % 60;
|
|
value /= 60;
|
|
hours = value % 24;
|
|
value /= 24;
|
|
|
|
#define PLURALIZE(x) x, (x == 1) ? "" : "s"
|
|
p = nbuf;
|
|
if (value) {
|
|
(void)wsprintfA(p, "%d day%s", PLURALIZE(value));
|
|
while (*++p);
|
|
}
|
|
if (hours) {
|
|
if (value)
|
|
*p++ = ' ';
|
|
(void)wsprintfA(p, "%d hour%s", PLURALIZE(hours));
|
|
while (*++p);
|
|
}
|
|
if (mins) {
|
|
if (value || hours)
|
|
*p++ = ' ';
|
|
(void)wsprintfA(p, "%d min%s", PLURALIZE(mins));
|
|
while (*++p);
|
|
}
|
|
if (secs || ! (value || hours || mins)) {
|
|
if (value || hours || mins)
|
|
*p++ = ' ';
|
|
(void)wsprintfA(p, "%d sec%s", PLURALIZE(secs));
|
|
}
|
|
return(nbuf);
|
|
}
|