Home | History | Annotate | Line # | Download | only in calendar
      1  1.54  christos /*	$NetBSD: calendar.c,v 1.54 2022/09/19 18:48:30 christos Exp $	*/
      2   1.7     glass 
      3   1.1       cgd /*
      4   1.7     glass  * Copyright (c) 1989, 1993, 1994
      5   1.7     glass  *	The Regents of the University of California.  All rights reserved.
      6   1.1       cgd  *
      7   1.1       cgd  * Redistribution and use in source and binary forms, with or without
      8   1.1       cgd  * modification, are permitted provided that the following conditions
      9   1.1       cgd  * are met:
     10   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     11   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     12   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     14   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     15  1.28       agc  * 3. Neither the name of the University nor the names of its contributors
     16   1.1       cgd  *    may be used to endorse or promote products derived from this software
     17   1.1       cgd  *    without specific prior written permission.
     18   1.1       cgd  *
     19   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29   1.1       cgd  * SUCH DAMAGE.
     30   1.1       cgd  */
     31   1.1       cgd 
     32  1.11     lukem #include <sys/cdefs.h>
     33   1.1       cgd #ifndef lint
     34  1.46     lukem __COPYRIGHT("@(#) Copyright (c) 1989, 1993\
     35  1.46     lukem  The Regents of the University of California.  All rights reserved.");
     36   1.1       cgd #endif /* not lint */
     37   1.1       cgd 
     38   1.1       cgd #ifndef lint
     39   1.7     glass #if 0
     40   1.8       jtc static char sccsid[] = "@(#)calendar.c	8.4 (Berkeley) 1/7/95";
     41   1.7     glass #endif
     42  1.54  christos __RCSID("$NetBSD: calendar.c,v 1.54 2022/09/19 18:48:30 christos Exp $");
     43   1.1       cgd #endif /* not lint */
     44   1.1       cgd 
     45   1.1       cgd #include <sys/param.h>
     46  1.52  dholland #include <sys/ioctl.h>
     47   1.1       cgd #include <sys/time.h>
     48   1.1       cgd #include <sys/stat.h>
     49   1.1       cgd #include <sys/uio.h>
     50   1.7     glass #include <sys/wait.h>
     51   1.7     glass 
     52  1.51  dholland #include <assert.h>
     53   1.7     glass #include <ctype.h>
     54   1.7     glass #include <err.h>
     55   1.7     glass #include <errno.h>
     56   1.7     glass #include <fcntl.h>
     57   1.1       cgd #include <pwd.h>
     58  1.44  christos #include <stdbool.h>
     59   1.7     glass #include <stdio.h>
     60   1.7     glass #include <stdlib.h>
     61   1.7     glass #include <string.h>
     62  1.13    kleink #include <time.h>
     63   1.1       cgd #include <tzfile.h>
     64   1.1       cgd #include <unistd.h>
     65   1.7     glass 
     66   1.1       cgd #include "pathnames.h"
     67   1.1       cgd 
     68  1.53       agc #define CALENDAR_VERSION	"calendar-20160601"
     69  1.53       agc 
     70  1.48       wiz 	/* flags used by calendar file parser */
     71  1.48       wiz #define	F_ISMONTH	0x01
     72  1.48       wiz #define	F_ISDAY		0x02
     73  1.48       wiz #define	F_ISDOW		0x04
     74  1.48       wiz #define	F_WILDMONTH	0x10
     75  1.48       wiz #define	F_WILDDAY	0x20
     76  1.48       wiz 
     77  1.44  christos static unsigned short lookahead = 1;
     78  1.44  christos static unsigned short weekend = 2;
     79  1.44  christos static char *fname = NULL;
     80  1.44  christos static char *datestr = NULL;
     81  1.44  christos static const char *defaultnames[] = {"calendar", ".calendar", _PATH_SYSTEM_CALENDAR, NULL};
     82  1.26  christos static struct passwd *pw;
     83  1.26  christos static char path[MAXPATHLEN + 1];
     84  1.44  christos static bool doall = false;
     85  1.44  christos static bool cpp_restricted = false;
     86  1.26  christos 
     87  1.26  christos /* 1-based month, 0-based days, cumulative */
     88  1.44  christos static const int daytab[][14] = {
     89  1.26  christos 	{ 0, -1, 30, 58, 89, 119, 150, 180, 211, 242, 272, 303, 333, 364 },
     90  1.26  christos 	{ 0, -1, 30, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
     91  1.26  christos };
     92  1.26  christos static struct tm *tp;
     93  1.44  christos static const int *cumdays;
     94  1.44  christos static int offset, yrdays;
     95  1.26  christos static char dayname[10];
     96  1.26  christos 
     97  1.26  christos static struct iovec header[] = {
     98  1.44  christos 	{ __UNCONST("From: "), 6 },
     99  1.26  christos 	{ NULL, 0 },
    100  1.44  christos 	{ __UNCONST(" (Reminder Service)\nTo: "), 24 },
    101  1.26  christos 	{ NULL, 0 },
    102  1.44  christos 	{ __UNCONST("\nSubject: "), 10 },
    103  1.26  christos 	{ NULL, 0 },
    104  1.44  christos 	{ __UNCONST("'s Calendar\nPrecedence: bulk\n\n"),  30 },
    105  1.26  christos };
    106  1.26  christos 
    107  1.44  christos static const char *days[] = {
    108  1.26  christos 	"sun", "mon", "tue", "wed", "thu", "fri", "sat", NULL,
    109  1.26  christos };
    110  1.26  christos 
    111  1.44  christos static const char *months[] = {
    112  1.26  christos 	"jan", "feb", "mar", "apr", "may", "jun",
    113  1.26  christos 	"jul", "aug", "sep", "oct", "nov", "dec", NULL,
    114  1.26  christos };
    115  1.26  christos 
    116  1.26  christos static void	 atodays(int, char *, unsigned short *);
    117  1.26  christos static void	 cal(void);
    118  1.26  christos static void	 closecal(FILE *);
    119  1.51  dholland static void	 changeuser(void);
    120  1.26  christos static int	 getday(char *);
    121  1.26  christos static int	 getfield(char *, char **, int *);
    122  1.26  christos static void	 getmmdd(struct tm *, char *);
    123  1.26  christos static int	 getmonth(char *);
    124  1.44  christos static bool	 isnow(char *);
    125  1.49  matthias static FILE	*opencal(FILE **);
    126  1.52  dholland static int	 tryopen(const char *, int);
    127  1.26  christos static void	 settime(void);
    128  1.42     perry static void	 usage(void) __dead;
    129   1.7     glass 
    130   1.7     glass int
    131  1.44  christos main(int argc, char **argv)
    132   1.1       cgd {
    133   1.1       cgd 	int ch;
    134  1.15   mycroft 	const char *caldir;
    135   1.1       cgd 
    136  1.44  christos 	(void)setprogname(argv[0]);	/* for portability */
    137  1.44  christos 
    138  1.53       agc 	while ((ch = getopt(argc, argv, "-ad:f:l:vw:x")) != -1) {
    139   1.7     glass 		switch (ch) {
    140   1.1       cgd 		case '-':		/* backward contemptible */
    141   1.1       cgd 		case 'a':
    142   1.1       cgd 			if (getuid()) {
    143   1.7     glass 				errno = EPERM;
    144  1.44  christos 				err(EXIT_FAILURE, NULL);
    145   1.1       cgd 			}
    146  1.44  christos 			doall = true;
    147   1.1       cgd 			break;
    148  1.10   thorpej 		case 'd':
    149  1.10   thorpej 			datestr = optarg;
    150  1.10   thorpej 			break;
    151  1.10   thorpej 		case 'f':
    152  1.10   thorpej 			fname = optarg;
    153  1.10   thorpej 			break;
    154  1.10   thorpej 		case 'l':
    155  1.10   thorpej 			atodays(ch, optarg, &lookahead);
    156  1.10   thorpej 			break;
    157  1.53       agc 		case 'v':
    158  1.53       agc 			printf("%s\n", CALENDAR_VERSION);
    159  1.53       agc 			return 0;
    160  1.10   thorpej 		case 'w':
    161  1.10   thorpej 			atodays(ch, optarg, &weekend);
    162  1.10   thorpej 			break;
    163  1.33     jwise 		case 'x':
    164  1.44  christos 			cpp_restricted = true;
    165  1.38       wiz 			break;
    166   1.1       cgd 		case '?':
    167   1.1       cgd 		default:
    168   1.1       cgd 			usage();
    169   1.1       cgd 		}
    170  1.44  christos 	}
    171   1.1       cgd 	argc -= optind;
    172   1.1       cgd 	argv += optind;
    173   1.1       cgd 
    174   1.1       cgd 	if (argc)
    175   1.1       cgd 		usage();
    176   1.1       cgd 
    177   1.1       cgd 	settime();
    178  1.26  christos 	if (doall) {
    179  1.44  christos 		/*
    180  1.44  christos 		 * XXX - This ignores the user's CALENDAR_DIR variable.
    181  1.44  christos 		 *       Run under user's login shell?
    182  1.44  christos 		 */
    183  1.51  dholland 		if (setgroups(0, NULL) == -1) {
    184  1.51  dholland 			err(EXIT_FAILURE, "setgroups");
    185  1.51  dholland 		}
    186   1.7     glass 		while ((pw = getpwent()) != NULL) {
    187  1.51  dholland 			if (setegid(pw->pw_gid) == -1) {
    188  1.51  dholland 				warn("%s: setegid", pw->pw_name);
    189  1.51  dholland 				continue;
    190  1.51  dholland 			}
    191  1.51  dholland 			if (seteuid(pw->pw_uid) == -1) {
    192  1.51  dholland 				warn("%s: seteuid", pw->pw_name);
    193  1.51  dholland 				continue;
    194  1.51  dholland 			}
    195  1.51  dholland 			if (chdir(pw->pw_dir) != -1) {
    196   1.1       cgd 				cal();
    197  1.51  dholland 			}
    198  1.51  dholland 			if (seteuid(0) == -1) {
    199  1.51  dholland 				warn("%s: seteuid back to 0", pw->pw_name);
    200  1.51  dholland 			}
    201   1.1       cgd 		}
    202  1.26  christos 	} else if ((caldir = getenv("CALENDAR_DIR")) != NULL) {
    203  1.44  christos 		if (chdir(caldir) != -1)
    204  1.26  christos 			cal();
    205  1.44  christos 	} else if ((pw = getpwuid(geteuid())) != NULL) {
    206  1.44  christos 		if (chdir(pw->pw_dir) != -1)
    207  1.32     jwise 			cal();
    208  1.26  christos 	}
    209  1.44  christos 	return 0;
    210   1.1       cgd }
    211   1.1       cgd 
    212  1.26  christos static void
    213  1.26  christos cal(void)
    214   1.1       cgd {
    215  1.44  christos 	bool printing;
    216  1.49  matthias 	FILE *fp, *in = NULL;
    217  1.26  christos 	char *line;
    218   1.1       cgd 
    219  1.49  matthias 	if ((fp = opencal(&in)) == NULL || in == NULL)
    220   1.1       cgd 		return;
    221  1.44  christos 	printing = false;
    222  1.49  matthias 	while ((line = fparseln(in,
    223  1.44  christos 		    NULL, NULL, NULL, FPARSELN_UNESCCOMM)) != NULL) {
    224  1.26  christos 		if (line[0] == '\0')
    225   1.1       cgd 			continue;
    226  1.26  christos 		if (line[0] != '\t')
    227  1.44  christos 			printing = isnow(line);
    228   1.1       cgd 		if (printing)
    229  1.26  christos 			(void)fprintf(fp, "%s\n", line);
    230  1.26  christos 		free(line);
    231  1.26  christos 
    232   1.1       cgd 	}
    233   1.1       cgd 	closecal(fp);
    234   1.1       cgd }
    235   1.1       cgd 
    236  1.26  christos static void
    237  1.26  christos settime(void)
    238   1.1       cgd {
    239   1.7     glass 	time_t now;
    240   1.1       cgd 
    241   1.1       cgd 	(void)time(&now);
    242   1.1       cgd 	tp = localtime(&now);
    243  1.44  christos 	if (datestr)
    244  1.10   thorpej 		getmmdd(tp, datestr);
    245  1.44  christos 
    246  1.12  christos 	if (isleap(tp->tm_year + TM_YEAR_BASE)) {
    247   1.1       cgd 		yrdays = DAYSPERLYEAR;
    248   1.1       cgd 		cumdays = daytab[1];
    249   1.1       cgd 	} else {
    250   1.1       cgd 		yrdays = DAYSPERNYEAR;
    251   1.1       cgd 		cumdays = daytab[0];
    252   1.1       cgd 	}
    253   1.1       cgd 	/* Friday displays Monday's events */
    254  1.10   thorpej 	offset = tp->tm_wday == 5 ? lookahead + weekend : lookahead;
    255   1.1       cgd 	header[5].iov_base = dayname;
    256   1.1       cgd 	header[5].iov_len = strftime(dayname, sizeof(dayname), "%A", tp);
    257   1.1       cgd }
    258   1.1       cgd 
    259   1.1       cgd /*
    260   1.1       cgd  * Possible date formats include any combination of:
    261   1.1       cgd  *	3-charmonth			(January, Jan, Jan)
    262   1.1       cgd  *	3-charweekday			(Friday, Monday, mon.)
    263   1.1       cgd  *	numeric month or day		(1, 2, 04)
    264   1.1       cgd  *
    265   1.1       cgd  * Any character may separate them, or they may not be separated.  Any line,
    266   1.1       cgd  * following a line that is matched, that starts with "whitespace", is shown
    267   1.1       cgd  * along with the matched line.
    268   1.1       cgd  */
    269  1.44  christos static bool
    270  1.44  christos isnow(char *endp)
    271   1.1       cgd {
    272  1.44  christos 	int day;
    273  1.44  christos 	int flags;
    274  1.44  christos 	int month;
    275  1.44  christos 	int v1;
    276  1.44  christos 	int v2;
    277   1.1       cgd 
    278   1.1       cgd 	flags = 0;
    279  1.35     jwise 
    280   1.1       cgd 	/* didn't recognize anything, skip it */
    281   1.1       cgd 	if (!(v1 = getfield(endp, &endp, &flags)))
    282  1.44  christos 		return false;
    283  1.44  christos 
    284  1.48       wiz 	if ((flags & (F_ISDAY|F_ISDOW)) || v1 > 12) {
    285   1.1       cgd 		/* found a day */
    286   1.1       cgd 		day = v1;
    287  1.43  christos 		/* if no recognizable month, assume wildcard ('*') month */
    288  1.45  christos 		if ((month = getfield(endp, &endp, &flags)) == 0) {
    289  1.43  christos 			flags |= F_ISMONTH | F_WILDMONTH;
    290  1.43  christos 			month = tp->tm_mon + 1;
    291  1.43  christos 		}
    292   1.7     glass 	} else if (flags & F_ISMONTH) {
    293   1.1       cgd 		month = v1;
    294   1.1       cgd 		/* if no recognizable day, assume the first */
    295  1.45  christos 		if ((day = getfield(endp, &endp, &flags)) == 0)
    296   1.1       cgd 			day = 1;
    297   1.1       cgd 	} else {
    298   1.1       cgd 		v2 = getfield(endp, &endp, &flags);
    299   1.7     glass 		if (flags & F_ISMONTH) {
    300   1.1       cgd 			day = v1;
    301   1.1       cgd 			month = v2;
    302   1.1       cgd 		} else {
    303   1.1       cgd 			/* F_ISDAY set, v2 > 12, or no way to tell */
    304   1.1       cgd 			month = v1;
    305   1.1       cgd 			/* if no recognizable day, assume the first */
    306   1.1       cgd 			day = v2 ? v2 : 1;
    307   1.1       cgd 		}
    308   1.1       cgd 	}
    309  1.47  dholland 	/* if month is out of range, treat it as '*' */
    310  1.47  dholland 	if (month < 1 || month > 12) {
    311  1.47  dholland 		flags |= F_ISMONTH | F_WILDMONTH;
    312  1.47  dholland 		month = tp->tm_mon + 1;
    313  1.47  dholland 	}
    314  1.47  dholland 
    315  1.44  christos 	if (flags & F_WILDMONTH && flags & F_WILDDAY)
    316  1.44  christos 		return true;
    317  1.35     jwise 
    318  1.44  christos 	if (flags & F_WILDMONTH && flags & F_ISDAY && day == tp->tm_mday)
    319  1.44  christos 		return true;
    320  1.35     jwise 
    321  1.48       wiz 	if (flags & F_WILDMONTH && flags & F_ISDOW && day == tp->tm_wday + 1)
    322  1.48       wiz 		return true;
    323  1.48       wiz 
    324  1.44  christos 	if (flags & F_ISMONTH && flags & F_WILDDAY && month == tp->tm_mon + 1)
    325  1.44  christos 		return true;
    326  1.35     jwise 
    327  1.48       wiz 	if (flags & F_ISMONTH && flags & F_ISDOW && month == tp->tm_mon + 1 &&
    328  1.48       wiz 	    day == tp->tm_wday + 1)
    329  1.48       wiz 		return true;
    330  1.48       wiz 
    331  1.48       wiz 	if (flags & F_ISDOW)
    332   1.4       cgd 		day = tp->tm_mday + (((day - 1) - tp->tm_wday + 7) % 7);
    333   1.1       cgd 	day = cumdays[month] + day;
    334   1.1       cgd 
    335   1.1       cgd 	/* if today or today + offset days */
    336   1.1       cgd 	if (day >= tp->tm_yday && day <= tp->tm_yday + offset)
    337  1.44  christos 		return true;
    338  1.44  christos 
    339   1.1       cgd 	/* if number of days left in this year + days to event in next year */
    340   1.1       cgd 	if (yrdays - tp->tm_yday + day <= offset)
    341  1.44  christos 		return true;
    342  1.44  christos 
    343  1.44  christos 	return false;
    344   1.1       cgd }
    345   1.1       cgd 
    346  1.26  christos static int
    347  1.44  christos getfield(char *p, char **endp, int *flags)
    348   1.1       cgd {
    349   1.1       cgd 	int val;
    350  1.44  christos 	char *start;
    351  1.44  christos 	char savech;
    352   1.1       cgd 
    353  1.48       wiz /*
    354  1.48       wiz  * note this macro has an arg that isn't used ... it is retained
    355  1.48       wiz  * (it is believed) to make the macro call look more "natural"
    356  1.48       wiz  * and suggest at the call site what is happening.
    357  1.48       wiz  */
    358  1.18  christos #define FLDCHAR(a) (*p != '\0' && !isdigit((unsigned char)*p) && \
    359  1.18  christos     !isalpha((unsigned char)*p) && *p != '*')
    360  1.18  christos 
    361  1.48       wiz 	val = 0;
    362  1.44  christos 	for (/*EMPTY*/; FLDCHAR(*p); ++p)
    363  1.26  christos 		continue;
    364   1.1       cgd 	if (*p == '*') {			/* `*' is current month */
    365  1.35     jwise 		if (!(*flags & F_ISMONTH)) {
    366  1.44  christos 			*flags |= F_ISMONTH | F_WILDMONTH;
    367  1.44  christos 			*endp = p + 1;
    368  1.44  christos 			return tp->tm_mon + 1;
    369  1.35     jwise 		} else {
    370  1.44  christos 			*flags |= F_ISDAY | F_WILDDAY;
    371  1.44  christos 			*endp = p + 1;
    372  1.44  christos 			return 1;
    373  1.35     jwise 		}
    374   1.1       cgd 	}
    375  1.18  christos 	if (isdigit((unsigned char)*p)) {
    376  1.44  christos 		val = (int)strtol(p, &p, 10);	/* if 0, it's failure */
    377  1.44  christos 		for (/*EMPTY*/; FLDCHAR(*p); ++p)
    378  1.26  christos 			continue;
    379   1.1       cgd 		*endp = p;
    380  1.44  christos 		return val;
    381   1.1       cgd 	}
    382  1.48       wiz 	for (start = p; *p != '\0' && isalpha((unsigned char)*p); p++)
    383  1.26  christos 		continue;
    384  1.48       wiz 
    385   1.1       cgd 	savech = *p;
    386  1.48       wiz 	if (p != start) {
    387  1.48       wiz 		*p = '\0';
    388  1.48       wiz 		if ((val = getmonth(start)) != 0)
    389  1.48       wiz 			*flags |= F_ISMONTH;
    390  1.48       wiz 		else if ((val = getday(start)) != 0)
    391  1.48       wiz 			*flags |= F_ISDOW;
    392  1.48       wiz 		else {
    393  1.48       wiz 			*p = savech;
    394  1.48       wiz 			*endp = start;
    395  1.48       wiz 			return 0;
    396  1.48       wiz 		}
    397   1.4       cgd 	}
    398  1.18  christos 	for (*p = savech; FLDCHAR(*p); ++p)
    399  1.26  christos 		continue;
    400   1.1       cgd 	*endp = p;
    401  1.44  christos 	return val;
    402   1.1       cgd }
    403   1.1       cgd 
    404  1.26  christos static FILE *
    405  1.49  matthias opencal(FILE **in)
    406   1.1       cgd {
    407  1.50  christos 	int fd = -1;
    408  1.44  christos 	int pdes[2];
    409   1.1       cgd 
    410   1.1       cgd 	/* open up calendar file as stdin */
    411  1.31     jwise 	if (fname == NULL) {
    412  1.50  christos 		for (const char **name = defaultnames; *name != NULL; name++) {
    413  1.52  dholland 			if ((fd = tryopen(*name, O_RDONLY)) == -1)
    414  1.31     jwise 				continue;
    415  1.31     jwise 			else
    416  1.31     jwise 				break;
    417  1.31     jwise 		}
    418  1.50  christos 		if (fd == -1) {
    419  1.31     jwise 			if (doall)
    420  1.44  christos 				return NULL;
    421  1.44  christos 			err(EXIT_FAILURE, "Cannot open calendar file");
    422  1.31     jwise 		}
    423  1.52  dholland 	} else if ((fd = tryopen(fname, O_RDONLY)) == -1) {
    424   1.1       cgd 		if (doall)
    425  1.44  christos 			return NULL;
    426  1.44  christos 		err(EXIT_FAILURE, "Cannot open `%s'", fname);
    427   1.1       cgd 	}
    428  1.31     jwise 
    429  1.44  christos 	if (pipe(pdes) == -1) {
    430  1.26  christos 		warn("Cannot open pipe");
    431  1.44  christos 		return NULL;
    432  1.26  christos 	}
    433  1.31     jwise 
    434  1.26  christos 	switch (fork()) {
    435  1.44  christos 	case -1:
    436  1.44  christos 		/* error */
    437   1.1       cgd 		(void)close(pdes[0]);
    438   1.1       cgd 		(void)close(pdes[1]);
    439  1.44  christos 		return NULL;
    440   1.1       cgd 	case 0:
    441  1.49  matthias 		/* child */
    442  1.49  matthias 		/* set stdin to calendar file */
    443  1.49  matthias 		if (fd != STDIN_FILENO) {
    444  1.49  matthias 			(void)dup2(fd, STDIN_FILENO);
    445  1.49  matthias 			(void)close(fd);
    446  1.49  matthias 		}
    447  1.49  matthias 		/* set stdout to pipe input */
    448   1.1       cgd 		if (pdes[1] != STDOUT_FILENO) {
    449   1.1       cgd 			(void)dup2(pdes[1], STDOUT_FILENO);
    450   1.1       cgd 			(void)close(pdes[1]);
    451   1.1       cgd 		}
    452   1.1       cgd 		(void)close(pdes[0]);
    453  1.51  dholland 		if (doall) {
    454  1.51  dholland 			/* become the user properly */
    455  1.51  dholland 			changeuser();
    456  1.51  dholland 		}
    457  1.33     jwise 		/* tell CPP to only open regular files */
    458  1.44  christos 		if(!cpp_restricted && setenv("CPP_RESTRICTED", "", 1) == -1)
    459  1.44  christos 			err(EXIT_FAILURE, "Cannot restrict cpp");
    460  1.44  christos 		cpp_restricted = true;
    461  1.33     jwise 
    462  1.54  christos 		(void)execl(_PATH_CPP, "tradcpp", "-nostdinc", "-I.",
    463  1.26  christos 		    "-I" _PATH_CALENDARS, NULL);
    464  1.44  christos 		err(EXIT_FAILURE, "Cannot exec `%s'", _PATH_CPP);
    465  1.26  christos 		/*NOTREACHED*/
    466  1.44  christos 	default:
    467  1.49  matthias 		/* parent -- fdopen *in to pipe output */
    468  1.49  matthias 		*in = fdopen(pdes[0], "r");
    469  1.44  christos 		(void)close(pdes[1]);
    470  1.31     jwise 
    471  1.49  matthias 		/* close calendar file */
    472  1.49  matthias 		close(fd);
    473  1.49  matthias 
    474  1.44  christos 		/* not reading all calendar files, just set output to stdout */
    475  1.44  christos 		if (!doall)
    476  1.44  christos 			return stdout;
    477  1.44  christos 
    478  1.44  christos 		/*
    479  1.44  christos 		 * Set output to a temporary file, so if no output
    480  1.44  christos 		 * don't send mail.
    481  1.44  christos 		 */
    482  1.44  christos 		(void)snprintf(path, sizeof(path), "%s/_calXXXXXX", _PATH_TMP);
    483  1.44  christos 		if ((fd = mkstemp(path)) == -1) {
    484  1.44  christos 			warn("Cannot create temporary file");
    485  1.44  christos 			return NULL;
    486  1.44  christos 		}
    487  1.44  christos 		return fdopen(fd, "w+");
    488  1.26  christos 	}
    489  1.44  christos 	/*NOTREACHED*/
    490   1.1       cgd }
    491   1.1       cgd 
    492  1.52  dholland static int
    493  1.52  dholland tryopen(const char *pathname, int flags)
    494  1.52  dholland {
    495  1.52  dholland 	int fd, serrno, zero;
    496  1.52  dholland 	struct stat st;
    497  1.52  dholland 
    498  1.52  dholland 	/*
    499  1.52  dholland 	 * XXX: cpp_restricted has inverted sense; it is false by default,
    500  1.52  dholland 	 * and -x sets it to true. CPP_RESTRICTED is set in the environment
    501  1.52  dholland 	 * if cpp_restricted is false... go figure. This should be fixed
    502  1.52  dholland 	 * later.
    503  1.52  dholland 	 */
    504  1.52  dholland 	if (doall && cpp_restricted == false) {
    505  1.52  dholland 		/*
    506  1.52  dholland 		 * We are running with the user's euid, so they can't
    507  1.52  dholland 		 * cause any mayhem (e.g. opening rewinding tape
    508  1.52  dholland 		 * devices) that they couldn't do easily enough on
    509  1.52  dholland 		 * their own. All we really need to worry about is opens
    510  1.52  dholland 		 * that hang, because that would DoS the calendar run.
    511  1.52  dholland 		 */
    512  1.52  dholland 		fd = open(pathname, flags | O_NONBLOCK);
    513  1.52  dholland 		if (fd == -1) {
    514  1.52  dholland 			return -1;
    515  1.52  dholland 		}
    516  1.52  dholland 		if (fstat(fd, &st) == -1) {
    517  1.52  dholland 			serrno = errno;
    518  1.52  dholland 			close(fd);
    519  1.52  dholland 			errno = serrno;
    520  1.52  dholland 			return -1;
    521  1.52  dholland 		}
    522  1.52  dholland 		if (S_ISCHR(st.st_mode) ||
    523  1.52  dholland 		    S_ISBLK(st.st_mode) ||
    524  1.52  dholland 		    S_ISFIFO(st.st_mode)) {
    525  1.52  dholland 			close(fd);
    526  1.52  dholland 
    527  1.52  dholland 			/* Call shenanigans in the daily output */
    528  1.52  dholland 			errno = EPERM;
    529  1.52  dholland 			warn("%s: %s", pw->pw_name, pathname);
    530  1.52  dholland 
    531  1.52  dholland 			errno = EPERM;
    532  1.52  dholland 			return -1;
    533  1.52  dholland 		}
    534  1.52  dholland 		if (S_ISDIR(st.st_mode)) {
    535  1.52  dholland 			/* Don't warn about this */
    536  1.52  dholland 			close(fd);
    537  1.52  dholland 			errno = EISDIR;
    538  1.52  dholland 			return -1;
    539  1.52  dholland 		}
    540  1.52  dholland 		if (!S_ISREG(st.st_mode)) {
    541  1.52  dholland 			/* There shouldn't be other cases to go here */
    542  1.52  dholland 			close(fd);
    543  1.52  dholland 			errno = EINVAL;
    544  1.52  dholland 			return -1;
    545  1.52  dholland 		}
    546  1.52  dholland 		zero = 0;
    547  1.52  dholland 		if (ioctl(fd, FIONBIO, &zero) == -1) {
    548  1.52  dholland 			serrno = errno;
    549  1.52  dholland 			warn("%s: %s: FIONBIO", pw->pw_name, pathname);
    550  1.52  dholland 			close(fd);
    551  1.52  dholland 			errno = serrno;
    552  1.52  dholland 			return -1;
    553  1.52  dholland 		}
    554  1.52  dholland 		return fd;
    555  1.52  dholland 	} else {
    556  1.52  dholland 		return open(pathname, flags);
    557  1.52  dholland 	}
    558  1.52  dholland }
    559  1.52  dholland 
    560  1.26  christos static void
    561  1.44  christos closecal(FILE *fp)
    562   1.1       cgd {
    563   1.1       cgd 	struct stat sbuf;
    564  1.44  christos 	ssize_t nread;
    565  1.44  christos 	int pdes[2];
    566  1.44  christos 	int status;
    567   1.7     glass 	char buf[1024];
    568   1.1       cgd 
    569   1.1       cgd 	if (!doall)
    570   1.1       cgd 		return;
    571   1.1       cgd 
    572   1.1       cgd 	(void)rewind(fp);
    573  1.44  christos 	if (fstat(fileno(fp), &sbuf) == -1 || sbuf.st_size == 0)
    574   1.1       cgd 		goto done;
    575  1.44  christos 	if (pipe(pdes) == -1)
    576   1.1       cgd 		goto done;
    577  1.44  christos 
    578  1.26  christos 	switch (fork()) {
    579  1.44  christos 	case -1:
    580  1.44  christos 		/* error */
    581   1.1       cgd 		(void)close(pdes[0]);
    582   1.1       cgd 		(void)close(pdes[1]);
    583  1.44  christos 		break;
    584  1.10   thorpej 	case 0:
    585   1.1       cgd 		/* child -- set stdin to pipe output */
    586   1.1       cgd 		if (pdes[0] != STDIN_FILENO) {
    587   1.1       cgd 			(void)dup2(pdes[0], STDIN_FILENO);
    588   1.1       cgd 			(void)close(pdes[0]);
    589   1.1       cgd 		}
    590   1.1       cgd 		(void)close(pdes[1]);
    591  1.51  dholland 		if (doall) {
    592  1.51  dholland 			/* become the user properly */
    593  1.51  dholland 			changeuser();
    594  1.51  dholland 		}
    595  1.26  christos 		(void)execl(_PATH_SENDMAIL, "sendmail", "-i", "-t", "-F",
    596   1.1       cgd 		    "\"Reminder Service\"", "-f", "root", NULL);
    597  1.44  christos 		err(EXIT_FAILURE, "Cannot exec `%s'", _PATH_SENDMAIL);
    598  1.26  christos 		/*NOTREACHED*/
    599  1.44  christos 	default:
    600  1.44  christos 		/* parent -- write to pipe input */
    601  1.44  christos 		(void)close(pdes[0]);
    602  1.44  christos 
    603  1.44  christos 		header[1].iov_base = header[3].iov_base = (void *)pw->pw_name;
    604  1.44  christos 		header[1].iov_len = header[3].iov_len = strlen(pw->pw_name);
    605  1.44  christos 		(void)writev(pdes[1], header, 7);
    606  1.44  christos 		while ((nread = read(fileno(fp), buf, sizeof(buf))) > 0)
    607  1.44  christos 			(void)write(pdes[1], buf, (size_t)nread);
    608  1.44  christos 		(void)close(pdes[1]);
    609  1.44  christos 		break;
    610   1.1       cgd 	}
    611  1.26  christos 
    612   1.1       cgd done:	(void)fclose(fp);
    613   1.1       cgd 	(void)unlink(path);
    614  1.44  christos 	while (wait(&status) != -1)
    615  1.26  christos 		continue;
    616   1.1       cgd }
    617   1.1       cgd 
    618  1.51  dholland static void
    619  1.51  dholland changeuser(void)
    620  1.51  dholland {
    621  1.51  dholland 	uid_t uid;
    622  1.51  dholland 	gid_t gid;
    623  1.51  dholland 
    624  1.51  dholland 	uid = geteuid();
    625  1.51  dholland 	gid = getegid();
    626  1.51  dholland 	assert(uid == pw->pw_uid);
    627  1.51  dholland 	assert(gid == pw->pw_gid);
    628  1.51  dholland 
    629  1.51  dholland 	if (seteuid(0) == -1) {
    630  1.51  dholland 		err(EXIT_FAILURE, "%s: changing user: cannot reassert uid 0",
    631  1.51  dholland 		    pw->pw_name);
    632  1.51  dholland 	}
    633  1.51  dholland 	if (setgid(gid) == -1) {
    634  1.51  dholland 		err(EXIT_FAILURE, "%s: cannot assume gid %d",
    635  1.51  dholland 		    pw->pw_name, (int)gid);
    636  1.51  dholland 	}
    637  1.51  dholland 	if (initgroups(pw->pw_name, gid) == -1) {
    638  1.51  dholland 		err(EXIT_FAILURE, "%s: cannot initgroups", pw->pw_name);
    639  1.51  dholland 	}
    640  1.51  dholland 	if (setuid(uid) == -1) {
    641  1.51  dholland 		err(EXIT_FAILURE, "%s: cannot assume uid %d",
    642  1.51  dholland 		    pw->pw_name, (int)uid);
    643  1.51  dholland 	}
    644  1.51  dholland }
    645  1.51  dholland 
    646  1.26  christos static int
    647  1.44  christos getmonth(char *s)
    648   1.1       cgd {
    649  1.44  christos 	const char **p;
    650   1.1       cgd 
    651   1.1       cgd 	for (p = months; *p; ++p)
    652  1.44  christos 		if (strncasecmp(s, *p, 3) == 0)
    653  1.44  christos 			return (int)(p - months) + 1;
    654  1.44  christos 	return 0;
    655   1.1       cgd }
    656   1.1       cgd 
    657  1.26  christos static int
    658  1.44  christos getday(char *s)
    659   1.1       cgd {
    660  1.44  christos 	const char **p;
    661   1.1       cgd 
    662   1.1       cgd 	for (p = days; *p; ++p)
    663  1.44  christos 		if (strncasecmp(s, *p, 3) == 0)
    664  1.44  christos 			return (int)(p - days) + 1;
    665  1.44  christos 	return 0;
    666   1.1       cgd }
    667   1.1       cgd 
    668  1.26  christos static void
    669  1.44  christos atodays(int ch, char *arg, unsigned short *rvp)
    670  1.10   thorpej {
    671  1.10   thorpej 	int u;
    672  1.10   thorpej 
    673  1.44  christos 	u = atoi(arg);
    674  1.44  christos 	if (u < 0 || u > 366)
    675  1.26  christos 		warnx("-%c %d out of range 0-366, ignored.", ch, u);
    676  1.44  christos 	else
    677  1.44  christos 		*rvp = u;
    678  1.10   thorpej }
    679  1.10   thorpej 
    680  1.10   thorpej #define todigit(x) ((x) - '0')
    681  1.10   thorpej #define ATOI2(x) (todigit((x)[0]) * 10 + todigit((x)[1]))
    682  1.18  christos #define ISDIG2(x) (isdigit((unsigned char)(x)[0]) && isdigit((unsigned char)(x)[1]))
    683  1.10   thorpej 
    684  1.26  christos static void
    685  1.44  christos getmmdd(struct tm *ptm, char *ds)
    686  1.10   thorpej {
    687  1.44  christos 	bool ok = false;
    688  1.10   thorpej 	struct tm ttm;
    689  1.10   thorpej 
    690  1.44  christos 	ttm = *ptm;
    691  1.10   thorpej 	ttm.tm_isdst = -1;
    692  1.10   thorpej 
    693  1.10   thorpej 	if (ISDIG2(ds)) {
    694  1.10   thorpej 		ttm.tm_mon = ATOI2(ds) - 1;
    695  1.10   thorpej 		ds += 2;
    696  1.10   thorpej 	}
    697  1.10   thorpej 	if (ISDIG2(ds)) {
    698  1.10   thorpej 		ttm.tm_mday = ATOI2(ds);
    699  1.10   thorpej 		ds += 2;
    700  1.44  christos 		ok = true;
    701  1.10   thorpej 	}
    702  1.10   thorpej 	if (ok) {
    703  1.10   thorpej 		if (ISDIG2(ds) && ISDIG2(ds + 2)) {
    704  1.12  christos 			ttm.tm_year = ATOI2(ds) * 100 - TM_YEAR_BASE;
    705  1.10   thorpej 			ds += 2;
    706  1.10   thorpej 			ttm.tm_year += ATOI2(ds);
    707  1.10   thorpej 		} else if (ISDIG2(ds)) {
    708  1.10   thorpej 			ttm.tm_year = ATOI2(ds);
    709  1.12  christos 			if (ttm.tm_year < 69)
    710  1.12  christos 				ttm.tm_year += 2000 - TM_YEAR_BASE;
    711  1.12  christos 			else
    712  1.12  christos 				ttm.tm_year += 1900 - TM_YEAR_BASE;
    713  1.10   thorpej 		}
    714  1.10   thorpej 	}
    715  1.44  christos 	if (ok && mktime(&ttm) == -1)
    716  1.44  christos 		ok = false;
    717  1.44  christos 
    718  1.44  christos 	if (ok)
    719  1.44  christos 		*ptm = ttm;
    720  1.44  christos 	else {
    721  1.26  christos 		warnx("Can't convert `%s' to date, ignored.", ds);
    722  1.10   thorpej 		usage();
    723  1.10   thorpej 	}
    724  1.10   thorpej }
    725  1.10   thorpej 
    726  1.44  christos __dead
    727  1.26  christos static void
    728  1.26  christos usage(void)
    729   1.1       cgd {
    730  1.34       wiz 	(void)fprintf(stderr, "usage: %s [-ax] [-d MMDD[[YY]YY]"
    731  1.26  christos 	    " [-f fname] [-l days] [-w days]\n", getprogname());
    732   1.1       cgd 	exit(1);
    733   1.1       cgd }
    734