home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume20 / procmail / part03 < prev    next >
Encoding:
Text File  |  1991-06-18  |  44.1 KB  |  1,264 lines
  1. Newsgroups: comp.sources.misc
  2. From: Stephen R. van den Berg <berg@messua.informatik.rwth-aachen.de>
  3. Subject:  v20i051:  procmail - mail processing program v2.02, Part03/03
  4. Message-ID: <1991Jun17.043158.1962@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: 21263b7c7bb2b8f7e24ffb5258793db8
  6. Date: Mon, 17 Jun 1991 04:31:58 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Stephen R. van den Berg <berg@messua.informatik.rwth-aachen.de>
  10. Posting-number: Volume 20, Issue 51
  11. Archive-name: procmail/part03
  12. Environment: UNIX, sendmail
  13. Supersedes: procmail: Volume 17, Issue 31-32
  14.  
  15. ---- Cut Here and feed the following to sh ----
  16. #!/bin/sh
  17. # This is part 03 of procmail
  18. # ============= procmail/retint.c ==============
  19. if test ! -d 'procmail'; then
  20.     echo 'x - creating directory procmail'
  21.     mkdir 'procmail'
  22. fi
  23. if test -f 'procmail/retint.c' -a X"$1" != X"-c"; then
  24.     echo 'x - skipping procmail/retint.c (File already exists)'
  25. else
  26. echo 'x - extracting procmail/retint.c (Text)'
  27. sed 's/^X//' << 'SHAR_EOF' > 'procmail/retint.c' &&
  28. X/************************************************************************
  29. X *    Collection of routines that return an int (sort of anyway :-)    *
  30. X *                                    *
  31. X *    Copyright (c) 1990-1991, S.R.van den Berg, The Netherlands    *
  32. X *    The sources can be freely copied for non-commercial use.    *
  33. X *    #include "README"                        *
  34. X *                                    *
  35. X *    #include "STYLE"                        *
  36. X *                                    *
  37. X ************************************************************************/
  38. X#ifdef    RCS
  39. Xstatic char rcsid[]="$Id: retint.c,v 2.0 1991/06/10 14:35:35 berg Rel $";
  40. X#endif
  41. X#include "config.h"
  42. X#include "procmail.h"
  43. X#include "shell.h"
  44. X
  45. Xsetdef(name,contents)const char*const name,*const contents;{
  46. X strcat(strcat(strcpy(sgetcp=buf2,name),"="),contents);
  47. X readparse(buf,sgetc,0);sputenv(buf);}
  48. X
  49. Xchar*backblock;        /* what is to be recovered in case of filter failure */
  50. Xlong backlen;                               /* its length */
  51. Xpid_t pidfilt,pidchild;
  52. Xint pbackfd[2];                       /* the emergency backpipe :-) */
  53. X
  54. Xpipthrough(line,source,len)char*line,*source;const long len;{
  55. X int pinfd[2],poutfd[2];
  56. X rpipe(pbackfd);rpipe(pinfd);flaggerd=0;         /* main pipes setup */
  57. X if(!(pidchild=fork())){            /* create a sending procmail */
  58. X   backblock=source;backlen=len;signal(SIGTERM,stermchild);
  59. X   signal(SIGINT,stermchild);signal(SIGHUP,stermchild);
  60. X   signal(SIGQUIT,stermchild);rclose(rc);rclose(PRDI);rclose(PRDB);
  61. X   rpipe(poutfd);rclose(STDOUT);
  62. X   if(!(pidfilt=fork())){                /* create the filter */
  63. X      rclose(PWRO);rclose(PWRB);rdup(PWRI);rclose(PWRI);getstdin(PRDO);
  64. X      callnewprog(line);}
  65. X   rclose(PWRI);rclose(PRDO);
  66. X   if(forkerr(pidfilt,line)){
  67. X      rclose(PWRO);stermchild();}
  68. X   if(dump(PWRO,source,len)){          /* send in the text to be filtered */
  69. X      writeerr(line);stermchild();}
  70. X   if(pwait&&waitfor(pidfilt)!=EX_OK){     /* check the exitcode of the filter */
  71. X      progerr(line);stermchild();}
  72. X   rclose(PWRB);kill(thepid,SIGQUIT);exit(EX_OK);} /* tell parent to proceed */
  73. X rclose(PWRI);rclose(PWRB);getstdin(PRDI);
  74. X if(forkerr(pidchild,"procmail"))
  75. X    return 1;
  76. X return 0;}            /* we stay behind to read back the filtered text */
  77. X
  78. Xwaitflagger(){                      /* wait for SIGQUIT from child */
  79. X while(!flaggerd)
  80. X   suspend();}                           /* to prevent polling */
  81. X
  82. Xgrepin(expr,source,len,casesens)const char*const expr,*const source;long len;{
  83. X pid_t pid;int poutfd[2];static const char*newargv[5]={0,"-e"};
  84. X newargv[3]=casesens?(char*)0:"-i";*newargv=tgetenv(grep);newargv[2]=expr;
  85. X rpipe(poutfd);
  86. X if(!(pid=sfork())){                           /* start grep */
  87. X   rclose(PWRO);rclose(rc);getstdin(PRDO);shexec(newargv);}
  88. X rclose(PRDO);len=dump(PWRO,source,len);
  89. X if(!forkerr(pid,*newargv)){
  90. X    if(len)
  91. X       writeerr(*newargv);
  92. X    else
  93. X       return waitfor(pid)!=EX_OK;}                 /* did it grep? */
  94. X return EX_UNAVAILABLE;}
  95. X
  96. Xwaitfor(pid)const pid_t pid;{int i;          /* wait for a specific process */
  97. X while(pid!=wait(&i)||(i&127)==127);
  98. X return i>>8&255;}
  99. X
  100. Xgetstdin(pip)const int pip;{
  101. X rclose(STDIN);rdup(pip);rclose(pip);}
  102. X
  103. Xcallnewprog(newname)const char*const newname;{
  104. X if(sh){const char*newargv[4];             /* should we start a shell? */
  105. X   yell(executing,newname);newargv[3]=0;newargv[2]=newname;
  106. X   newargv[1]=tgetenv(shellflags);*newargv=tgetenv(shell);shexec(newargv);}
  107. X {register const char*p;int argc;const char**newargv;
  108. X argc=1;p=newname;         /* If no shell, chop up the arguments ourselves */
  109. X if(verbose){
  110. X    log(executing);log(oquote);goto no_1st_comma;}
  111. X do{                         /* show chopped up command line */
  112. X   if(verbose){
  113. X      log(",");
  114. Xno_1st_comma:
  115. X      log(p);}
  116. X   while(*p++);}
  117. X while(argc++,*p!=TMNATE);
  118. X if(verbose)
  119. X   log(cquote);
  120. X newargv=malloc(argc*sizeof*newargv);p=newname;argc=0;     /* alloc argv array */
  121. X do{
  122. X   newargv[argc++]=p;
  123. X   while(*p++);}
  124. X while(*p!=TMNATE);
  125. X newargv[argc]=0;shexec(newargv);}}
  126. X
  127. Xwriteerr(line)const char*const line;{
  128. X log("Error while writing to");logqnl(line);}
  129. X
  130. Xforkerr(pid,a)const pid_t pid;const char*const a;{
  131. X if(pid==-1){
  132. X   log("Failed forking");logqnl(a);return 1;}
  133. X return 0;}
  134. X
  135. Xprogerr(line)const char*const line;{
  136. X log("Program failure of");logqnl(line);}
  137. X
  138. Xopena(a)const char*const a;{
  139. X lastfolder=cstr(lastfolder,a);yell("Opening",a);
  140. X return ropen(a,O_WRONLY|O_APPEND|O_CREAT,0666);}
  141. X
  142. Xyell(a,b)const char*const a,*const b;{             /* log if -d option set */
  143. X if(verbose){
  144. X   log(a);logqnl(b);}}
  145. X
  146. Xunlock(lockp)const char**const lockp;{
  147. X lcking=1;
  148. X if(*lockp){
  149. X   yell("Unlocking",*lockp);
  150. X   if(unlink(*lockp)){
  151. X      log("Couldn't unlock");logqnl(*lockp);}
  152. X   free(*lockp);*lockp=0;}
  153. X if(nextexit==1){        /* make sure we are not inside terminate already */
  154. X   log(newline);terminate();}
  155. X lcking=0;}
  156. X
  157. Xnomemerr(){
  158. X log("Out of memory\nbuffer 0: \"");buf[linebuf-1]=buf2[linebuf-1]='\0';
  159. X log(buf);log("\"\nbuffer 1:");logqnl(buf2);retval=EX_OSERR;terminate();}
  160. X
  161. Xlogqnl(a)const char*const a;{
  162. X log(oquote);log(a);log(cquote);}
  163. X
  164. Xnextrcfile(){const char*p;    /* next rcfile specified on the command line */
  165. X while(p= *gargv){
  166. X   gargv++;
  167. X   if(!strchr(p,'=')){
  168. X      rcfile=p;return 1;}}
  169. X return 0;}
  170. X
  171. Xrclose(fd)const int fd;{int i;          /* a sysV secure close (signal immune) */
  172. X while((i=close(fd))&&errno==EINTR);
  173. X return i;}
  174. X
  175. Xrwrite(fd,a,len)const int fd,len;void*const a;{int i; /* a sysV secure write */
  176. X while(0>(i=write(fd,a,(size_t)len))&&errno==EINTR);
  177. X return i;}
  178. X
  179. Xrread(fd,a,len)const int fd,len;void*const a;{int i;   /* a sysV secure read */
  180. X while(0>(i=read(fd,a,(size_t)len))&&errno==EINTR);
  181. X return i;}
  182. X
  183. Xropen(name,mode,mask)const char*const name;const mode_t mask;{int i,r;
  184. X for(r=noresretry;0>(i=open(name,mode,mask));)           /* a sysV secure open */
  185. X   if(errno!=EINTR)
  186. X      if(!((errno==EMFILE||errno==ENFILE)&&(r<0||r--)))
  187. X     break;         /* survives a temporary "file table full" condition */
  188. X return i;}
  189. X
  190. Xrdup(p)const int p;{int i,r;
  191. X for(r=noresretry;0>(i=dup(p));)          /* catch "file table full" */
  192. X    if(!((errno==EMFILE||errno==ENFILE)&&(r<0||r--)))
  193. X       break;
  194. X return i;}
  195. X
  196. Xrpipe(fd)int fd[2];{int i,r;
  197. X for(r=noresretry;0>(i=pipe(fd));)          /* catch "file table full" */
  198. X    if(!((errno==EMFILE||errno==ENFILE)&&(r<0||r--))){
  199. X       *fd=fd[1]= -1;break;}
  200. X return i;}
  201. X
  202. Xlockit(name,lockp)char*name;const char**const lockp;{int i;struct stat stbuf;
  203. X unlock(lockp);                   /* unlock any previous lockfile FIRST */
  204. X if(!*name)
  205. X   return;
  206. X for(lcking=1;;){          /* to prevent deadlocks (I hate deadlocks) */
  207. X   yell("Locking",name);
  208. X   if(!NFSxopen(name)){
  209. X      *lockp=tstrdup(name);               /* lock acquired, hurray! */
  210. Xterm: if(nextexit){
  211. X     log(whilstwfor);log("lockfile");logqnl(name);terminate();}
  212. X      lcking=0;return;}           /* check if it's time for a lock override */
  213. X   if(errno==EEXIST&&!stat(name,&stbuf)&&!stbuf.st_size){time_t t;
  214. X      if(locktimeout&&(t=time((time_t*)0),!stat(name,&stbuf)))    /* from stat */
  215. X     if(locktimeout<t-stbuf.st_mtime){   /* till unlink should be atomic */
  216. X     if(unlink(name)){             /* but can't guarantee that */
  217. X        log("Forced unlock denied on");logqnl(name);}
  218. X     else{
  219. X        log("Forcing lock on");logqnl(name);suspend();}}}
  220. X   else{               /* maybe filename too long, shorten and retry */
  221. X      if(0<(i=strlen(name)-1)&&!strchr(dirsep,(name[i-1]))){
  222. X     name[i]='\0';continue;}
  223. X      log("Lockfailure on");logqnl(name);return;}
  224. X   sleep(DEFlocksleep,locksleep);
  225. X   if(nextexit)
  226. X      goto term;}}
  227. X
  228. Xlcllock(){                   /* lock a local file (if need be) */
  229. X if(locknext)
  230. X   if(tolock)
  231. X      lockit(tolock,&loclock);
  232. X   else
  233. X      lockit(strcat(buf2,tgetenv(lockext)),&loclock);}
  234. X
  235. Xterminate(){
  236. X nextexit=2;            /* prevent multiple invocations of terminate */
  237. X if(retval!=EX_OK)
  238. X   log("Mail bounced\n");
  239. X unlock(&loclock);unlock(&globlock);exit(retval);}
  240. X
  241. Xsuspend(){
  242. X sleep((unsigned)suspendv);}
  243. X
  244. Xskipspace(){
  245. X while(testb(' ')||testb('\t'));}
  246. X
  247. Xsgetc(){                    /* a fake fgetc for a string */
  248. X return *sgetcp?*(uchar*)sgetcp++:EOF;}
  249. X
  250. Xskipped(x)const char*const x;{
  251. X log("Skipped");logqnl(x);}
  252. X
  253. Xstatic uchar rcbuf[STDBUF],*rcbufp,*rcbufend;     /* buffers for custom stdio */
  254. Xstatic ungetb;                         /* pushed back char */
  255. X
  256. Xbopen(name)const char*const name;{                 /* my fopen */
  257. X rcbufp=rcbufend=0;ungetb= -1;yell("Rcfile:",name);
  258. X return rc=ropen(name,O_RDONLY);}
  259. X
  260. Xgetbl(p)char*p;{int i;char*q;                      /* my gets */
  261. X for(q=p;;){
  262. X   switch(i=getb()){
  263. X      case '\n':case EOF:
  264. X     *p='\0';return p!=q;}             /* did we read anything at all? */
  265. X   *p++=i;}}
  266. X
  267. Xgetb(){                                 /* my fgetc */
  268. X if(ungetb>=0){int i;                    /* anything pushed back? */
  269. X   i=ungetb;ungetb= -1;return i;}
  270. X if(rcbufp==rcbufend){
  271. X   rcbufend=rcbuf+rread(rc,rcbufp=rcbuf,STDBUF);}           /* refill */
  272. X return rcbufp<rcbufend?*rcbufp++:EOF;}
  273. X
  274. Xtestb(x)const int x;{int i;       /* fgetc that only succeeds if it matches */
  275. X if((i=getb())==x)
  276. X   return 1;
  277. X ungetb=i;return 0;}
  278. X
  279. Xalphanum(c)const int c;{
  280. X return c>='0'&&c<='9'||c>='a'&&c<='z'||c>='A'&&c<='Z'||c=='_';}
  281. X                       /* open file or new file in directory */
  282. Xdeliver(boxname)char*const boxname;{struct stat stbuf;
  283. X strcpy(buf,boxname);             /* boxname can be found back in buf */
  284. X return stat(buf,&stbuf)||!S_ISDIR(stbuf.st_mode)?opena(buf):dirmail();}
  285. X
  286. X#include "exopen.h"
  287. X                    /* an NFS secure exclusive file open */
  288. XNFSxopen(name)char*name;{char*p,*q;int j= -1,i;
  289. X for(q=name;p=strpbrk(q,dirsep);q=p+1);             /* find last DIRSEP */
  290. X i=q-name;strncpy(p=malloc(i+UNIQnamelen),name,i);
  291. X if(unique(p,p+i,0))
  292. X   j=myrename(p,name);         /* try and rename it, fails if nonexclusive */
  293. X free(p);return j;}
  294. SHAR_EOF
  295. chmod 0644 procmail/retint.c ||
  296. echo 'restore of procmail/retint.c failed'
  297. Wc_c="`wc -c < 'procmail/retint.c'`"
  298. test 9348 -eq "$Wc_c" ||
  299.     echo 'procmail/retint.c: original size 9348, current size' "$Wc_c"
  300. fi
  301. # ============= procmail/shell.h ==============
  302. if test -f 'procmail/shell.h' -a X"$1" != X"-c"; then
  303.     echo 'x - skipping procmail/shell.h (File already exists)'
  304. else
  305. echo 'x - extracting procmail/shell.h (Text)'
  306. sed 's/^X//' << 'SHAR_EOF' > 'procmail/shell.h' &&
  307. X/*$Id: shell.h,v 2.0 1991/06/10 14:39:08 berg Rel $*/
  308. X
  309. X#define malloc(n)    tmalloc((size_t)(n))
  310. X#define realloc(p,n)    trealloc(p,(size_t)(n))
  311. X#define tmemmove(t,f,n) memmove(t,f,(size_t)(n))
  312. SHAR_EOF
  313. chmod 0644 procmail/shell.h ||
  314. echo 'restore of procmail/shell.h failed'
  315. Wc_c="`wc -c < 'procmail/shell.h'`"
  316. test 188 -eq "$Wc_c" ||
  317.     echo 'procmail/shell.h: original size 188, current size' "$Wc_c"
  318. fi
  319. # ============= procmail/INSTALL ==============
  320. if test -f 'procmail/INSTALL' -a X"$1" != X"-c"; then
  321.     echo 'x - skipping procmail/INSTALL (File already exists)'
  322. else
  323. echo 'x - extracting procmail/INSTALL (Text)'
  324. sed 's/^X//' << 'SHAR_EOF' > 'procmail/INSTALL' &&
  325. XTo install procmail, lockfile and formail: edit Makefile accordingly (if need
  326. Xbe, config.h as well) and type 'make install'.
  327. X
  328. X'make install' will:
  329. X      - execute autoconf (a shell script that repeatedly calls the C compiler
  330. X    to determine if certain features/symbols are supported), which will
  331. X    create a file named autoconf.h
  332. X      - compile the *.c files, create the three binaries: procmail, lockfile,
  333. X    formail
  334. X      - copy these binaries to $(BINDIR)
  335. X      - copy the man pages to $(MANDIR)
  336. X
  337. X
  338. XMinimal requirements:
  339. X
  340. Xprocmail must be installed.
  341. Xlockfile needs only to be installed if you plan to read several mailboxes
  342. X    with one of the standard mailers.
  343. Xformail needs only to be installed if mail sometimes arrives in nonstandard
  344. X    mailbox format (or if you want to generate auto replies, split up
  345. X    mailboxes/digests etc., see the man page of formail for more info).
  346. X
  347. X
  348. XIf things don't compile automagically, I suggest you take a look at:
  349. Xautoconf, autoconf.h, config.h, includes.h
  350. X
  351. XThe program is supposed to be fully ANSI and K&R compliant.
  352. X
  353. XIf you run procmail by hand and pipe in some sample mail, then make
  354. Xsure that if you kill procmail, you use "kill pid" and NOT "kill -9 pid".
  355. XShould procmail seem to hang, check if the $LOCKFILE is still present.
  356. XIf you kill procmail with "kill pid" it will clean up the $LOCKFILE
  357. Xitself.
  358. X
  359. XSuggested command line for a test run: "procmail -d LOGFILE=/dev/tty"
  360. X(now type in a mail message).
  361. X
  362. XEvery user that wants to use procmail should have a .forward and a
  363. X.procmailrc file in his HOME directory.     For starters, you can look
  364. Xat the supplied example files in "examples".
  365. X(BTW, be sure to make .forward *world* readable).
  366. X
  367. XFor more info about the program, see the man page.
  368. X
  369. X------------------------------------------------------------------------------
  370. X-----------------------Frequently Asked Questions-----------------------------
  371. X------------------------------------------------------------------------------
  372. X
  373. X1. Why does the logfile have lines containing "file -i not found"?
  374. X
  375. X    Your egrep doesn't understand the -i option (ignore case).  Either
  376. X    use a different grep (e.g. set GREP to /bin/grep), or be sure
  377. X    to specify the 'D' option on every recipe.
  378. X
  379. X2. I installed procmail (i.e. typed 'make install'), but how am I supposed to
  380. X   use it?  When I type procmail on the command line it simply does nothing.
  381. X
  382. X    You're not supposed to start procmail from the command line.
  383. X    Be sure to have a .forward and a .procmailrc file in your home
  384. X    directory (see the examples subdirectory or the man page).
  385. SHAR_EOF
  386. chmod 0644 procmail/INSTALL ||
  387. echo 'restore of procmail/INSTALL failed'
  388. Wc_c="`wc -c < 'procmail/INSTALL'`"
  389. test 2542 -eq "$Wc_c" ||
  390.     echo 'procmail/INSTALL: original size 2542, current size' "$Wc_c"
  391. fi
  392. # ============= procmail/Makefile ==============
  393. if test -f 'procmail/Makefile' -a X"$1" != X"-c"; then
  394.     echo 'x - skipping procmail/Makefile (File already exists)'
  395. else
  396. echo 'x - extracting procmail/Makefile (Text)'
  397. sed 's/^X//' << 'SHAR_EOF' > 'procmail/Makefile' &&
  398. X#$Id: Makefile,v 2.0 1991/06/10 14:39:08 berg Rel $
  399. X
  400. X# change BASENAME to your home directory if need be
  401. XBASENAME = /usr/local
  402. X
  403. XBINDIR     = $(BASENAME)/bin
  404. XMANDIR     = $(BASENAME)/man/man1
  405. X
  406. X########################################################################
  407. X# Only edit below this line if you *think* you know what you are doing #
  408. X########################################################################
  409. X
  410. X# Directory for the standard include files
  411. XUSRINCLUDE = /usr/include
  412. X
  413. XOCFLAGS     = -O
  414. XOLDFLAGS = -s
  415. X
  416. XCFLAGS    = $(OCFLAGS) -I$(USRINCLUDE) -I./include
  417. XLDFLAGS = $(OLDFLAGS)
  418. X
  419. XCC = cc
  420. XO = o
  421. XRM= rm -f
  422. X
  423. XBINS=procmail lockfile formail
  424. X
  425. XOBJ=procmail.$(O) nonint.$(O) goodies.$(O)
  426. X
  427. XDEP=shell.h procmail.h config.h
  428. X
  429. Xall:    autoconf.h $(BINS)
  430. X
  431. Xprocmail: $(OBJ) exopen.$(O) common.$(O) retint.$(O)
  432. X    $(CC) $(CFLAGS) -o procmail $(OBJ) exopen.$(O) common.$(O) \
  433. Xretint.$(O) $(LDFLAGS)
  434. X
  435. Xlockfile: lockfile.$(O) exopen.$(O)
  436. X    $(CC) $(CFLAGS) -o lockfile lockfile.$(O) exopen.$(O) ${LDFLAGS}
  437. X
  438. Xformail: formail.$(O) common.$(O)
  439. X    $(CC) $(CFLAGS) -o formail formail.$(O) common.$(O) ${LDFLAGS}
  440. X
  441. X_autotst: _autotst.c
  442. X    $(CC) $(CFLAGS) -o _autotst _autotst.c $(LDFLAGS)
  443. X
  444. Xautoconf.h: autoconf Makefile
  445. X    /bin/sh autoconf
  446. X
  447. X$(OBJ): $(DEP)
  448. X
  449. Xretint.$(O): $(DEP) exopen.h
  450. X
  451. Xexopen.$(O): config.h includes.h exopen.h
  452. X
  453. Xformail.$(O): config.h includes.h shell.h
  454. X
  455. Xlockfile.$(O): config.h includes.h
  456. X
  457. Xcommon.$(O): includes.h shell.h
  458. X
  459. Xprocmail.h: includes.h
  460. X    touch procmail.h
  461. X
  462. Xincludes.h: autoconf.h
  463. X    touch includes.h
  464. X
  465. X.c.$(O):
  466. X    $(CC) $(CFLAGS) -c $*.c
  467. X
  468. Xinstall: all
  469. X    chmod 755 $(BINS)
  470. X    cp $(BINS) $(BINDIR)
  471. X    chmod 644 man/procmail.1 man/lockfile.1 man/formail.1
  472. X    cp man/procmail.1 man/lockfile.1 man/formail.1 $(MANDIR)
  473. X
  474. Xclean:
  475. X    $(RM) $(OBJ) common.$(O) lockfile.$(O) exopen.$(O) retint.$(O) \
  476. Xformail.$(O) $(BINS) autoconf.h _autotst*
  477. SHAR_EOF
  478. chmod 0644 procmail/Makefile ||
  479. echo 'restore of procmail/Makefile failed'
  480. Wc_c="`wc -c < 'procmail/Makefile'`"
  481. test 1801 -eq "$Wc_c" ||
  482.     echo 'procmail/Makefile: original size 1801, current size' "$Wc_c"
  483. fi
  484. # ============= procmail/autoconf ==============
  485. if test -f 'procmail/autoconf' -a X"$1" != X"-c"; then
  486.     echo 'x - skipping procmail/autoconf (File already exists)'
  487. else
  488. echo 'x - extracting procmail/autoconf (Text)'
  489. sed 's/^X//' << 'SHAR_EOF' > 'procmail/autoconf' &&
  490. X#!/bin/sh
  491. X#$Id: autoconf,v 2.1 1991/06/11 12:59:16 berg Rel $
  492. X
  493. XSHELL=/bin/sh || exec /bin/sh <autoconf # we're in a csh, feed myself to sh
  494. X
  495. XACONF=autoconf.h
  496. Xtrap "rm $ACONF;exit 1" 1 2 3 15
  497. Xcat >$ACONF <<HERE
  498. X/* This file was automagically generated by autoconf */
  499. X
  500. XHERE
  501. X
  502. X# WARNING: in ./include/stdlib.h the const keyword is already used!
  503. X#       hence the const test has to precede all others.
  504. X
  505. Xcat >_autotst.c <<HERE
  506. Xmain(){const int i;return 0;}
  507. XHERE
  508. X
  509. Xecho 'Testing for const'
  510. Xif make _autotst >/dev/null 2>&1
  511. Xthen
  512. X:
  513. Xelse
  514. X echo '#define const' >>$ACONF
  515. Xfi
  516. Xrm -f _autotst _autotst.o
  517. X
  518. Xcat >_autotst.c <<HERE
  519. Xmain(){volatile int i;return 0;}
  520. XHERE
  521. X 
  522. Xecho 'Testing for volatile'
  523. Xif make _autotst >/dev/null 2>&1
  524. Xthen
  525. X:
  526. Xelse
  527. X echo '#define volatile' >>$ACONF
  528. Xfi
  529. Xrm -f _autotst _autotst.o
  530. X
  531. Xcat >_autotst.c <<HERE
  532. Xmain(){int i;i= -1;return i=-i;}
  533. XHERE
  534. X
  535. Xecho 'Testing for compiler age'
  536. Xmake _autotst >_autotst.rrr 2>&1
  537. X
  538. Xif _autotst
  539. Xthen
  540. X echo 'Aha, this one is genuine antique!'
  541. X echo '#define void char' >>$ACONF
  542. Xfi
  543. Xrm -f _autotst _autotst.o
  544. X
  545. X
  546. Xcat >_autotst.c <<HERE
  547. X#include "includes.h"
  548. Xmain(){int i;
  549. X void*p;
  550. X i=(size_t)1;
  551. X i+=(pid_t)1;
  552. X i+=(time_t)1;
  553. X i+=(mode_t)1;
  554. X return 0;}
  555. XHERE
  556. X
  557. Xecho 'Testing for void*,size_t,pid_t,time_t,mode_t'
  558. Xmake _autotst >_autotst.rrr 2>&1
  559. Xrm -f _autotst _autotst.o
  560. X
  561. Xgrepfor(){
  562. Xif fgrep "$1" _autotst.rrr >/dev/null
  563. Xthen
  564. X echo "$2" >>$ACONF
  565. Xfi
  566. X}
  567. X
  568. Xgrepfor void '#define void char'
  569. Xgrepfor size_t 'typedef unsigned size_t;'
  570. Xgrepfor pid_t 'typedef int pid_t;'
  571. Xgrepfor time_t 'typedef long time_t;'
  572. Xgrepfor mode_t 'typedef int mode_t;'
  573. X
  574. Xcat >_autotst.c <<HERE
  575. X#include "includes.h"
  576. Xmain(){char a[1];
  577. X setpwent();endpwent();memmove(a,"t",1);bcopy("t",a,1);strstr(a,"t");return 0;}
  578. XHERE
  579. X
  580. Xecho 'Testing for memmove & strstr'
  581. Xmake _autotst >_autotst.rrr 2>&1
  582. Xrm -f _autotst _autotst.o
  583. X
  584. Xif fgrep memmove _autotst.rrr >/dev/null
  585. Xthen
  586. X echo '#define NOmemmove' >>$ACONF
  587. X grepfor bcopy '#define NObcopy'
  588. Xfi
  589. Xgrepfor strstr '#define NOstrstr'
  590. Xgrepfor setpwent '#define setpwent()'
  591. Xgrepfor endpwent '#define endpwent()'
  592. X
  593. Xrm -f _autotst*
  594. X
  595. Xecho -----------------------------autoconf.h-----------------------------------
  596. Xcat autoconf.h
  597. Xecho --------------------------------------------------------------------------
  598. SHAR_EOF
  599. chmod 0644 procmail/autoconf ||
  600. echo 'restore of procmail/autoconf failed'
  601. Wc_c="`wc -c < 'procmail/autoconf'`"
  602. test 2224 -eq "$Wc_c" ||
  603.     echo 'procmail/autoconf: original size 2224, current size' "$Wc_c"
  604. fi
  605. # ============= procmail/exopen.h ==============
  606. if test -f 'procmail/exopen.h' -a X"$1" != X"-c"; then
  607.     echo 'x - skipping procmail/exopen.h (File already exists)'
  608. else
  609. echo 'x - extracting procmail/exopen.h (Text)'
  610. sed 's/^X//' << 'SHAR_EOF' > 'procmail/exopen.h' &&
  611. X/*$Id: exopen.h,v 2.0 1991/06/10 14:39:08 berg Rel $*/
  612. X#define SERIALchars    3
  613. X#define UNIQnamelen    (1+SERIALchars+HOSTNAMElen+1)
  614. X#define SERIALmask    ((1L<<6*SERIALchars)-1)
  615. SHAR_EOF
  616. chmod 0644 procmail/exopen.h ||
  617. echo 'restore of procmail/exopen.h failed'
  618. Wc_c="`wc -c < 'procmail/exopen.h'`"
  619. test 170 -eq "$Wc_c" ||
  620.     echo 'procmail/exopen.h: original size 170, current size' "$Wc_c"
  621. fi
  622. # ============= procmail/formail.c ==============
  623. if test -f 'procmail/formail.c' -a X"$1" != X"-c"; then
  624.     echo 'x - skipping procmail/formail.c (File already exists)'
  625. else
  626. echo 'x - extracting procmail/formail.c (Text)'
  627. sed 's/^X//' << 'SHAR_EOF' > 'procmail/formail.c' &&
  628. X/************************************************************************
  629. X *    formail.c    a mail (re)formatter                *
  630. X *                                    *
  631. X *    Seems to be relatively bug free.                *
  632. X *                                    *
  633. X *    Copyright (c) 1990-1991, S.R.van den Berg, The Netherlands    *
  634. X *    The sources can be freely copied for non-commercial use.    *
  635. X *    #include "README"                        *
  636. X *                                    *
  637. X *    #include "STYLE"                        *
  638. X *                                    *
  639. X ************************************************************************/
  640. X#ifdef    RCS
  641. Xstatic char rcsid[]="$Id: formail.c,v 2.3 1991/06/12 10:50:21 berg Rel $";
  642. X#endif
  643. Xstatic char rcsdate[]="$Date: 1991/06/12 10:50:21 $";
  644. X#include "config.h"            /* I know, overkill, only need BinSh */
  645. X#include "includes.h"
  646. X
  647. X#define BSIZE    4096
  648. X
  649. X#define FROM        "From "
  650. X#define UNKNOWN        "foo@bar"
  651. X
  652. X#define Re        (re+1)
  653. X#define Nextchar(x)    do{x=getchar();if(feof(stdin))goto foundeof;}while(0)
  654. X#define putssn(a,l)    tputssn(a,(size_t)(l))
  655. X#define putcs(a)    (errout=putc(a,mystdout))
  656. X#define PRDO        poutfd[0]
  657. X#define PWRO        poutfd[1]
  658. X
  659. Xstatic const char From[]=FROM,replyto[]="Reply-To:",Fromm[]="From:",
  660. X returnpath[]="Return-Path",sender[]="Sender:",outofmem[]="Out of memory\n",
  661. X subject[]="Subject:",re[]=" Re:",couldntw[]="Couldn't write to stdout",
  662. X references[]="References:",messageid[]="Message-ID:",Date[]="Date:";
  663. Xconst char binsh[]=BinSh;
  664. Xstatic struct {const char*const head;const int len,wrepl;}sest[]={
  665. X {sender,STRLEN(sender),0},{replyto,STRLEN(replyto),4},
  666. X {Fromm,STRLEN(Fromm),2},{returnpath,STRLEN(returnpath),1}};
  667. Xstatic struct {const char*const headr;const int lenr;size_t offset;}rex[]={
  668. X {subject,STRLEN(subject)},{references,STRLEN(references)},
  669. X {messageid,STRLEN(messageid)}};
  670. X#define subj    rex[0]
  671. X#define refr    rex[1]
  672. X#define msid    rex[2]
  673. Xstatic struct {const char*const hedr;const int lnr;}cdigest[]={
  674. X {Fromm,STRLEN(Fromm)},{Date,STRLEN(Date)},{subject,STRLEN(subject)}};
  675. X#define mxl(a,b)    mx(STRLEN(a),STRLEN(b))
  676. X#define dig_HDR_LEN    mx(mxl(From,Fromm),mxl(Date,subject))
  677. Xstatic errout,oldstdout;
  678. Xstatic pid_t child= -1;
  679. Xstatic FILE*mystdout;
  680. Xstatic size_t nrskip,nrtotal= -1;
  681. X
  682. X#ifdef    NOstrstr
  683. Xchar*strstr(whole,part)const char*whole,*const part;{size_t len;
  684. X if(!(len=strlen(part)))
  685. X   return(char*)whole;
  686. X while(*whole&&strncmp(whole,part,len))
  687. X   ++whole;
  688. X return *whole?(char*)whole:(char*)0;}
  689. X#endif
  690. X
  691. Xvoid*tmalloc(len)const size_t len;{void*p;
  692. X if(p=malloc(len))
  693. X   return p;
  694. X log(outofmem);exit(EX_OSERR);}
  695. X
  696. Xvoid*trealloc(old,len)void*old;const size_t len;{
  697. X if(old=realloc(old,len))
  698. X   return old;
  699. X log(outofmem);exit(EX_OSERR);}
  700. X
  701. X#include "shell.h"
  702. X
  703. Xmain(argc,argv)const char*const argv[];{time_t t;
  704. X int i,lastm,nowm,thelen=0,split=0,force=0,bogus=1,every=0,areply=0,
  705. X   trust=0,digest=0,nowait=0;
  706. X size_t buflen,p=0,lnl=0,thename,ll;
  707. X char*buf,*chp;
  708. X while(*++argv){
  709. X   if((lastm= **argv)=='+')
  710. X      goto number;
  711. X   else if(lastm!='-')
  712. X      goto usg;
  713. X   for(i=1;;){
  714. X      switch((*argv)[i++]){
  715. X     case 't':trust=1;continue;    /* trust the sender for valid headers */
  716. X     case 'r':areply=1;continue;             /* generate a reply */
  717. X     case 'f':force=1;continue;          /* accept arbitrary format */
  718. X     case 'e':every=1;continue;              /* split on every From */
  719. X     case 'd':digest=1;continue;             /* split up digests */
  720. X     case 'n':nowait=1;continue;          /* don't wait for the programs */
  721. X     case 's':split=1;bogus=0;
  722. X        if(!(*argv++)[i])
  723. X           goto parsedoptions;
  724. X        goto usg;
  725. Xnumber:     default:
  726. X        if((*argv)[1]-'0'>(unsigned)9){
  727. Xusg:           log("Usage: formail [+nnn] [-nnn] [-bfrtned] \
  728. X[-s command argument ...]\n");return EX_USAGE;}
  729. X        ll=strtol((*argv)+1,(char**)0,10);
  730. X        if(lastm=='+')
  731. X           nrskip=ll;
  732. X        else
  733. X           nrtotal=ll;
  734. X        break;
  735. X     case 'b':bogus=0;continue;         /* leave bogus Froms intact */
  736. X     case '\0':;}
  737. X      break;}}
  738. Xparsedoptions:
  739. X mystdout=stdout;
  740. X if(split){
  741. X   oldstdout=dup(STDOUT);fclose(stdout);startprog(argv);}
  742. X while('\n'==(i=getchar()));
  743. X buf=malloc(buflen=BSIZE);t=time((time_t*)0);
  744. X for(;;){                     /* start parsing the header */
  745. X   if((buf[p++]=i)=='\n'){
  746. X      chp=buf+lnl;i=maxindex(rex);
  747. X      while(strnicmp(rex[i].headr,chp,rex[i].lenr)&&i--);
  748. X      if(i>=0)                      /* found anything already? */
  749. X     rex[i].offset=lnl+rex[i].lenr;
  750. X      else if(!strncmp(From,chp,STRLEN(From))){
  751. X     if(!lnl){                /* was the real "From " line */
  752. X        if(!areply)
  753. X           goto endofheader;
  754. X        nowm=trust?1:3/*wreply*/;ll=lnl+STRLEN(From);goto foundfrom;}
  755. X     if(bogus){
  756. X        tmemmove(chp+1,chp,p++-lnl);*chp='>';}}           /* disarm */
  757. X      else{
  758. X     i=maxindex(sest);
  759. X     do
  760. X        if(!strnicmp(sest[i].head,chp,sest[i].len)){
  761. X           nowm=areply?sest[i].wrepl:i;ll=lnl+sest[i].len;
  762. Xfoundfrom:     buf[p]='\0';
  763. X           if(chp=strchr(buf+ll,'<'))          /* extract the address */
  764. X          ll=chp-buf+1;
  765. X           chp=buf+(ll+=strspn(buf+ll," \t"));
  766. X           if((i=strcspn(chp,">(\n \t"))&&(!thelen||nowm>lastm)){
  767. X          thename=ll;thelen=i;
  768. X          lastm=strstr(chp,".UUCP")?nowm-maxindex(sest)-1:nowm;}
  769. X           break;}
  770. X     while(i--);
  771. X     if(lnl==p-1)
  772. X        break;}                    /* end of header reached */
  773. X      lnl=p;}
  774. X   if(p>=buflen-2)
  775. X      buf=realloc(buf,buflen+=BSIZE);
  776. Xredigest:
  777. X   i=getchar();
  778. X   if(feof(stdin))
  779. X      i='\n';}            /* make sure the header ends with 2 newlines */
  780. X if(areply||!force){
  781. X   putss(areply?"To: ":From);
  782. X   if(thelen)                    /* found any sender address? */
  783. X      putssn(buf+thename,thelen);
  784. X   else
  785. X      putss(UNKNOWN);
  786. X   if(areply){
  787. X      putcs('\n');
  788. X      if(subj.offset){                       /* any Subject: ? */
  789. X     putss(subject);chp=buf+subj.offset;
  790. X     if(strnicmp(chp+strspn(chp," "),Re,STRLEN(Re)))
  791. X        putss(re);                   /* no Re: , add one ourselves */
  792. X     nlputss(chp);}
  793. X      if(refr.offset||msid.offset){     /* any Message-ID: or References: ? */
  794. X     putss(references);
  795. X     if(refr.offset){
  796. X        chp=buf+refr.offset;
  797. X        putssn(chp,strchr(chp,'\n')-chp+!msid.offset);}
  798. X     if(msid.offset){
  799. X        nlputss(buf+msid.offset);putss("In-Reply-To:");
  800. X        nlputss(buf+msid.offset);}}
  801. X      putcs('\n');
  802. X      while(getchar(),!feof(stdin));return EX_OK;}
  803. X   putcs(' ');putss(ctime(&t));}
  804. Xendofheader:
  805. X putssn(buf,p);p=0;lnl=1;
  806. X if(!bogus&&!split)
  807. X   for(;;putcs(i))
  808. X      Nextchar(i);
  809. X for(;;){                           /* continue the quest */
  810. X   do{                         /* read line until not From */
  811. X      if(p==buflen-1)
  812. X     buf=realloc(buf,++buflen);
  813. X      Nextchar(i=buf[p]);
  814. X      if(++p==STRLEN(From))
  815. X     if(!strncmp(From,buf,STRLEN(From))){
  816. X        if(bogus){
  817. X           putcs('>');break;}                   /* disarm */
  818. X        else if(every)
  819. X           goto splitit;
  820. X        else if(split&&lnl)
  821. X           lnl=2;}               /* mark line as possible postmark */
  822. X      if(lnl==1&&digest){
  823. X     thelen=maxindex(cdigest);
  824. X     do                      /* check for new digest header */
  825. X        if(p==cdigest[thelen].lnr&&!strncmp(buf,cdigest[thelen].hedr,p)){
  826. X           lnl=thelen=0;goto splitit;}      /* pretend we started over */
  827. X     while(thelen--);}}
  828. X   while(i!='\n'&&(lnl==2||p<dig_HDR_LEN));
  829. X   if(lnl==2){
  830. X      buf[p]='\0';         /* perform more thorough check for postmark */
  831. X      for(i=STRLEN(From)-1;buf[++i]==' ';);
  832. X      if(ll=strcspn(buf+i,"\n \t")){
  833. X     i+=ll;
  834. X     if(ll=strspn(buf+i," ")&&(ll=buf[i+ll])!='\t'&&ll!='\n'){
  835. Xsplitit:    if(fclose(mystdout)==EOF||errout==EOF){
  836. X           log(couldntw);log(", continuing...\n");split= -1;}
  837. X        if(!nowait)
  838. X           waitforit();
  839. X        startprog(argv);
  840. X        if(!lnl)                        /* digest split? */
  841. X           goto redigest;
  842. X        i='\n';}}}
  843. X   lnl=p==1;putssn(buf,p);p=0;
  844. X   if(i!='\n')
  845. X      do Nextchar(i);
  846. X      while(putcs(i),i!='\n');}
  847. Xfoundeof:
  848. X putssn(buf,p);
  849. X if(fclose(mystdout)==EOF||errout==EOF){
  850. X   log(couldntw);return EX_IOERR;}
  851. X child= -1;waitforit();return split<0?EX_IOERR:EX_OK;}    /* wait for everyone */
  852. X
  853. Xstrnicmp(a,b,l)register const char*a,*b;register unsigned l;{int i,j;
  854. X if(l)                         /* case insensitive strncmp */
  855. X   do{
  856. X      while(*a&&*a==*b&&--l)
  857. X     ++a,++b;
  858. X      if(!l)
  859. X     break;
  860. X      if((i= *a++)>='A'&&i<='Z')
  861. X     i+='a'-'A';
  862. X      if((j= *b++)>='A'&&j<='Z')
  863. X     j+='a'-'A';
  864. X      if(j!=i)
  865. X     return i>j?1:-1;}
  866. X   while(i&&j&&--l);
  867. X return 0;}
  868. X
  869. Xlog(a)const char*const a;{
  870. X fputs(a,stderr);}
  871. X
  872. Xlogqnl(a)const char*a;{
  873. X log(" \"");log(a);log("\"\n");}
  874. X
  875. Xnlputss(a)const char*const a;{
  876. X putssn(a,strchr(a,'\n')+1-a);}
  877. X
  878. Xputss(a)const char*a;{
  879. X while(*a)
  880. X   putcs(*a++);}
  881. X
  882. Xtputssn(a,l)const char*a;size_t l;{
  883. X while(l--)
  884. X   putcs(*a++);}
  885. X
  886. Xstartprog(argv)const char*const*const argv;{int poutfd[2];
  887. X if(!nrtotal)
  888. X   goto squelch;
  889. X if(nrskip){
  890. X   --nrskip;
  891. Xsquelch:
  892. X   if(!(mystdout=fopen(DevNull,"a")))
  893. X      goto nofild;
  894. X   return;}
  895. X if(nrtotal>0)
  896. X   --nrtotal;
  897. X dup(oldstdout);pipe(poutfd);
  898. X if(!(child=fork())){
  899. X   close(oldstdout);close(PWRO);fclose(stdin);dup(PRDO);close(PRDO);
  900. X   shexec(argv);}
  901. X close(STDOUT);close(PRDO);
  902. X if(STDOUT!=dup(PWRO)||!(mystdout=fdopen(STDOUT,"a"))){
  903. Xnofild:
  904. X   log("File table full\n");exit(EX_OSERR);}
  905. X close(PWRO);
  906. X if(0>child){
  907. X   log("Can't fork\n");exit(EX_OSERR);}}
  908. X
  909. Xwaitforit(){int i;
  910. X while(child!=wait(&i)||(i&127)==127);}
  911. SHAR_EOF
  912. chmod 0644 procmail/formail.c ||
  913. echo 'restore of procmail/formail.c failed'
  914. Wc_c="`wc -c < 'procmail/formail.c'`"
  915. test 8833 -eq "$Wc_c" ||
  916.     echo 'procmail/formail.c: original size 8833, current size' "$Wc_c"
  917. fi
  918. # ============= procmail/config.h ==============
  919. if test -f 'procmail/config.h' -a X"$1" != X"-c"; then
  920.     echo 'x - skipping procmail/config.h (File already exists)'
  921. else
  922. echo 'x - extracting procmail/config.h (Text)'
  923. sed 's/^X//' << 'SHAR_EOF' > 'procmail/config.h' &&
  924. X/*$Id: config.h,v 2.0 1991/06/10 14:35:35 berg Rel $*/
  925. X
  926. X/*#define console    "/dev/console"    /* uncomment if you want procmail to
  927. X                       use the console (or any other
  928. X    terminal) to print any error messages that could not be dumped in the
  929. X    "logfile".  (Only recommended for debugging purposes, if you have
  930. X    trouble creating a "logfile") */
  931. X
  932. X/************************************************************************
  933. X * Only edit below this line if you *think* you know what you are doing *
  934. X ************************************************************************/
  935. X
  936. X#define DEFlinebuf    2048         /* default max expanded line length */
  937. X#define BLKSIZ        16384          /* blocksize while reading/writing */
  938. X#define STDBUF        1024             /* blocksize for emulated stdio */
  939. X#define HOSTNAMElen    8      /* nr of significant chararacters for HOST */
  940. X#define PROCMAILRC    ".procmailrc"
  941. X#define DEFsuspend    16         /* multi-purpose 'idle loop' period */
  942. X#define DEFlocksleep    8
  943. X#define TOkey        "^TO"
  944. X#define TOsubstitute    "^(To|Cc|Apparently-To):.*"
  945. X#define DEFshellmetas    "&()[]*?|<>~;:"            /* never put '$' in here */
  946. X#define DEFmaildir    "$HOME"
  947. X#define DEFdefault    "$MAILDIR/.mailbox"
  948. X#define DEFmsgprefix    "msg."
  949. X#define DEForgmail    "/usr/spool/mail/$USER"
  950. X#define DEFgrep        "/usr/bin/egrep"
  951. X#define DEFsendmail    "/usr/lib/sendmail"
  952. X#define DEFlockext    ".lock"
  953. X#define DEFshellflags    "-c"
  954. X#define DEFlocktimeout    3600                 /* defaults to one hour */
  955. X#define DEFnoresretry    2      /* default nr of retries if no resources left */
  956. X
  957. X#define NRRECFLAGS    (9+1)
  958. X#define RECFLAGS    " %9[HBDIhbfcws] %[^\n]" /* 'I' and 's' are obsolete */
  959. X#define BinSh        "/bin/sh"
  960. X#define Tmp        "/tmp"
  961. X#define DevNull        "/dev/null"
  962. X#define DIRSEP        "/"         /* directory separator symbols, the */
  963. X                   /* last one should be the most common one */
  964. X
  965. X/* the regular expression we use to look for bogus headers
  966. X    (which I took from /usr/ucb/mail) is:
  967. X                          "\n\nFrom +[^\t\n ]+ +[^\n\t]" */
  968. X
  969. X#define FromSCAN    "From%*[ ]%*[^\t\n ]%*[ ]%1[^\n\t]"
  970. X#define EOFName        "%[^ \t\n#'\")};]"
  971. X
  972. X#define VERSIONOPT    'v'            /* option to display version */
  973. X#define PRESERVOPT    'p'
  974. X#define DEBUGOPT    'd'
  975. X
  976. X#define MINlinebuf    128    /* minimal LINEBUF length (don't change this) */
  977. X#define SFROM        "From "
  978. X#define SFROM_S        "From%*[ ]%74[^\n]"
  979. X#define SSUBJECT    " Subject:"
  980. X#define SSUBJECT_S    \
  981. X        "%*1[Ss]%*1[Uu]%*1[Bb]%*1[Jj]%*1[Ee]%*1[Cc]%*1[Tt]:%70[^\n]"
  982. X#define FOLDER        "  Folder: "
  983. X#define LENtSTOP    9 /* tab stop at which message length will be logged */
  984. X
  985. X#define TABCHAR        "\t"
  986. X#define TABWIDTH    8
  987. SHAR_EOF
  988. chmod 0644 procmail/config.h ||
  989. echo 'restore of procmail/config.h failed'
  990. Wc_c="`wc -c < 'procmail/config.h'`"
  991. test 2501 -eq "$Wc_c" ||
  992.     echo 'procmail/config.h: original size 2501, current size' "$Wc_c"
  993. fi
  994. # ============= procmail/procmail.h ==============
  995. if test -f 'procmail/procmail.h' -a X"$1" != X"-c"; then
  996.     echo 'x - skipping procmail/procmail.h (File already exists)'
  997. else
  998. echo 'x - extracting procmail/procmail.h (Text)'
  999. sed 's/^X//' << 'SHAR_EOF' > 'procmail/procmail.h' &&
  1000. X/*$Id: procmail.h,v 2.0 1991/06/10 14:35:35 berg Rel $*/
  1001. X
  1002. X#include "includes.h"
  1003. X
  1004. Xtypedef unsigned char uchar;
  1005. X
  1006. X#ifndef console
  1007. X#define console devnull
  1008. X#endif
  1009. X
  1010. X#define XTRAlinebuf    2         /* surplus of LINEBUF (see readparse()) */
  1011. X#define TMNATE        '\377'             /* terminator (see readoarse()) */
  1012. X
  1013. X#define PRDO    poutfd[0]
  1014. X#define PWRO    poutfd[1]
  1015. X#define PRDI    pinfd[0]
  1016. X#define PWRI    pinfd[1]
  1017. X#define PRDB    pbackfd[0]
  1018. X#define PWRB    pbackfd[1]
  1019. X#define LENoffset    (TABWIDTH*LENtSTOP)
  1020. X#define MAXfoldlen    (LENoffset-STRLEN(sfolder)-1)
  1021. X#define MCDIRSEP    (dirsep+STRLEN(dirsep)-1)      /* most common DIRSEP */
  1022. X
  1023. Xstruct varval{const char*const name;long val;};
  1024. X#define locksleep    (strenvvar[0].val)
  1025. X#define locktimeout    (strenvvar[1].val)
  1026. X#define suspendv    (strenvvar[2].val)
  1027. X#define noresretry    (strenvvar[3].val)
  1028. X#define MAXvarvals    maxindex(strenvvar)
  1029. X
  1030. X#ifndef MAIN
  1031. Xextern char*buf,*buf2,*globlock,*loclock,*tolock,*lastfolder;
  1032. Xextern const char grep[],shellflags[],shell[],lockext[],newline[],binsh[],
  1033. X unexpeof[],shellmetas[],*const*gargv,*sgetcp,*rcfile,dirsep[],msgprefix[],
  1034. X devnull[],executing[],oquote[],cquote[],whilstwfor[];
  1035. Xextern struct varval strenvvar[];
  1036. Xextern long lastdump;
  1037. Xextern sh,pwait,retval,lcking,locknext,verbose,linebuf,rc;
  1038. Xextern volatile flaggerd,nextexit;
  1039. Xextern pid_t thepid;
  1040. X#endif
  1041. X
  1042. X#ifdef NOmemmove
  1043. Xvoid*memmove();
  1044. X#endif
  1045. X
  1046. Xvoid*tmalloc(),*trealloc();
  1047. Xpid_t sfork();
  1048. Xvoid sterminate(),stermchild(),flagger(),errgrandchild();
  1049. Xlong dump(),pipin(),renvint();
  1050. Xchar*readdyn(),*fromprog(),*cat(),*findnl(),*tstrdup(),*cstr();
  1051. Xconst char*tgetenv(),*hostname();
  1052. Xint sgetc(),getb();
  1053. SHAR_EOF
  1054. chmod 0644 procmail/procmail.h ||
  1055. echo 'restore of procmail/procmail.h failed'
  1056. Wc_c="`wc -c < 'procmail/procmail.h'`"
  1057. test 1582 -eq "$Wc_c" ||
  1058.     echo 'procmail/procmail.h: original size 1582, current size' "$Wc_c"
  1059. fi
  1060. # ============= procmail/HISTORY ==============
  1061. if test -f 'procmail/HISTORY' -a X"$1" != X"-c"; then
  1062.     echo 'x - skipping procmail/HISTORY (File already exists)'
  1063. else
  1064. echo 'x - extracting procmail/HISTORY (Text)'
  1065. sed 's/^X//' << 'SHAR_EOF' > 'procmail/HISTORY' &&
  1066. X1990/12/07: v1.00
  1067. X        First release (after 2 weeks of coding and testing)
  1068. X1990/12/12: v1.01
  1069. X        Added fsync to procmail.c
  1070. X        Removed longjmp in lockfile.c out of the signal handler
  1071. X        (not portable, so I'm told)
  1072. X1991/02/04: v1.02
  1073. X        Changes to procmail.c:
  1074. X           Added physical-write-error check
  1075. X           Altered egrep invocation (left out the -s flag, not supported
  1076. X          on all machines; this didn't change functionality though)
  1077. X           Avoided the 'dirty' allocation of one more byte than needed by
  1078. X          rewriting the bogus_header_replace routine
  1079. X           Made the search for bogus headers more robust
  1080. X        Added sysV lines in Makefile
  1081. X1991/02/13: v1.10
  1082. X        Changes to procmail.c:
  1083. X           Fixed slight error in parsing the recipe when 'h' and 'b' where
  1084. X          specified
  1085. X           Started using the official exit codes
  1086. X           Made sure that the procmail is not influenced by falsely
  1087. X          set environment variables like LOCKSLEEP
  1088. X1991/02/21: v1.20
  1089. X        Changes to procmail.c:
  1090. X           Removed library conflict on some machines for 'locking'
  1091. X           Added uname call as alternative for gethostname
  1092. X           Changed name of SHELLMETA to SHELLMETAS (for conformance
  1093. X          with dmake)
  1094. X           Added LOCKTIMEOUT to learn procmail to decide wether or not
  1095. X          a certain lockfile is still 'valid'
  1096. X           Added the function sputenv (smart-putenv) to avoid library
  1097. X          problems and to finally have a putenv that works the
  1098. X          way it was supposed to work all along (you wouldn't believe
  1099. X          how brain damaged this library function is :-)
  1100. X           Changed environment variable assignment to skip trailing blanks
  1101. X          only, and allow intermediate blanks (parsing like make)
  1102. X1991/02/22: v1.21
  1103. X        Split up procmail.c in procmail.c, nonint.c, retint.c, procmail.h,
  1104. X           config.h, sysexits.h, shell.h
  1105. X        Changes to lockfile.c:
  1106. X           Added -l option (locktimeout)
  1107. X        Moved virtually all configuration stuff from Makefile into
  1108. X           config.h
  1109. X        Added -v option to procmail
  1110. X1991/03/01: v1.30
  1111. X        Added out of memory/swap space immunity  (NOMEMRETRY)
  1112. X        Made forced terminations of procmail more reliable and verbose
  1113. X           (previously, procmail would display erroneous error messages
  1114. X           if an attempt was made to kill procmail more than once in
  1115. X           rapid succession)
  1116. X        Fixed up man pages and comments
  1117. X        Included more example files
  1118. X        Made sure that variable substitution works in locallockfile-
  1119. X           specifications too
  1120. X1991/03/15: v1.35
  1121. X        Fixed the problem when no rcfile was found (rc!=NULL)
  1122. X        Made my memmove replacement ANSI compatible
  1123. X        Fixed up the Makefile (include file dependencies were incorrect)
  1124. X        Started using RCS to manage the source
  1125. X1991/06/04: v1.99
  1126. X        Changed NOMEMRETRY into NORESRETRY, now all machine limitations
  1127. X           are caught
  1128. X        Beefed up the parsing routine, now supports virtually complete
  1129. X           /bin/sh syntax (*all* quotes and escapes are understood)
  1130. X        Cleaned up the code, arranged for all remotely configuration-
  1131. X           dependent looking values to be in config.h
  1132. X        Created an include directory to catch missing include files
  1133. X        Created an autoconf script that determines all installation
  1134. X           specifics (all the user has to do now is make)
  1135. X        Threw out (the last?) BSD specific library routines
  1136. X        ANSI'fied the code, it's now as close as you can get to 'native'
  1137. X           ANSI while maintaining compatibility with K&R
  1138. X        Stopped using the %i identifier from sscanf
  1139. X        Improved the diagnostic messages when procmail is killed (tells
  1140. X           you what it was waiting for)
  1141. X        Made the file locking mechanism RELIABLE over NFS
  1142. X        Procmail now is able to deliver to directories too (AMS --
  1143. X           Andrew Mail System), it creates a uniquely named new file for
  1144. X           every new mail
  1145. X        Threw out the 's' and 'I' options in rcfiles, introduced 'D'
  1146. X        Completely rewrote the filter code, made sure that the pid number
  1147. X           off procmail does not change anymore while filtering
  1148. X        Threw out the stdio library (out of procmail) to avoid the hidden
  1149. X           malloc on fopen (I want to catch all mallocs), reliability
  1150. X           was improved, binary size did not shrink because the getpwent
  1151. X           library links in the stdio library (aargh!)
  1152. X        Procmail ditches the environment completely now upon startup
  1153. X        Provided a -p flag to preserve the environment
  1154. X        Provided a -d flag for debugging purposes (debugging rc scripts)
  1155. X        Improved logfile format, now logs a third entry on mail arrival:
  1156. X           which folder the mail finally went to and how long it was
  1157. X        Made logfile output line buffered to get a cleaner logfile if
  1158. X           several programs write it concurrently
  1159. X        Changes to lockfile.c:
  1160. X           Added -s flag to maintain step with procmail
  1161. X        Created formail.c:
  1162. X           A new (the third) program
  1163. X        Rearranged the routines a bit, so that two object files could be
  1164. X           shared between the three programs
  1165. X1991/06/10: v2.00
  1166. X        Changed all "ambiguous assignments" to have a space inserted
  1167. X           (preserves compatibility with older compilers)
  1168. X        Made some more entries in the config.h file
  1169. X        Changes to formail.c:
  1170. X           Added strstr library replacement
  1171. X           Added the option to split digests
  1172. X        Updated the manual files (I hate doing this)
  1173. X        Updated the example files
  1174. X1991/06/11: v2.01
  1175. X        Fixed up includes.h and autoconf to be more POSIX compliant
  1176. X        Fixed up small bug in readparse() (goodies.c) that caused trouble
  1177. X           with recursively nested backquotes (nobody will probably ever
  1178. X           use this, but I was testing worst case behaviour)
  1179. X        Documented the $$ environment variable in procmail.1
  1180. X1991/06/12: v2.02
  1181. X        Fixed typo in strstr replacement
  1182. X        Fixed runaway line while logging long folder names
  1183. SHAR_EOF
  1184. chmod 0644 procmail/HISTORY ||
  1185. echo 'restore of procmail/HISTORY failed'
  1186. Wc_c="`wc -c < 'procmail/HISTORY'`"
  1187. test 5739 -eq "$Wc_c" ||
  1188.     echo 'procmail/HISTORY: original size 5739, current size' "$Wc_c"
  1189. fi
  1190. # ============= procmail/FEATURES ==============
  1191. if test -f 'procmail/FEATURES' -a X"$1" != X"-c"; then
  1192.     echo 'x - skipping procmail/FEATURES (File already exists)'
  1193. else
  1194. echo 'x - extracting procmail/FEATURES (Text)'
  1195. sed 's/^X//' << 'SHAR_EOF' > 'procmail/FEATURES' &&
  1196. XFeature summary for procmail:
  1197. X    + Easy to install
  1198. X    + Simple to maintain and configure because
  1199. X      all you need is actually only ONE executable (procmail)
  1200. X      and ONE configuration file (.procmailrc)
  1201. X    + Uses *your* (i.e. easily configurable) favourite regular expression
  1202. X      syntax
  1203. X    + Allows for very-easy-to-use yes-no decisions on where the mail
  1204. X      should go
  1205. X    + Filters, delivers and forwards mail *reliably*
  1206. X    + Provides a stable and guaranteed environment for any programs or
  1207. X      shell scripts you may wish to start upon mail arrival
  1208. X    + Is designed for reliability, once procmail gets hold of your mail
  1209. X      you can consider it delivered
  1210. X    + Is event driven (i.e. gets invoked automagically when mail arrives)
  1211. X    + Performs heroically under even the worst conditions
  1212. X      (file system full, out of swap space, process table full,
  1213. X      file table full, missing support files, unavailable executables,
  1214. X      denied permissions) and tries to deliver the mail somehow anyway
  1215. X      (it usually succeeds were other programs would have given up)
  1216. X    + procmail is the closest you can get to a program that outlives
  1217. X      the swapper :-)
  1218. X    + Absolutely undeliverable mail (after trying every trick in the book)
  1219. X      will bounce back to the sender
  1220. X    + Does not use *any* temporary files
  1221. X    + Is explicitly designed to work under NFS as well
  1222. X    + Performs more reliable mailbox locking than most other mailers
  1223. X      (especially across NFS, DON'T use NFS mounted mailboxes WITHOUT
  1224. X      installing procmail, you may use valuable mail one day)
  1225. X    + Supports both mailfolder standards (single file folders (standard
  1226. X      *NIX format) as well as directory folders (AMS -- Andrew Mail System)
  1227. X      that contain one file per message)
  1228. X    + Variable assignment and substitution is a subset of the standard
  1229. X      /bin/sh syntax
  1230. X    + Provides a mail log file, which logs all mail arrival, shows
  1231. X      in summary whence it came from, what it was about, where it went
  1232. X      (what folder) and how long (in bytes) it was
  1233. X    + Uses this log file to display a wide range of diagnostic and error
  1234. X      messages (if something went wrong)
  1235. X    + Processed mail can contain arbitrary 8-bit characters (including
  1236. X      '\0'); i.e. binary mailings can be processed if the rest of the
  1237. X      mailing system knew how to handle them too
  1238. X    + It has a man page (boy, does *it* have a man page)
  1239. X    + It can be used as a local delivery agent (substitute for /bin/mail)
  1240. X
  1241. XFeature summary for formail:
  1242. X    + Can generate auto-reply headers
  1243. X    + Can force mail into mailbox format (so that you can process it with
  1244. X      standard mail programs)
  1245. X    + Can split up mailboxes into the individual messages
  1246. X    + Can split up digests into the individual messages
  1247. X
  1248. XFeature summary for lockfile:
  1249. X    + Provides NFS-secure lockfiles to shell script programmers
  1250. SHAR_EOF
  1251. chmod 0644 procmail/FEATURES ||
  1252. echo 'restore of procmail/FEATURES failed'
  1253. Wc_c="`wc -c < 'procmail/FEATURES'`"
  1254. test 2717 -eq "$Wc_c" ||
  1255.     echo 'procmail/FEATURES: original size 2717, current size' "$Wc_c"
  1256. fi
  1257. exit 0
  1258. exit 0 # Just in case...
  1259. -- 
  1260. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1261. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1262. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1263. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1264.