Add the source code for /usr/src/usr.bin from the Net/2 tape

[unix-history] / usr / src / bin / rmail / rmail.c

diff --git a/usr/src/bin/rmail/rmail.c b/usr/src/bin/rmail/rmail.c
index 06a036f..40e1688 100644 (file)
--- a/usr/src/bin/rmail/rmail.c
+++ b/usr/src/bin/rmail/rmail.c
@@ -1,124 +1,242 @@
 /*
 /*

-**  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 <stdio.h>
-# include <sysexits.h>
-# include "useful.h"
-# include "conf.h"
-
-SCCSID(@(#)rmail.c     3.9     (Berkeley)      %G%);
-
-extern FILE *popen();
-extern char *index();
+ * 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

 
 

-bool   Debug;
+extern char *index();
+extern char *rindex();

 
 

-# define MAILER        "/usr/lib/sendmail"
+char *Domain = "UUCP";         /* Default "Domain" */

 
 main(argc, argv)
 
 main(argc, argv)

+       int argc;

        char **argv;
 {
        char **argv;
 {

-       FILE *out;      /* output to sendmail */
-       char lbuf[512]; /* one line of the message */
-       char from[512]; /* accumulated path of sender */
-       char ufrom[64]; /* user on remote system */
-       char sys[64];   /* a system in path */
-       char junk[512]; /* scratchpad */
-       char cmd[2000];
+       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 *cp;

-       register char *uf;      /* ptr into ufrom */
+       register char *uf = NULL;       /* ptr into ufrom */

        int i;
        int i;

+       long position;
+       struct stat sbuf;
+#ifdef DEBUG
+       bool Debug;

 
 

-# ifdef DEBUG
-       if (argc > 1 && strcmp(argv[1], "-T") == 0)
-       {
+       if (argc > 1 && strcmp(argv[1], "-T") == 0) {

                Debug = TRUE;
                argc--;
                argv++;
        }
                Debug = TRUE;
                argc--;
                argv++;
        }

-# endif DEBUG
+#endif

 
 

-       if (argc < 2)
-       {
+       if (argc < 2) {

                fprintf(stderr, "Usage: rmail user ...\n");
                exit(EX_USAGE);
        }
                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);

 
 

-       strcpy(from, "");
-       strcpy(ufrom, "/dev/null");
-
-       for (;;)
-       {
-               (void) fgets(lbuf, sizeof lbuf, stdin);
-               if (strncmp(lbuf, "From ", 5) != 0 && strncmp(lbuf, ">From ", 6) != 0)
+       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;
                        break;
                (void) sscanf(lbuf, "%s %s", junk, ufrom);
                cp = lbuf;
                uf = ufrom;

-               for (;;)
-               {
-                       cp = index(cp+1, 'r');
-                       if (cp == NULL)
-                       {
+               for (;;) {
+                       cp = index(cp + 1, 'r');
+                       if (cp == NULL) {

                                register char *p = rindex(uf, '!');
 
                                register char *p = rindex(uf, '!');
 

-                               if (p != NULL)
-                               {
+                               if (p != NULL) {

                                        *p = '\0';
                                        *p = '\0';

-                                       strcpy(sys, uf);
+                                       (void) strcpy(sys, uf);

                                        uf = p + 1;
                                        break;
                                }
                                        uf = p + 1;
                                        break;
                                }

-                               cp = "remote from somewhere";
+                               (void) strcpy(sys, "");
+                               break;  /* no "remote from" found */

                        }
 #ifdef DEBUG
                        if (Debug)
                                printf("cp='%s'\n", cp);
 #endif
                        }
 #ifdef DEBUG
                        if (Debug)
                                printf("cp='%s'\n", cp);
 #endif

-                       if (strncmp(cp, "remote from ", 12)==0)
+                       if (strncmp(cp, "remote from ", 12) == 0)

                                break;
                }
                if (cp != NULL)
                        (void) sscanf(cp, "remote from %s", sys);
                                break;
                }
                if (cp != NULL)
                        (void) sscanf(cp, "remote from %s", sys);

-               strcat(from, sys);
-               strcat(from, "!");
+               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
        }
 #ifdef DEBUG
                if (Debug)
                        printf("ufrom='%s', sys='%s', from now '%s'\n", uf, sys, from);
 #endif
        }

-       strcat(from, ufrom);
-
-       (void) sprintf(cmd, "%s -em -f%s", MAILER, from);
-       while (*++argv != NULL)
-       {
-               strcat(cmd, " '");
-               if (**argv == '(')
-                       strncat(cmd, *argv + 1, strlen(*argv) - 2);
-               else
-                       strcat(cmd, *argv);
-               strcat(cmd, "'");
+       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
 #ifdef DEBUG

-       if (Debug)
-               printf("cmd='%s'\n", cmd);
-#endif
-       out = popen(cmd, "w");
-       fputs(lbuf, out);
-       while (fgets(lbuf, sizeof lbuf, stdin))
-               fputs(lbuf, out);
-       i = pclose(out);
-       if ((i & 0377) != 0)
-       {
-               fprintf(stderr, "pclose: status 0%o\n", i);
-               exit(EX_OSERR);
+       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;

 
 

-       exit((i >> 8) & 0377);
+                       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);

 }
 }