V10/lbin/Mail/main.c
#ifndef lint
static char *sccsid = "@(#)main.c 2.12 (Berkeley) 8/11/83";
#endif
#include "rcv.h"
#include <sys/stat.h>
/*
* Mail -- a mail program
*
* Startup -- interface with user.
*/
jmp_buf hdrjmp;
/*
* Find out who the user is, copy his mail file (if exists) into
* /tmp/Rxxxxx and set up the message pointers. Then, print out the
* message headers and read user commands.
* Added by ber 7/84 - optionally create a lock file in the reader's
* home directory so they can be told if they are already
* reading mail on another terminal.
*
* Command line syntax:
* Mail [ -i ] [ -r address ] [ -h number ] [ -f [ name ] ]
* or:
* Mail [ -i ] [ -r address ] [ -h number ] people ...
*/
main(argc, argv)
char **argv;
{
register char *ef;
register int i, argp;
int mustsend, uflag, hdrstop(), (*prevint)(), f;
FILE *ibuf, *ftat;
extern char _sobuf[];
struct sgttyb tbuf;
/*
* Set up a reasonable environment. We clobber the last
* element of argument list for compatibility with version 6,
* figure out whether we are being run interactively, set up
* all the temporary files, buffer standard output, and so forth.
*/
uflag = 0;
argv[argc] = (char *) -1;
#ifdef GETHOST
inithost();
#endif GETHOST
mypid = getpid();
intty = isatty(0);
outtty = isatty(1);
if (outtty) {
gtty(1, &tbuf);
baud = tbuf.sg_ospeed;
}
else
baud = B9600;
image = -1;
setbuf(stdout, _sobuf);
/*
* Now, determine how we are being used.
* We successively pick off instances of -r, -h, -f, and -i.
* If called as "rmail" we note this fact for letter sending.
* If there is anything left, it is the base of the list
* of users to mail to. Argp will be set to point to the
* first of these users.
*/
ef = NOSTR;
argp = -1;
mustsend = 0;
if (argc > 0 && **argv == 'r')
rmail++;
for (i = 1; i < argc; i++) {
/*
* If current argument is not a flag, then the
* rest of the arguments must be recipients.
*/
if (*argv[i] != '-') {
argp = i;
break;
}
switch (argv[i][1]) {
case 'r':
/*
* Next argument is address to be sent along
* to the mailer.
*/
if (i >= argc - 1) {
fprintf(stderr, "Address required after -r\n");
exit(1);
}
mustsend++;
rflag = argv[i+1];
i++;
break;
case 'T':
/*
* Next argument is temp file to write which
* articles have been read/deleted for netnews.
*/
if (i >= argc - 1) {
fprintf(stderr, "Name required after -T\n");
exit(1);
}
Tflag = argv[i+1];
if ((f = creat(Tflag, 0600)) < 0) {
perror(Tflag);
exit(1);
}
close(f);
i++;
break;
case 'u':
/*
* Next argument is person to pretend to be.
*/
uflag++;
if (i >= argc - 1) {
fprintf(stderr, "Missing user name for -u\n");
exit(1);
}
strcpy(myname, argv[i+1]);
i++;
break;
case 'i':
/*
* User wants to ignore interrupts.
* Set the variable "ignore"
*/
assign("ignore", "");
break;
case 'd':
debug++;
break;
case 'h':
/*
* Specified sequence number for network.
* This is the number of "hops" made so
* far (count of times message has been
* forwarded) to help avoid infinite mail loops.
*/
if (i >= argc - 1) {
fprintf(stderr, "Number required for -h\n");
exit(1);
}
mustsend++;
hflag = atoi(argv[i+1]);
if (hflag == 0) {
fprintf(stderr, "-h needs non-zero number\n");
exit(1);
}
i++;
break;
case 's':
/*
* Give a subject field for sending from
* non terminal
*/
if (i >= argc - 1) {
fprintf(stderr, "Subject req'd for -s\n");
exit(1);
}
mustsend++;
sflag = argv[i+1];
i++;
break;
case 'f':
/*
* User is specifying file to "edit" with Mail,
* as opposed to reading system mailbox.
* If no argument is given after -f, we read his
* mbox file in his home directory.
*/
if (i >= argc - 1)
ef = mbox;
else
ef = argv[i + 1];
i++;
break;
case 'n':
/*
* User doesn't want to source /usr/lib/Mail.rc
*/
nosrc++;
break;
case 'N':
/*
* Avoid initial header printing.
*/
noheader++;
break;
case 'v':
/*
* Send mailer verbose flag
*/
assign("verbose", "");
break;
default:
fprintf(stderr, "Unknown flag: %s\n", argv[i]);
exit(1);
}
}
/*
* Check for inconsistent arguments.
*/
if (ef != NOSTR && argp != -1) {
fprintf(stderr, "Cannot give -f and people to send to.\n");
exit(1);
}
if (mustsend && argp == -1) {
fprintf(stderr, "The flags you gave make no sense since you're not sending mail.\n");
exit(1);
}
tinit();
input = stdin;
rcvmode = argp == -1;
if (!nosrc)
load(MASTER);
load(mailrc);
if (argp != -1) {
mail(&argv[argp]);
/*
* why wait?
*/
exit(senderr);
}
/*
* Ok, we are reading mail.
* Decide whether we are editing a mailbox or reading
* the system mailbox, and open up the right stuff.
*/
if (ef != NOSTR) {
char *ename;
edit++;
ename = expand(ef);
if (ename != ef) {
ef = (char *) calloc(1, strlen(ename) + 1);
strcpy(ef, ename);
}
editfile = ef;
strcpy(mailname, ef);
}
if (setfile(mailname, edit) < 0) {
if (edit)
perror(mailname);
else
fprintf(stderr, "No mail for %s\n", myname);
exit(1);
}
if (!edit && !noheader && value("noheader") == NOSTR) {
if (setjmp(hdrjmp) == 0) {
if ((prevint = sigset(SIGINT, SIG_IGN)) != SIG_IGN)
sigset(SIGINT, hdrstop);
announce(!0);
fflush(stdout);
sigset(SIGINT, prevint);
}
}
if (value("warn") != NOSTR)
{
struct stat sbuf;
FILE *fp;
int pid;
char tty[128];
if (strlen(value("warn")) == 0)
sprintf(perslock, "%s/.Maillock", homedir);
else
strcpy(perslock, value("warn"));
if (stat(perslock, &sbuf) >= 0) /* personal lock file exists */
{
fp = fopen(perslock, "r");
if (fp == NULL) /* but can't be read */
{
fprintf(stderr, "There is a personal mail lock file");
fprintf(stderr, " but it can't be read\n");
perror(perslock);
strcpy(perslock, NULL);
}
else
{
fscanf(fp, "%d %s", &pid, tty);
if (kill(pid, 0) == 0) /* and is valid */
{
fprintf(stderr,"You are already reading mail on %s!\n",tty);
fclose(fp);
strcpy(perslock, NULL);
}
else
{
wplock();
}
}
}
else /* no lock, we'll make one */
{
wplock();
}
}
if (edit)
newfileinfo();
if (!edit && msgCount == 0) {
printf("No mail\n");
fflush(stdout);
exit(0);
}
commands();
if (!edit) {
sigset(SIGHUP, SIG_IGN);
sigset(SIGINT, SIG_IGN);
sigset(SIGQUIT, SIG_IGN);
quit();
}
if (value("warn") != NOSTR && strlen(perslock) > 0)
unlink(perslock);
exit(0);
}
wplock()
{
FILE *fp;
fp = fopen(perslock, "w");
if (fp == NULL)
{
fprintf(stderr, "Can't make a personal lock file for you\n");
perror(perslock);
strcpy(perslock, NULL);
}
else
{
fprintf(fp, "%d %s\n", getpid(), ttyname(2));
fclose(fp);
}
}
/*
* Interrupt printing of the headers.
*/
hdrstop()
{
clrbuf(stdout);
printf("\nInterrupt\n");
fflush(stdout);
longjmp(hdrjmp, 1);
}