1 /* $OpenBSD: io.c,v 1.51 2021/12/07 14:00:33 robert Exp $ */ 2 3 /* 4 * Copyright (c) 1989, 1993, 1994 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. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 */ 31 32 #include <sys/stat.h> 33 #include <sys/time.h> 34 #include <sys/types.h> 35 #include <sys/uio.h> 36 #include <sys/wait.h> 37 38 #include <ctype.h> 39 #include <err.h> 40 #include <errno.h> 41 #include <fcntl.h> 42 #include <locale.h> 43 #include <pwd.h> 44 #include <stdio.h> 45 #include <stdlib.h> 46 #include <string.h> 47 #include <unistd.h> 48 #include <limits.h> 49 50 #include "pathnames.h" 51 #include "calendar.h" 52 53 54 struct iovec header[] = { 55 { "From: ", 6 }, 56 { NULL, 0 }, 57 { " (Reminder Service)\nTo: ", 24 }, 58 { NULL, 0 }, 59 { "\nSubject: ", 10 }, 60 { NULL, 0 }, 61 { "'s Calendar\nPrecedence: bulk\n", 29 }, 62 { "Auto-Submitted: auto-generated\n\n", 32 }, 63 }; 64 65 66 void 67 cal(void) 68 { 69 int ch, l, i, bodun = 0, bodun_maybe = 0, var, printing; 70 struct event *events, *cur_evt, *ev1, *tmp; 71 char buf[2048 + 1], *prefix = NULL, *p; 72 struct match *m; 73 FILE *fp; 74 75 events = NULL; 76 cur_evt = NULL; 77 if ((fp = opencal()) == NULL) 78 return; 79 for (printing = 0; fgets(buf, sizeof(buf), stdin) != NULL;) { 80 if ((p = strchr(buf, '\n')) != NULL) 81 *p = '\0'; 82 else 83 while ((ch = getchar()) != '\n' && ch != EOF); 84 for (l = strlen(buf); l > 0 && isspace(buf[l - 1]); l--) 85 ; 86 buf[l] = '\0'; 87 if (buf[0] == '\0') 88 continue; 89 if (strncmp(buf, "LANG=", 5) == 0) { 90 (void) setlocale(LC_ALL, buf + 5); 91 setnnames(); 92 if (!strcmp(buf + 5, "ru_RU.UTF-8") || 93 !strcmp(buf + 5, "uk_UA.UTF-8") || 94 !strcmp(buf + 5, "by_BY.UTF-8")) { 95 bodun_maybe++; 96 bodun = 0; 97 free(prefix); 98 prefix = NULL; 99 } else 100 bodun_maybe = 0; 101 continue; 102 } else if (strncmp(buf, "CALENDAR=", 9) == 0) { 103 char *ep; 104 105 if (buf[9] == '\0') 106 calendar = 0; 107 else if (!strcasecmp(buf + 9, "julian")) { 108 calendar = JULIAN; 109 errno = 0; 110 julian = strtoul(buf + 14, &ep, 10); 111 if (buf[0] == '\0' || *ep != '\0') 112 julian = 13; 113 if ((errno == ERANGE && julian == ULONG_MAX) || 114 julian > 14) 115 errx(1, "Julian calendar offset is too large"); 116 } else if (!strcasecmp(buf + 9, "gregorian")) 117 calendar = GREGORIAN; 118 else if (!strcasecmp(buf + 9, "lunar")) 119 calendar = LUNAR; 120 } else if (bodun_maybe && strncmp(buf, "BODUN=", 6) == 0) { 121 bodun++; 122 free(prefix); 123 if ((prefix = strdup(buf + 6)) == NULL) 124 err(1, NULL); 125 continue; 126 } 127 /* User defined names for special events */ 128 if ((p = strchr(buf, '='))) { 129 for (i = 0; i < NUMEV; i++) { 130 if (strncasecmp(buf, spev[i].name, 131 spev[i].nlen) == 0 && 132 (p - buf == spev[i].nlen) && 133 buf[spev[i].nlen + 1]) { 134 p++; 135 free(spev[i].uname); 136 if ((spev[i].uname = strdup(p)) == NULL) 137 err(1, NULL); 138 spev[i].ulen = strlen(p); 139 i = NUMEV + 1; 140 } 141 } 142 if (i > NUMEV) 143 continue; 144 } 145 if (buf[0] != '\t') { 146 printing = (m = isnow(buf, bodun)) ? 1 : 0; 147 if ((p = strchr(buf, '\t')) == NULL) { 148 printing = 0; 149 continue; 150 } 151 /* Need the following to catch hardwired "variable" 152 * dates */ 153 if (p > buf && p[-1] == '*') 154 var = 1; 155 else 156 var = 0; 157 if (printing) { 158 struct match *foo; 159 160 ev1 = NULL; 161 while (m) { 162 cur_evt = malloc(sizeof(struct event)); 163 if (cur_evt == NULL) 164 err(1, NULL); 165 166 cur_evt->when = m->when; 167 snprintf(cur_evt->print_date, 168 sizeof(cur_evt->print_date), "%s%c", 169 m->print_date, (var + m->var) ? '*' : ' '); 170 if (ev1) { 171 cur_evt->desc = ev1->desc; 172 cur_evt->ldesc = NULL; 173 } else { 174 if (m->bodun && prefix) { 175 if (asprintf(&cur_evt->ldesc, 176 "\t%s %s", prefix, 177 p + 1) == -1) 178 err(1, NULL); 179 } else if ((cur_evt->ldesc = 180 strdup(p)) == NULL) 181 err(1, NULL); 182 cur_evt->desc = &(cur_evt->ldesc); 183 ev1 = cur_evt; 184 } 185 insert(&events, cur_evt); 186 foo = m; 187 m = m->next; 188 free(foo); 189 } 190 } 191 } else if (printing) { 192 if (asprintf(&p, "%s\n%s", ev1->ldesc, 193 buf) == -1) 194 err(1, NULL); 195 free(ev1->ldesc); 196 ev1->ldesc = p; 197 } 198 } 199 tmp = events; 200 while (tmp) { 201 (void)fprintf(fp, "%s%s\n", tmp->print_date, *(tmp->desc)); 202 tmp = tmp->next; 203 } 204 tmp = events; 205 while (tmp) { 206 events = tmp; 207 free(tmp->ldesc); 208 tmp = tmp->next; 209 free(events); 210 } 211 closecal(fp); 212 } 213 214 int 215 getfield(char *p, char **endp, int *flags) 216 { 217 int val, var, i; 218 char *start, savech; 219 220 for (; !isdigit((unsigned char)*p) && !isalpha((unsigned char)*p) && 221 *p != '*' && *p != '\t'; ++p) 222 ; 223 if (*p == '*') { /* `*' is every month */ 224 *flags |= F_ISMONTH; 225 *endp = p+1; 226 return (-1); /* means 'every month' */ 227 } 228 if (isdigit((unsigned char)*p)) { 229 val = strtol(p, &p, 10); /* if 0, it's failure */ 230 for (; !isdigit((unsigned char)*p) && 231 !isalpha((unsigned char)*p) && *p != '*'; ++p) 232 ; 233 *endp = p; 234 return (val); 235 } 236 for (start = p; isalpha((unsigned char)*++p);) 237 ; 238 239 /* Sunday-1 */ 240 if (*p == '+' || *p == '-') 241 for(; isdigit((unsigned char)*++p); ) 242 ; 243 244 savech = *p; 245 *p = '\0'; 246 247 /* Month */ 248 if ((val = getmonth(start)) != 0) 249 *flags |= F_ISMONTH; 250 251 /* Day */ 252 else if ((val = getday(start)) != 0) { 253 *flags |= F_ISDAY; 254 255 /* variable weekday */ 256 if ((var = getdayvar(start)) != 0) { 257 if (var <= 5 && var >= -4) 258 val += var * 10; 259 #ifdef DEBUG 260 printf("var: %d\n", var); 261 #endif 262 } 263 } 264 265 /* Try specials (Easter, Paskha, ...) */ 266 else { 267 for (i = 0; i < NUMEV; i++) { 268 if (strncasecmp(start, spev[i].name, spev[i].nlen) == 0) { 269 start += spev[i].nlen; 270 val = i + 1; 271 i = NUMEV + 1; 272 } else if (spev[i].uname != NULL && 273 strncasecmp(start, spev[i].uname, spev[i].ulen) == 0) { 274 start += spev[i].ulen; 275 val = i + 1; 276 i = NUMEV + 1; 277 } 278 } 279 if (i > NUMEV) { 280 const char *errstr; 281 282 switch (*start) { 283 case '-': 284 case '+': 285 var = strtonum(start + 1, 0, 365, &errstr); 286 if (errstr) 287 return (0); /* Someone is just being silly */ 288 if (*start == '-') 289 var = -var; 290 val += (NUMEV + 1) * var; 291 /* We add one to the matching event and multiply by 292 * (NUMEV + 1) so as not to return 0 if there's a match. 293 * val will overflow if there is an obscenely large 294 * number of special events. */ 295 break; 296 } 297 *flags |= F_SPECIAL; 298 } 299 if (!(*flags & F_SPECIAL)) { 300 /* undefined rest */ 301 *p = savech; 302 return (0); 303 } 304 } 305 for (*p = savech; !isdigit((unsigned char)*p) && 306 !isalpha((unsigned char)*p) && *p != '*' && *p != '\t'; ++p) 307 ; 308 *endp = p; 309 return (val); 310 } 311 312 313 FILE * 314 opencal(void) 315 { 316 int pdes[2], fdin; 317 struct stat st; 318 319 /* open up calendar file as stdin */ 320 if ((fdin = open(calendarFile, O_RDONLY)) == -1 || 321 fstat(fdin, &st) == -1 || !S_ISREG(st.st_mode)) { 322 if (!doall) { 323 char *home = getenv("HOME"); 324 if (home == NULL || *home == '\0') 325 errx(1, "cannot get home directory"); 326 if (!(chdir(home) == 0 && 327 chdir(calendarHome) == 0 && 328 (fdin = open(calendarFile, O_RDONLY)) != -1)) 329 errx(1, "no calendar file: \"%s\" or \"~/%s/%s\"", 330 calendarFile, calendarHome, calendarFile); 331 } 332 } 333 334 if (pipe(pdes) == -1) { 335 close(fdin); 336 return (NULL); 337 } 338 switch (vfork()) { 339 case -1: /* error */ 340 (void)close(pdes[0]); 341 (void)close(pdes[1]); 342 close(fdin); 343 return (NULL); 344 case 0: 345 dup2(fdin, STDIN_FILENO); 346 /* child -- set stdout to pipe input */ 347 if (pdes[1] != STDOUT_FILENO) { 348 (void)dup2(pdes[1], STDOUT_FILENO); 349 (void)close(pdes[1]); 350 } 351 (void)close(pdes[0]); 352 /* 353 * Set stderr to /dev/null. Necessary so that cron does not 354 * wait for cpp to finish if it's running calendar -a. 355 */ 356 if (doall) { 357 int fderr; 358 fderr = open(_PATH_DEVNULL, O_WRONLY); 359 if (fderr == -1) 360 _exit(0); 361 (void)dup2(fderr, STDERR_FILENO); 362 (void)close(fderr); 363 } 364 execl(_PATH_CPP, "cpp", "-traditional", "-undef", "-U__GNUC__", 365 "-P", "-I.", "-w", _PATH_INCLUDE, (char *)NULL); 366 warn(_PATH_CPP); 367 _exit(1); 368 } 369 /* parent -- set stdin to pipe output */ 370 (void)dup2(pdes[0], STDIN_FILENO); 371 (void)close(pdes[0]); 372 (void)close(pdes[1]); 373 374 /* not reading all calendar files, just set output to stdout */ 375 if (!doall) 376 return (stdout); 377 378 /* set output to a temporary file, so if no output don't send mail */ 379 return(tmpfile()); 380 } 381 382 void 383 closecal(FILE *fp) 384 { 385 struct stat sbuf; 386 int nread, pdes[2], status; 387 char buf[1024]; 388 pid_t pid = -1; 389 390 if (!doall) 391 return; 392 393 (void)rewind(fp); 394 if (fstat(fileno(fp), &sbuf) || !sbuf.st_size) 395 goto done; 396 if (pipe(pdes) == -1) 397 goto done; 398 switch ((pid = vfork())) { 399 case -1: /* error */ 400 (void)close(pdes[0]); 401 (void)close(pdes[1]); 402 goto done; 403 case 0: 404 /* child -- set stdin to pipe output */ 405 if (pdes[0] != STDIN_FILENO) { 406 (void)dup2(pdes[0], STDIN_FILENO); 407 (void)close(pdes[0]); 408 } 409 (void)close(pdes[1]); 410 execl(_PATH_SENDMAIL, "sendmail", "-i", "-t", "-F", 411 "\"Reminder Service\"", (char *)NULL); 412 warn(_PATH_SENDMAIL); 413 _exit(1); 414 } 415 /* parent -- write to pipe input */ 416 (void)close(pdes[0]); 417 418 header[1].iov_base = header[3].iov_base = pw->pw_name; 419 header[1].iov_len = header[3].iov_len = strlen(pw->pw_name); 420 writev(pdes[1], header, 8); 421 while ((nread = read(fileno(fp), buf, sizeof(buf))) > 0) 422 (void)write(pdes[1], buf, nread); 423 (void)close(pdes[1]); 424 done: (void)fclose(fp); 425 if (pid != -1) { 426 while (waitpid(pid, &status, 0) == -1) { 427 if (errno != EINTR) 428 break; 429 } 430 } 431 } 432 433 434 void 435 insert(struct event **head, struct event *cur_evt) 436 { 437 struct event *tmp, *tmp2; 438 439 if (*head) { 440 /* Insert this one in order */ 441 tmp = *head; 442 tmp2 = NULL; 443 while (tmp->next && 444 tmp->when <= cur_evt->when) { 445 tmp2 = tmp; 446 tmp = tmp->next; 447 } 448 if (tmp->when > cur_evt->when) { 449 cur_evt->next = tmp; 450 if (tmp2) 451 tmp2->next = cur_evt; 452 else 453 *head = cur_evt; 454 } else { 455 cur_evt->next = tmp->next; 456 tmp->next = cur_evt; 457 } 458 } else { 459 *head = cur_evt; 460 cur_evt->next = NULL; 461 } 462 } 463