BSD 4_3_Net_2 release

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

diff --git a/usr/src/usr.bin/vacation/vacation.c b/usr/src/usr.bin/vacation/vacation.c
index 7ac5320..5a1b950 100644 (file)
--- a/usr/src/usr.bin/vacation/vacation.c
+++ b/usr/src/usr.bin/vacation/vacation.c
@@ -1,357 +1,389 @@
-# include <pwd.h>
-# include <stdio.h>
-# include <sysexits.h>
-# include <ctype.h>
-# include "useful.h"
-# include "userdbm.h"
-
-SCCSID(@(#)vacation.c  4.1             %G%);
+/*
+ * Copyright (c) 1983, 1987 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) 1983, 1987 Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)vacation.c 5.19 (Berkeley) 3/23/91";
+#endif /* not lint */

 
 /*
 
 /*

-**  VACATION -- return a message to the sender when on vacation.
-**
-**     This program could be invoked as a message receiver
-**     when someone is on vacation.  It returns a message
-**     specified by the user to whoever sent the mail, taking
-**     care not to return a message too often to prevent
-**     "I am on vacation" loops.
-**
-**     For best operation, this program should run setuid to
-**     root or uucp or someone else that sendmail will believe
-**     a -f flag from.  Otherwise, the user must be careful
-**     to include a header on his .vacation.msg file.
-**
-**     Positional Parameters:
-**             the user to collect the vacation message from.
-**
-**     Flag Parameters:
-**             -I      initialize the database.
-**             -tT     set the timeout to T.  messages arriving more
-**                     often than T will be ignored to avoid loops.
-**
-**     Side Effects:
-**             A message is sent back to the sender.
-**
-**     Author:
-**             Eric Allman
-**             UCB/INGRES
+**  Vacation
+**  Copyright (c) 1983  Eric P. Allman
+**  Berkeley, California

 */
 
 */
 

-# define MAXLINE       256     /* max size of a line */
-# define MAXNAME       128     /* max size of one name */
+#include <sys/param.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <pwd.h>
+#include <db.h>
+#include <time.h>
+#include <syslog.h>
+#include <tzfile.h>
+#include <errno.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <stdlib.h>
+#include <string.h>
+#include <paths.h>

 
 

-# define ONEWEEK       (60L*60L*24L*7L)
+/*
+ *  VACATION -- return a message to the sender when on vacation.
+ *
+ *     This program is invoked as a message receiver.  It returns a
+ *     message specified by the user to whomever sent the mail, taking
+ *     care not to return a message too often to prevent "I am on
+ *     vacation" loops.
+ */

 
 

-time_t Timeout = ONEWEEK;      /* timeout between notices per user */
+#define        MAXLINE 1024                    /* max line from mail header */
+#define        VDB     ".vacation.db"          /* dbm's database */
+#define        VMSG    ".vacation.msg"         /* vacation message */

 
 

-struct dbrec
-{
-       long    sentdate;
-};
+typedef struct alias {
+       struct alias *next;
+       char *name;
+} ALIAS;
+ALIAS *names;
+
+DB *db;
+
+char from[MAXLINE];

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

+       int argc;

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

-       char *from;
-       register char *p;
+       extern int optind, opterr;
+       extern char *optarg;

        struct passwd *pw;
        struct passwd *pw;

-       char *homedir;
-       char *myname;
-       char buf[MAXLINE];
-       extern struct passwd *getpwnam();
-       extern char *newstr();
-       extern char *getfrom();
-       extern bool knows();
-       extern time_t convtime();
-
-       /* process arguments */
-       while (--argc > 0 && (p = *++argv) != NULL && *p == '-')
-       {
-               switch (*++p)
-               {
-                 case 'I':     /* initialize */
-                       initialize();
-                       exit(EX_OK);
-
-                 case 't':     /* set timeout */
-                       Timeout = convtime(++p);
+       ALIAS *cur;
+       time_t interval;
+       int ch, iflag;
+
+       opterr = iflag = 0;
+       interval = -1;
+       while ((ch = getopt(argc, argv, "a:Iir:")) != EOF)
+               switch((char)ch) {
+               case 'a':                       /* alias */
+                       if (!(cur = (ALIAS *)malloc((u_int)sizeof(ALIAS))))
+                               break;
+                       cur->name = optarg;
+                       cur->next = names;
+                       names = cur;

                        break;
                        break;

-
-                 default:
-                       usrerr("Unknown flag -%s", p);
-                       exit(EX_USAGE);
+               case 'I':                       /* backward compatible */
+               case 'i':                       /* init the database */
+                       iflag = 1;
+                       break;
+               case 'r':
+                       if (isdigit(*optarg)) {
+                               interval = atol(optarg) * SECSPERDAY;
+                               if (interval < 0)
+                                       usage();
+                       }
+                       else
+                               interval = LONG_MAX;
+                       break;
+               case '?':
+               default:
+                       usage();
+               }
+       argc -= optind;
+       argv += optind;
+
+       if (argc != 1) {
+               if (!iflag)
+                       usage();
+               if (!(pw = getpwuid(getuid()))) {
+                       syslog(LOG_ERR,
+                           "vacation: no such user uid %u.\n", getuid());
+                       exit(1);

                }
        }
                }
        }

+       else if (!(pw = getpwnam(*argv))) {
+               syslog(LOG_ERR, "vacation: no such user %s.\n", *argv);
+               exit(1);
+       }
+       if (chdir(pw->pw_dir)) {
+               syslog(LOG_NOTICE,
+                   "vacation: no such directory %s.\n", pw->pw_dir);
+               exit(1);
+       }

 
 

-       /* verify recipient argument */
-       if (argc != 1)
-       {
-               usrerr("Usage: vacation username (or) vacation -I");
-               exit(EX_USAGE);
+       db = hash_open(VDB, O_CREAT|O_RDWR | (iflag ? O_TRUNC : 0),
+           S_IRUSR|S_IWUSR, (HASHINFO *)NULL);
+       if (!db) {
+               syslog(LOG_NOTICE, "vacation: %s: %s\n", VDB, strerror(errno));
+               exit(1);

        }
 
        }
 

-       myname = p;
+       if (interval != -1)
+               setinterval(interval);

 
 

-       /* find user's home directory */
-       pw = getpwnam(myname);
-       if (pw == NULL)
-       {
-               usrerr("Unknown user %s", myname);
-               exit(EX_NOUSER);
+       if (iflag) {
+               (void)(db->close)(db);
+               exit(0);

        }
        }

-       homedir = newstr(pw->pw_dir);
-       (void) strcpy(buf, homedir);
-       (void) strcat(buf, "/.vacation");
-       dbminit(buf);
-
-       /* read message from standard input (just from line) */
-       from = getfrom();
-
-       /* check if this person is already informed */
-       if (!knows(from))
-       {
-               /* mark this person as knowing */
-               setknows(from);
-
-               /* send the message back */
-               (void) strcpy(buf, homedir);
-               (void) strcat(buf, "/.vacation.msg");
-               sendmessage(buf, from, myname);
-               /* never returns */
+
+       if (!(cur = malloc((u_int)sizeof(ALIAS))))
+               exit(1);
+       cur->name = pw->pw_name;
+       cur->next = names;
+       names = cur;
+
+       readheaders();
+       if (!recent()) {
+               setreply();
+               (void)(db->close)(db);
+               sendmessage(pw->pw_name);

        }
        }

-       exit (EX_OK);
+       (void)(db->close)(db);
+       exit(0);
+       /* NOTREACHED */

 }
 }

