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