-
-/*
- * Use hostable as an exception file for those hosts that aren't
- * on the Internet (listed in /etc/hosts). These are usually
- * PhoneNet and UUCP sites.
- */
-
-#define NALIASES 50
-
-static int
-init_hs (void)
-{
- unsigned char *cp;
- char *dp, **q, **r;
- char buffer[BUFSIZ], *aliases[NALIASES];
- register struct host *h;
- register FILE *fp;
-
- if ((fp = fopen (hostable, "r")) == NULL)
- return 0;
-
- h = &hosts;
- while (fgets (buffer, sizeof(buffer), fp) != NULL) {
- if ((cp = strchr(buffer, '#')))
- *cp = 0;
- if ((cp = strchr(buffer, '\n')))
- *cp = 0;
- for (cp = buffer; *cp; cp++)
- if (isspace (*cp))
- *cp = ' ';
- for (cp = buffer; isspace (*cp); cp++)
- continue;
- if (*cp == 0)
- continue;
-
- q = aliases;
- if ((cp = strchr(dp = cp, ' '))) {
- *cp = 0;
- for (cp++; *cp; cp++) {
- while (isspace (*cp))
- cp++;
- if (*cp == 0)
- break;
- if ((cp = strchr(*q++ = cp, ' ')))
- *cp = 0;
- else
- break;
- if (q >= aliases + NALIASES)
- break;
- }
- }
-
- *q = 0;
-
- h->h_next = (struct host *) calloc (1, sizeof(*h));
- h = h->h_next;
- h->h_name = getcpy (dp);
- r = h->h_aliases =
- (char **) calloc ((size_t) (q - aliases + 1), sizeof(*q));
- for (q = aliases; *q; q++)
- *r++ = getcpy (*q);
- *r = 0;
- }
-
- fclose (fp);
- return 1;
-}