usr/src/usr.bin/vacation/vacation.c

/*
 * Copyright (c) 1983, 1987 Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#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) %G%";
#endif /* not lint */

/*
**  Vacation
**  Copyright (c) 1983  Eric P. Allman
**  Berkeley, California
*/

#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>

/*
 *  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.
 */

#define MAXLINE 1024                    /* max line from mail header */
#define VDB     ".vacation.db"          /* dbm's database */
#define VMSG    ".vacation.msg"         /* vacation message */

typedef struct alias {
        struct alias *next;
        char *name;
} ALIAS;
ALIAS *names;

DB *db;

char from[MAXLINE];

main(argc, argv)
        int argc;
        char **argv;
{
        extern int optind, opterr;
        extern char *optarg;
        struct passwd *pw;
        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;
                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);
        }

        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);
        }

        if (interval != -1)
                setinterval(interval);

        if (iflag) {
                (void)(db->close)(db);
                exit(0);
        }

        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);
        }
        (void)(db->close)(db);
        exit(0);
        /* NOTREACHED */
}

/*
 * readheaders --
 *      read mail headers
 */
getfrom(shortp)
char **shortp;
{
        register ALIAS *cur;
        register char *p;
        int tome, cont;
        char buf[MAXLINE];

        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);
        }
}

        return start;
}

/*
 * junkmail --
 *      read the header and return if automagic/junk/bulk mail
 */
junkmail()
{
        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);
}

#define VIT     "__VACATION__INTERVAL__TIMER__"

/*
 * recent --
 *      find out if user has gotten a vacation message recently.
 *      use bcopy for machines with alignment restrictions
 */
char *user;
{
        DBT key, data;
        time_t then, next;

        if (d.dptr == NULL)
                return FALSE;
        bcopy(d.dptr, (char *)&ldbrec, sizeof ldbrec);  /* realign data */
        return ldbrec.sentdate + Timeout >= time((time_t *)0);
}

#ifndef VMUNIX
bcopy(from, to, size)
register char *to, *from;
register unsigned size;
{
        while (size-- > 0)
                *to++ = *from++;
}
#endif

/*
 * setinterval --
 *      store the reply interval
 */
setinterval(interval)
        time_t interval;
{
        DBT key, data;

        key.data = VIT;
        key.size = sizeof(VIT);
        data.data = &interval;
        data.size = sizeof(interval);
        (void)(db->put)(db, &key, &data, R_PUT);
}

/*
 * setreply --
 *      store that this user knows about the vacation.
 */
setreply()
{
        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);
}

/*
 * sendmessage --
 *      exec sendmail to send the vacation file to sender
 */
sendmessage(myname)
        char *myname;
{
        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);
}

usage()
{
        syslog(LOG_NOTICE, "uid %u: usage: vacation [-i] [-a alias] login\n",
            getuid());
        exit(1);
}