messages to stderr instead of syslog. * Fix manpage with respect to diagnostics. Reported by: rfg@monkeys.com (Ronald F. Guilmette)
525 lines
12 KiB
C
525 lines
12 KiB
C
/*
|
|
* Copyright (c) 1983, 1987, 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. 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
|
|
static const char copyright[] =
|
|
"@(#) Copyright (c) 1983, 1987, 1993\n\
|
|
The Regents of the University of California. All rights reserved.\n";
|
|
#endif /* not lint */
|
|
|
|
#ifndef lint
|
|
#if 0
|
|
static char sccsid[] = "@(#)from: vacation.c 8.2 (Berkeley) 1/26/94";
|
|
#endif
|
|
static const char rcsid[] =
|
|
"$Id: vacation.c,v 1.13 1998/10/13 14:52:32 des Exp $";
|
|
#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 <errno.h>
|
|
#include <unistd.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sysexits.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];
|
|
void (*msglog)(int, const char *, ...) = &syslog;
|
|
|
|
static int isdelim __P((int));
|
|
static int junkmail __P((void));
|
|
static void listdb __P((void));
|
|
static int nsearch __P((char *, char *));
|
|
static void readheaders __P((void));
|
|
static int recent __P((void));
|
|
static void sendmessage __P((char *));
|
|
static void setinterval __P((time_t));
|
|
static void setreply __P((void));
|
|
static void usage __P((void));
|
|
static void debuglog __P((int, const char *, ...));
|
|
|
|
int
|
|
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, lflag, mfail;
|
|
|
|
opterr = iflag = lflag = mfail = 0;
|
|
interval = -1;
|
|
while ((ch = getopt(argc, argv, "a:dIilr:")) != -1) {
|
|
switch((char)ch) {
|
|
case 'a': /* alias */
|
|
if (!(cur = (ALIAS *)malloc((u_int)sizeof(ALIAS)))) {
|
|
mfail++;
|
|
break;
|
|
}
|
|
cur->name = optarg;
|
|
cur->next = names;
|
|
names = cur;
|
|
break;
|
|
case 'd': /* debug mode */
|
|
msglog = &debuglog;
|
|
break;
|
|
case 'I': /* backward compatible */
|
|
case 'i': /* init the database */
|
|
iflag = 1;
|
|
break;
|
|
case 'l':
|
|
lflag = 1; /* list the database */
|
|
break;
|
|
case 'r':
|
|
if (isdigit(*optarg)) {
|
|
interval = atol(optarg) * 86400;
|
|
if (interval < 0)
|
|
usage();
|
|
}
|
|
else
|
|
interval = LONG_MAX;
|
|
break;
|
|
case '?':
|
|
default:
|
|
usage();
|
|
}
|
|
}
|
|
|
|
/* Only die on the above malloc failure here so that the
|
|
* correct logging medium is used.
|
|
*/
|
|
if (mfail) {
|
|
msglog(LOG_ERR, "vacation: malloc failed\n");
|
|
exit(EX_TEMPFAIL);
|
|
}
|
|
|
|
argc -= optind;
|
|
argv += optind;
|
|
|
|
if (argc != 1) {
|
|
if (!iflag && !lflag)
|
|
usage();
|
|
if (!(pw = getpwuid(getuid()))) {
|
|
msglog(LOG_ERR,
|
|
"vacation: no such user uid %u.\n", getuid());
|
|
exit(1);
|
|
}
|
|
}
|
|
else if (!(pw = getpwnam(*argv))) {
|
|
msglog(LOG_ERR, "vacation: no such user %s.\n", *argv);
|
|
exit(1);
|
|
}
|
|
if (chdir(pw->pw_dir)) {
|
|
msglog(LOG_NOTICE,
|
|
"vacation: no such directory %s.\n", pw->pw_dir);
|
|
exit(1);
|
|
}
|
|
|
|
db = dbopen(VDB, O_CREAT|O_RDWR | (iflag ? O_TRUNC : 0),
|
|
S_IRUSR|S_IWUSR, DB_HASH, NULL);
|
|
if (!db) {
|
|
msglog(LOG_NOTICE, "vacation: %s: %s\n", VDB, strerror(errno));
|
|
exit(1);
|
|
}
|
|
|
|
if (lflag)
|
|
listdb();
|
|
else if (interval != -1)
|
|
setinterval(interval);
|
|
|
|
if (iflag || lflag) {
|
|
(void)(db->close)(db);
|
|
exit(0);
|
|
}
|
|
|
|
if (!(cur = malloc((u_int)sizeof(ALIAS)))) {
|
|
msglog(LOG_ERR, "vacation: malloc failed\n");
|
|
exit(EX_TEMPFAIL);
|
|
}
|
|
cur->name = pw->pw_name;
|
|
cur->next = names;
|
|
names = cur;
|
|
|
|
readheaders();
|
|
if (!recent()) {
|
|
setreply();
|
|
(void)(db->close)(db);
|
|
sendmessage(pw->pw_name);
|
|
}
|
|
else
|
|
(void)(db->close)(db);
|
|
exit(0);
|
|
/* NOTREACHED */
|
|
}
|
|
|
|
/*
|
|
* readheaders --
|
|
* read mail headers
|
|
*/
|
|
static void
|
|
readheaders()
|
|
{
|
|
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) ||
|
|
!strncasecmp(p, "list", 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) {
|
|
msglog(LOG_NOTICE, "vacation: no initial \"From\" line.\n");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* nsearch --
|
|
* do a nice, slow, search of a string for a substring.
|
|
*/
|
|
static int
|
|
nsearch(name, str)
|
|
register char *name, *str;
|
|
{
|
|
register int len;
|
|
|
|
for (len = strlen(name); *str; ++str)
|
|
if (*str == *name &&
|
|
!strncasecmp(name, str, len) &&
|
|
isdelim((unsigned char)str[len]))
|
|
return(1);
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* junkmail --
|
|
* read the header and return if automagic/junk/bulk/list mail
|
|
*/
|
|
static int
|
|
junkmail()
|
|
{
|
|
static struct ignore {
|
|
char *name;
|
|
int len;
|
|
} ignore[] = {
|
|
{"-request", 8}, {"postmaster", 10}, {"uucp", 4},
|
|
{"mailer-daemon", 13}, {"mailer", 6}, {"-relay", 6},
|
|
{NULL, 0},
|
|
};
|
|
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
|
|
*/
|
|
static int
|
|
recent()
|
|
{
|
|
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 = 86400 * 7;
|
|
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);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* setinterval --
|
|
* store the reply interval
|
|
*/
|
|
static void
|
|
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, 0);
|
|
}
|
|
|
|
/*
|
|
* setreply --
|
|
* store that this user knows about the vacation.
|
|
*/
|
|
static void
|
|
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, 0);
|
|
}
|
|
|
|
/*
|
|
* sendmessage --
|
|
* exec sendmail to send the vacation file to sender
|
|
*/
|
|
static void
|
|
sendmessage(myname)
|
|
char *myname;
|
|
{
|
|
FILE *mfp, *sfp;
|
|
int i;
|
|
int pvect[2];
|
|
char buf[MAXLINE];
|
|
|
|
mfp = fopen(VMSG, "r");
|
|
if (mfp == NULL) {
|
|
msglog(LOG_NOTICE, "vacation: no ~%s/%s file.\n", myname, VMSG);
|
|
exit(1);
|
|
}
|
|
if (pipe(pvect) < 0) {
|
|
msglog(LOG_ERR, "vacation: pipe: %s", strerror(errno));
|
|
exit(1);
|
|
}
|
|
i = fork();
|
|
if (i < 0) {
|
|
msglog(LOG_ERR, "vacation: fork: %s", strerror(errno));
|
|
exit(1);
|
|
}
|
|
if (i == 0) {
|
|
dup2(pvect[0], 0);
|
|
close(pvect[0]);
|
|
close(pvect[1]);
|
|
close(fileno(mfp));
|
|
execl(_PATH_SENDMAIL, "sendmail", "-f", myname, "--", from, NULL);
|
|
msglog(LOG_ERR, "vacation: can't exec %s: %s",
|
|
_PATH_SENDMAIL, strerror(errno));
|
|
_exit(1);
|
|
}
|
|
close(pvect[0]);
|
|
sfp = fdopen(pvect[1], "w");
|
|
fprintf(sfp, "To: %s\n", from);
|
|
while (fgets(buf, sizeof buf, mfp))
|
|
fputs(buf, sfp);
|
|
fclose(mfp);
|
|
fclose(sfp);
|
|
}
|
|
|
|
static void
|
|
usage()
|
|
{
|
|
msglog(LOG_NOTICE, "uid %u: usage: vacation [-d] [-i [-rinterval]] [-l] [-a alias] login\n",
|
|
getuid());
|
|
exit(1);
|
|
}
|
|
|
|
static void
|
|
listdb()
|
|
{
|
|
DBT key, data;
|
|
int rv;
|
|
time_t t;
|
|
char user[MAXLINE];
|
|
|
|
while((rv = db->seq(db, &key, &data, R_NEXT)) == 0) {
|
|
bcopy(key.data, user, key.size);
|
|
user[key.size] = '\0';
|
|
if (strcmp(user, VIT) == 0)
|
|
continue;
|
|
bcopy(data.data, &t, data.size);
|
|
printf("%-40s %-10s", user, ctime(&t));
|
|
}
|
|
if (rv == -1)
|
|
perror("IO error in database");
|
|
}
|
|
|
|
/*
|
|
* Is `c' a delimiting character for a recipient name?
|
|
*/
|
|
static int
|
|
isdelim(c)
|
|
int c;
|
|
{
|
|
/*
|
|
* NB: don't use setlocale() before, headers are supposed to
|
|
* consist only of ASCII (aka. C locale) characters.
|
|
*/
|
|
if (isalnum(c))
|
|
return(0);
|
|
if (c == '_' || c == '-' || c == '.')
|
|
return(0);
|
|
return(1);
|
|
}
|
|
|
|
/*
|
|
* Append a message to the standard error for the convenience of end-users
|
|
* debugging without access to the syslog messages.
|
|
*/
|
|
static void
|
|
debuglog(int i, const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
|
|
i = 0; /* Printing syslog priority not implemented */
|
|
va_start(ap, fmt);
|
|
vfprintf(stderr, fmt, ap);
|
|
va_end(ap);
|
|
}
|