Usenet 1994 October

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume25 / procmail / part01 next >

Wrap

Text File | 1991-11-03 | 56.3 KB | 1,690 lines

Newsgroups: comp.sources.misc From: berg@messua.informatik.rwth-aachen.de (Stephen R. van den Berg) Subject: v25i001: procmail - mail processing program v2.31, Part01/04 Message-ID: <csm-v25i001=procmail.165750@sparky.IMD.Sterling.COM> X-Md4-Signature: 6007a34adcd2bffef5564e24a79617a3 Date: Sun, 3 Nov 1991 22:59:31 GMT Approved: kent@sparky.imd.sterling.com Submitted-by: berg@messua.informatik.rwth-aachen.de (Stephen R. van den Berg) Posting-number: Volume 25, Issue 1 Archive-name: procmail/part01 Environment: UNIX, sendmail, smail, MMDF Supersedes: procmail2.10: Volume 20, Issue 89-91 The procmail mail processing program. (v2.31 1991/10/22) Can be used to create mail-servers, mailing lists, sort your incoming mail into separate folders/files (real convenient when subscribing to one or more mailing lists), preprocess your mail, or selectively forward certain incoming mail automatically to someone. The accompanying formail program enables you to generate autoreplies, split up digests/mailboxes into the original messages, do some very simple header-munging, or force mail into mail-format (with leading From line). -- Sincerely, berg@messua.informatik.rwth-aachen.de Stephen R. van den Berg (AKA BuGless). berg@physik.tu-muenchen.de ---------------------- A recent version can be picked up at various comp.sources.misc archives. The latest version can be obtained directly from the ftp-archive at: amaru.informatik.rwth-aachen.de (137.226.112.31) as compressed tar file: pub/unix/procmail.tar.Z or in compressed shar format: pub/unix/procmail.0?.Z ---------------------- Feature summary for procmail: + It's small + Very easy to install (rated PG6 :-) + Simple to maintain and configure because all you need is actually only ONE executable (procmail) and ONE configuration file (.procmailrc) + Is event driven (i.e. gets invoked automagically when mail arrives) + Does not use *any* temporary files + Uses standard egrep regular expressions + Allows for very-easy-to-use yes-no decisions on where the mail should go + Filters, delivers and forwards mail *reliably* + Provides a reliable hook (you might even say anchor :-) for any programs or shell scripts you may wish to start upon mail arrival + Performs heroically under even the worst conditions (file system full, out of swap space, process table full, file table full, missing support files, unavailable executables, denied permissions) and tries to deliver the mail somehow anyway + Absolutely undeliverable mail (after trying every trick in the book) will bounce back to the sender (or not, your choice) + Is one of the few mailers to perform reliable mailbox locking across NFS as well (DON'T use NFS mounted mailboxes WITHOUT installing procmail, you may use valuable mail one day) + Supports four mailfolder standards: single file folders (standard and nonstandard VNIX format), directory folders that contain one file per message, or the similar MH directory folders (numbered files) + Variable assignment and substitution is an extremely complete subset of the standard /bin/sh syntax + Provides a mail log file, which logs all mail arrival, shows in summary whence it came from, what it was about, where it went (what folder) and how long (in bytes) it was + Uses this log file to display a wide range of diagnostic and error messages (if something went wrong) + Processed mail can contain arbitrary 8-bit characters (including '\0'); i.e. binary mailings can be processed if the rest of the mailing system knew how to handle them too + It has a man page (boy, does *it* have a man page) + procmail can be used as a local delivery agent (a completely integrated substitute for /bin/mail) + It runs on virtually all (old and future) operating systems which names start with a 'U' or end in an 'X' :-) (i.e. extremely portable code) + Works with (among others?) sendmail, smail and MMDF Feature summary for formail: + Can generate auto-reply headers + Can force mail into mailbox format (so that you can process it with standard mail programs) + Can split up mailboxes into the individual messages + Can split up digests into the individual messages + Can split up saved articles into the individual articles + Can do simple header munging Feature summary for lockfile: + Provides NFS-secure lockfiles to shell script programmers #! /bin/sh # This is a shell archive. Remove anything before this line, then feed it # into a shell via "sh file" or similar. To overwrite existing files, # type "sh file -c". # The tool that generated this appeared in the comp.sources.unix newsgroup; # send mail to comp-sources-unix@uunet.uu.net if you want that tool. # Contents: procmail procmail/examples procmail/examples/1procmailrc # procmail/goodies.c procmail/include procmail/include/sys # procmail/man procmail/man/procmail.man procmail/procmail.c # Wrapped by kent@sparky on Sun Nov 3 16:50:05 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH echo If this archive is complete, you will see the following message: echo ' "shar: End of archive 1 (of 4)."' if test ! -d 'procmail' ; then echo shar: Creating directory \"'procmail'\" mkdir 'procmail' fi if test ! -d 'procmail/examples' ; then echo shar: Creating directory \"'procmail/examples'\" mkdir 'procmail/examples' fi if test -f 'procmail/examples/1procmailrc' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'procmail/examples/1procmailrc'\" else echo shar: Extracting \"'procmail/examples/1procmailrc'\" $830 characters$ sed "s/^X//" >'procmail/examples/1procmailrc' <<'END_OF_FILE' XLOCKFILE= # in case we were called in explicit delivery mode X X# Please check if all the paths in PATH are reachable, remove the ones that X# are not. X XPATH=$HOME/bin:/usr/bin:/usr/ucb:/bin:/usr/local/bin: XMAILDIR=$HOME/Mail # You'd better make sure it exists XDEFAULT=$MAILDIR/mbox XLOGFILE=$MAILDIR/from XLOCKFILE=$HOME/.lockmail X X: # Anything from thf X^From.*thf\@somewhere.someplace Xtodd # will go to $MAILDIR/todd X X: # Anything from people at uunet X^From.*\@uunet Xuunetbox # will go to $MAILDIR/uunetbox X X: # Anything from Henry X^From.*henry Xhenries # will go to $MAILDIR/henries X X# Anything that has not been delivered by now will go to $DEFAULT END_OF_FILE if test 830 -ne `wc -c <'procmail/examples/1procmailrc'`; then echo shar: \"'procmail/examples/1procmailrc'\" unpacked with wrong size! fi # end of 'procmail/examples/1procmailrc' fi if test -f 'procmail/goodies.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'procmail/goodies.c'\" else echo shar: Extracting \"'procmail/goodies.c'\" $9016 characters$ sed "s/^X//" >'procmail/goodies.c' <<'END_OF_FILE' X/************************************************************************ X * Collection of library-worthy routines * X * * X * Copyright (c) 1990-1991, S.R.van den Berg, The Netherlands * X * The sources can be freely copied for non-commercial use. * X * #include "README" * X * * X ************************************************************************/ X#ifdef RCS Xstatic char rcsid[]="$Id: goodies.c,v 2.8 1991/10/22 15:31:26 berg Rel $"; X#endif X#include "config.h" X#include "procmail.h" X#include "shell.h" X X#define NOTHING_YET (-1) /* readparse understands a very complete */ X#define SKIPPING_SPACE 0 /* subset of the standard /bin/sh syntax */ X#define NORMAL_TEXT 1 /* that includes single-, double- and back- */ X#define DOUBLE_QUOTED 2 /* quotes, backslashes and $subtitutions */ X#define SINGLE_QUOTED 3 X X/* sarg==0 : normal parsing, split up arguments like in /bin/sh X * sarg==1 : environment assignment parsing, parse up till first whitespace X * sarg==2 : normal parsing, split up arguments by single spaces X */ Xreadparse(p,fgetc,sarg)register char*p;int(*const fgetc)();const int sarg; X{ static i;int got;char*startb; X for(got=NOTHING_YET;;) /* buf2 is used as scratch space */ X { Xloop: X i=fgetc(); X if(buf+linebuf-3<p) /* doesn't catch everything, just a hint */ X { log("Exceeded LINEBUF\n");p=buf+linebuf-3;goto ready; X } Xnewchar: X switch(i) X { case EOF: X if(got>NORMAL_TEXT) Xearly_eof: log(unexpeof); Xready: if(got!=SKIPPING_SPACE||sarg) /* not terminated yet or sarg==2 ? */ X *p++='\0'; X *p=TMNATE;return; X case '\\': X if(got==SINGLE_QUOTED) X break; X switch(i=fgetc()) X { case EOF:goto early_eof; /* can't quote EOF */ X case '\n':continue; /* concatenate lines */ X case '#': X if(got>SKIPPING_SPACE) /* escaped comment at start of word? */ X goto noesc; /* apparently not, literally */ X case ' ':case '\t':case '\'': X if(got==DOUBLE_QUOTED) X goto noesc; X case '"':case '\\':case '$':case '`':goto nodelim; X } X if(got>NORMAL_TEXT) Xnoesc: *p++='\\'; /* nothing to escape, just echo both */ X break; X case '`': X if(got==SINGLE_QUOTED) X goto nodelim; X for(startb=p;;) /* mark your position */ X { switch(i=fgetc()) /* copy till next backquote */ X { case '\\': X switch(i=fgetc()) X { case EOF:log(unexpeof);goto forcebquote; X case '\n':continue; X case '"': X if(got!=DOUBLE_QUOTED) X break; X case '\\':case '$':case '`':goto escaped; X } X *p++='\\';break; X case '"': X if(got!=DOUBLE_QUOTED) /* missing closing backquote? */ X break; Xforcebquote: case EOF:case '`':*p='\0'; X if(!(sh=!!strpbrk(startb,tgetenv(shellmetas)))) X { const char*save=sgetcp; X sgetcp=p=tstrdup(startb);readparse(startb,sgetc,0); X free(p);sgetcp=save; /* chopped up */ X } /* drop source buffer */ X startb=fromprog(p=startb,startb); /* read from program */ X if(!sarg&&got!=DOUBLE_QUOTED) X { i=0;startb=p;goto simplsplit; /* split it up */ X } X if(i=='"'||got<=SKIPPING_SPACE) /* missing closing ` ? */ X got=NORMAL_TEXT; /* or sarg!=0 ? */ X p=startb;goto loop; X case '\n':i=';'; /* newlines separate commands */ X } Xescaped: *p++=i; X } X case '"': X switch(got) X { case DOUBLE_QUOTED:got=NORMAL_TEXT;continue; /* closing " */ X case SINGLE_QUOTED:goto nodelim; X } X got=DOUBLE_QUOTED;continue; /* opening " */ X case '\'': X switch(got) X { case DOUBLE_QUOTED:goto nodelim; X case SINGLE_QUOTED:got=NORMAL_TEXT;continue;} /* closing ' */ X got=SINGLE_QUOTED;continue; /* opening ' */ X case '#': X if(got>SKIPPING_SPACE) /* comment at start of word? */ X break; X while((i=fgetc())!=EOF&&i!='\n'); /* skip till EOL */ X goto ready; X case '$': X if(got==SINGLE_QUOTED) X break; X if(EOF==(i=fgetc())) X { *p++='$';goto ready; X } X startb=buf2; X if(i=='{') /* ${name} */ X { while(EOF!=(i=fgetc())&&alphanum(i)) X *startb++=i; X *startb='\0'; X if(i!='}') X { log("Bad substitution of");logqnl(buf2);continue; X } X i='\0'; X } X else if(alphanum(i)) /* $name */ X { do *startb++=i; X while(EOF!=(i=fgetc())&&alphanum(i)); X if(i==EOF) X i='\0'; X *startb='\0';} X else if(i=='$') /* $$ =pid */ X { ultstr(0,(unsigned long)thepid,p);goto ieofstr; X } X else if(i=='-') /* $- =lastfolder */ X { strcpy(p,lastfolder); Xieofstr: i='\0';goto eofstr;} X else X { *p++='$';goto newchar; /* not a substitution */ X } X startb=(char*)tgetenv(buf2); X if(!sarg&&got!=DOUBLE_QUOTED) Xsimplsplit: for(;;startb++) /* simply split it up in arguments */ X { switch(*startb) X { case ' ':case '\t':case '\n': X if(got<=SKIPPING_SPACE) X continue; X *p++='\0';got=SKIPPING_SPACE;continue; X case '\0':goto eeofstr;} X *p++= *startb;got=NORMAL_TEXT;} X else X { if(got<=SKIPPING_SPACE) /* can only occur if sarg!=0 */ X got=NORMAL_TEXT; X strcpy(p,startb); /* simply copy it */ Xeofstr: p=strchr(p,'\0');} Xeeofstr: if(i) /* already read next character? */ X goto newchar; X continue; X case ' ':case '\t': X switch(got) X { case NORMAL_TEXT: X if(sarg==1) X goto ready; /* already fetched a single argument */ X got=SKIPPING_SPACE;*p++=sarg?' ':'\0'; /* space or \0 sep. */ X case NOTHING_YET:case SKIPPING_SPACE:continue; /* skip space */ X } X case '\n': X if(got<=NORMAL_TEXT) X goto ready; /* EOL means we're ready */ X } Xnodelim: X *p++=i; /* ah, a normal character */ X if(got<=SKIPPING_SPACE) /* should we bother to change mode? */ X got=NORMAL_TEXT; X } X} X Xultstr(minwidth,val,dest)unsigned long val;char*dest; X{ int i;unsigned long j; X j=val;i=0; /* a beauty, isn't it :-) */ X do i++; /* determine needed width */ X while(j/=10); X while(--minwidth>=i) /* fill up any excess width */ X *dest++=' '; X *(dest+=i)='\0'; X do *--dest='0'+val%10; /* display value backwards */ X while(val/=10); X} X Xsputenv(a)char*a; /* smart putenv, the way it was supposed to be */ X{ static struct lienv{struct lienv*next;char name[255];}*myenv; X static alloced;int i,remove;char*split,**preenv;struct lienv*curr,**last; X yell("Assigning",a);remove=0;a=tstrdup(a); /* make working copy */ X if(!(split=strchr(a,'='))) /* assignment or removal? */ X { remove=1;i=strlen(a);*(split=i+(a=realloc(a,i+2)))='='; X split[1]='\0'; X } X i= ++split-a; X for(curr= *(last= &myenv);curr;curr= *(last= &curr->next)) X if(!strncmp(a,curr->name,i)) /* is it one I created earlier? */ X { split=curr->name;*last=curr->next;free(curr); X for(preenv=environ;*preenv!=split;preenv++); X goto wipenv; X } X for(preenv=environ;*preenv;preenv++) X if(!strncmp(a,*preenv,i)) /* is it in the standard environment? */ X { Xwipenv: while(*preenv=preenv[1]) /* wipe this entry out of the environment */ X preenv++; X break; X } X i=(preenv-environ+2)*sizeof*environ; X if(alloced) /* have we ever alloced the environ array before? */ X environ=realloc(environ,i); X else X { alloced=1;environ=tmemmove(malloc(i),environ,i-sizeof*environ); X } X if(!remove) /* if not remove, then add it to both environments */ X { for(preenv=environ;*preenv;preenv++); X curr=malloc(offsetof(struct lienv,name)+strlen(a)+1); X strcpy(*preenv=curr->name,a);free(a);preenv[1]=0;curr->next=myenv; X myenv=curr; X } X} X /* strtol replacement which lacks range checking */ X#ifdef NOstrtol Xlong strtol(start,ptr,base)const char*start,**const ptr; X{ long result;const char*str=start;unsigned i;int sign,found; X if(base>=36||base<(sign=found=result=0)) X goto fault; X for(;;str++) /* skip leading whitespace */ X { switch(*str) X { case '\t':case '\n':case '\v':case '\f':case '\r':case ' ':continue; X } X break; X } X switch(*str) /* any signs? */ X { case '-':sign=1; X case '+':str++; X } X if(*str=='0') /* leading zero(s)? */ X { start++; X if((i= *++str)=='x'||i=='X') /* leading 0x or 0X? */ X if(!base||base==16) X { base=16;str++; /* hexadecimal all right */ X } X else X goto fault; X else if(!base) X base=8; /* then it is octal */ X } X else if(!base) X base=10; /* or else decimal */ X goto jumpin; X do X { found=1;result=result*base+i;++str; /* start converting */ Xjumpin: X if((i= *str-'0')<10); X else if(i-'A'+'0'<26) X i-='A'-10-'0'; X else if(i-'a'+'0'<26) X i-='a'-10-'0'; X else X break; /* not of this world */ X } X while(i<base); /* still of this world */ Xfault: X if(ptr) X *ptr=found?str:start; /* how far did we get */ X return sign?-result:result; X} X#endif END_OF_FILE if test 9016 -ne `wc -c <'procmail/goodies.c'`; then echo shar: \"'procmail/goodies.c'\" unpacked with wrong size! fi # end of 'procmail/goodies.c' fi if test ! -d 'procmail/include' ; then echo shar: Creating directory \"'procmail/include'\" mkdir 'procmail/include' fi if test ! -d 'procmail/include/sys' ; then echo shar: Creating directory \"'procmail/include/sys'\" mkdir 'procmail/include/sys' fi if test ! -d 'procmail/man' ; then echo shar: Creating directory \"'procmail/man'\" mkdir 'procmail/man' fi if test -f 'procmail/man/procmail.man' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'procmail/man/procmail.man'\" else echo shar: Extracting \"'procmail/man/procmail.man'\" $22357 characters$ sed "s/^X//" >'procmail/man/procmail.man' <<'END_OF_FILE' X.de Id X.ds Rv \\$3 X.ds Dt \\$4 X.. X.Id $Id: procmail.man,v 2.11 1991/10/18 15:53:26 berg Rel $ X.de Sh X.br X.ne 9 X.SH "\\$1" X.. X.de Ss X.br X.ne 9 X.SS "\\$1" X.. X.de Tp X.br X.ne 9 X.TP "\\$1" X.. X.TH PROCMAIL 1 \*(Dt BuGless X.SH NAME Xprocmail \- autonomous mail processor X.SH SYNOPSIS X.B procmail X[ X.B \-+PRESERVOPT++TEMPFAILOPT+ X] X.RI [ " parameter\fB=\fPvalue " | " rcfile " ] X\&.\|.\|. X.br X.B procmail X[ X.B \-+PRESERVOPT++TEMPFAILOPT+ X] X.B \-+DELIVEROPT+ X.I recipient X.br X.B procmail X.B \-+VERSIONOPT+ X.Sh DESCRIPTION X.LP XFor a quick start, see X.B NOTES Xat the end. X.LP X.B procmail Xshould be invoked automatically over the X.B .forward Xfile mechanism as soon as mail arrives. Alternatively, when installed by Xa system administrator, it can be invoked from within the mailer immediately. XWhen invoked, it first sets some environment variables to default values, Xreads the mail message from stdin until an EOF, separates the body from the Xheader, and then, if no command line arguments are present, it starts to look Xfor a file named X.B .procmailrc Xin your home directory. According to the processing recipes in this file, Xthe mail message that just arrived gets distributed into the right folder X(and more). X.LP XIf running suid root or with root priviliges, procmail will be able to Xperform as a functionally enhanced, backwards compatible mail delivery agent. X.Ss Defaults X.Tp 2.2i X.B "USER, HOME and SHELL" XYour (the recipient's) defaults X.Tp X.B SHELLMETAS X\&+DEFshellmetas+ X.Tp X.B SHELLFLAGS X\&+DEFshellflags+ X.Tp X.BR ORGMAIL X\&+SYSTEM_MBOX+ X.Tp X.B MAILDIR X\&+DEFmaildir+ X.Tp X.B DEFAULT X\&+DEFdefault+ X.Tp X.B MSGPREFIX X\&+DEFmsgprefix+ X.Tp X.B SENDMAIL X\&+DEFsendmail+ X.Tp X.B LOCKEXT X\&+DEFlockext+ X.Tp X.B LOCKFILE X\&+DEFdefaultlock+ X.br X(only if in explicit delivery mode) X.Ss Environment X.LP XBefore you get lost in the multitude of environment variables, keep in mind Xthat all of them have reasonable defaults. X.Tp 1.2i X.B MAILDIR XCurrent directory while procmail is executing (that means that all paths Xare relative to $MAILDIR). X.Tp X.B DEFAULT XDefault X.B mailbox Xfile (if not told otherwise, procmail will dump mail in this mailbox). X.Tp X.B MSGPREFIX XFilename prefix that is used when delivering to a directory (not used when Xdelivering to a MH directory). X.Tp X.B LOGFILE XAll incoming messages will be logged here with their `+FROM+' and `Subject:' Xlines in the header, and an additional line specifying what folder it Xfinally went to and how long (in bytes) the message was. This file will Xalso contain any error or diagnostic messages from procmail X(normally none :-) or any other programs started by procmail. If this file Xis not specified it defaults to X.BR +console+ . XYou can turn on X.I extended diagnostics Xby prepending a `:' to the filename. X.Tp X.B LOG XAnything assigned to this variable will be echoed in $LOGFILE. X.Tp X.B ORGMAIL XUsually the system mailbox (\fBOR\fPi\fBG\fPinal \fBMAIL\fPbox). If, for Xsome obscure reason (like `\fBfilesystem full\fP') the mail could not be Xdelivered, then this mailbox will be the last resort. If procmail Xfails to save the mail in here (deep, deep trouble :-), then the mail Xwill bounce back to the sender. X.Tp X.B LOCKFILE XGlobal semaphore file. If this file already exists, procmail Xwill wait until it has gone before proceeding, and will create it itself X(cleaning it up when ready, of course). If more than one X.I lockfile Xare specified, then the previous one will be removed before trying to create Xthe new one. X.Tp X.B LOCKEXT XDefault extension that is appended to a destination file to determine Xwhat local X.I lockfile Xto use (only if turned on, on a per-recipe basis). X.Tp X.B LOCKSLEEP XNumber of seconds procmail will sleep before retrying on a X.I lockfile X(if it already existed); if not specified, it defaults to +DEFlocksleep+ Xseconds. X.Tp X.B LOCKTIMEOUT XNumber of seconds that have to have passed since a X.I lockfile Xwas last modified/created before procmail decides that this must be an Xerroneously leftover lockfile that can be removed by force now. If zero, Xthen no timeout will be used and procmail will wait forever until the Xlockfile is removed; if not specified, it defaults to +DEFlocktimeout+ seconds. XThis variable is usefull to prevent indefinite hangups of X.BR sendmail /procmail. X.Tp X.B TIMEOUT XNumber of seconds that have to have passed before procmail decides that Xsome child it started must be hanging. The offending program will receive Xa SIGTERM from procmail, and processing of the rcfile will continue. If zero, Xthen no timeout will be used and procmail will wait forever until the child Xhas terminated; if not specified, it defaults to +DEFtimeout+ seconds. X.Tp X.B HOST XIf this is not the X.I hostname Xof the machine, processing of the current X.I rcfile Xwill immediately cease. If other rcfiles were specified on the Xcommand line, processing will continue with the next one. If all rcfiles Xare exhausted, the program will terminate, but will not generate an error X(i.e. to the mailer it will seem that the mail has been delivered). X.Tp X.B UMASK XThe name says it all (if it doesn't, then forget about this one :-). It Xis taken as an X.B octal Xnumber. If not specified, it defaults to +INIT_UMASK+. X.Tp X.B SHELLMETAS XIf any of the characters in SHELLMETAS appears in the line specifying Xa filter or program, the line will be fed to $SHELL Xinstead of being executed directly. X.Tp X.B SHELLFLAGS XAny invocation of $SHELL will be like: X.br X"$SHELL" "$SHELLFLAGS" "$*"; X.Tp X.B SENDMAIL XIf you're not using the X.I forwarding Xfacility don't worry about this one. It specifies the program being Xcalled to forward any mail. X.br XIt gets invoked as: "$SENDMAIL" "$@"; X.Tp X.B NORESRETRY XNumber of retries that are to be made if any `\fBprocess table full\fP', X`\fBfile table full\fP', `\fBout of memory\fP' or X`\fBout of swap space\fP' error should occur. If this number is negative, Xthen procmail will retry indefinitely; if not specified, it defaults to two Xtimes. The retries occur with a $SUSPEND second interval. The idea behind Xthis is, that if the X.I swap X.I space Xhas been exhausted or the X.I process X.I table Xis full, usually several other programs will either detect this Xand abort or crash 8-), and thereby freeing valuable X.I resources Xfor procmail. X.Tp X.B SUSPEND XNumber of seconds that procmail will pause if it has to wait for something Xthat is currently unavailable (memory, fork, etc.); if not specified, it will Xdefault to +DEFsuspend+ seconds. See also: X.BR LOCKSLEEP . X.Tp X.B LINEBUF XLength of the internal line buffers, cannot be set smaller than +MINlinebuf+. XAll lines read from the rcfile X.RI ( not Xthe mail itself, which can have arbitrary line lengths, or could be a binary Xfile for that matter) should not exceed $LINEBUF characters before and after Xexpansion. If not specified, it defaults to +DEFlinebuf+. X.Tp X.B DELIVERED XIf set (to a dummy value) procmail will pretend (to the mail agent) the mail Xhas been delivered. If mail can not be delivered after meeting this Xassignment, the mail will be lost (i.e. it will not bounce). X.Sh OPTIONS X.Tp 0.5i X.B \-+VERSIONOPT+ XProcmail will print its version number and exit. X.Tp X.B \-+PRESERVOPT+ XPreserve any old environment. Normally procmail clears the environment Xupon startup. However, in any case: any default values will override any Xpreexisting environment variables, i.e. procmail will not pay any attention Xto any predefined environment variables, it will happily overwrite them Xwith his own defaults. X.Tp X.B \-+TEMPFAILOPT+ XMake procmail fail softly, i.e. if procmail can not deliver the mail to Xany of the destinations you gave, the mail will not bounce, but will return Xto the mailqueue. Another delivery-attempt will be made at some time in Xthe future. X.Tp X.I "\fB\-+DELIVEROPT+\fP recipient" XThis turns on explicit delivery mode, delivery will be to the local user X.IR recipient . XThis, of course, only is possible if procmail has root priviliges. XFor security reasons procmail will refuse to accept more arguments when using Xthis mode, procmail will setuid to the intended recipient and will X.I only Xread the recipient's .procmailrc file (if present, if not, delivery is like Xordinary mail). X.Sh ARGUMENTS X.LP XAny arguments containing an '=' are considered to be environment variable Xassignments, they will X.I all Xbe evaluated after the default values have been Xassigned and before the first rcfile is opened. X.LP XAny other arguments are presumed to be rcfile paths (absolute or relative to X$HOME); procmail will start with the first one it finds on the command line. XThe following ones will only be parsed if the preceding ones have a not Xmatching HOST-directive entry, or in case they should not exist. X.LP XIf no rcfiles are specified, it looks for X.BR $HOME/+PROCMAILRC+ . XIf not even that can be found processing will continue according to Xthe default settings of the environment variables and the ones specified Xon the command line. X.Sh "RCFILE FORMAT" X.LP XEnvironment variable X.B assignments Xand X.B recipes Xcan be freely intermixed in the rcfile. If any environment variable has Xa special meaning to procmail, it will be used appropiately the moment Xit is parsed. (i.e. you can change the current directory whenever you Xwant by specifying a new X.BR MAILDIR , Xswitch lockfiles by specifying a new X.B LOCKFILE X(usually one won't need this particular application though), change Xthe umask at any time, etc., the possibilities are endless :-). X.LP XThe assignments and substitutions of these environment variables are handled Xexactly like in X.BR sh (1) X(that includes all possible quotes and escapes), Xwith the added bonus that blanks around the '=' sign are ignored and that, Xif an environment variable appears without a trailing '=', it will be Xremoved from the environment. X.LP X.Ss Comments XA word beginning with # and all the following characters up to a NEWLINE Xare ignored. X.Ss Recipes X.LP XA line starting with ':' marks the beginning of a recipe. It has the Xfollowing format: X.LP X: X.RI [ " number " ] X.RI [ " flags " ] X.RI "[ : [" " locallockfile " "] ]" X.LP XThe X.I number Xis optional (defaults to 1) and specifies the number of conditionals Xfollowing this line. Conditionals are complete lines that are passed on to Xthe internal egrep X.BR literally , Xexcept for leading blanks. XIf a conditional starts with an '!', the condition is inverted. If you really Xwant the conditional to start with an '!', precede the '!' by a '\\'. XThese conditionals are X.B completely Xcompatible to the normal egrep regular expressions. Conditionals are anded; if X.I number Xis zero, then the condition is always true and no conditionals are expected Xnext. X.LP X.I Flags Xcan be any of the following: X.Tp 0.5i X.B +HEAD_GREP+ XEgrep the header (default). X.Tp X.B +BODY_GREP+ XEgrep the body. X.Tp X.B +DISTINGUISH_CASE+ XTell the internal egrep to distinguish between upper and lower case (defaults Xto ignoring case). X.Tp X.B +ALSO_NEXT_RECIPE+ XThis recipe will depend on the last preceding recipe without the X`+ALSO_NEXT_RECIPE+' flag. This allows you to chain actions that depend on a Xcommon condition. The number of conditionals that are expected to follow Xdefault to none. X.Tp X.B +PASS_HEAD+ XFeed the header to the pipe (default). X.Tp X.B +PASS_BODY+ XFeed the body to the pipe (default). X.Tp X.B +FILTER+ XConsider the pipe as a filter (ignored if a file). X.Tp X.B +CONTINUE+ XContinue processing rcfile even if this recipe matches (not needed if 'f' Xspecified). X.Tp X.B +WAIT_EXIT+ XWait for the filter or program to finish and check its exitcode (normally Xignored); if the filter is unsuccessfull, then the text will Xnot have been filtered. This flag is also recommended if you specified any X.I locallockfile Xon this recipe. X.Tp X.B +IGNORE_WRITERR+ XIgnore any write errors on this recipe (i.e. usually due to an early closed Xpipe). X.Ss "Local lockfile" X.LP XIf you put a second ':' on the first recipe line, then procmail will use a X.I locallockfile X(for this recipe only). You optionally can specify the locallockfile Xto use; if you don't however, procmail Xwill use the filename specified as the destination (or the filename Xfollowing the first '>>') and will append $LOCKEXT to it. X.Ss "Recipe destination" X.LP XThe next line can start with the following characters: X.Tp X.B ! XForwards to all the specified mail addresses. X.Tp X.B | XStarts the specified program, possibly in $SHELL if any Xof the characters $SHELLMETAS are found. X.LP XAnything else will be taken as a mailbox name (either a filename or a Xdirectory, absolute or relative to the current directory (see $MAILDIR)). XIf it is a filename (or nonexistent), the mail will be appended to it. If Xit is a directory, the mail will be delivered to a newly created, guaranteed Xto be unique, file named $MSGPREFIX* in the specified directory. If the Xdirectory name ends in "/.", then this directory is presumed to be a MH Xfolder; i.e. procmail will use the lowest number it finds available. X.Sh EXAMPLES X.LP XSome example recipes are listed below: X.br XSort out all mail to mailling list scuba-dive. X.RS X.LP X: X.br X^TOscuba X.br Xscubafile X.LP X.RE XForward all mail from peter about compilers to william (and keep a copy Xof it here in petcompil). X.RS X.LP X:2 +PASS_BODY++CONTINUE+ X.br X^From.*peter X.br X^Subject:.*compilers X.br X! william@somewhere.edu X.br X:+ALSO_NEXT_RECIPE+ X.br Xpetcompil X.br X.RE X.LP XAdd the headers of all messages that didn't come from the postmaster Xto your private header collection (for Xstatistics or mail debugging); and use the lockfile `headc.lock'. In order Xto make sure the lockfile is not removed until the pipe has finished, Xyou have to specify option 'w'; otherwise the lockfile would be removed as Xsoon as the pipe has accepted the mail. X.RS X.LP X:+PASS_HEAD++WAIT_EXIT++CONTINUE+: X.br X!From +(postmaster|Mailer) X.br X| uncompress headc.Z; cat >>headc; compress headc X.RE X.Sh CAVEATS X.LP XIf you don't explicitly tell procmail to wait (recipe option 'w') for a Xprogram to finish, it won't wait and will terminate early (not knowing if Xthe program returns success). That also means that any locallockfile on this Xrecipe might get removed X.I before Xthe program has terminated. X.LP XContinued lines in a recipe that are to be executed are concatenated X.I before Xbeing parsed, hence X.I any Xbackslash-newline combinations in them are removed regardless. X.LP XDon't put comments on the condition lines (the regular expressions) in a recipe, Xthese lines are fed to the internal egrep X.IR literally . X(Except for any X.I leading Xwhitespace, `!' or `\\', it will be stripped. XPrecede it by a `\\' if you want it to be taken literally too.) X.LP XWatch out for deadlocks when doing unhealthy things like forwarding mail Xto your own account. Deadlocks can be broken by proper use of X.BR LOCKTIMEOUT . X.LP XAny default values that procmail has for some environment variables will X.B always Xoverride the ones that were already defined. If you really want to Xoverride the defaults, you either have to put them in the X.B rcfile Xor in the command line as arguments. X.Sh FILES X.PD 0 X.Tp 2.2i X.B /etc/passwd Xto get the recipients USER, HOME and SHELL variable defaults X.Tp X.B +SYSTEM_MBOX+ Xdefault mailbox X.Tp X.B $HOME/+PROCMAILRC+ Xdefault rc file X.Tp X.B +SYSTEM_MBOX+.lock Xlockfile for standard system mail directory (not used by X.B procmail Xunless you explicitly tell it to) X.Tp X.B +DEFsendmail+ Xdefault mail forwarder X.PD X.Sh "SEE ALSO" X.LP X.BR sh (1), X.BR csh (1), X.BR mail (1), X.BR binmail (1), X.BR uucp (1C), X.BR aliases (5), X.BR sendmail (8), X.BR egrep (1V), X.BR lockfile (1), X.BR formail (1) X.Sh DIAGNOSTICS X.Tp 2.3i XBad substitution of "x" XNot a valid environment variable name specified. X.Tp XCouldn't unlock "x" XLockfile was already gone, or write permission to the directory were the Xlockfile is has been denied. X.Tp XError while writing to "x" XNonexistent subdirectory, no write permission, pipe died or disk full. X.Tp XExceeded LINEBUF XBuffer overflow detected, LINEBUF was too small, memory might be corrupted. X.Tp XFailed forking "x" XProcess table is full (and NORESRETRY has been exhausted). X.Tp XFailed to execute "x" XProgram not in path, or not executable. X.Tp XForced unlock denied on "x" XNo write permission in the directory where X.B lockfile Xresides, or more than one procmail trying to force a lock at exactly the same Xtime. X.Tp XForcing lock on "x" XSpecified X.B lockfile Xis going to be removed by force because of a timeout (see also: X.BR LOCKTIMEOUT ). X.Tp XLockfailure on "x" XCan only occur if you specify some real weird (and illegal) lockfilenames Xor if the X.B lockfile Xcould not be created because of insufficient permissions or noexistent Xsubdirectories. X.Tp XMail bounced XProcmail hasn't been able to deliver the mail correctly. X.Tp XMail lost XProcmail could not bounce or requeue the mail anymore. X.Tp XMail requeued XProcmail could not deliver the mail, another delivery attempt will be done Xsome time in the future. X.Tp XOut of memory XThe system is out of swap space (and NORESRETY has been exhausted). X.Tp XProcessing continued XThe unrecognised options on the command line are ignored, proceeding as Xusual. X.Tp XProgram failure of "x" XProgram that was started by procmail didn't return EX_OK (=0). X.Tp XSkipped: "x" XCouldn't do anything with "x" in the rcfile (syntax error), ignoring it. X.Tp XTerminating prematurely whilst waiting for .\|.\|. XProcmail received a signal while it was waiting for .\|.\|. X.Tp XTimeout, terminating "x" XTimeout has occurred on program/filter "x". X.Tp XRescue of unfiltered data succeeded/failed XA filter returned unsuccessfully, procmail tried to get back the original text. X.Tp XUnexpected EOL XMissing closing quote, or trying to escape EOF. X.Sh "EXTENDED DIAGNOSTICS" X.Tp 2.3i XAssigning "x" XEnvironment variable assignment X.Tp XExecuting "x" XStarting program "x" X.Tp XHOST mismatched "x" XThis host was called "x", HOST contained something else X.Tp XLocking "x" XCreating lockfile "x" X.Tp XMatch on "x" XConditional matched X.Tp XNo match on "x" XConditional didn't match, recipe skipped X.Tp XOpening "x" XOpening file "x" for appending X.Tp XRcfile: "x" XRcfile changed to "x" X.Tp XUnlocking "x" XRemoving lockfile "x" again X.PD X.Sh WARNINGS X.LP XYou should create a shell script that uses X.BR lockfile (1) Xbefore invoking your mail shell on any mailbox file other than the system Xmailbox (unless of course, your mail shell uses the same lockfiles (local Xor global) you specified in your rcfile). X.LP XIn the unlikely event that you absolutely need to kill Xprocmail before it has finished, first try and use Xthe regular kill command X.RB ( SIGTERM ), Xotherwise some X.I lockfiles Xmight not get removed. X.LP XBeware when using the X.B \-+TEMPFAILOPT+ Xoption, if procmail repeatedly is unable to deliver the mail (e.g. due to Xan incorrect rcfile), the system mailqueue could fill up. This could Xaggravate both the local postmaster and other users. X.Sh BUGS X.LP XThe only substitutions of environment variables that can be handled by Xprocmail itself are of the type $name, ${name}, $$ and $\-; whereas $\- will Xbe substituted by the name of the last folder delivered to. X.LP XAfter a lockfile is removed by force, a suspension of $SUSPEND seconds Xis taken into account, in order to prevent the inadvertent immediate removal Xof any newly created lockfile by another program. X.LP XA line buffer of length $LINEBUF is used when processing the X.IR rcfile , Xany expansions X.B have Xto fit within this limit; if they don't, behaviour is undefined. X.LP XProcmail uses the regular kill command X.RB ( SIGTERM ), Xto terminate any runaway filter, but it does not check if the filter responds Xto that signal and it only sends it to the filter itself, not to any of its Xchildren. X.LP XIf the global lockfile has a X.I relative Xpath, and the current directory Xis not the same as when the global lockfile was created, then the global Xlockfile will not be removed if procmail exits at that point (remedy: Xuse X.I absolute Xpaths to specify global lockfiles). X.LP XSome braindamaged mailers want X.I all Xlines that start with `+FROM+' to be escaped, Xprocmail only escapes those that could really be dangerous; to support those Xother mailers you should consider using X.BR formail (1) Xas a filter for all your mail. X.Sh MISCELLANEOUS X.LP XWhitespace is ignored in the rcfile, except on the Xlines that are fed to the internal egrep where only leading whitespace is Xignored; i.e. you can indent everything. X.LP XIf the regular expression starts with `\fB+TOkey+\fP' it will be substituted by X`\fB+TOsubstitute+\fP', which should catch all destination Xspecifications. X.LP XAny lines in the body of the message that look like postmarks are prepended Xwith `+ESCAP+' (disarms bogus mailheaders). The regular expression that is Xused to search for these postmarks is: X.RS X"+FROM_EXPR+" X.RE X.LP XShould the uid procmail is running under, have no corresponding /etc/passwd Xentry, then HOME will default to +Tmp+, USER will default to #uid. X.LP XWhen delivering to directories (or to MH folders) you X.B don't Xneed to use lockfiles to prevent several concurrently running procmail Xprograms from messing up. X.LP XDelivering to MH folders is slightly more time consuming than delivering Xto normal directories or mailboxes, because procmail has to search for Xthe first available number (instead of having the filename immediately Xavailable). X.LP XOn general failure procmail will return EX_CANTCREAT, unless option X.B \-+TEMPFAILOPT+ Xis specified, in which case it will return EX_TEMPFAIL. X.LP XProcmail performs the locking in an NFS-secure way. X.Sh NOTES X.LP XFor X.I really Xcomplicated processing you can even consider calling X.B procmail Xrecursively. X.br X.ne 20 X.LP XIf procmail is X.I not Xinstalled globally as the default mail delivery agent (ask your system Xadministrator), you have to make sure it is invoked when you mail arrives. XIn this case your $HOME/.forward (beware, it X.B has Xto be world readable) file should contain (include the single and double Xquotes, X.I must Xbe an X.I absolute Xpath): X.LP X"|IFS=' ';exec /usr/local/bin/procmail" X.br X.Ss "A sample small .procmailrc:" X.br XPATH=/bin:/usr/bin:/usr/local/bin X.br XMAILDIR=$HOME/Mail #you'd better make sure it exists X.br XDEFAULT=$MAILDIR/mbox X.br XLOGFILE=$MAILDIR/from X.br XLOCKFILE=$HOME/.lockmail X.br X: X.br X^From.*berg X.br Xfrom_me X.br X: X.br X^Subject:.*Flame X.br X/dev/null X.Sh AUTHOR X.LP XStephen R. van den Berg at RWTH-Aachen, Germany X.RS Xberg@messua.informatik.rwth-aachen.de X.br Xberg@physik.tu-muenchen.de X.RE END_OF_FILE if test 22357 -ne `wc -c <'procmail/man/procmail.man'`; then echo shar: \"'procmail/man/procmail.man'\" unpacked with wrong size! fi # end of 'procmail/man/procmail.man' fi if test -f 'procmail/procmail.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'procmail/procmail.c'\" else echo shar: Extracting \"'procmail/procmail.c'\" $15641 characters$ sed "s/^X//" >'procmail/procmail.c' <<'END_OF_FILE' X/************************************************************************ X * procmail.c an autonomous mail processor * X * * X * Seems to be perfect. * X * * X * Copyright (c) 1990-1991, S.R.van den Berg, The Netherlands * X * The sources can be freely copied for non-commercial use. * X * #include "README" * X * * X ************************************************************************/ X#ifdef RCS Xstatic char rcsid[]="$Id: procmail.c,v 2.17 1991/10/22 15:31:26 berg Rel $"; X#endif X#include "config.h" X#define MAIN X#include "procmail.h" X#include "shell.h" X#include "patchlevel.h" X Xchar*buf,*buf2,*globlock,*loclock,*tolock,*lastfolder; Xconst char shellflags[]="SHELLFLAGS",shell[]="SHELL", X shellmetas[]="SHELLMETAS",lockext[]="LOCKEXT",newline[]="\n",binsh[]=BinSh, X unexpeof[]="Unexpected EOL\n",*const*gargv,*sgetcp,*rcfile=PROCMAILRC, X dirsep[]=DIRSEP,msgprefix[]="MSGPREFIX",devnull[]=DevNull,Mail[]="Mail ", X executing[]="Executing",oquote[]=" \"",cquote[]="\"\n",procmailn[]="procmail", X whilstwfor[]=" whilst waiting for ",delivered[]="DELIVERED"; Xstatic const char linebufs[]="LINEBUF",tokey[]=TOkey,eumask[]="UMASK", X tosubstitute[]=TOsubstitute,lockfile[]="LOCKFILE",defaultf[]="DEFAULT", X maildir[]="MAILDIR",couldnread[]="Couldn't read",logfile[]="LOGFILE", X orgmail[]="ORGMAIL",user[]="USER",tmp[]=Tmp,home[]="HOME",sfolder[]=FOLDER, X sendmail[]="SENDMAIL",host[]="HOST",Log[]="LOG",From[]=FROM, X exflags[]=RECFLAGS; Xstruct varval strenvvar[]={{"LOCKSLEEP",DEFlocksleep}, X {"LOCKTIMEOUT",DEFlocktimeout},{"SUSPEND",DEFsuspend}, X {"NORESRETRY",DEFnoresretry},{"TIMEOUT",DEFtimeout}}; Xlong lastdump; Xint retval=EX_CANTCREAT,sh,pwait,lcking,locknext,verbose,linebuf=DEFlinebuf, X rc= -2,tofolder,ignwerr,fakedelivery; Xvolatile int nextexit; Xvolatile time_t alrmtime; Xpid_t thepid; X Xmain(argc,argv)const char*const argv[]; X{ static char flags[maxindex(exflags)-1]; X char*themail,*thebody,*chp,*startchar,*chp2;long tobesent,filled; X int i,lastcond;uid_t uid;gid_t gid; X for(lastcond=i=argc=0;(chp=(char*)argv[++argc])&&*chp=='-';) X for(;;) /* processing options */ X { switch(*++chp) X { case VERSIONOPT:log(VERSION);return EX_OK; X case PRESERVOPT:i=1;continue; X case TEMPFAILOPT:retval=EX_TEMPFAIL;continue; X case DELIVEROPT: X /* X * if delivery is not to the current uid, this option can be specified; X * for security reasons there may be NO command line arguments following X * it X * more command line arguments are only allowed if the uid is to be X * the recipient (i.e. the recipient started it itself, e.g. from its X * .forward file) X */ X if(!chp[1]&&argv[++argc]&&!argv[argc+1]) X { lastcond=1;chp2=(char*)argv[argc];break; /* save the */ X } /* recipient's name */ X default:log("Unrecognised options:");logqnl(chp);log(PROCMAIL_USAGE); X log("Processing continued\n"); X case '\0':; X } X break; X } X if(!i) X *environ=0; /* drop the environment */ X gargv=argv+argc;umask(INIT_UMASK);thepid=getpid();fclose(stdout); X fclose(stderr);rclose(STDOUT);rclose(STDERR); /* sure is sure */ X if(0>opena(devnull)||0>opena(console)&&0>opena(devnull)) X return EX_OSFILE; /* couldn't open stdout and stderr */ X setbuf(stdin,(char*)0);buf=malloc(linebuf);buf2=malloc(linebuf);chdir(tmp); X ultstr(0,(unsigned long)(i=getuid()),buf);setpwent(); X {struct passwd*pass; X if(lastcond&&(pass=getpwnam(chp2))||(pass=getpwuid(i))) X /* X * set preferred uid to the intended recipient X */ X { gid=pass->pw_gid;uid=pass->pw_uid; X setdef(home,pass->pw_dir);chdir(pass->pw_dir); X setdef(user,pass->pw_name?pass->pw_name:buf);setdef(shell,pass->pw_shell); X } X else /* user could not be found, set reasonable defaults */ X /* X * set preferred uid to nobody, just in case we are running as root X */ X { setdef(home,tmp);setdef(user,buf);setdef(shell,binsh); X gid=NOBODY_gid;uid=NOBODY_uid; X } X /* X * create the original/default mailbox file, chown it to the recipient X */ X setdef(orgmail,SYSTEM_MBOX);close(opena(chp=getenv(orgmail))); X chown(chp,uid,gid); X } X /* X * inject the one and only allowed command line argument if we are X * doing delivery to an explicit recipient X */ X if(!lastcond) /* not explicit delivery mode */ X /* X * really change the uid now, since we are not in explicit delivery mode X */ X { setgid(gid);setuid(uid); X } X endpwent();setdef(shellmetas,DEFshellmetas);setdef(shellflags,DEFshellflags); X setdef(maildir,DEFmaildir);setdef(defaultf,DEFdefault); X setdef(sendmail,DEFsendmail);setdef(lockext,DEFlockext); X setdef(msgprefix,DEFmsgprefix);chdir(getenv(maildir));nextrcfile(); X thebody=themail=malloc(1);filled=0; X#ifdef SIGXCPU X signal(SIGXCPU,SIG_IGN);signal(SIGXFSZ,SIG_IGN); X#endif X signal(SIGPIPE,SIG_IGN);signal(SIGTERM,sterminate);signal(SIGINT,sterminate); X signal(SIGHUP,sterminate);signal(SIGQUIT,sterminate); X signal(SIGALRM,ftimeout); Xchangedmail: X themail=readdyn(themail,&filled); /* read in the mail */ Xonlyhead: X startchar=filled+(thebody=themail); X while(thebody<startchar&&*thebody++=='\n'); /* skip leading garbage */ X while(thebody=egrepin("[^\n]\n[\n\t ]",thebody,(long)(startchar-thebody),1)) X if(*--thebody!='\n') X thebody[-1]=' '; /* concatenate continuated lines */ X else X goto eofheader; /* empty line marks end of header */ X thebody=startchar; Xeofheader: X for(chp=mx(themail,thebody-1); X chp=egrepin(FROM_EXPR,chp,(long)(startchar-chp),1);) X { while(*--chp!='\n'); /* where did this line start? */ X ++chp;tmemmove(chp+1,chp,startchar++-chp);*chp=ESCAP; /* bogus header! */ X themail=realloc(chp2=themail,++filled+1); X#define ADJUST(x) ((x)=themail+((x)-chp2)) X ADJUST(thebody);ADJUST(startchar);ADJUST(chp); X } X do /* main rcfile interpreter loop */ X { while(chp=(char*)argv[argc]) /* interpret command line specs first */ X { argc++; Xlikearg: X strcpy(buf,chp); X if(chp=strchr(buf,'=')) X { strcpy(sgetcp=buf2,++chp);readparse(chp,sgetc,2);goto argenv; X } X } X if(rc<0) /* open new rc file */ X { i=rc; X while(*buf='\0',0>bopen(strcat( X strchr(dirsep,*rcfile)?buf:cat(tgetenv(home),MCDIRSEP),rcfile))) X { log(couldnread);logqnl(buf); X if(!nextrcfile()) /* not available? try the next */ X { if(i==-2&&!lastcond) /* no rcfile & explicit delivery mode */ X { chp=DEFdefaultlock;goto likearg; /* acquire lock */ X } X goto nomore_rc; X } X } X /* X * set uid back to recipient in any case, since we might just X * have opened his/her .procmailrc X */ X lastcond=0;setgid(gid);setuid(uid); X } X unlock(&loclock);alarm((unsigned)(alrmtime=0)); /* reset alarm */ X do skipspace(); /* skip whitespace */ X while(testb('\n')); X if(testb(':')) /* check for a recipe */ X { readparse(buf,getb,0);sh=strtol(buf,&chp,10); X if(chp==buf) /* no number parsed */ X sh= -1; X if(tolock) /* clear temporary buffer for lockfile name */ X free(tolock); X for(i=maxindex(flags);flags[i]=0,i--;); /* clear the flags */ X for(tolock=0,locknext=0;;) X { switch(i= *chp++) X { default: X if(!(chp2=strchr(exflags,i))) /* check for a valid flag */ X { --chp;break; X } X flags[chp2-exflags]=1; /* set the flag */ X case ' ':case '\t':continue; X case '\0': X if(*chp!=TMNATE) /* if not the real end, skip */ X continue; X break; X case ':':locknext=1; /* yep, local lockfile specified */ X if(*chp||*++chp!=TMNATE) X { tolock=tstrdup(chp);chp=strchr(chp,'\0')+1; X } X } X if(concatenate(chp)) X skipped(chp); /* display any leftovers */ X break; X } X if(sh<0) /* assume the appropriate */ X sh=!flags[ALSO_NEXT_RECIPE]; /* default nr of conditions */ X startchar=themail;tobesent=thebody-themail; X if(flags[BODY_GREP]) /* what needs to be egrepped? */ X if(flags[HEAD_GREP]) X tobesent=filled; X else X { startchar=thebody;tobesent=filled-tobesent; X } X i=flags[ALSO_NEXT_RECIPE]?lastcond:1; /* init test value */ X while(sh--) /* any conditions (left) */ X { skipspace();getbl(buf2); X if(!strncmp(buf2,tokey,STRLEN(tokey))) /* magic TOkey? */ X cat(tosubstitute,buf2+STRLEN(tokey)); X else if(*buf=='!'&&!strncmp(buf2+1,tokey,STRLEN(tokey))) /* yes! */ X strcat(cat("!",tosubstitute),buf2+1+STRLEN(tokey)); X else X strcpy(buf,buf2); X if(i) /* check out all conditions */ X { i=!!egrepin((*buf=='!'||*buf=='\\')+buf,startchar,tobesent, X flags[DISTINGUISH_CASE])^*buf=='!'; X if(verbose) X { log(i?"M":"No m");log("atch on");logqnl(buf); X } X } X } X if(!flags[ALSO_NEXT_RECIPE]) /* save the outcome for posterity */ X lastcond=i; X startchar=themail;tobesent=filled; /* body, header or both? */ X if(flags[PASS_HEAD]) X { if(!flags[PASS_BODY]) X tobesent=thebody-themail; X } X else if(flags[PASS_BODY]) X tobesent-=(startchar=thebody)-themail; X chp=strchr(strcpy(buf,tgetenv(sendmail)),'\0');sh=0; X pwait=flags[WAIT_EXIT];ignwerr=flags[IGNORE_WRITERR];skipspace(); X if(testb('!')) /* forward the mail */ X { readparse(chp+1,getb,0); X if(i) X goto forward;} X else if(testb('|')) /* pipe the mail */ X { getbl(buf2); X for(chp=buf2;*(chp=strchr(chp,'\0')-1)=='\\'&&getbl(chp);); X if(i) X { if(sh=!!strpbrk(buf2,tgetenv(shellmetas))) X strcpy(buf,buf2); /* copy literally, shell will parse */ X else X { sgetcp=buf2;readparse(buf,sgetc,0); /* parse it yourself */ X } Xforward: chp=buf;*buf2='\0'; X while(i= *chp) /* find the implicit lockfile name ('>>name') */ X if(chp++,i=='>'&&*chp=='>') X { chp=pstrspn(chp+1," \t"); X tmemmove(buf2,chp,i=strcspn(chp,EOFName));chp[i]='\0'; X if(sh) /* expand any environment variables */ X { chp=tstrdup(buf);sgetcp=buf2;readparse(buf,sgetc,0); X strcpy(buf2,buf);strcpy(buf,chp);free(chp); X } X break; X } X lcllock();inittmout(buf); X if(flags[FILTER]) X { if(startchar==themail&&tobesent!=filled) /* if only 'h' */ X { long dfilled=0; X if(pipthrough(buf,startchar,tobesent)) X continue; X chp=readdyn(malloc(1),&dfilled);filled-=tobesent; X if(tobesent<dfilled) /* adjust buffer size (grow only) */ X themail=realloc(themail,dfilled+filled); X tmemmove(themail+dfilled,thebody,filled); X tmemmove(themail,chp,dfilled);free(chp); X themail=realloc(themail,1+(filled+=dfilled));goto onlyhead; X } X if(pipthrough(buf,startchar,tobesent)) X continue; X filled=startchar-themail;goto changedmail; X } X if(!pipin(buf,startchar,tobesent)&&!flags[CONTINUE]) X goto mailed; X } X } X else /* dump the mail into a mailbox file or directory */ X { readparse(buf,getb,0); X if(concatenate(chp=strchr(buf,'\0')+1)) X skipped(chp); /* report any leftovers */ X if(i) X { strcpy(buf2,buf);lcllock();strcpy(buf2,buf); X if(dump(deliver(buf2),startchar,tobesent)) X writeerr(buf); X else if(!flags[CONTINUE]) X goto mailed; X tofolder=0; X } X } X } X else if(testb('#')) /* no comment :-) */ X getbl(buf); X else /* then it must be an assignment */ X { for(*(chp=buf)='\0';;) /* get the variable name */ X { switch(i=getb()) X { case ' ':case '\t':skipspace();i=testb('=')?'=':0; X case '\n':case '=':case EOF:*chp='\0';goto eofvarname; X } X if(!alphanum(*chp++=i)) X for(;;*chp++=i) /* it was garbage after all */ X switch(i=getb()) X { case ' ':case '\t':case '\n':case EOF:*chp='\0'; X skipped(buf);goto mainloop; X } X } Xeofvarname: X if(i!='=') /* removal or assignment? */ X { sputenv(buf);continue; X } X *chp='=';readparse(++chp,getb,1); Xargenv: sputenv(buf);chp[-1]='\0'; X if(!strcmp(buf,linebufs)) X { if((linebuf=renvint(0L,chp)+XTRAlinebuf)<MINlinebuf+XTRAlinebuf) X linebuf=MINlinebuf+XTRAlinebuf; /* check minimum size */ X free(buf);free(buf2);buf=malloc(linebuf);buf2=malloc(linebuf); X } X else if(!strcmp(buf,maildir)) X { if(chdir(chp)) X { log("Couldn't chdir to");logqnl(chp); X } X } X else if(!strcmp(buf,logfile)) X { close(STDERR); X if(verbose=':'==*chp) /* turn on diagnostics? */ X chp++;; X if(0>opena(chp)) X if(0>opena(console)) X retval=EX_OSFILE; /* bad news, but can't tell anyone */ X else X writeerr(chp);} X else if(!strcmp(buf,Log)) X log(chp); X else if(!strcmp(buf,delivered)) /* fake delivery */ X { lcking=1; X if((thepid=sfork())>0) X { nextexit=2;lcking=0;return EX_OK; /* signals may cause trouble */ X } X else X { if(!forkerr(thepid,procmailn)) X fakedelivery=1; X thepid=getpid();lcking=0; X if(nextexit) /* signals occurred so far? */ X { log(newline);terminate(); X } X } X } X else if(!strcmp(buf,lockfile)) X { lockit(chp,&globlock);chown(chp,uid,gid); X } X else if(!strcmp(buf,eumask)) X umask((int)strtol(chp,(char**)0,8)); X else if(!strcmp(buf,host)) X { if(strcmp(chp,chp2=(char*)hostname())) X { yell("HOST mismatched",chp2); X if(rc<0||!nextrcfile()) /* if no rcfile opened yet */ X { retval=EX_OK;terminate(); /* exit gracefully as well */ X } X rclose(rc);rc= -1; X } X } X else X { i=MAXvarvals; X do /* several numeric assignments */ X if(!strcmp(buf,strenvvar[i].name)) X { strenvvar[i].val=renvint(strenvvar[i].val,chp);break; X } X while(i--); X } X } Xmainloop:; X } X while(rc<0||!testb(EOF)); /* main interpreter loop */ Xnomore_rc: X if(dump(deliver(tgetenv(defaultf)),themail,filled)) /* default */ X { writeerr(buf); /* if it fails, don't panic, try the last resort */ X if(dump(deliver(tgetenv(orgmail)),themail,filled)) X writeerr(buf);goto mailerr; /* now you can panic */ X } Xmailed: X retval=EX_OK; /* we're home free, mail delivered */ Xmailerr: X unlock(&loclock);*thebody='\0'; /* Terminate the header, just in case */ X if(!strncmp(From,chp=themail,STRLEN(From))) /* Check for a "From " header */ X { if(chp=strchr(themail,'\n')) X *chp++='\0'; X else X chp=thebody; X log(themail);log(newline); /* preserve mailbox format (any length) */ X } X if(chp=egrepin(NSUBJECT,chp,(long)(thebody-chp),0)) X { for(chp2= --chp;*--chp2!='\n';); X if(chp-++chp2>MAXSUBJECTSHOW) /* keep it within bounds */ X chp2[MAXSUBJECTSHOW]='\0'; X *chp='\0';detab(chp2);log(" ");log(chp2);log(newline); X } X log(sfolder);i=strlen(strncpy(buf,lastfolder,MAXfoldlen))+STRLEN(sfolder); X buf[MAXfoldlen]='\0';detab(buf);log(buf);i-=i%TABWIDTH; /* last dump */ X do log(TABCHAR); X while((i+=TABWIDTH)<LENoffset); X ultstr(7,lastdump,buf);log(buf);log(newline);terminate(); X} X Xdirmail() /* buf should contain directory name */ X{ char*chp;struct stat stbuf; X if((chp=strchr(buf,'\0')-1)-1>=buf&&chp[-1]==*MCDIRSEP&&*chp=='.') X { *chp='\0';strcpy(buf2,buf); /* it ended in /. */ X } X else X { chp=0;strcpy(buf2,strcat(buf,MCDIRSEP)); X } X if(unique(buf2,strchr(buf2,'\0'),0666)) X { if(chp) X { unsigned long i=0; X do ultstr(0,++i,chp); /* find first empty MH folder */ X while(link(buf2,buf)); X unlink(buf2);goto opn; X } X stat(buf2,&stbuf); X ultoan((unsigned long)stbuf.st_ino, /* filename with i-node number */ X strchr(strcat(buf,tgetenv(msgprefix)),'\0')); X if(!myrename(buf2,buf)) /* rename it, we need the same i-node */ Xopn: return opena(buf); X } X return -1; X} END_OF_FILE if test 15641 -ne `wc -c <'procmail/procmail.c'`; then echo shar: \"'procmail/procmail.c'\" unpacked with wrong size! fi # end of 'procmail/procmail.c' fi echo shar: End of archive 1 $of 4$. cp /dev/null ark1isdone MISSING="" for I in 1 2 3 4 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 4 archives. rm -f ark[1-9]isdone else echo You still must unpack the following archives: echo " " ${MISSING} fi exit 0 exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.