/* $NetBSD: rmail.c,v 1.2 2007/03/16 23:09:02 christos Exp $ */ /* * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1988, 1993\n\ The Regents of the University of California. All rights reserved.\n"); #if 0 static char sccsid[] = "@(#)rmail.c 8.3 (Berkeley) 5/15/95"; #else __RCSID("$NetBSD: rmail.c,v 1.2 2007/03/16 23:09:02 christos Exp $"); #endif #endif /* not lint */ /* * RMAIL -- UUCP mail server. * * This program reads the >From ... remote from ... lines that UUCP is so * fond of and turns them into something reasonable. It then execs sendmail * with various options built from these lines. * * The expected syntax is: * * := [-a-z0-9]+ * := ctime format * := [-a-z0-9!]+ * := "^\n$" * := "From" * [ "remote from" ] * := ">" * msg := * * * The output of rmail(8) compresses the lines into a single * from path. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #ifndef MAX # define MAX(a, b) ((a) < (b) ? (b) : (a)) #endif void usage __P((void)); int main __P((int, char *[])); int main(argc, argv) int argc; char *argv[]; { FILE *fp; struct stat sb; size_t fplen, fptlen, len, nfptlen; off_t offset; int ch, debug, i, pdes[2], pid, status; char *addrp, *domain, *p, *t; char *from_path, *from_sys, *from_user, *n; char *args[100], buf[2048], lbuf[2048]; addrp = NULL; /* XXX gcc */ fplen = fptlen = 0; /* XXX gcc */ nfptlen = 0; debug = 0; domain = "UUCP"; /* Default "domain". */ while ((ch = getopt(argc, argv, "D:T")) != -1) switch (ch) { case 'T': debug = 1; break; case 'D': domain = optarg; break; case '?': default: usage(); } argc -= optind; argv += optind; if (argc < 1) usage(); from_path = from_sys = from_user = NULL; for (offset = 0;;) { /* Get and nul-terminate the line. */ if (fgets(lbuf, sizeof(lbuf), stdin) == NULL) exit (EX_DATAERR); if ((p = strchr(lbuf, '\n')) == NULL) err(EX_DATAERR, "line too long"); *p = '\0'; /* Parse lines until reach a non-"From" line. */ if (!strncmp(lbuf, "From ", 5)) addrp = lbuf + 5; else if (!strncmp(lbuf, ">From ", 6)) addrp = lbuf + 6; else if (offset == 0) err(EX_DATAERR, "missing or empty From line: %s", lbuf); else { *p = '\n'; break; } if (*addrp == '\0') err(EX_DATAERR, "corrupted From line: %s", lbuf); /* Use the "remote from" if it exists. */ for (p = addrp; (p = strchr(p + 1, 'r')) != NULL;) if (!strncmp(p, "remote from ", 12)) { for (t = p += 12; *t && !isspace((unsigned char)*t); ++t); *t = '\0'; if (debug) (void)fprintf(stderr, "remote from: %s\n", p); break; } /* Else use the string up to the last bang. */ if (p == NULL) { if (*addrp == '!') err(EX_DATAERR, "bang starts address: %s", addrp); else if ((t = strrchr(addrp, '!')) != NULL) { *t = '\0'; p = addrp; addrp = t + 1; if (*addrp == '\0') err(EX_DATAERR, "corrupted From line: %s", lbuf); if (debug) (void)fprintf(stderr, "bang: %s\n", p); } } /* 'p' now points to any system string from this line. */ if (p != NULL) { /* Nul terminate it as necessary. */ for (t = p; *t && !isspace((unsigned char)*t); ++t); *t = '\0'; /* If the first system, copy to the from_sys string. */ if (from_sys == NULL) { if ((from_sys = strdup(p)) == NULL) err(EX_TEMPFAIL, NULL); if (debug) (void)fprintf(stderr, "from_sys: %s\n", from_sys); } /* Concatenate to the path string. */ len = t - p; if (from_path == NULL) { fplen = 0; if ((from_path = malloc(fptlen = 256)) == NULL) err(EX_TEMPFAIL, NULL); } if (fplen + len + 2 > fptlen) { nfptlen += MAX(fplen + len + 2, 256); if ((n = realloc(from_path, nfptlen)) == NULL) err(EX_TEMPFAIL, NULL); from_path = n; fptlen = nfptlen; } memmove(from_path + fplen, p, len); fplen += len; from_path[fplen++] = '!'; from_path[fplen] = '\0'; } /* Save off from user's address; the last one wins. */ for (p = addrp; *p && !isspace((unsigned char)*p); ++p); *p = '\0'; if (*addrp == '\0') addrp = "<>"; if (from_user != NULL) free(from_user); if ((from_user = strdup(addrp)) == NULL) err(EX_TEMPFAIL, NULL); if (debug) { if (from_path != NULL) (void)fprintf(stderr, "from_path: %s\n", from_path); (void)fprintf(stderr, "from_user: %s\n", from_user); } if (offset != -1) offset = (off_t)ftell(stdin); } i = 0; args[i++] = _PATH_SENDMAIL; /* Build sendmail's argument list. */ args[i++] = "-oee"; /* No errors, just status. */ /* * If you define QUEUE_ONLY, sendmail is invoked with "-odq", * which means all mail is queued instead of being delivered * right then. Your system load will be lower, but mail won't * be delivered until the next queue run (say up to an hour * away). This used to be the default in rmail, but it seems * way outdated now. * The default now is "-odb", deliver in background. * Another possibility would be "-odi", which would deliver in * foreground, which is slow if you have a lot of mail since * you won't get parallelism but will guarantee you don't get * lots of forks. */ #ifdef QUEUE_ONLY args[i++] = "-odq"; /* Queue it, don't try to deliver. */ #else args[i++] = "-odb"; /* Deliver in background. */ #endif args[i++] = "-oi"; /* Ignore '.' on a line by itself. */ /* set from system and protocol used */ if (from_sys == NULL) (void)snprintf(buf, sizeof(buf), "-p%s", domain); else if (strchr(from_sys, '.') == NULL) (void)snprintf(buf, sizeof(buf), "-p%s:%s.%s", domain, from_sys, domain); else (void)snprintf(buf, sizeof(buf), "-p%s:%s", domain, from_sys); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); /* Set name of ``from'' person. */ (void)snprintf(buf, sizeof(buf), "-f%s%s", from_path ? from_path : "", from_user); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); /* * Don't copy arguments beginning with - as they will be * passed to sendmail and could be interpreted as flags. * To prevent confusion of sendmail wrap < and > around * the address (helps to pass addrs like @gw1,@gw2:aa@bb) */ while (*argv) { if (**argv == '-') err(EX_USAGE, "dash precedes argument: %s", *argv); if (strchr(*argv, ',') == NULL || strchr(*argv, '<') != NULL) args[i++] = *argv; else { if (asprintf(&args[i++], "<%s>", *argv) < 0) err(EX_TEMPFAIL, "Cannot malloc"); } argv++; } args[i] = 0; if (debug) { (void)fprintf(stderr, "Sendmail arguments:\n"); for (i = 0; args[i]; i++) (void)fprintf(stderr, "\t%s\n", args[i]); } /* * If called with a regular file as standard input, seek to the right * position in the file and just exec sendmail. Could probably skip * skip the stat, but it's not unreasonable to believe that a failed * seek will cause future reads to fail. */ if (!fstat(STDIN_FILENO, &sb) && S_ISREG(sb.st_mode)) { if (lseek(STDIN_FILENO, offset, SEEK_SET) != offset) err(EX_TEMPFAIL, "stdin seek"); execv(_PATH_SENDMAIL, args); err(EX_OSERR, "%s", _PATH_SENDMAIL); } if (pipe(pdes) < 0) err(EX_OSERR, NULL); switch (pid = vfork()) { case -1: /* Err. */ err(EX_OSERR, NULL); case 0: /* Child. */ if (pdes[0] != STDIN_FILENO) { (void)dup2(pdes[0], STDIN_FILENO); (void)close(pdes[0]); } (void)close(pdes[1]); execv(_PATH_SENDMAIL, args); _exit(127); /* NOTREACHED */ } if ((fp = fdopen(pdes[1], "w")) == NULL) err(EX_OSERR, NULL); (void)close(pdes[0]); /* Copy the file down the pipe. */ do { (void)fprintf(fp, "%s", lbuf); } while (fgets(lbuf, sizeof(lbuf), stdin) != NULL); if (ferror(stdin)) err(EX_TEMPFAIL, "stdin: %s", strerror(errno)); if (fclose(fp)) err(EX_OSERR, NULL); if ((waitpid(pid, &status, 0)) == -1) err(EX_OSERR, "%s", _PATH_SENDMAIL); if (!WIFEXITED(status)) err(EX_OSERR, "%s: did not terminate normally", _PATH_SENDMAIL); if (WEXITSTATUS(status)) err(status, "%s: terminated with %d (non-zero) status", _PATH_SENDMAIL, WEXITSTATUS(status)); exit(EX_OK); } void usage() { (void)fprintf(stderr, "usage: rmail [-T] [-D domain] user ...\n"); exit(EX_USAGE); }