-\f/*
-**  GETFROM -- read message from standard input and return sender
-**
-**     Parameters:
-**             none.
-**
-**     Returns:
-**             pointer to the sender address.
-**
-**     Side Effects:
-**             Reads first line from standard input.
-*/

 
 

-char *
-getfrom()
+/*
+ * readheaders --
+ *     read mail headers
+ */
+readheaders()

 {
 {

-       static char line[MAXLINE];
+       register ALIAS *cur;

        register char *p;
        register char *p;

+       int tome, cont;
+       char buf[MAXLINE];

 
 

-       /* read the from line */
-       if (fgets(line, sizeof line, stdin) == NULL ||
-           strncmp(line, "From ", 5) != NULL)
-       {
-               usrerr("No initial From line");
-               exit(EX_USAGE);
-       }
-
-       /* find the end of the sender address and terminate it */
-       p = index(&line[5], ' ');
-       if (p == NULL)
-       {
-               usrerr("Funny From line '%s'", line);
-               exit(EX_USAGE);
+       cont = tome = 0;
+       while (fgets(buf, sizeof(buf), stdin) && *buf != '\n')
+               switch(*buf) {
+               case 'F':               /* "From " */
+                       cont = 0;
+                       if (!strncmp(buf, "From ", 5)) {
+                               for (p = buf + 5; *p && *p != ' '; ++p);
+                               *p = '\0';
+                               (void)strcpy(from, buf + 5);
+                               if (p = index(from, '\n'))
+                                       *p = '\0';
+                               if (junkmail())
+                                       exit(0);
+                       }
+                       break;
+               case 'P':               /* "Precedence:" */
+                       cont = 0;
+                       if (strncasecmp(buf, "Precedence", 10) ||
+                           buf[10] != ':' && buf[10] != ' ' && buf[10] != '\t')
+                               break;
+                       if (!(p = index(buf, ':')))
+                               break;
+                       while (*++p && isspace(*p));
+                       if (!*p)
+                               break;
+                       if (!strncasecmp(p, "junk", 4) ||
+                           !strncasecmp(p, "bulk", 4))
+                               exit(0);
+                       break;
+               case 'C':               /* "Cc:" */
+                       if (strncmp(buf, "Cc:", 3))
+                               break;
+                       cont = 1;
+                       goto findme;
+               case 'T':               /* "To:" */
+                       if (strncmp(buf, "To:", 3))
+                               break;
+                       cont = 1;
+                       goto findme;
+               default:
+                       if (!isspace(*buf) || !cont || tome) {
+                               cont = 0;
+                               break;
+                       }
+findme:                        for (cur = names; !tome && cur; cur = cur->next)
+                               tome += nsearch(cur->name, buf);
+               }
+       if (!tome)
+               exit(0);
+       if (!*from) {
+               syslog(LOG_NOTICE, "vacation: no initial \"From\" line.\n");
+               exit(1);

        }
        }

-       *p = '\0';
-
-       /* return the sender address */
-       return (&line[5]);

 }
 }

