home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / uumail4 / part03 < prev    next >
Encoding:
Internet Message Format  |  1987-02-04  |  48.9 KB
  1. Subject:  v08i035:  Uumail release 4.2, Part03/04
  2. Newsgroups: mod.sources
  3. Approved: mirror!rs
  4.  
  5. Submitted by: sob@soma.BCM.TMC.EDU (Stan Barber)
  6. Mod.sources: Volume 8, Issue 35
  7. Archive-name: uumail4/Part03
  8.  
  9. [  IMPORTANT NOTE:  This version superceeds the recent net.sources posting
  10.    because it also inclues the Patch#1.  An earlier version of Uumail
  11.    was next in the backlog, hence this "rapid" posting.  --r$  ]
  12.  
  13. #! /bin/sh
  14.  
  15. # Make a new directory for the uumail sources, cd to it, 
  16. # and run kits 1 thru 4 through sh. 
  17. # When all 4 kits have been run, read README.
  18.  
  19. echo "This is uumail kit 3 (of 4).  If kit 3 is complete, the line"
  20. echo '"'"End of kit 3 (of 4)"'" will echo at the end.'
  21. echo ""
  22. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  23. echo Extracting alias.c
  24. cat >alias.c <<'!STUFFY!FUNK!'
  25. #include "uuconf.h"
  26. #ifndef lint
  27. static char rcsid[] = "$Header: alias.c,v 4.0 86/11/17 16:02:00 sob Exp $";
  28. #endif
  29. /***************************************************************************
  30. This work in its current form is Copyright 1986 Stan Barber
  31. with the exception of opath, gethostname and the original getpath which
  32. as far as I know are in the Public Domain. This software may be distributed
  33. freely as long as no profit is made from such distribution and this notice
  34. is reproducted in whole.
  35. ***************************************************************************
  36. This software is provided on an "as is" basis with no guarantee of 
  37. usefulness or correctness of operation for any purpose, intended or
  38. otherwise. The author is in no way liable for this software's performance
  39. or any damage it may cause to any data of any kind anywhere.
  40. ***************************************************************************/
  41. /* These routines based in part on the aliasing facility of MH Version 1.7 */
  42. /* $Log:    alias.c,v $
  43.  * Revision 4.0  86/11/17  16:02:00  sob
  44.  * Release version 4.0 -- uumail
  45.  * 
  46.  * Revision 3.3  86/10/21  15:06:12  sob
  47.  * Added lint #indef to make lint happier
  48.  * 
  49.  * Revision 3.2  86/07/11  17:57:42  sob
  50.  * renamed parse to aliasparse to avoid name conflict with resolve
  51.  * 
  52.  * Revision 3.1  86/05/13  12:36:47  sob
  53.  * Added the ability to escape sensitive characters per suggestion
  54.  * of tp@ndm20.UUCP.
  55.  * 
  56.  * Revision 3.0  86/03/14  12:04:41  sob
  57.  * Release of 3/15/86 --- 3rd Release
  58.  * 
  59.  * Revision 1.10  86/03/14  11:57:13  sob
  60.  * updated copyright
  61.  * 
  62.  * Revision 1.9  86/03/11  11:28:40  sob
  63.  * Added Copyright Notice
  64.  * 
  65.  * Revision 1.8  86/03/03  17:16:39  sob
  66.  * Added fixes provided by desint!geoff.
  67.  * Stan
  68.  * 
  69.  * Revision 1.7  86/02/26  03:07:20  sob
  70.  * This forward method seems to work. It is a bit awkward, but it does seem
  71.  * to work. We will freeze the release here.
  72.  * 
  73.  * Revision 1.6  86/02/24  12:46:31  sob
  74.  * Fixed some problems with .forward. Still not completely correct, but better.
  75.  * Stan
  76.  * 
  77.  * Revision 1.5  86/02/23  23:48:50  sob
  78.  * This version contains the first attempt to make .forwards work.
  79.  * Stan
  80.  * 
  81.  * Revision 1.4  86/02/23  23:01:12  sob
  82.  * This version will correctly make note of programs that can have output
  83.  * of uumail directly piped into (in place of mail or uux).
  84.  * 
  85.  * Revision 1.3  86/02/18  01:56:12  sob
  86.  * MH aliasing facility has been installed. Now comes time to test.
  87.  * Stan
  88.  * 
  89.  * Revision 1.2  86/02/17  18:42:47  sob
  90.  * First update to add linked list of addresses. Real aliasing to be
  91.  * added next.
  92.  * 
  93.  * Revision 1.1  86/02/10  16:54:12  sob
  94.  * Initial revision
  95.  * 
  96.  *
  97.  */
  98. #ifdef NOALIAS
  99. char *
  100. alias()
  101. {
  102.     return;
  103. }
  104. #else
  105. EXTERN struct mailname addrlist;
  106. #define GROUP "/etc/group"
  107. char *termptr;
  108.  
  109.  
  110. /* Conditional free -- perform a free call if the address passed
  111.  * is in free storage;  else NOP
  112.  */
  113.  
  114.  
  115. cndfree(addr)
  116. char *addr;
  117. {
  118.     extern char end;
  119.  
  120.     if(addr >= &end) free(addr);
  121. }
  122.  
  123. uleq(c1, c2)
  124. register char *c1, *c2;
  125. {
  126.     register int c;
  127.  
  128.     while(c = *c1++)
  129.         if((c|040) != (*c2|040))
  130.             return(0);
  131.         else
  132.             c2++;
  133.     return(*c2 == 0);
  134. }
  135. /* modifications to allow quoting of characters that usually indicate
  136.  * address delimiters provided by tp@ndm20.UUCP
  137.  */
  138. char *aliasparse(ptr, buf)
  139. register char *ptr;
  140. char *buf;
  141. {
  142.     register char *cp;
  143.  
  144.     cp = buf;
  145.     while(isspace(*ptr) || *ptr == ',' || *ptr == ':')
  146.         ptr++;
  147.     while(isalnum(*ptr) || *ptr == '/' || *ptr == '-' || *ptr == '.' || *ptr == '!' || *ptr == '@' || *ptr == '%' || *ptr == '\\') {
  148.         if(*ptr == '\\') ptr++;
  149.         if(*ptr != '\0') *cp++ = *ptr++;
  150.     }
  151.     if(cp == buf) {
  152.         switch(*ptr) {
  153.         case '<':
  154.         case '|':
  155.         case '=':
  156.             *cp++ = *ptr++;
  157.         }
  158.     }
  159.     *cp = 0;
  160.     if(cp == buf)
  161.         return 0;
  162.     termptr = ptr;
  163.     return buf;
  164. }
  165. char *
  166. advance(ptr)
  167.     register char *ptr;
  168. {
  169.     return(termptr);
  170. }
  171.  
  172. alias()
  173. {
  174.     register char *cp, *pp;
  175.     register struct mailname *lp;
  176.     char line[256], pbuf[64];
  177.     FILE *a;
  178.  
  179.     if((a = fopen(AliasFile, "r")) == NULL)
  180.         return;
  181.     while(fgets(line, sizeof line, a)) {
  182.         if(line[0] == ';' || line[0] == '\n')   /* Comment Line */
  183.             continue;
  184.         if((pp = aliasparse(line, pbuf)) == NULL) {
  185.         oops:       fprintf(stderr, "Bad alias file %s\n", AliasFile);
  186.             fprintf(stderr, "Line: %s", line);
  187.             exit(EX_OSFILE);
  188.         }
  189.         for(lp = &addrlist; lp->m_next; lp = lp->m_next) {
  190.             if(aleq(lp->m_next->m_name, pp)) {
  191.                 remove(lp);
  192.                 if(!(cp = advance(line)) ||
  193.                    !(pp = aliasparse(cp, pbuf)))
  194.                     goto oops;
  195.                 switch(*pp) {
  196.                 case '<':       /* From file */
  197.                     cp = advance(cp);
  198.                     if((pp = aliasparse(cp, pbuf)) == NULL)
  199.                         goto oops;
  200.                     addfile(pp);
  201.                     break;
  202.                 case '=':       /* UNIX group */
  203.                     cp = advance(cp);
  204.                     if((pp = aliasparse(cp, pbuf)) == NULL)
  205.                         goto oops;
  206.                     addgroup(pp);
  207.                     break;
  208.                    case '|':    /* pipe through a program */
  209.                     cp = advance(cp);
  210.                     if ((pp=aliasparse(cp,pbuf)) == NULL)
  211.                         goto oops;
  212.                     addprgm(pp);
  213.                     break;
  214.                 default:        /* Simple list */
  215.                     for(;;) {
  216.                         insert(pp);
  217.                         if(!(cp = advance(line)) ||
  218.                            !(pp = aliasparse(cp, pbuf)))
  219.                             break;
  220.                     }
  221.                 }
  222.                 break;
  223.             }
  224.         }
  225.     }
  226. }
  227.  
  228.  
  229.  
  230.  
  231.  
  232. addfile(file)
  233.     char *file;
  234. {
  235.     register char *cp, *pp;
  236.     char line[128], pbuf[64];
  237.     FILE *f;
  238. #ifdef DEBUG
  239.     if (Debug >3) printf("addfile(%s)\n", file);          
  240. #endif
  241.     if((f = fopen(file, "r")) == NULL) {
  242.         fprintf(stderr, "Can't open ");
  243.         perror(file);
  244.         exit(EX_OSFILE);
  245.     }
  246.     while(fgets(line, sizeof line, f)) {
  247.         cp = line;
  248.         while(pp = aliasparse(cp, pbuf)) {
  249.             insert(pp);
  250.             cp = advance(cp);
  251.         }
  252.     }
  253.     fclose(f);
  254. }
  255.  
  256. addgroup(group)
  257.     char *group;
  258. {
  259.     register char *cp, *pp;
  260.     int found = 0;
  261.     char line[128], pbuf[64], *rindex();
  262.     FILE *f;
  263. #ifdef DEBUG
  264.     if(Debug>3)printf("addgroup(%s)\n", group);        
  265. #endif
  266.     if((f = fopen(GROUP, "r")) == NULL) {
  267.         fprintf(stderr, "Can't open ");
  268.         perror(GROUP);
  269.         exit(EX_OSFILE);
  270.     }
  271.     while(fgets(line, sizeof line, f)) {
  272.         pp = aliasparse(line, pbuf);
  273.         if(strcmp(pp, group) == 0) {
  274.             cp = rindex(line, ':');
  275.             while(pp = aliasparse(cp, pbuf)) {
  276.                 insert(pp);
  277.                 cp = advance(cp);
  278.             }
  279.             found++;
  280.         }
  281.     }
  282.     if(!found) {
  283.         fprintf(stderr, "Group: %s non-existent\n", group);
  284.         exit(EX_DATAERR);
  285.     }
  286.     fclose(f);
  287. }
  288.  
  289. addprgm(name)
  290. char *name;
  291. {
  292.     register struct mailname *mp;
  293.     char * getcpy();
  294.     for(mp = &addrlist; mp->m_next; mp = mp->m_next)
  295.         if(uleq(name, mp->m_next->m_name))
  296.             return;         /* Don't insert existing name! */
  297.     mp->m_next = (struct mailname *) malloc(sizeof *mp->m_next);
  298.     mp = mp->m_next;
  299.     mp->m_next = 0;
  300.     mp->m_name = getcpy(name);
  301.     mp->m_pipe = 1;
  302. }    
  303. remove(mp)              /* Remove NEXT from argument node! */
  304.     register struct mailname *mp;
  305. {
  306.     register struct mailname *rp;
  307.  
  308.     rp = mp->m_next;
  309.     mp->m_next = rp->m_next;
  310.     cndfree(rp->m_name);
  311.     cndfree(rp);
  312. }
  313. insert(name)
  314.     char *name;
  315. {
  316.     register struct mailname *mp;
  317.     char *getcpy();
  318. #ifdef DEBUG
  319.     if(Debug>3)  printf("insert(%s)\n", name);   
  320. #endif
  321.     for(mp = &addrlist; mp->m_next; mp = mp->m_next)
  322.         if(uleq(name, mp->m_next->m_name))
  323.             return;         /* Don't insert existing name! */
  324.     mp->m_next = (struct mailname *) malloc(sizeof *mp->m_next);
  325.     mp = mp->m_next;
  326.     mp->m_next = 0;
  327.     mp->m_pipe=0;
  328.     mp->m_name = getcpy(name);
  329. }
  330.  
  331. aleq(string, aliasent)
  332.     register char *string, *aliasent;
  333. {
  334.     register int c;
  335.  
  336.     while(c = *string++)
  337.         if(*aliasent == '*')
  338.             return 1;
  339.         else if((c|040) != (*aliasent|040))
  340.             return(0);
  341.         else
  342.             aliasent++;
  343.     return(*aliasent == 0 | *aliasent == '*');
  344. }
  345.  
  346. forward()
  347. {
  348.  
  349.     FILE * fp;
  350.     struct passwd * pwd;
  351.     struct mailname *lp;
  352.     char forwardfile[BUFSIZ];
  353.     extern struct passwd * getpwnam ();
  354.  
  355.     for (lp = addrlist.m_next;lp;lp=lp->m_next){
  356.     if (index(lp->m_name,'!')) continue; /* not local */
  357.     if (index(lp->m_name,'@')) continue; /* ditto */
  358.     if (index(lp->m_name,'%')) continue; /* ditto */
  359.     if (index(lp->m_name,'/')) continue; /* filename */
  360.     if ((pwd = getpwnam(lp->m_name)) == NULL) continue;
  361.     sprintf(forwardfile,"%s/.forward",pwd->pw_dir);
  362.     if((fp=fopen(forwardfile,"r")) != NULL){
  363.             strcpy(lp->m_name,"");
  364.             addfile(forwardfile);
  365.         fclose(fp);
  366.         }
  367.     }
  368. }
  369. #endif
  370.  
  371.  
  372. /* add names to the address list */
  373.  
  374.  
  375. add(name, list)
  376. char *name;
  377. struct mailname *list;
  378. {
  379.     register struct mailname *mp;
  380.     char *getcpy();
  381.  
  382.     for(mp = list; mp->m_next; mp = mp->m_next)
  383.         ;
  384.     mp->m_next = (struct mailname *) malloc(sizeof *mp->m_next);
  385.     mp = mp->m_next;
  386.     mp->m_next = 0;
  387.     mp->m_pipe = 0;
  388.     mp->m_name = getcpy(name);
  389. }
  390.  
  391. char *getcpy(str)
  392. {
  393.     register char *cp;
  394.  
  395.     cp = (char *) malloc(strlen(str) + 1);
  396.     strcpy(cp, str);
  397.     return(cp);
  398. }
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406. !STUFFY!FUNK!
  407. echo Extracting uux.c
  408. cat >uux.c <<'!STUFFY!FUNK!'
  409. /*
  410.  * a "fake" uux to replace the realone to allow uumail to intercept
  411.  * mail at sites that mail not be able to recompile their mailers
  412.  * Called via "uux - system!rmail user" from, normally, /bin/mail.
  413. ***************************************************************************
  414. This work in its current form is Copyright 1986 Stan Barber
  415. with the exception of opath, gethostname and the original getpath which
  416. as far as I know are in the Public Domain. This software may be distributed
  417. freely as long as no profit is made from such distribution and this notice
  418. is reproducted in whole.
  419. ***************************************************************************
  420. This software is provided on an "as is" basis with no guarantee of 
  421. usefulness or correctness of operation for any purpose, intended or
  422. otherwise. The author is in no way liable for this software's performance
  423. or any damage it may cause to any data of any kind anywhere.
  424. ***************************************************************************
  425.  * $Log:    uux.c,v $
  426.  * Revision 4.0  86/11/17  16:02:42  sob
  427.  * Release version 4.0 -- uumail
  428.  * 
  429.  * Revision 3.0  86/03/14  12:05:06  sob
  430.  * Release of 3/15/86 --- 3rd Release
  431.  * 
  432.  * Revision 1.6  86/03/14  11:57:51  sob
  433.  * 
  434.  * 
  435.  * Revision 1.5  86/03/11  11:29:17  sob
  436.  * Added Copyright Notice
  437.  * 
  438.  * Revision 1.4  86/02/17  18:07:48  sob
  439.  * Moved REALUUX and UUMAIL definitions to the makefile
  440.  * 
  441.  * Revision 1.3  86/02/17  17:58:15  sob
  442.  * Small syntax problem
  443.  * 
  444.  * Revision 1.2  86/02/17  17:55:45  sob
  445.  * Corrected to remove parens from destbuf.
  446.  * 
  447.  * Revision 1.1  86/02/17  17:45:10  sob
  448.  * Initial revision
  449.  * 
  450.  *
  451.  */
  452.  
  453. #define _DEFINE
  454.  
  455. #include "uuconf.h"
  456. static char rcsid[] = "$Header: uux.c,v 4.0 86/11/17 16:02:42 sob Exp $";
  457.  
  458. extern FILE *popen();
  459. extern char *index();
  460. extern struct passwd *getpwnam();
  461.  
  462. char sysbuf[BUFSIZ];
  463. char destbuf[BUFSIZ];
  464.  
  465. main(argc, argv)
  466. int argc;
  467. char **argv;
  468. {
  469.     char *command;
  470.     struct passwd *pwd;
  471.     char cmd[BUFSIZ];
  472.     char *system = sysbuf;
  473.     char **psystem = &system;
  474.     FILE *netf;
  475.     int c;
  476.  
  477.     if ((argc != 4) || strcmp("-", argv[1]))  /* look for form 
  478.                             of uux command */
  479.         realuux(argv);    
  480.  
  481.     strcpy(sysbuf, argv[2]);    /* save destination system */
  482.  
  483.     if ((command = index(sysbuf, '!')) == NULL)
  484.         realuux(argv);     
  485.     *command++ = 0;
  486.     if (strcmp("rmail", command))    /* look for rmail in command */
  487.         realuux(argv);        
  488.  
  489.     mystrcpy(destbuf, argv[3]);      /*save destination path */
  490.                     /* but get rid of parens */
  491.     /* become UUCP */
  492.     setpwent();
  493.     pwd = getpwnam("uucp");
  494.     if (pwd == NULL) {
  495.         fprintf(stderr, "Can't suid to \"uucp\" in %s\n", REALUUX);
  496.         exit(1);    /* sigh */
  497.     }
  498.     endpwent();
  499.     setuid(pwd->pw_uid);
  500.  
  501.     /* send the mail to uumail */
  502.     sprintf(cmd, "uumail %s!%s", UUMAIL, sysbuf,destbuf);
  503.     if ((netf = popen(cmd, "w")) == NULL)
  504.         exit(EX_TEMPFAIL);    /* failure */
  505.  
  506.     /* send the actual mail */
  507.     while ((c = getchar()) != EOF)
  508.         putc(c, netf);
  509.     fflush(netf);
  510.     exit (pclose(netf)?1:0);    /* causes mail to do the right thing */
  511. }
  512.  
  513. realuux(argv)
  514. char **argv;
  515. {
  516.     int pid, sts;
  517.  
  518.     /* running suid root.  become us again */
  519.     setuid(getuid());
  520.  
  521.         if ((pid = fork()) == -1) {
  522.                 fprintf(stderr, "uux: can't create proc for %s\n",REALUUX);
  523.                 exit(1);
  524.         }
  525.         if (pid) {
  526.                 while (wait(&sts) != pid) {
  527.                         if (wait(&sts)==-1)
  528.                                 exit(1);
  529.                 }
  530.                 exit(sts?1:0);
  531.         }
  532.     execv(REALUUX, argv);
  533.     fprintf(stderr, "uux: can't exec %s\n",REALUUX);
  534.     exit (1);
  535. }
  536.  
  537. /* remove parens for t and put what's left in s */
  538. mystrcpy(s,t)
  539. char * s, *t;
  540. {
  541.     int x;
  542.     while (x = *t++){
  543.         if ((x == '(') || (x == ')'))
  544.             continue;
  545.         *s++ = x;
  546.     }
  547.     
  548.     *s = x;
  549. }
  550. !STUFFY!FUNK!
  551. echo Extracting rmail.c
  552. cat >rmail.c <<'!STUFFY!FUNK!'
  553. #ifndef lint
  554. static char rcsid[]="$Header: rmail.c,v 4.0 86/11/17 16:02:32 sob Exp $";
  555.  
  556. #endif
  557.  
  558. /*
  559. **  RMAIL -- UUCP mail server.
  560. **
  561. **    This program reads the >From ... remote from ... lines that
  562. **    UUCP is so fond of and turns them into something reasonable.
  563. **    It calls uumail giving it a -f option built from these
  564. **    lines.
  565. ***************************************************************************
  566. This work in its current form is Copyright 1986 Stan Barber
  567. with the exception of opath, gethostname and the original getpath which
  568. as far as I know are in the Public Domain. This software may be distributed
  569. freely as long as no profit is made from such distribution and this notice
  570. is reproducted in whole.
  571. ***************************************************************************
  572. This software is provided on an "as is" basis with no guarantee of 
  573. usefulness or correctness of operation for any purpose, intended or
  574. otherwise. The author is in no way liable for this software's performance
  575. or any damage it may cause to any data of any kind anywhere.
  576. ***************************************************************************
  577. */
  578.  
  579. #define _DEFINE
  580.  
  581. #include "uuconf.h"
  582. extern FILE *popen();
  583. extern char *index();
  584. extern char *rindex();
  585.  
  586. main(argc, argv)
  587.     char **argv;
  588. {
  589.     FILE *out;    /* output to mail handler */
  590.     char lbuf[512];    /* one line of the message */
  591.     char from[512];    /* accumulated path of sender */
  592.     char ufrom[64];    /* user on remote system */
  593.     char sys[64];    /* a system in path */
  594.     char junk[512];    /* scratchpad */
  595.     char cmd[2000];
  596.     register char *cp;
  597.     register char *uf;    /* ptr into ufrom */
  598.     int i;
  599.  
  600. # ifdef DEBUG
  601.     if (argc > 1 && strcmp(argv[1], "-T") == 0)
  602.     {
  603.         Debug = TRUE;
  604.         argc--;
  605.         argv++;
  606.     }
  607. # endif DEBUG
  608.  
  609.     if (argc < 2)
  610.     {
  611.         fprintf(stderr, "Usage: rmail user ...\n");
  612.         exit(EX_USAGE);
  613.     }
  614.  
  615.     (void) strcpy(from, "");
  616.     (void) strcpy(ufrom, "/dev/null");
  617.     uf = NULL;
  618.  
  619.     for (;;)
  620.     {
  621.         (void) fgets(lbuf, sizeof lbuf, stdin);
  622.         if (strncmp(lbuf, "From ", 5) != 0 && strncmp(lbuf, ">From ", 6) != 0)
  623.             break;
  624.         (void) sscanf(lbuf, "%s %s", junk, ufrom);
  625.         cp = lbuf;
  626.         uf = ufrom;
  627.         for (;;)
  628.         {
  629.             cp = index(cp+1, 'r');
  630.             if (cp == NULL)
  631.             {
  632.                 register char *p = rindex(uf, '!');
  633.  
  634.                 if (p != NULL)
  635.                 {
  636.                     *p = '\0';
  637.                     if (uf != NULL) 
  638.                         (void) strcpy(sys, uf);
  639.                     else
  640.                         gethostname(sys,32);
  641.                     uf = p + 1;
  642.                     break;
  643.                 }
  644.                 cp = "remote from somewhere";
  645.             }
  646. #ifdef DEBUG
  647.             if (Debug)
  648.                 printf("cp='%s'\n", cp);
  649. #endif
  650.             if (strncmp(cp, "remote from ", 12)==0)
  651.                 break;
  652.         }
  653.         if (cp != NULL)
  654.             (void) sscanf(cp, "remote from %s", sys);
  655.         (void) strcat(from, sys);
  656.         (void) strcat(from, "!");
  657. #ifdef DEBUG
  658.         if (Debug)
  659.             printf("ufrom='%s', sys='%s', from now '%s'\n", uf, sys, from);
  660. #endif
  661.     }
  662.     if (uf != NULL)
  663.         (void) strcat(from, uf);
  664.  
  665. /*    (void) sprintf(cmd, "exec %s -oMrUUCP -em -f%s", MAILER, from);*/
  666.     if (from[0] == '\0')
  667.         (void) sprintf(cmd, "exec %s", MAILER);
  668.     else
  669.         (void) sprintf(cmd, "exec %s -f%s", MAILER, from);
  670.     while (*++argv != NULL)
  671.     {
  672.         (void) strcat(cmd, " '");
  673.         if (**argv == '(')
  674.             (void) strncat(cmd, *argv + 1, strlen(*argv) - 2);
  675.         else
  676.             (void) strcat(cmd, *argv);
  677.         (void) strcat(cmd, "'");
  678.     }
  679. #ifdef DEBUG
  680.     if (Debug)
  681.         printf("cmd='%s'\n", cmd);
  682. #endif
  683.     out = popen(cmd, "w");
  684.     fputs(lbuf, out);
  685.     while (fgets(lbuf, sizeof lbuf, stdin))
  686.         fputs(lbuf, out);
  687.     i = pclose(out);
  688.     if ((i & 0377) != 0)
  689.     {
  690.         fprintf(stderr, "pclose: status 0%o\n", i);
  691.         exit(EX_OSERR);
  692.     }
  693.  
  694.     exit((i >> 8) & 0377);
  695. }
  696. !STUFFY!FUNK!
  697. echo Extracting uumail.8.SH
  698. cat >uumail.8.SH <<'!STUFFY!FUNK!'
  699. case $CONFIG in
  700.    '') . config.sh ;;
  701. esac
  702. $echo "Extracting uumail.8 (with variable substitutions)"
  703. cat > uumail.8 <<!GROK!THIS!
  704. .RL "Baylor College of Medicine"
  705. .TH UUMAIL 8
  706. .fi
  707. .ad b
  708. .SH NAME
  709. uumail \- rewrite address & route mail using uucpmap database 
  710. .br
  711. uupath \- print the uucp path to a host
  712. .SH SYNOPSIS
  713. .B uumail [ \fIoptions\fR ] \fIaddress\fR
  714. .br
  715. .B uupath \fIhostname\fR
  716. .SH DESCRIPTION
  717. .B Uumail
  718. is designed to be used as a mail delivery program to correctly
  719. route mail over uucp connections.
  720. .SS Standard Options
  721. .IP "-f\fIaddress\fR" 16
  722. The
  723. .I -f
  724. option sets the address of the sender of the mail. If this flag 
  725. is not used, the sender will be established by usings environmental variables
  726. (like 
  727. .B LOGNAME
  728. and
  729. .B USER
  730. ) or using getlogin(3).
  731. .IP "-om" 16
  732. The
  733. .I -om
  734. option causes the mail to also be sent to the sender of the message.
  735. .IP "-oc" 16
  736. The 
  737. .I  -oc
  738. option causes
  739. .B uucico 
  740. to be started immediately after queuing the mail.
  741. The default just queues the mail.
  742. .IP "-N" 16
  743. The -N option stops the use of
  744. .B uuname
  745. to determine neighboring hosts. Only the information in the database
  746. will be used for routing information.
  747. .IP "-h" 16
  748. The -h option causes no From_ line to be added to the beginning of file.
  749. This is useful when uumail is being used as a mailer for sendmail(8).
  750. .SS Compile-time Configurable Options
  751. !GROK!THIS!
  752. if test X$debug = Xdefine
  753. then
  754. cat >>uumail.8 <<!ADD!THIS!
  755. .IP "-d[1-6]" 16
  756. The
  757. .I -d 
  758. option turns on the limited debugging facility built into the
  759. mailer.  In debug mode, the mailer does not actually mail anything, but
  760. tells you what it would do if it did do it. The level of debugging can
  761. be set by following the 
  762. .I -d
  763. flag with a number between 1 and 6.
  764. !ADD!THIS!
  765. fi
  766. cat >>uumail.8 <<!EVEN!MORE!
  767. .IP "-g[A-Z]" 16
  768. If your 
  769. .B uux(1)
  770. supports grading of transactions, the
  771. .I -g 
  772. option can be used to set the
  773. grade of this mail. A grade of \fIC\fR is used by default.
  774. !EVEN!MORE!
  775. if test X$noalias = X
  776. then
  777. cat >>uumail.8 <<!ADD!ALIAS!
  778. .IP "-n" 16
  779. The
  780. .I -n
  781. option will prohibit the use of infomation provided by the system alias
  782. file. Information in users'
  783. .I .forward
  784. files will still be utilized if present.
  785. !ADD!ALIAS!
  786. fi
  787. cat >>uumail.8<<!MORE!STUFF!
  788.  
  789. .SS Arguments
  790. .IP \fIhost!user\fR 16
  791. where host is a system node name on the network and user is the login
  792. name of the addressee.
  793. .IP \fIuser@host.domain\fR
  794. same as above with the addition of a domain specifier like
  795. .B .ARPA, .GOV, .COM, .EDU
  796. etc.
  797. .SH FILES
  798. !MORE!STUFF!
  799. if test Xnoalias = X
  800. then
  801. cat >> uumail.8<<!ADD!MORE!ALIAS!
  802. .IP "$aliases" 20'
  803. System-wide alias file
  804. .IP ".forward" 20
  805. Individual user's mail forwarding file
  806. !ADD!MORE!ALIAS!
  807. fi
  808. cat >>uumail.8 <<!OK!HERE!
  809. .IP "$database{.pag|.dir}" 20
  810. Path file produced by pathalias.
  811. !OK!HERE!
  812. if test X$log = Xdefine
  813. then
  814. cat >>uumail.8<<!ADD!MORE!LOG!
  815. .IP "$logfile" 20
  816. Log of uumail activity.
  817. !ADD!MORE!LOG!
  818. fi
  819. cat >>uumail.8 <<!THE!END!
  820. .SH "SEE ALSO"
  821. pathalias(1), address(1), mh(1), sendmail(8), uux(1), uuname(1)
  822. .br
  823. .B RFC 822 "Standard for the Format of ARPA Internet Text Messages"
  824. .br
  825. .B RFC 976 "UUCP Mail Interchange Format Standard"
  826.  
  827. .SH AUTHORS
  828. .br
  829. Stan Barber, Baylor College of Medicine
  830. .br
  831. Getpath routine by John Donnelly, University of Illinois
  832. .br
  833. Gethostname routine by Peter Honeyman, Princeton
  834. .br
  835. Resolve routine written by the UUCP project
  836. .br
  837. Aliasing scheme borrowed from the MH mail handling system
  838. !THE!END!
  839.  
  840. !STUFFY!FUNK!
  841. echo Extracting address.1.SH
  842. cat >address.1.SH <<'!STUFFY!FUNK!'
  843. case $CONFIG in
  844.    '') . config.sh ;;
  845. esac
  846. $echo "Extracting address.1 (with variable substitutions)"
  847. $rm -f address.1
  848. cat >address.1<<!GROK!THIS!
  849. .RL "Baylor College of Medicine"
  850. .TH ADDRESS 1
  851. .SH NAME
  852. address - display the path generated by \fBuumail\fR for an
  853. RFC822/RFC976-format address.
  854. .SH SYNOPSIS
  855. address rfc-address [ ... ]
  856. .SH DESCRIPTION
  857. This program allows you to check the UUCP mail routing path that will
  858. be generated by the UUCP mailer \fBuumail\fR if you specify an
  859. RFC822/RFC976-format address \fBrfc-address\fR in the ``To:'' field of the mail header.
  860. For each RFC-style address on the command line, \fBaddress\fR echoes the
  861. address to the standard output, followed by a colon, followed by
  862. the UUCP address that will be used to send the message to that address.
  863.  
  864. .SH "ADDRESS FORMAT"
  865. Briefly, the RFC822/RFC976-format address is of the form
  866. .nf
  867. .sp 1
  868.     <localaddress>@<hostname>.<domain>
  869. .sp 1
  870. .fi
  871. where <hostname> is the name of the system you are sending the message
  872. to, <domain> is a modifier for <hostname> identifying the network in
  873. which the address is to be interpreted (EDU, COM, GOV, ORG, NET, etc.);
  874. and <localaddress> is an address string to be interpreted on the host
  875. machine.
  876.  
  877. On our system, the presently
  878. valid <domains>s are EDU, COM, GOV, ORG, NET, UUCP, and ARPA.
  879. Omitting
  880. the <domain> causes the network to default to UUCP.  The <hostname>
  881. should be the name of a remote machine to which the message is
  882. directed; see \fI$database\fR for a list of all
  883. known UUCP hostnames.  It is \fInot\fR necessary to specify a UUCP pathname
  884. when using this format; the pathname is automatically determined for you
  885. and substituted into the address before mailing.  The selected pathname
  886. is determined using the \fBpathalias\fR database, and is supposed
  887. to be optimal, taking into consideration information provided by
  888. each site about how often they send mail out, etc.
  889.  
  890. .SH EXAMPLES
  891. .HP 5
  892. joe
  893. .br
  894. The message is sent to the user ``joe'' on the local system.
  895. .HP 5
  896. joe@ucbvax
  897. .br
  898. The message is sent to joe on the UUCP system named ``ucbvax''; this
  899. address is automatically translated to a proper (and ostensibly
  900. optimal) UUCP path.
  901. .HP 5
  902. joe@ucbvax.UUCP
  903. .br
  904. Same as joe@ucbvax
  905. .HP 5
  906. joe@ucbvax.ARPA
  907. .br
  908. The message is addressed to joe at ucbvax, using the ARPA network.
  909. The message will be routed to the ARPAnet via a UUCP-ARPAnet gateway.
  910. .HP 5
  911. ucbvax!multics.mit.edu!joe
  912. .br
  913. The message is sent to ucbvax, who then uses the address
  914. joe@multics.mit.edu to send the message on to multics.mit.edu via the
  915. ARPAnet.  Since ucbvax is on the arpanet, this address will work correctly
  916. (as long as there is someone named joe on the MIT multics machine).
  917. .HP 5
  918. ucbvax!multics.mit.edu!vanderbilt.mailnet!joe
  919. .br
  920. The message is sent via UUCP to ucbvax, who then sends the message
  921. to multics.mit.edu via the arpanet; multics.mit.edu then sends the message
  922. to joe@vanderbilt via MAILNET.  Since the above machines each have access
  923. to the networks named in the address, this address will work correctly.
  924. .SH FILES
  925. $database - Pathalias database
  926. .SH "SEE ALSO"
  927. uupath(1), uumail(8), pathalias(1)
  928. .br
  929. .B RFC 822 "Standard for the Format of ARPA Internet Text Messages"
  930. .br
  931. .B RFC 976 "UUCP Mail Interchange Format Standard"
  932. .SH AUTHOR
  933. Stan Barber, Baylor College of Medicine
  934. !GROK!THIS!
  935.  
  936. !STUFFY!FUNK!
  937. echo Extracting deadletter.c
  938. cat >deadletter.c <<'!STUFFY!FUNK!'
  939. #ifndef lint
  940. static char rcsid[] = "$Header: deadletter.c,v 4.0 86/11/17 16:02:11 sob Exp $";
  941. #endif
  942. /**************************************************************************
  943. This work in its current form is Copyright 1986 Stan Barber
  944. with the exception of resolve, gethostname and the original getpath which
  945. as far as I know are in the Public Domain. This software may be distributed
  946. freely as long as no profit is made from such distribution and this notice
  947. is reproducted in whole.
  948. ***************************************************************************
  949. This software is provided on an "as is" basis with no guarantee of 
  950. usefulness or correctness of operation for any purpose, intended or
  951. otherwise. The author is in no way liable for this software's performance
  952. or any damage it may cause to any data of any kind anywhere.
  953. ***************************************************************************/
  954. /* attempt to return dead letter */
  955. /* $Log:    deadletter.c,v $
  956.  * Revision 4.0  86/11/17  16:02:11  sob
  957.  * Release version 4.0 -- uumail
  958.  * 
  959.  * Revision 1.2  86/10/21  15:32:50  sob
  960.  * Added RETURNMAIL
  961.  * 
  962.  * Revision 1.1  86/09/04  17:53:44  sob
  963.  * Initial revision
  964.  * 
  965.  *
  966.  */
  967. #include "uuconf.h"
  968. EXTERN char progname[];
  969. char letter[] = "/usr/tmp/.rlXXXXXX";
  970.  
  971. deadletter(retlet, here,reason,host)
  972. FILE *retlet;
  973. char * host;
  974. int here,reason;
  975. {
  976.  
  977.     int i;
  978.     long iop;
  979.     struct tm *bp, *localtime();
  980.     FILE * letf;
  981.     char * date, *asctime();
  982.  
  983.     if(getlogin() != NULL) syserr("Letter failed....returned to sender\n");
  984. #ifdef RETURNMAIL
  985.     /*
  986.      * make a place to create the return letter
  987.      */
  988.     mktemp(letter);
  989.     unlink(letter);
  990.     if((letf = fopen(letter, "w")) == NULL){
  991.         fprintf(stderr, "%s : can't open %s for writing\n", progname,letter);
  992.         exit(EX_CANTCREAT);
  993.     }
  994.     /*
  995.      * Format time
  996.      */
  997.     time(&iop);
  998.     bp = localtime(&iop);
  999.     date = asctime(bp);
  1000.     /* build the return header */
  1001.     fprintf(letf,"From %s!%s %.16s %.4s remote from %s\n",
  1002.         Myname,MAILERDAEMON, date, date+20, Myname);
  1003.     fprintf(letf,"From: %s@%s (UUMAIL ROUTER)\nTo: %s\n",MAILERDAEMON,Myname,from);
  1004.     fprintf(letf,"Subject: Failed Mail\nMessage-Id: <%d.%d.%s@%s>\n\n",
  1005.         getpid(),time(0),MAILERDAEMON,Myname);
  1006. #else
  1007.     letf = stderr;
  1008. #endif
  1009.  
  1010.      fprintf(letf,"Your mail failed to reach its destination because:\n");
  1011.     switch(reason){
  1012.         case EX_NOHOST:
  1013.             fprintf(letf,"The path (%s) cannot be resolved.\n",host);
  1014.             break;
  1015.         case EX_OSERR:
  1016.             fprintf(letf,"An Operating System error occurred while processing your\nmail. Please resend.\n");
  1017.             break;
  1018.         default:
  1019.             fprintf(letf,"An unknown error (code = %d) occured.\n",reason);
  1020.             break;
  1021.         }
  1022. #ifdef RETURNMAIL
  1023.         fprintf(letf,"Your returned mail follows:\n");
  1024.         fprintf(letf,"-------------------------------------------\n");
  1025.         while (fgets(lbuf, sizeof lbuf, retlet))
  1026.             {
  1027.                 fprintf(letf,"\t");
  1028.                 fputs(lbuf, letf);
  1029.             }
  1030.  
  1031.  
  1032.                  /* return the mail */
  1033.  
  1034.         fclose(letf);
  1035.         sprintf(lbuf,"%s %s < %s",MAILER,from,letter);
  1036. #ifdef DEBUG
  1037.         if (Debug)
  1038.             fprintf(stderr,"Command is %s\n",lbuf);
  1039.         else
  1040.         {
  1041. #endif
  1042.             system(lbuf);
  1043.             unlink(letter);
  1044. #ifdef DEBUG
  1045.         }
  1046. #endif
  1047. #endif
  1048. }
  1049.  
  1050. !STUFFY!FUNK!
  1051. echo Extracting Makefile.SH
  1052. cat >Makefile.SH <<'!STUFFY!FUNK!'
  1053. case $CONFIG in
  1054.     '') . config.sh ;;
  1055. esac
  1056. echo "Extracting Makefile (with variable substitutions)"
  1057. cat >Makefile <<!GROK!THIS!
  1058. ####################################################################
  1059. # makefile for uumail & uupath
  1060. # program to integrate with pathalias created uucpmap databases
  1061. # programs originally developed by Jeff Donnelly
  1062. # updated to use pathalias database by Stan Barber
  1063. # $Header: Makefile.SH,v 1.2 86/12/15 13:27:53 sob Exp $
  1064. #***************************************************************************
  1065. # This work in its current form is Copyright 1986 Stan Barber
  1066. # with the exception of resolve, gethostname and the original getpath which
  1067. # as far as I know are in the Public Domain. This software may be distributed
  1068. # freely as long as no profit is made from such distribution and this notice
  1069. # is reproducted in whole.
  1070. # ***************************************************************************
  1071. # 
  1072. ###############################################################
  1073. .SUFFIXES: .c,v .h,v
  1074.  
  1075. CC= $cc
  1076.  
  1077. CP= $cp
  1078.  
  1079. RM= $rm
  1080.  
  1081. LIBS= $libdbm $ndirlib
  1082.  
  1083. BINDIR=$bindir
  1084.  
  1085. UUCPDIR=$lib
  1086.  
  1087. MANDIR=$mansrc
  1088.  
  1089. UUMAIL=$(UUCPDIR)/uumail
  1090.  
  1091. REALUUX=/usr/bin/uux
  1092.  
  1093. CFLAGS=-O -DUUMAIL='"$(UUMAIL)"' -DREALUUX='"$(REALUUX)"'
  1094. !GROK!THIS!
  1095. cat >> Makefile <<'!NO!SUBS!'
  1096. SHELL=/bin/sh
  1097.  
  1098. .c,v.c:
  1099.     co -q $*.c
  1100.  
  1101. .h,v.h:
  1102.     co -q $*.h
  1103.  
  1104. all: uumail rmail address uux
  1105.  
  1106. cobj=getpath.o resolve.o
  1107.  
  1108. uobj= uumail.o gethostnam.o alias.o deadletter.o $(cobj)
  1109.  
  1110. robj= rmail.o gethostnam.o
  1111.  
  1112. aobj= address.o $(cobj)
  1113.  
  1114. obj= $(aobj) $(uobj) $(robj)
  1115.  
  1116. uumail: $(uobj)
  1117.     $(CC) $(CFLAGS) $(uobj) -o uumail $(LIBS)
  1118.  
  1119. address:$(aobj)
  1120.     $(CC) $(CFLAGS) $(aobj) -o address $(LIBS)
  1121.  
  1122. rmail: $(robj)
  1123.     $(CC) $(CFLAGS) $(robj) -o rmail $(LIBS)
  1124.  
  1125. install: uumail address palias
  1126.     $(CP) address $(BINDIR)
  1127.     $(CP) uumail $(UUCPDIR)
  1128.     $(CP) uumail.8 $(MANDIR)/man8
  1129.     $(CP) address.1 $(MANDIR)/man1
  1130.     ln $(MANDIR)/man8/uumail.8 $(MANDIR)/man1/uupath.1
  1131.     if [ ! -r $(UUCPDIR)/palias ]; then cp palias $(UUCPDIR); fi
  1132.     @echo "To install rmail in place of the current rmail, type"
  1133.     @echo "make mailer"
  1134.     @echo "To intercept uux commands, you need to be sure"
  1135.     @echo "that you correctly specified REALUUX in makefile"
  1136.     @echo "Then type make fakeuux"
  1137.     ln $(UUCPDIR)/uumail $(BINDIR)/uupath
  1138.  
  1139. mailer: rmail
  1140.     make install
  1141.     $(RM) -rf /bin/rmail
  1142.     $(CP) rmail /bin/rmail
  1143.     
  1144. fakeuux: uux
  1145.     make install
  1146.     $(CP) /usr/bin/uux $(REALUUX)
  1147.     $(CP) uux /usr/bin/uux
  1148.     chmod 6755 /usr/bin/uux
  1149.  
  1150. lint:
  1151.     lint $(CFLAGS) getpath.c uumail.c gethostnam.c resolve.c alias.c
  1152.  
  1153. clean: 
  1154.     $(RM) -f *.o uumail address rmail uux
  1155.  
  1156. doc: uumail.8 address.1
  1157.     nroff -man uumail.8 >uumail.cat; nroff -man address.1 >address.cat
  1158.  
  1159.  
  1160. # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  1161. $(obj):
  1162.     @ echo "You haven't done a "'"make depend" yet!'; exit 1
  1163. !NO!SUBS!
  1164. $eunicefix Makefile
  1165. !STUFFY!FUNK!
  1166. echo Extracting Alias.Design
  1167. cat >Alias.Design <<'!STUFFY!FUNK!'
  1168. This is the format for the Alias file used in uumail. It is derived from
  1169. the Rand Mail Handler system (MH).
  1170. Stan Barber 05/13/86
  1171. ***************************************************************************
  1172. This work in its current form is Copyright 1986 Stan Barber
  1173. with the exception of resolve, gethostname and the original getpath which
  1174. as far as I know are in the Public Domain. This software may be distributed
  1175. freely as long as no profit is made from such distribution and this notice
  1176. is reproducted in whole.
  1177. ***************************************************************************
  1178.  
  1179. The Alias file for mail delivery is the file
  1180.  
  1181.     /usr/lib/uucp/Aliases
  1182.  
  1183. Each line of the alias file has the format:
  1184.  
  1185. match : alias
  1186.  
  1187. Where:
  1188.  
  1189.     alias       :=  simple-list
  1190.             |   "<" alias-file
  1191.             |   "=" UNIX-group
  1192.             |   "|" program-name
  1193.  
  1194.     simple-list :=  simple-name
  1195.             |   simple-list, simple-name
  1196.  
  1197. Alias-file and program-name are fully qualified UNIX file names.
  1198. UNIX-group is a group name from /etc/group.  A simple-name is a 
  1199. local user login name, including only alphanumerics, `.' and `-'. 
  1200. Throughout this file case is ignored, except for alias-file and
  1201. program-name.
  1202.  
  1203. In match, a trailing * on a name will match anything. (See example
  1204. below.)
  1205.  
  1206. The procedure for mail aliasing is:
  1207.  
  1208. 1) Build a list of all addresses from the message to be
  1209.    delivered, eliminating duplicates.
  1210.  
  1211. 2) For each line in the alias file, compare "match" against all
  1212.    of the existing addresses.  If a match, remove the matched
  1213.    name from the address list, and add each new alias name to the
  1214.    address list if it is not already on the list.
  1215.  
  1216. 3) If output from uumail is to be sent to some other program, the pipe
  1217.    ("|") alias will cause output to be directly sent to that program instead
  1218.    of via mail.
  1219.  
  1220. Since the alias file is read line by line, forward references
  1221. work, but backward references are not recognized, thus, there is
  1222. no recursion.
  1223.  
  1224. E.g.:
  1225.  
  1226. Borden: bruce
  1227. Bruce: bsb
  1228. Wharman: mike
  1229. ASRL: bsb, mike, obrien, giarla
  1230. UNIX-committee: < /usr/people/unix-committee
  1231. System: = sys
  1232. rnews: | /usr/lib/news/recnews
  1233.    ...
  1234.  
  1235. In the "unix-committee" example, the file "/usr/people/unix-
  1236. committee" contains one simple-name, or a list of comma separated
  1237. simple-names.  A new-line will be treated as a blank in this
  1238. file, s.a.
  1239.  
  1240.     foo, fie,
  1241.     fum, fiddle
  1242.  
  1243. In the "system" case, the names from the group "sys" will be used
  1244. as the expanded name list.
  1245.  
  1246. Additional note: If you need to use one of the "special" characters
  1247. in an address (e.g. %@\|) then you can escape it with a blackslash
  1248. (like you would do in csh).
  1249. [This modification provided by tp@ndm20.UUCP.]
  1250.  
  1251. Originally by
  1252. Bruce Borden    October 1979
  1253. !STUFFY!FUNK!
  1254. echo Extracting makedepend.SH
  1255. cat >makedepend.SH <<'!STUFFY!FUNK!'
  1256. case $CONFIG in
  1257.     '') . config.sh ;;
  1258. esac
  1259. echo "Extracting makedepend (with variable substitutions)"
  1260. $spitshell >makedepend <<!GROK!THIS!
  1261. $startsh
  1262. # $Header: makedepend.SH,v 4.3.1.2 85/05/13 15:53:42 lwall Exp $
  1263. #
  1264. # $Log:    makedepend.SH,v $
  1265. # Revision 4.3.1.2  85/05/13  15:53:42  lwall
  1266. # Made cpp look in /usr/local/include too.
  1267. # 
  1268. # Revision 4.3.1.1  85/05/10  11:35:10  lwall
  1269. # Branch for patches.
  1270. # 
  1271. # Revision 4.3  85/05/01  11:42:26  lwall
  1272. # Baseline for release with 4.3bsd.
  1273. # 
  1274.  
  1275. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  1276.  
  1277. $cat /dev/null >.deptmp
  1278. $rm -f X*.c
  1279. for file in *.c; do
  1280.     filebase=\`basename \$file .c\`
  1281.     $echo "Finding dependencies for \$filebase.o."
  1282.     $sed -n <\$file >X\$file \\
  1283.     -e "/^\${filebase}_init(/q" \\
  1284.     -e '/^#/{' \\
  1285.     -e 's|/\*.*$||' \\
  1286.     -e p \\
  1287.     -e '}'
  1288.     $cpp -I/usr/local/include X\$file | $sed  \\
  1289.     -e '/^# *[0-9]/!d' \\
  1290.     -e 's/^.*"\(.*\)".*\$/'\$filebase'.o: \1/' \\
  1291.     -e 's|: \./|: |' \\
  1292.     -e 's|: X|: |' | \\
  1293.     $uniq | $sort | $uniq >> .deptmp
  1294. done
  1295.  
  1296. for file in *.SH; do
  1297.     $echo \`basename \$file .SH\`: \$file config.sh \; /bin/sh \$file >> .deptmp
  1298. done
  1299.  
  1300. $sed <Makefile >Makefile.new -e '1,/^# AUTOMATICALLY/!d'
  1301.  
  1302. if $test -s .deptmp; then
  1303.     echo "Updating Makefile..."
  1304.     echo "# If this runs make out of memory, delete /usr/include lines." >>Makefile.new
  1305.     $cat .deptmp >>Makefile.new
  1306. else
  1307.     $echo "You don't seem to have a proper C preprocessor.  Using grep instead."
  1308.     $egrep '^#include ' *.c *.h >.deptmp
  1309.     echo "Updating Makefile..."
  1310.     <.deptmp $sed -n 's|c:#include "\(.*\)".*\$\$|o: \1|p' >> Makefile.new
  1311.     <.deptmp $sed -n 's|c:#include <\(.*\)>.*\$\$|o: /usr/include/\1|p' >> Makefile.new
  1312.     <.deptmp $sed -n 's|h:#include "\(.*\)".*\$\$|h: \1|p' >> Makefile.new
  1313.     <.deptmp $sed -n 's|h:#include <\(.*\)>.*\$\$|h: /usr/include/\1|p' >> Makefile.new
  1314. fi
  1315. $mv Makefile Makefile.old
  1316. $mv Makefile.new Makefile
  1317. $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> Makefile
  1318. rm .deptmp X*.c
  1319.  
  1320. !GROK!THIS!
  1321. $eunicefix makedepend
  1322. chmod 755 makedepend
  1323. !STUFFY!FUNK!
  1324. echo Extracting ndir.c
  1325. cat >ndir.c <<'!STUFFY!FUNK!'
  1326. /* $Header: ndir.c,v 4.0 86/11/17 16:02:25 sob Exp $
  1327.  *
  1328.  * $Log:    ndir.c,v $
  1329.  * Revision 4.0  86/11/17  16:02:25  sob
  1330.  * Release version 4.0 -- uumail
  1331.  * 
  1332.  * Revision 1.1  86/10/21  15:00:28  sob
  1333.  * Initial revision
  1334.  * 
  1335.  * 
  1336.  */
  1337.  
  1338. #include "uuconf.h"
  1339. #include "ndir.h"
  1340.  
  1341. #ifdef USENDIR
  1342. /*
  1343.  * support for Berkeley directory reading routine on a V7 file system
  1344.  */
  1345.  
  1346. /*
  1347.  * open a directory.
  1348.  */
  1349. DIR *
  1350. opendir(name)
  1351. char *name;
  1352. {
  1353.     register DIR *dirp;
  1354.     register int fd;
  1355.     char * malloc();
  1356.  
  1357.     if ((fd = open(name, 0)) == -1)
  1358.         return NULL;
  1359.     if ((dirp = (DIR *)malloc(sizeof(DIR))) == NULL) {
  1360.         close (fd);
  1361.         return NULL;
  1362.     }
  1363.     dirp->dd_fd = fd;
  1364.     dirp->dd_loc = 0;
  1365.     return dirp;
  1366. }
  1367.  
  1368. /*
  1369.  * read an old style directory entry and present it as a new one
  1370.  */
  1371. #ifndef pyr
  1372. #define    ODIRSIZ    14
  1373.  
  1374. struct    olddirect {
  1375.     ino_t    od_ino;
  1376.     char    od_name[ODIRSIZ];
  1377. };
  1378. #else    an Pyramid in the ATT universe
  1379. #define    ODIRSIZ    248
  1380.  
  1381. struct    olddirect {
  1382.     long    od_ino;
  1383.     short    od_fill1, od_fill2;
  1384.     char    od_name[ODIRSIZ];
  1385. };
  1386. #endif
  1387.  
  1388. /*
  1389.  * get next entry in a directory.
  1390.  */
  1391. struct direct *
  1392. readdir(dirp)
  1393. register DIR *dirp;
  1394. {
  1395.     register struct olddirect *dp;
  1396.     static struct direct dir;
  1397.  
  1398.     for (;;) {
  1399.         if (dirp->dd_loc == 0) {
  1400.             dirp->dd_size = read(dirp->dd_fd, dirp->dd_buf,
  1401.                 DIRBLKSIZ);
  1402.             if (dirp->dd_size <= 0)
  1403.                 return NULL;
  1404.         }
  1405.         if (dirp->dd_loc >= dirp->dd_size) {
  1406.             dirp->dd_loc = 0;
  1407.             continue;
  1408.         }
  1409.         dp = (struct olddirect *)(dirp->dd_buf + dirp->dd_loc);
  1410.         dirp->dd_loc += sizeof(struct olddirect);
  1411.         if (dp->od_ino == 0)
  1412.             continue;
  1413.         dir.d_ino = dp->od_ino;
  1414.         strncpy(dir.d_name, dp->od_name, ODIRSIZ);
  1415.         dir.d_name[ODIRSIZ] = '\0'; /* insure null termination */
  1416.         dir.d_namlen = strlen(dir.d_name);
  1417.         dir.d_reclen = DIRSIZ(&dir);
  1418.         return (&dir);
  1419.     }
  1420. }
  1421.  
  1422. /*
  1423.  * close a directory.
  1424.  */
  1425. void
  1426. closedir(dirp)
  1427. register DIR *dirp;
  1428. {
  1429.     close(dirp->dd_fd);
  1430.     dirp->dd_fd = -1;
  1431.     dirp->dd_loc = 0;
  1432.     free(dirp);
  1433. }
  1434. #endif USENDIR
  1435. !STUFFY!FUNK!
  1436. echo Extracting address.c
  1437. cat >address.c <<'!STUFFY!FUNK!'
  1438. /*
  1439.  * address - run opath to see what a translated RFC822 address will come
  1440.  * out as.
  1441.  *
  1442.  * By E. Roskos 1/16/85
  1443.  * $Log:    address.c,v $
  1444.  * Revision 4.0  86/11/17  16:01:45  sob
  1445.  * Release version 4.0 -- uumail
  1446.  * 
  1447.  * Revision 3.3  86/10/01  15:48:13  sob
  1448.  * removed references to now-defunct CONFIGFILE
  1449.  * 
  1450.  * Revision 3.2  86/07/11  17:57:29  sob
  1451.  * Checkpoint in adaptation for resolve
  1452.  * 
  1453.  * Revision 3.1  86/06/10  16:47:56  sob
  1454.  * uswitch per complaint.
  1455.  * Stan
  1456.  * 
  1457.  * Revision 3.0  86/03/14  12:04:19  sob
  1458.  * Release of 3/15/86 --- 3rd Release
  1459.  * 
  1460.  * Revision 1.4  85/12/26  15:47:45  sob
  1461.  * Added modifications suggested by terry%owl@rand-unix.ARPA
  1462.  * 
  1463.  * Revision 1.3  85/11/24  14:50:01  sob
  1464.  * Added corrections provided by regina!mark
  1465.  * 
  1466.  * Revision 1.2  85/09/16  18:31:53  sob
  1467.  * Added DEBUG flag
  1468.  * 
  1469.  * Revision 1.1  85/09/16  17:50:24  sob
  1470.  * Initial revision
  1471.  * 
  1472.  */
  1473. #define _DEFINE
  1474. #include "uuconf.h"
  1475.  
  1476. static char rcsid[] = "$Header: address.c,v 4.0 86/11/17 16:01:45 sob Exp $";
  1477.  
  1478. EXTERN char *paths;
  1479. char *opath(), *oupath();
  1480. int Debug;
  1481.  
  1482. main(argc,argv)
  1483. int argc;
  1484. char **argv;
  1485. {
  1486. char *p;
  1487. char user[BUFSIZ];
  1488. char domain[BUFSIZ];
  1489. paths = DATABASE;
  1490. handle = ALL;
  1491.     if (argc < 2)
  1492.     {
  1493.         fprintf(stderr,"usage: %s rfcaddress [...]\n",
  1494.             argv[0]);
  1495.         exit(1);
  1496.     }
  1497.  
  1498.     while (--argc)
  1499.     {
  1500.         p = *++argv;
  1501.         if (*p=='-')
  1502.         {
  1503.             switch(*++p)
  1504.             {
  1505.             case 'd': Debug++;
  1506.                       continue;
  1507.             default:  printf("unknown switch: %c\n",*p);
  1508.                   continue;
  1509.             }
  1510.         }
  1511.             resolve(p, user, domain);
  1512.         printf("%s: ",p);
  1513.  
  1514.             if(domain[0] == '\0')
  1515.                     printf("%s\n", user);
  1516.             else if(user[0] == '\0')
  1517.                     printf("%s\n", domain);
  1518.             else
  1519.                     printf("%s!%s\n", user, domain);
  1520.     }
  1521.  
  1522.     exit(0);
  1523. }
  1524. !STUFFY!FUNK!
  1525. echo Extracting SYNOPSIS.txt
  1526. cat >SYNOPSIS.txt <<'!STUFFY!FUNK!'
  1527. I am happy to announe the release of uumail version 4.0, the pathalias
  1528. mailer. uumail is not a user-agent. It is intended to be used as a 
  1529. "back-end" to take the mail from user-agents and correctly route it
  1530. to its destination. Other examples of similiar programs include
  1531. sendmail, delivermail, and MMDF.
  1532.  
  1533. Features of uumail include:
  1534.     o RFC 976 Compliant (UUCP Mail Interface Format Standard)
  1535.     o uses pathalias(1) generated database in either text or dbm(3) format
  1536.     o MH-style aliasing support
  1537.     o sendmail-like .forward processing
  1538.     o can pipe mail output into other programs (e.g. uurec)
  1539.     o can be used under SYSTEM III, SYSTEM V or BSD
  1540.     o rn-like Configuration program for easy installation
  1541.     o returns undeliverable mail
  1542.     o usable as a mailer with sendmail(8)
  1543.     o does not require unix sources to install
  1544.     o dynamically determines uucp neighbors without modification
  1545.               of the pathalias database
  1546.         o functions as uupath(1) to return paths from pathalias(1) database
  1547.         o logging of traffic supported
  1548.         o supports 4.3 BSD UUCP graded transactions
  1549.  
  1550. No other programs are required to use uumail. Pathalias(1) is useful for
  1551. generating a full database, but a full database is not required to make
  1552. uumail useful.
  1553.  
  1554. Bug reports are welcome.
  1555.  
  1556. Stan Barber <sob@soma.bcm.tmc.edu>
  1557. ({cuae2,seismo,rice}!soma!sob)
  1558. Cellular Neurophysiology Laboratory
  1559. Department of Neurology
  1560. Baylor Collge of Medicine
  1561. Houston, Texas 77030
  1562.  
  1563.  
  1564.  
  1565. !STUFFY!FUNK!
  1566. echo Extracting gethostnam.c
  1567. cat >gethostnam.c <<'!STUFFY!FUNK!'
  1568. #ifndef lint
  1569. static char    sccsid[] = "@(#)gethostnam.c    6.1 (down!honey) 85/01/21";
  1570. static char    rcsid[] = "$Header: gethostnam.c,v 6.5 86/10/07 15:14:09 sob Exp $";
  1571. #endif lint
  1572.  
  1573. #ifndef GETHOSTNAME
  1574. #include "uuconf.h"
  1575. #ifdef DOUNAME
  1576. #include <sys/utsname.h>
  1577. #endif
  1578.  
  1579. void
  1580. gethostname(name, len)
  1581. char    *name;
  1582. {
  1583.     FILE    *whoami, *fopen(), *popen();
  1584.     char    *ptr, *index();
  1585. #if defined(DOUNAME) && !defined(SYSTEMNAME)
  1586.     struct utsname utsn;
  1587. #endif
  1588.  
  1589.     *name = '\0';
  1590. #ifndef SYSTEMNAME
  1591. #ifdef DOUNAME
  1592.     if (uname(&utsn) != -1)
  1593.     {
  1594.         strcpy(name,utsn.nodename);
  1595.         len = strlen(name);
  1596.           return;
  1597.     }
  1598. #endif
  1599. #endif
  1600.  
  1601. #ifdef SYSTEMNAME
  1602.     /* try /usr/lib/uucp/SYSTEMNAME */
  1603.     if ((whoami = fopen("/usr/lib/uucp/SYSTEMNAME", "r")) != 0) {
  1604.         (void) fgets(name, len, whoami);
  1605.         (void) fclose(whoami);
  1606.         if ((ptr = index(name, '\n')) != 0)
  1607.             *ptr = '\0';
  1608.     }
  1609.     if (*name)
  1610.         return;
  1611. #endif
  1612.     /* try /usr/include/whoami.h */
  1613.     if ((whoami = fopen("/usr/include/whoami.h", "r")) != 0) {
  1614.         while (!feof(whoami)) {
  1615.             char    buf[100];
  1616.  
  1617.             if (fgets(buf, 100, whoami) == 0)
  1618.                 break;
  1619.             if (sscanf(buf, "#define sysname \"%[^\"]\"", name))
  1620.                 break;
  1621.         }
  1622.         (void) fclose(whoami);
  1623.         if (*name)
  1624.             return;
  1625.     }
  1626.  
  1627.     /* ask uucp */
  1628.     if ((whoami = popen("uuname -l", "r")) != 0) {
  1629.         (void) fgets(name, len, whoami);
  1630.         (void) pclose(whoami);
  1631.         if ((ptr = index(name, '\n')) != 0)
  1632.             *ptr = '\0';
  1633.     }
  1634.     if (*name)
  1635.         return;
  1636.     
  1637.     /* failure */
  1638.     return;
  1639. }
  1640. #endif GETHOSTNAME
  1641.  
  1642. !STUFFY!FUNK!
  1643. echo Extracting Sendmail
  1644. cat >Sendmail <<'!STUFFY!FUNK!'
  1645. ***************************************************************************
  1646. This work in its current form is Copyright 1986 Stan Barber
  1647. with the exception of resolve, gethostname and the original getpath which
  1648. as far as I know are in the Public Domain. This software may be distributed
  1649. freely as long as no profit is made from such distribution and this notice
  1650. is reproducted in whole.
  1651. ***************************************************************************
  1652.  
  1653. You probably don't want uumail to alias things, so be sure you answer that
  1654. question correctly when running Configure. You may not want uumail to
  1655. deal with internet addresses (although it really doen't matter) as well.
  1656.  
  1657. Then edit the mailer definition for uucp in /usr/lib/sendmail.cf
  1658. and change the P=/usr/bin/uux to be P=[where uumail is] (e.g.
  1659. /usr/lib/uucp/uumail).
  1660. Change the A= to A=uumail -h -f$g $h!$u
  1661.  
  1662. This will replace the uux execution with uumail. If you do this exactly, 
  1663. you will only need the pathalias generated database to be present for
  1664. uumail to work correctly.
  1665.  
  1666. There are more things you can do to make sendmail be smarter about
  1667. using uumail, but in general, this is not necessary since uumail
  1668. will return informative messges to sendmail ( and the user) if 
  1669. there is a failure.
  1670.  
  1671. If you would like to share your problems or ideas on interfacing
  1672. sendmail and uumail, I would appreciate hearing them.
  1673.  
  1674. Thanks.
  1675. Stan Barber
  1676. 17 November 1986
  1677.  
  1678.  
  1679. !STUFFY!FUNK!
  1680. echo Extracting ndir.h
  1681. cat >ndir.h <<'!STUFFY!FUNK!'
  1682. /* $Header: ndir.h,v 4.3 85/05/01 11:43:00 lwall Exp $
  1683.  *
  1684.  * $Log:    ndir.h,v $
  1685.  * Revision 4.3  85/05/01  11:43:00  lwall
  1686.  * Baseline for release with 4.3bsd.
  1687.  * 
  1688.  */
  1689.  
  1690. #ifdef LIBNDIR
  1691. #   include <ndir.h>
  1692. #else
  1693. #   ifndef USENDIR
  1694. #    include <sys/dir.h>
  1695. #   else
  1696.  
  1697. #ifndef DEV_BSIZE
  1698. #define    DEV_BSIZE    512
  1699. #endif
  1700. #define DIRBLKSIZ    DEV_BSIZE
  1701. #define    MAXNAMLEN    255
  1702.  
  1703. struct    direct {
  1704.     long    d_ino;            /* inode number of entry */
  1705.     short    d_reclen;        /* length of this record */
  1706.     short    d_namlen;        /* length of string in d_name */
  1707.     char    d_name[MAXNAMLEN + 1];    /* name must be no longer than this */
  1708. };
  1709.  
  1710. /*
  1711.  * The DIRSIZ macro gives the minimum record length which will hold
  1712.  * the directory entry.  This requires the amount of space in struct direct
  1713.  * without the d_name field, plus enough space for the name with a terminating
  1714.  * null byte (dp->d_namlen+1), rounded up to a 4 byte boundary.
  1715.  */
  1716. #undef DIRSIZ
  1717. #define DIRSIZ(dp) \
  1718.     ((sizeof (struct direct) - (MAXNAMLEN+1)) + (((dp)->d_namlen+1 + 3) &~ 3))
  1719.  
  1720. /*
  1721.  * Definitions for library routines operating on directories.
  1722.  */
  1723. typedef struct _dirdesc {
  1724.     int    dd_fd;
  1725.     long    dd_loc;
  1726.     long    dd_size;
  1727.     char    dd_buf[DIRBLKSIZ];
  1728. } DIR;
  1729. #ifndef NULL
  1730. #define NULL 0
  1731. #endif
  1732. extern    DIR *opendir();
  1733. extern    struct direct *readdir();
  1734. extern    long telldir();
  1735. extern    void seekdir();
  1736. #define rewinddir(dirp)    seekdir((dirp), (long)0)
  1737. extern    void closedir();
  1738.  
  1739. #   endif
  1740. #endif
  1741. !STUFFY!FUNK!
  1742. echo Extracting kitlists.c
  1743. cat >kitlists.c <<'!STUFFY!FUNK!'
  1744. /* $Header: kitlists.c,v 4.0 86/11/17 16:02:20 sob Exp $
  1745.  *
  1746.  * $Log:    kitlists.c,v $
  1747.  * Revision 4.0  86/11/17  16:02:20  sob
  1748.  * Release version 4.0 -- uumail
  1749.  * 
  1750.  * Revision 1.1  86/10/20  15:05:30  sob
  1751.  * Initial revision
  1752.  * 
  1753.  * Revision 4.3  85/05/01  11:42:08  lwall
  1754.  * Baseline for release with 4.3bsd.
  1755.  * 
  1756.  */
  1757.  
  1758. #include <stdio.h>
  1759.  
  1760. #define MAXKIT 100
  1761. #define MAXKITSIZE 50000
  1762. #define KITOVERHEAD 700
  1763. #define FILEOVERHEAD 80
  1764. #define Nullch    (char *)0
  1765. long tot[MAXKIT];
  1766. FILE *outfp[MAXKIT];    /* of course, not this many file descriptors */
  1767.  
  1768. main(argc,argv)
  1769. int argc;
  1770. char **argv;
  1771. {
  1772.     FILE *inp, *popen();
  1773.     char buf[1024], filnam[128];
  1774.     char *index();
  1775.     register char *s;
  1776.     register int i, newtot;
  1777.     
  1778.     sprintf(buf,"\
  1779. ls -l `awk '{print $1}' <%s'` | awk '{print $9 \" \" $5}' | sort +1nr\
  1780. ", argc > 1 ? argv[1] : "MANIFEST.new");
  1781.     inp = popen(buf,"r");
  1782.  
  1783.     while (fgets(buf,1024,inp) != Nullch) {
  1784.     s = index(buf,' ');
  1785.     *s++ = '\0';
  1786.     for (i=1;
  1787.       (newtot = tot[i] + atol(s) + FILEOVERHEAD) > MAXKITSIZE-KITOVERHEAD;
  1788.       i++) 
  1789.         ;
  1790.     if (!tot[i]) {
  1791.         sprintf(filnam,"kit%d.list",i);
  1792.         outfp[i] = fopen(filnam,"w");
  1793.     }
  1794.     tot[i] = newtot;
  1795.     printf("Adding %s to kit %d giving %d bytes\n",buf,i,newtot);
  1796.     fprintf(outfp[i],"%s\n",buf);
  1797.     }
  1798. }
  1799. !STUFFY!FUNK!
  1800. echo Extracting palias
  1801. cat >palias <<'!STUFFY!FUNK!'
  1802. .RDCF.SDC    rice!cbosgd!sdcrdcf!%s
  1803. .arpa    seismo!%s
  1804. .att    rice!cbosgd!%s
  1805. .att.com    rice!cbosgd!%s
  1806. .au    seismo!munnari!%s
  1807. .bcm.tmc.edu    soma!%s
  1808. .bellcore.com    rice!cbosgd!wb2!bellcore!%s
  1809. .bitnet    seismo!tardis!talcott!%s
  1810. .ca    rice!sun!ubc-vision!%s
  1811. .canada    rice!sun!ubc-vision!%s
  1812. .ccur.uucp    rice!cbosgd!codas!peora!%s
  1813. .cdn    rice!sun!ubc-vision!%s
  1814. .com    seismo!%s
  1815. .csnet    seismo!harvard!%s
  1816. .dec    rice!sun!decwrl!%s
  1817. .dec.com    rice!sun!decwrl!%s
  1818. .dms.oz    seismo!munnari!%s
  1819. .dmt.oz    seismo!munnari!%s
  1820. .edu    seismo!%s
  1821. .gb    seismo!mcvax!ukc!%s
  1822. .gov    seismo!%s
  1823. .il    seismo!mcvax!huji!humus!%s
  1824. .israel    seismo!mcvax!huji!humus!%s
  1825. .jp    seismo!kddlab!%s
  1826. .jpn    seismo!kddlab!%s
  1827. .junet    seismo!kddlab!%s
  1828. .korea    seismo!kaist!%s
  1829. .kr    seismo!kaist!%s
  1830. .mailnet    seismo!harvard!%s
  1831. .net    seismo!%s
  1832. .org    seismo!%s
  1833. .oz    seismo!munnari!%s
  1834. .oz.au    seismo!munnari!%s
  1835. .rice.edu    rice!%s
  1836. .sandiego.ncr.uucp    sdcsvax!ncr-sd!%s
  1837. .su.oz    seismo!munnari!%s
  1838. .toronto.cdn    rice!cbosgd!utcs!%s
  1839. .toronto.csnet    rice!cbosgd!utcs!%s
  1840. .trl.oz    seismo!munnari!%s
  1841. .uk    seismo!mcvax!ukc!%s
  1842. .uq.oz    seismo!munnari!%s
  1843. .us    seismo!%s
  1844. .uucp    rice!cbosgd!%s
  1845. !STUFFY!FUNK!
  1846. echo Extracting Binary.Only
  1847. cat >Binary.Only <<'!STUFFY!FUNK!'
  1848. Unfortunately, you may not be able to alter your mail programs to utilize
  1849. the features of uumail. 
  1850.  
  1851. However, I am providing a method for you to try experimentally. Please
  1852. let me know if it works successfully for you.
  1853.  
  1854. Mail usually works like this----
  1855.  
  1856. mail --->Is it local? -->Yes-->put in mail box
  1857.         |
  1858.         No
  1859.         |
  1860.         --> uux --> uucp to destination machine
  1861.  
  1862. What I am providing is a program that you put in place of uux to 
  1863. call uumail to route the mail for you. Then the map becomes---
  1864.  
  1865. mail --->Is it local? -->Yes-->put in mail box
  1866.         |
  1867.         No
  1868.         |
  1869.         --> fakeuux --> Is it rmail? --> No --> realuux -->uucp
  1870.                     |
  1871.                     Yes
  1872.                     |
  1873.                     --> uumail --> realuux --> uucp
  1874.  
  1875.  
  1876. Basically, you put the old uux in another place and put this fake uux in
  1877. the original location. To try this feature, edit makefile and change the
  1878. definition of REALUUX to match the place you will put your ORIGINAL uux
  1879. program. Then type
  1880. make fakeuux
  1881.  
  1882. Good luck and let me know if it works.
  1883. Stan Barber
  1884. 17 November 1986
  1885. !STUFFY!FUNK!
  1886. echo Extracting makekit
  1887. cat >makekit <<'!STUFFY!FUNK!'
  1888. #!/bin/sh
  1889. # $Header: makekit,v 4.3 85/05/01 11:42:38 lwall Exp $
  1890. #
  1891. # $Log:    makekit,v $
  1892. # Revision 4.3  85/05/01  11:42:38  lwall
  1893. # Baseline for release with 4.3bsd.
  1894. # 
  1895.  
  1896. numkits=$#
  1897. for kitlist in $*; do
  1898.     kit=`basename $kitlist .list`
  1899.     kitnum=`expr "$kit" : 'kit\([0-9][0-9]*\)'`
  1900.     echo "*** Making $kit ***"
  1901.     kitleader "$kit" "$kitnum" "$numkits"
  1902.     for file in `/bin/cat $kitlist`; do
  1903.     echo $file
  1904.     echo "echo Extracting $file" >> $kit
  1905.     if egrep '^\.$' $file; then
  1906.         echo "sed >$file <<'!STUFFY!FUNK!' -e 's/X//'" >> $kit
  1907.         sed <$file >>$kit -e 's/^/X/'
  1908.     else
  1909.         echo "cat >$file <<'!STUFFY!FUNK!'" >> $kit
  1910.         /bin/cat $file >> $kit
  1911.     fi
  1912.     echo "!STUFFY!FUNK!" >> $kit
  1913.     done
  1914.     kittrailer "$kit" "$kitnum" "$numkits"
  1915. done
  1916. !STUFFY!FUNK!
  1917. echo Extracting manimake
  1918. cat >manimake <<'!STUFFY!FUNK!'
  1919. #!/bin/sh
  1920. # $Header: manimake,v 4.3 85/05/01 11:42:46 lwall Exp $
  1921. #
  1922. # $Log:    manimake,v $
  1923. # Revision 4.3  85/05/01  11:42:46  lwall
  1924. # Baseline for release with 4.3bsd.
  1925. # 
  1926.  
  1927. : make MANIFEST and MANIFEST.new say the same thing
  1928. if test -f MANIFEST.new; then
  1929.     cat <<'EOH' > MANIFEST
  1930. After all the uumail kits are run you should have the following files:
  1931.  
  1932. Filename    Kit Description
  1933. --------    --- -----------
  1934. EOH
  1935.     sort MANIFEST.new >.mani
  1936.     grep . kit*.list | sed 's/^kit\(.*\)\.list:\$*\(.*\)$/\2 |\1|/' | \
  1937.     sort | \
  1938.     join -a1 - .mani | \
  1939.     awk -F'|' '{printf "%-16s%2s %s\n",$1,$2,$3}' | \
  1940.     unexpand >> MANIFEST
  1941.     rm .mani
  1942. else
  1943.     echo "You don't have a MANIFEST.new file.  Run manifake."
  1944. fi
  1945. !STUFFY!FUNK!
  1946. echo Extracting patchlevel.h
  1947. cat >patchlevel.h <<'!STUFFY!FUNK!'
  1948. #define PATCHLEVEL 1
  1949. static char * Version[] = "uumail 4.2 02/02/87";
  1950. !STUFFY!FUNK!
  1951. echo ""
  1952. echo "End of kit 3 (of 4)"
  1953. cat /dev/null >kit3isdone
  1954. config=true
  1955. for iskit in 1               2               3               4               ; do
  1956.     if test -f kit${iskit}isdone; then
  1957.     echo "You have run kit ${iskit}."
  1958.     else
  1959.     echo "You still need to run kit ${iskit}."
  1960.     config=false
  1961.     fi
  1962. done
  1963. case $config in
  1964.     true)
  1965.     echo "You have run all your kits.  Please read README and then type Configure."
  1966.     chmod 755 Configure
  1967.     ;;
  1968. esac
  1969. : I do not append .signature, but someone might mail this.
  1970. exit
  1971.  
  1972.