usr/src/bin/rmail/rmail.c

/*
 * Copyright (c) 1981, 1988 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. 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.
 */

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1981, 1988 The Regents of the University of California.\n\
 All rights reserved.\n";
#endif /* not lint */

#ifndef lint
static char sccsid[] = "@(#)rmail.c     4.15 (Berkeley) 5/31/90";
#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 calls sendmail giving it a -f option built from these lines.
 */

#include <sysexits.h>
#include <sys/types.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <stdio.h>
#include <paths.h>

typedef char bool;
#define TRUE    1
#define FALSE   0

extern char *index();
extern char *rindex();

char *Domain = "UUCP";          /* Default "Domain" */

main(argc, argv)
        int argc;
        char **argv;
{
        char lbuf[1024];        /* one line of the message */
        char from[512];         /* accumulated path of sender */
        char ufrom[512];        /* user on remote system */
        char sys[512];          /* a system in path */
        char fsys[512];         /* first system in path */
        char junk[1024];        /* scratchpad */
        char *args[100];        /* arguments to mailer command */
        register char *cp;
        register char *uf = NULL;       /* ptr into ufrom */
        int i;
        long position;
        struct stat sbuf;
#ifdef DEBUG
        bool Debug;

        if (argc > 1 && strcmp(argv[1], "-T") == 0) {
                Debug = TRUE;
                argc--;
                argv++;
        }
#endif

        if (argc < 2) {
                fprintf(stderr, "Usage: rmail user ...\n");
                exit(EX_USAGE);
        }
        if (argc > 2 && strncmp(argv[1], "-D", 2) == 0) {
                Domain = &argv[1][2];
                argc -= 2;
                argv += 2;
        }
        from[0] = '\0';
        fsys[0] = '\0';
        (void) strcpy(ufrom, _PATH_DEVNULL);

        for (position = 0;; position = ftell(stdin)) {
                if (fgets(lbuf, sizeof lbuf, stdin) == NULL)
                        exit(EX_DATAERR);
                if (strncmp(lbuf, "From ", 5) != 0 &&
                    strncmp(lbuf, ">From ", 6) != 0)
                        break;
                (void) sscanf(lbuf, "%s %s", junk, ufrom);
                cp = lbuf;
                uf = ufrom;
                for (;;) {
                        cp = index(cp + 1, 'r');
                        if (cp == NULL) {
                                register char *p = rindex(uf, '!');

                                if (p != NULL) {
                                        *p = '\0';
                                        (void) strcpy(sys, uf);
                                        uf = p + 1;
                                        break;
                                }
                                (void) strcpy(sys, "");
                                break;  /* no "remote from" found */
                        }
#ifdef DEBUG
                        if (Debug)
                                printf("cp='%s'\n", cp);
#endif
                        if (strncmp(cp, "remote from ", 12) == 0)
                                break;
                }
                if (cp != NULL)
                        (void) sscanf(cp, "remote from %s", sys);
                if (fsys[0] == '\0')
                        (void) strcpy(fsys, sys);
                if (sys[0]) {
                        (void) strcat(from, sys);
                        (void) strcat(from, "!");
                }
#ifdef DEBUG
                if (Debug)
                        printf("ufrom='%s', sys='%s', from now '%s'\n", uf, sys, from);
#endif
        }
        if (uf == NULL) {       /* No From line was provided */
                fprintf(stderr, "No From line in rmail\n");
                exit(EX_DATAERR);
        }
        (void) strcat(from, uf);
        (void) fstat(0, &sbuf);
        (void) lseek(0, position, L_SET);

        /*
         * Now we rebuild the argument list and chain to sendmail. Note that
         * the above lseek might fail on irregular files, but we check for
         * that case below.
         */
        i = 0;
        args[i++] = _PATH_SENDMAIL;
        args[i++] = "-oee";             /* no errors, just status */
        args[i++] = "-odq";             /* queue it, don't try to deliver */
        args[i++] = "-oi";              /* ignore '.' on a line by itself */
        if (fsys[0] != '\0') {          /* set sender's host name */
                static char junk2[512];

                if (index(fsys, '.') == NULL) {
                        (void) strcat(fsys, ".");
                        (void) strcat(fsys, Domain);
                }
                (void) sprintf(junk2, "-oMs%s", fsys);
                args[i++] = junk2;
        }
                                        /* set protocol used */
        (void) sprintf(junk, "-oMr%s", Domain);
        args[i++] = junk;
        if (from[0] != '\0') {          /* set name of ``from'' person */
                static char junk2[512];

                (void) sprintf(junk2, "-f%s", from);
                args[i++] = junk2;
        }
        for (; *++argv != NULL; i++) {
                /*
                 * don't copy arguments beginning with - as they will
                 * be passed to sendmail and could be interpreted as flags
                 * should be fixed in sendmail by using getopt(3), and
                 * just passing "--" before regular args.
                 */
                if (**argv != '-')
                        args[i] = *argv;
        }
        args[i] = NULL;
#ifdef DEBUG
        if (Debug) {
                printf("Command:");
                for (i = 0; args[i]; i++)
                        printf(" %s", args[i]);
                printf("\n");
        }
#endif
        if ((sbuf.st_mode & S_IFMT) != S_IFREG) {
                /*
                 * If we were not called with standard input on a regular
                 * file, then we have to fork another process to send the
                 * first line down the pipe.
                 */
                int pipefd[2];
#ifdef DEBUG
                if (Debug)
                        printf("Not a regular file!\n");
#endif
                if (pipe(pipefd) < 0)
                        exit(EX_OSERR);
                if (fork() == 0) {
                        /*
                         * Child: send the message down the pipe.
                         */
                        FILE *out;

                        out = fdopen(pipefd[1], "w");
                        close(pipefd[0]);
                        fputs(lbuf, out);
                        while (fgets(lbuf, sizeof lbuf, stdin))
                                fputs(lbuf, out);
                        (void) fclose(out);
                        exit(EX_OK);
                }
                /*
                 * Parent: call sendmail with pipe as standard input
                 */
                close(pipefd[1]);
                dup2(pipefd[0], 0);
        }
        execv(_PATH_SENDMAIL, args);
        fprintf(stderr, "Exec of %s failed!\n", _PATH_SENDMAIL);
        exit(EX_OSERR);
}