-\f/*
-**  KNOWS -- predicate telling if user has already been informed.
-**
-**     Parameters:
-**             user -- the user who sent this message.
-**
-**     Returns:
-**             TRUE if 'user' has already been informed that the
-**                     recipient is on vacation.
-**             FALSE otherwise.
-**
-**     Side Effects:
-**             none.
-*/

 
 

-bool
-knows(user)
-       char *user;
+/*
+ * nsearch --
+ *     do a nice, slow, search of a string for a substring.
+ */
+nsearch(name, str)
+       register char *name, *str;

 {
 {

-       DATUM k, d;
-       long now;
-
-       time(&now);
-       k.dptr = user;
-       k.dsize = strlen(user) + 1;
-       d = fetch(k);
-       if (d.dptr == NULL || ((struct dbrec *) d.dptr)->sentdate + Timeout < now)
-               return (FALSE);
-       return (TRUE);
+       register int len;
+
+       for (len = strlen(name); *str; ++str)
+               if (*str == *name && !strncasecmp(name, str, len))
+                       return(1);
+       return(0);

 }
 }

-\f/*
-**  SETKNOWS -- set that this user knows about the vacation.
-**
-**     Parameters:
-**             user -- the user who should be marked.
-**
-**     Returns:
-**             none.
-**
-**     Side Effects:
-**             The dbm file is updated as appropriate.
-*/

 
 

-setknows(user)
-       char *user;
+/*
+ * junkmail --
+ *     read the header and return if automagic/junk/bulk mail
+ */
+junkmail()

 {
 {

-       DATUM k, d;
-       struct dbrec xrec;
-
-       k.dptr = user;
-       k.dsize = strlen(user) + 1;
-       time(&xrec.sentdate);
-       d.dptr = (char *) &xrec;
-       d.dsize = sizeof xrec;
-       store(k, d);
+       static struct ignore {
+               char    *name;
+               int     len;
+       } ignore[] = {
+               "-request", 8,          "postmaster", 10,       "uucp", 4,
+               "mailer-daemon", 13,    "mailer", 6,            "-relay", 6,
+               NULL, NULL,
+       };
+       register struct ignore *cur;
+       register int len;
+       register char *p;
+
+       /*
+        * This is mildly amusing, and I'm not positive it's right; trying
+        * to find the "real" name of the sender, assuming that addresses
+        * will be some variant of:
+        *
+        * From site!site!SENDER%site.domain%site.domain@site.domain
+        */
+       if (!(p = index(from, '%')))
+               if (!(p = index(from, '@'))) {
+                       if (p = rindex(from, '!'))
+                               ++p;
+                       else
+                               p = from;
+                       for (; *p; ++p);
+               }
+       len = p - from;
+       for (cur = ignore; cur->name; ++cur)
+               if (len >= cur->len &&
+                   !strncasecmp(cur->name, p - cur->len, cur->len))
+                       return(1);
+       return(0);

 }
 }

-\f/*
-**  SENDMESSAGE -- send a message to a particular user.
-**
-**     Parameters:
-**             msgf -- filename containing the message.
-**             user -- user who should receive it.
-**
-**     Returns:
-**             none.
-**
-**     Side Effects:
-**             sends mail to 'user' using /usr/lib/sendmail.
-*/

 
 

