Home | History | Annotate | Line # | Download | only in routed
main.c revision 1.11
      1 /*	$NetBSD: main.c,v 1.11 1995/03/23 00:02:49 mycroft 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 #ifndef lint
     37 static char copyright[] =
     38 "@(#) Copyright (c) 1983, 1988, 1993\n\
     39 	The Regents of the University of California.  All rights reserved.\n";
     40 #endif /* not lint */
     41 
     42 #ifndef lint
     43 #if 0
     44 static char sccsid[] = "@(#)main.c	8.1 (Berkeley) 6/5/93";
     45 #else
     46 static char rcsid[] = "$NetBSD: main.c,v 1.11 1995/03/23 00:02:49 mycroft Exp $";
     47 #endif
     48 #endif /* not lint */
     49 
     50 /*
     51  * Routing Table Management Daemon
     52  */
     53 #include "defs.h"
     54 #include <sys/ioctl.h>
     55 #include <sys/file.h>
     56 
     57 #include <net/if.h>
     58 
     59 #include <sys/errno.h>
     60 #include <sys/signal.h>
     61 #include <sys/syslog.h>
     62 #include "pathnames.h"
     63 
     64 int	supplier = -1;		/* process should supply updates */
     65 int	gateway = 0;		/* 1 if we are a gateway to parts beyond */
     66 int	debug = 0;
     67 int	bufspace = 127*1024;	/* max. input buffer size to request */
     68 struct	rip *msg = (struct rip *)packet;
     69 
     70 int getsocket __P((int, int, struct sockaddr_in *));
     71 void process __P((int));
     72 
     73 int
     74 main(argc, argv)
     75 	int argc;
     76 	char *argv[];
     77 {
     78 	int n, nfd, tflags = 0;
     79 	struct timeval *tvp, waittime;
     80 	struct itimerval itval;
     81 	register struct rip *query = msg;
     82 	fd_set ibits;
     83 	sigset_t sigset, osigset;
     84 
     85 	argv0 = argv;
     86 #if BSD >= 43
     87 	openlog("routed", LOG_PID | LOG_ODELAY, LOG_DAEMON);
     88 	setlogmask(LOG_UPTO(LOG_WARNING));
     89 #else
     90 	openlog("routed", LOG_PID);
     91 #define LOG_UPTO(x) (x)
     92 #define setlogmask(x) (x)
     93 #endif
     94 	sp = getservbyname("router", "udp");
     95 	if (sp == NULL) {
     96 		fprintf(stderr, "routed: router/udp: unknown service\n");
     97 		exit(1);
     98 	}
     99 	addr.sin_family = AF_INET;
    100 	addr.sin_port = sp->s_port;
    101 	r = socket(AF_ROUTE, SOCK_RAW, 0);
    102 	/* later, get smart about lookingforinterfaces */
    103 	if (r)
    104 		shutdown(r, 0); /* for now, don't want reponses */
    105 	else {
    106 		fprintf(stderr, "routed: no routing socket\n");
    107 		exit(1);
    108 	}
    109 	s = getsocket(AF_INET, SOCK_DGRAM, &addr);
    110 	if (s < 0)
    111 		exit(1);
    112 	argv++, argc--;
    113 	while (argc > 0 && **argv == '-') {
    114 		if (strcmp(*argv, "-s") == 0) {
    115 			supplier = 1;
    116 			argv++, argc--;
    117 			continue;
    118 		}
    119 		if (strcmp(*argv, "-q") == 0) {
    120 			supplier = 0;
    121 			argv++, argc--;
    122 			continue;
    123 		}
    124 		if (strcmp(*argv, "-t") == 0) {
    125 			tflags++;
    126 			setlogmask(LOG_UPTO(LOG_DEBUG));
    127 			argv++, argc--;
    128 			continue;
    129 		}
    130 		if (strcmp(*argv, "-d") == 0) {
    131 			debug++;
    132 			setlogmask(LOG_UPTO(LOG_DEBUG));
    133 			argv++, argc--;
    134 			continue;
    135 		}
    136 		if (strcmp(*argv, "-g") == 0) {
    137 			gateway = 1;
    138 			argv++, argc--;
    139 			continue;
    140 		}
    141 		fprintf(stderr,
    142 			"usage: routed [ -s ] [ -q ] [ -t ] [ -g ]\n");
    143 		exit(1);
    144 	}
    145 
    146 	if (debug == 0 && tflags == 0)
    147 		daemon(0, 0);
    148 	/*
    149 	 * Any extra argument is considered
    150 	 * a tracing log file.
    151 	 */
    152 	if (argc > 0)
    153 		traceon(*argv);
    154 	while (tflags-- > 0)
    155 		bumploglevel();
    156 
    157 	(void) gettimeofday(&now, (struct timezone *)NULL);
    158 	/*
    159 	 * Collect an initial view of the world by
    160 	 * checking the interface configuration and the gateway kludge
    161 	 * file.  Then, send a request packet on all
    162 	 * directly connected networks to find out what
    163 	 * everyone else thinks.
    164 	 */
    165 	rtinit();
    166 	ifinit();
    167 	gwkludge();
    168 	if (gateway > 0)
    169 		rtdefault();
    170 	if (supplier < 0)
    171 		supplier = 0;
    172 	query->rip_cmd = RIPCMD_REQUEST;
    173 	query->rip_vers = RIPVERSION;
    174 	if (sizeof(query->rip_nets[0].rip_dst.sa_family) > 1)	/* XXX */
    175 		query->rip_nets[0].rip_dst.sa_family = htons((u_short)AF_UNSPEC);
    176 	else
    177 		query->rip_nets[0].rip_dst.sa_family = AF_UNSPEC;
    178 	query->rip_nets[0].rip_metric = htonl((u_long)HOPCNT_INFINITY);
    179 	toall(sndmsg, 0, NULL);
    180 	signal(SIGALRM, timer);
    181 	signal(SIGHUP, hup);
    182 	signal(SIGTERM, hup);
    183 	signal(SIGINT, rtdeleteall);
    184 	signal(SIGUSR1, sigtrace);
    185 	signal(SIGUSR2, sigtrace);
    186 	itval.it_interval.tv_sec = TIMER_RATE;
    187 	itval.it_value.tv_sec = TIMER_RATE;
    188 	itval.it_interval.tv_usec = 0;
    189 	itval.it_value.tv_usec = 0;
    190 	srandom(getpid());
    191 	if (setitimer(ITIMER_REAL, &itval, (struct itimerval *)NULL) < 0)
    192 		syslog(LOG_ERR, "setitimer: %m\n");
    193 
    194 	FD_ZERO(&ibits);
    195 	nfd = s + 1;			/* 1 + max(fd's) */
    196 	for (;;) {
    197 		FD_SET(s, &ibits);
    198 		/*
    199 		 * If we need a dynamic update that was held off,
    200 		 * needupdate will be set, and nextbcast is the time
    201 		 * by which we want select to return.  Compute time
    202 		 * until dynamic update should be sent, and select only
    203 		 * until then.  If we have already passed nextbcast,
    204 		 * just poll.
    205 		 */
    206 		if (needupdate) {
    207 			timersub(&nextbcast, &now, &waittime);
    208 			if (waittime.tv_sec < 0) {
    209 				waittime.tv_sec = 0;
    210 				waittime.tv_usec = 0;
    211 			}
    212 			if (traceactions)
    213 				fprintf(ftrace,
    214 				 "select until dynamic update %d/%d sec/usec\n",
    215 				    waittime.tv_sec, waittime.tv_usec);
    216 			tvp = &waittime;
    217 		} else
    218 			tvp = (struct timeval *)NULL;
    219 		n = select(nfd, &ibits, 0, 0, tvp);
    220 		if (n <= 0) {
    221 			/*
    222 			 * Need delayed dynamic update if select returned
    223 			 * nothing and we timed out.  Otherwise, ignore
    224 			 * errors (e.g. EINTR).
    225 			 */
    226 			if (n < 0) {
    227 				if (errno == EINTR)
    228 					continue;
    229 				syslog(LOG_ERR, "select: %m");
    230 			}
    231 			sigemptyset(&sigset);
    232 			sigaddset(&sigset, SIGALRM);
    233 			sigprocmask(SIG_BLOCK, &sigset, &osigset);
    234 			if (n == 0 && needupdate) {
    235 				if (traceactions)
    236 					fprintf(ftrace,
    237 					    "send delayed dynamic update\n");
    238 				(void) gettimeofday(&now,
    239 					    (struct timezone *)NULL);
    240 				toall(supply, RTS_CHANGED,
    241 				    (struct interface *)NULL);
    242 				lastbcast = now;
    243 				needupdate = 0;
    244 				nextbcast.tv_sec = 0;
    245 			}
    246 			sigprocmask(SIG_SETMASK, &osigset, NULL);
    247 			continue;
    248 		}
    249 		(void) gettimeofday(&now, (struct timezone *)NULL);
    250 		sigemptyset(&sigset);
    251 		sigaddset(&sigset, SIGALRM);
    252 		sigprocmask(SIG_BLOCK, &sigset, &osigset);
    253 #ifdef doesntwork
    254 /*
    255 printf("s %d, ibits %x index %d, mod %d, sh %x, or %x &ibits %x\n",
    256 	s,
    257 	ibits.fds_bits[0],
    258 	(s)/(sizeof(fd_mask) * 8),
    259 	((s) % (sizeof(fd_mask) * 8)),
    260 	(1 << ((s) % (sizeof(fd_mask) * 8))),
    261 	ibits.fds_bits[(s)/(sizeof(fd_mask) * 8)] & (1 << ((s) % (sizeof(fd_mask) * 8))),
    262 	&ibits
    263 	);
    264 */
    265 		if (FD_ISSET(s, &ibits))
    266 #else
    267 		if (ibits.fds_bits[s/32] & (1 << s))
    268 #endif
    269 			process(s);
    270 		/* handle ICMP redirects */
    271 		sigprocmask(SIG_SETMASK, &osigset, NULL);
    272 	}
    273 }
    274 
    275 void
    276 process(fd)
    277 	int fd;
    278 {
    279 	struct sockaddr from;
    280 	int fromlen, cc;
    281 	union {
    282 		char	buf[MAXPACKETSIZE+1];
    283 		struct	rip rip;
    284 	} inbuf;
    285 
    286 	for (;;) {
    287 		fromlen = sizeof (from);
    288 		cc = recvfrom(fd, &inbuf, sizeof (inbuf), 0, &from, &fromlen);
    289 		if (cc <= 0) {
    290 			if (cc < 0 && errno != EWOULDBLOCK)
    291 				perror("recvfrom");
    292 			break;
    293 		}
    294 		if (fromlen != sizeof (struct sockaddr_in))
    295 			break;
    296 		rip_input(&from, &inbuf.rip, cc);
    297 	}
    298 }
    299 
    300 int
    301 getsocket(domain, type, sin)
    302 	int domain, type;
    303 	struct sockaddr_in *sin;
    304 {
    305 	int sock, on = 1;
    306 
    307 	if ((sock = socket(domain, type, 0)) < 0) {
    308 		perror("socket");
    309 		syslog(LOG_ERR, "socket: %m");
    310 		return (-1);
    311 	}
    312 #ifdef SO_BROADCAST
    313 	if (setsockopt(sock, SOL_SOCKET, SO_BROADCAST, &on, sizeof (on)) < 0) {
    314 		syslog(LOG_ERR, "setsockopt SO_BROADCAST: %m");
    315 		close(sock);
    316 		return (-1);
    317 	}
    318 #endif
    319 #ifdef SO_RCVBUF
    320 	for (on = bufspace; ; on -= 1024) {
    321 		if (setsockopt(sock, SOL_SOCKET, SO_RCVBUF,
    322 		    &on, sizeof (on)) == 0)
    323 			break;
    324 		if (on <= 8*1024) {
    325 			syslog(LOG_ERR, "setsockopt SO_RCVBUF: %m");
    326 			break;
    327 		}
    328 	}
    329 	if (traceactions)
    330 		fprintf(ftrace, "recv buf %d\n", on);
    331 #endif
    332 	if (bind(sock, (struct sockaddr *)sin, sizeof (*sin)) < 0) {
    333 		perror("bind");
    334 		syslog(LOG_ERR, "bind: %m");
    335 		close(sock);
    336 		return (-1);
    337 	}
    338 	if (fcntl(sock, F_SETFL, O_NONBLOCK) == -1)
    339 		syslog(LOG_ERR, "fcntl O_NONBLOCK: %m\n");
    340 	return (sock);
    341 }
    342