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