Home | History | Annotate | Line # | Download | only in routed
trace.c revision 1.14 
      1 /*	$NetBSD: trace.c,v 1.14 1996/08/10 01:30:15 thorpej Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1983, 1988, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. All advertising materials mentioning features or use of this software
     16  *    must display the following acknowledgement:
     17  *	This product includes software developed by the University of
     18  *	California, Berkeley and its contributors.
     19  * 4. Neither the name of the University nor the names of its contributors
     20  *    may be used to endorse or promote products derived from this software
     21  *    without specific prior written permission.
     22  *
     23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33  * SUCH DAMAGE.
     34  */
     35 
     36 #if !defined(lint) && !defined(sgi)
     37 #if 0
     38 static char sccsid[] = "@(#)trace.c	8.1 (Berkeley) 6/5/93";
     39 #else
     40 static char rcsid[] = "$NetBSD: trace.c,v 1.14 1996/08/10 01:30:15 thorpej Exp $";
     41 #endif
     42 #endif /* not lint */
     43 
     44 #define	RIPCMDS
     45 #include "defs.h"
     46 #include "pathnames.h"
     47 #include <sys/stat.h>
     48 #include <sys/signal.h>
     49 #include <fcntl.h>
     50 
     51 
     52 #ifdef sgi
     53 /* use *stat64 for files on large filesystems */
     54 #define stat	stat64
     55 #endif
     56 
     57 #define	NRECORDS	50		/* size of circular trace buffer */
     58 
     59 u_int	tracelevel, new_tracelevel;
     60 FILE	*ftrace = stdout;		/* output trace file */
     61 static char *tracelevel_pat = "%s\n";
     62 
     63 char savetracename[MAXPATHLEN+1];
     64 
     65 
     66 /* convert IP address to a string, but not into a single buffer
     67  */
     68 char *
     69 naddr_ntoa(naddr a)
     70 {
     71 #define NUM_BUFS 4
     72 	static int i;
     73 	static struct {
     74 	    char    str[16];		/* xxx.xxx.xxx.xxx\0 */
     75 	} bufs[NUM_BUFS];
     76 	struct in_addr addr;
     77 	char *s;
     78 
     79 	addr.s_addr = a;
     80 	s = strcpy(bufs[i].str, inet_ntoa(addr));
     81 	i = (i+1) % NUM_BUFS;
     82 	return s;
     83 }
     84 
     85 
     86 char *
     87 saddr_ntoa(struct sockaddr *sa)
     88 {
     89 	return (sa == 0) ? "?" : naddr_ntoa(S_ADDR(sa));
     90 }
     91 
     92 
     93 static char *
     94 ts(time_t secs) {
     95 	static char s[20];
     96 
     97 	secs += epoch.tv_sec;
     98 #ifdef sgi
     99 	(void)cftime(s, "%T", &secs);
    100 #else
    101 	bcopy(ctime(&secs)+11, s, 8);
    102 	s[8] = '\0';
    103 #endif
    104 	return s;
    105 }
    106 
    107 
    108 /* On each event, display a time stamp.
    109  * This assumes that 'now' is update once for each event, and
    110  * that at least now.tv_usec changes.
    111  */
    112 void
    113 lastlog(void)
    114 {
    115 	static struct timeval last;
    116 
    117 	if (last.tv_sec != now.tv_sec
    118 	    || last.tv_usec != now.tv_usec) {
    119 		(void)fprintf(ftrace, "-- %s --\n", ts(now.tv_sec));
    120 		last = now;
    121 	}
    122 }
    123 
    124 
    125 static void
    126 tmsg(char *p, ...)
    127 {
    128 	va_list args;
    129 
    130 	if (ftrace != 0) {
    131 		lastlog();
    132 		va_start(args, p);
    133 		vfprintf(ftrace, p, args);
    134 		fflush(ftrace);
    135 	}
    136 }
    137 
    138 
    139 static void
    140 trace_close(void)
    141 {
    142 	int fd;
    143 
    144 
    145 	fflush(stdout);
    146 	fflush(stderr);
    147 
    148 	if (ftrace != 0
    149 	    && savetracename[0] != '\0') {
    150 		fd = open(_PATH_DEVNULL, O_RDWR);
    151 		(void)dup2(fd, STDOUT_FILENO);
    152 		(void)dup2(fd, STDERR_FILENO);
    153 		(void)close(fd);
    154 		fclose(ftrace);
    155 		ftrace = 0;
    156 	}
    157 }
    158 
    159 
    160 void
    161 trace_flush(void)
    162 {
    163 	if (ftrace != 0) {
    164 		fflush(ftrace);
    165 		if (ferror(ftrace))
    166 			trace_off("tracing off: ", strerror(ferror(ftrace)));
    167 	}
    168 }
    169 
    170 
    171 void
    172 trace_off(char *p, ...)
    173 {
    174 	va_list args;
    175 
    176 
    177 	if (ftrace != 0) {
    178 		lastlog();
    179 		va_start(args, p);
    180 		vfprintf(ftrace, p, args);
    181 		fflush(ftrace);
    182 	}
    183 	trace_close();
    184 
    185 	new_tracelevel = tracelevel = 0;
    186 }
    187 
    188 
    189 void
    190 trace_on(char *filename,
    191 	 int trusted)
    192 {
    193 	struct stat stbuf;
    194 	FILE *n_ftrace;
    195 
    196 
    197 	/* Given a null filename when tracing is already on, increase the
    198 	 * debugging level and re-open the file in case it has been unlinked.
    199 	 */
    200 	if (filename[0] == '\0') {
    201 		if (tracelevel != 0) {
    202 			new_tracelevel++;
    203 			tracelevel_pat = "trace command: %s\n";
    204 		} else if (savetracename[0] == '\0') {
    205 			msglog("missing trace file name");
    206 			return;
    207 		}
    208 		filename = savetracename;
    209 
    210 	} else if (stat(filename, &stbuf) >= 0) {
    211 		if (!trusted) {
    212 			msglog("trace file \"%s\" already exists");
    213 			return;
    214 		}
    215 		if ((stbuf.st_mode & S_IFMT) != S_IFREG) {
    216 			msglog("wrong type (%#x) of trace file \"%s\"",
    217 			       stbuf.st_mode, filename);
    218 			return;
    219 		}
    220 
    221 		if (!trusted
    222 		    && strcmp(filename, savetracename)
    223 		    && strncmp(filename, _PATH_TRACE, sizeof(_PATH_TRACE)-1)) {
    224 			msglog("wrong directory for trace file: \"%s\"",
    225 			       filename);
    226 			return;
    227 		}
    228 	}
    229 
    230 	n_ftrace = fopen(filename, "a");
    231 	if (n_ftrace == 0) {
    232 		msglog("failed to open trace file \"%s\" %s",
    233 		       filename, strerror(errno));
    234 		return;
    235 	}
    236 
    237 	tmsg("switch to trace file %s\n", filename);
    238 	trace_close();
    239 	if (filename != savetracename)
    240 		strncpy(savetracename, filename, sizeof(savetracename)-1);
    241 	ftrace = n_ftrace;
    242 
    243 	fflush(stdout);
    244 	fflush(stderr);
    245 	dup2(fileno(ftrace), STDOUT_FILENO);
    246 	dup2(fileno(ftrace), STDERR_FILENO);
    247 
    248 	if (new_tracelevel == 0)
    249 		new_tracelevel = 1;
    250 	set_tracelevel();
    251 }
    252 
    253 
    254 /* ARGSUSED */
    255 void
    256 sigtrace_on(int s)
    257 {
    258 	new_tracelevel++;
    259 	tracelevel_pat = "SIGUSR1: %s\n";
    260 }
    261 
    262 
    263 /* ARGSUSED */
    264 void
    265 sigtrace_off(int s)
    266 {
    267 	new_tracelevel--;
    268 	tracelevel_pat = "SIGUSR2: %s\n";
    269 }
    270 
    271 
    272 /* Move to next higher level of tracing when -t option processed or
    273  * SIGUSR1 is received.  Successive levels are:
    274  *	actions
    275  *	actions + packets
    276  *	actions + packets + contents
    277  */
    278 void
    279 set_tracelevel(void)
    280 {
    281 	static char *off_msgs[MAX_TRACELEVEL] = {
    282 		"Tracing actions stopped",
    283 		"Tracing packets stopped",
    284 		"Tracing packet contents stopped",
    285 	};
    286 	static char *on_msgs[MAX_TRACELEVEL] = {
    287 		"Tracing actions started",
    288 		"Tracing packets started",
    289 		"Tracing packet contents started",
    290 	};
    291 
    292 
    293 	if (new_tracelevel > MAX_TRACELEVEL) {
    294 		new_tracelevel = MAX_TRACELEVEL;
    295 		if (new_tracelevel == tracelevel) {
    296 			tmsg(tracelevel_pat, on_msgs[tracelevel-1]);
    297 			return;
    298 		}
    299 	}
    300 	while (new_tracelevel != tracelevel) {
    301 		if (new_tracelevel < tracelevel) {
    302 			if (--tracelevel == 0)
    303 				trace_off(tracelevel_pat, off_msgs[0]);
    304 			else
    305 				tmsg(tracelevel_pat, off_msgs[tracelevel]);
    306 		} else {
    307 			if (ftrace == 0) {
    308 				if (savetracename[0] != '\0')
    309 					trace_on(savetracename, 1);
    310 				else
    311 					ftrace = stdout;
    312 			}
    313 			tmsg(tracelevel_pat, on_msgs[tracelevel++]);
    314 		}
    315 	}
    316 	tracelevel_pat = "%s\n";
    317 }
    318 
    319 
    320 /* display an address
    321  */
    322 char *
    323 addrname(naddr	addr,			/* in network byte order */
    324 	 naddr	mask,
    325 	 int	force)			/* 0=show mask if nonstandard, */
    326 {					/*	1=always show mask, 2=never */
    327 	static char s[15+20];
    328 	char *sp;
    329 	naddr dmask;
    330 	int i;
    331 
    332 	(void)strcpy(s, naddr_ntoa(addr));
    333 
    334 	if (force == 1 || (force == 0 && mask != std_mask(addr))) {
    335 		sp = &s[strlen(s)];
    336 
    337 		dmask = mask & -mask;
    338 		if (mask + dmask == 0) {
    339 			for (i = 0; i != 32 && ((1<<i) & mask) == 0; i++)
    340 				continue;
    341 			(void)sprintf(sp, "/%d", 32-i);
    342 
    343 		} else {
    344 			(void)sprintf(sp, " (mask %#x)", mask);
    345 		}
    346 	}
    347 
    348 	return s;
    349 }
    350 
    351 
    352 /* display a bit-field
    353  */
    354 struct bits {
    355 	int	bits_mask;
    356 	int	bits_clear;
    357 	char	*bits_name;
    358 };
    359 
    360 static struct bits if_bits[] = {
    361 	{ IFF_LOOPBACK,		0,		"LOOPBACK" },
    362 	{ IFF_POINTOPOINT,	0,		"PT-TO-PT" },
    363 	{ 0,			0,		0}
    364 };
    365 
    366 static struct bits is_bits[] = {
    367 	{ IS_SUBNET,		0,		"" },
    368 	{ IS_REMOTE,		0,		"REMOTE" },
    369 	{ IS_PASSIVE,		(IS_NO_RDISC
    370 				 | IS_BCAST_RDISC
    371 				 | IS_NO_RIP
    372 				 | IS_NO_SUPER_AG
    373 				 | IS_PM_RDISC
    374 				 | IS_NO_AG),	"PASSIVE" },
    375 	{ IS_EXTERNAL,		0,		"EXTERNAL" },
    376 	{ IS_CHECKED,		0,		"" },
    377 	{ IS_ALL_HOSTS,		0,		"" },
    378 	{ IS_ALL_ROUTERS,	0,		"" },
    379 	{ IS_RIP_QUERIED,	0,		"" },
    380 	{ IS_BROKE,		IS_SICK,	"BROKEN" },
    381 	{ IS_SICK,		0,		"SICK" },
    382 	{ IS_ACTIVE,		0,		"ACTIVE" },
    383 	{ IS_NEED_NET_SYN,	0,		"" },
    384 	{ IS_NO_AG,		IS_NO_SUPER_AG,	"NO_AG" },
    385 	{ IS_NO_SUPER_AG,	0,		"NO_SUPER_AG" },
    386 	{ (IS_NO_RIPV1_IN
    387 	   | IS_NO_RIPV2_IN
    388 	   | IS_NO_RIPV1_OUT
    389 	   | IS_NO_RIPV2_OUT),	0,		"NO_RIP" },
    390 	{ (IS_NO_RIPV1_IN
    391 	   | IS_NO_RIPV1_OUT),	0,		"RIPV2" },
    392 	{ IS_NO_RIPV1_IN,	0,		"NO_RIPV1_IN" },
    393 	{ IS_NO_RIPV2_IN,	0,		"NO_RIPV2_IN" },
    394 	{ IS_NO_RIPV1_OUT,	0,		"NO_RIPV1_OUT" },
    395 	{ IS_NO_RIPV2_OUT,	0,		"NO_RIPV2_OUT" },
    396 	{ (IS_NO_ADV_IN
    397 	   | IS_NO_SOL_OUT
    398 	   | IS_NO_ADV_OUT),	IS_BCAST_RDISC,	"NO_RDISC" },
    399 	{ IS_NO_SOL_OUT,	0,		"NO_SOLICIT" },
    400 	{ IS_SOL_OUT,		0,		"SEND_SOLICIT" },
    401 	{ IS_NO_ADV_OUT,	IS_BCAST_RDISC,	"NO_RDISC_ADV" },
    402 	{ IS_ADV_OUT,		0,		"RDISC_ADV" },
    403 	{ IS_BCAST_RDISC,	0,		"BCAST_RDISC" },
    404 	{ IS_PM_RDISC,		0,		"PM_RDISC" },
    405 	{ 0,			0,		"%#x"}
    406 };
    407 
    408 static struct bits rs_bits[] = {
    409 	{ RS_IF,		0,		"IF" },
    410 	{ RS_NET_INT,		RS_NET_SYN,	"NET_INT" },
    411 	{ RS_NET_SYN,		0,		"NET_SYN" },
    412 	{ RS_SUBNET,		0,		"" },
    413 	{ RS_LOCAL,		0,		"LOCAL" },
    414 	{ RS_MHOME,		0,		"MHOME" },
    415 	{ RS_STATIC,		0,		"STATIC" },
    416 	{ RS_RDISC,		0,		"RDISC" },
    417 	{ 0,			0,		"%#x"}
    418 };
    419 
    420 
    421 static void
    422 trace_bits(struct bits *tbl,
    423 	   u_int field,
    424 	   int force)
    425 {
    426 	int b;
    427 	char c;
    428 
    429 	if (force) {
    430 		(void)putc('<', ftrace);
    431 		c = 0;
    432 	} else {
    433 		c = '<';
    434 	}
    435 
    436 	while (field != 0
    437 	       && (b = tbl->bits_mask) != 0) {
    438 		if ((b & field) == b) {
    439 			if (tbl->bits_name[0] != '\0') {
    440 				if (c)
    441 					(void)putc(c, ftrace);
    442 				(void)fprintf(ftrace, "%s", tbl->bits_name);
    443 				c = '|';
    444 			}
    445 			if (0 == (field &= ~(b | tbl->bits_clear)))
    446 				break;
    447 		}
    448 		tbl++;
    449 	}
    450 	if (field != 0 && tbl->bits_name != 0) {
    451 		if (c)
    452 			(void)putc(c, ftrace);
    453 		(void)fprintf(ftrace, tbl->bits_name, field);
    454 		c = '|';
    455 	}
    456 
    457 	if (c != '<' || force)
    458 		(void)fputs("> ", ftrace);
    459 }
    460 
    461 
    462 static char *
    463 trace_pair(naddr dst,
    464 	   naddr mask,
    465 	   char *gate)
    466 {
    467 	static char buf[3*4+3+1+2+3	/* "xxx.xxx.xxx.xxx/xx-->" */
    468 			+3*4+3+1];	/* "xxx.xxx.xxx.xxx" */
    469 	int i;
    470 
    471 	i = sprintf(buf, "%-16s-->", addrname(dst, mask, 0));
    472 	(void)sprintf(&buf[i], "%-*s", 15+20-MAX(20,i), gate);
    473 	return buf;
    474 }
    475 
    476 
    477 void
    478 trace_if(char *act,
    479 	  struct interface *ifp)
    480 {
    481 	if (!TRACEACTIONS || ftrace == 0)
    482 		return;
    483 
    484 	lastlog();
    485 	(void)fprintf(ftrace, "%s interface %-4s ", act, ifp->int_name);
    486 	(void)fprintf(ftrace, "%-15s --> %s ",
    487 		      naddr_ntoa(ifp->int_addr),
    488 		      ((ifp->int_if_flags & IFF_POINTOPOINT)
    489 		       ? naddr_ntoa(ifp->int_dstaddr)
    490 		       : addrname(htonl(ifp->int_net), ifp->int_mask, 0)));
    491 	(void)fprintf(ftrace, "metric=%d ", ifp->int_metric);
    492 	trace_bits(if_bits, ifp->int_if_flags, 0);
    493 	trace_bits(is_bits, ifp->int_state, 0);
    494 	(void)fputc('\n',ftrace);
    495 }
    496 
    497 
    498 void
    499 trace_upslot(struct rt_entry *rt,
    500 	     struct rt_spare *rts,
    501 	     naddr	gate,
    502 	     naddr	router,
    503 	     struct interface *ifp,
    504 	     int	metric,
    505 	     u_short	tag,
    506 	     time_t	new_time)
    507 {
    508 	if (!TRACEACTIONS || ftrace == 0)
    509 		return;
    510 	if (rts->rts_gate == gate
    511 	    && rts->rts_router == router
    512 	    && rts->rts_metric == metric
    513 	    && rts->rts_tag == tag)
    514 		return;
    515 
    516 	lastlog();
    517 	if (rts->rts_gate != RIP_DEFAULT) {
    518 		(void)fprintf(ftrace, "Chg #%d %-35s ",
    519 			      rts - rt->rt_spares,
    520 			      trace_pair(rt->rt_dst, rt->rt_mask,
    521 					 naddr_ntoa(rts->rts_gate)));
    522 		if (rts->rts_gate != rts->rts_gate)
    523 			(void)fprintf(ftrace, "router=%s ",
    524 				      naddr_ntoa(rts->rts_gate));
    525 		if (rts->rts_tag != 0)
    526 			(void)fprintf(ftrace, "tag=%#x ", rts->rts_tag);
    527 		(void)fprintf(ftrace, "metric=%-2d ", rts->rts_metric);
    528 		if (rts->rts_ifp != 0)
    529 			(void)fprintf(ftrace, "%s ",
    530 				      rts->rts_ifp->int_name);
    531 		(void)fprintf(ftrace, "%s\n", ts(rts->rts_time));
    532 
    533 		(void)fprintf(ftrace, "       %19s%-16s ",
    534 			      "",
    535 			      gate != rts->rts_gate ? naddr_ntoa(gate) : "");
    536 		if (gate != router)
    537 			(void)fprintf(ftrace,"router=%s ",naddr_ntoa(router));
    538 		if (tag != rts->rts_tag)
    539 			(void)fprintf(ftrace, "tag=%#x ", tag);
    540 		if (metric != rts->rts_metric)
    541 			(void)fprintf(ftrace, "metric=%-2d ", metric);
    542 		if (ifp != rts->rts_ifp && ifp != 0 )
    543 			(void)fprintf(ftrace, "%s ", ifp->int_name);
    544 		(void)fprintf(ftrace, "%s\n",
    545 			      new_time != rts->rts_time ? ts(new_time) : "");
    546 
    547 	} else {
    548 		(void)fprintf(ftrace, "Add #%d %-35s ",
    549 			      rts - rt->rt_spares,
    550 			      trace_pair(rt->rt_dst, rt->rt_mask,
    551 					 naddr_ntoa(gate)));
    552 		if (gate != router)
    553 			(void)fprintf(ftrace, "router=%s ", naddr_ntoa(gate));
    554 		if (tag != 0)
    555 			(void)fprintf(ftrace, "tag=%#x ", tag);
    556 		(void)fprintf(ftrace, "metric=%-2d ", metric);
    557 		if (ifp != 0)
    558 			(void)fprintf(ftrace, "%s ", ifp->int_name);
    559 		(void)fprintf(ftrace, "%s\n", ts(new_time));
    560 	}
    561 }
    562 
    563 
    564 /* display a message if tracing actions
    565  */
    566 void
    567 trace_act(char *p, ...)
    568 {
    569 	va_list args;
    570 
    571 	if (!TRACEACTIONS || ftrace == 0)
    572 		return;
    573 
    574 	lastlog();
    575 	va_start(args, p);
    576 	vfprintf(ftrace, p, args);
    577 }
    578 
    579 
    580 /* display a message if tracing packets
    581  */
    582 void
    583 trace_pkt(char *p, ...)
    584 {
    585 	va_list args;
    586 
    587 	if (!TRACEPACKETS || ftrace == 0)
    588 		return;
    589 
    590 	lastlog();
    591 	va_start(args, p);
    592 	vfprintf(ftrace, p, args);
    593 }
    594 
    595 
    596 void
    597 trace_change(struct rt_entry *rt,
    598 	     u_int	state,
    599 	     naddr	gate,		/* forward packets here */
    600 	     naddr	router,		/* on the authority of this router */
    601 	     int	metric,
    602 	     u_short	tag,
    603 	     struct interface *ifp,
    604 	     time_t	new_time,
    605 	     char	*label)
    606 {
    607 	if (ftrace == 0)
    608 		return;
    609 
    610 	if (rt->rt_metric == metric
    611 	    && rt->rt_gate == gate
    612 	    && rt->rt_router == router
    613 	    && rt->rt_state == state
    614 	    && rt->rt_tag == tag)
    615 		return;
    616 
    617 	lastlog();
    618 	(void)fprintf(ftrace, "%s %-35s metric=%-2d ",
    619 		      label,
    620 		      trace_pair(rt->rt_dst, rt->rt_mask,
    621 				 naddr_ntoa(rt->rt_gate)),
    622 		      rt->rt_metric);
    623 	if (rt->rt_router != rt->rt_gate)
    624 		(void)fprintf(ftrace, "router=%s ",
    625 			      naddr_ntoa(rt->rt_router));
    626 	if (rt->rt_tag != 0)
    627 		(void)fprintf(ftrace, "tag=%#x ", rt->rt_tag);
    628 	trace_bits(rs_bits, rt->rt_state, rt->rt_state != state);
    629 	(void)fprintf(ftrace, "%s ",
    630 		      rt->rt_ifp == 0 ? "?" : rt->rt_ifp->int_name);
    631 	(void)fprintf(ftrace, "%s\n",
    632 		      AGE_RT(rt, rt->rt_ifp) ? ts(rt->rt_time) : "");
    633 
    634 	(void)fprintf(ftrace, "%*s %19s%-16s ",
    635 		      strlen(label), "", "",
    636 		      rt->rt_gate != gate ? naddr_ntoa(gate) : "");
    637 	if (rt->rt_metric != metric)
    638 		(void)fprintf(ftrace, "metric=%-2d ", metric);
    639 	if (router != gate)
    640 		(void)fprintf(ftrace, "router=%s ", naddr_ntoa(router));
    641 	if (rt->rt_tag != tag)
    642 		(void)fprintf(ftrace, "tag=%#x ", tag);
    643 	if (rt->rt_state != state)
    644 		trace_bits(rs_bits, state, 1);
    645 	if (rt->rt_ifp != ifp)
    646 		(void)fprintf(ftrace, "%s ",
    647 			      ifp != 0 ? ifp->int_name : "?");
    648 	(void)fprintf(ftrace, "%s\n",
    649 		      ((rt->rt_time == new_time || !AGE_RT(rt, ifp))
    650 		       ? "" : ts(new_time)));
    651 }
    652 
    653 
    654 void
    655 trace_add_del(char * action, struct rt_entry *rt)
    656 {
    657 	u_int state = rt->rt_state;
    658 
    659 	if (ftrace == 0)
    660 		return;
    661 
    662 	lastlog();
    663 	(void)fprintf(ftrace, "%s    %-35s metric=%-2d ",
    664 		      action,
    665 		      trace_pair(rt->rt_dst, rt->rt_mask,
    666 				 naddr_ntoa(rt->rt_gate)),
    667 		      rt->rt_metric);
    668 	if (rt->rt_router != rt->rt_gate)
    669 		(void)fprintf(ftrace, "router=%s ",
    670 			      naddr_ntoa(rt->rt_router));
    671 	if (rt->rt_tag != 0)
    672 		(void)fprintf(ftrace, "tag=%#x ", rt->rt_tag);
    673 	trace_bits(rs_bits, state, 0);
    674 	(void)fprintf(ftrace, "%s ",
    675 		      rt->rt_ifp != 0 ? rt->rt_ifp->int_name : "?");
    676 	(void)fprintf(ftrace, "%s\n", ts(rt->rt_time));
    677 }
    678 
    679 
    680 void
    681 trace_rip(char *dir1, char *dir2,
    682 	  struct sockaddr_in *who,
    683 	  struct interface *ifp,
    684 	  struct rip *msg,
    685 	  int size)			/* total size of message */
    686 {
    687 	struct netinfo *n, *lim;
    688 	struct netauth *a;
    689 	int i;
    690 
    691 	if (!TRACEPACKETS || ftrace == 0)
    692 		return;
    693 
    694 	lastlog();
    695 	if (msg->rip_cmd >= RIPCMD_MAX
    696 	    || msg->rip_vers == 0) {
    697 		(void)fprintf(ftrace,
    698 		    "%s bad RIPv%d cmd=%d %s %s.%d size=%d msg=%#lx\n",
    699 		    dir1, msg->rip_vers, msg->rip_cmd, dir2,
    700 		    naddr_ntoa(who->sin_addr.s_addr),
    701 		    ntohs(who->sin_port), size, (unsigned long)msg);
    702 		return;
    703 	}
    704 
    705 	(void)fprintf(ftrace, "%s RIPv%d %s %s %s.%d%s%s\n",
    706 		      dir1, msg->rip_vers, ripcmds[msg->rip_cmd], dir2,
    707 		      naddr_ntoa(who->sin_addr.s_addr), ntohs(who->sin_port),
    708 		      ifp ? " via " : "", ifp ? ifp->int_name : "");
    709 	if (!TRACECONTENTS)
    710 		return;
    711 
    712 	switch (msg->rip_cmd) {
    713 	case RIPCMD_REQUEST:
    714 	case RIPCMD_RESPONSE:
    715 		n = msg->rip_nets;
    716 		lim = (struct netinfo *)((char*)msg + size);
    717 		for (; n < lim; n++) {
    718 			if (n->n_family == RIP_AF_UNSPEC
    719 			    && ntohl(n->n_metric) == HOPCNT_INFINITY
    720 			    && n+1 == lim
    721 			    && n == msg->rip_nets
    722 			    && msg->rip_cmd == RIPCMD_REQUEST) {
    723 				(void)fputs("\tQUERY ", ftrace);
    724 				if (n->n_dst != 0)
    725 					(void)fprintf(ftrace, "%s ",
    726 						      naddr_ntoa(n->n_dst));
    727 				if (n->n_mask != 0)
    728 					(void)fprintf(ftrace, "mask=%#x ",
    729 						      ntohl(n->n_mask));
    730 				if (n->n_nhop != 0)
    731 					(void)fprintf(ftrace, " nhop=%s ",
    732 						      naddr_ntoa(n->n_nhop));
    733 				if (n->n_tag != 0)
    734 					(void)fprintf(ftrace, "tag=%#x",
    735 						      n->n_tag);
    736 				(void)fputc('\n',ftrace);
    737 				continue;
    738 			}
    739 
    740 			if (n->n_family == RIP_AF_AUTH) {
    741 				a = (struct netauth*)n;
    742 				(void)fprintf(ftrace,
    743 					      "\tAuthentication type %d: ",
    744 					      ntohs(a->a_type));
    745 				for (i = 0;
    746 				     i < sizeof(a->au.au_pw);
    747 				     i++)
    748 					(void)fprintf(ftrace, "%02x ",
    749 						      a->au.au_pw[i]);
    750 				(void)fputc('\n',ftrace);
    751 				continue;
    752 			}
    753 
    754 			if (n->n_family != RIP_AF_INET) {
    755 				(void)fprintf(ftrace,
    756 					      "\t(af %d) %-18s mask=%#x",
    757 					      ntohs(n->n_family),
    758 					      naddr_ntoa(n->n_dst),
    759 					      ntohl(n->n_mask));
    760 			} else if (msg->rip_vers == RIPv1) {
    761 				(void)fprintf(ftrace, "\t%-18s ",
    762 					      addrname(n->n_dst,
    763 						       ntohl(n->n_mask),
    764 						       n->n_mask==0 ? 2 : 1));
    765 			} else {
    766 				(void)fprintf(ftrace, "\t%-18s ",
    767 					      addrname(n->n_dst,
    768 						       ntohl(n->n_mask),
    769 						       n->n_mask==0 ? 2 : 0));
    770 			}
    771 			(void)fprintf(ftrace, "metric=%-2d ",
    772 				      ntohl(n->n_metric));
    773 			if (n->n_nhop != 0)
    774 				(void)fprintf(ftrace, " nhop=%s ",
    775 					      naddr_ntoa(n->n_nhop));
    776 			if (n->n_tag != 0)
    777 				(void)fprintf(ftrace, "tag=%#x",
    778 					      n->n_tag);
    779 			(void)fputc('\n',ftrace);
    780 		}
    781 		if (size != (char *)n - (char *)msg)
    782 			(void)fprintf(ftrace, "truncated record, len %d\n",
    783 				size);
    784 		break;
    785 
    786 	case RIPCMD_TRACEON:
    787 		fprintf(ftrace, "\tfile=%*s\n", size-4, msg->rip_tracefile);
    788 		break;
    789 
    790 	case RIPCMD_TRACEOFF:
    791 		break;
    792 	}
    793 }
    794