/* ********************************************************************** *\ * Copyright IBM Corporation 1988,1991 - All Rights Reserved * * For full copyright information see:'andrew/config/COPYRITE' * \* ********************************************************************** */ /* Copyright 1993 Carnegie Mellon University All rights reserved. $Disclaimer: * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose is hereby granted without fee, * provided that the above copyright notice appear in all copies and that * both that copyright notice, this permission notice, and the following * disclaimer appear in supporting documentation, and that the names of * IBM, Carnegie Mellon University, and other copyright holders, not be * used in advertising or publicity pertaining to distribution of the software * without specific, written prior permission. * * IBM, CARNEGIE MELLON UNIVERSITY, AND THE OTHER COPYRIGHT HOLDERS * DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT * SHALL IBM, CARNEGIE MELLON UNIVERSITY, OR ANY OTHER COPYRIGHT HOLDER * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY * DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. * $ */ #ifndef NORCSID #define NORCSID static char rcsid[]="$Header: /afs/cs.cmu.edu/project/atk-dist/auis-6.3/ams/delivery/sendmail/RCS/sendmail.c,v 1.19 1993/10/26 21:52:17 gk5g Exp $"; #endif /* sendmail.c -- Replacement for sendmail on workstations. */ #include #include #include #include #ifdef HAS_SYSEXITS #include #endif /* HAS_SYSEXITS */ #include #include typedef unsigned char bool; #define FALSE 0 #define TRUE 1 #define NIL 0 bool readto, ignoredots; main(argc, argv) int argc; char *argv[]; { register int i, nrecps; nrecps = 0; ignoredots = FALSE; CheckAMSConfiguration(); /* Process arguments */ for (i=1; argv[i] != NIL; i++) { register char *arg; arg = argv[i]; switch (*arg) { case '-': switch (*++arg) { case 'v': fputs("[SENDMAIL] Warning: -v is no longer supported\n", stderr); break; case 't': unsupp(argv, argv[i]); case 'b': if (*++arg == 'm') break; unsupp(argv, argv[i]); case 'o': if (*++arg == 'i') ignoredots = TRUE; else unsupp(argv, argv[i]); case 'i': case 'm': case 's': break; default: unsupp(argv, argv[i]); } break; default: nrecps++; break; } } if (nrecps == 0) unsupp(argv, "No recipient addresses specified"); /* It's okay, just deliver the mail */ exit(deliver(argv, nrecps)); } static deliver(argv, nrecps) char *argv[]; int nrecps; { char **qargs; register FILE *qmail; register bool lookfordot; register int i, q; register int chk_date = 0; /* Get space for args */ /* Allow space for arg[0], -i & NIL */ qargs = (char **) calloc(sizeof(char *), nrecps+4); if (qargs == NIL) { fputs("[SENDMAIL] Out of memory, delivery aborted\n", stderr); postmaster(argv, "Out of memory in deliver"); exit(EX_OSERR); } /* Construct command -- add list of recipients */ qargs[0] = "queuemail"; qargs[1] = "-i"; qargs[2] = "-a"; for (i=1, q=3; argv[i]!=NIL; i++) if (*argv[i] != '-') /* Must be a recipient */ qargs[q++] = argv[i]; /* Null-terminate it */ qargs[q] = NIL; /* Fork queuemail & send it message */ qmail = qopen(queuemail, qargs, "w"); if (qmail == NIL) { fputs("[SENDMAIL] Can't invoke queuemail\n", stderr); exit(EX_UNAVAILABLE); } lookfordot = FALSE; for (;;) { register int c; c = getchar(); switch (c) { case '\n': if (chk_date == 1) { /* end of headers and no date */ fprintf(qmail, "Date: %s", arpadate()); chk_date = 6; } if (chk_date < 6) chk_date = 1; lookfordot = TRUE; break; case EOF: return qclose(qmail); case '.': if (!ignoredots && lookfordot) { c = getchar(); if (c == '\n') return qclose(qmail); fputc('.', qmail); } break; case 'D': case 'd': if (chk_date == 1) chk_date++; else if (chk_date != 6) chk_date = 0; break; case 'A': case 'a': if (chk_date == 2) chk_date++; else if(chk_date != 6) chk_date = 0; break; case 'T': case 't': if (chk_date == 3) chk_date++; else if(chk_date != 6) chk_date = 0; break; case 'E': case 'e': if (chk_date == 4) chk_date++; else if(chk_date != 6) chk_date = 0; break; case ':': if (chk_date == 5) chk_date++; else if(chk_date != 6) chk_date = 0; break; default: lookfordot = FALSE; if (chk_date != 6) chk_date = 0; break; } putc(c, qmail); } } static unsupp(argv, problem) char *argv[], *problem; { fprintf(stderr, "[SENDMAIL] %s was invoked with an unimplemented\n", oldsendmail); fprintf(stderr, "\tor improper option: %s\n", problem); fputs("Postmaster is being made aware of this problem...", stderr); fflush(stderr); postmaster(argv, problem); exit(EX_USAGE); } static char *host() { #define NAMELEN 256 static char name[NAMELEN]; if (GetHostDomainName(name, NAMELEN) < 0) strcpy(name, "UNKNOWN"); else name[NAMELEN-1] = '\0'; return name; } static char *user() { struct passwd *pw; pw = getpwuid(getuid()); if (pw == NULL) return "NO ENTRY"; else return pw -> pw_name; } static postmaster(argv, problem) char *argv[], *problem; { static char *args[] = { "queuemail", "-i", NIL, NIL }; register FILE *fout; register int i; args[2] = PostmasterTitle; fout = qopen(queuemail, args, "w"); if (fout == NULL) return fputs("WARNING: can't send mail to postmaster\n", stderr); /* Header */ fprintf(fout, "Date: %s", arpadate()); fprintf(fout, "From: %s <%s%s@%s>\n", oldsendmail, PostmasterName, (AMS_DeliverySystem ? "+" : ""), WorkstationCell); fprintf(fout, "Subject: %s invoked (%s)\n\n", oldsendmail, problem); /* Body of message */ fprintf(fout, "%s was invoked on host %s at %s\n", oldsendmail, host(), arpadate()); fprintf(fout, "User %s, WS cell %s\n", user(), WorkstationCell); fprintf(fout, "Problem: %s\n", problem); fprintf(fout, "\nCommand: %s", argv[0]); for (i=1; argv[i]!=NULL; i++) fprintf(fout, " %s", argv[i]); fputc('\n', fout); qclose(fout); fputs("done\n", stderr); }