home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume09 / uumail.pch < prev    next >
Encoding:
Text File  |  1988-09-11  |  25.2 KB  |  1,035 lines
  1. Subject:  v09i048:  UUmail 4.X patch
  2. Newsgroups: mod.sources
  3. Approved: rs@mirror.TMC.COM
  4.  
  5. Submitted by: rice!cortex!sob (Stan Barber)
  6. Mod.sources: Volume 9, Issue 48
  7. Archive-name: uumail.pch
  8.  
  9. [  The version published in Volume 8 of mod.sources had already integrated
  10.    Patch 1.  --r$  ]
  11.  
  12. System: uumail version 4.2
  13. Patch #: 2
  14. Priority: REQUIRED
  15. Subject: General fixes to getpath.c rmail.c uumail.c Configure Makefile.SH
  16. From: smb!dave, atelabs!cds
  17.  
  18. Description:
  19.          Some typos in the declaration of Version and bangpath. The Putfrom
  20.          routine was not rebuilding the From_ line correctly. Configure 
  21.          needed to identify 8086 and z8000 machines for their need for
  22.          seperate I and D. Default log, Alias and paths files are now
  23.          created if the user wants them created. Getpaths calls uuname 
  24.          twice when it only has to call it once. Makefile will not protect
  25.          the naive installed from killing his copy of REALUUX. uumail can
  26.          now double as address as well as uupath.
  27.  
  28. Repeat by:
  29.          Feed uumail a message with lots of From_ lines and see what Putfrom
  30.          does when it rebuilds them. The Configure problems are obvious ones.
  31.          rmail did not make sure that the argv was terminated with NULL.
  32.     
  33. Fix:     Fix the typos. Add the code to fix the problems in Putfrom.
  34.          Replace the code in getpaths to call uuname only once and make
  35.          a linked list. Fix Makefile. Add support for address into uumail.
  36.  
  37.          From rn, say "| patch -d DIR", where DIR is your rn source directory.
  38.          Outside of rn, say "cd DIR; patch <thisarticle".  If you don't have
  39.          the patch program, apply the following by hand, or get patch.
  40.  
  41.  
  42.          Stan Barber
  43.          {shell,rice,soma}!academ!sob
  44.  
  45.  
  46. Index: pathlevel.h
  47. Prereq: 1
  48. *** patchlevel.BAK    Tue Mar 17 13:09:28 1987
  49. --- patchlevel.h    Tue Mar 17 15:38:14 1987
  50. ***************
  51. *** 1,2 ****
  52. ! #define PATCHLEVEL 1
  53. ! static char *Version[] = "uumail 4.2 02/02/87";
  54. --- 1,2 ----
  55. ! #define PATCHLEVEL 2
  56. ! static char  Version[] = "uumail 4.3 03/18/87";
  57.  
  58. Index:Makefile.SH
  59. Prereq: 1.2
  60. *** /tmp/,RCSt1003969    Wed Mar 18 13:58:36 1987
  61. --- /tmp/,RCSt2003969    Wed Mar 18 13:58:37 1987
  62. ***************
  63. *** 8,14 ****
  64.   # program to integrate with pathalias created uucpmap databases
  65.   # programs originally developed by Jeff Donnelly
  66.   # updated to use pathalias database by Stan Barber
  67. ! # $Header: Makefile.SH,v 1.2 86/12/15 13:27:53 sob Exp $
  68.   #***************************************************************************
  69.   # This work in its current form is Copyright 1986 Stan Barber
  70.   # with the exception of resolve, gethostname and the original getpath which
  71. --- 8,14 ----
  72.   # program to integrate with pathalias created uucpmap databases
  73.   # programs originally developed by Jeff Donnelly
  74.   # updated to use pathalias database by Stan Barber
  75. ! # $Header: Makefile.SH,v 1.4 87/03/18 13:58:00 sob Exp $
  76.   #***************************************************************************
  77.   # This work in its current form is Copyright 1986 Stan Barber
  78.   # with the exception of resolve, gethostname and the original getpath which
  79. ***************
  80. *** 49,55 ****
  81.   .h,v.h:
  82.       co -q $*.h
  83.   
  84. ! all: uumail rmail address uux
  85.   
  86.   cobj=getpath.o resolve.o
  87.   
  88. --- 49,55 ----
  89.   .h,v.h:
  90.       co -q $*.h
  91.   
  92. ! all: uumail rmail uux
  93.   
  94.   cobj=getpath.o resolve.o
  95.   
  96. ***************
  97. *** 57,77 ****
  98.   
  99.   robj= rmail.o gethostnam.o
  100.   
  101. ! aobj= address.o $(cobj)
  102.   
  103. ! obj= $(aobj) $(uobj) $(robj)
  104.   
  105.   uumail: $(uobj)
  106.       $(CC) $(CFLAGS) $(uobj) -o uumail $(LIBS)
  107.   
  108. - address:$(aobj)
  109. -     $(CC) $(CFLAGS) $(aobj) -o address $(LIBS)
  110. - 
  111.   rmail: $(robj)
  112.       $(CC) $(CFLAGS) $(robj) -o rmail $(LIBS)
  113.   
  114. ! install: uumail address palias
  115. !     $(CP) address $(BINDIR)
  116.       $(CP) uumail $(UUCPDIR)
  117.       $(CP) uumail.8 $(MANDIR)/man8
  118.       $(CP) address.1 $(MANDIR)/man1
  119. --- 57,77 ----
  120.   
  121.   robj= rmail.o gethostnam.o
  122.   
  123. ! uuxobj= uux.c
  124.   
  125. ! obj= $(uobj) $(robj) $(uuxobj)
  126.   
  127.   uumail: $(uobj)
  128.       $(CC) $(CFLAGS) $(uobj) -o uumail $(LIBS)
  129.   
  130.   rmail: $(robj)
  131.       $(CC) $(CFLAGS) $(robj) -o rmail $(LIBS)
  132.   
  133. ! uux: $(uuxobj)
  134. !     $(CC) $(CFLAGS) $(uuxobj) -o uux $(LIBS)
  135. ! 
  136. ! install: uumail palias
  137. !     $(CP) uumail $(BINDIR)/address
  138.       $(CP) uumail $(UUCPDIR)
  139.       $(CP) uumail.8 $(MANDIR)/man8
  140.       $(CP) address.1 $(MANDIR)/man1
  141. ***************
  142. *** 89,99 ****
  143.       $(RM) -rf /bin/rmail
  144.       $(CP) rmail /bin/rmail
  145.       
  146. ! fakeuux: uux
  147.       make install
  148.       $(CP) /usr/bin/uux $(REALUUX)
  149.       $(CP) uux /usr/bin/uux
  150. !     chmod 6755 /usr/bin/uux
  151.   
  152.   lint:
  153.       lint $(CFLAGS) getpath.c uumail.c gethostnam.c resolve.c alias.c
  154. --- 89,102 ----
  155.       $(RM) -rf /bin/rmail
  156.       $(CP) rmail /bin/rmail
  157.       
  158. ! fakeuux: uux /usr/bin/uux
  159.       make install
  160. +     export PATH || exit 1
  161. +     if test -x $(REALUUX); then $(CP) $(REALUUX) $(REALUUX).old; fi
  162.       $(CP) /usr/bin/uux $(REALUUX)
  163.       $(CP) uux /usr/bin/uux
  164. !     chown root /usr/bin/uux
  165. !     chmod 4755 /usr/bin/uux
  166.   
  167.   lint:
  168.       lint $(CFLAGS) getpath.c uumail.c gethostnam.c resolve.c alias.c
  169.  
  170. Index: Configure
  171. Prereq: 1.12
  172. *** /tmp/,RCSt1004039    Wed Mar 18 14:19:52 1987
  173. --- /tmp/,RCSt2004039    Wed Mar 18 14:19:57 1987
  174. ***************
  175. *** 1,11 ****
  176. ! #! /bin/sh
  177.   #
  178.   # If these # comments don't work, trim them.  Don't worry about the other
  179.   # shell scripts, Configure will trim # comments from them for you.
  180.   #
  181. ! # $Header: Configure,v 1.12 87/02/02 15:44:21 sob Exp $
  182.   #
  183.   # $Log:    Configure,v $
  184.   # Revision 1.12  87/02/02  15:44:21  sob
  185.   # Added localflags option
  186.   # 
  187. --- 1,23 ----
  188. ! #!/bin/sh
  189.   #
  190.   # If these # comments don't work, trim them.  Don't worry about the other
  191.   # shell scripts, Configure will trim # comments from them for you.
  192.   #
  193. ! # $Header: Configure,v 1.15 87/03/18 14:18:38 sob Exp $
  194.   #
  195.   # $Log:    Configure,v $
  196. + # Revision 1.15  87/03/18  14:18:38  sob
  197. + # Minor language and appearance things
  198. + # 
  199. + # Revision 1.14  87/03/17  15:49:51  sob
  200. + # More fixes
  201. + # 
  202. + # Revision 1.13  87/03/17  14:49:06  sob
  203. + # Added checks for other seperate i and d processors
  204. + # Added options for creating the Alias and Paths files if 
  205. + # they did not previously exist.
  206. + # Other fixes.
  207. + # 
  208.   # Revision 1.12  87/02/02  15:44:21  sob
  209.   # Added localflags option
  210.   # 
  211. ***************
  212. *** 388,394 ****
  213. --- 400,445 ----
  214.   else
  215.       echo "This doesn't look like a pdp11 to me."
  216.   fi
  217. + : check for i8086
  218. + echo " "
  219. + cat <<'EOT' >i8086.c
  220. + #ifdef i8086
  221. + exit 0
  222. + #else
  223. + exit 1
  224. + #endif
  225. + EOT
  226. + $cpp i8086.c | grep exit >i8086
  227. + chmod 755 i8086
  228. + $eunicefix i8086
  229. + rm i8086.c
  230.   
  231. + if i8086; then
  232. +     echo "This looks like an 8086-based computer to me."
  233. + else
  234. +     echo "This doesn't look like an 8086-based computer to me."
  235. + fi
  236. + 
  237. + : check for z8000
  238. + echo " "
  239. + cat <<'EOT' >z8000.c
  240. + #ifdef z8000
  241. + exit 0
  242. + #else
  243. + exit 1
  244. + #endif
  245. + EOT
  246. + $cpp z8000.c | grep exit >z8000
  247. + chmod 755 z8000
  248. + $eunicefix z8000
  249. + rm z8000.c
  250. + 
  251. + if z8000; then
  252. +     echo "This looks like a z8000-based computer to me."
  253. + else
  254. +     echo "This doesn't look like a z8000-based computer to me."
  255. + fi
  256. + 
  257.   : see if sh knows # comments
  258.   echo " "
  259.   echo "Checking your sh to see if it knows about # comments..."
  260. ***************
  261. *** 803,809 ****
  262.       $echo " "
  263.       case "$libexp" in
  264.       blurfl*) ;;
  265. !     *) $echo "File $libexp not found";;
  266.       esac
  267.       $echo $n "Where is your uumail log file (~name okay)? [$dflt] $c"
  268.       . myread
  269. --- 854,868 ----
  270.       $echo " "
  271.       case "$libexp" in
  272.       blurfl*) ;;
  273. !     *) $echo "File $libexp not found"
  274. !        $echo $n "Shall I create it for you? $c"
  275. !     . myread
  276. !        case "$ans" in
  277. !        y*) $echo $n "OK... I will create it for you... $c"
  278. !           cp /dev/null $libexp
  279. !           $echo "done" ;;
  280. !     esac
  281. !     ;;
  282.       esac
  283.       $echo $n "Where is your uumail log file (~name okay)? [$dflt] $c"
  284.       . myread
  285. ***************
  286. *** 865,871 ****
  287.       $echo " "
  288.       case "$libexp" in
  289.       blurfl*) ;;
  290. !     *) $echo "File $libexp not found";;
  291.       esac
  292.       $echo $n "Where is your uucp map database (~name okay)? [$dflt] $c"
  293.       . myread
  294. --- 924,943 ----
  295.       $echo " "
  296.       case "$libexp" in
  297.       blurfl*) ;;
  298. !     *) $echo "File $libexp not found"
  299. !        $echo $n "Shall I create it for you? $c"
  300. !     . myread
  301. !        case "$ans" in
  302. !        y*) $echo $n "OK... I will create it for you... $c"
  303. !               for i in `cat uucp.local`
  304. !               do
  305. !                    $echo "$i  $i!%s" >> $libexp
  306. !               done
  307. !           $echo "done" ;;
  308. !        *) $echo "OK, you create it and run Configure when you are done."
  309. !           exit 1 ;;
  310. !     esac
  311. !         ;;
  312.       esac
  313.       $echo $n "Where is your uucp map database (~name okay)? [$dflt] $c"
  314.       . myread
  315. ***************
  316. *** 948,954 ****
  317.       $echo " "
  318.       case "$libexp" in
  319.       blurfl*) ;;
  320. !     *) $echo "File $libexp not found";;
  321.       esac
  322.       $echo $n "Where is your aliases file (~name okay)? [$dflt] $c"
  323.       . myread
  324. --- 1020,1036 ----
  325.       $echo " "
  326.       case "$libexp" in
  327.       blurfl*) ;;
  328. !     *) $echo "File $libexp not found"
  329. !        $echo $n "Shall I create it for you? $c"
  330. !     . myread
  331. !        case "$ans" in
  332. !        y*) $echo $n "OK... I will create it for you... $c"
  333. !               $echo "Postmaster: root" > $libexp
  334. !           $echo "done" ;;
  335. !        *) $echo "OK, you create it and run Configure when you are done."
  336. !           exit 1 ;;
  337. !     esac
  338. !         ;;
  339.       esac
  340.       $echo $n "Where is your aliases file (~name okay)? [$dflt] $c"
  341.       . myread
  342. ***************
  343. *** 1221,1227 ****
  344.   
  345.   : see if we should throw a -i into the Makefile
  346.   $echo " "
  347. ! if pdp11; then
  348.       if $contains '\-i' $mansrc/cc.1 >/dev/null 2>&1 ; then
  349.       $echo $n "Your system appears to have separate I and D space.  Is this true? [y] $c"
  350.       . myread
  351. --- 1303,1309 ----
  352.   
  353.   : see if we should throw a -i into the Makefile
  354.   $echo " "
  355. ! if pdp11 || i8086 || z8000; then
  356.       if $contains '\-i' $mansrc/cc.1 >/dev/null 2>&1 ; then
  357.       $echo $n "Your system appears to have separate I and D space.  Is this true? [y] $c"
  358.       . myread
  359. ***************
  360. *** 1239,1245 ****
  361.       esac
  362.       fi
  363.   else
  364. !     $echo "Not a pdp11--assuming no separate I and D."
  365.   fi
  366.   
  367.   : index or strcpy
  368. --- 1321,1327 ----
  369.       esac
  370.       fi
  371.   else
  372. !     $echo "Not a pdp11 or i8086 or z8000 --assuming no separate I and D."
  373.   fi
  374.   
  375.   : index or strcpy
  376. ***************
  377. *** 1882,1886 ****
  378.   case "$ans" in
  379.   y*) makedepend;;
  380.   esac
  381. ! $rm -f  uucp.local myread loc filexp bsd pdp11 v7 usg eunice
  382. ! : end of Configure
  383. --- 1964,1967 ----
  384.   case "$ans" in
  385.   y*) makedepend;;
  386.   esac
  387. ! $rm -f  uucp.local myread loc filexp bsd pdp11 z8000 i8086 v7 usg eunice
  388.  
  389. Index: uumail.c
  390. Prereq: 4.2
  391. *** /tmp/,RCSt1003985    Wed Mar 18 14:00:02 1987
  392. --- /tmp/,RCSt2003985    Wed Mar 18 14:00:07 1987
  393. ***************
  394. *** 20,25 ****
  395. --- 20,34 ----
  396.   or any damage it may cause to any data of any kind anywhere.
  397.   ***************************************************************************
  398.    * $Log:    uumail.c,v $
  399. +  * Revision 4.4  87/03/18  13:53:44  sob
  400. +  * More fixes to Putfrom. Added support for uumail acting as the
  401. +  * address command. Some cleanup of parts of the code.
  402. +  * 
  403. +  * Revision 4.3  87/03/17  14:48:15  sob
  404. +  * Made some minor changes in Putfrom suggest by smail 2.3 posting.
  405. +  * Other bug fixes as well.
  406. +  * Stan
  407. +  * 
  408.    * Revision 4.2  87/02/02  15:43:50  sob
  409.    * Added fix for lost line at the beginning of the message problems
  410.    * 
  411. ***************
  412. *** 206,213 ****
  413. --- 215,224 ----
  414.   
  415.   #include "uuconf.h"
  416.   #include "patchlevel.h"
  417. + #include <time.h>
  418.   
  419.   EXTERN bool uupath;
  420. + EXTERN bool addrcmd;
  421.   extern int      errno;
  422.   extern struct passwd *getpwuid();
  423.   extern FILE    *popen();
  424. ***************
  425. *** 221,227 ****
  426.   extern bool    nghborflag;
  427.   EXTERN char    progname[12];
  428.   EXTERN char  *paths;
  429. ! char * bangpath[BUFSIZ];
  430.   char templet[64];
  431.   struct mailname addrlist;    /* list of addresses */
  432.   int local;
  433. --- 232,238 ----
  434.   extern bool    nghborflag;
  435.   EXTERN char    progname[12];
  436.   EXTERN char  *paths;
  437. ! char bangpath[BUFSIZ];
  438.   char templet[64];
  439.   struct mailname addrlist;    /* list of addresses */
  440.   int local;
  441. ***************
  442. *** 276,283 ****
  443.       if (p++ == NULL)
  444.           p = *av;
  445.       strcpy(progname ,p);
  446. !     if(strcmp(p,"uupath") == 0)
  447.           uupath = TRUE;
  448.       while ((p = *++av) != NULL && p[0] == '-')
  449.       {
  450.           switch (p[1])
  451. --- 287,296 ----
  452.       if (p++ == NULL)
  453.           p = *av;
  454.       strcpy(progname ,p);
  455. !     if(strcmp(p,"uupath") == 0)    /* this is the uupath command */
  456.           uupath = TRUE;
  457. +     if(strcmp(p,"address") == 0)    /* this is the address command */
  458. +         addrcmd = TRUE;
  459.       while ((p = *++av) != NULL && p[0] == '-')
  460.       {
  461.           switch (p[1])
  462. ***************
  463. *** 402,408 ****
  464.   
  465.   /* If this is not uupath, then there must be a letter */
  466.   
  467. ! if (!uupath)
  468.   {    
  469.   #ifdef DEBUG
  470.       if (Debug) (void) printf("Mail from %s\n",from);
  471. --- 415,421 ----
  472.   
  473.   /* If this is not uupath, then there must be a letter */
  474.   
  475. ! if (!uupath && !addrcmd)
  476.   {    
  477.   #ifdef DEBUG
  478.       if (Debug) (void) printf("Mail from %s\n",from);
  479. ***************
  480. *** 494,521 ****
  481.       }
  482.    r = malloc(PATHSIZ);
  483.    strcpy(r,p);
  484. !  if (index(p,'@') != NULL) handle = ALL;
  485.   /* try one */
  486. !     form = resolve(p,path,user);
  487.       if ( (form == LOCAL && path[0] == '\0') 
  488.           || form == ERROR || form == ROUTE || form == DOMAIN){
  489. !         if (user[0] != '\0') strcpy(p,user);
  490.           path[0] = user[0] = '\0';
  491.   /* try two */
  492. !             if (index(p,'@') != NULL) handle = ALL;
  493. !         form = resolve(p,path,user);
  494.       }
  495.   /* we could punt at this point, but let's forward it to a known
  496.      host that might be able to resolve it */
  497.   
  498.   #ifdef KNOWNHOST /* ugly... alternate suggestions welcome */
  499. !     if ( (exitstat || form == ERROR)
  500. !      && (index(r,'@') != NULL || index(r,'!') != NULL) ){
  501. !         strcpy(p,KNOWNHOST);
  502. !         strcat(p,"!");
  503. !         strcat(p,r);
  504.           user[0] = '\0';
  505. !         form = resolve(p,path,user);
  506.       }
  507.   #endif
  508.   
  509. --- 507,534 ----
  510.       }
  511.    r = malloc(PATHSIZ);
  512.    strcpy(r,p);
  513. !  if (index(r,'@') != NULL) handle = ALL;
  514.   /* try one */
  515. !     form = resolve(r,path,user);
  516.       if ( (form == LOCAL && path[0] == '\0') 
  517.           || form == ERROR || form == ROUTE || form == DOMAIN){
  518. !         if (user[0] != '\0') strcpy(r,user);
  519.           path[0] = user[0] = '\0';
  520.   /* try two */
  521. !             if (index(r,'@') != NULL) handle = ALL;
  522. !         form = resolve(r,path,user);
  523.       }
  524.   /* we could punt at this point, but let's forward it to a known
  525.      host that might be able to resolve it */
  526.   
  527.   #ifdef KNOWNHOST /* ugly... alternate suggestions welcome */
  528. !     if ((addrcmd == FALSE) && (((exitstat || form == ERROR)
  529. !      && (index(p,'@') != NULL || index(p,'!') != NULL) ))){
  530. !         strcpy(r,KNOWNHOST);
  531. !         strcat(r,"!");
  532. !         strcat(r,p);
  533.           user[0] = '\0';
  534. !         form = resolve(r,path,user);
  535.       }
  536.   #endif
  537.   
  538. ***************
  539. *** 527,535 ****
  540.       if (exitstat || form == ERROR )
  541.                /* no match in pathalias database */
  542.       {
  543. !         deadletter(tmpf,local,exitstat,p);
  544. !         unlink(templet);
  545. !         exit(exitstat);
  546.       }
  547.      
  548.   
  549. --- 540,555 ----
  550.       if (exitstat || form == ERROR )
  551.                /* no match in pathalias database */
  552.       {
  553. !         if (addrcmd) {
  554. !             fprintf(stderr,"%s cannot be resolved.\n",
  555. !                         lp->m_name);
  556. !             break;
  557. !         } else {
  558. !             deadletter(tmpf,local,exitstat,p);
  559. !             unlink(templet);
  560. !             exit(exitstat); /* this may be the wrong approach */
  561. !         }
  562. ! 
  563.       }
  564.      
  565.   
  566. ***************
  567. *** 539,545 ****
  568.           local = 1;
  569.       }
  570.       } /* end of else uupath */
  571. ! #else
  572.       else
  573.       {
  574.              p = index(q,'!');
  575. --- 559,565 ----
  576.           local = 1;
  577.       }
  578.       } /* end of else uupath */
  579. ! #else /* not RESOLVE */
  580.       else
  581.       {
  582.              p = index(q,'!');
  583. ***************
  584. *** 565,576 ****
  585.               }
  586.           }
  587.       }
  588. ! #endif
  589.   
  590.   #ifdef DEBUG
  591.          if(Debug>3)
  592.           (void) fprintf(stderr,
  593. !             "p = %s path = %s user = %s\n",p, path,user);
  594.   #endif
  595.   
  596.       if (uupath)
  597. --- 585,596 ----
  598.               }
  599.           }
  600.       }
  601. ! #endif /* end RESOLVE */
  602.   
  603.   #ifdef DEBUG
  604.          if(Debug>3)
  605.           (void) fprintf(stderr,
  606. !             "address = %s path = %s user = %s\n",p, path,user);
  607.   #endif
  608.   
  609.       if (uupath)
  610. ***************
  611. *** 580,585 ****
  612. --- 600,611 ----
  613.                               lp->m_name,path);
  614.               continue;
  615.           }
  616. +     else if (addrcmd)
  617. +         {
  618. +             (void) printf("Address %s resolves to %s!%s.\n",
  619. +                     lp->m_name, path, user);
  620. +             continue;
  621. +         }
  622.       else
  623.           {
  624.               if (local)
  625. ***************
  626. *** 619,624 ****
  627. --- 645,656 ----
  628.                   }
  629.               }
  630.   pipeout:
  631. + 
  632. +     if(addrcmd)
  633. +     {
  634. +         printf("Address %s pipes output to %s.\n",lp->m_name,cmd);
  635. +         continue;
  636. +     } else {
  637.   #ifdef DEBUG
  638.       if (Debug) (void) fprintf(stderr,"Command is %s\n",cmd);
  639.   #endif
  640. ***************
  641. *** 658,663 ****
  642. --- 690,696 ----
  643.   #ifdef LOG
  644.           maillog(cmd);
  645.   #endif
  646. +         }
  647.          }
  648.       }
  649.   #ifdef DEBUG
  650. ***************
  651. *** 684,691 ****
  652.       char    *asctime();
  653.       struct    tm *bp, *localtime();
  654.       char    *tp, *zp,*c;
  655. !     int    parts,fromflag=0;
  656. !     char     *partv[16];
  657.       char buf[BUFSIZ], addr[PATHSIZ], domain[PATHSIZ], user[NAMESIZ];
  658.       int form;
  659.       extern build();
  660. --- 717,724 ----
  661.       char    *asctime();
  662.       struct    tm *bp, *localtime();
  663.       char    *tp, *zp,*c;
  664. !     int    i,parts,fromflag=0;
  665. !     char     *partv[128];
  666.       char buf[BUFSIZ], addr[PATHSIZ], domain[PATHSIZ], user[NAMESIZ];
  667.       int form;
  668.       extern build();
  669. ***************
  670. *** 745,750 ****
  671. --- 778,811 ----
  672.   */
  673.       if (bangpath[0] == '\0') strcpy(bangpath,from);
  674.   
  675. +     parts = ssplit(bangpath,'!',partv);
  676. + /* null terminate each part of partv */
  677. +         for (i = 0;i < (parts-1);i++){
  678. +         tp = partv[i];
  679. +         if(*tp == '\0') continue;
  680. +         zp = partv[i+1];
  681. +         zp--;
  682. +         *zp = '\0';
  683. +         zp++;
  684. +     }
  685. + /* now eliminate duplicate parts */
  686. +     for (i = 0; i < ( parts - 2) ; i++){
  687. +            tp = partv[i];
  688. +            zp = partv[i+1];
  689. +            if(strcmp(tp,zp) == 0)
  690. +          *tp = '\0';
  691. +     }
  692. +         buf[0] = '\0';
  693. + /* reassemble the line */
  694. +         for ( i = 0;i<(parts-1);i++){
  695. +                 if ((partv[i][0] == '\0') || ((buf[0] == '\0') &&
  696. +                            (strcmp(partv[i],Myname) == 0))) continue;
  697. +                 (void) strcat(buf,partv[i]);
  698. +                 (void) strcat(buf, "!");
  699. +     }
  700. + 
  701. +         (void) strcat(buf,partv[i]);
  702. +         (void) strcpy(bangpath,buf);    /* overwrite old bangpath */
  703.   /*
  704.    * Format time
  705.    */
  706.  
  707. Index: getpath.c
  708. Prereq: 4.0
  709. *** /tmp/,RCSt1004133    Wed Mar 18 14:59:23 1987
  710. --- /tmp/,RCSt2004133    Wed Mar 18 14:59:26 1987
  711. ***************
  712. *** 39,44 ****
  713. --- 39,50 ----
  714.    * modified to rewind path file (if open), rather than open again
  715.    *
  716.    * $Log:    getpath.c,v $
  717. +  * Revision 4.2  87/03/18  13:54:28  sob
  718. +  * Added some fixes to handle domain searches better.
  719. +  * 
  720. +  * Revision 4.1  87/03/17  14:47:44  sob
  721. +  * Replaced old getneighbors with a new version supplied by smb!dave
  722. +  * 
  723.    * Revision 4.0  86/11/17  16:02:15  sob
  724.    * Release version 4.0 -- uumail
  725.    * 
  726. ***************
  727. *** 160,178 ****
  728.   #include <sys/stat.h>
  729.   #endif
  730.   
  731. ! static char rcsid[] = "$Header: getpath.c,v 4.0 86/11/17 16:02:15 sob Exp $";
  732.   extern char * index();
  733. ! 
  734.   extern FILE * fopen (), *popen();
  735.   FILE * in;
  736.   bool nghborflag,gotneighbors;
  737. - char **neighbors, *n_array;    /* rct */
  738.   
  739.   int getpath (sysname, pathname, pathfile)
  740.   char   *sysname, *pathname,*pathfile;
  741.   {
  742. !     int indx,x;
  743.       char ACsysname[NAMESIZ];            /* alternate case sysname */
  744.   #ifdef UUDBM
  745.       datum lhs,rhs;
  746.   #else
  747. --- 166,192 ----
  748.   #include <sys/stat.h>
  749.   #endif
  750.   
  751. ! static char rcsid[] = "$Header: getpath.c,v 4.2 87/03/18 13:54:28 sob Exp $";
  752.   extern char * index();
  753. ! extern char * malloc();
  754.   extern FILE * fopen (), *popen();
  755.   FILE * in;
  756.   bool nghborflag,gotneighbors;
  757.   
  758. + struct system {
  759. +     char *s_name;
  760. +     struct system *s_next;
  761. + };
  762. + 
  763. + static struct system head = {NULL, NULL};
  764. + 
  765. + 
  766.   int getpath (sysname, pathname, pathfile)
  767.   char   *sysname, *pathname,*pathfile;
  768.   {
  769. !     int indx,x,t;
  770.       char ACsysname[NAMESIZ];            /* alternate case sysname */
  771. +     struct system *sys = &head;    
  772.   #ifdef UUDBM
  773.       datum lhs,rhs;
  774.   #else
  775. ***************
  776. *** 187,207 ****
  777.       long last;
  778.       static char buf[256];
  779.   #else
  780. !     char    * p, * q, t;
  781.   #endif
  782.   #endif
  783.   
  784.   
  785.   /* build sysname in the alternate case to conform to methods in SMAIL */
  786. !     if (*(sysname) == '.' || isupper(*sysname)) /* a kludge */
  787.           {
  788.               for (x=0;x<strlen(sysname);x++)
  789. !                 ACsysname[x] = tolower(*(sysname+x));
  790.           }
  791.       else
  792.           {
  793.               for (x=0;x<strlen(sysname);x++)
  794. !                 ACsysname[x] = toupper(*(sysname+x));
  795.           }
  796.   
  797.       if (x < NAMESIZ) ACsysname[x] = '\0';
  798. --- 201,226 ----
  799.       long last;
  800.       static char buf[256];
  801.   #else
  802. !     char    * p, * q;
  803.   #endif
  804.   #endif
  805.   
  806.   
  807.   /* build sysname in the alternate case to conform to methods in SMAIL */
  808. !     if ((*(sysname) == '.' && isupper (*(sysname+1))) ||
  809. !                   isupper (*sysname)) /* a kludge */
  810.           {
  811.               for (x=0;x<strlen(sysname);x++)
  812. !                 if (*(sysname+x) != '.') 
  813. !                     ACsysname[x] = tolower(*(sysname+x));
  814. !                 else ACsysname[x] = '.';
  815.           }
  816.       else
  817.           {
  818.               for (x=0;x<strlen(sysname);x++)
  819. !                 if (*(sysname+x) != '.') 
  820. !                     ACsysname[x] = toupper(*(sysname+x));
  821. !                 else ACsysname[x] = '.';
  822.           }
  823.   
  824.       if (x < NAMESIZ) ACsysname[x] = '\0';
  825. ***************
  826. *** 216,229 ****
  827.       if (gotneighbors != TRUE) getneighbors();
  828.       indx = 0;
  829.   /* is it a neighbor? */
  830. !     while(neighbors[indx] != NULL && *(neighbors[indx]) != '\0'){
  831. !         if(!strcmp(sysname, neighbors[indx]) 
  832. !             || !strcmp(ACsysname,neighbors[indx])){
  833. !                 strcpy(pathname, neighbors[indx]);
  834. !                 strcat(pathname, "!%s");
  835.                   return(EX_OK);
  836.               }
  837. !             indx++;
  838.           }
  839.       }
  840.   /* not a neighbor, let's look in the database */
  841. --- 235,249 ----
  842.       if (gotneighbors != TRUE) getneighbors();
  843.       indx = 0;
  844.   /* is it a neighbor? */
  845. ! /* thanks to smb!dave for the suggested revision */
  846. !     while(sys->s_name){
  847. !         if (!strcmp(sysname,sys->s_name)
  848. !            || !strcmp(ACsysname,sys->s_name)){
  849. !             strcpy(pathname,sys->s_name);
  850. !             strcat(pathname,"!%s");
  851.                   return(EX_OK);
  852.               }
  853. !             sys = sys->s_next;
  854.           }
  855.       }
  856.   /* not a neighbor, let's look in the database */
  857. ***************
  858. *** 397,491 ****
  859.   }
  860.   #endif
  861.   
  862. ! getneighbors()
  863. ! {
  864. !     FILE *ppntr;
  865. !     char * ptr;
  866. !     int x = 0;
  867. !     char n_neigh[16], *calloc();    /* rct */
  868. !     int nelem = 0;            /* rct */
  869.   
  870. !     gotneighbors = TRUE;
  871. ! 
  872. !     /*
  873. !     *  Let's get the number of neighbors we have.
  874. !     *
  875. !     *  Beginning of added code.    --rct
  876. !     */
  877. ! 
  878. !     if((ppntr = popen("uuname | wc -l", "r")) != NULL){
  879. ! #ifdef DEBUG
  880. !         if(Debug > 2)
  881. !             (void)fprintf(stderr, "Starting uuname | wc -l\n");
  882.   #endif
  883.       }
  884. !     else{
  885. !         (void)fprintf(stderr, "Error: popen\(\"uuname | wc -l\"\)\n");
  886. !         exit(1);
  887.       }
  888. !     if((fgets(n_neigh, sizeof(n_neigh), ppntr)) != (char *)0){
  889. !         if((ptr = index(n_neigh, '\n')) != (char *)0)
  890. !             *ptr = '\0';
  891. !     }
  892. !     else{
  893. !         (void)fprintf(stderr, "Error: fgets\(n_neigh\)\n");
  894. !         exit(2);
  895. !     }
  896. ! #ifdef DEBUG
  897. !     if (Debug > 2)
  898. !         (void)fprintf(stderr, "n_neigh = %s\n", n_neigh);
  899. ! #endif
  900. !     (void)pclose(ppntr);
  901. ! 
  902. !     /*
  903. !     *  Allocate storage for neighbors based on n_neigh.
  904. !     *  Assumption being made here is that no system has a name
  905. !     *  longer than 14 characters.  If this assumption ever turns
  906. !     *  out to be wrong, lots of other code will break before this
  907. !     *  does!    --rct
  908. !     */
  909. ! 
  910. !     nelem = atoi(n_neigh) + 2;
  911. ! 
  912. !     if(((neighbors = (char **)calloc((unsigned)nelem,
  913. !         sizeof(char **))) == (char **)0) ||
  914. !         ((n_array = calloc((unsigned)nelem, 15)) == (char *)0)){
  915. !         (void)fprintf(stderr, "Error: getneighbors\(\): calloc\(\)\n");
  916. !         exit(3);
  917. !     }
  918. ! 
  919. !     /*
  920. !     *  Set up pointers.
  921. !     */
  922. ! 
  923. !     for(x = 0; x < nelem; x++)
  924. !         neighbors[x] = &n_array[x * 15];
  925. ! 
  926. !     /*
  927. !     *  Now, let's read them in!
  928. !     *
  929. !     *  End of added code.    --rct
  930. !     */
  931. ! 
  932. !     if ((ppntr = popen("uuname", "r")) != NULL) {
  933. ! #ifdef DEBUG
  934. !         if (Debug>2)
  935. !             (void)fprintf(stderr, "Starting uuname\n");
  936. ! #endif
  937. !         x = 0;
  938. !         while((fgets(neighbors[x], 15, ppntr)) != NULL){
  939. !             if ((ptr = index(neighbors[x], '\n')) != NULL)
  940. !                 *ptr = '\0';
  941. ! #ifdef DEBUG
  942. !             if (Debug>4)
  943. !                 (void) fprintf(stderr, "Neighbor # %d: %s\n",
  944. !                     x + 1, neighbors[x]);
  945. ! #endif
  946. !             x++;
  947. !         }    
  948. !         (void) pclose(ppntr);
  949. !     }
  950. !     strcpy(neighbors[x], Myname);
  951.   }
  952.   
  953.   
  954. --- 417,459 ----
  955.   }
  956.   #endif
  957.   
  958. ! /*
  959. !  * The getneighbors subroutine is
  960. !  * Copyright (C) Dave Settle Thorn-EMI Datasolve Mar 1987
  961. !  * You can do anything with this, except sell it for profit, or remove
  962. !  * this copyright notice. {used by permission -- sob}
  963. !  *
  964. !  * read list of direct connections from "uuname"
  965. !  */
  966. ! getneighbors(){
  967. !     char name[32], *p;
  968. !     struct system *sys = &head;
  969. !     FILE *cmd;
  970. !     int i;
  971. ! /*
  972. !  */
  973.   
  974. !     if((cmd = popen("uuname", "r")) == NULL) {
  975. ! #ifdef notdef
  976. !         perror("uuname");
  977. !         return(EX_NOHOST);    /* we don't really care */
  978. ! #else
  979. !         return;
  980.   #endif
  981.       }
  982. !     while(fgets(name, sizeof name, cmd)) {
  983. !         i = strlen(name);
  984. !         name[i - 1] = '\0'; /* chop off newline */
  985. !         p = malloc(i + 1);
  986. !         strcpy(p, name);
  987. !         sys->s_name = p;        /* store system name */
  988. !         sys->s_next = (struct system *) malloc(sizeof (struct system));
  989. !         sys = sys->s_next;
  990. !         sys->s_name = NULL;
  991. !         sys->s_next = (struct system *) 0;
  992.       }
  993. !     gotneighbors = TRUE;
  994. !     pclose(cmd);
  995.   }
  996.   
  997.   
  998. Index: rmail.c
  999. Prereq: 4.0
  1000. *** /tmp/,RCSt1003977    Wed Mar 18 13:59:22 1987
  1001. --- /tmp/,RCSt2003977    Wed Mar 18 13:59:23 1987
  1002. ***************
  1003. *** 1,5 ****
  1004.   #ifndef lint
  1005. ! static char rcsid[]="$Header: rmail.c,v 4.0 86/11/17 16:02:32 sob Exp $";
  1006.   
  1007.   #endif
  1008.   
  1009. --- 1,5 ----
  1010.   #ifndef lint
  1011. ! static char rcsid[]="$Header: rmail.c,v 4.1 87/03/17 15:49:04 sob Exp $";
  1012.   
  1013.   #endif
  1014.   
  1015. ***************
  1016. *** 44,50 ****
  1017.       register char *cp;
  1018.       register char *uf;    /* ptr into ufrom */
  1019.       int i;
  1020. ! 
  1021.   # ifdef DEBUG
  1022.       if (argc > 1 && strcmp(argv[1], "-T") == 0)
  1023.       {
  1024. --- 44,50 ----
  1025.       register char *cp;
  1026.       register char *uf;    /* ptr into ufrom */
  1027.       int i;
  1028. !         argv[argc] = NULL;
  1029.   # ifdef DEBUG
  1030.       if (argc > 1 && strcmp(argv[1], "-T") == 0)
  1031.       {
  1032.   
  1033.  
  1034.  
  1035.