arti/irix-657m-src
1
0
Fork 0
Code Activity
Files
8fc8fa80899c66937979cd5b807766a40b74cd13
irix-657m-src/eoe/cmd/mailx/vacation.c
calmsacibis995 8fc8fa8089 Source code upload
2022-09-29 17:59:04 +03:00

561 lines
12 KiB
C
Raw Blame History

/*
* Copyright (c) 1983, 1987 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted provided
* that: (1) source distributions retain this entire copyright notice and
* comment, and (2) distributions including binaries display the following
* acknowledgement: ``This product includes software developed by the
* University of California, Berkeley and its contributors'' in the
* documentation or other materials provided with the distribution and in
* all advertising materials mentioning features or use of this software.
* 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#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.17 (Berkeley) 6/1/90";
#endif /* not lint */
/*
** Vacation
** Copyright (c) 1983 Eric P. Allman
** Berkeley, California
*/
#include <sys/param.h>
#include <sys/file.h>
#include <pwd.h>
#include <ndbm.h>
#include <syslog.h>
#include <stdio.h>
#include <ctype.h>
#include <paths.h>
# ifdef sgi
#define SECSPERMIN 60
#define MINSPERHOUR 60
#define HOURSPERDAY 24
#define DAYSPERWEEK 7
#define SECSPERHOUR (SECSPERMIN * MINSPERHOUR)
#define SECSPERDAY ((long) SECSPERHOUR * HOURSPERDAY)
#include <limits.h>
#include <strings.h>
# else
#include <tzfile.h>
# endif /* sgi */
/*
* 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 BUFSIZ /* max line from mail header */
#define VMSG ".vacation.msg" /* vacation message */
#define VACAT ".vacation" /* dbm's database prefix */
#define VDIR ".vacation.dir" /* dbm's DB prefix, part 1 */
#define VPAG ".vacation.pag" /* dbm's DB prefix, part 2 */
typedef struct alias {
struct alias *next;
char *name;
} ALIAS;
ALIAS *names;
static DBM *db;
extern int errno;
static char VIT[] = "__VACATION__INTERVAL__TIMER__";
static char from[MAXLINE];
static char replyto[MAXLINE];
char subject[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;
char *malloc();
uid_t getuid();
long atol();
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)
goto usage;
}
else
interval = LONG_MAX;
break;
case '?':
default:
goto usage;
}
argc -= optind;
argv += optind;
if (argc != 1) {
if (!iflag) {
usage: syslog(LOG_NOTICE, "uid %u: usage: vacation [-i] [-a alias] login\n", getuid());
myexit(1);
}
if (!(pw = getpwuid(getuid()))) {
syslog(LOG_ERR, "vacation: no such user uid %u.\n", getuid());
myexit(1);
}
}
else if (!(pw = getpwnam(*argv))) {
syslog(LOG_ERR, "vacation: no such user %s.\n", *argv);
myexit(1);
}
if (chdir(pw->pw_dir)) {
syslog(LOG_NOTICE, "vacation: no such directory %s.\n", pw->pw_dir);
myexit(1);
}
if (iflag || access(VDIR, F_OK))
initialize();
if (!(db = dbm_open(VACAT, O_RDWR, 0))) {
syslog(LOG_NOTICE, "vacation: %s: %s\n", VACAT,
strerror(errno));
myexit(1);
}
if (interval != -1)
setinterval(interval);
if (iflag)
myexit(0);
if (!(cur = (ALIAS *)malloc((u_int)sizeof(ALIAS))))
myexit(1);
cur->name = pw->pw_name;
cur->next = names;
names = cur;
readheaders();
if (!recent()) {
setreply();
sendmessage(pw->pw_name);
}
myexit(0);
/* NOTREACHED */
}
/*
* readheaders --
* read mail headers
*/
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';
strncpy(from, buf + 5, MAXLINE);
from[MAXLINE - 1] = '\0';
if (p = index(from, '\n'))
*p = '\0';
if (junkmail(from))
myexit(0);
}
break;
case 'R': /* "Reply-To:" */
cont = 0;
if (!strncmp(buf, "Reply-To:", 9)) {
if (!(p = index(buf, ':')))
break;
while (*++p && isspace(*p));
if (!*p)
break;
strncpy(replyto, p, MAXLINE);
replyto[MAXLINE - 1] = '\0';
if (p = index(replyto, '\n'))
*p = '\0';
if (junkmail(replyto))
myexit(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))
myexit(0);
break;
case 'S':
if (!strncmp(buf, "Subject:", sizeof("Subject:")-1)) {
strncpy(subject, index(buf, ':') + 1, MAXLINE);
subject[MAXLINE - 1] = '\0';
}
break;
case 'c':
case 'C': /* "Cc:" */
if (strncasecmp(buf, "Cc:", 3))
break;
cont = 1;
goto findme;
case 't':
case 'T': /* "To:" */
if (strncasecmp(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)
myexit(0);
if (!*from) {
syslog(LOG_NOTICE, "vacation: no initial \"From\" line.\n");
myexit(1);
}
/* If Reply-To: given, use it instead of From */
if (strlen(replyto)) {
strncpy(from, replyto, MAXLINE);
from[MAXLINE - 1] = '\0';
}
}
/*
* nsearch --
* do a nice, slow, search of a string for a substring.
*/
nsearch(name, str)
register char *name, *str;
{
register int len;
for (len = strlen(name); *str; ++str)
if (!strncasecmp(name, str, len))
return(1);
return(0);
}
/*
* junkmail --
* read the header and return if automagic/junk/bulk mail
* or if any dangerous looking sender is detected
*/
junkmail(name)
register char *name;
{
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 *namep, *p, *q;
char *index(), *rindex();
/*
* 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.dom@site.dom:site!site!SENDER%site.dom%site.dom@site.dom
*/
if (!(namep = index(name, ':')))
namep = name;
if (!(p = index(namep, '%')))
if (!(p = index(namep, '@'))) {
if (p = rindex(namep, '!'))
++p;
else
p = namep;
for (; *p; ++p);
}
/*
* p points to the character after SENDER.
*/
namep = p;
namep--;
while (namep >= name && *namep != ':' && *namep != '<' &&
*namep != '!')
namep--;
namep++;
/*
* namep points to the first character of SENDER.
*/
/*
* If the first non-space character of the name is '-', this
* is a potentially dangerous address. It might be someone trying
* to pass command line flags to sendmail via the address field.
*/
q = namep;
while (*q && isspace(*q))
q++;
if (*q == '-')
return(1);
len = p - namep;
for (cur = ignore; cur->name; ++cur)
if (len >= cur->len && !strncasecmp(cur->name,
p - cur->len, cur->len))
return(1);
return(0);
}
/*
* recent --
* find out if user has gotten a vacation message recently.
* use bcopy for machines with alignment restrictions
*/
recent()
{
datum key, data;
time_t then, next, time();
/* get interval time */
key.dptr = VIT;
key.dsize = sizeof(VIT) - 1;
data = dbm_fetch(db, key);
if (data.dptr)
bcopy(data.dptr, (char *)&next, sizeof(next));
else {
/* for backwards compatibility for an old bug */
key.dptr = VIT;
key.dsize = sizeof(VIT) - 1;
data = dbm_fetch(db, key);
if (data.dptr) {
bcopy(data.dptr, (char *)&next, sizeof(next));
} else {
next = SECSPERDAY * DAYSPERWEEK;
}
}
/* get record for this address */
key.dptr = from;
key.dsize = strlen(from);
data = dbm_fetch(db, key);
if (data.dptr) {
bcopy(data.dptr, (char *)&then, sizeof(then));
if (next == LONG_MAX || then + next > time((time_t *)NULL))
return(1);
}
return(0);
}
/*
* setinterval --
* store the reply interval
*/
setinterval(interval)
time_t interval;
{
datum key, data;
key.dptr = VIT;
key.dsize = sizeof(VIT) - 1;
data.dptr = (char *)&interval;
data.dsize = sizeof(interval);
dbm_store(db, key, data, DBM_REPLACE);
}
/*
* setreply --
* store that this user knows about the vacation.
*/
setreply()
{
datum key, data;
time_t now, time();
key.dptr = from;
key.dsize = strlen(from);
(void)time(&now);
data.dptr = (char *)&now;
data.dsize = sizeof(now);
dbm_store(db, key, data, DBM_REPLACE);
}
/*
* openvmsg --
* point stdin at the VMSG template file. If the user's VMSG file has a
* Subject: line just use that, otherwise construct a new template file
* that reads "Re: <incoming message's subject>".
*/
openvmsg(char *myname)
{
FILE *vfp = fopen(VMSG, "r");
char inbuf[MAXLINE];
if (vfp == NULL) {
syslog(LOG_NOTICE, "vacation: no ~%s/%s file.\n", myname, VMSG);
myexit(1);
}
/* If the incoming message doesn't have a Subject:, then we obviously don't
* have to decide whether or not to use it.
*/
if (subject[0])
{
/* Scan VMSG headers looking for Subject: */
while (fgets(inbuf, sizeof(inbuf), vfp))
{
if (inbuf[0] == '\n')
{
/* End of headers, no Subject found. Make a new template file */
char *newfn = mktemp("/usr/tmp/vacationXXXXXX");
FILE *newfp = fopen(newfn, "w+");
if (newfp)
{
int ch;
/* Build the Subject: line */
if (strncasecmp(subject, " Re:", 4))
fputs("Subject: Re:", newfp);
else
fputs("Subject:", newfp);
fputs(subject, newfp);
/* Now copy VMSG into the new file */
rewind(vfp);
while ((ch = fgetc(vfp)) != EOF)
fputc(ch, newfp);
/* We've successfully added Subject: & copied VMSG */
/* Set stdin to our tmp file */
fclose(vfp);
rewind(newfp);
fclose(stdin);
dup(fileno(newfp));
fclose(newfp);
unlink(newfn);
return;
}
/* We couldn't create tmp file, so use VMSG after all */
break;
}
else if (!strncasecmp(inbuf, "Subject:", sizeof("Subject:")-1))
{
/* VMSG has a Subject, so use it as is */
break;
}
}
}
/* Set stdin to VMSG */
rewind(vfp);
fclose(stdin);
dup(fileno(vfp));
fclose(vfp);
}
/*
* sendmessage --
* exec sendmail to send the vacation file to sender
*/
sendmessage(myname)
char *myname;
{
openvmsg(myname);
#if WSMDEBUG
printf("*** [NOT] SENDING REPLY -f == %s, dest == %s ***\n", myname, from);
execl("/sbin/cat", "cat", NULL);
#else
execl(_PATH_SENDMAIL, "sendmail", "-f", myname, from, NULL);
#endif
syslog(LOG_ERR, "vacation: can't exec %s.\n", _PATH_SENDMAIL);
myexit(1);
}
/*
* initialize --
* initialize the dbm database
*/
initialize()
{
int fd;
if ((fd = open(VDIR, O_WRONLY|O_CREAT|O_TRUNC, 0644)) < 0) {
syslog(LOG_NOTICE, "vacation: %s: %s\n", VDIR, strerror(errno));
exit(1);
}
(void)close(fd);
if ((fd = open(VPAG, O_WRONLY|O_CREAT|O_TRUNC, 0644)) < 0) {
syslog(LOG_NOTICE, "vacation: %s: %s\n", VPAG, strerror(errno));
exit(1);
}
(void)close(fd);
}
/*
* myexit --
* we're outta here...
*/
myexit(eval)
int eval;
{
if (db)
dbm_close(db);
exit(eval);
}
View Git Blame Copy Permalink