-sendmessage(msgf, user, myname)
-       char *msgf;
-       char *user;
-       char *myname;
+#define        VIT     "__VACATION__INTERVAL__TIMER__"
+
+/*
+ * recent --
+ *     find out if user has gotten a vacation message recently.
+ *     use bcopy for machines with alignment restrictions
+ */
+recent()

 {
 {

-       FILE *f;
-
-       /* find the message to send */
-       f = freopen(msgf, "r", stdin);
-       if (f == NULL)
-       {
-               f = freopen("/usr/lib/vacation.def", "r", stdin);
-               if (f == NULL)
-                       syserr("No message to send");
+       DBT key, data;
+       time_t then, next;
+
+       /* get interval time */
+       key.data = VIT;
+       key.size = sizeof(VIT);
+       if ((db->get)(db, &key, &data, 0))
+               next = SECSPERDAY * DAYSPERWEEK;
+       else
+               bcopy(data.data, &next, sizeof(next));
+
+       /* get record for this address */
+       key.data = from;
+       key.size = strlen(from);
+       if (!(db->get)(db, &key, &data, 0)) {
+               bcopy(data.data, &then, sizeof(then));
+               if (next == LONG_MAX || then + next > time(NULL))
+                       return(1);

        }
        }

-
-       execl("/usr/lib/sendmail", "sendmail", "-f", myname, user, NULL);
-       syserr("Cannot exec /usr/lib/sendmail");
+       return(0);

 }
 }

-\f/*
-**  INITIALIZE -- initialize the database before leaving for vacation
-**
-**     Parameters:
-**             none.
-**
-**     Returns:
-**             none.
-**
-**     Side Effects:
-**             Initializes the files .vacation.{pag,dir} in the
-**             caller's home directory.
-*/

 
 

-initialize()
+/*
+ * setinterval --
+ *     store the reply interval
+ */
+setinterval(interval)
+       time_t interval;

 {
 {

-       char *homedir;
-       char buf[MAXLINE];
+       DBT key, data;

 
 

-       setgid(getgid());
-       setuid(getuid());
-       homedir = getenv("HOME");
-       if (homedir == NULL)
-               syserr("No home!");
-       (void) strcpy(buf, homedir);
-       (void) strcat(buf, "/.vacation.dir");
-       if (close(creat(buf, 0644)) < 0)
-               syserr("Cannot create %s", buf);
-       (void) strcpy(buf, homedir);
-       (void) strcat(buf, "/.vacation.pag");
-       if (close(creat(buf, 0644)) < 0)
-               syserr("Cannot create %s", buf);
+       key.data = VIT;
+       key.size = sizeof(VIT);
+       data.data = &interval;
+       data.size = sizeof(interval);
+       (void)(db->put)(db, &key, &data, R_PUT);

 }
 }

-\f/*
-**  USRERR -- print user error
-**
-**     Parameters:
-**             f -- format.
-**             p -- first parameter.
-**
-**     Returns:
-**             none.
-**
-**     Side Effects:
-**             none.
-*/

 
 

-usrerr(f, p)
-       char *f;
-       char *p;
+/*
+ * setreply --
+ *     store that this user knows about the vacation.
+ */
+setreply()

 {
 {

-       fprintf(stderr, "vacation: ");
-       _doprnt(f, &p, stderr);
-       fprintf(stderr, "\n");
+       DBT key, data;
+       time_t now;
+
+       key.data = from;
+       key.size = strlen(from);
+       (void)time(&now);
+       data.data = &now;
+       data.size = sizeof(now);
+       (void)(db->put)(db, &key, &data, R_PUT);

 }
 }

-\f/*
-**  SYSERR -- print system error
-**
-**     Parameters:
-**             f -- format.
-**             p -- first parameter.
-**
-**     Returns:
-**             none.
-**
-**     Side Effects:
-**             none.
-*/

 
 

-syserr(f, p)
-       char *f;
-       char *p;
+/*
+ * sendmessage --
+ *     exec sendmail to send the vacation file to sender
+ */
+sendmessage(myname)
+       char *myname;

 {
 {

-       fprintf(stderr, "vacation: ");
-       _doprnt(f, &p, stderr);
-       fprintf(stderr, "\n");
-       exit(EX_USAGE);
+       if (!freopen(VMSG, "r", stdin)) {
+               syslog(LOG_NOTICE, "vacation: no ~%s/%s file.\n", myname, VMSG);
+               exit(1);
+       }
+       execl(_PATH_SENDMAIL, "sendmail", "-f", myname, from, NULL);
+       syslog(LOG_ERR, "vacation: can't exec %s.\n", _PATH_SENDMAIL);
+       exit(1);

 }
 }

-\f/*
-**  NEWSTR -- copy a string
-**
-**     Parameters:
-**             s -- the string to copy.
-**
-**     Returns:
-**             A copy of the string.
-**
-**     Side Effects:
-**             none.
-*/

 
 

-char *
-newstr(s)
-       char *s;
+usage()

 {
 {

-       char *p;
-
-       p = malloc(strlen(s) + 1);
-       if (p == NULL)
-       {
-               syserr("newstr: cannot alloc memory");
-               exit(EX_OSERR);
-       }
-       strcpy(p, s);
-       return (p);
+       syslog(LOG_NOTICE, "uid %u: usage: vacation [-i] [-a alias] login\n",
+           getuid());
+       exit(1);

 }
 }