"usage: syslogd [-f conffile] [-m markinterval] [-p logpath]\n");
"usage: syslogd [-u] [-f conffile] [-m markinterval] [-p logpath]\n");
char   *cvthname __P((struct sockaddr_in *));int	decode __P((const char *, CODE *));void	die __P((int));void	domark __P((int));void	fprintlog __P((struct filed *, int, char *));void	init __P((int));void	logerror __P((char *));void	logmsg __P((int, char *, char *, int));void	printline __P((char *, char *));void	printsys __P((char *));void	reapchild __P((int));char   *ttymsg __P((struct iovec *, int, char *, int));void	usage __P((void));void	wallmsg __P((struct filed *, struct iovec *));intmain(argc, argv)	int argc;	char *argv[];{	int ch, funix, i, inetm, fklog, klogm, len;	struct sockaddr_un sunx, fromunix;	struct sockaddr_in sin, frominet;	FILE *fp;	char *p, line[MSG_BSIZE + 1];	while ((ch = getopt(argc, argv, "duf:m:p:")) != EOF)		switch(ch) {		case 'd':		/* debug */			Debug++;			break;		case 'f':		/* configuration file */			ConfFile = optarg;			break;		case 'm':		/* mark interval */			MarkInterval = atoi(optarg) * 60;			break;		case 'p':		/* path */			LogName = optarg;			break;		case 'u':		/* allow udp input port */			SecureMode = 0;			break;		case '?':		default:			usage();		}	if ((argc -= optind) != 0)		usage();	if (!Debug)		(void)daemon(0, 0);	else		setlinebuf(stdout);	consfile.f_type = F_CONSOLE;	(void)strcpy(consfile.f_un.f_fname, ctty);	(void)gethostname(LocalHostName, sizeof(LocalHostName));	if ((p = strchr(LocalHostName, '.')) != NULL) {		*p++ = '\0';		LocalDomain = p;	} else		LocalDomain = "";	(void)signal(SIGTERM, die);	(void)signal(SIGINT, Debug ? die : SIG_IGN);	(void)signal(SIGQUIT, Debug ? die : SIG_IGN);	(void)signal(SIGCHLD, reapchild);	(void)signal(SIGALRM, domark);	(void)alarm(TIMERINTVL);	(void)unlink(LogName);#ifndef SUN_LEN#define SUN_LEN(unp) (strlen((unp)->sun_path) + 2)#endif	memset(&sunx, 0, sizeof(sunx));	sunx.sun_family = AF_UNIX;	(void)strncpy(sunx.sun_path, LogName, sizeof(sunx.sun_path));	funix = socket(AF_UNIX, SOCK_DGRAM, 0);	if (funix < 0 ||	    bind(funix, (struct sockaddr *)&sunx, SUN_LEN(&sunx)) < 0 ||	    chmod(LogName, 0666) < 0) {		(void) snprintf(line, sizeof line, "cannot create %s", LogName);		logerror(line);		dprintf("cannot create %s (%d)\n", LogName, errno);		die(0);	}	if (!SecureMode)		finet = socket(AF_INET, SOCK_DGRAM, 0);	else {		finet = -1;		inetm = 0;	}	if (finet >= 0) {		struct servent *sp;		sp = getservbyname("syslog", "udp");		if (sp == NULL) {			errno = 0;			logerror("syslog/udp: unknown service");			die(0);		}		memset(&sin, 0, sizeof(sin));		sin.sin_family = AF_INET;		sin.sin_port = LogPort = sp->s_port;		if (bind(finet, (struct sockaddr *)&sin, sizeof(sin)) < 0) {			logerror("bind");			if (!Debug)				die(0);		} else {			inetm = FDMASK(finet);			InetInuse = 1;		}	}	if ((fklog = open(_PATH_KLOG, O_RDONLY, 0)) >= 0)		klogm = FDMASK(fklog);	else {		dprintf("can't open %s (%d)\n", _PATH_KLOG, errno);		klogm = 0;	}	/* tuck my process id away */	fp = fopen(PidFile, "w");	if (fp != NULL) {		fprintf(fp, "%d\n", getpid());		(void) fclose(fp);	}	dprintf("off & running....\n");	init(0);	(void)signal(SIGHUP, init);	for (;;) {		int nfds, readfds = FDMASK(funix) | inetm | klogm;		dprintf("readfds = %#x\n", readfds);		nfds = select(20, (fd_set *)&readfds, (fd_set *)NULL,		    (fd_set *)NULL, (struct timeval *)NULL);		if (nfds == 0)			continue;		if (nfds < 0) {			if (errno != EINTR)				logerror("select");			continue;		}		dprintf("got a message (%d, %#x)\n", nfds, readfds);		if (readfds & klogm) {			i = read(fklog, line, sizeof(line) - 1);			if (i > 0) {				line[i] = '\0';				printsys(line);			} else if (i < 0 && errno != EINTR) {				logerror("klog");				fklog = -1;				klogm = 0;			}		}		if (readfds & FDMASK(funix)) {			len = sizeof(fromunix);			i = recvfrom(funix, line, MAXLINE, 0,			    (struct sockaddr *)&fromunix, &len);			if (i > 0) {				line[i] = '\0';				printline(LocalHostName, line);			} else if (i < 0 && errno != EINTR)				logerror("recvfrom unix");		}		if (readfds & inetm) {			len = sizeof(frominet);			i = recvfrom(finet, line, MAXLINE, 0,			    (struct sockaddr *)&frominet, &len);			if (i > 0) {				line[i] = '\0';				printline(cvthname(&frominet), line);			} else if (i < 0 && errno != EINTR)				logerror("recvfrom inet");		} 	}}voidusage(){	(void)fprintf(stderr,	    "usage: syslogd [-f conffile] [-m markinterval] [-p logpath]\n");	exit(1);}/* * Take a raw input line, decode the message, and print the message * on the appropriate log files. */voidprintline(hname, msg)	char *hname;	char *msg;{	int c, pri;	char *p, *q, line[MAXLINE + 1];	/* test for special codes */	pri = DEFUPRI;	p = msg;	if (*p == '<') {		pri = 0;		while (isdigit(*++p))			pri = 10 * pri + (*p - '0');		if (*p == '>')			++p;	}	if (pri &~ (LOG_FACMASK|LOG_PRIMASK))		pri = DEFUPRI;	/* don't allow users to log kernel messages */	if (LOG_FAC(pri) == LOG_KERN)		pri = LOG_MAKEPRI(LOG_USER, LOG_PRI(pri));	q = line;	while ((c = *p++ & 0177) != '\0' &&	    q < &line[sizeof(line) - 1])		if (iscntrl(c))			if (c == '\n')				*q++ = ' ';			else if (c == '\t')				*q++ = '\t';			else {				*q++ = '^';				*q++ = c ^ 0100;			}		else			*q++ = c;	*q = '\0';	logmsg(pri, line, hname, 0);}/* * Take a raw input line from /dev/klog, split and format similar to syslog(). */voidprintsys(msg)	char *msg;{	int c, pri, flags;	char *lp, *p, *q, line[MAXLINE + 1];	(void)strcpy(line, _PATH_UNIX);	(void)strcat(line, ": ");	lp = line + strlen(line);	for (p = msg; *p != '\0'; ) {		flags = SYNC_FILE | ADDDATE;	/* fsync file after write */		pri = DEFSPRI;		if (*p == '<') {			pri = 0;			while (isdigit(*++p))				pri = 10 * pri + (*p - '0');			if (*p == '>')				++p;		} else {			/* kernel printf's come out on console */			flags |= IGN_CONS;		}		if (pri &~ (LOG_FACMASK|LOG_PRIMASK))			pri = DEFSPRI;		q = lp;		while (*p != '\0' && (c = *p++) != '\n' &&		    q < &line[MAXLINE])			*q++ = c;		*q = '\0';		logmsg(pri, line, LocalHostName, flags);	}}time_t	now;/* * Log a message to the appropriate log files, users, etc. based on * the priority. */voidlogmsg(pri, msg, from, flags)	int pri;	char *msg, *from;	int flags;{	struct filed *f;	int fac, msglen, omask, prilev;	char *timestamp;	dprintf("logmsg: pri %o, flags %x, from %s, msg %s\n",	    pri, flags, from, msg);	omask = sigblock(sigmask(SIGHUP)|sigmask(SIGALRM));	/*	 * Check to see if msg looks non-standard.	 */	msglen = strlen(msg);	if (msglen < 16 || msg[3] != ' ' || msg[6] != ' ' ||	    msg[9] != ':' || msg[12] != ':' || msg[15] != ' ')		flags |= ADDDATE;	(void)time(&now);	if (flags & ADDDATE)		timestamp = ctime(&now) + 4;	else {		timestamp = msg;		msg += 16;		msglen -= 16;	}	/* extract facility and priority level */	if (flags & MARK)		fac = LOG_NFACILITIES;	else		fac = LOG_FAC(pri);	prilev = LOG_PRI(pri);	/* log the message to the particular outputs */	if (!Initialized) {		f = &consfile;		f->f_file = open(ctty, O_WRONLY, 0);		if (f->f_file >= 0) {			fprintlog(f, flags, msg);			(void)close(f->f_file);		}		(void)sigsetmask(omask);		return;	}	for (f = Files; f; f = f->f_next) {		/* skip messages that are incorrect priority */		if (f->f_pmask[fac] < prilev ||		    f->f_pmask[fac] == INTERNAL_NOPRI)			continue;		if (f->f_type == F_CONSOLE && (flags & IGN_CONS))			continue;		/* don't output marks to recently written files */		if ((flags & MARK) && (now - f->f_time) < MarkInterval / 2)			continue;		/*		 * suppress duplicate lines to this file		 */		if ((flags & MARK) == 0 && msglen == f->f_prevlen &&		    !strcmp(msg, f->f_prevline) &&		    !strcmp(from, f->f_prevhost)) {			(void)strncpy(f->f_lasttime, timestamp, 15);			f->f_prevcount++;			dprintf("msg repeated %d times, %ld sec of %d\n",			    f->f_prevcount, now - f->f_time,			    repeatinterval[f->f_repeatcount]);			/*			 * If domark would have logged this by now,			 * flush it now (so we don't hold isolated messages),			 * but back off so we'll flush less often			 * in the future.			 */			if (now > REPEATTIME(f)) {				fprintlog(f, flags, (char *)NULL);				BACKOFF(f);			}		} else {			/* new line, save it */			if (f->f_prevcount)				fprintlog(f, 0, (char *)NULL);			f->f_repeatcount = 0;			f->f_prevpri = pri;			(void)strncpy(f->f_lasttime, timestamp, 15);			(void)strncpy(f->f_prevhost, from,					sizeof(f->f_prevhost));			if (msglen < MAXSVLINE) {				f->f_prevlen = msglen;				(void)strcpy(f->f_prevline, msg);				fprintlog(f, flags, (char *)NULL);			} else {				f->f_prevline[0] = 0;				f->f_prevlen = 0;				fprintlog(f, flags, msg);			}		}	}	(void)sigsetmask(omask);}voidfprintlog(f, flags, msg)	struct filed *f;	int flags;	char *msg;{	struct iovec iov[6];	struct iovec *v;	int l;	char line[MAXLINE + 1], repbuf[80], greetings[500];	v = iov;	if (f->f_type == F_WALL) {		v->iov_base = greetings;		v->iov_len = snprintf(greetings, sizeof(greetings),		    "\r\n\7Message from syslogd@%s at %.24s ...\r\n",		    f->f_prevhost, ctime(&now));		v++;		v->iov_base = "";		v->iov_len = 0;		v++;	} else {		v->iov_base = f->f_lasttime;		v->iov_len = 15;		v++;		v->iov_base = " ";		v->iov_len = 1;		v++;	}	v->iov_base = f->f_prevhost;	v->iov_len = strlen(v->iov_base);	v++;	v->iov_base = " ";	v->iov_len = 1;	v++;	if (msg) {		v->iov_base = msg;		v->iov_len = strlen(msg);	} else if (f->f_prevcount > 1) {		v->iov_base = repbuf;		v->iov_len = sprintf(repbuf, "last message repeated %d times",		    f->f_prevcount);	} else {		v->iov_base = f->f_prevline;		v->iov_len = f->f_prevlen;	}	v++;	dprintf("Logging to %s", TypeNames[f->f_type]);	f->f_time = now;	switch (f->f_type) {	case F_UNUSED:		dprintf("\n");		break;	case F_FORW:		dprintf(" %s\n", f->f_un.f_forw.f_hname);		l = snprintf(line, sizeof(line) - 1, "<%d>%.15s %s", f->f_prevpri,		    iov[0].iov_base, iov[4].iov_base);		if (l > MAXLINE)			l = MAXLINE;		if (sendto(finet, line, l, 0,		    (struct sockaddr *)&f->f_un.f_forw.f_addr,		    sizeof(f->f_un.f_forw.f_addr)) != l) {			int e = errno;			(void)close(f->f_file);			f->f_type = F_UNUSED;			errno = e;			logerror("sendto");		}		break;	case F_CONSOLE:		if (flags & IGN_CONS) {			dprintf(" (ignored)\n");			break;		}		/* FALLTHROUGH */	case F_TTY:	case F_FILE:		dprintf(" %s\n", f->f_un.f_fname);		if (f->f_type != F_FILE) {			v->iov_base = "\r\n";			v->iov_len = 2;		} else {			v->iov_base = "\n";			v->iov_len = 1;		}	again:		if (writev(f->f_file, iov, 6) < 0) {			int e = errno;			(void)close(f->f_file);			/*			 * Check for errors on TTY's due to loss of tty			 */			if ((e == EIO || e == EBADF) && f->f_type != F_FILE) {				f->f_file = open(f->f_un.f_fname,				    O_WRONLY|O_APPEND, 0);				if (f->f_file < 0) {					f->f_type = F_UNUSED;					logerror(f->f_un.f_fname);				} else					goto again;			} else {				f->f_type = F_UNUSED;				errno = e;				logerror(f->f_un.f_fname);			}		} else if (flags & SYNC_FILE)			(void)fsync(f->f_file);		break;	case F_USERS:	case F_WALL:		dprintf("\n");		v->iov_base = "\r\n";		v->iov_len = 2;		wallmsg(f, iov);		break;	}	f->f_prevcount = 0;}/* *  WALLMSG -- Write a message to the world at large * *	Write the specified message to either the entire *	world, or a list of approved users. */voidwallmsg(f, iov)	struct filed *f;	struct iovec *iov;{	static int reenter;			/* avoid calling ourselves */	FILE *uf;	struct utmp ut;	int i;	char *p;	char line[sizeof(ut.ut_line) + 1];	if (reenter++)		return;	if ((uf = fopen(_PATH_UTMP, "r")) == NULL) {		logerror(_PATH_UTMP);		reenter = 0;		return;	}	/* NOSTRICT */	while (fread((char *)&ut, sizeof(ut), 1, uf) == 1) {		if (ut.ut_name[0] == '\0')			continue;		strncpy(line, ut.ut_line, sizeof(ut.ut_line));		line[sizeof(ut.ut_line)] = '\0';		if (f->f_type == F_WALL) {			if ((p = ttymsg(iov, 6, line, TTYMSGTIME)) != NULL) {				errno = 0;	/* already in msg */				logerror(p);			}			continue;		}		/* should we send the message to this user? */		for (i = 0; i < MAXUNAMES; i++) {			if (!f->f_un.f_uname[i][0])				break;			if (!strncmp(f->f_un.f_uname[i], ut.ut_name,			    UT_NAMESIZE)) {				if ((p = ttymsg(iov, 6, line, TTYMSGTIME))								!= NULL) {					errno = 0;	/* already in msg */					logerror(p);				}				break;			}		}	}	(void)fclose(uf);	reenter = 0;}voidreapchild(signo)	int signo;{	union wait status;	while (wait3((int *)&status, WNOHANG, (struct rusage *)NULL) > 0)		;}/* * Return a printable representation of a host address. */char *cvthname(f)	struct sockaddr_in *f;{	struct hostent *hp;	char *p;	dprintf("cvthname(%s)\n", inet_ntoa(f->sin_addr));	if (f->sin_family != AF_INET) {		dprintf("Malformed from address\n");		return ("???");	}	hp = gethostbyaddr((char *)&f->sin_addr,	    sizeof(struct in_addr), f->sin_family);	if (hp == 0) {		dprintf("Host name for your address (%s) unknown\n",			inet_ntoa(f->sin_addr));		return (inet_ntoa(f->sin_addr));	}	if ((p = strchr(hp->h_name, '.')) && strcmp(p + 1, LocalDomain) == 0)		*p = '\0';	return (hp->h_name);}