?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
hammer2 - update documentation, cleanup
[dragonfly.git] / sbin / routed / trace.c
blob7fbe7e75d0feb249b3a21f55ce118ea50b41774e
1 /*
2 * Copyright (c) 1983, 1988, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
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 acknowledgment:
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.
20 *
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.
32 *
33 * $FreeBSD: src/sbin/routed/trace.c,v 1.5.2.1 2002/11/07 17:19:13 imp Exp $
34 */
35
36 #define RIPCMDS
37 #include "defs.h"
38 #include "pathnames.h"
39 #include <sys/stat.h>
40 #include <sys/signal.h>
41 #include <fcntl.h>
42
43 #if !defined(sgi) && !defined(__NetBSD__)
44 static char sccsid[] __attribute__((unused)) = "@(#)trace.c 8.1 (Berkeley) 6/5/93";
45 #elif defined(__NetBSD__)
46 __RCSID("$NetBSD$");
47 #endif
48
49
50 #ifdef sgi
51 /* use *stat64 for files on large filesystems */
52 #define stat stat64
53 #endif
54
55 #define NRECORDS 50 /* size of circular trace buffer */
56
57 int tracelevel, new_tracelevel;
58 FILE *ftrace; /* output trace file */
59 static const char *sigtrace_pat = "%s";
60 static char savetracename[MAXPATHLEN+1];
61 char inittracename[MAXPATHLEN+1];
62 int file_trace; /* 1=tracing to file, not stdout */
63
64 static void trace_dump(void);
65 static void tmsg(const char *, ...) PATTRIB(1,2);
66
67
68 /* convert string to printable characters
69 */
70 static char *
71 qstring(u_char *s, int len)
72 {
73 static char buf[8*20+1];
74 char *p;
75 u_char *s2, c;
76
77
78 for (p = buf; len != 0 && p < &buf[sizeof(buf)-1]; len--) {
79 c = *s++;
80 if (c == '\0') {
81 for (s2 = s+1; s2 < &s[len]; s2++) {
82 if (*s2 != '\0')
83 break;
84 }
85 if (s2 >= &s[len])
86 goto exit;
87 }
88
89 if (c >= ' ' && c < 0x7f && c != '\\') {
90 *p++ = c;
91 continue;
92 }
93 *p++ = '\\';
94 switch (c) {
95 case '\\':
96 *p++ = '\\';
97 break;
98 case '\n':
99 *p++= 'n';
100 break;
101 case '\r':
102 *p++= 'r';
103 break;
104 case '\t':
105 *p++ = 't';
106 break;
107 case '\b':
108 *p++ = 'b';
109 break;
110 default:
111 p += sprintf(p,"%o",c);
112 break;
113 }
114 }
115 exit:
116 *p = '\0';
117 return buf;
118 }
119
120
121 /* convert IP address to a string, but not into a single buffer
122 */
123 char *
124 naddr_ntoa(naddr a)
125 {
126 #define NUM_BUFS 4
127 static int bufno;
128 static struct {
129 char str[16]; /* xxx.xxx.xxx.xxx\0 */
130 } bufs[NUM_BUFS];
131 char *s;
132 struct in_addr addr;
133
134 addr.s_addr = a;
135 s = strcpy(bufs[bufno].str, inet_ntoa(addr));
136 bufno = (bufno+1) % NUM_BUFS;
137 return s;
138 #undef NUM_BUFS
139 }
140
141
142 const char *
143 saddr_ntoa(struct sockaddr *sa)
144 {
145 return (sa == NULL) ? "?" : naddr_ntoa(S_ADDR(sa));
146 }
147
148
149 static char *
150 ts(time_t secs) {
151 static char s[20];
152
153 secs += epoch.tv_sec;
154 #ifdef sgi
155 cftime(s, "%T", &secs);
156 #else
157 memcpy(s, ctime(&secs)+11, 8);
158 s[8] = '\0';
159 #endif
160 return s;
161 }
162
163
164 /* On each event, display a time stamp.
165 * This assumes that 'now' is update once for each event, and
166 * that at least now.tv_usec changes.
167 */
168 static struct timeval lastlog_time;
169
170 void
171 lastlog(void)
172 {
173 if (lastlog_time.tv_sec != now.tv_sec
174 || lastlog_time.tv_usec != now.tv_usec) {
175 fprintf(ftrace, "-- %s --\n", ts(now.tv_sec));
176 lastlog_time = now;
177 }
178 }
179
180
181 static void
182 tmsg(const char *p, ...)
183 {
184 va_list args;
185
186 if (ftrace != NULL) {
187 lastlog();
188 va_start(args, p);
189 vfprintf(ftrace, p, args);
190 fputc('\n',ftrace);
191 fflush(ftrace);
192 }
193 }
194
195
196 void
197 trace_close(int zap_stdio)
198 {
199 int fd;
200
201
202 fflush(stdout);
203 fflush(stderr);
204
205 if (ftrace != NULL && zap_stdio) {
206 if (ftrace != stdout)
207 fclose(ftrace);
208 ftrace = NULL;
209 fd = open(_PATH_DEVNULL, O_RDWR);
210 if (isatty(STDIN_FILENO))
211 dup2(fd, STDIN_FILENO);
212 if (isatty(STDOUT_FILENO))
213 dup2(fd, STDOUT_FILENO);
214 if (isatty(STDERR_FILENO))
215 dup2(fd, STDERR_FILENO);
216 close(fd);
217 }
218 lastlog_time.tv_sec = 0;
219 }
220
221
222 void
223 trace_flush(void)
224 {
225 if (ftrace != NULL) {
226 fflush(ftrace);
227 if (ferror(ftrace))
228 trace_off("tracing off: %s", strerror(ferror(ftrace)));
229 }
230 }
231
232
233 void
234 trace_off(const char *p, ...)
235 {
236 va_list args;
237
238
239 if (ftrace != NULL) {
240 lastlog();
241 va_start(args, p);
242 vfprintf(ftrace, p, args);
243 fputc('\n',ftrace);
244 }
245 trace_close(file_trace);
246
247 new_tracelevel = tracelevel = 0;
248 }
249
250
251 /* log a change in tracing
252 */
253 void
254 tracelevel_msg(const char *pat,
255 int dump) /* -1=no dump, 0=default, 1=force */
256 {
257 static const char *off_msgs[MAX_TRACELEVEL] = {
258 "Tracing actions stopped",
259 "Tracing packets stopped",
260 "Tracing packet contents stopped",
261 "Tracing kernel changes stopped",
262 };
263 static const char *on_msgs[MAX_TRACELEVEL] = {
264 "Tracing actions started",
265 "Tracing packets started",
266 "Tracing packet contents started",
267 "Tracing kernel changes started",
268 };
269 u_int old_tracelevel = tracelevel;
270
271
272 if (new_tracelevel < 0)
273 new_tracelevel = 0;
274 else if (new_tracelevel > MAX_TRACELEVEL)
275 new_tracelevel = MAX_TRACELEVEL;
276
277 if (new_tracelevel < tracelevel) {
278 if (new_tracelevel <= 0) {
279 trace_off(pat, off_msgs[0]);
280 } else do {
281 tmsg(pat, off_msgs[tracelevel]);
282 }
283 while (--tracelevel != new_tracelevel);
284
285 } else if (new_tracelevel > tracelevel) {
286 do {
287 tmsg(pat, on_msgs[tracelevel++]);
288 } while (tracelevel != new_tracelevel);
289 }
290
291 if (dump > 0
292 || (dump == 0 && old_tracelevel == 0 && tracelevel != 0))
293 trace_dump();
294 }
295
296
297 void
298 set_tracefile(const char *filename,
299 const char *pat,
300 int dump) /* -1=no dump, 0=default, 1=force */
301 {
302 struct stat stbuf;
303 FILE *n_ftrace;
304 const char *fn;
305
306
307 /* Allow a null filename to increase the level if the trace file
308 * is already open or if coming from a trusted source, such as
309 * a signal or the command line.
310 */
311 if (filename == NULL || filename[0] == '\0') {
312 filename = NULL;
313 if (ftrace == NULL) {
314 if (inittracename[0] == '\0') {
315 msglog("missing trace file name");
316 return;
317 }
318 fn = inittracename;
319 } else {
320 fn = NULL;
321 }
322
323 } else if (!strcmp(filename,"dump/../table")) {
324 trace_dump();
325 return;
326
327 } else {
328 /* Allow the file specified with "-T file" to be reopened,
329 * but require all other names specified over the net to
330 * match the official path. The path can specify a directory
331 * in which the file is to be created.
332 */
333 if (strcmp(filename, inittracename)
334 #ifdef _PATH_TRACE
335 && (strncmp(filename, _PATH_TRACE, sizeof(_PATH_TRACE)-1)
336 || strstr(filename,"../")
337 || 0 > stat(_PATH_TRACE, &stbuf))
338 #endif
339 ) {
340 msglog("wrong trace file \"%s\"", filename);
341 return;
342 }
343
344 /* If the new tracefile exists, it must be a regular file.
345 */
346 if (stat(filename, &stbuf) >= 0 && !S_ISREG(stbuf.st_mode)) {
347 msglog("wrong type (%#x) of trace file \"%s\"",
348 stbuf.st_mode, filename);
349 return;
350 }
351
352 fn = filename;
353 }
354
355 if (fn != NULL) {
356 n_ftrace = fopen(fn, "a");
357 if (n_ftrace == NULL) {
358 msglog("failed to open trace file \"%s\" %s",
359 fn, strerror(errno));
360 if (fn == inittracename)
361 inittracename[0] = '\0';
362 return;
363 }
364
365 tmsg("switch to trace file %s", fn);
366
367 trace_close(file_trace = 1);
368
369 if (fn != savetracename)
370 strncpy(savetracename, fn, sizeof(savetracename)-1);
371 ftrace = n_ftrace;
372
373 fflush(stdout);
374 fflush(stderr);
375 dup2(fileno(ftrace), STDOUT_FILENO);
376 dup2(fileno(ftrace), STDERR_FILENO);
377 }
378
379 if (new_tracelevel == 0 || filename == NULL)
380 new_tracelevel++;
381 tracelevel_msg(pat, dump != 0 ? dump : (filename != NULL));
382 }
383
384
385 /* ARGSUSED */
386 void
387 sigtrace_on(int s UNUSED)
388 {
389 new_tracelevel++;
390 sigtrace_pat = "SIGUSR1: %s";
391 }
392
393
394 /* ARGSUSED */
395 void
396 sigtrace_off(int s UNUSED)
397 {
398 new_tracelevel--;
399 sigtrace_pat = "SIGUSR2: %s";
400 }
401
402
403 /* Set tracing after a signal.
404 */
405 void
406 set_tracelevel(void)
407 {
408 if (new_tracelevel == tracelevel)
409 return;
410
411 /* If tracing entirely off, and there was no tracefile specified
412 * on the command line, then leave it off.
413 */
414 if (new_tracelevel > tracelevel && ftrace == NULL) {
415 if (savetracename[0] != '\0') {
416 set_tracefile(savetracename,sigtrace_pat,0);
417 } else if (inittracename[0] != '\0') {
418 set_tracefile(inittracename,sigtrace_pat,0);
419 } else {
420 new_tracelevel = 0;
421 return;
422 }
423 } else {
424 tracelevel_msg(sigtrace_pat, 0);
425 }
426 }
427
428
429 /* display an address
430 */
431 char *
432 addrname(naddr addr, /* in network byte order */
433 naddr mask,
434 int force) /* 0=show mask if nonstandard, */
435 { /* 1=always show mask, 2=never */
436 #define NUM_BUFS 4
437 static int bufno;
438 static struct {
439 char str[15+20];
440 } bufs[NUM_BUFS];
441 char *s, *sp;
442 naddr dmask;
443 int i;
444
445 s = strcpy(bufs[bufno].str, naddr_ntoa(addr));
446 bufno = (bufno+1) % NUM_BUFS;
447
448 if (force == 1 || (force == 0 && mask != std_mask(addr))) {
449 sp = &s[strlen(s)];
450
451 dmask = mask & -mask;
452 if (mask + dmask == 0) {
453 for (i = 0; i != 32 && ((1<<i) & mask) == 0; i++)
454 continue;
455 sprintf(sp, "/%d", 32-i);
456
457 } else {
458 sprintf(sp, " (mask %#x)", (u_int)mask);
459 }
460 }
461
462 return s;
463 #undef NUM_BUFS
464 }
465
466
467 /* display a bit-field
468 */
469 struct bits {
470 u_int bits_mask;
471 u_int bits_clear;
472 const char *bits_name;
473 };
474
475 static struct bits if_bits[] = {
476 { IFF_LOOPBACK, 0, "LOOPBACK" },
477 { IFF_POINTOPOINT, 0, "PT-TO-PT" },
478 { 0, 0, 0}
479 };
480
481 static struct bits is_bits[] = {
482 { IS_ALIAS, 0, "ALIAS" },
483 { IS_SUBNET, 0, "" },
484 { IS_REMOTE, (IS_NO_RDISC
485 | IS_BCAST_RDISC), "REMOTE" },
486 { IS_PASSIVE, (IS_NO_RDISC
487 | IS_NO_RIP
488 | IS_NO_SUPER_AG
489 | IS_PM_RDISC
490 | IS_NO_AG), "PASSIVE" },
491 { IS_EXTERNAL, 0, "EXTERNAL" },
492 { IS_CHECKED, 0, "" },
493 { IS_ALL_HOSTS, 0, "" },
494 { IS_ALL_ROUTERS, 0, "" },
495 { IS_DISTRUST, 0, "DISTRUST" },
496 { IS_BROKE, IS_SICK, "BROKEN" },
497 { IS_SICK, 0, "SICK" },
498 { IS_DUP, 0, "DUPLICATE" },
499 { IS_REDIRECT_OK, 0, "REDIRECT_OK" },
500 { IS_NEED_NET_SYN, 0, "" },
501 { IS_NO_AG, IS_NO_SUPER_AG, "NO_AG" },
502 { IS_NO_SUPER_AG, 0, "NO_SUPER_AG" },
503 { (IS_NO_RIPV1_IN
504 | IS_NO_RIPV2_IN
505 | IS_NO_RIPV1_OUT
506 | IS_NO_RIPV2_OUT), 0, "NO_RIP" },
507 { (IS_NO_RIPV1_IN
508 | IS_NO_RIPV1_OUT), 0, "RIPV2" },
509 { IS_NO_RIPV1_IN, 0, "NO_RIPV1_IN" },
510 { IS_NO_RIPV2_IN, 0, "NO_RIPV2_IN" },
511 { IS_NO_RIPV1_OUT, 0, "NO_RIPV1_OUT" },
512 { IS_NO_RIPV2_OUT, 0, "NO_RIPV2_OUT" },
513 { (IS_NO_ADV_IN
514 | IS_NO_SOL_OUT
515 | IS_NO_ADV_OUT), IS_BCAST_RDISC, "NO_RDISC" },
516 { IS_NO_SOL_OUT, 0, "NO_SOLICIT" },
517 { IS_SOL_OUT, 0, "SEND_SOLICIT" },
518 { IS_NO_ADV_OUT, IS_BCAST_RDISC, "NO_RDISC_ADV" },
519 { IS_ADV_OUT, 0, "RDISC_ADV" },
520 { IS_BCAST_RDISC, 0, "BCAST_RDISC" },
521 { IS_PM_RDISC, 0, "" },
522 { 0, 0, "%#x"}
523 };
524
525 static struct bits rs_bits[] = {
526 { RS_IF, 0, "IF" },
527 { RS_NET_INT, RS_NET_SYN, "NET_INT" },
528 { RS_NET_SYN, 0, "NET_SYN" },
529 { RS_SUBNET, 0, "" },
530 { RS_LOCAL, 0, "LOCAL" },
531 { RS_MHOME, 0, "MHOME" },
532 { RS_STATIC, 0, "STATIC" },
533 { RS_RDISC, 0, "RDISC" },
534 { 0, 0, "%#x"}
535 };
536
537
538 static void
539 trace_bits(const struct bits *tbl,
540 u_int field,
541 int force)
542 {
543 u_int b;
544 char c;
545
546 if (force) {
547 putc('<', ftrace);
548 c = 0;
549 } else {
550 c = '<';
551 }
552
553 while (field != 0
554 && (b = tbl->bits_mask) != 0) {
555 if ((b & field) == b) {
556 if (tbl->bits_name[0] != '\0') {
557 if (c)
558 putc(c, ftrace);
559 fprintf(ftrace, "%s", tbl->bits_name);
560 c = '|';
561 }
562 if (0 == (field &= ~(b | tbl->bits_clear)))
563 break;
564 }
565 tbl++;
566 }
567 if (field != 0 && tbl->bits_name != NULL) {
568 if (c)
569 putc(c, ftrace);
570 fprintf(ftrace, tbl->bits_name, field);
571 c = '|';
572 }
573
574 if (c != '<' || force)
575 fputs("> ", ftrace);
576 }
577
578
579 char *
580 rtname(naddr dst,
581 naddr mask,
582 naddr gate)
583 {
584 static char buf[3*4+3+1+2+3 /* "xxx.xxx.xxx.xxx/xx-->" */
585 +3*4+3+1]; /* "xxx.xxx.xxx.xxx" */
586 int i;
587
588 i = sprintf(buf, "%-16s-->", addrname(dst, mask, 0));
589 sprintf(&buf[i], "%-*s", 15+20-MAX(20,i), naddr_ntoa(gate));
590 return buf;
591 }
592
593
594 static void
595 print_rts(struct rt_spare *rts,
596 int force_metric, /* -1=suppress, 0=default */
597 int force_ifp, /* -1=suppress, 0=default */
598 int force_router, /* -1=suppress, 0=default, 1=display */
599 int force_tag, /* -1=suppress, 0=default, 1=display */
600 int force_time) /* 0=suppress, 1=display */
601 {
602 int i;
603
604
605 if (force_metric >= 0)
606 fprintf(ftrace, "metric=%-2d ", rts->rts_metric);
607 if (force_ifp >= 0)
608 fprintf(ftrace, "%s ", (rts->rts_ifp == 0 ?
609 "if?" : rts->rts_ifp->int_name));
610 if (force_router > 0
611 || (force_router == 0 && rts->rts_router != rts->rts_gate))
612 fprintf(ftrace, "router=%s ", naddr_ntoa(rts->rts_router));
613 if (force_time > 0)
614 fprintf(ftrace, "%s ", ts(rts->rts_time));
615 if (force_tag > 0
616 || (force_tag == 0 && rts->rts_tag != 0))
617 fprintf(ftrace, "tag=%#x ", ntohs(rts->rts_tag));
618 if (rts->rts_de_ag != 0) {
619 for (i = 1; (u_int)(1 << i) <= rts->rts_de_ag; i++)
620 continue;
621 fprintf(ftrace, "de_ag=%d ", i);
622 }
623
624 }
625
626
627 void
628 trace_if(const char *act,
629 struct interface *ifp)
630 {
631 if (!TRACEACTIONS || ftrace == NULL)
632 return;
633
634 lastlog();
635 fprintf(ftrace, "%-3s interface %-4s ", act, ifp->int_name);
636 fprintf(ftrace, "%-15s-->%-15s ",
637 naddr_ntoa(ifp->int_addr),
638 addrname(((ifp->int_if_flags & IFF_POINTOPOINT)
639 ? ifp->int_dstaddr : htonl(ifp->int_net)),
640 ifp->int_mask, 1));
641 if (ifp->int_metric != 0)
642 fprintf(ftrace, "metric=%d ", ifp->int_metric);
643 if (!IS_RIP_OUT_OFF(ifp->int_state)
644 && ifp->int_d_metric != 0)
645 fprintf(ftrace, "fake_default=%d ", ifp->int_d_metric);
646 trace_bits(if_bits, ifp->int_if_flags, 0);
647 trace_bits(is_bits, ifp->int_state, 0);
648 fputc('\n',ftrace);
649 }
650
651
652 void
653 trace_upslot(struct rt_entry *rt,
654 struct rt_spare *rts,
655 struct rt_spare *new)
656 {
657 if (!TRACEACTIONS || ftrace == NULL)
658 return;
659
660 if (rts->rts_gate == new->rts_gate
661 && rts->rts_router == new->rts_router
662 && rts->rts_metric == new->rts_metric
663 && rts->rts_tag == new->rts_tag
664 && rts->rts_de_ag == new->rts_de_ag)
665 return;
666
667 lastlog();
668 if (new->rts_gate == 0) {
669 fprintf(ftrace, "Del #%d %-35s ",
670 (int)(rts - rt->rt_spares),
671 rtname(rt->rt_dst, rt->rt_mask, rts->rts_gate));
672 print_rts(rts, 0,0,0,0,
673 (rts != rt->rt_spares
674 || AGE_RT(rt->rt_state,new->rts_ifp)));
675
676 } else if (rts->rts_gate != RIP_DEFAULT) {
677 fprintf(ftrace, "Chg #%d %-35s ",
678 (int)(rts - rt->rt_spares),
679 rtname(rt->rt_dst, rt->rt_mask, rts->rts_gate));
680 print_rts(rts, 0,0,
681 rts->rts_gate != new->rts_gate,
682 rts->rts_tag != new->rts_tag,
683 rts != rt->rt_spares || AGE_RT(rt->rt_state,
684 rt->rt_ifp));
685
686 fprintf(ftrace, "\n %19s%-16s ", "",
687 (new->rts_gate != rts->rts_gate
688 ? naddr_ntoa(new->rts_gate) : ""));
689 print_rts(new,
690 -(new->rts_metric == rts->rts_metric),
691 -(new->rts_ifp == rts->rts_ifp),
692 0,
693 rts->rts_tag != new->rts_tag,
694 (new->rts_time != rts->rts_time
695 && (rts != rt->rt_spares
696 || AGE_RT(rt->rt_state, new->rts_ifp))));
697
698 } else {
699 fprintf(ftrace, "Add #%d %-35s ",
700 (int)(rts - rt->rt_spares),
701 rtname(rt->rt_dst, rt->rt_mask, new->rts_gate));
702 print_rts(new, 0,0,0,0,
703 (rts != rt->rt_spares
704 || AGE_RT(rt->rt_state,new->rts_ifp)));
705 }
706 fputc('\n',ftrace);
707 }
708
709
710 /* miscellaneous message checked by the caller
711 */
712 void
713 trace_misc(const char *p, ...)
714 {
715 va_list args;
716
717 if (ftrace == NULL)
718 return;
719
720 lastlog();
721 va_start(args, p);
722 vfprintf(ftrace, p, args);
723 fputc('\n',ftrace);
724 }
725
726
727 /* display a message if tracing actions
728 */
729 void
730 trace_act(const char *p, ...)
731 {
732 va_list args;
733
734 if (!TRACEACTIONS || ftrace == NULL)
735 return;
736
737 lastlog();
738 va_start(args, p);
739 vfprintf(ftrace, p, args);
740 fputc('\n',ftrace);
741 }
742
743
744 /* display a message if tracing packets
745 */
746 void
747 trace_pkt(const char *p, ...)
748 {
749 va_list args;
750
751 if (!TRACEPACKETS || ftrace == NULL)
752 return;
753
754 lastlog();
755 va_start(args, p);
756 vfprintf(ftrace, p, args);
757 fputc('\n',ftrace);
758 }
759
760
761 void
762 trace_change(struct rt_entry *rt,
763 u_int state,
764 struct rt_spare *new,
765 const char *label)
766 {
767 if (ftrace == NULL)
768 return;
769
770 if (rt->rt_metric == new->rts_metric
771 && rt->rt_gate == new->rts_gate
772 && rt->rt_router == new->rts_router
773 && rt->rt_state == state
774 && rt->rt_tag == new->rts_tag
775 && rt->rt_de_ag == new->rts_de_ag)
776 return;
777
778 lastlog();
779 fprintf(ftrace, "%s %-35s ",
780 label, rtname(rt->rt_dst, rt->rt_mask, rt->rt_gate));
781 print_rts(rt->rt_spares,
782 0,0,0,0, AGE_RT(rt->rt_state, rt->rt_ifp));
783 trace_bits(rs_bits, rt->rt_state, rt->rt_state != state);
784
785 fprintf(ftrace, "\n%*s %19s%-16s ",
786 (int)strlen(label), "", "",
787 (rt->rt_gate != new->rts_gate
788 ? naddr_ntoa(new->rts_gate) : ""));
789 print_rts(new,
790 -(new->rts_metric == rt->rt_metric),
791 -(new->rts_ifp == rt->rt_ifp),
792 0,
793 rt->rt_tag != new->rts_tag,
794 (rt->rt_time != new->rts_time
795 && AGE_RT(rt->rt_state,new->rts_ifp)));
796 if (rt->rt_state != state)
797 trace_bits(rs_bits, state, 1);
798 fputc('\n',ftrace);
799 }
800
801
802 void
803 trace_add_del(const char * action, struct rt_entry *rt)
804 {
805 if (ftrace == NULL)
806 return;
807
808 lastlog();
809 fprintf(ftrace, "%s %-35s ",
810 action, rtname(rt->rt_dst, rt->rt_mask, rt->rt_gate));
811 print_rts(rt->rt_spares, 0,0,0,0,AGE_RT(rt->rt_state,rt->rt_ifp));
812 trace_bits(rs_bits, rt->rt_state, 0);
813 fputc('\n',ftrace);
814 }
815
816
817 /* ARGSUSED */
818 static int
819 walk_trace(struct radix_node *rn,
820 struct walkarg *w UNUSED)
821 {
822 #define RT ((struct rt_entry *)rn)
823 struct rt_spare *rts;
824 int i;
825
826 fprintf(ftrace, " %-35s ",
827 rtname(RT->rt_dst, RT->rt_mask, RT->rt_gate));
828 print_rts(&RT->rt_spares[0], 0,0,0,0, AGE_RT(RT->rt_state, RT->rt_ifp));
829 trace_bits(rs_bits, RT->rt_state, 0);
830 if (RT->rt_poison_time >= now_garbage
831 && RT->rt_poison_metric < RT->rt_metric)
832 fprintf(ftrace, "pm=%d@%s",
833 RT->rt_poison_metric, ts(RT->rt_poison_time));
834
835 rts = &RT->rt_spares[1];
836 for (i = 1; i < NUM_SPARES; i++, rts++) {
837 if (rts->rts_gate != RIP_DEFAULT) {
838 fprintf(ftrace,"\n #%d%15s%-16s ",
839 i, "", naddr_ntoa(rts->rts_gate));
840 print_rts(rts, 0,0,0,0,1);
841 }
842 }
843 fputc('\n',ftrace);
844
845 return 0;
846 }
847
848
849 static void
850 trace_dump(void)
851 {
852 struct interface *ifp;
853
854 if (ftrace == NULL)
855 return;
856 lastlog();
857
858 fputs("current daemon state:\n", ftrace);
859 for (ifp = ifnet; ifp != NULL; ifp = ifp->int_next)
860 trace_if("", ifp);
861 rn_walktree(rhead, walk_trace, 0);
862 }
863
864
865 void
866 trace_rip(const char *dir1, const char *dir2,
867 struct sockaddr_in *who,
868 struct interface *ifp,
869 struct rip *msg,
870 int size) /* total size of message */
871 {
872 struct netinfo *n, *lim;
873 # define NA ((struct netauth*)n)
874 int i, seen_route;
875
876 if (!TRACEPACKETS || ftrace == NULL)
877 return;
878
879 lastlog();
880 if (msg->rip_cmd >= RIPCMD_MAX
881 || msg->rip_vers == 0) {
882 fprintf(ftrace, "%s bad RIPv%d cmd=%d %s"
883 " %s.%d size=%d\n",
884 dir1, msg->rip_vers, msg->rip_cmd, dir2,
885 naddr_ntoa(who->sin_addr.s_addr),
886 ntohs(who->sin_port),
887 size);
888 return;
889 }
890
891 fprintf(ftrace, "%s RIPv%d %s %s %s.%d%s%s\n",
892 dir1, msg->rip_vers, ripcmds[msg->rip_cmd], dir2,
893 naddr_ntoa(who->sin_addr.s_addr), ntohs(who->sin_port),
894 ifp ? " via " : "", ifp ? ifp->int_name : "");
895 if (!TRACECONTENTS)
896 return;
897
898 seen_route = 0;
899 switch (msg->rip_cmd) {
900 case RIPCMD_REQUEST:
901 case RIPCMD_RESPONSE:
902 n = msg->rip_nets;
903 lim = (struct netinfo *)((char*)msg + size);
904 for (; n < lim; n++) {
905 if (!seen_route
906 && n->n_family == RIP_AF_UNSPEC
907 && ntohl(n->n_metric) == HOPCNT_INFINITY
908 && msg->rip_cmd == RIPCMD_REQUEST
909 && (n+1 == lim
910 || (n+2 == lim
911 && (n+1)->n_family == RIP_AF_AUTH))) {
912 fputs("\tQUERY ", ftrace);
913 if (n->n_dst != 0)
914 fprintf(ftrace, "%s ",
915 naddr_ntoa(n->n_dst));
916 if (n->n_mask != 0)
917 fprintf(ftrace, "mask=%#x ",
918 (u_int)ntohl(n->n_mask));
919 if (n->n_nhop != 0)
920 fprintf(ftrace, "nhop=%s ",
921 naddr_ntoa(n->n_nhop));
922 if (n->n_tag != 0)
923 fprintf(ftrace, "tag=%#x ",
924 ntohs(n->n_tag));
925 fputc('\n',ftrace);
926 continue;
927 }
928
929 if (n->n_family == RIP_AF_AUTH) {
930 if (NA->a_type == RIP_AUTH_PW
931 && n == msg->rip_nets) {
932 fprintf(ftrace, "\tPassword"
933 " Authentication:"
934 " \"%s\"\n",
935 qstring(NA->au.au_pw,
936 RIP_AUTH_PW_LEN));
937 continue;
938 }
939
940 if (NA->a_type == RIP_AUTH_MD5
941 && n == msg->rip_nets) {
942 fprintf(ftrace,
943 "\tMD5 Auth"
944 " pkt_len=%d KeyID=%u"
945 " auth_len=%d"
946 " seqno=%#x"
947 " rsvd=%#x,%#x\n",
948 ntohs(NA->au.a_md5.md5_pkt_len),
949 NA->au.a_md5.md5_keyid,
950 NA->au.a_md5.md5_auth_len,
951 (int)ntohl(NA->au.a_md5.md5_seqno),
952 (int)ntohs(NA->au.a_md5.rsvd[0]),
953 (int)ntohs(NA->au.a_md5.rsvd[1]));
954 continue;
955 }
956 fprintf(ftrace,
957 "\tAuthentication type %d: ",
958 ntohs(NA->a_type));
959 for (i = 0;
960 i < (int)sizeof(NA->au.au_pw);
961 i++)
962 fprintf(ftrace, "%02x ",
963 NA->au.au_pw[i]);
964 fputc('\n',ftrace);
965 continue;
966 }
967
968 seen_route = 1;
969 if (n->n_family != RIP_AF_INET) {
970 fprintf(ftrace,
971 "\t(af %d) %-18s mask=%#x ",
972 ntohs(n->n_family),
973 naddr_ntoa(n->n_dst),
974 (u_int)ntohl(n->n_mask));
975 } else if (msg->rip_vers == RIPv1) {
976 fprintf(ftrace, "\t%-18s ",
977 addrname(n->n_dst, ntohl(n->n_mask),
978 n->n_mask==0 ? 2 : 1));
979 } else {
980 fprintf(ftrace, "\t%-18s ",
981 addrname(n->n_dst, ntohl(n->n_mask),
982 n->n_mask==0 ? 2 : 0));
983 }
984 fprintf(ftrace, "metric=%-2d ",
985 (u_int)ntohl(n->n_metric));
986 if (n->n_nhop != 0)
987 fprintf(ftrace, " nhop=%s ",
988 naddr_ntoa(n->n_nhop));
989 if (n->n_tag != 0)
990 fprintf(ftrace, "tag=%#x", ntohs(n->n_tag));
991 fputc('\n',ftrace);
992 }
993 if (size != (char *)n - (char *)msg)
994 fprintf(ftrace, "truncated record, len %d\n", size);
995 break;
996
997 case RIPCMD_TRACEON:
998 fprintf(ftrace, "\tfile=\"%.*s\"\n", size-4,
999 msg->rip_tracefile);
1000 break;
1001
1002 case RIPCMD_TRACEOFF:
1003 break;
1004 }
1005 }
DragonFly BSD