home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / faces-1.4.5 / patch02 next >
Encoding:
Text File  |  1990-08-16  |  55.5 KB  |  1,726 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v14i052: Official patch #7 for faces v1.4 (part 1 of 2).
  3. from: rburridge@Sun.COM (Rich Burridge)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 14, Issue 52
  7. Submitted-by: rburridge@Sun.COM (Rich Burridge)
  8. Archive-name: faces-1.4.5/patch02
  9.  
  10. [Please don't include this part with the posting].
  11.  
  12. Brandon, could you please post this (and the next message) to 
  13. comp.sources.misc ? I've sent a copy to comp.sources.bugs, but I'd like
  14. the patch to be archived. I apologise for the awful format; I'll do it
  15. the Larry Wall way next time.
  16.  
  17. Thanks.
  18.  
  19. ------CUT HERE------Start of first message------CUT HERE------
  20.  
  21. /** IMPORTANT NOTE: This patch and the new file (mush.xface.patch)
  22.  ** comes in two parts. You should save these two parts, strip off the
  23.  ** initial header (down to and including the CUT HERE lines), and
  24.  ** anything below (and including) the CUT HERE line at the end of each
  25.  ** file. cat the two files together, and unpack with sh. Use Larry Wall's
  26.  ** patch program to apply, and recompile and reinstall.
  27.  **
  28.  ** I apologise for this; I didn't realise the patch was going to be so
  29.  ** big.
  30.  **/
  31.  
  32. This is official patch #7 for faces v1.4; please apply it.
  33. It has also been sent to comp.sources.misc for posting there, and
  34. subsequent archiving.
  35.  
  36. Faces v1.4 was posted to comp.sources.misc about the end of June 1990,
  37. and was already at patchlevel #5. Patch #6 can be obtained via the mail
  38. archive server, by sending a message to rb-archive-server@Aus.Sun.COM
  39. containing the line:
  40.  
  41. send faces patch6
  42.  
  43. Note you might need to include a valid path line in this message, in
  44. order for the mail server to get the patch back to you. Such a line might
  45. be:
  46.  
  47. path uunet.uu.net!hostname!username
  48.  
  49. Rich Burridge,          DOMAIN: richb@Aus.Sun.COM
  50. Sun Microsystems.       ACSNET: richb@sunaus.sun.oz
  51. PHONE: +61 2 413 2666   UUCP:   {uunet,mcvax,ukc}!munnari!sunaus.oz!richb
  52. -------------------------------------------------------------------------
  53.  
  54. Faces v1.4 patch #7 makes the following changes:
  55.  
  56.        * From Chris Steinbroner <hesh@lll-crg.llnl.gov>
  57.          From Bob Posert <psitech.psitech!bob@uunet.UU.NET>
  58.          Incoming mail is not always stored in /usr/spool/mail/username.
  59.          HP-UX and Dell Unix (Interactive 386/ix) store it in
  60.          /usr/mail/username. Another definition (SPOOLDIR), has been added
  61.          to the Makefile. The README file has also been updated.
  62.  
  63.        * From Hugues Leroy <Hugues.Leroy@irisa.fr>
  64.          From Graham Dumpleton <grahamd@otc.otca.oz.au>
  65.          From Peter Chubb <peterc@softway.oz.au>
  66.          From Robert Adams <adams@trim.intel.com>
  67.          The parsefrom() function was not replacing a '\n' at the end of
  68.          a line with '\0' before preceding.
  69.  
  70.        * From Michael Schmidt <michael@uni-paderborn.de>
  71.          The faces window now accepts two more keyboard characters:
  72.             q - to terminate the faces program.
  73.            ^L - to refresh the faces window.
  74.  
  75.        * From Michael Schmidt <michael@uni-paderborn.de>
  76.          Added support for printer monitoring with the PLP printer
  77.          spooling system. Another definition (PLP) has been added to
  78.          the Makefile. The README file has been updated.
  79.  
  80.        * From Chris Steinbroner <hesh@lll-crg.llnl.gov>
  81.          Diffs included to allow faces to run under HP-UX.
  82.  
  83.        * From Robert Adams <adams@trim.intel.com>
  84.          Changed the SYSV definition to SYSV32 because I work with both
  85.          System V.3.2.2 and System V.4.0 from AT&T and they need different
  86.          defines.
  87.  
  88.        * From Robert Adams <adams@trim.intel.com>
  89.          Added -bg and -fg to the parameter string and modified x11.c
  90.          to set the background and foreground colors. Currently this is
  91.          only available with the X11 graphics driver.
  92.  
  93.        * From Robert Adams <adams@trim.intel.com>
  94.          people.tab now accepts the syntax "aliascomm/alias=comm/name"
  95.          to map a whole name (this is one of the TODO points).
  96.          It still accepts the old syntax. As a side effect, the
  97.          people.tab and machine.tab routines were re-written to be
  98.          better parsers and are now forgiving of white space.
  99.  
  100.        * From Robert Adams <adams@trim.intel.com>
  101.          make_iconname was rewritten to get rid of the cut and paste
  102.          code and now is a gaggle of 'for' loops.
  103.  
  104.        * From Robert Adams <adams@trim.intel.com>
  105.          From Michael Schmidt <michael@uni-paderborn.de>
  106.          The domain name parsing code in make_iconname was not working.
  107.          The problem was that the 'old_style' code 'goto'ed out of the
  108.          middle of the domain breakdown loop thus defeating same.
  109.  
  110.        * From Robert Adams <adams@trim.intel.com>
  111.          The code for building the name for people.tab and machine.tab was
  112.          broken if an alternate directory ("-f") was specified (changes
  113.          in rec.c in read_alias and read_machines).
  114.  
  115.        * From Robert Adams <adams@trim.intel.com>
  116.          If 'host' does not appear in an RFC822 address, the code would
  117.          assume "LOCAL".  The code has been fixed to assume 'hostname'
  118.          instead (fix to parsefrom.c).
  119.  
  120.        * From Robert Adams <adams@trim.intel.com>
  121.          There was a strange bug that would cause icons on the end of the
  122.          list (after entries were deleted) to get mangled.  This usually
  123.          showed up as the NOMAIL icon not being shown but garbage being
  124.          shown instead.  The problem was that in 'garbage_collect', there
  125.          was a local variable 'last' that was hidding the global variable
  126.          of the same name and thus the global was not getting updated
  127.  
  128.        * From Pat Lashley <patl@Sun.COM>
  129.          Added code to use the Domain Name Service to attempt to convert
  130.          unqualified hostnames, or hostnames with partial domains to fully
  131.          qualified domain names. Another definition (DNSLOOKUP) has been
  132.          added to the Makefile. The README file has been updated.
  133.  
  134.        * From Pat Lashley <patl@Sun.COM>
  135.          When no icon is found for a given user, the unknown icon may be
  136.          displayed either with the user name, or labeled as `unknown'.
  137.          The former case provides the most information, the latter allows
  138.          all unknown users within a given community to be lumped into a
  139.          single image. Another definition (NAMEUNKNOWN) has been added to
  140.          the Makefile. The README file has been updated.
  141.  
  142.        * From Pat Lashley <patl@Sun.COM>
  143.          Support is now included for multiple face directories. Faces
  144.          will search for the environment variable FACEPATH, and use this
  145.          as a list of colon separated face directories. See the manual
  146.          page for more details.
  147.  
  148.        * Official support for X-Face lines was not included with patch #2
  149.          to mush v7.1. Dan and Bart suggested that instead, a new file
  150.          (mush.xface.patch) should be included with the faces distribution
  151.          which in an unofficial patch to mush v7.1.2, to allow that X-Face
  152.          support. The README, MANIFEST and FILES files have been updated.
  153.  
  154.        * From Rod Whitby <rwhitby@austek.oz.au>
  155.          faces v.1.4.6 dumps core when the following message (cut down to the
  156.          smallest case) is in my mail box. This was a case of a valid X-Face:
  157.          being followed by a line starting with the word "X-Face ". Faces now
  158.          searches for "X-Face:" rather than "X-Face". This really needs to be
  159.          tightened up some more.
  160.  
  161. It introduces the following file:
  162.  
  163.        * mush.xface.patch  - unofficial patch to apply to Mush v7.1.2 to get
  164.                              X-Face: support.
  165.  
  166. ------CUT HERE------CUT HERE------CUT HERE------CUT HERE------
  167. #! /bin/sh
  168. # this is a shell archive, meaning:
  169. # 1. Remove everything above the #! /bin/sh line
  170. # 2. Save the resulting text in a file.
  171. # 3. Execute the file with /bin/sh to create the files:
  172. #    mush.xface.patch
  173. #    patch.7
  174. # This archive created: Tue Aug 14 07:22:29 EST 1990
  175. #
  176. #
  177. export PATH; PATH=/bin:$PATH
  178. #
  179. if [ -f mush.xface.patch ]
  180. then
  181. echo shar: will not over-write existing file mush.xface.patch
  182. else
  183. echo shar: extracting 'mush.xface.patch',     3336 characters
  184. cat > mush.xface.patch <<'Funky_Stuff'
  185. *** Mushrc.orig    Mon Aug  6 11:32:57 1990
  186. --- Mushrc    Mon Aug  6 11:33:22 1990
  187. ***************
  188. *** 29,35 ****
  189.   set newline
  190.   
  191.   # When reading messages, don't bother looking at lengthy, boring headers.
  192. ! ignore message-id received via status
  193.   
  194.   # Since mush has csh-like history, you might find it annoying to type
  195.   # things like "mail host\!host1\!host2\!user" from within the mush shell.
  196. --- 29,35 ----
  197.   set newline
  198.   
  199.   # When reading messages, don't bother looking at lengthy, boring headers.
  200. ! ignore message-id received via status X-Face
  201.   
  202.   # Since mush has csh-like history, you might find it annoying to type
  203.   # things like "mail host\!host1\!host2\!user" from within the mush shell.
  204. *** init.c.orig    Mon Aug  6 07:57:54 1990
  205. --- init.c    Mon Aug  6 08:01:10 1990
  206. ***************
  207. *** 12,20 ****
  208. --- 12,23 ----
  209.   #include <sys/utsname.h>
  210.   #endif /* SYSV */
  211.   
  212. + char facebuf[1024];    /* For possible compressed X-Face: image. */
  213. + 
  214.   void
  215.   init()
  216.   {
  217. +     FILE        *fp;
  218.       char         *home, *realname, *argv[4];
  219.       extern char        *getlogin();
  220.       char        buf[MAXPATHLEN];
  221. ***************
  222. *** 135,140 ****
  223. --- 138,153 ----
  224.       argv[0] = "hostname";
  225.       argv[2] = buf;
  226.       (void) add_option(&set_options, argv);
  227. +     }
  228. + 
  229. +     (void) sprintf(buf, "%s/.face", home);
  230. +     if (fp = fopen(buf, "r")) {
  231. +     facebuf[0] = '\0';
  232. +     while (fgets(buf, BUFSIZ, fp) != NULL) {
  233. +         if (facebuf[0] != '\0')
  234. +         (void) strcat(facebuf, "\t");
  235. +         (void) strcat(facebuf, buf);
  236. +     }
  237.       }
  238.   
  239.       init_bindings();
  240. *** config.h-dist.orig    Mon Aug  6 11:38:03 1990
  241. --- config.h-dist    Mon Aug  6 11:39:53 1990
  242. ***************
  243. *** 104,110 ****
  244.   /* #define PICKY_MAILER /**/
  245.   
  246.   /* Headers that will NOT be included when forwarding mail */
  247. ! #define IGNORE_ON_FWD    "status"    /* comma or space separated list */
  248.   
  249.   #define    MAXMSGS        1000    /* maximum number of messages we can read */
  250.   #define HDRSIZ BUFSIZ    /* This should not be < BUFSIZ! (but can be >) */
  251. --- 104,110 ----
  252.   /* #define PICKY_MAILER /**/
  253.   
  254.   /* Headers that will NOT be included when forwarding mail */
  255. ! #define IGNORE_ON_FWD    "status,X-Face"    /* comma or space separated list */
  256.   
  257.   #define    MAXMSGS        1000    /* maximum number of messages we can read */
  258.   #define HDRSIZ BUFSIZ    /* This should not be < BUFSIZ! (but can be >) */
  259. *** mail.c.orig    Mon Aug  6 07:58:05 1990
  260. --- mail.c    Mon Aug  6 09:02:27 1990
  261. ***************
  262. *** 1491,1496 ****
  263. --- 1491,1497 ----
  264.       int i, for_editor = (fp == NULL_FILE);
  265.       int got_date = for_editor, got_from = for_editor;
  266.       struct options *opts;
  267. +     extern char facebuf[];
  268.   
  269.       if (for_editor && hfile) {
  270.       i = file_to_fp(hfile, files[0], "r");
  271. ***************
  272. *** 1654,1659 ****
  273. --- 1655,1661 ----
  274.               !lcase_strncmp(p, "bcc:", 4) ||
  275.               !lcase_strncmp(p, "fcc:", 4) ||
  276.               !lcase_strncmp(p, "x-mailer:", 9) ||
  277. +             !lcase_strncmp(p, "x-face:", 7) ||
  278.               !lcase_strncmp(p, "status:", 7))
  279.               print_hdr = FALSE;
  280.           else if (!lcase_strncmp(p, "date:", 5))
  281. ***************
  282. *** 1720,1725 ****
  283. --- 1722,1729 ----
  284.   #ifdef PICKY_MAILER
  285.       }
  286.   #endif /* PICKY_MAILER */
  287. +     if (facebuf != NULL)
  288. +         (void) fprintf(files[i], "X-Face: %s", facebuf);
  289.       (void) fprintf(files[i], "X-Mailer: %s\n", check_internal("version"));
  290.       (void) fprintf(files[i], "%sTo: %s\n",
  291.           ison(flags, FORWARD) ? "Resent-" : "", To);
  292. Funky_Stuff
  293. len=`wc -c < mush.xface.patch`
  294. if [ $len !=     3336 ] ; then
  295. echo error: mush.xface.patch was $len bytes long, should have been     3336
  296. fi
  297. fi # end of overwriting check
  298. if [ -f patch.7 ]
  299. then
  300. echo shar: will not over-write existing file patch.7
  301. else
  302. echo shar: extracting 'patch.7',   101860 characters
  303. cat > patch.7 <<'Funky_Stuff'
  304.  
  305. ------- get.c -------
  306. *** /tmp/da09664    Tue Aug 14 07:20:14 1990
  307. --- get.c    Wed Aug  8 17:45:12 1990
  308. ***************
  309. *** 15,21 ****
  310. --- 15,25 ----
  311.    */
  312.   
  313.   #include <stdio.h>
  314. + #ifdef SYSV32 || hpux
  315. + #include <string.h>
  316. + #else
  317.   #include <strings.h>
  318. + #endif /* SYSV32 || hpux */
  319.   #include <pwd.h>
  320.   #include <ctype.h>
  321.   #include "faces.h"
  322. ***************
  323. *** 136,143 ****
  324. --- 140,154 ----
  325.   int argc ;
  326.   char *argv[] ;
  327.   {
  328. +   char *faceenv ;
  329.     char next[MAXLINE] ;    /* The next command line parameter. */
  330. +   char *pptr ;
  331. +   int i ;
  332.   
  333. +   faceenv = getenv("FACEPATH") ;
  334. +   if (faceenv) STRCPY(facedirs, faceenv) ;
  335. +   else facedirs[0] = (char) NULL ;
  336. + 
  337.     INC ;
  338.     while (argc > 0)
  339.       {
  340. ***************
  341. *** 159,165 ****
  342.                          break ;
  343.               case 'a' : mtype = MONALL ;    /* Monitor all of the spoolfile. */
  344.                          break ;
  345. !             case 'b' : INC ;               /* Alternate background pattern. */
  346.                          getparam(bgicon, argv, "-b needs background icon") ;
  347.                          break ;
  348.               case 'c' : INC ;               /* Number of columns. */
  349. --- 170,182 ----
  350.                          break ;
  351.               case 'a' : mtype = MONALL ;    /* Monitor all of the spoolfile. */
  352.                          break ;
  353. !             case 'b' : if (argv[0][2] == 'g')
  354. !                          {
  355. !                            INC ;           /* Background color. */
  356. !                            getparam(bgcolor, argv, "-bg specifies background color") ;
  357. !                            break ;
  358. !                          }
  359. !                        INC ;               /* Alternate background pattern. */
  360.                          getparam(bgicon, argv, "-b needs background icon") ;
  361.                          break ;
  362.               case 'c' : INC ;               /* Number of columns. */
  363. ***************
  364. *** 177,184 ****
  365.                          INC ;
  366.                          getparam(userprog, argv, "-e needs user program") ;
  367.                          break ;
  368. !             case 'f' : INC ;               /* New directory for face icons. */
  369. !                        getparam(facedir, argv, "-f needs face directory") ;
  370.                          break ;
  371.               case 'g' : INC ;               /* X11 geometry information. */
  372.                          getparam(geometry, argv,
  373. --- 194,207 ----
  374.                          INC ;
  375.                          getparam(userprog, argv, "-e needs user program") ;
  376.                          break ;
  377. !             case 'f' : if (argv[0][2] == 'g')
  378. !                          {
  379. !                            INC ;           /* Background color. */
  380. !                            getparam(fgcolor, argv, "-fg specifies foreground color") ;
  381. !                            break ;
  382. !                          }
  383. !                        INC ;               /* New directory for face icons. */
  384. !                        getparam(facedirs, argv, "-f needs face directory path") ;
  385.                          break ;
  386.               case 'g' : INC ;               /* X11 geometry information. */
  387.                          getparam(geometry, argv,
  388. ***************
  389. *** 276,281 ****
  390. --- 299,324 ----
  391.             }
  392.         INC ;
  393.       }
  394. + 
  395. + /* Parse the face path from the parameter line... */
  396. + 
  397. +   for (i = 0, pptr = facedirs; pptr && (i <= MAXPATHS); i++)
  398. +     {
  399. +       if ((*pptr == ':') || (*pptr == (char) NULL))
  400. +         {
  401. + 
  402. + /* Null entry in face path means insert compiled-in default. */
  403. + 
  404. +           facepath[i] = FACEDIR ;
  405. +           if (*(pptr++) == (char) NULL) break ;
  406. +         }
  407. +       else
  408. +         {
  409. +           facepath[i] = pptr ;
  410. +           pptr = index(pptr, ':') ;
  411. +           if (pptr) *(pptr++) = (char) NULL ;
  412. +         }
  413. +     }
  414.   }
  415.   
  416.   
  417. ***************
  418. *** 492,498 ****
  419.   usage()      /* Print faces usage message. */
  420.   {
  421.     FPRINTF(stderr, "Usage: %s [-MH] [-P printer] [-Wi] [-Wp x y] ", progname) ;
  422. !   FPRINTF(stderr, "[-WP x y] [-b background] [-d display] [-f facedir] ") ;
  423.     FPRINTF(stderr, "[-g geometry] [-i] [-n] [-p period] [-s spoolfile] [-u] ") ;
  424.     FPRINTF(stderr, "[-t] [-v]\n") ;
  425.   }
  426. --- 535,542 ----
  427.   usage()      /* Print faces usage message. */
  428.   {
  429.     FPRINTF(stderr, "Usage: %s [-MH] [-P printer] [-Wi] [-Wp x y] ", progname) ;
  430. !   FPRINTF(stderr, "[-WP x y] [-b background] [-bg background_color] ") ;
  431. !   FPRINTF(stderr, "[-d display] [-f facepath] [-fg foreground_color] ") ;
  432.     FPRINTF(stderr, "[-g geometry] [-i] [-n] [-p period] [-s spoolfile] [-u] ") ;
  433.     FPRINTF(stderr, "[-t] [-v]\n") ;
  434.   }
  435.  
  436. ------- main.c -------
  437. *** /tmp/da09667    Tue Aug 14 07:20:15 1990
  438. --- main.c    Sat Aug  4 23:35:02 1990
  439. ***************
  440. *** 17,31 ****
  441.    */
  442.   
  443.   #include <stdio.h>
  444. ! #ifdef SYSV
  445.   #include <string.h>
  446.   #else
  447.   #include <strings.h>
  448. ! #endif /*SYSV*/
  449.   #include <sys/types.h>
  450.   #include <sys/stat.h>
  451.   #include <netdb.h>
  452.   
  453.   #ifdef NISLOOKUP
  454.   #include <rpcsvc/ypclnt.h>
  455.   #endif /*NISLOOKUP*/
  456. --- 17,37 ----
  457.    */
  458.   
  459.   #include <stdio.h>
  460. ! #ifdef SYSV32 || hpux
  461.   #include <string.h>
  462.   #else
  463.   #include <strings.h>
  464. ! #endif /* SYSV32 || hpux */
  465.   #include <sys/types.h>
  466.   #include <sys/stat.h>
  467.   #include <netdb.h>
  468. + #include <ctype.h>
  469.   
  470. + #ifdef DNSLOOKUP
  471. + #include <sys/socket.h>
  472. + #include <netdb.h>
  473. + #endif /*DNSLOOKUP*/
  474. + 
  475.   #ifdef NISLOOKUP
  476.   #include <rpcsvc/ypclnt.h>
  477.   #endif /*NISLOOKUP*/
  478. ***************
  479. *** 72,77 ****
  480. --- 78,84 ----
  481.   enum gr_type gtype ;                /* Which graphics system is being used. */
  482.   enum mon_type mtype = MONNEW ;      /* Type of monitoring operation to do. */
  483.   
  484. + char bgcolor[MAXLINE] ;          /* X11 background color. */
  485.   char bgicon[MAXLINE] ;           /* Alternate background pattern. */
  486.   char community[MAXLINE] ;        /* Community name ("real" host name). */
  487.   char defdir[MAXLINE] ;           /* The default face directory. */
  488. ***************
  489. *** 81,87 ****
  490.   char face_host[MAXLINE] ;   /* Pointer to host name from the "From" line. */
  491.   char face_ts[MAXLINE] ;     /* Pointer to time stamp from the "From" line. */
  492.   char face_user[MAXLINE] ;   /* Pointer to user name from the "From" line. */
  493. ! char facedir[MAXLINE] ;          /* Alternate face image directory. */
  494.   char fname[MAXTYPES][MAXLINE] ;  /* Array of various face name types. */
  495.   char geometry[MAXLINE] ;         /* X11 geometry information. */
  496.   char hostcommunity[MAXLINE] ;    /* The community of the host machine */
  497. --- 88,96 ----
  498.   char face_host[MAXLINE] ;   /* Pointer to host name from the "From" line. */
  499.   char face_ts[MAXLINE] ;     /* Pointer to time stamp from the "From" line. */
  500.   char face_user[MAXLINE] ;   /* Pointer to user name from the "From" line. */
  501. ! char facedirs[MAXLINE] ;    /* Colon separated list of face directories. */
  502. ! char *facepath[MAXPATHS+1] ;     /* Array of face image directories. */
  503. ! char fgcolor[MAXLINE] ;          /* X11 foreground color. */
  504.   char fname[MAXTYPES][MAXLINE] ;  /* Array of various face name types. */
  505.   char geometry[MAXLINE] ;         /* X11 geometry information. */
  506.   char hostcommunity[MAXLINE] ;    /* The community of the host machine */
  507. ***************
  508. *** 93,98 ****
  509. --- 102,108 ----
  510.   char peopfile[MAXLINE] ;    /* Name of the people/username file. */
  511.   char printer[MAXLINE] ;     /* Printer name to monitor. */
  512.   char progname[MAXLINE] ;    /* Name of this program. */
  513. + char realcomm[MAXLINE] ;    /* Real community for this user. */
  514.   char realname[MAXLINE] ;    /* Real username for this user. */
  515.   char spoolfile[MAXLINE] ;   /* Full pathname of users current mail. */
  516.   char update_alias[MAXLINE] ;   /* Name of mail alias for database updates. */
  517. ***************
  518. *** 137,142 ****
  519. --- 147,153 ----
  520.   int period = 60 ;   /* Period in seconds for new mail check. */
  521.   int posspec = 0 ;   /* Set if -Wp or -g option is present (for X11) */
  522.   int row ;           /* Row number for next icon. */
  523. + int toclear = 0 ;   /* Set if faces memory area needs clearing. */
  524.   int update = 0 ;    /* If set, send mail to update faces database. */
  525.   int width ;         /* Width in pixels of faces display. */
  526.   int wx = 0 ;        /* Initial X position of the window. */
  527. ***************
  528. *** 220,230 ****
  529.    */
  530.   
  531.     {
  532. !     struct hostent *hp ;
  533.       char hostname[MAXLINE] ;
  534.   
  535.       GETHOSTNAME(hostname, MAXLINE) ;
  536. !     hp = gethostbyname (hostname) ;
  537.       if (hp != NULL) STRCPY(hostname, hp->h_name) ;
  538.       h_to_c(hostname, hostcommunity) ;
  539.     }
  540. --- 231,243 ----
  541.    */
  542.   
  543.     {
  544. !     struct hostent *hp = NULL ;
  545.       char hostname[MAXLINE] ;
  546.   
  547.       GETHOSTNAME(hostname, MAXLINE) ;
  548. ! #ifndef SYSV32
  549. !     hp = gethostbyname(hostname) ;
  550. ! #endif /*SYSV32*/
  551.       if (hp != NULL) STRCPY(hostname, hp->h_name) ;
  552.       h_to_c(hostname, hostcommunity) ;
  553.     }
  554. ***************
  555. *** 233,241 ****
  556.     {
  557.       struct machinfo *temp ;
  558.   
  559. !     yp_get_default_domain (&hostdomain) ;
  560.       STRCPY(domaincommunity, hostdomain) ;
  561.   
  562.   /*  We can't call h_to_c() to setup the default because it expects
  563.    *  it to be set already; so we grovel through the machine/community
  564.    *  association list directly.
  565. --- 246,257 ----
  566.     {
  567.       struct machinfo *temp ;
  568.   
  569. !     yp_get_default_domain(&hostdomain) ;
  570.       STRCPY(domaincommunity, hostdomain) ;
  571.   
  572. +     IF_DEBUG( FPRINTF(stderr, "main: NIS community is `%s`\n",
  573. +                       domaincommunity) ) ;
  574. + 
  575.   /*  We can't call h_to_c() to setup the default because it expects
  576.    *  it to be set already; so we grovel through the machine/community
  577.    *  association list directly.
  578. ***************
  579. *** 242,253 ****
  580.    */
  581.   
  582.       for (temp = machines; temp != NULL; temp = temp->next)
  583. !       if (strcmp(temp->machine, domaincommunity) == 0)
  584. !         {
  585. !           STRCPY(domaincommunity, temp->community) ;
  586. !           break ;
  587. !         }
  588.   
  589.       IF_DEBUG( FPRINTF(stderr, "main: domain community is `%s`\n",
  590.                         domaincommunity) ; )
  591.     }
  592. --- 258,273 ----
  593.    */
  594.   
  595.       for (temp = machines; temp != NULL; temp = temp->next)
  596. !      if (!strcmp(temp->machine, domaincommunity))
  597. !        {
  598. !          char *str ;
  599.   
  600. +          STRCPY(domaincommunity, temp->community) ;
  601. +          for (str = community;  *str;  str++)
  602. +            if (isascii(*str) && isupper(*str)) *str = tolower(*str) ;
  603. +          break ;
  604. +        }
  605. + 
  606.       IF_DEBUG( FPRINTF(stderr, "main: domain community is `%s`\n",
  607.                         domaincommunity) ; )
  608.     }
  609. ***************
  610. *** 260,273 ****
  611.   }
  612.   
  613.   
  614. ! a_to_u(community, user, realname)    /* Turn possible alias into username. */
  615. ! char *community, *user, *realname ;
  616.   {
  617.     struct comminfo *ctemp ;
  618.     struct peopinfo *ptemp ;
  619.   
  620. !   STRCPY(realname, user) ;      /* In case alias not found. */
  621. !   ctemp = communities ;         /* Point to chain of communities. */
  622.     while (ctemp != NULL)
  623.       if (!strcmp(ctemp->community, community))
  624.         {
  625. --- 280,296 ----
  626.   }
  627.   
  628.   
  629. ! /* Turn possible alias into username. */
  630. ! 
  631. ! a_to_u(community, user, realcomm, realname)
  632. ! char *community, *user, *realcomm, *realname ;
  633.   {
  634.     struct comminfo *ctemp ;
  635.     struct peopinfo *ptemp ;
  636.   
  637. !   STRCPY(realname, user) ;         /* In case alias not found. */
  638. !   STRCPY(realcomm, community) ;    /* In case alias not found. */
  639. !   ctemp = communities ;            /* Point to chain of communities. */
  640.     while (ctemp != NULL)
  641.       if (!strcmp(ctemp->community, community))
  642.         {
  643. ***************
  644. *** 276,281 ****
  645. --- 299,305 ----
  646.             if (!strcmp(ptemp->alias, user))
  647.               {
  648.                 STRCPY(realname, ptemp->username) ;
  649. +               STRCPY(realcomm, ptemp->community) ;
  650.                 return ;
  651.               }
  652.             else ptemp = ptemp->next ;
  653. ***************
  654. *** 287,295 ****
  655.   
  656.   initialise()
  657.   {
  658. !   STRCPY(facedir, "") ;       /* No alternate face directory by default. */
  659.     STRCPY(display, "") ;       /* X11 display type. */
  660.     STRCPY(geometry, "") ;      /* X11 geometry information. */
  661.   
  662.   #ifdef FBMONTYPE
  663.     mtype = FBMONTYPE ;         /* Type of monitoring to do. */
  664. --- 311,325 ----
  665.   
  666.   initialise()
  667.   {
  668. !   int i ;
  669. ! 
  670. !   facepath[0] = FACEDIR ;    /* Default path is single built-in directory. */
  671. !   for (i = 1;  i <= MAXPATHS;  i++) facepath[i] = (char *) NULL ;
  672. ! 
  673.     STRCPY(display, "") ;       /* X11 display type. */
  674.     STRCPY(geometry, "") ;      /* X11 geometry information. */
  675. +   STRCPY(fgcolor, "") ;       /* X11 foreground information. */
  676. +   STRCPY(bgcolor, "") ;       /* X11 background information. */
  677.   
  678.   #ifdef FBMONTYPE
  679.     mtype = FBMONTYPE ;         /* Type of monitoring to do. */
  680. ***************
  681. *** 301,315 ****
  682.     STRCPY(bgicon, "") ;                  /* Default is to use root gray. */
  683.   #endif /*BACKGROUND*/
  684.   
  685. - #ifdef FACEDIR
  686. -   STRCPY(defdir, FACEDIR) ;            /* Different directory for face icons. */
  687. - #else
  688. -   STRCPY(defdir,"/usr/local/faces") ;  /* Directory for face icons. */
  689. - #endif /*FACEDIR*/
  690. - 
  691. -   SPRINTF(machfile, "%s/%s", defdir, MACHINETAB) ;
  692. -   SPRINTF(peopfile, "%s/%s", defdir, PEOPLETAB) ;
  693. - 
  694.   #ifdef INVERT
  695.     invert = 1 ;               /* Display in reverse video. */
  696.   #endif /*INVERT*/
  697. --- 331,336 ----
  698. ***************
  699. *** 329,335 ****
  700. --- 350,360 ----
  701.     else
  702.       {
  703.         username = getname() ;     /* Get users name from passwd entry. */
  704. + #ifdef SPOOLDIR
  705. +       SPRINTF(spoolfile, "%s/%s", SPOOLDIR, username) ;
  706. + #else
  707.         SPRINTF(spoolfile, "/usr/spool/mail/%s", username) ;
  708. + #endif /*SPOOLDIR*/
  709.       }
  710.   #endif /*SPOOLFILE*/
  711.   
  712. ***************
  713. *** 380,385 ****
  714. --- 405,442 ----
  715.           return ;
  716.         }
  717.   
  718. + #ifdef DNSLOOKUP
  719. +   {
  720. +     char *str ;
  721. +     struct hostent *found = gethostbyname(community) ;
  722. +  
  723. +     if (found)
  724. +       {
  725. +          IF_DEBUG( FPRINTF(stderr, "DNSLOOKUP found %s as %s\n",
  726. +                            community, found->h_name) ) ;
  727. +          STRCPY(community, found->h_name) ;
  728. + 
  729. +          for (str = community;  *str;  str++)
  730. +            if (isascii(*str) && isupper(*str)) *str = tolower(*str) ;
  731. +        
  732. + /* Grovel through the machine/community association list again
  733. +  * to allow domains to be aliases.
  734. +  */
  735. + 
  736. +          for (temp = machines; temp != NULL; temp = temp->next)
  737. +            if (!strcmp(temp->machine, community))
  738. +              {
  739. +                STRCPY(community, temp->community) ;
  740. +                IF_DEBUG( FPRINTF(stderr,
  741. +                          "h_to_c(): machine `%s` found in community '%s'\n",
  742. +                          temp->machine, community) ; )
  743. +                return ;
  744. +              }
  745. +          return ;
  746. +       }
  747. +   }
  748. + #endif /*DNSLOOKUP*/
  749. + 
  750.   #ifdef NISLOOKUP
  751.   
  752.   /*  yp_match() returns zero on success. We will treat any failure as
  753. ***************
  754. *** 389,412 ****
  755.     yp_err = yp_match(hostdomain, "hosts.byname",
  756.                       host, strlen(host), &hostinfo, &len) ;
  757.   
  758. -   if (yp_err == 0)
  759. -     {
  760. - 
  761.   /* We aren't interested in the value returned, only whether the key
  762.    * was found...
  763.    */
  764.   
  765.         STRCPY(community, domaincommunity) ;
  766. !       IF_DEBUG( FPRINTF(stderr, "NISlookup: found %s\n", host) ; )
  767.       }
  768. !   IF_DEBUG( else FPRINTF(stderr, "NISlookup: Error %d\n", yp_err) ; )
  769. !   IF_DEBUG( FPRINTF(stderr, "h_to_c(): community = '%s'\n", community) ; )
  770.   #endif /*NISLOOKUP*/
  771.   }
  772.   
  773.   
  774. ! make_iconname(facedir, community, user)    /* Construct the icon name. */
  775. ! char *facedir, *community, *user ;
  776.   {
  777.   
  778.   /*  Sets up community and user based on the first successful
  779. --- 446,478 ----
  780.     yp_err = yp_match(hostdomain, "hosts.byname",
  781.                       host, strlen(host), &hostinfo, &len) ;
  782.   
  783.   /* We aren't interested in the value returned, only whether the key
  784.    * was found...
  785.    */
  786.   
  787. +   if (yp_err == 0)
  788. +     {
  789. +       char *str ;
  790. + 
  791.         STRCPY(community, domaincommunity) ;
  792. !       for (str = community;  *str;  str++)
  793. !         if (isascii(*str) && isupper(*str)) *str = tolower(*str) ;
  794. !  
  795. ! /* Don't bother checking for domaincommunity in the machines
  796. !  * alias list - that should have been done when the variable
  797. !  * was initialized.
  798. !  */
  799. !  
  800. !       IF_DEBUG( FPRINTF(stderr, "NISlookup: found %s\n", host) ) ;
  801.       }
  802. !   IF_DEBUG( else FPRINTF(stderr, "NISlookup: Error %d\n", yp_err) ) ;
  803. !   IF_DEBUG( FPRINTF(stderr, "h_to_c(): community = '%s'\n", community) ) ;
  804.   #endif /*NISLOOKUP*/
  805.   }
  806.   
  807.   
  808. ! make_iconname(facepath, community, user)    /* Construct the icon name. */
  809. ! char *facepath[MAXPATHS+1], *community, *user ;
  810.   {
  811.   
  812.   /*  Sets up community and user based on the first successful
  813. ***************
  814. *** 417,647 ****
  815.    *  $(FACEDIR)/community/unknown/[face.ps, sun.icon, 48x48x1, face.xbm]
  816.    *  $(FACEDIR)/misc./unknown/[face.ps, sun.icon, 48x48x1, face.xbm]
  817.    *
  818. !  *  Firstly a check is made for the "old" style; first in a possible
  819. !  *  alternate face directory, then in the default directory. This is
  820. !  *  where the username is not a directory but the ikon in 48x48x1
  821. !  *  format.
  822.    *
  823.    *  If none of these are found, the "blank face" is returned.
  824.    */
  825.   
  826. !   char *cptr ;
  827. !   int i ;
  828.   
  829.     old_style = 0 ;     /* Reset before checking this face. */
  830.   
  831.     IF_DEBUG( FPRINTF(stderr, "make_iconname: %s[%s] ", community, user) ; )
  832.     
  833. !   if (strlen(facedir))
  834. !     for (cptr = community; cptr != NULL; cptr = index(cptr, '.'))
  835. !       for (i = -1; i < maxtypes; i++)
  836. !         {
  837. !           if (*cptr == '.') cptr++ ;
  838. !           if (i < 0)
  839. !             {
  840. !               SPRINTF(iconname, "%s/%s/%s", facedir, cptr, user) ;
  841. !               if (stat(iconname, &buf) == -1) goto mi1 ;
  842. !               if ((buf.st_mode & S_IFMT) == S_IFREG)
  843. !                 {
  844. !                   old_style = 1 ;
  845. !                   IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  846. !                   return 1 ;
  847. !                 }
  848. !             }
  849. !           else
  850. !             {
  851. !               SPRINTF(iconname, "%s/%s/%s/%s", facedir, cptr, user, fname[i]) ;
  852. !               if (stat(iconname, &buf) != -1)
  853. !                 {
  854. !                   IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  855. !                   return 1 ;
  856. !                 }
  857. !             }
  858. !         }
  859. ! 
  860. ! mi1:
  861. !   for (cptr = community; cptr != NULL; cptr = index(cptr, '.'))
  862. !     for (i = -1; i < maxtypes; i++)
  863. !       {
  864. !         if (*cptr == '.') cptr++ ;
  865. !         if (i < 0)
  866.             {
  867. !             SPRINTF(iconname, "%s/%s/%s", defdir, cptr, user) ;
  868. !             if (stat(iconname, &buf) == -1) goto mi2 ;
  869. !             if ((buf.st_mode & S_IFMT) == S_IFREG)
  870. !               {    
  871. !                 IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  872. !                 old_style = 1 ;
  873. !                 return 1 ;
  874. !               }
  875. !           } 
  876. !         else
  877. !           {
  878. !             SPRINTF(iconname, "%s/%s/%s/%s", defdir, cptr, user, fname[i]) ;
  879.               if (stat(iconname, &buf) != -1)
  880. -               {
  881. -                 IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  882. -                 return 1 ;
  883. -               }
  884. -           }
  885. -       }
  886. -  
  887. - mi2:
  888. -   if (strlen(facedir))
  889. -     for (i = -1; i < maxtypes; i++)
  890. -       if (i < 0)
  891. -         {
  892. -           SPRINTF(iconname, "%s/misc./%s", facedir, user) ;
  893. -           if (stat(iconname, &buf) == -1) goto mi3 ;
  894. -           if ((buf.st_mode & S_IFMT) == S_IFREG)
  895. -             {
  896. -               IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  897. -               old_style = 1 ;
  898. -               return 1 ;
  899. -             }
  900. -         }    
  901. -       else
  902. -         { 
  903. -           SPRINTF(iconname, "%s/misc./%s/%s", facedir, user, fname[i]) ;
  904. -           if (stat(iconname, &buf) != -1)
  905. -             {
  906. -               if (!x_face) STRCPY(community, "misc.") ;
  907. -               IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  908. -               return 1 ;
  909. -             }
  910. -         }
  911. - 
  912. - mi3:
  913. -   for (i = -1; i < maxtypes; i++)
  914. -     if (i < 0)
  915. -       {
  916. -         SPRINTF(iconname, "%s/misc./%s", defdir, user) ;
  917. -         if (stat(iconname, &buf) == -1) goto mi4 ;
  918. -         if ((buf.st_mode & S_IFMT) == S_IFREG)
  919. -           {
  920. -             IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  921. -             old_style = 1 ;
  922. -             return 1 ;
  923. -           }
  924. -       }    
  925. -     else
  926. -       {
  927. -         SPRINTF(iconname, "%s/misc./%s/%s", defdir, user, fname[i]) ;
  928. -         if (stat(iconname, &buf) != -1)
  929. -           {
  930. -             IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  931. -             if (!x_face) STRCPY(community, "misc.") ;
  932. -             return 1 ;
  933. -           }
  934. -       }
  935. -  
  936. - mi4:
  937. -   if (strlen(facedir))
  938. -     for (cptr = community; cptr != NULL; cptr = index(cptr, '.'))
  939. -       for (i = -1; i < maxtypes; i++)
  940. -         {
  941. -           if (*cptr == '.') cptr++ ;
  942. -           if (i < 0)
  943. -             {
  944. -               SPRINTF(iconname, "%s/%s/unknown", facedir, cptr) ;
  945. -               if (stat(iconname, &buf) == -1) goto mi5 ;
  946.                 if ((buf.st_mode & S_IFMT) == S_IFREG)
  947. -                 {    
  948. -                   IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  949. -                   old_style = 1 ;
  950. -                   return 1 ;
  951. -                 }
  952. -             } 
  953. -           else
  954. -             {
  955. -               SPRINTF(iconname, "%s/%s/unknown/%s", facedir, cptr, fname[i]) ;
  956. -               if (stat(iconname, &buf) != -1)
  957.                   {
  958.                     IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  959. -                   if (mtype == MONALL && !x_face) STRCPY(user, "unknown") ;
  960.                     return 1 ;
  961.                   }
  962. !             }
  963. !         }
  964. ! 
  965. ! mi5:
  966. !   for (cptr = community; cptr != NULL; cptr = index(cptr, '.'))
  967. !     for (i = -1; i < maxtypes; i++)
  968. !       {
  969. !         if (*cptr == '.') cptr++ ;
  970. !         if (i < 0)
  971. !           {
  972. !             SPRINTF(iconname, "%s/%s/unknown", defdir, cptr) ;
  973. !             if (stat(iconname, &buf) == -1) goto mi6 ;
  974. !             if ((buf.st_mode & S_IFMT) == S_IFREG)
  975. !               {    
  976. !                 IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  977. !                 old_style = 1 ;
  978. !                 return 1 ;
  979. !               }
  980. !           } 
  981. !         else
  982. !           {
  983. !             SPRINTF(iconname, "%s/%s/unknown/%s", defdir, cptr, fname[i]) ;
  984. !             if (stat(iconname, &buf) != -1)
  985.                 {
  986. !                 IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  987. !                 if (mtype == MONALL && !x_face) STRCPY(user, "unknown") ;
  988. !                 return 1 ;
  989.                 }
  990.             }
  991. -       }
  992. - 
  993. - mi6:
  994. -   if (strlen(facedir))
  995. -     for (i = -1; i < maxtypes; i++)
  996. -       if (i < 0)
  997. -         {
  998. -           SPRINTF(iconname, "%s/misc./unknown", facedir) ;
  999. -           if (stat(iconname, &buf) == -1) goto mi7 ;
  1000. -           if ((buf.st_mode & S_IFMT) == S_IFREG)
  1001. -             {
  1002. -               IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1003. -               old_style = 1 ;
  1004. -               return 1 ;
  1005. -             }
  1006. -         }    
  1007. -       else
  1008. -         {
  1009. -           SPRINTF(iconname, "%s/misc./unknown/%s", facedir, fname[i]) ;
  1010. -           if (stat(iconname, &buf) != -1)
  1011. -             {
  1012. -               IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1013. -               if (!x_face) STRCPY(community, "misc.") ;
  1014. -               if (mtype == MONALL && !x_face) STRCPY(user, "unknown") ;
  1015. -               return 1 ;
  1016. -             }
  1017. -         }
  1018. - 
  1019. - mi7:
  1020. -   for (i = -1; i < maxtypes; i++)
  1021. -     if (i < 0)
  1022. -       {
  1023. -         SPRINTF(iconname, "%s/misc./unknown", defdir) ;
  1024. -         if (stat(iconname, &buf) == -1) return 0 ;
  1025. -         if ((buf.st_mode & S_IFMT) == S_IFREG)
  1026. -           {
  1027. -             IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1028. -             old_style = 1 ;
  1029. -             return 1 ;
  1030. -           }  
  1031. -       }    
  1032. -     else
  1033. -       {
  1034. -         SPRINTF(iconname, "%s/misc./unknown/%s", defdir, fname[i]) ;
  1035. -         if (stat(iconname, &buf) != -1)
  1036. -           {
  1037. -             IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1038. -             if (!x_face) STRCPY(community, "misc.") ;
  1039. -             if (mtype == MONALL && !x_face) STRCPY(user, "unknown") ;
  1040. -             return 1 ;
  1041. -           }
  1042. -       }
  1043.   
  1044.   /* Face icon not found, so the "blank face" should be used. */
  1045.   
  1046. --- 483,538 ----
  1047.    *  $(FACEDIR)/community/unknown/[face.ps, sun.icon, 48x48x1, face.xbm]
  1048.    *  $(FACEDIR)/misc./unknown/[face.ps, sun.icon, 48x48x1, face.xbm]
  1049.    *
  1050. !  *  Firstly a check is made for the "old" style. This is where the username
  1051. !  *  is not a directory but the ikon in 48x48x1 format. $(FACEDIR) is
  1052. !  *  replaced by all the face directories given.
  1053.    *
  1054.    *  If none of these are found, the "blank face" is returned.
  1055.    */
  1056.   
  1057. !   char *cptr, *icomm[3], *iuser[3] ;
  1058. !   int i, ic, id, iu ;
  1059.   
  1060. +   icomm[0] = community ;
  1061. +   icomm[1] = "misc." ;
  1062. +   icomm[2] = "" ;
  1063. + 
  1064. +   iuser[0] = user ;
  1065. +   iuser[1] = "unknown" ;
  1066. +   iuser[2] = "" ;
  1067. + 
  1068.     old_style = 0 ;     /* Reset before checking this face. */
  1069.   
  1070.     IF_DEBUG( FPRINTF(stderr, "make_iconname: %s[%s] ", community, user) ; )
  1071.     
  1072. !   for (id = 0; strlen(facepath[id]) != 0; id++)
  1073. !     for (iu = 0; strlen(iuser[iu]) != 0; iu++)
  1074. !       for (ic = 0; strlen(icomm[ic]) != 0; ic++)
  1075. !         for (cptr = icomm[ic]; cptr != NULL; cptr = index(cptr, '.'))
  1076.             {
  1077. !             SPRINTF(iconname, "%s/%s/%s", facepath[id], cptr, iuser[iu]) ;
  1078.               if (stat(iconname, &buf) != -1)
  1079.                 if ((buf.st_mode & S_IFMT) == S_IFREG)
  1080.                   {
  1081. +                   old_style = 1 ;
  1082.                     IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1083.                     return 1 ;
  1084.                   }
  1085. !             for (i = 0; i < maxtypes; i++)
  1086.                 {
  1087. !                 if (*cptr == '.') cptr++ ;
  1088. !                 SPRINTF(iconname, "%s/%s/%s/%s", 
  1089. !                         facepath[id], cptr, iuser[iu], fname[i]) ;
  1090. !                 if (stat(iconname, &buf) != -1)
  1091. !                   {
  1092. !                     IF_DEBUG( FPRINTF(stderr, "found as %s\n", iconname) ; )
  1093. ! #ifdef NAMEUNKNOWN
  1094. !                     if (EQUAL(iser[iu], "unknown")) STRCPY(user, "unknown") ;
  1095. ! #endif /*NAMEUNKNOWN*/
  1096. !                     return 1 ;
  1097. !                   }
  1098.                 }
  1099.             }
  1100.   
  1101.   /* Face icon not found, so the "blank face" should be used. */
  1102.   
  1103.  
  1104. ------- mon.c -------
  1105. *** /tmp/da09670    Tue Aug 14 07:20:16 1990
  1106. --- mon.c    Tue Aug 14 06:58:10 1990
  1107. ***************
  1108. *** 15,25 ****
  1109.    */
  1110.   
  1111.   #include <stdio.h>
  1112. ! #ifdef SYSV
  1113.   #include <string.h>
  1114.   #else
  1115.   #include <strings.h>
  1116. ! #endif /*SYSV*/
  1117.   #include <sys/types.h>
  1118.   #include <sys/stat.h>
  1119.   #include <sys/time.h>
  1120. --- 15,25 ----
  1121.    */
  1122.   
  1123.   #include <stdio.h>
  1124. ! #ifdef SYSV32 || hpux
  1125.   #include <string.h>
  1126.   #else
  1127.   #include <strings.h>
  1128. ! #endif /* SYSV32 || hpux */
  1129.   #include <sys/types.h>
  1130.   #include <sys/stat.h>
  1131.   #include <sys/time.h>
  1132. ***************
  1133. *** 130,135 ****
  1134. --- 130,155 ----
  1135.   }
  1136.   
  1137.   
  1138. + do_key(val)            /* Handle various keyboard options. */
  1139. + int val ;
  1140. + {
  1141. +   switch (val)
  1142. +     {
  1143. +       case KEY_CLEAR   : if (mtype == MONNEW)
  1144. +                            {
  1145. +                              repl_image(DISP_NAME,  CUROFF, width, height) ;
  1146. +                              repl_image(DISP_OTHER, CUROFF, width, height) ;
  1147. +                              toclear = 1 ;
  1148. +                              do_check() ;
  1149. +                            }
  1150. +                          break ;
  1151. +       case KEY_REFRESH : draw_screen(wdtype) ;
  1152. +                          break ;
  1153. +       case KEY_QUIT    : exit(0) ;
  1154. +     }
  1155. + }
  1156. + 
  1157. + 
  1158.   do_mail(mtype)              /* Monitor a mail file for new or all mail. */
  1159.   enum mon_type mtype ;
  1160.   {        
  1161. ***************
  1162. *** 184,192 ****
  1163.             if (froms_found) process_info() ;  /* Process previous mail. */
  1164.             process_from() ;                   /* Save new from details. */
  1165.           }
  1166. !       else if (EQUAL(line, "From:"))  process_from() ;
  1167. !       else if (EQUAL(line, "X-Face")) process_face() ;
  1168. !       else if (doing_xface)           process_face() ;
  1169.       }
  1170.     FCLOSE(fp) ;
  1171.   
  1172. --- 204,212 ----
  1173.             if (froms_found) process_info() ;  /* Process previous mail. */
  1174.             process_from() ;                   /* Save new from details. */
  1175.           }
  1176. !       else if (EQUAL(line, "From:"))   process_from() ;
  1177. !       else if (EQUAL(line, "X-Face:")) process_face() ;
  1178. !       else if (doing_xface)            process_face() ;
  1179.       }
  1180.     FCLOSE(fp) ;
  1181.   
  1182. ***************
  1183. *** 216,221 ****
  1184. --- 236,243 ----
  1185.         return ;
  1186.       }
  1187.     column = row = 0 ;          /* Start in top left corner of pixrect. */
  1188. + 
  1189. + #ifndef PLP
  1190.     FGETS(nextline, MAXLINE, fp) ;
  1191.     if (EQUAL(nextline, "no entries"))
  1192.       {
  1193. ***************
  1194. *** 230,245 ****
  1195.         text(DISP_ALL, LEFT, printer) ;      /* Output printer name. */
  1196.       }
  1197.     else
  1198.       {
  1199.         FGETS(nextline, MAXLINE, fp) ;    /* Skip the next line. */
  1200.         while (fgets(nextline, MAXLINE, fp) != NULL)
  1201.           {
  1202.             SSCANF(&nextline[7], "%s", owner) ;
  1203.             SSCANF(&nextline[60], "%d", &size) ;
  1204.             h_to_c("", community) ;
  1205. !           found = make_iconname(facedir, community, owner) ;
  1206.             add_record("", owner, "", size) ;
  1207.           }
  1208.         make_pixrect(noicons) ;
  1209.         this = recs ;
  1210.         while (this != NULL)
  1211. --- 252,302 ----
  1212.         text(DISP_ALL, LEFT, printer) ;      /* Output printer name. */
  1213.       }
  1214.     else
  1215. + #endif /*PLP*/
  1216.       {
  1217.         FGETS(nextline, MAXLINE, fp) ;    /* Skip the next line. */
  1218.         while (fgets(nextline, MAXLINE, fp) != NULL)
  1219.           {
  1220. + #ifdef PLP
  1221. +           if ((nextline[0] == '\n')             ||
  1222. +               (EQUAL(nextline, "  work done"))  ||
  1223. +               (EQUAL(nextline, "  processing")) ||
  1224. +               (EQUAL(nextline, "Printer "))     ||
  1225. +               (EQUAL(nextline, "Remote printer "))) continue ;
  1226. + 
  1227. +           if ((EQUAL(nextline, "  Printer Error: may need attention!")) ||
  1228. +               (EQUAL(nextline, "Remote connect to "))) /* for the time being */
  1229. +             {
  1230. +               make_pixrect(1) ;                 /* Just the "no paper" icon. */
  1231. +               add_face(DISP_ALL, NOPAPER, "") ; /* Set to "no paper" icon. */
  1232. +               text(DISP_ALL, LEFT, printer) ;   /* Output printer name. */
  1233. +               PCLOSE(fp) ;
  1234. +               show_display() ;
  1235. +               return ;
  1236. +         }
  1237. + #endif /*PLP*/
  1238.             SSCANF(&nextline[7], "%s", owner) ;
  1239. + #ifdef PLP
  1240. +           if (EQUAL(owner, "Owner")) continue ;
  1241. +           SSCANF(&nextline[59], "%d", &size) ;
  1242. + #else
  1243.             SSCANF(&nextline[60], "%d", &size) ;
  1244. + #endif /*PLP*/
  1245.             h_to_c("", community) ;
  1246. !           found = make_iconname(facepath, community, owner) ;
  1247.             add_record("", owner, "", size) ;
  1248.           }
  1249. + #ifdef PLP
  1250. +       if (recs == NULL)
  1251. +         {
  1252. +           make_pixrect(1) ;                    /* Just the "no print" icon. */
  1253. +           add_face(DISP_ALL, NOPRINT, "") ;    /* Set to "no print" icon. */
  1254. +           text(DISP_ALL, LEFT, printer) ;      /* Output printer name. */
  1255. +           PCLOSE(fp) ;
  1256. +           show_display() ;
  1257. +           return ;
  1258. +     }
  1259. + #endif /*PLP*/
  1260.         make_pixrect(noicons) ;
  1261.         this = recs ;
  1262.         while (this != NULL)
  1263. ***************
  1264. *** 319,326 ****
  1265.               EQUAL(user, "NOPRINT") || EQUAL(user, "NOUSERS")))
  1266.           {
  1267.             h_to_c(host, community) ;   /* Turn hostname into community name. */
  1268. !           a_to_u(community, user, realname) ;
  1269. !           found = make_iconname(facedir, community, realname) ;
  1270.           }
  1271.              if (EQUAL(user, "NOMAIL"))  ftype = NOMAIL ;
  1272.         else if (EQUAL(user, "NOPAPER")) ftype = NOPAPER ;
  1273. --- 376,383 ----
  1274.               EQUAL(user, "NOPRINT") || EQUAL(user, "NOUSERS")))
  1275.           {
  1276.             h_to_c(host, community) ;   /* Turn hostname into community name. */
  1277. !           a_to_u(community, user, realcomm, realname) ;
  1278. !           found = make_iconname(facepath, realcomm, realname) ;
  1279.           }
  1280.              if (EQUAL(user, "NOMAIL"))  ftype = NOMAIL ;
  1281.         else if (EQUAL(user, "NOPAPER")) ftype = NOPAPER ;
  1282. ***************
  1283. *** 360,366 ****
  1284.         SSCANF(&nextline[0], "%s", username) ;
  1285.         SSCANF(&nextline[38], "%s", ts) ;
  1286.         h_to_c("", community) ;
  1287. !       found = make_iconname(facedir, community, username) ;
  1288.         add_record("", username, ts, 0) ;
  1289.       }
  1290.     if (!noicons)
  1291. --- 417,423 ----
  1292.         SSCANF(&nextline[0], "%s", username) ;
  1293.         SSCANF(&nextline[38], "%s", ts) ;
  1294.         h_to_c("", community) ;
  1295. !       found = make_iconname(facepath, community, username) ;
  1296.         add_record("", username, ts, 0) ;
  1297.       }
  1298.     if (!noicons)
  1299. ***************
  1300. *** 557,576 ****
  1301.     struct recinfo *crec ;    /* Pointer to current mail record for updating. */
  1302.   
  1303.     h_to_c(face_host, community) ;    /* Turn hostname into community name. */
  1304. !   a_to_u(community, face_user, realname) ;
  1305.     if (mtype == MONNEW)
  1306.       {
  1307.         if (x_face)
  1308.           {
  1309. -           SPRINTF(iconname, "%s/%s/%s/48x48x1",
  1310. -                   strlen(facedir) ? facedir : defdir, community, realname) ;
  1311.             add_face(DISP_ALL, XFACE, iconname) ;
  1312.             if (update) do_face_update(iconname, face_buf) ;
  1313.           }
  1314.         else
  1315.           {
  1316. !           if (!(found = make_iconname(facedir, community, realname)))
  1317. !             add_face(DISP_ALL, NOFACE, (char *) NULL) ;
  1318.             else add_face(DISP_ALL, ORDINARY, iconname) ;
  1319.           }
  1320.   
  1321. --- 614,635 ----
  1322.     struct recinfo *crec ;    /* Pointer to current mail record for updating. */
  1323.   
  1324.     h_to_c(face_host, community) ;    /* Turn hostname into community name. */
  1325. !   a_to_u(community, face_user, realcomm, realname) ;
  1326. ! 
  1327. !   found = make_iconname (facepath, community, realname) ;
  1328. !   if (x_face && !found)
  1329. !     SPRINTF(iconname, "%s/%s/%s/48x48x1", facepath[0], community, realname) ;
  1330. ! 
  1331.     if (mtype == MONNEW)
  1332.       {
  1333.         if (x_face)
  1334.           {
  1335.             add_face(DISP_ALL, XFACE, iconname) ;
  1336.             if (update) do_face_update(iconname, face_buf) ;
  1337.           }
  1338.         else
  1339.           {
  1340. !           if (!found) add_face(DISP_ALL, NOFACE, (char *) NULL) ;
  1341.             else add_face(DISP_ALL, ORDINARY, iconname) ;
  1342.           }
  1343.   
  1344. ***************
  1345. *** 584,600 ****
  1346.       }
  1347.     else
  1348.       {
  1349. !       found = make_iconname(facedir, community, realname) ;
  1350. !       if (x_face)
  1351. !         SPRINTF(iconname, "%s/%s/%s/48x48x1",
  1352. !                 strlen(facedir) ? facedir : defdir, community, realname) ;
  1353. !       if ((crec = rec_exists(community, realname)) != NULL)
  1354.           {
  1355.             STRCPY(crec->ts, face_ts) ;
  1356.             if (!crec->total) noicons++ ;
  1357.             crec->total++ ;
  1358.           }
  1359. !       else add_record(community, realname, face_ts, 0) ;
  1360.       }
  1361.     fromc_found = froms_found = x_face = 0 ;  /* Reset for the next message. */
  1362.   }
  1363. --- 643,655 ----
  1364.       }
  1365.     else
  1366.       {
  1367. !       if ((crec = rec_exists(realcomm, realname)) != NULL)
  1368.           {
  1369.             STRCPY(crec->ts, face_ts) ;
  1370.             if (!crec->total) noicons++ ;
  1371.             crec->total++ ;
  1372.           }
  1373. !       else add_record(realcomm, realname, face_ts, 0) ;
  1374.       }
  1375.     fromc_found = froms_found = x_face = 0 ;  /* Reset for the next message. */
  1376.   }
  1377.  
  1378. ------- rec.c -------
  1379. *** /tmp/da09673    Tue Aug 14 07:20:17 1990
  1380. --- rec.c    Wed Aug  8 18:02:52 1990
  1381. ***************
  1382. *** 15,25 ****
  1383.    */
  1384.   
  1385.   #include <stdio.h>
  1386. ! #ifdef SYSV
  1387.   #include <string.h>
  1388.   #else
  1389.   #include <strings.h>
  1390. ! #endif /*SYSV*/
  1391.   #include "faces.h"
  1392.   #include "extern.h"
  1393.   
  1394. --- 15,25 ----
  1395.    */
  1396.   
  1397.   #include <stdio.h>
  1398. ! #ifdef SYSV32 || hpux
  1399.   #include <string.h>
  1400.   #else
  1401.   #include <strings.h>
  1402. ! #endif /* SYSV32 || hpux */
  1403.   #include "faces.h"
  1404.   #include "extern.h"
  1405.   
  1406. ***************
  1407. *** 36,44 ****
  1408.   }
  1409.   
  1410.   
  1411. ! add_alias(crec, username, alias)  /* Add new alias to hostnames' list. */
  1412.   struct comminfo *crec ;
  1413. ! char *username, *alias ;
  1414.   {
  1415.     struct peopinfo *cptemp, *ptemp ;
  1416.   
  1417. --- 36,46 ----
  1418.   }
  1419.   
  1420.   
  1421. ! /* Add new alias to hostnames' list. */
  1422. ! 
  1423. ! add_alias(crec, username, realcomm, alias)
  1424.   struct comminfo *crec ;
  1425. ! char *username, *realcomm, *alias ;
  1426.   {
  1427.     struct peopinfo *cptemp, *ptemp ;
  1428.   
  1429. ***************
  1430. *** 47,52 ****
  1431. --- 49,56 ----
  1432.     STRCPY(ptemp->alias, alias) ;
  1433.     ptemp->username = (char *) Malloc(strlen(username)+1) ;
  1434.     STRCPY(ptemp->username, username) ;
  1435. +   ptemp->community = (char *) Malloc(strlen(realcomm)+1) ;
  1436. +   STRCPY(ptemp->community, realcomm) ;
  1437.     ptemp->next = NULL ;
  1438.   
  1439.     if (crec->people == NULL) crec->people = ptemp ;
  1440. ***************
  1441. *** 82,87 ****
  1442. --- 86,94 ----
  1443.         mlast->next = temp ;     /* Add record to existing chain. */
  1444.         mlast = temp ;           /* Point to end of chain. */
  1445.       }
  1446. + 
  1447. +   IF_DEBUG( FPRINTF(stderr, "add_machine: Added %s ==> %s\n",
  1448. +                     temp->machine, temp->community) ) ;
  1449.   }
  1450.   
  1451.   
  1452. ***************
  1453. *** 141,163 ****
  1454.   }
  1455.   
  1456.   
  1457. ! check_comm(hostname, username, alias)  /* Check community list. */
  1458. ! char *hostname, *username, *alias ;
  1459.   {
  1460.     struct comminfo *ctemp ;
  1461.    
  1462.     ctemp = communities ;      /* Try and find machine record for hostname. */
  1463.     while (ctemp != NULL)
  1464. !     if (!strcmp(ctemp->community, hostname))
  1465.         {  
  1466. !         add_alias(ctemp, username, alias) ;
  1467.           return ;
  1468.         }  
  1469.       else ctemp = ctemp->next ;
  1470.    
  1471.     ctemp = (struct comminfo *) LINT_CAST(Malloc(sizeof(struct comminfo))) ;
  1472. !   ctemp->community = (char *) Malloc(strlen(hostname)+1) ;
  1473. !   STRCPY(ctemp->community, hostname) ; 
  1474.     ctemp->people = NULL ; 
  1475.     ctemp->next = NULL ; 
  1476.    
  1477. --- 148,172 ----
  1478.   }
  1479.   
  1480.   
  1481. ! /* Check community list. */
  1482. ! 
  1483. ! check_comm(hostname, username, aliascomm, alias)
  1484. ! char *hostname, *username, *aliascomm, *alias ;
  1485.   {
  1486.     struct comminfo *ctemp ;
  1487.    
  1488.     ctemp = communities ;      /* Try and find machine record for hostname. */
  1489.     while (ctemp != NULL)
  1490. !     if (!strcmp(ctemp->community, aliascomm))
  1491.         {  
  1492. !         add_alias(ctemp, username, hostname, alias) ;
  1493.           return ;
  1494.         }  
  1495.       else ctemp = ctemp->next ;
  1496.    
  1497.     ctemp = (struct comminfo *) LINT_CAST(Malloc(sizeof(struct comminfo))) ;
  1498. !   ctemp->community = (char *) Malloc(strlen(aliascomm)+1) ;
  1499. !   STRCPY(ctemp->community, aliascomm) ; 
  1500.     ctemp->people = NULL ; 
  1501.     ctemp->next = NULL ; 
  1502.    
  1503. ***************
  1504. *** 167,173 ****
  1505.         clast->next = ctemp ;   /* Add record to existing chain. */
  1506.         clast = ctemp ;         /* Point to end of chain. */
  1507.       }
  1508. !   add_alias(ctemp, username, alias) ;
  1509.   }
  1510.   
  1511.   
  1512. --- 176,182 ----
  1513.         clast->next = ctemp ;   /* Add record to existing chain. */
  1514.         clast = ctemp ;         /* Point to end of chain. */
  1515.       }
  1516. !   add_alias(ctemp, username, hostname, alias) ;
  1517.   }
  1518.   
  1519.   
  1520. ***************
  1521. *** 175,181 ****
  1522.   
  1523.   garbage_collect()
  1524.   {
  1525. !   struct recinfo *last, *this, *next ;
  1526.   
  1527.     last = NULL ;
  1528.     this = recs ;
  1529. --- 184,190 ----
  1530.   
  1531.   garbage_collect()
  1532.   {
  1533. !   struct recinfo *this, *next ;
  1534.   
  1535.     last = NULL ;
  1536.     this = recs ;
  1537. ***************
  1538. *** 198,242 ****
  1539.   }
  1540.   
  1541.   
  1542.   read_aliases()     /* Setup the hostname aliases subchains. */
  1543.   {
  1544.     char alias[MAXLINE] ;      /* Alias for this community/username. */
  1545.     char hostname[MAXLINE] ;   /* This records' hostname. */
  1546.     char username[MAXLINE] ;   /* This records real username. */
  1547.     char *ptr1, *ptr2 ;
  1548.     FILE *fd ;
  1549.   
  1550. !   if (strlen(facedir)) SPRINTF(peopfile, "%s/PEOPLETAB", facedir) ;
  1551. !   if ((fd = fopen(peopfile, "r")) == NULL)   /* Open people file. */
  1552.       {
  1553. !       if (strlen(facedir))
  1554.           {
  1555. !           SPRINTF(peopfile, "%s/machine.tab", defdir) ;
  1556. !           fd = fopen(peopfile, "r") ;
  1557.           }
  1558. !       if (fd == NULL)
  1559. !         {
  1560. !           FPRINTF(stderr,"%s: cannot open %s\n", progname, peopfile) ;
  1561. !           return ;
  1562. !         }
  1563.       }
  1564. -   while (fgets(nextline, MAXLINE, fd) != NULL)
  1565. -     {
  1566. -       if (nextline[0] == '\n' || nextline[0] == '#') continue ;
  1567. -       ptr1 = index(nextline, '/') ;
  1568. -       if (((int) (ptr1-nextline)) <= 0) continue ;  /* Ignore if no length. */
  1569. -       STRNCPY(hostname, nextline, (int) (ptr1-nextline)) ;
  1570. -       hostname[(int) (ptr1-nextline)] = '\0' ;
  1571. -       ptr2 = index(nextline, '=') ;
  1572. -       if (((int) (ptr2-ptr1-1)) <= 0) continue ;    /* Ignore if no length. */
  1573. -       STRNCPY(alias, ptr1+1, (int) (ptr2-ptr1-1)) ;
  1574. -       alias[(int) (ptr2-ptr1-1)] = '\0' ;
  1575. -       if ((strlen(ptr2)-2) <= 0) continue ;         /* Ignore if no length. */
  1576. -       STRNCPY(username, ptr2+1, strlen(ptr2)-2) ;
  1577. -       username[strlen(ptr2)-2] = '\0' ;
  1578. -       check_comm(hostname, username, alias) ;
  1579. -     }
  1580. -   FCLOSE(fd) ;
  1581.   }
  1582.   
  1583.   
  1584. --- 207,273 ----
  1585.   }
  1586.   
  1587.   
  1588. + #define  MAXTOKENLEN  100
  1589. + static char ptoken[MAXTOKENLEN] ;
  1590. + 
  1591. + char *
  1592. + get_token(pntr)
  1593. + char *pntr ;
  1594. + {
  1595. +   int i = 0 ;
  1596. + 
  1597. +   while (*pntr=='\t' || *pntr == ' ') pntr++ ;
  1598. +   while ((i < MAXTOKENLEN) && (!strchr("/= \t#",*pntr)))
  1599. +     ptoken[i++] = *(pntr++) ;
  1600. +   while (*pntr=='\t' || *pntr == ' ') pntr++ ;
  1601. +   ptoken[i] = '\0' ;
  1602. +   return(pntr) ;
  1603. + }
  1604. + 
  1605. + 
  1606.   read_aliases()     /* Setup the hostname aliases subchains. */
  1607.   {
  1608.     char alias[MAXLINE] ;      /* Alias for this community/username. */
  1609. +   char aliascomm[MAXLINE] ;  /* Alias for this community/username. */
  1610.     char hostname[MAXLINE] ;   /* This records' hostname. */
  1611.     char username[MAXLINE] ;   /* This records real username. */
  1612.     char *ptr1, *ptr2 ;
  1613. +   int i ;
  1614.     FILE *fd ;
  1615.   
  1616. !   for (i = 0; facepath[i] != NULL; i++)
  1617.       {
  1618. !       SPRINTF(peopfile, "%s/%s", facepath[i], PEOPLETAB) ;
  1619. !       if ((fd = fopen(peopfile, "r")) == NULL) continue ;
  1620. ! 
  1621. !       while (fgets(nextline, MAXLINE, fd) != NULL)
  1622.           {
  1623. !           if (nextline[0] == '\n' || nextline[0] == '#') continue ;
  1624. !           nextline[strlen(nextline)-1] = '\0' ;
  1625. !           ptr1 = get_token(nextline) ;
  1626. !           if (!strlen(ptoken) || *ptr1 != '/') continue ;
  1627. !           STRCPY(aliascomm, ptoken) ;
  1628. !           ptr1 = get_token(++ptr1) ;
  1629. !           if (!strlen(ptoken) || *ptr1 != '=') continue ;
  1630. !           STRCPY(alias, ptoken) ;
  1631. !           ptr1 = get_token(++ptr1) ;
  1632. !           if (!strlen(ptoken)) continue ;
  1633. !           if (*ptr1 == '/')
  1634. !             {
  1635. !               STRCPY(hostname, ptoken) ;
  1636. !               ptr1 = get_token(++ptr1) ;
  1637. !               if (!strlen(ptoken)) continue ;
  1638. !               STRCPY(username, ptoken) ;
  1639. !             }
  1640. !           else
  1641. !             {
  1642. !               STRCPY(hostname, aliascomm) ;
  1643. !               STRCPY(username, ptoken) ;
  1644. !             }
  1645. !          check_comm(hostname, username, aliascomm, alias) ;
  1646.           }
  1647. !       FCLOSE(fd) ;
  1648.       }
  1649.   }
  1650.   
  1651.   
  1652. ***************
  1653. *** 245,279 ****
  1654.     char community[MAXLINE] ;   /* This records' community. */
  1655.     char machine[MAXLINE] ;     /* This records' machine name. */
  1656.     char *ptr ;
  1657.     FILE *fd ;
  1658.   
  1659. !   if (strlen(facedir)) SPRINTF(machfile, "%s/MACHINETAB", facedir) ;
  1660. !   if ((fd = fopen(machfile, "r")) == NULL)   /* Open machine file. */
  1661.       {
  1662. !       if (strlen(facedir))
  1663.           {
  1664. !           SPRINTF(machfile, "%s/machine.tab", defdir) ;
  1665. !           fd = fopen(machfile, "r") ;
  1666.           }
  1667. !       if (fd == NULL)
  1668. !         {
  1669. !           FPRINTF(stderr,"%s: cannot open %s\n", progname, machfile) ;
  1670. !           return ;
  1671. !         }
  1672.       }
  1673. -   while (fgets(nextline, MAXLINE, fd) != NULL)
  1674. -     {
  1675. -       if (nextline[0] == '\n' || nextline[0] == '#') continue ;
  1676. -       ptr = index(nextline, '=') ;
  1677. -       if (((int) (ptr-nextline)) <= 0) continue ;  /* Ignore if no length. */
  1678. -       STRNCPY(machine, nextline, (int) (ptr-nextline)) ;
  1679. -       machine[(int) (ptr-nextline)] = '\0' ;
  1680. -       if (strlen(ptr)-2 <= 0) continue ;           /* Ignore if no length. */
  1681. -       STRNCPY(community, ptr+1, strlen(ptr)-2) ;
  1682. -       community[strlen(ptr)-2] = '\0' ;
  1683. -       add_machine(machine, community) ;
  1684. -     }
  1685. -   FCLOSE(fd) ;
  1686.   }
  1687.   
  1688.   
  1689. --- 276,303 ----
  1690.     char community[MAXLINE] ;   /* This records' community. */
  1691.     char machine[MAXLINE] ;     /* This records' machine name. */
  1692.     char *ptr ;
  1693. +   int i ;
  1694.     FILE *fd ;
  1695.   
  1696. !   for (i = 0; facepath[i] != NULL; i++)
  1697.       {
  1698. !       SPRINTF(machfile, "%s/%s", facepath[i], MACHINETAB) ;
  1699. !       if ((fd = fopen(machfile, "r")) == NULL) continue ;
  1700. ! 
  1701. !       while (fgets(nextline, MAXLINE, fd) != NULL)
  1702.           {
  1703. !           if (nextline[0] == '\n' || nextline[0] == '#') continue ;
  1704. !           nextline[strlen(nextline)-1] = '\0' ;
  1705. !           ptr = get_token(nextline) ;
  1706. !           if (!strlen(ptoken) || *ptr != '=') continue ;
  1707. !           STRCPY(machine, ptoken) ;
  1708. !           ptr = get_token(++ptr) ;
  1709. !           if (!strlen(ptoken)) continue ;
  1710. !           STRCPY(community, ptoken) ;
  1711. !           add_machine(machine, community) ;
  1712.           }
  1713. !       FCLOSE(fd) ;
  1714.       }
  1715.   }
  1716.   
  1717.   
  1718.  
  1719. ------CUT HERE------CUT HERE------CUT HERE------CUT HERE------
  1720.  
  1721. Rich Burridge,          DOMAIN: richb@Aus.Sun.COM
  1722. Sun Microsystems.       ACSNET: richb@sunaus.sun.oz
  1723. PHONE: +61 2 413 2666   UUCP:   {uunet,mcvax,ukc}!munnari!sunaus.oz!richb
  1724.  
  1725.  
  1726.