/* pathalias -- by steve bellovin, as told to peter honeyman */ #ifndef lint static char *sccsid = "@(#)domain.c 9.5 92/08/25"; #endif /* lint */ #include "def.h" /* imports */ extern dom *newdom(); extern char *strsave(); extern int errno, Vflag; /* exports */ /* privates */ static dom *good, *bad; /* * good and bad are passed by reference for move-to-front */ isadomain(domain) char *domain; { if (ondomlist(&good, domain)) { vprintf(stderr, "%s on\n", domain); return 1; } if (ondomlist(&bad, domain)) { vprintf(stderr, "%s off\n", domain); return 0; } if (nslookup(domain)) { adddom(&good, domain); vprintf(stderr, "%s add\n", domain); return 1; } else { adddom(&bad, domain); vprintf(stderr, "%s del\n", domain); return 0; } } ondomlist(headp, domain) dom **headp; char *domain; { dom *d, *head = *headp; for (d = head; d != 0; d = d->next) { if (strcmp(d->name, domain) == 0) { if (d != head) movetofront(headp, d); return 1; } } return 0; } adddom(headp, domain) dom **headp; char *domain; { dom *d, *head = *headp; d = newdom(); d->next = head; d->name = strsave(domain); if (d->next) d->next->prev = d; *headp = d; } movetofront(headp, d) dom **headp, *d; { dom *head = *headp; if (d->prev) d->prev->next = d->next; if (d->next) d->next->prev = d->prev; if (head) head->prev = d; d->next = head; *headp = d; } #ifdef RESOLVER #include <sys/types.h> #include <arpa/nameser.h> nslookup(domain) char *domain; { register HEADER *hp; register int n; char q[PACKETSZ], a[PACKETSZ]; /* query, answer */ char buf[PACKETSZ+1]; if ((n = strlen(domain)) >= PACKETSZ) return 0; strcpy(buf, domain); if (buf[n-1] != '.') { buf[n++] = '.'; buf[n] = 0; } if ((n = res_mkquery(QUERY, buf, C_IN, T_ANY, (char *) 0, 0, (struct rrec *) 0, q, sizeof(q))) < 0) die("impossible res_mkquery error"); errno = 0; if ((n = res_send(q, n, a, sizeof(a))) < 0) die("res_send"); hp = (HEADER *) a; if (hp->rcode == NOERROR) return 1; return 0; } #else /*!RESOLVER*/ /*ARGSUSED*/ nslookup(domain) char *domain; { return 0; /* i guess !?! */ } #endif /*RESOLVER*/